rufus-lua-moon 0.2.2 → 0.2.3

data/vendor/lua/moonscript/data.lua

@@ -1,5 +1,5 @@
-module("moonscript.data", package.seeall)
-local concat = table.concat
+local concat, remove, insert = table.concat, table.remove, table.insert
+local Set
 Set = function(items)
   local self = { }
   local _list_0 = items
@@ -9,6 +9,7 @@ Set = function(items)
   end
   return self
 end
+local Stack
 do
   local _parent_0 = nil
   local _base_0 = {
@@ -16,10 +17,10 @@ do
       return "<Stack {" .. concat(self, ", ") .. "}>"
     end,
     pop = function(self)
-      return table.remove(self)
+      return remove(self)
     end,
     push = function(self, value)
-      table.insert(self, value)
+      insert(self, value)
       return value
     end,
     top = function(self)
@@ -65,7 +66,7 @@ do
   end
   Stack = _class_0
 end
-lua_keywords = Set({
+local lua_keywords = Set({
   'and',
   'break',
   'do',
@@ -88,4 +89,8 @@ lua_keywords = Set({
   'until',
   'while'
 })
-return nil
+return {
+  Set = Set,
+  Stack = Stack,
+  lua_keywords = lua_keywords
+}

data/vendor/lua/moonscript/dump.lua

@@ -1,4 +1,3 @@
-module("moonscript.dump", package.seeall)
 local flat_value
 flat_value = function(op, depth)
   if depth == nil then
@@ -12,21 +11,23 @@ flat_value = function(op, depth)
   end
   local items = (function()
     local _accum_0 = { }
-    local _len_0 = 0
+    local _len_0 = 1
     local _list_0 = op
     for _index_0 = 1, #_list_0 do
       local item = _list_0[_index_0]
-      _len_0 = _len_0 + 1
       _accum_0[_len_0] = flat_value(item, depth + 1)
+      _len_0 = _len_0 + 1
     end
     return _accum_0
   end)()
   local pos = op[-1]
   return "{" .. (pos and "[" .. pos .. "] " or "") .. table.concat(items, ", ") .. "}"
 end
+local value
 value = function(op)
   return flat_value(op)
 end
+local tree
 tree = function(block)
   local _list_0 = block
   for _index_0 = 1, #_list_0 do
@@ -34,3 +35,7 @@ tree = function(block)
     print(flat_value(value))
   end
 end
+return {
+  value = value,
+  tree = tree
+}

data/vendor/lua/moonscript/errors.lua

@@ -1,9 +1,14 @@
-module("moonscript.errors", package.seeall)
-local moon = require("moonscript")
 local util = require("moonscript.util")
-require("lpeg")
+local lpeg = require("lpeg")
 local concat, insert = table.concat, table.insert
 local split, pos_to_line = util.split, util.pos_to_line
+local user_error
+user_error = function(...)
+  return error({
+    "user-error",
+    ...
+  })
+end
 local lookup_line
 lookup_line = function(fname, pos, cache)
   if not cache[fname] then
@@ -24,6 +29,7 @@ reverse_line_number = function(fname, line_table, line_num, cache)
   end
   return "unknown"
 end
+local truncate_traceback
 truncate_traceback = function(traceback, chunk_func)
   if chunk_func == nil then
     chunk_func = "moonscript_chunk"
@@ -38,13 +44,13 @@ truncate_traceback = function(traceback, chunk_func)
   end
   traceback = (function()
     local _accum_0 = { }
-    local _len_0 = 0
+    local _len_0 = 1
     local _list_0 = traceback
     local _max_0 = stop
     for _index_0 = 1, _max_0 < 0 and #_list_0 + _max_0 or _max_0 do
       local t = _list_0[_index_0]
-      _len_0 = _len_0 + 1
       _accum_0[_len_0] = t
+      _len_0 = _len_0 + 1
     end
     return _accum_0
   end)()
@@ -52,8 +58,9 @@ truncate_traceback = function(traceback, chunk_func)
   traceback[#traceback] = traceback[#traceback]:gsub(rep, "main chunk")
   return concat(traceback, "\n")
 end
+local rewrite_traceback
 rewrite_traceback = function(text, err)
-  local line_tables = moon.line_tables
+  local line_tables = require("moonscript.line_tables")
   local V, S, Ct, C = lpeg.V, lpeg.S, lpeg.Ct, lpeg.C
   local header_text = "stack traceback:"
   local Header, Line = V("Header"), V("Line")
@@ -97,3 +104,8 @@ rewrite_traceback = function(text, err)
     "\t" .. concat(match, "\n\t")
   }, "\n")
 end
+return {
+  rewrite_traceback = rewrite_traceback,
+  truncate_traceback = truncate_traceback,
+  user_error = user_error
+}

data/vendor/lua/moonscript/init.lua

@@ -1,14 +1,16 @@
-module("moonscript", package.seeall)
-require("moonscript.compile")
-require("moonscript.parse")
-require("moonscript.util")
+local compile = require("moonscript.compile")
+local parse = require("moonscript.parse")
 local concat, insert = table.concat, table.insert
-local split, dump = util.split, util.dump
+local split, dump, get_options, unpack
+do
+  local _table_0 = require("moonscript.util")
+  split, dump, get_options, unpack = _table_0.split, _table_0.dump, _table_0.get_options, _table_0.unpack
+end
 local lua = {
   loadstring = loadstring
 }
-dirsep = "/"
-line_tables = { }
+local dirsep = "/"
+local line_tables = require("moonscript.line_tables")
 local create_moonpath
 create_moonpath = function(package_path)
   local paths = split(package_path, ";")
@@ -20,6 +22,7 @@ create_moonpath = function(package_path)
   end
   return concat(paths, ";")
 end
+local to_lua
 to_lua = function(text, options)
   if options == nil then
     options = { }
@@ -38,6 +41,7 @@ to_lua = function(text, options)
   end
   return code, ltable
 end
+local moon_loader
 moon_loader = function(name)
   local name_path = name:gsub("%.", dirsep)
   local file, file_path = nil, nil
@@ -63,15 +67,15 @@ if not package.moonpath then
 end
 local init_loader
 init_loader = function()
-  return insert(package.loaders, 2, moon_loader)
+  return insert(package.loaders or package.searchers, 2, moon_loader)
 end
-if not _G.moon_no_loader then
+if not (_G.moon_no_loader) then
   init_loader()
 end
-loadstring = function(str, chunk_name, options)
-  if options == nil then
-    options = nil
-  end
+local loadstring
+loadstring = function(...)
+  local options, str, chunk_name, mode, env = get_options(...)
+  chunk_name = chunk_name or "=(moonscript.loadstring)"
   local passed, code, ltable = pcall(function()
     return to_lua(str, options)
   end)
@@ -81,21 +85,33 @@ loadstring = function(str, chunk_name, options)
   if chunk_name then
     line_tables[chunk_name] = ltable
   end
-  return lua.loadstring(code, chunk_name or "=(moonscript.loadstring)")
+  return (lua.loadstring or lua.load)(code, chunk_name, unpack({
+    mode,
+    env
+  }))
 end
-loadfile = function(fname, options)
-  if options == nil then
-    options = nil
-  end
+local loadfile
+loadfile = function(fname, ...)
   local file, err = io.open(fname)
   if not file then
     return nil, err
   end
   local text = assert(file:read("*a"))
   file:close()
-  return loadstring(text, fname, options)
+  return loadstring(text, fname, ...)
 end
-dofile = function(fname, options)
-  local f = assert(loadfile(fname))
+local dofile
+dofile = function(...)
+  local f = assert(loadfile(...))
   return f()
 end
+return {
+  _NAME = "moonscript",
+  to_lua = to_lua,
+  moon_chunk = moon_chunk,
+  moon_loader = moon_loader,
+  dirsep = dirsep,
+  dofile = dofile,
+  loadfile = loadfile,
+  loadstring = loadstring
+}

data/vendor/lua/moonscript/line_tables.lua

@@ -0,0 +1 @@
+return { }

data/vendor/lua/moonscript/parse.lua

@@ -1,8 +1,7 @@
-module("moonscript.parse", package.seeall)
 
 local util = require"moonscript.util"
 
-require"lpeg"
+local lpeg = require"lpeg"
 
 local debug_grammar = false
 
@@ -14,6 +13,10 @@ local ntype = types.ntype
 local dump = util.dump
 local trim = util.trim
 
+local getfenv = util.getfenv
+local setfenv = util.setfenv
+local unpack = util.unpack
+
 local Stack = data.Stack
 
 local function count_indent(str)
@@ -49,7 +52,10 @@ local _Name = C(R("az", "AZ", "__") * AlphaNum^0)
 local Name = Space * _Name
 
 local Num = P"0x" * R("09", "af", "AF")^1 +
-	R"09"^1 * (P"." * R"09"^1)^-1 * (S"eE" * P"-"^-1 * R"09"^1)^-1
+	(
+		R"09"^1 * (P"." * R"09"^1)^-1 +
+		P"." * R"09"^1
+	) * (S"eE" * P"-"^-1 * R"09"^1)^-1
 
 Num = Space * (Num / function(value) return {"number", value} end)
 
@@ -117,7 +123,7 @@ local function wrap_env(fn)
 	}))
 end
 
-function extract_line(str, start_pos)
+local function extract_line(str, start_pos)
 	str = str:sub(start_pos)
 	m = str:match"^(.-)\n"
 	if m then return m end
@@ -170,7 +176,8 @@ local _chain_assignable = { index = true, dot = true, slice = true }
 local function is_assignable(node)
 	local t = ntype(node)
 	return t == "self" or t == "value" or t == "self_class" or
-		t == "chain" and _chain_assignable[ntype(node[#node])]
+		t == "chain" and _chain_assignable[ntype(node[#node])] or
+		t == "table"
 end
 
 local function check_assignable(str, pos, value)
@@ -400,7 +407,7 @@ local build_grammar = wrap_env(function()
 		PopIndent = Cmt("", pop_indent),
 		InBlock = Advance * Block * PopIndent,
 
-		Local = key"local" * Ct(NameList) / mark"declare_with_shadows",
+		Local = key"local" * ((op"*" + op"^") / mark"declare_glob" + Ct(NameList) / mark"declare_with_shadows"),
 
 		Import = key"import" *  Ct(ImportNameList) * key"from" * Exp / mark"import",
 		ImportName = (sym"\\" * Ct(Cc"colon_stub" * Name) + Name),
@@ -418,7 +425,7 @@ local build_grammar = wrap_env(function()
 		Switch = key"switch" * DisableDo * ensure(Exp, PopDo) * key"do"^-1 * Space^-1 * Break * SwitchBlock / mark"switch",
 
 		SwitchBlock = EmptyLine^0 * Advance * Ct(SwitchCase * (Break^1 * SwitchCase)^0 * (Break^1 * SwitchElse)^-1) * PopIndent,
-		SwitchCase = key"when" * Exp * key"then"^-1 * Body / mark"case",
+		SwitchCase = key"when" * Ct(ExpList) * key"then"^-1 * Body / mark"case",
 		SwitchElse = key"else" * Body / mark"else",
 
 		IfCond = Exp * Assign^-1 / format_single_assign,
@@ -435,7 +442,7 @@ local build_grammar = wrap_env(function()
 		For = key"for" * DisableDo * ensure(Name * sym"=" * Ct(Exp * sym"," * Exp * (sym"," * Exp)^-1), PopDo) *
 			key"do"^-1 * Body / mark"for",
 
-		ForEach = key"for" * Ct(NameList) * key"in" * DisableDo * ensure(Ct(sym"*" * Exp / mark"unpack" + ExpList), PopDo) * key"do"^-1 * Body / mark"foreach",
+		ForEach = key"for" * Ct(AssignableNameList) * key"in" * DisableDo * ensure(Ct(sym"*" * Exp / mark"unpack" + ExpList), PopDo) * key"do"^-1 * Body / mark"foreach",
 
 		Do = key"do" * Body / mark"do",
 
@@ -443,9 +450,10 @@ local build_grammar = wrap_env(function()
 
 		TblComprehension = sym"{" * Ct(Exp * (sym"," * Exp)^-1) * CompInner * sym"}" / mark"tblcomprehension",
 
-		CompInner = Ct(CompFor * CompClause^0),
-		CompFor = key"for" * Ct(NameList) * key"in" * (sym"*" * Exp / mark"unpack" + Exp) / mark"for",
-		CompClause = CompFor + key"when" * Exp / mark"when",
+		CompInner = Ct((CompForEach + CompFor) * CompClause^0),
+		CompForEach = key"for" * Ct(NameList) * key"in" * (sym"*" * Exp / mark"unpack" + Exp) / mark"foreach",
+		CompFor = key "for" * Name * sym"=" * Ct(Exp * sym"," * Exp * (sym"," * Exp)^-1) / mark"for",
+		CompClause = CompFor + CompForEach + key"when" * Exp / mark"when",
 
 		Assign = sym"=" * (Ct(With + If + Switch) + Ct(TableBlock + ExpListLow)) / mark"assign",
 		Update = ((sym"..=" + sym"+=" + sym"-=" + sym"*=" + sym"/=" + sym"%=" + sym"or=" + sym"and=") / trim) * Exp / mark"update",
@@ -552,7 +560,7 @@ local build_grammar = wrap_env(function()
 		TableBlockInner = Ct(KeyValueLine * (SpaceBreak^1 * KeyValueLine)^0),
 		TableBlock = SpaceBreak^1 * Advance * ensure(TableBlockInner, PopIndent) / mark"table",
 
-		ClassDecl = key"class" * (Assignable + Cc(nil)) * (key"extends" * PreventIndent * ensure(Exp, PopIndent) + C"")^-1 * (ClassBlock + Ct("")) / mark"class",
+		ClassDecl = key"class" * -P":" * (Assignable + Cc(nil)) * (key"extends" * PreventIndent * ensure(Exp, PopIndent) + C"")^-1 * (ClassBlock + Ct("")) / mark"class",
 
 		ClassBlock = SpaceBreak^1 * Advance *
 			Ct(ClassLine * (SpaceBreak^1 * ClassLine)^0) * PopIndent,
@@ -575,7 +583,7 @@ local build_grammar = wrap_env(function()
 			(key"using" * Ct(NameList + Space * "nil") + Ct"") *
 			sym")" + Ct"" * Ct"",
 
-		FnArgDefList =  FnArgDef * (sym"," * FnArgDef)^0,
+		FnArgDefList = FnArgDef * (sym"," * FnArgDef)^0,
 		FnArgDef = Ct(Name * (sym"=" * Exp)^-1),
 
 		FunLit = FnArgsDef *
@@ -583,6 +591,9 @@ local build_grammar = wrap_env(function()
 			(Body + Ct"") / mark"fndef",
 
 		NameList = Name * (sym"," * Name)^0,
+		NameOrDestructure = Name + TableLit,
+		AssignableNameList = NameOrDestructure * (sym"," * NameOrDestructure)^0,
+
 		ExpList = Exp * (sym"," * Exp)^0,
 		ExpListLow = Exp * ((sym"," + sym";") * Exp)^0,
 
@@ -632,13 +643,16 @@ local build_grammar = wrap_env(function()
 			return tree
 		end
 	}
-
 end)
 
--- parse a string
--- returns tree, or nil and error message
-function string(str)
-	local g = build_grammar()
-	return g:match(str)
-end
+return {
+	extract_line = extract_line,
+
+	-- parse a string
+	-- returns tree, or nil and error message
+	string = function (str)
+		local g = build_grammar()
+		return g:match(str)
+	end
+}
 

data/vendor/lua/moonscript/transform/destructure.lua

@@ -0,0 +1,234 @@
+local ntype, mtype, build
+do
+  local _table_0 = require("moonscript.types")
+  ntype, mtype, build = _table_0.ntype, _table_0.mtype, _table_0.build
+end
+local NameProxy
+do
+  local _table_0 = require("moonscript.transform.names")
+  NameProxy = _table_0.NameProxy
+end
+local insert = table.insert
+local unpack
+do
+  local _table_0 = require("moonscript.util")
+  unpack = _table_0.unpack
+end
+local user_error
+do
+  local _table_0 = require("moonscript.errors")
+  user_error = _table_0.user_error
+end
+local join
+join = function(...)
+  do
+    local _with_0 = { }
+    local out = _with_0
+    local i = 1
+    local _list_0 = {
+      ...
+    }
+    for _index_0 = 1, #_list_0 do
+      local tbl = _list_0[_index_0]
+      local _list_1 = tbl
+      for _index_1 = 1, #_list_1 do
+        local v = _list_1[_index_1]
+        out[i] = v
+        i = i + 1
+      end
+    end
+    return _with_0
+  end
+end
+local has_destructure
+has_destructure = function(names)
+  local _list_0 = names
+  for _index_0 = 1, #_list_0 do
+    local n = _list_0[_index_0]
+    if ntype(n) == "table" then
+      return true
+    end
+  end
+  return false
+end
+local extract_assign_names
+extract_assign_names = function(name, accum, prefix)
+  if accum == nil then
+    accum = { }
+  end
+  if prefix == nil then
+    prefix = { }
+  end
+  local i = 1
+  local _list_0 = name[2]
+  for _index_0 = 1, #_list_0 do
+    local tuple = _list_0[_index_0]
+    local value, suffix
+    if #tuple == 1 then
+      local s = {
+        "index",
+        {
+          "number",
+          i
+        }
+      }
+      i = i + 1
+      value, suffix = tuple[1], s
+    else
+      local key = tuple[1]
+      local s
+      if ntype(key) == "key_literal" then
+        s = {
+          "dot",
+          key[2]
+        }
+      else
+        s = {
+          "index",
+          key
+        }
+      end
+      value, suffix = tuple[2], s
+    end
+    suffix = join(prefix, {
+      suffix
+    })
+    local t = ntype(value)
+    if t == "value" or t == "chain" or t == "self" then
+      insert(accum, {
+        value,
+        suffix
+      })
+    elseif t == "table" then
+      extract_assign_names(value, accum, suffix)
+    else
+      user_error("Can't destructure value of type: " .. tostring(ntype(value)))
+    end
+  end
+  return accum
+end
+local build_assign
+build_assign = function(destruct_literal, receiver)
+  local extracted_names = extract_assign_names(destruct_literal)
+  local names = { }
+  local values = { }
+  local inner = {
+    "assign",
+    names,
+    values
+  }
+  local obj
+  if mtype(receiver) == NameProxy then
+    obj = receiver
+  else
+    do
+      local _with_0 = NameProxy("obj")
+      obj = _with_0
+      inner = build["do"]({
+        build.assign_one(obj, receiver),
+        {
+          "assign",
+          names,
+          values
+        }
+      })
+      obj = _with_0
+    end
+  end
+  local _list_0 = extracted_names
+  for _index_0 = 1, #_list_0 do
+    local tuple = _list_0[_index_0]
+    insert(names, tuple[1])
+    insert(values, obj:chain(unpack(tuple[2])))
+  end
+  return build.group({
+    {
+      "declare",
+      names
+    },
+    inner
+  })
+end
+local split_assign
+split_assign = function(assign)
+  local names, values = unpack(assign, 2)
+  local g = { }
+  local total_names = #names
+  local total_values = #values
+  local start = 1
+  for i, n in ipairs(names) do
+    if ntype(n) == "table" then
+      if i > start then
+        local stop = i - 1
+        insert(g, {
+          "assign",
+          (function()
+            local _accum_0 = { }
+            local _len_0 = 1
+            for i = start, stop do
+              _accum_0[_len_0] = names[i]
+              _len_0 = _len_0 + 1
+            end
+            return _accum_0
+          end)(),
+          (function()
+            local _accum_0 = { }
+            local _len_0 = 1
+            for i = start, stop do
+              _accum_0[_len_0] = values[i]
+              _len_0 = _len_0 + 1
+            end
+            return _accum_0
+          end)()
+        })
+      end
+      insert(g, build_assign(n, values[i]))
+      start = i + 1
+    end
+  end
+  if total_names >= start or total_values >= start then
+    local name_slice
+    if total_names < start then
+      name_slice = {
+        "_"
+      }
+    else
+      name_slice = (function()
+        local _accum_0 = { }
+        local _len_0 = 1
+        for i = start, total_names do
+          _accum_0[_len_0] = names[i]
+          _len_0 = _len_0 + 1
+        end
+        return _accum_0
+      end)()
+    end
+    local value_slice
+    if total_values < start then
+      value_slice = {
+        "nil"
+      }
+    else
+      value_slice = (function()
+        local _accum_0 = { }
+        local _len_0 = 1
+        for i = start, total_values do
+          _accum_0[_len_0] = values[i]
+          _len_0 = _len_0 + 1
+        end
+        return _accum_0
+      end)()
+    end
+    insert(g, {
+      "assign",
+      name_slice,
+      value_slice
+    })
+  end
+  return build.group(g)
+end
+return {
+  has_destructure = has_destructure,
+  split_assign = split_assign,
+  build_assign = build_assign
+}