refactoring

libs/module.lua

@@ -20,8 +20,9 @@ local _state, _public = {}, {[nop]=true}
 do
 	local function declare(self, public, type, name, value)
 		if _G.type(value) ~= 'function' and (not type or declaration_error()) then value, type = const(value), INDEX end
-		self[type][name] = self[type][name] and collision_error(name) or value
+		if self[type][name] then declaration_error() end
-		_public[value] = public
+		self[type][name], _public[value] = value, public
+		if self[CALL][name] and self[INDEX][name] then declaration_error() end
 	end
 
 	declaration = nop
@@ -78,26 +79,21 @@ do
 	env_mt = {__metatable=false}
 	function env_mt:__index(key) local state=_state[self]
 		if declaration(state, INDEX, key) then return self end
-		if intersection(PROPERTY, state.metadata[key] or 0) ~= 0 then
+		if state[INDEX][key] then
-			return state.getters[key]()
+			return state[INDEX][key]()
+		elseif state[CALL][key] then
+			return state[CALL][key]
 		else
-			local value = state.methods[key]
+			return _G[key]
-			if value ~= nil then return value else return _G[key] end
 		end
 	end
 	function env_mt:__newindex(key, value) local state=_state[self]
 		if declaration(state, NEWINDEX, key, value) then return end
-		local modifiers = state.metadata[key]
+		if state[NEWINDEX][key] then state[NEWINDEX][key](value) end
-		if modifiers then
+		declare(state, state.modifiers, key, value) -- TODO
-			if intersection(PROPERTY, modifiers) ~= 0 then
-				state.mutators[key](value)
-			end
-		else
-			declare(state, state.modifiers, key, value)
-		end
 	end
-	function env_mt:__call(key, ...)
+	function env_mt:__call(key, value)
-		declaration(_state[self], CALL, key, arg)
+		declaration(_state[self], CALL, key, value)
 	end
 end
 
@@ -119,8 +115,6 @@ end
 --	-- TODO new instance
 --end
 
-noop_mt = {__index=function() return nop end}
-
 function module(...)
 	local env, interface = setmetatable({}, env_mt), setmetatable({}, interface_mt)
 	local state; state = {
@@ -139,9 +133,12 @@ function module(...)
 	}
 	for i=1,arg.n do
 		local module = state[arg[i] or import_error()] or import_error()
-		for k, v in module.metadata do
+		local call, index, newindex = state[CALL], state[INDEX], state[NEWINDEX]
-			if intersection(PUBLIC, v) ~= 0 and (not state.metadata[k] or import_error()) then
+		for _, type in {CALL, INDEX, NEWINDEX} do
-				state.metadata[k], state.methods[k], state.mutators[k] = v, module.methods[k], module.mutators[k]
+			for k, f in module[type] do
+				if _public[f] and (not (call[k] or index[k] or newindex[k]) or import_error()) then
+					state[type] = f
+				end
 			end
 		end
 	end