rufus-lua-moon 0.2.0

data/vendor/lua/moonscript/types.lua

@@ -0,0 +1,237 @@
+module("moonscript.types", package.seeall)
+local util = require("moonscript.util")
+local data = require("moonscript.data")
+local insert = table.insert
+manual_return = data.Set({
+  "foreach",
+  "for",
+  "while",
+  "return"
+})
+cascading = data.Set({
+  "if",
+  "with",
+  "switch"
+})
+is_value = function(stm)
+  local compile, transform = moonscript.compile, moonscript.transform
+  return compile.Block:is_value(stm) or transform.Value:can_transform(stm)
+end
+comprehension_has_value = function(comp)
+  return is_value(comp[2])
+end
+ntype = function(node)
+  if type(node) ~= "table" then
+    return "value"
+  else
+    return node[1]
+  end
+end
+is_slice = function(node)
+  return ntype(node) == "chain" and ntype(node[#node]) == "slice"
+end
+local t = { }
+local node_types = {
+  class = {
+    {
+      "name",
+      "Tmp"
+    },
+    {
+      "body",
+      t
+    }
+  },
+  fndef = {
+    {
+      "args",
+      t
+    },
+    {
+      "whitelist",
+      t
+    },
+    {
+      "arrow",
+      "slim"
+    },
+    {
+      "body",
+      t
+    }
+  },
+  foreach = {
+    {
+      "names",
+      t
+    },
+    {
+      "iter"
+    },
+    {
+      "body",
+      { }
+    }
+  },
+  ["for"] = {
+    {
+      "name"
+    },
+    {
+      "bounds",
+      t
+    },
+    {
+      "body",
+      t
+    }
+  },
+  assign = {
+    {
+      "names",
+      t
+    },
+    {
+      "values",
+      t
+    }
+  },
+  declare = {
+    {
+      "names",
+      t
+    }
+  },
+  ["if"] = {
+    {
+      "cond",
+      t
+    },
+    {
+      "then",
+      t
+    }
+  }
+}
+local build_table
+build_table = function()
+  local key_table = { }
+  for name, args in pairs(node_types) do
+    local index = { }
+    for i, tuple in ipairs(args) do
+      local name = tuple[1]
+      index[name] = i + 1
+    end
+    key_table[name] = index
+  end
+  return key_table
+end
+local key_table = build_table()
+local make_builder
+make_builder = function(name)
+  local spec = node_types[name]
+  if not spec then
+    error("don't know how to build node: " .. name)
+  end
+  return function(props)
+    if props == nil then
+      props = { }
+    end
+    local node = {
+      name
+    }
+    for i, arg in ipairs(spec) do
+      local key, default_value = unpack(arg)
+      local val
+      if props[key] then
+        val = props[key]
+      else
+        val = default_value
+      end
+      if val == t then
+        val = { }
+      end
+      node[i + 1] = val
+    end
+    return node
+  end
+end
+build = nil
+build = setmetatable({
+  group = function(body)
+    return {
+      "group",
+      body
+    }
+  end,
+  ["do"] = function(body)
+    return {
+      "do",
+      body
+    }
+  end,
+  assign_one = function(name, value)
+    return build.assign({
+      names = {
+        name
+      },
+      values = {
+        value
+      }
+    })
+  end,
+  table = function(tbl)
+    if tbl == nil then
+      tbl = { }
+    end
+    return {
+      "table",
+      tbl
+    }
+  end,
+  block_exp = function(body)
+    return {
+      "block_exp",
+      body
+    }
+  end,
+  chain = function(parts)
+    local base = parts.base or error("expecting base property for chain")
+    local node = {
+      "chain",
+      base
+    }
+    local _list_0 = parts
+    for _index_0 = 1, #_list_0 do
+      local part = _list_0[_index_0]
+      insert(node, part)
+    end
+    return node
+  end
+}, {
+  __index = function(self, name)
+    self[name] = make_builder(name)
+    return rawget(self, name)
+  end
+})
+smart_node = function(node)
+  local index = key_table[ntype(node)]
+  if not index then
+    return node
+  end
+  return setmetatable(node, {
+    __index = function(node, key)
+      if index[key] then
+        return rawget(node, index[key])
+      elseif type(key) == "string" then
+        return error("unknown key: `" .. key .. "` on node type: `" .. ntype(node) .. "`")
+      end
+    end,
+    __newindex = function(node, key, value)
+      if index[key] then
+        key = index[key]
+      end
+      return rawset(node, key, value)
+    end
+  })
+end

data/vendor/lua/moonscript/util.lua

@@ -0,0 +1,101 @@
+module("moonscript.util", package.seeall)
+local concat = table.concat
+moon = {
+  is_object = function(value)
+    return type(value) == "table" and value.__class
+  end,
+  type = function(value)
+    local base_type = type(value)
+    if base_type == "table" then
+      local cls = value.__class
+      if cls then
+        return cls
+      end
+    end
+    return base_type
+  end
+}
+pos_to_line = function(str, pos)
+  local line = 1
+  for _ in str:sub(1, pos):gmatch("\n") do
+    line = line + 1
+  end
+  return line
+end
+get_closest_line = function(str, line_num)
+  local line = get_line(str, line_num)
+  if (not line or trim(line) == "") and line_num > 1 then
+    return get_closest_line(str, line_num - 1)
+  else
+    return line, line_num
+  end
+end
+get_line = function(str, line_num)
+  for line in str:gmatch("(.-)[\n$]") do
+    if line_num == 1 then
+      return line
+    end
+    line_num = line_num - 1
+  end
+end
+reversed = function(seq)
+  return coroutine.wrap(function()
+    for i = #seq, 1, -1 do
+      coroutine.yield(i, seq[i])
+    end
+  end)
+end
+trim = function(str)
+  return str:match("^%s*(.-)%s*$")
+end
+split = function(str, delim)
+  if str == "" then
+    return { }
+  end
+  str = str .. delim
+  return (function()
+    local _accum_0 = { }
+    local _len_0 = 0
+    for m in str:gmatch("(.-)" .. delim) do
+      _len_0 = _len_0 + 1
+      _accum_0[_len_0] = m
+    end
+    return _accum_0
+  end)()
+end
+dump = function(what)
+  local seen = { }
+  local _dump
+  _dump = function(what, depth)
+    if depth == nil then
+      depth = 0
+    end
+    local t = type(what)
+    if t == "string" then
+      return '"' .. what .. '"\n'
+    elseif t == "table" then
+      if seen[what] then
+        return "recursion(" .. tostring(what) .. ")...\n"
+      end
+      seen[what] = true
+      depth = depth + 1
+      local lines = (function()
+        local _accum_0 = { }
+        local _len_0 = 0
+        for k, v in pairs(what) do
+          local _value_0 = (" "):rep(depth * 4) .. "[" .. tostring(k) .. "] = " .. _dump(v, depth)
+          if _value_0 ~= nil then
+            _len_0 = _len_0 + 1
+            _accum_0[_len_0] = _value_0
+          end
+        end
+        return _accum_0
+      end)()
+      seen[what] = false
+      return "{\n" .. concat(lines) .. (" "):rep((depth - 1) * 4) .. "}\n"
+    else
+      return tostring(what) .. "\n"
+    end
+  end
+  return _dump(what)
+end

data/vendor/lua/moonscript/version.lua

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

metadata

@@ -0,0 +1,109 @@
+--- !ruby/object:Gem::Specification
+name: rufus-lua-moon
+version: !ruby/object:Gem::Version
+  version: 0.2.0
+platform: ruby
+authors:
+- Stas Ukolov
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-09-15 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rufus-lua
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Provides MoonScript for Rufus::Lua interpreter
+email:
+- ukoloff@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/rufus/lua/moon.rb
+- lib/rufus/lua/moon/version.rb
+- rufus-lua-moon.gemspec
+- vendor/lua/moon/all.moon
+- vendor/lua/moon/init.moon
+- vendor/lua/moonscript/compile.lua
+- vendor/lua/moonscript/compile/format.lua
+- vendor/lua/moonscript/compile/statement.lua
+- vendor/lua/moonscript/compile/value.lua
+- vendor/lua/moonscript/data.lua
+- vendor/lua/moonscript/dump.lua
+- vendor/lua/moonscript/errors.lua
+- vendor/lua/moonscript/init.lua
+- vendor/lua/moonscript/parse.lua
+- vendor/lua/moonscript/transform.lua
+- vendor/lua/moonscript/types.lua
+- vendor/lua/moonscript/util.lua
+- vendor/lua/moonscript/version.lua
+homepage: https://github.com/ukoloff/rufus-lua-moon
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: ''
+test_files: []