dup_eval 0.1.0

data/README.markdown

@@ -0,0 +1,47 @@
+Dup\_eval
+========
+
+This is an alternative to \_why's mix\_eval C extension. It provides identical functionality to mix\_eval as well as the following extra 
+functionality:
+* Ability to mix in Objects/Classes (using Object2module)
+* Thread-safety
+
+Dup\_eval is based on coderrr's idea for dupping the binding of a block (http://coderrr.wordpress.com/2008/11/14/making-mixico-thread-safe/)
+
+NOTE:
+Dup\_eval is still in proof of concept stage, use at own risk! 
+
+Example use:
+===========
+
+    #create our object
+    o = Object.new
+    
+    #give it a method
+    class << o
+        def hello; print "Hello! "; end
+    end
+
+    #create a method in the current binding
+    def goodbye; puts "Goodbye!"; end
+
+    o.dup_eval { hello; goodbye }    #=> "Hello! Goodbye!" 
+
+From above, both the methods of the object itself and the binding of the block are available to the block.
+
+    #we can also choose which objects we want to eval the block with respect to (we can have more than one)
+    o1 = Object.new
+    class << o1; ...define methods here... end
+    
+    o2 = Object.new
+    class << o2; ...define methods here... end
+
+    o3 = Object.new
+    class << o3; ...define methods here... end
+
+    #create a method in the current binding
+    def goodbye; puts "Goodbye!"; end
+
+    o1.dup_eval_with(o1, o2, o3) { o1_method; o2_method; o3_method; goodbye }
+
+As shown above we can have the block access methods in many objects (as many as we want). The objects may also be either Objects, Classes, or Modules.

data/dup_eval.gemspec

@@ -0,0 +1,17 @@
+Gem::Specification.new do |s|
+  s.name = "dup_eval"
+  s.version = "0.1.0"
+  s.summary = "souped up version of instance_eval in the vein of mix_eval"
+  s.email = "jrmair@gmail.com"
+  s.homepage = "http://banisterfiend.wordpress.com"
+  s.description = "see http://github.com/why/mixico"
+  s.has_rdoc = false
+  s.authors = ["banister", "coderrr"]
+  s.files = [
+    "README.markdown",
+    "dup_eval.gemspec",
+    "lib/dup_eval.rb"
+  ]
+  s.test_files = ["test/dup_eval_test.rb"]
+  s.add_dependency("RubyInline", [">= 3.6.7"])
+end

data/lib/dup_eval.rb

@@ -0,0 +1,85 @@
+require 'rubygems'
+require 'inline'
+require 'object2module'
+
+class Object
+    inline do |builder|
+        builder.prefix %{
+        #define KLASS_OF(o) RCLASS(RBASIC(o)->klass)
+    }
+
+    builder.c %{
+      void redirect_tbls(VALUE obj) {
+        unsigned long orig_iv_tbl, orig_m_tbl;
+        orig_iv_tbl = (unsigned long)ROBJECT(self)->iv_tbl;
+        orig_m_tbl = (unsigned long)KLASS_OF(self)->m_tbl;
+        ROBJECT(self)->iv_tbl = ROBJECT(obj)->iv_tbl;
+        KLASS_OF(self)->m_tbl = KLASS_OF(obj)->m_tbl;
+        rb_iv_set(self, "__orig_m_tbl__", orig_m_tbl);
+        rb_iv_set(self, "__orig_iv_tbl__", orig_iv_tbl);
+      }
+    }
+
+    #restore needed, or else GC will crash
+    builder.c %{
+      void restore_tbls() {
+        KLASS_OF(self)->m_tbl = (struct st_table *)rb_iv_get(self, "__orig_m_tbl__");
+        ROBJECT(self)->iv_tbl = (struct st_table *)rb_iv_get(self, "__orig_iv_tbl__");
+      }
+    }
+    end
+
+end
+
+class Class
+  inline do |builder|
+    builder.c %{
+      void redirect_tbls(VALUE class) {
+        unsigned long orig_iv_tbl, orig_m_tbl;
+        orig_iv_tbl = (unsigned long)RCLASS(self)->iv_tbl;
+        orig_m_tbl = (unsigned long)RCLASS(self)->m_tbl;
+        RCLASS(self)->iv_tbl = RCLASS(class)->iv_tbl;
+        RCLASS(self)->m_tbl = RCLASS(class)->m_tbl;
+        rb_iv_set(self, "__orig_iv_tbl__", orig_iv_tbl);
+        rb_iv_set(self, "__orig_m_tbl__", orig_m_tbl);
+      }
+    }
+
+    #restore needed, or else GC will crash
+    builder.c %{
+      void restore_tbls() {
+        RCLASS(self)->m_tbl = (struct st_table *)rb_iv_get(self, "__orig_m_tbl__");
+        RCLASS(self)->iv_tbl = (struct st_table *)rb_iv_get(self, "__orig_iv_tbl__");
+      }
+    }
+  end
+end
+
+class Proc
+    def _context
+        eval('self', self)
+    end
+end
+
+class Object
+    def dup_eval(*mods, &blk)
+        #default value is self
+        mods = self if mods.empty?
+        
+        duped_context = blk._context.dup
+        #make sure the singleton class is in existence
+        class << duped_context; self; end
+
+        duped_context.redirect_tbls(blk._context)
+
+        duped_context.gen_extend(*mods)
+        begin
+            m = duped_context.is_a?(Module) ? :class_eval : :instance_eval
+            duped_context.send(m, &blk)
+        ensure
+            duped_context.restore_tbls
+        end
+    end
+
+    alias_method :dup_eval_with, :dup_eval
+end

