b53516c47c
streamlining), added a .stub member to Action trees, and switched Source's repr to be @filename[start:stop] instead of "filename[start:stop]"
55 lines
1.6 KiB
Plaintext
55 lines
1.6 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 {}
|
|
|
|
parse [as %instance %body] as
|
|
lua> "local self;"
|
|
do
|
|
using
|
|
lua> ".."
|
|
self = \%instance
|
|
local cls = self.class
|
|
local old_self = self.class:set_self(self)
|
|
ACTIONS = cls.ACTIONS
|
|
COMPILE_ACTIONS = cls.COMPILE_ACTIONS
|
|
ARG_ORDERS = cls.ARG_ORDERS
|
|
..do
|
|
%body
|
|
..then always
|
|
lua> ".."
|
|
self.class:set_self(old_self)
|
|
|
|
parse [object %classname %class_body] as
|
|
using
|
|
%cls <- {..}
|
|
name:%classname
|
|
ACTIONS:=lua "ACTIONS", COMPILE_ACTIONS:=lua "COMPILE_ACTIONS"
|
|
ARG_ORDERS:=lua "ARG_ORDERS"
|
|
(=lua "CLASSES").%classname <- %cls
|
|
lua> ".."
|
|
setmetatable(\%cls, {__tostring=function() return \%classname end})
|
|
local self = nil
|
|
\%cls.set_self = function(_, inst)
|
|
local old_self = self
|
|
self = inst
|
|
return old_self
|
|
end
|
|
\%cls.__index = \%cls
|
|
\%cls.class = \%cls
|
|
%class_body
|
|
run ".."
|
|
action [new \%classname %inst]
|
|
say "NEWING"
|
|
return: =lua "setmetatable(\\%inst, \\%cls)"
|
|
lua> ".."
|
|
if ACTIONS["as text"] then
|
|
\%cls.__tostring = ACTIONS["as text"]
|
|
end
|