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

Added "export" for explicitly non-local variables.

Browse Source
This commit is contained in:
Bruce Hill 2018-01-23 19:42:01 -08:00
parent 49f0e95571
commit 30639f52e1
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lib/operators.nom
View File

@ -57,7 +57,7 @@ immediately
# For strict identity checking, use (%x's id) is (%y's id) # For strict identity checking, use (%x's id) is (%y's id)
compile [%'s id, id of %] to "nomsu.ids[\(% as lua)]" compile [%'s id, id of %] to "nomsu.ids[\(% as lua)]"
# Variable assignment operator, and += type versions # Variable assignment operator
immediately immediately
lua> ".." lua> ".."
nomsu:define_compile_action("%var <- %value", \(__line_no__), function(\%var, \%value) nomsu:define_compile_action("%var <- %value", \(__line_no__), function(\%var, \%value)
@ -70,6 +70,16 @@ immediately
end end
return lua; return lua;
end, \(__src__ 1)); end, \(__src__ 1));
lua> ".."
nomsu:define_compile_action("export %var <- %value", \(__line_no__), function(\%var, \%value)
local lua = {};
lua.statements = ("%s = %s;"):format(
assert(nomsu:tree_to_lua(\%var).expr, "Invalid target for assignment: "..\%var.src),
assert(nomsu:tree_to_lua(\%value).expr, "Invalid value for assignment: "..\%value.src));
return lua;
end, \(__src__ 1));
lua> ".." lua> ".."
nomsu:define_compile_action("with %assignments %body", \(__line_no__), function(\%assignments, \%body) nomsu:define_compile_action("with %assignments %body", \(__line_no__), function(\%assignments, \%body)
local body_lua = nomsu:tree_to_lua(\%body); local body_lua = nomsu:tree_to_lua(\%body);
@ -108,6 +118,28 @@ immediately
return {statements=code, locals=utils.keys(leftover_locals)}; return {statements=code, locals=utils.keys(leftover_locals)};
end, \(__src__ 1)); end, \(__src__ 1));
lua> ".."
nomsu:define_compile_action("exporting %exported %body", \(__line_no__), function(\%exported, \%body)
local body_lua = nomsu:tree_to_lua(\%body);
local declarations = "";
local leftover_locals = {};
for _, body_local in ipairs(body_lua.locals or {}) do
leftover_locals[body_local] = true;
end
assert(\%exported.type == "List",
"Expected a List for the export part of 'exporting' statement, not "..\%exported.src);
for i, item in ipairs(\%exported.value) do
assert(item.type == "Var", "exporting statement expects Vars, not: "..item.src);
local var = nomsu:tree_to_lua(item).expr;
leftover_locals[var] = nil;
end
local code = ([[
do
%s%s
end]]):format(declarations, body_lua.statements or (body_lua.expr..";"));
return {statements=code, locals=utils.keys(leftover_locals)};
end, \(__src__ 1));
immediately immediately
# Math Operators # Math Operators
compile [%x + %y] to "(\(%x as lua) + \(%y as lua))" compile [%x + %y] to "(\(%x as lua) + \(%y as lua))"