mixology 0.2.0-java

data/Rakefile

@@ -0,0 +1,99 @@
+require "rake"
+require 'rake/clean'
+require 'rake/gempackagetask'
+require "rake/testtask"
+
+desc "clean, compile, test"
+task :default => %w[clean compile test]
+
+Rake::TestTask.new("test") do |t|
+  t.pattern = "test/**/*_test.rb"
+end
+
+desc "Builds the extension"
+if RUBY_PLATFORM =~ /java/
+  task :compile => :compile_java
+else
+  task :compile => %W[ext/mixology/Makefile ext/mixology/mixology.#{Config::CONFIG['DLEXT']}]
+end
+
+file "ext/mixology/Makefile" => ["ext/mixology/extconf.rb"] do
+  Dir.chdir("ext/mixology") do
+    ruby "extconf.rb"
+  end  
+end
+
+file "ext/mixology/mixology.#{Config::CONFIG['DLEXT']}" do
+  Dir.chdir("ext/mixology") do
+    sh "make"
+  end
+  cp "ext/mixology/mixology.#{Config::CONFIG['DLEXT']}", "lib"
+end
+
+CLEAN.include %w[ext/mixology/Makefile ext/mixology/mixology.bundle ext/mixology/mixology.so lib/mixology.bundle lib/mixology.so ext/mixology/mixology.o]
+CLEAN.include %w[ext/mixology/MixableService.class ext/mixology/mixable.jar lib/mixology.jar]
+
+specification = Gem::Specification.new do |s|
+	s.name   = "mixology"
+  s.summary = "Mixology enables objects to mixin and unmix modules."
+	s.version = "0.2.0"
+	s.author = "anonymous z, Pat Farley, Dan Manges"
+	s.description = s.summary
+  s.homepage = "http://mixology.rubyforge.org"
+  s.rubyforge_project = "mixology"
+  s.has_rdoc = false
+  s.autorequire = "mixology"
+  s.files = FileList['ext/**/*.{c,rb}', '{lib,test}/**/*.rb', '^[A-Z]+$', 'Rakefile'].to_a
+  if RUBY_PLATFORM =~ /mswin/
+    s.platform = Gem::Platform::WIN32
+    s.files += ["lib/mixology.so"]
+  elsif RUBY_PLATFORM =~ /java/
+    s.platform = "java"
+    s.files += ["lib/mixology.jar"]
+  else
+    s.platform = Gem::Platform::RUBY
+    s.extensions = FileList["ext/**/extconf.rb"].to_a
+  end
+end
+Rake::GemPackageTask.new(specification) do |package|
+  package.need_zip = false
+  package.need_tar = false
+end
+
+desc "Compiles the JRuby extension"
+task :compile_java do
+  Dir.chdir("ext/mixology") do
+    sh %{javac -source 1.5 -target 1.5 -classpath $JRUBY_HOME/lib/jruby.jar MixologyService.java}
+    sh %{jar cf mixology.jar MixologyService.class}
+    cp "mixology.jar", "../../lib/mixology.jar"
+  end
+end
+
+desc "test against multiple ruby implementations"
+task :test_multi do
+  # this is specific to how I have Ruby installed on my machine -Dan
+  jruby = %w[1.1.3 1.1.4]
+  mri = %w[1.8.6-p368 1.9.1-p129]
+  failed = false
+  test_implementation = proc do |implementation, command|
+    print "#{implementation}: "
+    output = `#{command} 2>&1`
+    if $?.success? && output =~ /\d\d+ tests.*0 failures, 0 errors/
+      puts "PASS"
+    else
+      puts "FAIL"
+      failed = true
+    end
+  end
+  jruby.each do |jruby_version|
+    test_implementation.call(
+      "JRuby #{jruby_version}",
+      "JRUBY_HOME=/usr/local/jruby-#{jruby_version} /usr/local/jruby-#{jruby_version}/bin/jruby -S rake"
+    )
+  end
+  mri.each do |mri_version|
+    test_implementation.call "MRI #{mri_version}", "/usr/local/ruby-#{mri_version}/bin/rake"
+  end
+  fail if failed
+end
+

data/ext/mixology/extconf.rb

@@ -0,0 +1,4 @@
+require "mkmf"
+dir_config "mixology"
+$CPPFLAGS += " -DRUBY_19" if RUBY_VERSION =~ /1.9/
+create_makefile "mixology"

data/ext/mixology/mixology.c

@@ -0,0 +1,125 @@
+#include "ruby.h"
+
+/* cannot use ordinary CLASS_OF as it does not return an lvalue */
+#define KLASS_OF(c) (RBASIC(c)->klass)
+
+/* macros for backwards compatibility with 1.8 */
+#ifndef RUBY_19
+# define RCLASS_M_TBL(c) (RCLASS(c)->m_tbl)
+# define RCLASS_SUPER(c) (RCLASS(c)->super)
+# define RCLASS_IV_TBL(c) (RCLASS(c)->iv_tbl)
+#endif
+
+#ifdef RUBY_19
+static VALUE class_alloc(VALUE flags, VALUE klass)
+{
+    rb_classext_t *ext = ALLOC(rb_classext_t);
+    NEWOBJ(obj, struct RClass);
+    OBJSETUP(obj, klass, flags);
+    obj->ptr = ext;
+    RCLASS_IV_TBL(obj) = 0;
+    RCLASS_M_TBL(obj) = 0;
+    RCLASS_SUPER(obj) = 0;
+    RCLASS_IV_INDEX_TBL(obj) = 0;
+    return (VALUE)obj;
+}
+#endif
+
+static void remove_nested_module(VALUE klass, VALUE include_class)
+{
+    if (KLASS_OF(RCLASS_SUPER(klass)) != KLASS_OF(RCLASS_SUPER(include_class))) {
+        return;
+    }
+    if (RCLASS_SUPER(RCLASS_SUPER(include_class)) && BUILTIN_TYPE(RCLASS_SUPER(include_class)) == T_ICLASS) {
+        remove_nested_module(RCLASS_SUPER(klass), RCLASS_SUPER(include_class));
+    }
+    RCLASS_SUPER(klass) = RCLASS_SUPER(RCLASS_SUPER(klass));
+}
+
+static VALUE rb_unmix(VALUE self, VALUE module)
+{
+    VALUE klass;
+
+    /* check that module is valid */
+    if (TYPE(module) != T_MODULE)
+        rb_raise(rb_eArgError, "error: parameter must be a module");
+
+    for (klass = KLASS_OF(self); klass != rb_class_real(klass); klass = RCLASS_SUPER(klass)) {
+        VALUE super = RCLASS_SUPER(klass);
+        if (BUILTIN_TYPE(super) == T_ICLASS) {
+            if (KLASS_OF(super) == module) {
+                if (RCLASS_SUPER(module) && BUILTIN_TYPE(RCLASS_SUPER(module)) == T_ICLASS)
+                    remove_nested_module(super, module);
+
+                RCLASS_SUPER(klass) = RCLASS_SUPER(RCLASS_SUPER(klass));
+                rb_clear_cache();
+            }
+        }
+    }
+    return self;
+}
+
+static void add_module(VALUE self, VALUE module)
+{
+    VALUE super = RCLASS_SUPER(rb_singleton_class(self));
+
+#ifdef RUBY_19
+    VALUE klass = class_alloc(T_ICLASS, rb_cClass);
+#else
+    NEWOBJ(klass, struct RClass);
+    OBJSETUP(klass, rb_cClass, T_ICLASS);
+#endif
+
+    if (BUILTIN_TYPE(module) == T_ICLASS) {
+        module = KLASS_OF(module);
+    }
+    if (!RCLASS_IV_TBL(module)) {
+        RCLASS_IV_TBL(module) = (void*)st_init_numtable();
+    }
+
+    RCLASS_IV_TBL(klass) = RCLASS_IV_TBL(module);
+    RCLASS_M_TBL(klass) = RCLASS_M_TBL(module);
+    RCLASS_SUPER(klass) = super;
+
+    if (TYPE(module) == T_ICLASS) {
+        KLASS_OF(klass) = KLASS_OF(module);
+    } else {
+        KLASS_OF(klass) = module;
+    }
+    OBJ_INFECT(klass, module);
+    OBJ_INFECT(klass, super);
+
+    RCLASS_SUPER(rb_singleton_class(self)) = (VALUE)klass;
+}
+
+static VALUE rb_mixin(VALUE self, VALUE module)
+{
+    VALUE nested_modules;
+    int index;
+
+    /* check that module is valid */
+    if (TYPE(module) != T_MODULE)
+        rb_raise(rb_eArgError, "error: parameter must be a module");
+
+    rb_unmix(self, module);
+    nested_modules = rb_mod_included_modules(module);
+
+    for (index = RARRAY_LEN(nested_modules); index > 0; index--) {
+        VALUE nested_module = RARRAY_PTR(nested_modules)[index - 1];
+        add_module(self, nested_module);
+    }
+
+    add_module(self, module);
+
+    rb_clear_cache();
+    return self;
+}
+
+void Init_mixology()
+{
+    VALUE Mixology = rb_define_module("Mixology");
+
+    rb_define_method(Mixology, "mixin", rb_mixin, 1);
+    rb_define_method(Mixology, "unmix", rb_unmix, 1);
+    rb_include_module(rb_cObject, Mixology);
+}

data/lib/mixology_rubinius.rb

@@ -0,0 +1,39 @@
+module Mixology
+  def mixin(mod)
+    unmix mod
+    reset_method_cache
+    IncludedModule.new(mod).attach_to metaclass
+    reset_method_cache
+    self
+  end
+  
+  def unmix(mod_to_unmix)
+    last_super = metaclass
+    this_super = metaclass.direct_superclass
+    while this_super
+      break if this_super == self.class
+      if (this_super == mod_to_unmix ||
+          this_super.respond_to?(:module) && this_super.module == mod_to_unmix)
+        reset_method_cache
+        last_super.superclass = this_super.direct_superclass
+        reset_method_cache
+        return self
+      else
+        last_super = this_super
+        this_super = this_super.direct_superclass
+      end
+    end
+    self
+  end
+  
+  protected
+  
+  def reset_method_cache
+    self.methods.each do |name|
+      name = self.metaclass.send(:normalize_name,name)
+      Rubinius::VM.reset_method_cache(name)
+    end
+  end
+end
+
+Object.send :include, Mixology

data/test/mixology_test.rb

@@ -0,0 +1,183 @@
+require File.dirname(__FILE__) + "/test_helper"
+
+class MixologyTest < Test::Unit::TestCase
+  
+  def test_mixin
+    mixin = Module.new { def foo; "foo"; end }
+    object = Object.new
+    object.mixin mixin
+    assert_equal "foo", object.foo
+  end
+  
+  def test_unmix
+    mixin = Module.new { def foo; "mixin"; end }
+    object = Class.new { def foo; "object"; end }.new
+    object.mixin mixin
+    assert_equal "mixin", object.foo
+    object.unmix mixin
+    assert_equal "object", object.foo
+  end
+  
+  def test_mixin_twice
+    first_mixin = Module.new { def foo; "first"; end }
+    second_mixin = Module.new { def foo; "second"; end }
+    object = Object.new
+    object.mixin first_mixin
+    object.mixin second_mixin
+    assert_equal "second", object.foo
+  end
+  
+  def test_mixin_to_class
+    mix = Module.new { def foo; "foo"; end }
+    klass = Class.new { mixin mix }
+    assert_equal "foo", klass.foo
+  end
+  
+  def test_can_mixin_again
+    first_mixin = Module.new { def foo; "first"; end }
+    second_mixin = Module.new { def foo; "second"; end }
+    object = Object.new
+    object.mixin first_mixin
+    object.mixin second_mixin
+    object.mixin first_mixin
+    assert_equal "first", object.foo
+  end
+  
+  def test_unmix_effects_limited_to_instance
+    mixin = Module.new { def foo; "mixin"; end }
+    object = Class.new {include mixin}.new
+    assert_equal "mixin", object.foo
+    object.unmix mixin
+    assert_equal "mixin", object.foo
+  end
+  
+  def test_can_add_mod_to_an_instance_even_when_already_included_by_class
+    mixin = Module.new { def foo; "mixin"; end }
+    klass = Class.new {include mixin; def foo; "class"; end }
+    object = klass.new
+    assert_equal "class", object.foo
+    object.mixin mixin
+    assert_equal "mixin", object.foo
+  end
+  
+  def test_included_modules_after_mixin
+    mixin = Module.new
+    object = Object.new
+    object.mixin mixin
+    assert_equal [mixin, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_included_modules_after_unmix
+    mixin = Module.new
+    object = Object.new
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_included_modules_after_remix
+    mixin_one = Module.new
+    mixin_two = Module.new
+    object = Object.new
+    object.mixin mixin_one
+    object.mixin mixin_two
+    assert_equal [mixin_two, mixin_one, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+    object.mixin mixin_one
+    assert_equal [mixin_one, mixin_two, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_mixin_returns_object
+    object = Object.new
+    mixin = Module.new
+    assert_equal object, object.mixin(mixin)
+  end
+  
+  def test_unmix_returns_object
+    object = Object.new
+    mixin = Module.new
+    object.mixin mixin
+    assert_equal object, object.unmix(mixin)
+  end
+  
+  def test_nested_modules_are_mixedin
+    if rubinius?
+      print "PENDING"; return
+    end
+    nested_module = Module.new { def foo; "foo"; end }
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin mixin
+    assert_equal [mixin, nested_module, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+
+  def test_nested_modules_are_mixedin_deeply
+    if rubinius?
+      print "PENDING"; return
+    end
+    nested_module_ultimate = Module.new
+    nested_module_penultimate = Module.new { include nested_module_ultimate }
+    nested_module = Module.new { include nested_module_penultimate }
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin mixin
+    assert_equal [mixin, nested_module, nested_module_penultimate, nested_module_ultimate, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+   
+  def test_nested_modules_are_mixedin_even_if_already_mixed_in
+    if rubinius?
+      print "PENDING"; return
+    end
+    nested_module = Module.new { def foo; "foo"; end }
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin nested_module
+    object.mixin mixin
+    assert_equal [mixin, nested_module, nested_module, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_module_is_not_unmixed_if_it_is_outside_nested_chain
+    nested_module = Module.new
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin nested_module
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [nested_module, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_nested_modules_are_unmixed
+    nested_module = Module.new
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def test_nested_modules_are_unmixed_deeply
+    nested_module_ultimate = Module.new
+    nested_module_penultimate = Module.new { include nested_module_ultimate }
+    nested_module = Module.new { include nested_module_penultimate }
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+
+  def test_unrelated_modules_are_not_unmixed
+    unrelated = Module.new
+    nested_module = Module.new 
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin unrelated
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [unrelated, Mixology, PP::ObjectMixin, Kernel], (class << object; self; end).included_modules
+  end
+  
+  def rubinius?
+    defined?(RUBY_ENGINE) && RUBY_ENGINE == "rbx"
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require "test/unit"
+# In Ruby 1.9, require test/unit will implicitly require pp, we do it here explicitly to ensure compatibily.
+require "pp"
+
+$LOAD_PATH.unshift File.dirname(__FILE__) + "/../lib"
+if defined?(RUBY_ENGINE) && RUBY_ENGINE == "rbx"
+  require "mixology_rubinius"
+else
+  require "mixology"
+end

metadata

@@ -0,0 +1,59 @@
+--- !ruby/object:Gem::Specification 
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+email: 
+cert_chain: []
+
+summary: Mixology enables objects to mixin and unmix modules.
+post_install_message: 
+extra_rdoc_files: []
+
+homepage: http://mixology.rubyforge.org
+signing_key: 
+name: mixology
+rdoc_options: []
+
+autorequire: mixology
+rubyforge_project: mixology
+executables: []
+
+description: Mixology enables objects to mixin and unmix modules.
+specification_version: 2
+default_executable: 
+files: 
+- ext/mixology/mixology.c
+- ext/mixology/extconf.rb
+- lib/mixology_rubinius.rb
+- test/test_helper.rb
+- test/mixology_test.rb
+- Rakefile
+- lib/mixology.jar
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+extensions: []
+
+rubygems_version: 1.2.0
+requirements: []
+
+authors: 
+- anonymous z, Pat Farley, Dan Manges
+date: 2009-08-24 05:00:00 +00:00
+platform: java
+test_files: []
+
+version: !ruby/object:Gem::Version 
+  version: 0.2.0
+require_paths: 
+- lib
+dependencies: []
+
+bindir: bin
+has_rdoc: false