forkjoin 1.0.0-java

data/README.md

@@ -0,0 +1,39 @@
+forkjoin for JRuby
+==================
+
+This is a small extension that wraps the JSR166y "Fork/Join"
+framework in an efficient way for JRuby.
+
+Example
+-------
+
+```
+require 'forkjoin'
+
+pool = ForkJoin::Pool.new
+
+# FORK
+
+# Add a job (a proc) to the pool for each line
+map_futures = pool.invoke_all(
+  ARGF.each_line.map{|line| ->{line.split.map{|word| [word,1]}}}
+)
+
+# Get aggregate results
+counts = map_futures.map(&:get).inject({}) {|map, value|
+  value.each {|k,v| (map[k] ||= []) << v}
+  map
+}
+
+# JOIN
+
+# Add a job to the pool for each count in the map
+reduced_futures = pool.invoke_all(
+  counts.map{|k, vs| ->{[k, vs.size]}}
+)
+
+# Print out results (or you could "reduce" some other way)
+reduced_futures.map(&:get).each{|value|
+  puts "%s %d\n" % value
+}
+```

data/examples/recursive/fibonacci.rb

@@ -0,0 +1,23 @@
+require 'forkjoin'
+
+class Fibonacci < ForkJoin::Task
+  def initialize(n)
+    @n = n
+  end
+
+  def call
+    return @n if @n <= 1
+    (f = Fibonacci.new(@n - 1)).fork
+    Fibonacci.new(@n - 2).call + f.join
+  end
+end
+
+times = ARGV.shift.to_i
+n = ARGV.shift.to_i
+
+times.times do
+  start = Time.now.to_f
+  pool = ForkJoin::Pool.new
+  puts "fib(%d) = %d" % [n, pool.invoke(Fibonacci.new(n))]
+  puts "%f [msec]" % ((Time.now.to_f - start) * 1000)
+end

data/examples/recursive/mergesort.rb

@@ -0,0 +1,60 @@
+require 'forkjoin'
+
+class MergeSort < ForkJoin::Task
+  def initialize(array, low, high)
+    @array, @low, @high = array, low, high
+  end
+
+  def call
+    size = @high - @low
+    if size <= 8
+      @array[@low, size] = @array[@low, size].sort
+    else
+      middle = @low + (size >> 1)
+      (f = MergeSort.new(@array, middle, @high)).fork
+      MergeSort.new(@array, @low, middle).call
+      f.join
+      merge(middle)
+    end
+  end
+
+private
+
+  def merge(middle)
+    return if @array[middle - 1] < @array[middle]
+    copy_size = @high - @low
+    copy_middle = middle - @low
+    copy = @array[@low, copy_size]
+    p = 0
+    q = copy_middle
+    @low.upto(@high - 1) do |i|
+      if q >= copy_size || (p < copy_middle && copy[p] < copy[q])
+        @array[i] = copy[p]
+        p += 1
+      else
+        @array[i] = copy[q]
+        q += 1
+      end
+    end
+  end
+end
+
+n = ARGV.shift.to_i
+
+array = Array.new(n)
+0.upto(n - 1) do |idx|
+  array[idx] = rand(2**32) - 2**31
+end
+
+org = array.dup
+
+start = Time.now.to_f
+pool = ForkJoin::Pool.new
+pool.submit(MergeSort.new(array, 0, array.size)).join
+puts "%f [msec]" % ((Time.now.to_f - start) * 1000)
+
+if array != org.sort
+  # Huh? On my 4 core machine, it *sometimes* fail.
+  # Runs fine on my 1 core machine.
+  raise "Merge-sort failed!"
+end

data/examples/wordcount.rb

@@ -0,0 +1,17 @@
+require 'forkjoin'
+
+pool = ForkJoin::Pool.new
+
+map_futures = pool.invoke_all(
+  ARGF.each_line.map{|line| ->{line.split.map{|word| [word,1]}}}
+)
+counts = map_futures.map(&:get).inject({}) {|map, value|
+  value.each {|k,v| (map[k] ||= []) << v}
+  map
+}
+reduced_futures = pool.invoke_all(
+  counts.map{|k, vs| ->{[k, vs.size]}}
+)
+reduced_futures.map(&:get).each{|value|
+  puts "%s %d\n" % value
+}

data/forkjoin.gemspec

@@ -0,0 +1,17 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{forkjoin}
+  s.version = "1.0.0"
+  s.authors = ["Charles Oliver Nutter", "Nakamura Hiroshi"]
+  s.date = Time.now.strftime('%Y-%m-%d')
+  s.description = "A JRuby extension to efficiently wrap the JSR166 Fork/Join framework."
+  s.email = ["headius@headius.com", "nahi@ctor.org"]
+  s.files = Dir['lib/**/*'] + Dir['examples/**/*.rb'] + Dir['{README.md,forkjoin.gemspec}']
+  s.homepage = "http://github.com/headius/forkjoin.rb"
+  s.require_paths = ["lib"]
+  s.summary = "A JRuby wrapper around Fork/Join"
+  s.test_files = Dir["test/test*.rb"]
+  s.platform = "java"
+  s.add_dependency("jsr166y")
+end

data/lib/forkjoin.rb

@@ -0,0 +1,4 @@
+require 'jruby'
+require 'jsr166y.jar'
+require 'forkjoin.jar'
+org.jruby.ext.ForkJoin.new.load(JRuby.runtime, false)

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+name: forkjoin
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 1.0.0
+platform: java
+authors: 
+  - Charles Oliver Nutter
+  - Nakamura Hiroshi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-02-17 00:00:00 Z
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: jsr166y
+    prerelease: false
+    requirement: &id001 !ruby/object:Gem::Requirement 
+      none: false
+      requirements: 
+        - - ">="
+          - !ruby/object:Gem::Version 
+            version: "0"
+    type: :runtime
+    version_requirements: *id001
+description: A JRuby extension to efficiently wrap the JSR166 Fork/Join framework.
+email: 
+  - headius@headius.com
+  - nahi@ctor.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+  - lib/forkjoin.jar
+  - lib/forkjoin.rb
+  - examples/wordcount.rb
+  - examples/recursive/fibonacci.rb
+  - examples/recursive/mergesort.rb
+  - README.md
+  - forkjoin.gemspec
+homepage: http://github.com/headius/forkjoin.rb
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+  - lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: A JRuby wrapper around Fork/Join
+test_files: []
+