Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pulled out some utils.

Browse Source
This commit is contained in:
Bruce Hill 2017-08-18 21:21:24 -07:00
parent dc152f88b6
commit a5d5814670
1 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
nomic.moon
View File

@ -1,24 +1,9 @@
re = require 're' re = require 're'
lpeg = require 'lpeg' lpeg = require 'lpeg'
utils = require 'utils'
moon = require 'moon' moon = require 'moon'
type = moon.type type = moon.type
is_list = (t)->
i = 1
for _ in pairs(t)
if t[i] == nil then return false
i += 1
return true
repr = (x)->
if type(x) == 'table'
if is_list x
"[#{table.concat([repr(i) for i in *x], ", ")}]"
else
"{#{table.concat(["#{k}: #{v}" for k,v in pairs x], ", ")}}"
else
tostring(x)
currently_parsing = nil currently_parsing = nil
macros = nil macros = nil
indentation = 0 indentation = 0
@ -86,7 +71,7 @@ FunctionCall = (tokens)->
args = [t for t in *tokens when t.type != 'word'] args = [t for t in *tokens when t.type != 'word']
rule_name = table.concat(words, " ") rule_name = table.concat(words, " ")
if rule_name == "$" if rule_name == "$"
error("Empty rule: #{repr(tokens)}") error("Empty rule: #{utils.repr(tokens)}")
if macros[rule_name] if macros[rule_name]
return macros[rule_name](unpack(args)) return macros[rule_name](unpack(args))
@ -219,7 +204,7 @@ class Game
return [c for c in pairs canonicals] return [c for c in pairs canonicals]
set_whitelist: (actions, whitelist)=> set_whitelist: (actions, whitelist)=>
if is_list whitelist then whitelist = {w,true for w in *whitelist} if utils.is_list whitelist then whitelist = {w,true for w in *whitelist}
for action in *@all_aliases(actions) for action in *@all_aliases(actions)
@authorized[action] = whitelist @authorized[action] = whitelist
@ -256,7 +241,7 @@ class Game
if not @rules[invocation] if not @rules[invocation]
error "Could not find rule: '#{invocation}'" error "Could not find rule: '#{invocation}'"
if not @\check_authorization invocation if not @\check_authorization invocation
print "Not authorized to #{invocation} from callstack: #{repr(@callstack)}" print "Not authorized to #{invocation} from callstack: #{utils.repr(@callstack)}"
return return
table.insert @callstack, invocation table.insert @callstack, invocation
arg_names = @arg_names[invocation] arg_names = @arg_names[invocation]
@ -281,6 +266,4 @@ class Game
break break
@\run buf @\run buf
repr: repr
return Game return Game