refactoring

2016-07-16 12:09:15 +02:00
parent 55d7b78962
commit 3fcb107ff5
5 changed files with 89 additions and 101 deletions
@@ -0,0 +1,79 @@
+local wrap, unwrap = (function()
+    local null = {}
+    return function(value)
+        if value == nil then
+            return null
+        else
+            return value
+        end
+    end,
+    function(value)
+        if value == null then
+            return nil
+        else
+            return value
+        end
+    end
+end)()
+
+function Aux_module(name)
+    local data, is_public, public_interface, private_interface, public, private = {}, {}, {}, {}, {}, {}
+    setmetatable(public_interface, {
+        __newindex = function(_, key)
+            error('Illegal write of attribute "'..key..'" on public interface of "'..name..'"!')
+        end,
+        __index = function(_, key)
+            if data[key] == nil then
+                error('Access of undeclared attribute "'..key..'" on public interface of "'..name..'"!')
+            end
+            if is_public[key] then
+                return unwrap(data[key])
+            end
+        end,
+        __call = function(_, key)
+            return is_public[key]
+        end
+    })
+    setmetatable(private_interface, {
+        __newindex = function(_, key, value)
+            if data[key] == nil then
+                error('Assignment of undeclared attribute "'..key..'" on private interface of "'..name..'"!')
+            end
+            data[key] = wrap(value)
+        end,
+        __index = function(_, key)
+            if data[key] == nil then
+                error('Access of undeclared attribute "'..key..'" on private interface of "'..name..'"!')
+            end
+            return unwrap(data[key])
+        end,
+        __call = function(_, key)
+            return data[key] ~= nil
+        end
+    })
+    setmetatable(public, {
+        __newindex = function(_, key, value)
+            if data[key] ~= nil then
+                error('Multiple declarations of "'..key..'" in "'..name..'"!')
+            end
+            data[key] = wrap(value)
+            is_public[key] = true
+        end,
+        __index = function(_, key)
+            error('Illegal read of attribute "'..key..'" on public keyword in "'..name..'"!')
+        end,
+    })
+    setmetatable(private, {
+        __newindex = function(_, key, value)
+            if data[key] ~= nil then
+                error('Multiple declarations of "'..key..'" in "'..name..'"!')
+            end
+            data[key] = wrap(value)
+            is_public[key] = nil
+        end,
+        __index = function(_, key)
+            error('Illegal read of attribute "'..key..'" on private keyword in "'..name..'"!')
+        end,
+    })
+    return { public_interface, private_interface, public, private }
+end