rubinius-compiler 2.1.0 → 2.1.1

data/spec/transforms/invoke_primitive_spec.rb

@@ -0,0 +1,14 @@
+describe "A Call node using InvokePrimitive transform" do
+  relates <<-ruby do
+      Rubinius.invoke_primitive :name, 1, 2, a
+    ruby
+
+    compile :invoke_primitive do |g|
+      g.push 1
+      g.push 2
+      g.push :self
+      g.send :a, 0, true
+      g.invoke_primitive :name, 3
+    end
+  end
+end

data/spec/transforms/kernel_methods_spec.rb

@@ -0,0 +1,29 @@
+describe "A Call node using kernel_methods transform" do
+  relates "4 / 2" do
+    compile do |g|
+      g.push 4
+      g.push 2
+      g.send :/, 1, false
+    end
+
+    compile :kernel_methods do |g|
+      g.push 4
+      g.push 2
+      g.send :divide, 1, false
+    end
+  end
+
+  relates "a.class" do
+    compile do |g|
+      g.push :self
+      g.send :a, 0, true
+      g.send :class, 0, false
+    end
+
+    compile :kernel_methods do |g|
+      g.push :self
+      g.send :a, 0, true
+      g.send :__class__, 0, false
+    end
+  end
+end

data/spec/transforms/primitive_spec.rb

@@ -0,0 +1,33 @@
+describe "A Call node using PrimitiveDeclaration transform" do
+  relates <<-ruby do
+      def m
+        Rubinius.primitive :prim
+        raise PrimitiveFailure, "failed"
+      end
+    ruby
+
+    compile do |g|
+      in_method :m do |d|
+        d.push_const :Rubinius
+        d.push_literal :prim
+        d.send :primitive, 1, false
+        d.pop
+        d.push :self
+        d.push_const :PrimitiveFailure
+        d.push_literal "failed"
+        d.string_dup
+        d.send :raise, 2, true
+      end
+    end
+
+    compile :primitive do |g|
+      in_method :m do |d|
+        d.push :self
+        d.push_const :PrimitiveFailure
+        d.push_literal "failed"
+        d.string_dup
+        d.send :raise, 2, true
+      end
+    end
+  end
+end

data/spec/transforms/privately_spec.rb

@@ -0,0 +1,24 @@
+describe "A Call node using SendPrivately transform" do
+  relates <<-ruby do
+      def m
+        c = 1
+        Rubinius.privately {
+          a.b c
+        }
+      end
+    ruby
+
+    compile :privately do |g|
+      in_method :m do |d|
+        d.push 1
+        d.set_local 0
+        d.pop
+
+        d.push :self
+        d.send :a, 0, true
+        d.push_local 0
+        d.send :b, 1, true
+      end
+    end
+  end
+end

data/spec/true_spec.rb

@@ -0,0 +1,7 @@
+describe "A True node" do
+  relates "true" do
+    compile do |g|
+      g.push :true
+    end
+  end
+end

data/spec/undef_spec.rb

@@ -0,0 +1,133 @@
+describe "An Undef node" do
+  relates "undef :x" do
+    compile do |g|
+      undef_bytecode :x
+    end
+  end
+
+  relates "undef :x, :y" do
+    compile do |g|
+      undef_bytecode :x, :y
+    end
+  end
+
+  relates "undef :x, :y, :z" do
+    compile do |g|
+      undef_bytecode :x, :y, :z
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x
+    ruby
+
+    compile do |g|
+      g.push :self
+      g.send :f1, 0, true
+      g.pop
+
+      undef_bytecode :x
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y
+    ruby
+
+    compile do |g|
+      g.push :self
+      g.send :f1, 0, true
+      g.pop
+
+      undef_bytecode :x, :y
+    end
+  end
+
+  relates <<-ruby do
+      undef :x, :y, :z
+      f2
+    ruby
+
+    compile do |g|
+      undef_bytecode :x, :y, :z
+      g.pop
+
+      g.push :self
+      g.send :f2, 0, true
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y, :z
+    ruby
+
+    compile do |g|
+      g.push :self
+      g.send :f1, 0, true
+      g.pop
+
+      undef_bytecode :x, :y, :z
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y, :z
+      f2
+    ruby
+
+    compile do |g|
+      g.push :self
+      g.send :f1, 0, true
+      g.pop
+
+      undef_bytecode :x, :y, :z
+      g.pop
+
+      g.push :self
+      g.send :f2, 0, true
+    end
+  end
+
+  relates "class B; undef :blah; end" do
+    compile do |g|
+      g.in_class :B do |d|
+        d.push_scope
+        d.push_literal :blah
+        d.send :__undef_method__, 1
+      end
+    end
+  end
+
+  relates <<-ruby do
+      undef :"x\#{1}", :"x\#{2}"
+    ruby
+
+    compile do |g|
+      g.push_scope
+      g.push_literal "x"
+
+      g.push 1
+      g.meta_to_s
+
+      g.string_build 2
+
+      g.send :to_sym, 0, true
+      g.send :__undef_method__, 1
+      g.pop
+
+      g.push_scope
+
+      g.push_literal "x"
+      g.push 2
+      g.meta_to_s
+      g.string_build 2
+
+      g.send :to_sym, 0, true
+      g.send :__undef_method__, 1
+    end
+  end
+end

