big refactoring

This commit is contained in:
Manuel Simon Hirsig
2016-08-17 15:08:11 +02:00
parent 2a7dea236d
commit 3624c8c4c0
34 changed files with 357 additions and 447 deletions
+19 -4
View File
@@ -1,5 +1,14 @@
local PUBLIC, PRIVATE = 1, 2
local state = {}
local function_mt = {
__call = function(self, ...)
local f = state[self]
local temp = getfenv(f).__
getfenv(f).__ = {}
f(unpack(arg))
getfenv(f).__ = temp
end,
}
local interface_mt = {
__index = function(self, key)
if not state[self].access[state[self].type][key] then
@@ -30,11 +39,17 @@ local declarator_mt = {
end,
}
function aux_module()
local data, access = {}, {{}, {}}
local data, access = {}, {{}, {__=true}}
local public_state, private_state = {type=PUBLIC, data=data, access=access}, {type=PRIVATE, data=data, access=access}
local public_interface, private_interface = setmetatable({}, interface_mt), setmetatable({}, interface_mt)
local interface, private_interface = setmetatable({}, interface_mt), setmetatable({}, interface_mt)
local public_declarator, private_declarator = setmetatable({}, declarator_mt), setmetatable({}, declarator_mt)
state[public_interface], state[private_interface] = public_state, private_state
state[interface], state[private_interface] = public_state, private_state
state[public_declarator], state[private_declarator] = public_state, private_state
return public_interface, private_interface, public_declarator, private_declarator
local env = setmetatable({m=private_interface, public=public_declarator, private=private_declarator}, {__index=getfenv(0)})
-- public_state.env = env
-- private_state.env = env
setfenv(2, env)
return interface
end