partialruby 0.1.0 → 0.2.0

data/CHANGELOG

@@ -1,3 +1,5 @@
+0.2.0	Refactor to use Ruby2Ruby for emulation logic
+
 0.1.0	First release
 
 		Spec and Basic AST emulation using ruby

data/Rakefile

@@ -6,13 +6,14 @@ require 'rake/gempackagetask'
 
 spec = Gem::Specification.new do |s|
   s.name = 'partialruby'
-  s.version = '0.1.0'
+  s.version = '0.2.0'
   s.author = 'Dario Seminara'
   s.email = 'robertodarioseminara@gmail.com'
   s.platform = Gem::Platform::RUBY
   s.summary = 'Ruby partial interpreter written in pure-ruby '
   s.homepage = "http://github.com/tario/partialruby"
   s.add_dependency "ruby_parser", ">= 2.0.6"
+  s.add_dependency "ruby2ruby", ">= 1.2.5"
   s.has_rdoc = true
   s.extra_rdoc_files = [ 'README' ]
   s.rdoc_options << '--main' << 'README'

data/lib/partialruby.rb

@@ -20,6 +20,7 @@ along with partialruby.  if not, see <http://www.gnu.org/licenses/>.
 =end
 require "rubygems"
 require "ruby_parser"
+require "ruby2ruby"
 
 module PartialRuby
 
@@ -86,382 +87,14 @@ module PartialRuby
   end
 
   class PureRubyContext < Context