data/spec/until_spec.rb

@@ -0,0 +1,254 @@
+describe "An Until node" do
+  pre_until = lambda do |g|
+    top    = g.new_label
+    rdo    = g.new_label
+    brk    = g.new_label
+    post   = g.new_label
+    bottom = g.new_label
+
+    g.push_modifiers
+
+    top.set!
+    g.push :self
+    g.send :a, 0, true
+    g.git bottom
+
+    rdo.set!
+    g.push :self
+    g.send :b, 0, true
+    g.push 1
+    g.send :+, 1, false
+
+    post.set!
+    g.pop
+    g.check_interrupts
+    g.goto top
+
+    bottom.set!
+    g.push :nil
+
+    brk.set!
+    g.pop_modifiers
+  end
+
+  post_until = lambda do |g|
+    top    = g.new_label
+    brk    = g.new_label
+    post   = g.new_label
+    bottom = g.new_label
+
+    g.push_modifiers
+
+    top.set!
+
+    g.push :self
+    g.send :b, 0, true
+    g.push 1
+    g.send :+, 1, false
+
+    post.set!
+    g.pop
+    g.check_interrupts
+
+    g.push :self
+    g.send :a, 0, true
+    g.git bottom
+
+    g.goto top
+
+    bottom.set!
+    g.push :nil
+
+    brk.set!
+
+    g.pop_modifiers
+  end
+
+  ruby_version_is ""..."1.9" do
+    nil_condition = lambda do |g|
+      top    = g.new_label
+      rdo    = g.new_label
+      brk    = g.new_label
+      post   = g.new_label
+      bottom = g.new_label
+
+      g.push_modifiers
+      top.set!
+
+      g.push :nil
+      g.git bottom
+
+      rdo.set!
+      g.push :self
+      g.send :a, 0, true
+
+      post.set!
+      g.pop
+      g.check_interrupts
+      g.goto top
+
+      bottom.set!
+      g.push :nil
+
+      brk.set!
+      g.pop_modifiers
+    end
+
+    relates <<-ruby do
+        while not a
+          b + 1
+        end
+      ruby
+
+      compile(&pre_until)
+    end
+
+    relates "b + 1 while not a" do
+      compile(&pre_until)
+    end
+
+    relates <<-ruby do
+        begin
+          b + 1
+        end while not a
+      ruby
+
+      compile(&post_until)
+    end
+
+    relates "a while not ()" do
+      compile(&nil_condition)
+    end
+
+    relates <<-ruby do
+        while not ()
+          a
+        end
+      ruby
+
+      compile(&nil_condition)
+    end
+
+    relates "a while ! ()" do
+      compile(&nil_condition)
+    end
+
+    relates <<-ruby do
+        while ! ()
+          a
+        end
+      ruby
+
+      compile(&nil_condition)
+    end
+  end
+
+  ruby_version_is "1.9" do
+    nil_condition = lambda do |g|
+      top    = g.new_label
+      rdo    = g.new_label
+      brk    = g.new_label
+      post   = g.new_label
+      bottom = g.new_label
+
+      g.push_modifiers
+      top.set!
+
+      g.push :nil
+      g.git bottom
+
+      rdo.set!
+      g.push :self
+      g.send :a, 0, true
+
+      post.set!
+      g.pop
+      g.check_interrupts
+      g.goto top
+
+      bottom.set!
+      g.push :nil
+
+      brk.set!
+      g.pop_modifiers
+    end
+
+    relates "a until ()" do
+      compile(&nil_condition)
+    end
+
+    relates <<-ruby do
+        until ()
+          a
+        end
+      ruby
+
+      compile(&nil_condition)
+    end
+
+    not_nil_condition = lambda do |g|
+      top    = g.new_label
+      rdo    = g.new_label
+      brk    = g.new_label
+      post   = g.new_label
+      bottom = g.new_label
+
+      g.push_modifiers
+      top.set!
+
+      g.push :nil
+      g.send :"!", 0, false
+      g.git bottom
+
+      rdo.set!
+      g.push :self
+      g.send :a, 0, true
+
+      post.set!
+      g.pop
+      g.check_interrupts
+      g.goto top
+
+      bottom.set!
+      g.push :nil
+
+      brk.set!
+      g.pop_modifiers
+    end
+
+    relates "a until ! ()" do
+      compile(&not_nil_condition)
+    end
+
+    relates <<-ruby do
+        until ! ()
+          a
+        end
+      ruby
+
+      compile(&not_nil_condition)
+    end
+  end
+
+  relates <<-ruby do
+      until a
+        b + 1
+      end
+    ruby
+
+    compile(&pre_until)
+  end
+
+  relates "b + 1 until a" do
+    compile(&pre_until)
+  end
+
+  relates <<-ruby do
+      begin
+        b + 1
+      end until a
+    ruby
+
+    compile(&post_until)
+  end
+end