mixology 0.1.0-mswin32

data/Rakefile

@@ -0,0 +1,72 @@
+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 lib/mixology.bundle]
+CLEAN.include %w[ext/mixology/MixableService.class ext/mixology/mixable.jar lib/mixology.jar]
+
+Gem::manage_gems
+
+specification = Gem::Specification.new do |s|
+	s.name   = "mixology"
+  s.summary = "Mixology enables objects to mixin and unmix modules."
+	s.version = "0.1.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 true#RUBY_PLATFORM =~ /mswin/
+    s.platform = Gem::Platform::WIN32
+    s.files += ["lib/mixology.so"]
+  elsif RUBY_PLATFORM =~ /java/
+    s.platform = "jruby"
+    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.4 -target 1.4 -classpath $JRUBY_HOME/lib/jruby.jar MixologyService.java}
+    sh %{jar cf mixology.jar MixologyService.class}
+    cp "mixology.jar", "../../lib/mixology.jar"
+  end
+end

data/ext/mixology/extconf.rb

@@ -0,0 +1,3 @@
+require "mkmf"
+dir_config "mixology"
+create_makefile "mixology"

data/ext/mixology/mixology.c

@@ -0,0 +1,81 @@
+#include "ruby.h"
+
+static void remove_nested_module(VALUE klass, VALUE include_class) {
+
+	 if(RBASIC(RCLASS(klass)->super)->klass != RBASIC(RCLASS(include_class)->super)->klass) {
+	  	return;
+	 }
+	if(RCLASS(RCLASS(include_class)->super)->super && BUILTIN_TYPE(RCLASS(include_class)->super) == T_ICLASS) {
+		remove_nested_module(RCLASS(klass)->super, RCLASS(include_class)->super);
+  }
+       RCLASS(klass)->super = RCLASS(RCLASS(klass)->super)->super;
+}
+
+static VALUE rb_unmix(VALUE self, VALUE module) {
+	VALUE klass;
+  for (klass = RBASIC(self)->klass; klass != rb_class_real(klass); klass = RCLASS(klass)->super) {
+   VALUE super = RCLASS(klass)->super;
+   if (BUILTIN_TYPE(super) == T_ICLASS) {
+  		if (RBASIC(super)->klass == module) {
+			  if(RCLASS(module)->super && BUILTIN_TYPE(RCLASS(module)->super) == T_ICLASS)
+					remove_nested_module(super, module);
+       	RCLASS(klass)->super = RCLASS(RCLASS(klass)->super)->super;
+       	rb_clear_cache();
+     }
+   }
+  }
+  return self;
+}
+
+static void add_module(VALUE self, VALUE module) {
+		VALUE super = RCLASS(rb_singleton_class(self))->super;
+  NEWOBJ(klass, struct RClass);
+  OBJSETUP(klass, rb_cClass, T_ICLASS);
+
+  if (BUILTIN_TYPE(module) == T_ICLASS) {
+   module = RBASIC(module)->klass;
+  }
+  if (!RCLASS(module)->iv_tbl) {
+  	RCLASS(module)->iv_tbl = (void*)st_init_numtable();
+  }
+  klass->iv_tbl = RCLASS(module)->iv_tbl;
+  klass->m_tbl = RCLASS(module)->m_tbl;
+  klass->super = super;
+  if (TYPE(module) == T_ICLASS) {
+   RBASIC(klass)->klass = RBASIC(module)->klass;
+  }
+  else {
+   RBASIC(klass)->klass = module;
+  }
+  OBJ_INFECT(klass, module);
+  OBJ_INFECT(klass, super);
+
+  RCLASS(rb_singleton_class(self))->super = (int)klass;
+
+}
+
+static VALUE rb_mixin(VALUE self, VALUE module) {
+	VALUE nested_modules;
+	VALUE nested_module;
+	int index;
+	rb_unmix(self, module);
+
+  nested_modules = rb_mod_included_modules(module);
+  //VALUE nested_modules = rb_mod_included_modules(module);
+  for (index = RARRAY(nested_modules)->len; index > 0; index--) {
+     nested_module = RARRAY(nested_modules)->ptr[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/test/mixology_test.rb

@@ -0,0 +1,170 @@
+require File.dirname(__FILE__) + "/test_helper"
+
+class MixologyTest < Test::Unit::TestCase
+  
+  test "mixin" do
+    mixin = Module.new { def foo; "foo"; end }
+    object = Object.new
+    object.mixin mixin
+    assert_equal "foo", object.foo
+  end
+  
+  test "unmix" do
+    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
+  
+  test "mixin twice" do
+    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
+  
+  test "mixin to class" do
+    mix = Module.new { def foo; "foo"; end }
+    klass = Class.new { mixin mix }
+    assert_equal "foo", klass.foo
+  end
+  
+  test "can mixin again" do
+    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
+  
+  test "unmix effects limited to instance" do
+    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
+  
+  test "can add mod to an instance even when already included by class" do
+    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
+  
+  test "included modules after mixin" do
+    mixin = Module.new
+    object = Object.new
+    object.mixin mixin
+    assert_equal [mixin, Mixology, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "included modules after unmix" do
+    mixin = Module.new
+    object = Object.new
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [Mixology, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "included modules after remix" do
+    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, Kernel], (class << object; self; end).included_modules
+    object.mixin mixin_one
+    assert_equal [mixin_one, mixin_two, Mixology, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "mixin returns object" do
+    object = Object.new
+    mixin = Module.new
+    assert_equal object, object.mixin(mixin)
+  end
+  
+  test "unmix returns object" do
+    object = Object.new
+    mixin = Module.new
+    object.mixin mixin
+    assert_equal object, object.unmix(mixin)
+  end
+  
+  test "nested modules are mixedin" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+
+  test "nested modules are mixedin deeply" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+   
+  test "nested modules are mixedin even if alrady mixed in" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "module is not unmixed if it is outside nested chain" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "nested modules are unmixed" do
+    nested_module = Module.new
+    mixin = Module.new { include nested_module }
+    object = Object.new
+    object.mixin mixin
+    object.unmix mixin
+    assert_equal [Mixology, Kernel], (class << object; self; end).included_modules
+  end
+  
+  test "nested modules are unmixed deeply" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+
+  test "unrelated modules are not unmixed" do
+    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, Kernel], (class << object; self; end).included_modules
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,20 @@
+require "test/unit"
+require "rubygems"
+
+if RUBY_PLATFORM =~ /java/
+  Test::Unit::TestCase.class_eval do
+    def self.test(test_name, &block)
+      define_method("test_#{test_name}", &block)
+    end
+  end
+else
+  begin
+    gem "dust"
+    require "dust"
+  rescue LoadError
+    raise "To run the tests, 'gem install dust'"
+  end
+end
+
+$LOAD_PATH.unshift File.dirname(__FILE__) + "/../lib"
+require "mixology"

metadata

@@ -0,0 +1,51 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.3
+specification_version: 1
+name: mixology
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2007-09-01 00:00:00 -04:00
+summary: Mixology enables objects to mixin and unmix modules.
+require_paths: 
+- lib
+email: 
+homepage: http://mixology.rubyforge.org
+rubyforge_project: mixology
+description: Mixology enables objects to mixin and unmix modules.
+autorequire: mixology
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: mswin32
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- anonymous z, Pat Farley, Dan Manges
+files: 
+- ext/mixology/mixology.c
+- ext/mixology/extconf.rb
+- test/mixology_test.rb
+- test/test_helper.rb
+- Rakefile
+- lib/mixology.so
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+