-
-#    def handle_node_scope(tree, frame)
- #     run(tree[1], frame)
-  #  end
-
-    def ruby_emul_nil(tree)
-      "(nil)"
-    end
-
-    def ruby_emul_scope(tree)
-      emul tree[1]
-    end
-
-    def ruby_emul_block(tree)
-      last = nil
-
-      code = ""
-      tree[1..-1].each do  |subtree|
-        code << emul(subtree) << "\n"
-      end
-
-      code
-    end
-
-    def ruby_emul_hash(tree)
-      pairs = Array.new
-      (0..((tree.size - 1) / 2)-1).each do |i|
-        pairs << [ tree[i*2+1], tree[i*2+2] ]
-      end
-
-      "{" + pairs.map{|pair| "(#{emul pair.first})=>(#{emul pair.last} )" }.join(",") + "}"
-    end
-
-#    def handle_node_block(tree, frame)
- #     last = nil
-  #    tree[1..-1].each do  |subtree|
-   #     last = run(subtree, frame)
-    #  end
-
-     # last
-    #end
-
-    def ruby_emul_lasgn(tree)
-      varname = tree[1]
-      "#{varname} = ( #{emul(tree[2])} );"
-    end
-
-    def ruby_emul_lvar(tree)
-      varname = tree[1]
-      varname.to_s
-    end
-
-    def ruby_emul_const(tree)
-      tree[1].to_s
-    end
-
-    def ruby_emul_colon3(tree)
-      "::" + tree[1].to_s
-    end
-
-    def ruby_emul_colon2(tree)
-      "#{emul tree[1]}::#{tree[2]}"
-    end
-
-    def ruby_emul_class(tree)
-        classtree = tree[1]
-        subtree = tree[3]
-
-        classname = ""
-        if classtree.instance_of? Symbol then
-          classname = classtree
-        else
-          classname = emul classtree
-        end
-
-        return ("
-          class #{classname}
-            #{emul subtree}
-          end
-        ")
-    end
-
-    def ruby_emul_defs(tree)
-      methodname = tree[2]
-      args = tree[3]
-      "def (#{emul tree[1]}).#{methodname}(#{args[1..-1].map(&:to_s).join(",")})
-        #{emul tree[4]}
-      end
-      "
-    end
-
-    def ruby_emul_defn(tree)
-      method_name = tree[1]
-      args = tree[2]
-      impl = tree[3][1]
-
-      "def #{method_name}(#{args[1..-1].map(&:to_s).join(",")})
-          #{emul impl}
-        end
-      "
-    end
-
-    def ruby_emul_lit(tree)
-      obj = tree[1]
-      if obj.instance_of? Symbol or obj.instance_of? Fixnum or obj == nil or obj == true or obj == false
-      "(#{obj.inspect})"
-      else
-      "(#{object_ref tree[1]})"
-      end
-    end
-
-    def ruby_emul_str(tree)
-      "(#{tree[1].inspect})"
-    end
-
-    def ruby_emul_cdecl(tree)
-
-      if tree[1].instance_of? Sexp
-      "(#{emul tree[1]} = #{emul tree[2]})"
-      else
-      "(#{tree[1]} = #{emul tree[2]})"
-      end
-    end
-
-    def ruby_emul_dstr(tree)
-      firststr = tree[1]
-      retstr = firststr
-      tree[2..-1].each do |subtree|
-
-        subtreetype = subtree[0]
-
-        if subtreetype == :evstr
-          retstr << "\#{(#{emul subtree[1]})}"
-        else
-          retstr << "\#{(#{emul subtree})}"
-        end
-      end
-
-      '"' + retstr + '"'
-    end
-
-    def ruby_emul_array(tree)
-      "[" + tree[1..-1].map{ |subtree| "(" + emul(subtree) + ")" }.join(",") + "]"
-    end
-
-    def ruby_emul_self(tree)
-      "(self)"
-    end
-
-    def ruby_emul_true(tree)
-      "true"
-    end
-
-    def ruby_emul_false(tree)
-      "false"
-    end
-
-    def ruby_emul_if(tree)
-      "if (#{emul tree[1]}); (#{emul tree[2]}) else (#{emul tree[3]}) end"
-    end
-
-    def ruby_emul_while(tree)
-      "while (#{emul tree[1]}); (#{emul tree[2]}); end "
-    end
-
-    def process_args(tree)
-      nodetype = tree[0]
-      if nodetype == :lasgn
-        tree.last.to_s
-      elsif nodetype == :masgn
-        tree[1][1..-1].map {|subtree|
-          process_args(subtree)
-        }.join(",")
-      elsif nodetype == :splat
-        "*" + process_args(tree.last)
-      end
-
-    end
-
-    def ruby_emul_iter(tree)
-      callnode = tree[1]
-      innernode = tree[3]
-
-      arguments = tree[2]
-      argumentsstr = ""
-
-      if arguments
-        argumentsstr = "|" + process_args(arguments) + "|"
-      end
-      "#{emul callnode} { #{argumentsstr} #{emul innernode} }"
-    end
-
-    def ruby_emul_until(tree)
-      "until (#{emul tree[1]}); (#{emul tree[2]}); end "
-    end
-
-    def ruby_emul_case(tree)
-      str = "case #{emul tree[1]}; "
-
-      tree[2..-2].each do |subtree|
-        matches = subtree[1][1..-1].map{|subsubtree| "(" + emul(subsubtree) + ")" }.join(",")
-
-        str << "when #{matches}; #{emul subtree[2]};"
-      end
-
-      if tree[-1]
-        str << "else; #{emul tree[-1]}; "
-      end
-
-      str << "end; "
-      str
-    end
-
-    def ruby_emul_splat(tree)
-      "*(#{emul(tree[1])})"
-    end
-
-    def ruby_emul_ensure(tree)
-      "begin;
-         #{emul tree[1]}
-      ensure;
-        #{emul tree[2] }
-      end;
-      "
-    end
-
-    def ruby_emul_ivar(tree)
-      "(" + tree[1].to_s + ")"
-    end
-
-    def ruby_emul_iasgn(tree)
-      "(#{tree[1].to_s} = (#{emul tree[2]}))"
-    end
-
-    def ruby_emul_gvar(tree)
-      "(" + tree[1].to_s + ")"
-    end
-
-    def ruby_emul_gasgn(tree)
-      "(#{tree[1].to_s} = (#{emul tree[2]}))"
-    end
-
-    def ruby_emul_xstr(tree)
-      "`#{tree[1].gsub("`","")}`"
-    end
-
-    def ruby_emul_dxstr(tree)
-      firststr = tree[1]
-      retstr = firststr
-      tree[2..-1].each do |subtree|
-
-        subtreetype = subtree[0]
-
-        if subtreetype == :evstr
-          retstr << "\#{(#{emul subtree[1]})}"
-        else
-          retstr << "\#{(#{emul subtree})}"
-        end
-      end
-
-      '`' + retstr + '`'
-    end
-
-    def ruby_emul_yield(tree)
-
-      strargs = tree[1..-1].map{ |subtree|
-        if subtree[0] == :splat
-          "*(" + emul(subtree[1]) + ")"
-        else
-          "(" + emul(subtree) + ")"
-        end
-      }.join(",")
-
-      "(yield(#{strargs}))"
-    end
-
-    def ruby_emul_module(tree)
-
-      if tree[1].instance_of? Symbol
-        modulename = tree[1].to_s
-      else
-        modulename = emul tree[1]
-      end
-
-      "module #{modulename}
-        #{emul tree[2]}
-      end
-      "
-    end
-
-    def ruby_emul_rescue(tree)
-
-      resbody = tree[2][2]
-
-      strresbody = ""
-      if resbody
-        strresbody = emul resbody
-      else
-        strresbody = ""
-      end
-
-      exceptionarray = tree[2][1][1..-1]
-
-      exceptionstrarray = []
-
-      i = 0
-      while i < exceptionarray.size
-        if exceptionarray[i+1]
-          if exceptionarray[i+1][0] == :lasgn
-           exceptionstrarray << "(" + (emul(exceptionarray[i]) + ") => " + exceptionarray[i+1][1].to_s)
-            i = i + 1
-          else
-            exceptionstrarray << "(" + (emul(exceptionarray[i])) + ")"
-          end
-        else
-          exceptionstrarray << "(" + (emul(exceptionarray[i])) + ")"
-        end
-        i = i + 1
-      end
-
-      "begin;
-        #{emul tree[1]}
-      rescue #{exceptionstrarray.join(",")};
-        #{strresbody}
-      end;
-      "
-    end
-
-    def ruby_emul_return(tree)
-      "; return #{emul tree[1]}; "
-    end
-
-    def ruby_emul_and(tree)
-      "(#{emul tree[1]}) and (#{emul tree[2]})"
-    end
-
-    def ruby_emul_or(tree)
-      "(#{emul tree[1]}) or (#{emul tree[2]})"
+    def emul(tree)
+      Ruby2Ruby.new.process(tree)
     end
 
-    def ruby_emul_not(tree)
-      "not (#{emul tree[1]})"
+    def ruby_emul(tree)
+      Ruby2Ruby.new.process(tree)
     end
 
-    def ruby_emul_call(tree)
-        object_tree = tree[1]
-        method_name = tree[2]
-
-        arglisttree = tree[3]
-        arglist = arglisttree[1..-1]
-
-        argsstr = arglist.
-              map{|subtree|
-                if subtree[0] == :splat
-                  emul(subtree)
-                else
-                  "(" +  emul(subtree) + ")"
-                end
-                 }.
-              join(",")
-
-        if (object_tree)
-          if arglist.count == 0
-          "(#{emul(object_tree)}).#{method_name}"
-          else
-          "(#{emul(object_tree)}).#{method_name}(#{argsstr})"
-          end
-        else
-          if arglist.count == 0
-          "#{method_name}"
-          else
-          "#{method_name}(#{argsstr})"
-          end
-        end
-
-    end
   end
 
 #X.new.foo

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: partialruby
 version: !ruby/object:Gem::Version 
-  hash: 27
+  hash: 23
   prerelease: false
   segments: 
   - 0
-  - 1
+  - 2
   - 0
-  version: 0.1.0
+  version: 0.2.0
 platform: ruby
 authors: 
 - Dario Seminara
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-04-03 00:00:00 -03:00
+date: 2011-04-28 00:00:00 -03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -34,6 +34,22 @@ dependencies:
         version: 2.0.6
   type: :runtime
   version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: ruby2ruby
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 21
+        segments: 
+        - 1
+        - 2
+        - 5
+        version: 1.2.5
+  type: :runtime
+  version_requirements: *id002
 description: 
 email: robertodarioseminara@gmail.com
 executables: []