rufus-lua-moon 0.2.0 → 0.2.2

data/vendor/lua/moonscript/types.lua

@@ -10,8 +10,11 @@ manual_return = data.Set({
 })
 cascading = data.Set({
   "if",
+  "unless",
   "with",
-  "switch"
+  "switch",
+  "class",
+  "do"
 })
 is_value = function(stm)
   local compile, transform = moonscript.compile, moonscript.transform
@@ -21,12 +24,18 @@ comprehension_has_value = function(comp)
   return is_value(comp[2])
 end
 ntype = function(node)
-  if type(node) ~= "table" then
-    return "value"
-  else
+  local _exp_0 = type(node)
+  if "nil" == _exp_0 then
+    return "nil"
+  elseif "table" == _exp_0 then
     return node[1]
+  else
+    return "value"
   end
 end
+value_is_singular = function(node)
+  return type(node) ~= "table" or node[1] ~= "exp" or #node == 2
+end
 is_slice = function(node)
   return ntype(node) == "chain" and ntype(node[#node]) == "slice"
 end
@@ -70,7 +79,7 @@ local node_types = {
     },
     {
       "body",
-      { }
+      t
     }
   },
   ["for"] = {
@@ -86,6 +95,16 @@ local node_types = {
       t
     }
   },
+  ["while"] = {
+    {
+      "cond",
+      t
+    },
+    {
+      "body",
+      t
+    }
+  },
   assign = {
     {
       "names",
@@ -116,13 +135,13 @@ local node_types = {
 local build_table
 build_table = function()
   local key_table = { }
-  for name, args in pairs(node_types) do
+  for node_name, args in pairs(node_types) do
     local index = { }
     for i, tuple in ipairs(args) do
-      local name = tuple[1]
-      index[name] = i + 1
+      local prop_name = tuple[1]
+      index[prop_name] = i + 1
     end
-    key_table[name] = index
+    key_table[node_name] = index
   end
   return key_table
 end
@@ -159,6 +178,9 @@ end
 build = nil
 build = setmetatable({
   group = function(body)
+    if body == nil then
+      body = { }
+    end
     return {
       "group",
       body
@@ -184,6 +206,16 @@ build = setmetatable({
     if tbl == nil then
       tbl = { }
     end
+    local _list_0 = tbl
+    for _index_0 = 1, #_list_0 do
+      local tuple = _list_0[_index_0]
+      if type(tuple[1]) == "string" then
+        tuple[1] = {
+          "key_literal",
+          tuple[1]
+        }
+      end
+    end
     return {
       "table",
       tbl
@@ -235,3 +267,4 @@ smart_node = function(node)
     end
   })
 end
+return nil

data/vendor/lua/moonscript/util.lua

@@ -31,7 +31,7 @@ get_closest_line = function(str, line_num)
   end
 end
 get_line = function(str, line_num)
-  for line in str:gmatch("(.-)[\n$]") do
+  for line in str:gmatch("([^\n]*)\n?") do
     if line_num == 1 then
       return line
     end
@@ -99,3 +99,40 @@ dump = function(what)
   end
   return _dump(what)
 end
+debug_posmap = function(posmap, moon_code, lua_code)
+  local tuples = (function()
+    local _accum_0 = { }
+    local _len_0 = 0
+    for k, v in pairs(posmap) do
+      _len_0 = _len_0 + 1
+      _accum_0[_len_0] = {
+        k,
+        v
+      }
+    end
+    return _accum_0
+  end)()
+  table.sort(tuples, function(a, b)
+    return a[1] < b[1]
+  end)
+  local lines = (function()
+    local _accum_0 = { }
+    local _len_0 = 0
+    local _list_0 = tuples
+    for _index_0 = 1, #_list_0 do
+      local pair = _list_0[_index_0]
+      local lua_line, pos = unpack(pair)
+      local moon_line = pos_to_line(moon_code, pos)
+      local lua_text = get_line(lua_code, lua_line)
+      local moon_text = get_closest_line(moon_code, moon_line)
+      local _value_0 = tostring(pos) .. "\t " .. tostring(lua_line) .. ":[ " .. tostring(trim(lua_text)) .. " ] >> " .. tostring(moon_line) .. ":[ " .. tostring(trim(moon_text)) .. " ]"
+      if _value_0 ~= nil then
+        _len_0 = _len_0 + 1
+        _accum_0[_len_0] = _value_0
+      end
+    end
+    return _accum_0
+  end)()
+  return concat(lines, "\n")
+end
+return nil

data/vendor/lua/moonscript/version.lua

@@ -1,7 +1,7 @@
 
 module("moonscript.version", package.seeall)
 
-version = "0.2.0"
+version = "0.2.2"
 function print_version()
 	print("MoonScript version "..version)
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: rufus-lua-moon
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 0.2.2
 platform: ruby
 authors:
 - Stas Ukolov