mailbox 0.0.0

data/README

@@ -0,0 +1,7 @@
+== About Mailbox
+
+Mailbox is a JRuby module that simplifies the creation of Actor-Model functions that are backed by JVM threads.
+"Unobtrusive concurrency for a multicore world" - pgfarley
+
+* jretlang gem is required to use mailbox
+

data/Rakefile

@@ -0,0 +1,27 @@
+require "rubygems"
+require "rake/testtask"
+require "jeweler"
+
+task :default => :test
+
+Rake::TestTask.new do |t|
+	t.libs << "test"
+	t.test_files = FileList['test/**/*_test.rb']
+	t.verbose = true
+end
+
+Jeweler::Tasks.new do |gemspec|
+	gemspec.name = "mailbox"
+	gemspec.summary = "Mailbox is a JRuby module that simplifies concurrency and is backed by JVM threads."
+	gemspec.description = gemspec.summary
+	gemspec.email = "asher.friedman@gmail.com"
+	gemspec.homepage = "http://joelash.github.com/mailbox"
+	gemspec.authors = ["Joel Friedman", "Patrick Farley"]
+
+	gemspec.rubyforge_project = "mailbox"
+end
+
+Jeweler::RubyforgeTasks.new do |rubyforge|
+	rubyforge.doc_task = "rdoc"
+end
+

data/VERSION.yml

@@ -0,0 +1 @@
+0.1.0

data/lib/mailbox.rb

@@ -0,0 +1,78 @@
+require 'rubygems'
+require 'jretlang'
+
+module Mailbox
+
+  def self.included(base)
+		base.extend(Mailbox::ClassMethods)
+	end
+	
+	def register_channel(channel_name, channel)
+		channel_registry = self.class.__channel_registry__
+		channel_registry.each_pair { |key, value| __subscribe__(channel, key) if value == channel_name }
+	end
+
+	def __subscribe__(channel, method)
+		channel.subscribe_on_fiber(__fiber__) { |*args| self.send(method, *args) }
+	end
+
+  def __started_fiber__
+  	fiber = JRL::Fiber.new
+  	fiber.start
+  	fiber
+  end
+
+  def __fiber__
+  	@fiber ||= __started_fiber__
+  end 
+
+	module ClassMethods
+
+ 		attr_accessor :__channel_registry__
+
+  	def mailslot(params={})
+			@next_channel_name = params[:channel]
+			@mailslot = true
+  	end
+
+  	def method_added(method_name, &block)
+  		return if @adding_mailbox_to_method == method_name
+
+  		unless @mailslot == true
+  		  private method_name
+  			return
+  		end
+
+  		@mailslot = false
+
+			if @next_channel_name.nil?
+				__setup_on_fiber__(method_name)
+			else
+				__setup_on_channel__(method_name)
+			end
+
+  	end
+
+		def __setup_on_fiber__(method_name)
+  		alias_method :"__#{method_name}__", method_name
+
+  		@adding_mailbox_to_method = method_name
+
+			define_method( method_name, lambda do |*args| 
+				__fiber__.execute { self.send(:"__#{method_name}__", *args ) }  
+			end )
+
+  		@adding_mailbox_to_method = nil
+		end
+
+		def __setup_on_channel__(method_name)
+			private method_name
+			@__channel_registry__ ||= {}
+			__channel_registry__[method_name] = @next_channel_name
+			@next_channel_name = nil
+		end
+
+	end 
+	
+end
+

data/mailbox.gemspec

@@ -0,0 +1,45 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mailbox}
+  s.version = "0.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Joel Friedman", "Patrick Farley"]
+  s.date = %q{2009-10-13}
+  s.description = %q{Mailbox is a JRuby module that simplifies concurrency and is backed by JVM threads.}
+  s.email = %q{asher.friedman@gmail.com}
+  s.extra_rdoc_files = [
+    "README"
+  ]
+  s.files = [
+    "README",
+     "Rakefile",
+     "VERSION.yml",
+     "lib/mailbox.rb",
+     "mailbox.gemspec",
+     "test/mailbox_test.rb"
+  ]
+  s.homepage = %q{http://joelash.github.com/mailbox}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{mailbox}
+  s.rubygems_version = %q{1.3.3}
+  s.summary = %q{Mailbox is a JRuby module that simplifies concurrency and is backed by JVM threads.}
+  s.test_files = [
+    "test/mailbox_test.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/test/mailbox_test.rb

@@ -0,0 +1,75 @@
+require 'rubygems'
+require 'test/unit'
+
+require File.dirname(__FILE__) + "/../lib/mailbox"
+
+module Latches
+	include_package 'java.util.concurrent'
+end
+
+class MailboxTest < Test::Unit::TestCase
+
+	def test_mailslot_causes_execution_on_separate_thread
+		
+		klass = Class.new do
+			include Mailbox
+
+			mailslot
+			def test_method(latch, thread_ids)
+				thread_ids << Thread.current.object_id
+				latch.count_down
+			end
+		end
+
+		thread_ids = []
+		latch = Latches::CountDownLatch.new( 1 )
+		klass.new.test_method(latch, thread_ids)
+
+		assert( latch.await( 1, Latches::TimeUnit::SECONDS ), "Timed out" )
+		assert_not_equal Thread.current.object_id, thread_ids.first
+
+	end
+
+	def test_non_mailslot_methods_become_private
+
+		klass = Class.new do 
+			include Mailbox
+
+			def bar
+			end
+		end
+
+		exception = assert_raise NoMethodError do
+			klass.new.bar
+		end
+		
+ 		assert_match /private method `bar'/, exception.message
+	end
+	
+	def test_should_supports_channels
+
+		klass = Class.new do
+			include Mailbox
+			
+			def initialize(channel)
+ 		    register_channel :test_channel, channel
+		  end
+
+			mailslot :channel => :test_channel
+			def test_method(latch)
+				latch.count_down
+			end
+		end
+	  
+		thread_ids = []
+		latch = Latches::CountDownLatch.new 1
+		a_channel = JRL::Channel.new
+	
+		klass.new(a_channel)
+    a_channel.publish latch
+	
+		assert latch.await( 1, Latches::TimeUnit::SECONDS ), "Timed out" 
+
+  end
+
+end

metadata

@@ -0,0 +1,63 @@
+--- !ruby/object:Gem::Specification 
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+email: asher.friedman@gmail.com
+cert_chain: []
+
+summary: Mailbox is a JRuby module that simplifies concurrency and is backed by JVM
+  threads.
+post_install_message: 
+extra_rdoc_files: 
+- README
+homepage: http://joelash.github.com/mailbox
+signing_key: 
+name: mailbox
+rdoc_options: 
+- --charset=UTF-8
+rubyforge_project: mailbox
+autorequire: 
+licenses: []
+
+executables: []
+
+description: Mailbox is a JRuby module that simplifies concurrency and is backed by
+  JVM threads.
+specification_version: 3
+default_executable: 
+files: 
+- README
+- Rakefile
+- VERSION.yml
+- lib/mailbox.rb
+- mailbox.gemspec
+- test/mailbox_test.rb
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+extensions: []
+
+rubygems_version: 1.3.3
+requirements: []
+
+authors: 
+- Joel Friedman
+- Patrick Farley
+date: 2009-10-13 05:00:00 +00:00
+platform: ruby
+test_files: 
+- test/mailbox_test.rb
+version: !ruby/object:Gem::Version 
+  version: 0.0.0
+require_paths: 
+- lib
+dependencies: []
+
+bindir: bin
+has_rdoc: true