From f746ba34d799e6560df1aad1cad15a70b34914d1 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 22 Jan 2019 16:15:25 -0800
Subject: Moved all the text method stuff into text.moon instead of splitting
 across string2/containers. Modified the type stuff to output better type
 names and use (a Dict) and (a List) instead of (Dict) and (List). (Text) now
 also has a proper constructor. (assume) now also handles a bunch of different
 assumptions with smart error messages.

---
 nomsu_compiler.lua | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

(limited to 'nomsu_compiler.lua')

diff --git a/nomsu_compiler.lua b/nomsu_compiler.lua
index 542afe5..0b7de81 100644
--- a/nomsu_compiler.lua
+++ b/nomsu_compiler.lua
@@ -1,8 +1,3 @@
-local List, Dict, Text
-do
-  local _obj_0 = require('containers')
-  List, Dict, Text = _obj_0.List, _obj_0.Dict, _obj_0.Text
-end
 local unpack = unpack or table.unpack
 local match, sub, gsub, format, byte, find
 do
@@ -232,7 +227,7 @@ compile = function(self, tree)
           bit = bit[1]
         end
         if bit.type == "Block" then
-          bit_lua = LuaCode:from(bit.source, "List(function(add)", "\n    ", bit_lua, "\nend):joined()")
+          bit_lua = LuaCode:from(bit.source, "a_List(function(add)", "\n    ", bit_lua, "\nend):joined()")
         elseif bit.type ~= "Text" then
           bit_lua = LuaCode:from(bit.source, "tostring(", bit_lua, ")")
         end
@@ -257,8 +252,9 @@ compile = function(self, tree)
     end
     return lua
   elseif "List" == _exp_0 or "Dict" == _exp_0 then
+    local typename = "a_" .. tree.type
     if #tree == 0 then
-      return LuaCode:from(tree.source, tree.type, "{}")
+      return LuaCode:from(tree.source, typename, "{}")
     end
     local lua = LuaCode:from(tree.source)
     local chunks = 0
@@ -268,7 +264,7 @@ compile = function(self, tree)
         if chunks > 0 then
           lua:add(" + ")
         end
-        lua:add(tree.type, "(function(", (tree.type == 'List' and "add" or ("add, " .. ("add 1 ="):as_lua_id())), ")")
+        lua:add(typename, "(function(", (tree.type == 'List' and "add" or ("add, " .. ("add 1 ="):as_lua_id())), ")")
         lua:add("\n    ", self:compile(tree[i]), "\nend)")
         chunks = chunks + 1
         i = i + 1
@@ -301,9 +297,9 @@ compile = function(self, tree)
           i = i + 1
         end
         if items_lua:is_multiline() then
-          lua:add(LuaCode:from(items_lua.source, tree.type, "{\n    ", items_lua, "\n}"))
+          lua:add(LuaCode:from(items_lua.source, typename, "{\n    ", items_lua, "\n}"))
         else
-          lua:add(LuaCode:from(items_lua.source, tree.type, "{", items_lua, "}"))
+          lua:add(LuaCode:from(items_lua.source, typename, "{", items_lua, "}"))
         end
         chunks = chunks + 1
       end
-- 
cgit v1.2.3