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

Added tree back as a parameter to compile actions, which helps with

Browse Source 
better error reporting, e.g. for (fail) (no arguments). Overall better
error reporting now. Also added shorthand ("Action" tree with ...) for
(SyntaxTree {.type = "Action", .1 = ...}).
This commit is contained in:
Bruce Hill 2019-01-18 14:22:17 -08:00
parent 520acd3979
commit 10bd72e858
14 changed files with 123 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
bootstrap.lua
View File

@ -14,7 +14,7 @@ local fail_at
fail_at = require('nomsu_compiler').fail_at fail_at = require('nomsu_compiler').fail_at
local MAX_LINE = 80 local MAX_LINE = 80
local compile_actions = { local compile_actions = {
[""] = function(self, fn, ...) [""] = function(self, _t, fn, ...)
local lua = LuaCode() local lua = LuaCode()
local fn_lua = self:compile(fn) local fn_lua = self:compile(fn)
lua:add(fn_lua) lua:add(fn_lua)
@ -31,7 +31,7 @@ local compile_actions = {
lua:add(")") lua:add(")")
return lua return lua
end, end,
["Lua"] = function(self, code) ["Lua"] = function(self, _t, code)
if not code then if not code then
return LuaCode("LuaCode()") return LuaCode("LuaCode()")
end end
@ -62,7 +62,7 @@ local compile_actions = {
end end
return operate_on_text(code) return operate_on_text(code)
end, end,
["lua >"] = function(self, code) ["lua >"] = function(self, _t, code)
if code.type ~= "Text" then if code.type ~= "Text" then
return code return code
end end
@ -83,7 +83,7 @@ local compile_actions = {
end end
return operate_on_text(code) return operate_on_text(code)
end, end,
["= lua"] = function(self, code) ["= lua"] = function(self, _t, code)
return self:compile(SyntaxTree({ return self:compile(SyntaxTree({
type = "Action", type = "Action",
"lua", "lua",
@ -91,19 +91,19 @@ local compile_actions = {
code code
})) }))
end, end,
["1 as lua"] = function(self, code) ["1 as lua"] = function(self, _t, code)
return LuaCode("_ENV:compile(", self:compile(code), ")") return LuaCode("_ENV:compile(", self:compile(code), ")")
end, end,
["use"] = function(self, path) ["use"] = function(self, _t, path)
return LuaCode("_ENV:use(" .. tostring(self:compile(path)) .. ")") return LuaCode("_ENV:use(" .. tostring(self:compile(path)) .. ")")
end, end,
["export"] = function(self, path) ["export"] = function(self, _t, path)
return LuaCode("_ENV:export(" .. tostring(self:compile(path)) .. ")") return LuaCode("_ENV:export(" .. tostring(self:compile(path)) .. ")")
end, end,
["run"] = function(self, path) ["run"] = function(self, _t, path)
return LuaCode("_ENV:run(" .. tostring(self:compile(path)) .. ")") return LuaCode("_ENV:run(" .. tostring(self:compile(path)) .. ")")
end, end,
["test"] = function(self, body) ["test"] = function(self, _t, body)
if not (body.type == 'Block') then if not (body.type == 'Block') then
fail_at(body, "Compile error: This should be a Block") fail_at(body, "Compile error: This should be a Block")
end end
@ -121,22 +121,22 @@ local compile_actions = {
})) }))
return LuaCode("TESTS[" .. tostring(tostring(body.source):as_lua()) .. "] = ", test_text) return LuaCode("TESTS[" .. tostring(tostring(body.source):as_lua()) .. "] = ", test_text)
end, end,
["is jit"] = function(self, code) ["is jit"] = function(self, _t, code)
return LuaCode("jit") return LuaCode("jit")
end, end,
["Lua version"] = function(self, code) ["Lua version"] = function(self, _t, code)
return LuaCode("_VERSION") return LuaCode("_VERSION")
end, end,
["nomsu environment"] = function(self) ["nomsu environment"] = function(self, _t)
return LuaCode("_ENV") return LuaCode("_ENV")
end, end,
["nomsu environment name"] = function(self) ["nomsu environment name"] = function(self, _t)
return LuaCode('"_ENV"') return LuaCode('"_ENV"')
end, end,
["this file was run directly"] = function(self) ["this file was run directly"] = function(self, _t)
return LuaCode('WAS_RUN_DIRECTLY') return LuaCode('WAS_RUN_DIRECTLY')
end, end,
["the command line arguments"] = function(self) ["the command line arguments"] = function(self, _t)
return LuaCode('COMMAND_LINE_ARGS') return LuaCode('COMMAND_LINE_ARGS')
end end
} }

