crystalizer 0.2.2

data/test/temp_7.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:10:59 -0700 2009
+class Object
+public
+def to_yaml_style
+  # do nothing
+end
+end

data/test/temp_70.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:15:37 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_71.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:15:37 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_72.rb

@@ -0,0 +1,13 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:59:16 -0700 2009
+module Kernel
+public
+def __DIR__
+  dir = if /^(.+)?:\d+/ =~ caller[0] then
+    File.expand_path(File.dirname($1), BASE_DIR)
+  else
+    nil
+  end
+  dir = (dir + "/") if dir
+  dir
+end
+end

data/test/temp_73.rb

@@ -0,0 +1,7 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:37 -0700 2009
+class B < Object
+public
+def go(a)
+  32
+end
+end

data/test/temp_74.rb

@@ -0,0 +1,7 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:37 -0700 2009
+class B < Object
+public
+def go(a)
+  32
+end
+end

data/test/temp_76.rb

@@ -0,0 +1,7 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:38 -0700 2009
+class DD < Object
+public
+def go(a, b)
+  34
+end
+end

data/test/temp_77.rb

@@ -0,0 +1,13 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:45 -0700 2009
+module Kernel
+public
+def __DIR__
+  dir = if /^(.+)?:\d+/ =~ caller[0] then
+    File.expand_path(File.dirname($1), BASE_DIR)
+  else
+    nil
+  end
+  dir = (dir + "/") if dir
+  dir
+end
+end

data/test/temp_79.rb

@@ -0,0 +1,7 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:39 -0700 2009
+class Child < Parent
+public
+def go
+  # do nothing
+end
+end

data/test/temp_8.rb

@@ -0,0 +1,14 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:11:00 -0700 2009
+class Object
+public
+def _dbg
+  require("rubygems")
+  require("pp")
+  begin
+    (require("ruby-debug")
+    debugger)
+  rescue LoadError => e
+    throw("unable to load ruby-debug gem for _dbg... #{e}")
+  end
+end
+end

data/test/temp_81.rb

@@ -0,0 +1,14 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:39 -0700 2009
+class Child < Parent
+public
+def go
+  # do nothing
+end
+end
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:39 -0700 2009
+class Parent < Object
+public
+def go_parent
+  # do nothing
+end
+end

data/test/temp_84.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:51:52 -0700 2009
+module Kernel
+public
+def pretty_inspect
+  PP.pp(self, "")
+end
+end

data/test/temp_85.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:51:52 -0700 2009
+module Kernel
+public
+def pretty_inspect
+  PP.pp(self, "")
+end
+end

data/test/temp_86.rb

@@ -0,0 +1,14 @@
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:40 -0700 2009
+module M
+public
+def method_2
+  # do nothing
+end
+end
+ # concretize temp file: autogenerated: Tue Nov 10 14:15:40 -0700 2009
+module M
+public
+def go_m(a)
+  # do nothing
+end
+end

data/test/temp_87.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:59:17 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_88.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:59:17 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_89.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:59:18 -0700 2009
+class B < Object
+public
+def go(a)
+  32
+end
+end

data/test/temp_9.rb

@@ -0,0 +1,14 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:11:00 -0700 2009
+class Object
+public
+def _dbg
+  require("rubygems")
+  require("pp")
+  begin
+    (require("ruby-debug")
+    debugger)
+  rescue LoadError => e
+    throw("unable to load ruby-debug gem for _dbg... #{e}")
+  end
+end
+end

data/test/temp_91.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 13:59:18 -0700 2009
+class DD < Object
+public
+def go(a, b)
+  34
+end
+end

data/test/temp_92.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:47 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_93.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:47 -0700 2009
+class A < Object
+public
+def go(a)
+  23
+end
+end

data/test/temp_94.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:48 -0700 2009
+class B < Object
+public
+def go(a)
+  32
+end
+end

data/test/temp_95.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:48 -0700 2009
+class B < Object
+public
+def go(a)
+  32
+end
+end

data/test/temp_98.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:50 -0700 2009
+class DD < Object
+public
+def go(a, b)
+  34
+end
+end

data/test/temp_99.rb

@@ -0,0 +1,7 @@
+# concretize temp file: autogenerated: Tue Nov 10 14:03:50 -0700 2009
+class DD < Object
+public
+def go(a, b)
+  34
+end
+end

data/test/test_concretize.rb

