jretlang 0.2.2 → 0.2.3

data/VERSION

@@ -1 +1 @@
-0.2.2
+0.2.3

data/changelog

@@ -1,4 +1,10 @@
-commit da32dcd9da5cf9c8e3a7edc76465d032e5ca433d
+commit efcd50f516f86ba0ce53c17587e9b5edadbebaa8
+Author: Gareth Reeves <greeves@drwholdings.com>
+
+    in this release (0.2.3)
+    -- JRL::Schedule for scheduling events to run once or repeating at some point in the future
+
+commit 454f958b29906bfb9f9de20a8edd0dbe54685fb2
 Author: Gareth Reeves <greeves@drwholdings.com>
 
     in this release (0.2.2)

data/jretlang.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{jretlang}
-  s.version = "0.2.2"
+  s.version = "0.2.3"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Gareth Reeves"]
-  s.date = %q{2009-10-16}
+  s.date = %q{2009-10-21}
   s.description = %q{A JRuby package of jretlang}
   s.email = %q{reevesg@pobox.com}
   s.files = [
@@ -22,6 +22,7 @@ Gem::Specification.new do |s|
      "lib/jretlang/channel.rb",
      "lib/jretlang/fiber.rb",
      "lib/jretlang/latch.rb",
+     "lib/jretlang/schedule.rb",
      "readme",
      "test/unit/test_examples.rb",
      "test/unit/unit_test_helper.rb",

data/lib/jretlang/schedule.rb

@@ -0,0 +1,44 @@
+class JRL::Schedule
+  class << self
+    def one_time( delay, name=:default, time_unit=JRL::Concurrent::TimeUnit::SECONDS, &block )
+      fiber(name).schedule( block, delay, time_unit )
+    end
+
+    def repeating( delay, interval, name=:default, time_unit=JRL::Concurrent::TimeUnit::SECONDS, &block )
+      fiber(name).schedule_with_fixed_delay( block, delay, interval, time_unit )
+    end
+
+    def dispose 
+      @fiber_factory.dispose if @fiber_factory 
+      @service.shutdown if @service 
+      @fiber_map.each { |name, fiber| fiber.dispose } if @fiber_map
+
+      @fiber_factory = nil
+      @service = nil
+      @fiber_map = nil
+    end
+
+    private
+    def fiber_factory
+      @fiber_factory ||= create_fiber_factory
+    end
+
+    def create_fiber_factory
+      @service = JRL::Concurrent::Executors.newCachedThreadPool();
+      JRL::Fibers::PoolFiberFactory.new(@service);
+    end
+
+    def create_fiber
+     fiber = fiber_factory.create
+     fiber.start
+     fiber
+    end
+
+    def fiber( name )
+      name = name.to_s
+      @fiber_map ||= {}
+      @fiber_map[name] = create_fiber unless @fiber_map[name]
+      @fiber_map[name]
+    end
+  end
+end

data/lib/jretlang.rb

@@ -20,3 +20,4 @@ end
 require 'jretlang/latch'
 require 'jretlang/channel'
 require 'jretlang/fiber'
+require 'jretlang/schedule'

data/test/unit/test_examples.rb

@@ -51,12 +51,27 @@ class TestChannel < Test::Unit::TestCase
     assert l.await( 1 )
   end
 
+  def test_scheduler
+    l = latch( 1 )
+    JRL::Schedule.one_time( 0.01 ) { l.count_down } 
+    assert l.await( 1 )
+    JRL::Schedule.dispose
+  end
+
   def test_fiber_schedule_recurring
     l = latch( 5 )
     @fiber.schedule_repeating( 1, 2, JRL::Concurrent::TimeUnit::MILLISECONDS ) { l.count_down }
     assert l.await( 1 )
   end
 
+  def test_scheduler_recurring
+    l = latch( 5 )
+    JRL::Schedule.repeating( 1, 2, :test, JRL::Concurrent::TimeUnit::MILLISECONDS ) { l.count_down }
+    assert l.await( 1 )
+    JRL::Schedule.dispose
+  end
+
+
   def test_unsubscribe
     l1 = latch( 1 )
     l2 = latch( 2 )

metadata

@@ -36,6 +36,7 @@ files:
 - lib/jretlang/channel.rb
 - lib/jretlang/fiber.rb
 - lib/jretlang/latch.rb
+- lib/jretlang/schedule.rb
 - readme
 - test/unit/test_examples.rb
 - test/unit/unit_test_helper.rb
@@ -157,13 +158,13 @@ requirements: []
 
 authors: 
 - Gareth Reeves
-date: 2009-10-16 05:00:00 +00:00
+date: 2009-10-21 05:00:00 +00:00
 platform: ruby
 test_files: 
 - test/unit/test_examples.rb
 - test/unit/unit_test_helper.rb
 version: !ruby/object:Gem::Version 
-  version: 0.2.2
+  version: 0.2.3
 require_paths: 
 - lib
 dependencies: []