mlc 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 7f5180891d736d0301e0d224c4a69a838d27ec01
+  data.tar.gz: bf916019b350baf452630f349f35ded24dd4d8ba
+SHA512:
+  metadata.gz: 7c1ffa0d1997363b7938e9b62e941d1a847dd9ead1830212ec7c2dedb14480400e03a30808e3927bcc4971de26700ed7ef6b10da1ecd9262cce090b28192711a
+  data.tar.gz: 77c4773a513d5cdcfb3c8789c37af63355ebd2a520c084134966bb014b3f12e7466d531c5ae1649a9cc6255419497baaf716eee6bb6ce6f8c9e85283afc30193

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in mlc.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Kilobyte
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,29 @@
+# Mlc
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'mlc'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install mlc
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1 @@
+require 'bundler/gem_tasks'

data/bin/mlc.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+require 'optparse'
+
+nogem = false
+OptionParser.new do |opts|
+  opts.banner = 'Usage: mlc [flags] input... output'
+  opts.on('-g', '-nogem', 'Do not run as gem') do |v|
+    nogem = true
+  end
+end#.parse!
+
+$LOAD_PATH.unshift(File.expand_path(File.join(File.dirname(__FILE__), '../lib'))) if defined? $DEBUG && $DEBUG
+
+require 'mlc'
+
+if ARGV.length < 2
+  $stderr.puts 'Usage: input... output'
+  $stderr.puts 'Example: hello.rb world.rb out.lua'
+  exit 1
+end
+
+out = ARGV.pop
+outdata = []
+ARGV.each do |file|
+  outdata << Mlc::Compiler.new(File.read(ARGV[0])).parse!.to_lua
+end
+
+File.write(out, outdata.join("\n"))

data/lib/mlc.rb

@@ -0,0 +1,14 @@
+require 'mlc/version'
+require 'mlc/abstract'
+require 'mlc/compiler'
+require 'mlc/parserstate'
+
+module Mlc
+  def self.escape_str(str)
+    str.gsub('\\', '\\\\').gsub("'", "\\'")
+  end
+
+  def self.prepare_args(indent, options, state, args)
+    "(#{args.map {|el| el.to_lua(indent + 1, options, state)}.join ', '})"
+  end
+end

data/lib/mlc/abstract.rb

@@ -0,0 +1,5 @@
+module Mlc
+  module Abstract
+
+  end
+end

data/lib/mlc/abstract/block.rb

@@ -0,0 +1,18 @@
+module Mlc
+  module Abstract
+    class Block
+      def initialize
+        @children = []
+      end
+
+      def <<(child)
+        @children << child
+      end
+
+      def to_lua(indent, options, state)
+        i = '  ' * indent
+        i + @children.map {|el| el.to_lua(indent + 1, options, state)}.join("\n#{i}")
+      end
+    end
+  end
+end

data/lib/mlc/abstract/call.rb

@@ -0,0 +1,23 @@
+module Mlc
+  module Abstract
+    class Call
+      attr_accessor :object, :name
+      attr_reader :args
+      def initialize
+        @args = []
+      end
+
+      def to_lua(indent, options, state)
+        obj = @object.to_lua(indent + 1, options, state)
+        args = @args.dup.unshift Raw.new('nil')
+        name = "m#{@name}"
+        if name =~ /^[A-Za-z][A-Za-z0-1_]*$/
+          "#{obj}:#{name}#{Mlc.prepare_args(indent, options, state, args)}"
+        else
+          args.unshift Raw.new("'#{Mlc.escape_str(name)}'")
+          "#{obj}:_call#{Mlc.prepare_args(indent, options, state, args)}"
+        end
+      end
+    end
+  end
+end

data/lib/mlc/abstract/const.rb

@@ -0,0 +1,13 @@
+module Mlc
+  module Abstract
+    class Const
+      def initialize(name)
+        @name = name
+      end
+
+      def to_lua(indent, options, state)
+        "_const.#{@name}"
+      end
+    end
+  end
+end

data/lib/mlc/abstract/lasgn.rb

@@ -0,0 +1,16 @@
+module Mlc
+  module Abstract
+    class LAsgn
+      def initialize(name, value)
+        @name = name
+        @value = value
+      end
+
+      def to_lua(indent, options, state)
+        ret = "l#{@name.to_s} = #{@value.to_lua(indent + 1, options, state)}"
+        state.add_lvar @name
+        ret
+      end
+    end
+  end
+end

data/lib/mlc/abstract/literal.rb

@@ -0,0 +1,19 @@
+module Mlc
+  module Abstract
+    class Literal
+      def initialize(value)
+        @value = value
+      end
+
+      def to_lua(indent, options, state)
+        if @value.is_a? Symbol
+          "_.sym('#{Mlc.escape_str(@value.to_s)}')"
+        elsif @value.is_a? String
+          "_.wrap('#{Mlc.escape_str(@value)}')"
+        else
+          "_.wrap(#{@value.to_s})"
+        end
+      end
+    end
+  end
+end

data/lib/mlc/abstract/lvar.rb

@@ -0,0 +1,13 @@
+module Mlc
+  module Abstract
+    class LVar
+      def initialize(name)
+        @name = name
+      end
+
+      def to_lua(indent, options, state)
+        "l#{@name.to_s}"
+      end
+    end
+  end
+end

data/lib/mlc/abstract/raw.rb

@@ -0,0 +1,13 @@
+module Mlc
+  module Abstract
+    class Raw
+      def initialize(text)
+        @text = text
+      end
+
+      def to_lua(indent, options, state)
+        @text
+      end
+    end
+  end
+end

data/lib/mlc/abstract/snippet.rb

