50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
use "core"
|
|
|
|
lua> "CLASSES = {}"
|
|
|
|
immediately
|
|
compile [@, me] to: Lua value "self"
|
|
action [new %classname %inst]
|
|
=lua "setmetatable(\%inst, CLASSES[\%classname])"
|
|
immediately
|
|
parse [new %classname] as: new %classname {}
|
|
|
|
immediately
|
|
compile [call method %method] to: Lua value "self:\(%method as lua expr)"
|
|
|
|
parse [as %instance %body] as
|
|
result of
|
|
%old_self <- (me)
|
|
(me) <- %instance
|
|
try
|
|
%body
|
|
..and if it barfs %msg
|
|
(me) <- %old_self
|
|
barf %msg
|
|
..or if it succeeds
|
|
(me) <- %old_self
|
|
|
|
compile [object %classname %class_body] to
|
|
%lua <-
|
|
Lua ".."
|
|
do
|
|
local class = {name=\(%classname as lua expr)}
|
|
setmetatable(class, {__tostring=function(cls) return cls.name end})
|
|
CLASSES[class.name] = class
|
|
class.__index = class
|
|
class.class = class
|
|
|
|
if: %class_body.type != "Block"
|
|
%class_body <- [%class_body]
|
|
for %statement in %class_body
|
|
assume: (%statement.type is "Action") and (%statement.stub is "action % %")
|
|
to %lua write "\n class."
|
|
to %lua write (%statement as lua)
|
|
|
|
to %lua write ".."
|
|
|
|
class.__tostring = class["A"..string.as_lua_id("as text")]
|
|
end
|
|
|
|
return %lua
|