From 652c29bdef1f0991cc13bef59d6dc78b657ae9a4 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 8 Nov 2018 15:23:22 -0800
Subject: Major overhaul, splitting nomsu_compiler into nomsu_environment,
 nomsu_compiler, and nomsu_decompiler. Also added comprehensions.

---
 importer.lua | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 importer.lua

(limited to 'importer.lua')

diff --git a/importer.lua b/importer.lua
new file mode 100644
index 0000000..9b2c936
--- /dev/null
+++ b/importer.lua
@@ -0,0 +1,62 @@
+local import_to_1_from
+import_to_1_from = function(host, to_import)
+  do
+    local host_mt = getmetatable(host)
+    if host_mt then
+      if host_mt.__import then
+        host_mt.__import(host, to_import)
+        return 
+      end
+    end
+  end
+  for k, v in pairs(to_import) do
+    host[k] = v
+  end
+end
+local _imports = setmetatable({ }, {
+  __mode = "k"
+})
+local Importer = setmetatable({
+  __index = function(self, key)
+    return _imports[self][key]
+  end,
+  __import = function(self, to_import)
+    local imports = assert(_imports[self])
+    for k, v in pairs(to_import) do
+      local _continue_0 = false
+      repeat
+        imports[k] = v
+        if v == to_import then
+          _continue_0 = true
+          break
+        end
+        local conflict = self[k]
+        if type(conflict) == 'table' then
+          import_to_1_from(conflict, v)
+        end
+        _continue_0 = true
+      until true
+      if not _continue_0 then
+        break
+      end
+    end
+  end
+}, {
+  __call = function(self, t)
+    _imports[t] = { }
+    setmetatable(t, self)
+    return t
+  end
+})
+local _1_forked
+_1_forked = function(self)
+  local f = Importer({ })
+  _imports[f] = assert(_imports[self])
+  import_to_1_from(f, self)
+  return f
+end
+return {
+  Importer = Importer,
+  import_to_1_from = import_to_1_from,
+  _1_forked = _1_forked
+}
-- 
cgit v1.2.3