@@ -0,0 +1,132 @@
+require File.dirname(__FILE__) + '/bootstrap'
+
+class F
+  def go; end
+end
+
+F.concretize!
+assert F.instance_method(:go).arity == -1
+
+include Ruby2CExtension
+# TODO retain visibility right (protected...optionally)
+
+Dir['temp*'].each{|f| File.delete f} rescue nil # LTODO these don't all delete right at the end...can I avoid that tho?
+
+class A
+  def go a
+    23
+  end
+end
+a = A.new
+start_time = Benchmark.realtime { 1000000.times { a.go 3 }}
+
+
+# make sure it gets the guts of a method
+raise unless  A.instance_method(:go).arity == 1
+rb = Concretize.c_ify! A, :go, true
+raise "bad rb" unless rb.include? "23"
+raise "bad rb" unless rb.include? "class"
+
+
+rb = Concretize.c_ify! A, :go
+raise "should have concretized" unless A.instance_method(:go).arity == -1
+
+# test: class with one ruby, one C should translate the ruby to C
+
+class B
+  def go a
+    32
+  end
+end
+
+assert B.instance_method(:go).arity == 1
+
+assert Concretize.c_ify_class!(B)
+assert !Concretize.c_ify_class!(B) # should be all done...
+
+assert B.instance_method(:go).arity == -1
+
+
+assert B.public_instance_methods.grep(/go/).length == 1# it should be public...I think
+
+class DD
+  def go a, b
+    34
+  end
+end
+assert DD.instance_method(:go).arity == 2
+DD.concretize!
+assert DD.instance_method(:go).arity == -1
+
+DD.new.go 3, 4 # shouldn't raise :)
+
+
+# test some ancestry shtuff
+
+class Parent
+  def go_parent
+  end
+end
+
+class Child < Parent
+  def go
+  end
+end
+
+assert Child.ancestors[0..1] == [Child, Parent]
+
+# TODO test: if two descend from real_c_klass normal c_klass they both get all of normal's methods
+
+ruby = Concretize.c_ify! Child, :go, true
+assert ruby.include?('Child')
+assert ruby.include?('< Parent')
+assert Child.new.respond_to?( :go_parent )
+assert Child.new.respond_to?( :go )
+
+Child.concretize!
+assert Child.ancestors[0..1] == [Child, Parent]
+
+module M; def go_m a; end;
+
+  def method_2; end
+end
+
+class IM; include M;
+end;
+
+rubify = Concretize.c_ify! M, :method_2, true
+assert  rubify =~ /module M/
+assert  rubify !~ /</  # can't do module M < something
+assert  rubify =~ /public/
+
+
+IM.new.go_m 2
+assert IM.instance_method(:go_m).arity == 1
+IM.concretize!
+assert IM.instance_method(:go_m).arity == -1
+
+
+class Object
+  def should_not_descend
+  end
+end
+
+rubify = Concretize.c_ify! Object, :should_not_descend, true
+assert  rubify !~ /</  # can't do class Object < something no no
+assert  rubify =~ /public/
+
+
+class Normal
+  def normal_should_descend
+  end
+end
+
+rubify = Concretize.c_ify! Normal, :normal_should_descend, true
+assert  rubify =~ /</  # Normal < Object
+assert  rubify =~ /public/
+
+optimized_time = Benchmark.realtime { 1000000.times { a.go 3 }}
+
+puts 'started as', start_time, 'optimized as', optimized_time
+
+puts 'overall concretize success'

data/test/test_concretize_all.rb

@@ -0,0 +1,15 @@
+require File.dirname(__FILE__) + '/bootstrap'
+
+class C
+  def go a
+    33
+  end
+end
+
+include Ruby2CExtension
+
+assert C.instance_method(:go).arity == 1
+assert String.instance_method(:to_c_strlit).arity == 0
+puts 'cified these', Concretize.concretize_all!.inspect
+assert C.instance_method(:go).arity == -1
+assert String.instance_method(:to_c_strlit).arity == -1 # this one should have been concretized, too

data/test/test_crystalize_block.rb

@@ -0,0 +1,73 @@
+require 'frubygems'
+require 'sane'
+require_rel 'bootstrap'
+require 'fileutils'
+
+include Ruby2CExtension
+
+# test cache
+times = []
+2.times { |n|
+
+ # ltodo test that between runs it caches and stores
+ # reset AA's method
+  class AA
+    def go
+      33
+    end
+  end
+  assert AA.instance_method(:go).arity == 0
+  
+  start = Time.now
+
+  if n == 0
+    $old = Concretize.good_codes.dup
+    Concretize.good_codes.clear # allow it to do something with the re-concretize
+    Concretize.c_ify! AA, :go, true
+    assert Concretize.cache_hits == 0
+    assert AA.instance_method(:go).arity == -1
+  else
+    Concretize.c_ify! AA, :go, true
+    assert Concretize.cache_hits > 0
+    assert AA.instance_method(:go).arity == 0 # it doesn't run it just returns us the cached value
+    Concretize.good_codes.merge $old # keep it around
+  end
+  
+  times << Time.now - start
+}
+puts times
+
+
+# now test crystalize
+
+class A
+  def go
+    33
+  end
+end
+
+class B
+  def go
+  end
+end
+
+assert A.instance_method(:go).arity == 0
+assert B.instance_method(:go).arity == 0
+# LTODO should [?] not crystalize internal classes?
+Ruby2CExtension::Concretize.crystalize_after_first_time_through {
+  A.new.go
+}
+assert A.instance_method(:go).arity == -1
+assert B.instance_method(:go).arity == 0 # b should still be 0
+
+class C
+  def go
+  end
+end
+
+#Ruby2CExtension::Concretize.crystalize_after
+#1000000.times { B.new.go }
+#assert B.instance_method(:go).arity == -1 # should now be -1
+#assert C.instance_method(:go).arity == 0 # should not have been crystalized
+
+# TODO should ignore it after first time through...