30
bootstrap.moon
View File

@ -8,7 +8,7 @@ Files = require "files"
MAX_LINE = 80 -- For beautification purposes, try not to make lines much longer than this value MAX_LINE = 80 -- For beautification purposes, try not to make lines much longer than this value
compile_actions = { compile_actions = {
[""]: (fn, ...)=> [""]: (_t, fn, ...)=>
lua = LuaCode! lua = LuaCode!
fn_lua = @compile(fn) fn_lua = @compile(fn)
lua\add fn_lua lua\add fn_lua
@ -21,7 +21,7 @@ compile_actions = {
lua\add ")" lua\add ")"
return lua return lua
["Lua"]: (code)=> ["Lua"]: (_t, code)=>
if not code if not code
return LuaCode("LuaCode()") return LuaCode("LuaCode()")
if code.type != "Text" if code.type != "Text"
@ -58,7 +58,7 @@ compile_actions = {
return operate_on_text code return operate_on_text code
["lua >"]: (code)=> ["lua >"]: (_t, code)=>
if code.type != "Text" if code.type != "Text"
return code return code
operate_on_text = (text)-> operate_on_text = (text)->
@ -73,22 +73,22 @@ compile_actions = {
return lua return lua
return operate_on_text code return operate_on_text code
["= lua"]: (code)=> ["= lua"]: (_t, code)=>
@compile(SyntaxTree{type:"Action", "lua", ">", code}) @compile(SyntaxTree{type:"Action", "lua", ">", code})
["1 as lua"]: (code)=> ["1 as lua"]: (_t, code)=>
LuaCode("_ENV:compile(", @compile(code), ")") LuaCode("_ENV:compile(", @compile(code), ")")
["use"]: (path)=> ["use"]: (_t, path)=>
LuaCode("_ENV:use(#{@compile(path)})") LuaCode("_ENV:use(#{@compile(path)})")
["export"]: (path)=> ["export"]: (_t, path)=>
LuaCode("_ENV:export(#{@compile(path)})") LuaCode("_ENV:export(#{@compile(path)})")
["run"]: (path)=> ["run"]: (_t, path)=>
LuaCode("_ENV:run(#{@compile(path)})") LuaCode("_ENV:run(#{@compile(path)})")
["test"]: (body)=> ["test"]: (_t, body)=>
unless body.type == 'Block' unless body.type == 'Block'
fail_at(body, "Compile error: This should be a Block") fail_at(body, "Compile error: This should be a Block")
test_nomsu = body\get_source_code!\match(":[ ]*(.*)") test_nomsu = body\get_source_code!\match(":[ ]*(.*)")
@ -97,12 +97,12 @@ compile_actions = {
test_text = @compile(SyntaxTree{type:"Text", source:body.source, test_nomsu}) test_text = @compile(SyntaxTree{type:"Text", source:body.source, test_nomsu})
return LuaCode "TESTS[#{tostring(body.source)\as_lua!}] = ", test_text return LuaCode "TESTS[#{tostring(body.source)\as_lua!}] = ", test_text
["is jit"]: (code)=> LuaCode("jit") ["is jit"]: (_t, code)=> LuaCode("jit")
["Lua version"]: (code)=> LuaCode("_VERSION") ["Lua version"]: (_t, code)=> LuaCode("_VERSION")
["nomsu environment"]: ()=> LuaCode("_ENV") ["nomsu environment"]: (_t)=> LuaCode("_ENV")
["nomsu environment name"]: ()=> LuaCode('"_ENV"') ["nomsu environment name"]: (_t)=> LuaCode('"_ENV"')
["this file was run directly"]: => LuaCode('WAS_RUN_DIRECTLY') ["this file was run directly"]: (_t)=> LuaCode('WAS_RUN_DIRECTLY')
["the command line arguments"]: => LuaCode('COMMAND_LINE_ARGS') ["the command line arguments"]: (_t)=> LuaCode('COMMAND_LINE_ARGS')
} }
return compile_actions return compile_actions

9
lib/compatibility/4.10.12.7.nom
View File

@ -63,10 +63,8 @@ upgrade $tree to "4.10.12.7" as:
$i += 1 $i += 1
return return
--- (insert chunk) --- --- (insert chunk) ---
[$chunk1, $chunk2] = [ [$chunk1, $chunk2] =
SyntaxTree {.type = "Block", .source = $first_chunk.source} ["Block" tree from $first_chunk.source, "Block" tree from $first_chunk.source]
SyntaxTree {.type = "Block", .source = $first_chunk.source}
]
for $j in 1 to ($i - 1): for $j in 1 to ($i - 1):
$chunk1.$j = $first_chunk.$j $chunk1.$j = $first_chunk.$j
@ -74,8 +72,7 @@ upgrade $tree to "4.10.12.7" as:
for $j in $i to (size of $first_chunk): for $j in $i to (size of $first_chunk):
$chunk2.($j - $i + 1) = $first_chunk.$j $chunk2.($j - $i + 1) = $first_chunk.$j
$new_tree = $new_tree = ("FileChunks" tree from $tree.source with $chunk1 $chunk2)
SyntaxTree {.source = $tree.source, .type = "FileChunks"} $chunk1 $chunk2
for $i in 2 to (size of $tree): for $i in 2 to (size of $tree):
$new_tree.($i + 1) = $tree.$i $new_tree.($i + 1) = $tree.$i

2
lib/compatibility/4.11.nom
View File

@ -25,7 +25,7 @@ upgrade action "set" to "4.11" via
for $entry in $tree.2 at $i: for $entry in $tree.2 at $i:
$lhs.$i = $entry.1 $lhs.$i = $entry.1
$rhs.$i = $entry.2 $rhs.$i = $entry.2
return (SyntaxTree {.type = "Action", .source = $tree.source} $lhs "=" $rhs) return ("Action" tree from $tree.source with $lhs "=" $rhs)
upgrade action "1 with 2 ~>" to "4.11" via upgrade action "1 with 2 ~>" to "4.11" via
for $tree: for $tree:

4
lib/compatibility/6.14.nom
View File

@ -28,11 +28,11 @@ upgrade action (assume $assumption or barf $err) to "6.14" as
upgrade action (barf $msg) to "6.14" as (fail $msg) upgrade action (barf $msg) to "6.14" as (fail $msg)
upgrade action (\(1's meaning)).stub to "6.14" via upgrade action (\(1's meaning)).stub to "6.14" via
$tree -> (SyntaxTree {.source = $tree.source, .type = "Var", $tree.1}) $tree -> ("Var" tree from $tree.source with $tree.1)
upgrade action (log base $b of $n) to "6.14" as (log $n base $b) upgrade action (log base $b of $n) to "6.14" as (log $n base $b)
upgrade action "use" to "6.14" via upgrade action "use" to "6.14" via
for $tree: for $tree:
$path = $tree.2.1 $path = $tree.2.1
$path = ($path, with "%.nom$" -> "") $path = ($path, with "%.nom$" -> "")
$path = ($path, with "^lib/" -> "") $path = ($path, with "^lib/" -> "")
return \(use (SyntaxTree {.source = $tree.2.source, .type = "Text"} $path)) return \(use ("Text" tree from $tree.2.source with $path))

2
lib/compatibility/compatibility.nom
View File

@ -43,7 +43,7 @@ external:
($t is syntax tree): ($t is syntax tree):
$args = [] $args = []
for $k = $v in $t: for $k = $v in $t:
if ((type of $k) == "number"): if ((type of $k) == "a number"):
$args, add (make tree $v) $args, add (make tree $v)
..else: ..else:
$args, add "\($k)=\(make tree $v)" $args, add "\($k)=\(make tree $v)"

11
lib/consolecolor/init.nom
View File

@ -18,9 +18,8 @@ $colors = {
for $name = $colornum in $colors: for $name = $colornum in $colors:
$colornum = "\$colornum" $colornum = "\$colornum"
$(COMPILE RULES).$name = \($name \$text) compiles to:
for ($compile $text): if $text:
if $text: return (Lua "('\\027[\($colornum)m'..\($text as lua expr)..'\\027[0m')")
return (Lua "('\\027[\($colornum)m'..\($text as lua expr)..'\\027[0m')") ..else:
..else: return (Lua "'\\027[\($colornum)m'")
return (Lua "'\\027[\($colornum)m'")

15
lib/core/errors.nom
View File

@ -8,14 +8,15 @@ use "core/control_flow"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(fail $msg) compiles to (fail $msg) compiles to ("
LuaCode at_1_fail(\(quote (this tree).source), 'Failure: \(
"at_1_fail(\(quote $msg.source), 'Failure: '..\($msg as lua expr))" "'..\($msg as lua expr)" if $msg else "A failure was triggered here'"
..if $msg else "error('Failure', 0)" ))
")
(assume $condition) compiles to (" (assume $condition) compiles to ("
if not \($condition as lua expr) then if not \($condition as lua expr) then
at_1_fail(\(quote "\($condition.source)"), "Assumption failed: This is not true.") at_1_fail(\(quote "\($condition.source)"), "Assumption failed: This was not true.")
end end
") ")
@ -24,7 +25,7 @@ use "core/control_flow"
local _a, _b = \($a as lua expr), \($b as lua expr) local _a, _b = \($a as lua expr), \($b as lua expr)
if _a ~= _b then if _a ~= _b then
at_1_fail(\(quote "\($a.source)"), at_1_fail(\(quote "\($a.source)"),
"Assumption failed: This value is "..tostring(_a)..", but it was supposed to be "..tostring(_b)..".") "Assumption failed: This value was "..tostring(_a).." when it was supposed to be "..tostring(_b)..".")
end end
end end
") ")
@ -34,7 +35,7 @@ use "core/control_flow"
local _a, _b = \($a as lua expr), \($b as lua expr) local _a, _b = \($a as lua expr), \($b as lua expr)
if _a == _b then if _a == _b then
at_1_fail(\(quote "\($a.source)"), at_1_fail(\(quote "\($a.source)"),
"Assumption failed: This value is "..tostring(_a)..", but it wasn't supposed to be.") "Assumption failed: This value was "..tostring(_a).." when it wasn't supposed to be.")
end end
end end
") ")

59
lib/core/metaprogramming.nom
View File

@ -16,13 +16,16 @@ lua> ("
end end
end end
end end
COMPILE_RULES["define mangler"] = function(\(nomsu environment)) COMPILE_RULES["define mangler"] = function(\(nomsu environment), _tree)
return LuaCode("local mangle = mangler()") return LuaCode("local mangle = mangler()")
end end
COMPILE_RULES["this tree"] = function(\(nomsu environment), _tree)
return LuaCode("_tree")
end
") ")
lua> (" lua> ("
COMPILE_RULES["1 ->"] = function(\(nomsu environment), \$args, \$body) COMPILE_RULES["1 ->"] = function(\(nomsu environment), _tree, \$args, \$body)
if \$args and not \$body then \$args, \$body = {}, \$args end if \$args and not \$body then \$args, \$body = {}, \$args end
local body_lua = SyntaxTree:is_instance(\$body) and \(nomsu environment):compile(\$body) or \$body local body_lua = SyntaxTree:is_instance(\$body) and \(nomsu environment):compile(\$body) or \$body
if SyntaxTree:is_instance(\$body) and \$body.type ~= "Block" then body_lua:prepend("return ") end if SyntaxTree:is_instance(\$body) and \$body.type ~= "Block" then body_lua:prepend("return ") end
@ -41,7 +44,7 @@ lua> ("
elseif not arg_lua:is_lua_id() then elseif not arg_lua:is_lua_id() then
at_1_fail(SyntaxTree:is_instance(arg) and arg or nil, at_1_fail(SyntaxTree:is_instance(arg) and arg or nil,
"Compile error: This does not compile to a Lua identifier, so it ".. "Compile error: This does not compile to a Lua identifier, so it "..
"can't be used as a function argument.".. "can't be used as a function argument. "..
"Hint: This should probably be a Nomsu variable instead (like $x).") "Hint: This should probably be a Nomsu variable instead (like $x).")
end end
lua:add(i > 1 and ", " or "", arg_lua) lua:add(i > 1 and ", " or "", arg_lua)
@ -84,13 +87,29 @@ test:
fail "compile to is leaking variables" fail "compile to is leaking variables"
lua> (" lua> ("
COMPILE_RULES["1 compiles to"] = function(\(nomsu environment), \$action, \$body) COMPILE_RULES["1 compiles to"] = function(\(nomsu environment), \(this tree), \$action, \$body)
local \$args = List{"\(nomsu environment)", unpack(\$action:get_args())} local \$args = List{"\(nomsu environment)", "\(this tree)"}
if \$body.type == "Text" then if \$body.type == "Text" then
\$body = SyntaxTree{source=\$body.source, type="Action", "Lua", \$body} \$body = SyntaxTree{source=\$body.source, type="Action", "Lua", \$body}
end end
return LuaCode("COMPILE_RULES[", \$action:get_stub():as_lua(), if not (\$action.type == "Action" or (\$action.type == "EscapedNomsu" and \$action[1]\
"] = ", \(\($args -> $body) as lua)) ...type == "Action")) then
at_1_fail(\$action.source, "Compile error: "..
"This is neither an action nor an escaped action. "..
"Hint: This should probably be an action like:\\n"
.."(foo $x) compiles to \\"(\\\\($x as lua) + 1)\\"")
end
if \$action.type == "EscapedNomsu" then
for _,a in ipairs(\$action[1]) do
if a.type == "EscapedNomsu" then \$args:add(a[1]) end
end
return LuaCode("COMPILE_RULES[", \($action as lua), ":get_stub()] = ",
\(\($args -> $body) as lua))
else
for _,a in ipairs(\$action:get_args()) do \$args:add(a) end
return LuaCode("COMPILE_RULES[", \$action:get_stub():as_lua(),
"] = ", \(\($args -> $body) as lua))
end
end end
") ")
@ -102,19 +121,19 @@ lua> ("
at_1_fail(\$actions, "Compile error: This should be a list of actions.") at_1_fail(\$actions, "Compile error: This should be a list of actions.")
end end
local lua = \(\($actions.1 compiles to $body) as lua) local lua = \(\($actions.1 compiles to $body) as lua)
local \$args = List{"\(nomsu environment)", unpack(\$actions[1]:get_args())} local \$args = List{"\(nomsu environment)", "\(this tree)", unpack(\$actions[1]:get_args())}
local \$compiled_args = List{"\(nomsu environment)"}; local \$compiled_args = List{"\(nomsu environment)", "\(this tree)"};
for i=2,#\$args do \$compiled_args[i] = \(nomsu environment):compile(\$args[i]) end for i=3,#\$args do \$compiled_args[i] = \(nomsu environment):compile(\$args[i]) end
for i=2,#\$actions do for i=2,#\$actions do
local alias = \$actions[i] local alias = \$actions[i]
local \$alias_args = List{"\(nomsu environment)", unpack(alias:get_args())} local \$alias_args = List{"\(nomsu environment)", "\(this tree)", unpack(alias:get_args())}
lua:add("\\nCOMPILE_RULES[", alias:get_stub():as_lua(), "] = ") lua:add("\\nCOMPILE_RULES[", alias:get_stub():as_lua(), "] = ")
if \$alias_args == \$args then if \$alias_args == \$args then
lua:add("COMPILE_RULES[", \$actions[1]:get_stub():as_lua(), "]") lua:add("COMPILE_RULES[", \$actions[1]:get_stub():as_lua(), "]")
else else
lua:add("function(") lua:add("function(")
local \$compiled_alias_args = List{"\(nomsu environment)"}; local \$compiled_alias_args = List{"\(nomsu environment)", "\(this tree)"};
for i=2,#\$alias_args do \$compiled_alias_args[i] = \(nomsu environment):compile(\$alias_args[i]) end for i=3,#\$alias_args do \$compiled_alias_args[i] = \(nomsu environment):compile(\$alias_args[i]) end
lua:concat_add(\$compiled_alias_args, ", ") lua:concat_add(\$compiled_alias_args, ", ")
lua:add(") return COMPILE_RULES[", \$actions[1]:get_stub():as_lua(), "](") lua:add(") return COMPILE_RULES[", \$actions[1]:get_stub():as_lua(), "](")
lua:concat_add(\$compiled_args, ", ") lua:concat_add(\$compiled_args, ", ")
@ -152,7 +171,7 @@ test:
lua:add(\$action:get_stub():as_lua_id()) lua:add(\$action:get_stub():as_lua_id())
lua:add_free_vars({\$action:get_stub():as_lua_id()}) lua:add_free_vars({\$action:get_stub():as_lua_id()})
else else
at_1_fail(\$action, "Compile error: Expected an action or method call here") at_1_fail(\$action, "Compile error: This is not an action or method call.")
end end
lua:add(" = ", \(\($action -> $body) as lua), ";") lua:add(" = ", \(\($action -> $body) as lua), ";")
return lua return lua
@ -415,6 +434,7 @@ external:
lua> (" lua> ("
local lua_type = \(lua type of $) local lua_type = \(lua type of $)
if lua_type == 'string' then return 'Text' if lua_type == 'string' then return 'Text'
elseif lua_type == 'nil' then return 'nil'
elseif lua_type == 'table' or lua_type == 'userdata' then elseif lua_type == 'table' or lua_type == 'userdata' then
local mt = getmetatable(\$) local mt = getmetatable(\$)
if mt and mt.__type then return mt.__type end if mt and mt.__type then return mt.__type end
@ -427,6 +447,17 @@ external:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
test:
assume ("Action" tree with "foo" ("Var" tree with "x")) == \(foo \$x)
external:
($type tree with (*extra arguments*)) means
SyntaxTree (=lua "{type=\$type, ...}")
($type tree from $source) means
SyntaxTree (=lua "{type=\$type, source=\$source}")
($type tree from $source with (*extra arguments*)) means
SyntaxTree (=lua "{type=\$type, source=\$source, ...}")
test: test:
(foo) means: (foo) means:
return 100 200 300 return 100 200 300

4
lib/core/things.nom
View File

@ -101,8 +101,8 @@ external:
$class_body with vars { $class_body with vars {
: for $v in $vars: : for $v in $vars:
add ($v as lua expr, text) = add ($v as lua expr, text) =
SyntaxTree {.type = "IndexChain"} (SyntaxTree {.type = "Var"} "self") "IndexChain" tree with ("Var" tree with "self")
SyntaxTree {.type = "Index"} (SyntaxTree {.type = "Text"} $v.1) "Index" tree with ("Text" tree with $v.1)
} }
$lua = $lua =
Lua (" Lua ("

30
lib/shell/init.nom
View File

@ -2,11 +2,25 @@
This file defines some actions for running shell commands. This file defines some actions for running shell commands.
external: external:
(=sh $cmd) means: (at $callsite =sh $cmd) means:
lua> (" $f = ($io.popen $cmd)
local result = io.popen(\$cmd) $contents = ($f, read "*a")
local contents = result:read("*a") [$ok, $return_type, $return] = ($f, close)
result:close() unless $ok:
return contents if ($return_type == "exit"):
") at $callsite fail "Command failure: Command `\$cmd` failed with exit code \$return"
$(sh> $) = $os.execute ..else:
at $callsite fail "Command failure: Command `\$cmd` was terminated by signal \$return"
return $contents
(at $callsite sh> $cmd) means:
[$ok, $return_type, $return] = ($os.execute $cmd)
unless $ok:
if ($return_type == "exit"):
at $callsite fail "Command failure: Command `\$cmd` failed with exit code \$return"
..else:
at $callsite fail "Command failure: Command `\$cmd` was terminated by signal \$return"
# Attach callsite information for better error reporting
(=sh $cmd) compiles to (\(at ("Text" tree with "\($cmd.source)") =sh $cmd) as lua)
(sh> $cmd) compiles to (\(at ("Text" tree with "\($cmd.source)") sh> $cmd) as lua)

2
lib/tools/repl.nom
View File

@ -68,7 +68,7 @@ command line program with $args:
$ret = (run $lua) $ret = (run $lua)
..if it fails with $err: say $err ..if it fails with $err: say $err
..if it succeeds: ..if it succeeds:
if (type of $ret) is: if (lua type of $ret) is:
"nil": "nil":
do nothing do nothing

2
nomsu_compiler.lua
View File

@ -93,7 +93,7 @@ compile = function(self, tree)
end end
args = _accum_0 args = _accum_0
end end
local ret = compile_action(self, unpack(args)) local ret = compile_action(self, tree, unpack(args))
if ret == nil then if ret == nil then
local info = debug.getinfo(compile_action, "S") local info = debug.getinfo(compile_action, "S")
local filename = Source:from_string(info.source).filename local filename = Source:from_string(info.source).filename

2
nomsu_compiler.moon
View File

@ -65,7 +65,7 @@ compile = (tree)=>
args = [arg for arg in *tree when type(arg) != "string"] args = [arg for arg in *tree when type(arg) != "string"]
-- Force Lua to avoid tail call optimization for debugging purposes -- Force Lua to avoid tail call optimization for debugging purposes
-- TODO: use tail call? -- TODO: use tail call?
ret = compile_action(@, unpack(args)) ret = compile_action(@, tree, unpack(args))
if ret == nil if ret == nil
info = debug.getinfo(compile_action, "S") info = debug.getinfo(compile_action, "S")
filename = Source\from_string(info.source).filename filename = Source\from_string(info.source).filename