@@ -0,0 +1,29 @@
+module Mlc
+  module Abstract
+    class Snippet
+      def initialize
+        @children = []
+      end
+
+      def to_lua(opts = {})
+        template = <<URMOM
+(function (mlc)
+  local _scope, _global, _const, _ = mlc.scope, mlc.global, mlc.const, mlc.helpers
+LVARS
+STUFF
+
+end)(Mlc)
+URMOM
+        state = Mlc::ParserState.new
+        (opts[:require] ? "local Mlc = require('mlc')\n" : '') +
+          template.gsub('STUFF', @children.first.to_lua(1, opts, state)).
+          gsub('LVARS', state.lvars.empty? ? '' : "\n  #{state.lvars_define}")
+
+      end
+
+      def <<(child)
+        @children << child
+      end
+    end
+  end
+end

data/lib/mlc/compiler.rb

@@ -0,0 +1,80 @@
+require 'ruby_parser'
+require 'mlc/abstract/snippet'
+require 'mlc/abstract/call'
+require 'mlc/abstract/raw'
+require 'mlc/abstract/block'
+require 'mlc/abstract/literal'
+require 'mlc/abstract/const'
+require 'mlc/abstract/lasgn'
+require 'mlc/abstract/lvar'
+
+module Mlc
+  class Compiler
+    def initialize(code)
+      @tree = RubyParser.new.parse(code)
+    end
+
+    def parse!
+      puts (tree = @tree).inspect
+      snip = Mlc::Abstract::Snippet.new
+      if tree
+        snip << ensure_block(tree)
+      end
+      snip
+    end
+
+    def ensure_block(sexp)
+      unless sexp[0] == :block
+        sexp = Sexp.new :block, sexp
+      end
+      parse_block(sexp)
+    end
+
+    def parse(sexp)
+      if sexp.nil?
+        nil
+      else
+        send(('parse_' + sexp[0].to_s).to_sym, sexp)
+      end
+    end
+
+    def parse_block(sexp)
+      block = Abstract::Block.new
+      sexp[1..sexp.length].each do |el|
+        block << parse(el)
+      end
+      block
+    end
+
+    def parse_call(sexp)
+      call = Abstract::Call.new
+      call.object = parse(sexp[1]) || Abstract::Raw.new('self')
+      call.name = sexp[2]
+      sexp[3..sexp.length].each do |arg|
+        call.args << parse(arg)
+      end
+      call
+    end
+
+    def parse_str(sexp)
+      Abstract::Literal.new(sexp[1])
+    end
+
+    def parse_lit(sexp)
+      Abstract::Literal.new(sexp[1])
+    end
+
+    def parse_const(sexp)
+      Abstract::Const.new(sexp[1].to_s)
+    end
+
+    def parse_lasgn(sexp)
+      Abstract::LAsgn.new(sexp[1], parse(sexp[2]))
+    end
+
+    def parse_lvar(sexp)
+      Abstract::LVar.new(sexp[1])
+    end
+
+  end
+end

data/lib/mlc/parserstate.rb

@@ -0,0 +1,32 @@
+module Mlc
+  class ParserState
+
+    attr_reader :parent, :lvars
+
+    def initialize(parent = nil, inherit = true)
+      @tmpid = -1
+      @lvars = []
+      @parent = parent
+      @inherit = inherit
+    end
+
+    def tmpvar
+      "__tmp_#{@tmpid += 1}"
+    end
+
+    def add_lvar(name)
+      unless knows_lvar? name
+        @lvars << name
+      end
+    end
+
+    def knows_lvar?(name)
+      @lvars.include? name || (@inherit && @parent && @parent.knows_lvar?(name))
+    end
+
+    def lvars_define
+      @lvars.map{|el| 'l' + el.to_s}.join(', ')
+    end
+
+  end
+end

data/lib/mlc/version.rb

@@ -0,0 +1,3 @@
+module Mlc
+  VERSION = '0.0.1'
+end

data/mlc.gemspec

@@ -0,0 +1,25 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'mlc/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'mlc'
+  spec.version       = Mlc::VERSION
+  spec.authors       = ['Kilobyte']
+  spec.email         = ['stiepen22@gmx.de']
+  spec.description   = %q{Moonstone Lua Compiler}
+  spec.summary       = %q{I can compile ruby to lua}
+  spec.homepage      = ''
+  spec.license       = 'MIT'
+
+  spec.files         = `git ls-files`.split($/)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ['lib']
+
+  spec.add_development_dependency 'bundler', '~> 1.3'
+  spec.add_development_dependency 'rake'
+
+  spec.add_dependency 'ruby_parser'
+end

metadata

@@ -0,0 +1,107 @@
+--- !ruby/object:Gem::Specification
+name: mlc
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Kilobyte
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-06-23 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: ruby_parser
+  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: Moonstone Lua Compiler
+email:
+- stiepen22@gmx.de
+executables:
+- mlc.rb
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/mlc.rb
+- lib/mlc.rb
+- lib/mlc/abstract.rb
+- lib/mlc/abstract/block.rb
+- lib/mlc/abstract/call.rb
+- lib/mlc/abstract/const.rb
+- lib/mlc/abstract/lasgn.rb
+- lib/mlc/abstract/literal.rb
+- lib/mlc/abstract/lvar.rb
+- lib/mlc/abstract/raw.rb
+- lib/mlc/abstract/snippet.rb
+- lib/mlc/compiler.rb
+- lib/mlc/parserstate.rb
+- lib/mlc/version.rb
+- mlc.gemspec
+homepage: ''
+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.2.2
+signing_key: 
+specification_version: 4
+summary: I can compile ruby to lua
+test_files: []