data/test/dup_eval_test.rb

@@ -0,0 +1,89 @@
+require 'test/unit'
+
+require File.dirname(__FILE__) + "/../lib/dup_eval"
+
+class Dup_EvalTest < Test::Unit::TestCase
+    def setup
+        @p = Proc.new do
+            assert_equal :bink, bink
+            assert_equal :local_method, local_method
+        end
+
+        @p2 = Proc.new do
+            assert_equal :bink, bink
+            assert_equal :bunk, bunk
+            assert_equal :local_method, local_method
+        end
+
+        @m = Module.new do
+            def bink
+                :bink
+            end
+        end
+
+        @o = Object.new
+        class << @o
+            def bink
+                :bink
+            end
+        end
+
+        @o2 = Object.new
+        class <<@o2
+            def bunk
+                :bunk
+            end
+        end
+
+        @c = Class.new
+        @c.class_eval do
+            def bink
+                :bink
+            end
+        end
+    end
+
+    #a method in the local binding
+    #used for testing
+    def local_method
+        :local_method
+    end
+
+    def test_mixing_in_self_when_object
+        o = Object.new
+        class << o
+            def bink
+                :bink
+            end
+        end
+
+        o.dup_eval(&@p)
+    end
+
+    def test_mixing_in_self_when_class
+        c = Class.new
+        c.class_eval do
+            def bink
+                :bink
+            end
+        end
+
+        c.dup_eval(&@p)
+    end
+
+    def test_mixing_in_module
+        Module.new.dup_eval_with(@m, &@p)
+    end
+
+    def test_mixing_in_object
+        Module.new.dup_eval_with(@o, &@p)
+    end
+
+    def test_mixing_in_class
+        Module.new.dup_eval_with(@c, &@p)
+    end
+
+    def test_mixing_in_multi_objects
+        Module.new.dup_eval_with(@o, @o2, &@p2)
+    end
+end

metadata

@@ -0,0 +1,65 @@
+--- !ruby/object:Gem::Specification 
+name: dup_eval
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- banister
+- coderrr
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-12-17 00:00:00 +13:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: RubyInline
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 3.6.7
+    version: 
+description: see http://github.com/why/mixico
+email: jrmair@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README.markdown
+- dup_eval.gemspec
+- lib/dup_eval.rb
+has_rdoc: false
+homepage: http://banisterfiend.wordpress.com
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: souped up version of instance_eval in the vein of mix_eval
+test_files: 
+- test/dup_eval_test.rb