c79bea4401
helpers and forced the use of {expr=..., locals=...}-type syntax. This
helped fix up all of the cases like loops where locals were being
mishandled and led to some cleaner code.
105 lines
4.6 KiB
Plaintext
105 lines
4.6 KiB
Plaintext
use "lib/core.nom"
|
|
|
|
compile [@%var] to
|
|
lua> ".."
|
|
local key_lua = repr(\%var.value);
|
|
local key_attr = (key_lua:match("'([a-zA-Z][a-zA-Z0-9]*)'")
|
|
or key_lua:match('"([a-zA-Z][a-zA-Z0-9]*)"'));
|
|
if key_attr then
|
|
return "_me."..key_attr;
|
|
elseif key_lua:sub(1,1) == "[" then
|
|
key_lua = " "..key_lua.." ";
|
|
end
|
|
return "_me["..key_lua.."]";
|
|
|
|
compile [@%var <- %val] to code
|
|
lua> ".."
|
|
local val_lua = \(%val as lua);
|
|
local key_lua = repr(\%var.value);
|
|
local key_attr = (key_lua:match("'([a-zA-Z][a-zA-Z0-9]*)'")
|
|
or key_lua:match('"([a-zA-Z][a-zA-Z0-9]*)"'));
|
|
if key_attr then
|
|
return "_me."..key_attr.." = "..val_lua..";";
|
|
elseif key_lua:sub(1,1) == "[" then
|
|
key_lua = " "..key_lua.." ";
|
|
end
|
|
return "_me["..key_lua.."] = "..val_lua..";";
|
|
|
|
compile [object %classname %class_body] to
|
|
%class_identifier <- (=lua "nomsu:var_to_lua_identifier(\(%classname as value)):sub(2,-1)")
|
|
if: %class_identifier is ""
|
|
%class_identifier <- "class"
|
|
%methods <- []
|
|
for %line in (%class_body's "value")
|
|
if: (%line's "type") is "Comment"
|
|
do next %line
|
|
assume (((%line's "type") == "FunctionCall") and ((%line's "stub") == "action % %"))
|
|
..or barf "Only action definitions are supported inside 'object % %', not \(%line's "src")"
|
|
lua> ".."
|
|
assert(\%line.value[3].type == "Block",
|
|
"Invalid type for action definition body. Expected Block, but got: "..tostring(\%line.value[3].type));
|
|
local names, args = nomsu:parse_spec(\%line.value[2]);
|
|
local stub = nomsu:get_stub(names[1]);
|
|
local body_lua = nomsu:tree_to_lua(\%line.value[3]);
|
|
body_lua = body_lua.statements or ("return "..body_lua.expr..";");
|
|
local arg_nomsus = {};
|
|
for i, arg in ipairs(args) do arg_nomsus[i] = "nomsu:tree_to_lua("..arg..").expr"; end
|
|
table.insert(\%methods, ([==[
|
|
%s[ %s] = function(%s)
|
|
%s
|
|
end
|
|
nomsu:define_compile_action(%s, %s, function(%s)
|
|
return {expr="("..nomsu:tree_to_lua(_me).expr..")[ "..%s.."]("..%s..")"};
|
|
end, %s);
|
|
ACTION_METADATA[%s[ %s]] = ACTION_METADATA[ACTIONS[ %s]];
|
|
]==]):format(
|
|
\%class_identifier, repr(stub), table.concat(args, ", "),
|
|
body_lua,
|
|
repr(names), repr(\%line:get_line_no()), table.concat(args, ", "),
|
|
repr(repr(stub)), table.concat(arg_nomsus, ".."),
|
|
repr(nomsu:dedent(\%line:get_src())),
|
|
\%class_identifier, repr(stub), repr(stub)));
|
|
|
|
return ".."
|
|
do -- \%class_identifier
|
|
-- Create the class object:
|
|
local \%class_identifier = setmetatable({
|
|
name=\(%classname as lua), instances=setmetatable({}, {__mode="k"}),
|
|
}, {
|
|
__tostring=function(c) return c.name; end,
|
|
__call=function(cls, inst)
|
|
inst = inst or {};
|
|
inst.id = tostring(inst):match('table: (.*)');
|
|
setmetatable(inst, cls.instance_metatable);
|
|
cls.instances[inst] = true;
|
|
if inst['set % up'] then
|
|
inst['set % up'](inst);
|
|
end
|
|
return inst;
|
|
end,
|
|
});
|
|
\%class_identifier.class = \%class_identifier;
|
|
|
|
-- Define the methods:
|
|
\(%methods joined with "\n")
|
|
|
|
-- Define class methods for instantiating and accessing instances:
|
|
\%class_identifier.instance_metatable = {
|
|
__index=\%class_identifier,
|
|
__tostring=\%class_identifier['% as text'] or function(inst)
|
|
return "<"..inst.class.name..": "..inst.id..">";
|
|
end,
|
|
};
|
|
nomsu:define_action("instances of "..\%class_identifier.name, "lib/class.nom", function()
|
|
return utils.keys(\%class_identifier.instances);
|
|
end, "");
|
|
nomsu:define_action("new "..\%class_identifier.name.." %instance", "lib/class.nom", function(_instance)
|
|
return \%class_identifier(_instance);
|
|
end, "");
|
|
nomsu:define_action("new "..\%class_identifier.name, "lib/class.nom", function()
|
|
return \%class_identifier({});
|
|
end, "");
|
|
end -- End of definition of \%class_identifier
|
|
\("\n\n")
|
|
|