ara 0.0.1

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/Gemfile

@@ -0,0 +1,13 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "shoulda", ">= 0"
+  gem "bundler", "~> 1.0.0"
+  gem "jeweler", "~> 1.6.2"
+  gem "rcov", ">= 0"
+end

data/Gemfile.lock

@@ -0,0 +1,20 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    git (1.2.5)
+    jeweler (1.6.2)
+      bundler (~> 1.0)
+      git (>= 1.2.5)
+      rake
+    rake (0.9.2)
+    rcov (0.9.9)
+    shoulda (2.11.3)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler (~> 1.0.0)
+  jeweler (~> 1.6.2)
+  rcov
+  shoulda

data/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2011 Gregoire Lejeune
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,85 @@
+= ara
+
+      \\
+      (o>
+      //\
+  ____V_/\____
+      //
+     // 
+
+Ara is a tiny class that's allow you to use actors[http://en.wikipedia.org/wiki/Actor_model] in Ruby
+
+Documentation : http://rubydoc.info/github/glejeune/ara/master/frames
+
+== Why "ara"
+
+Because of akka[http://akka.io/] and my two parakeets ;)
+
+== Synopsys
+
+  require 'ara'
+  
+  # Define an actor
+  class MyActor < Actor
+    def receive(message)
+      puts "MyActor receive message : #{message}"
+      sleep rand(10)
+      reply "Thanks @ #{Time.now}!"
+    end
+  end
+  
+  # This method will receive the actor' replies after sending it an asynchronous message
+  def actor_response(r)
+    puts "Actor reply : #{r}"
+  end
+  
+  # Initialize and start the actor
+  myActor = Actor.actor_of(MyActor).start
+
+  # Send a simple message -- We do not expect any response
+  myActor | "Bonjour !"
+
+  # Send a synchronous message -- We wait for the response
+  response = myActor << "Hola !"
+
+  # Send an asynchronous message -- We don't wait for the response
+  myActor < "Hello !"
+  
+  # main loop ;)
+  12.times do |_|
+    puts "I'm the main... And I'm running"
+    sleep 1
+  end
+
+
+== Changelog
+
+=== 0.0.1
+* Initial version
+
+== Contributing to ara
+
+* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet
+* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it
+* Fork the project
+* Start a feature/bugfix branch
+* Commit and push until you are happy with your contribution
+* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
+* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
+
+== Copyright
+
+Copyright (c) 2011 Gregoire Lejeune. See LICENSE.txt for
+further details.
+
+=== binding_of_caller.rb
+
+binding_of_caller.rb is part of the binding_of_caller[https://github.com/quix/binding_of_caller] project by James M. Lawrence 
+
+Copyright (c) 2011 James M. Lawrence. All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,54 @@
+# encoding: utf-8
+
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "ara"
+  gem.homepage = "http://algorithmique.net"
+  gem.license = "MIT"
+  gem.summary = %Q{A tiny Actor class}
+  gem.description = %Q{Ara is a tiny class that’s allow you to use actors in Ruby}
+  gem.email = "gregoire.lejeune@free.fr"
+  gem.authors = ["Gregoire Lejeune"]
+  gem.required_ruby_version = '>= 1.9.2'
+  # dependencies defined in Gemfile
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+require 'rcov/rcovtask'
+Rcov::RcovTask.new do |test|
+  test.libs << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+  test.rcov_opts << '--exclude "gems/*"'
+end
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "ara #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/ara.gemspec

@@ -0,0 +1,78 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{ara}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Gregoire Lejeune"]
+  s.date = %q{2011-07-14}
+  s.description = %q{Ara is a tiny class that’s allow you to use actors in Ruby}
+  s.email = %q{gregoire.lejeune@free.fr}
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+    "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+    "Gemfile",
+    "Gemfile.lock",
+    "LICENSE.txt",
+    "README.rdoc",
+    "Rakefile",
+    "VERSION",
+    "ara.gemspec",
+    "examples/actor.erl",
+    "examples/actor.rb",
+    "examples/actor.scala",
+    "examples/async_actor.rb",
+    "examples/async_block.rb",
+    "examples/async_meth.rb",
+    "examples/logger_actor.rb",
+    "examples/simple_actor.rb",
+    "examples/simple_scheduler.rb",
+    "examples/sync_actor.rb",
+    "examples/test_actor.rb",
+    "lib/ara.rb",
+    "lib/ara/actor.rb",
+    "lib/ara/actors.rb",
+    "lib/ara/exception.rb",
+    "lib/ara/logger.rb",
+    "lib/ara/scheduler.rb",
+    "lib/ara/simple_actor.rb",
+    "lib/ext/binding_of_caller.rb",
+    "test/helper.rb",
+    "test/test_ara.rb"
+  ]
+  s.homepage = %q{http://algorithmique.net}
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.required_ruby_version = Gem::Requirement.new(">= 1.9.2")
+  s.rubygems_version = %q{1.6.2}
+  s.summary = %q{A tiny Actor class}
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<shoulda>, [">= 0"])
+      s.add_development_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_development_dependency(%q<jeweler>, ["~> 1.6.2"])
+      s.add_development_dependency(%q<rcov>, [">= 0"])
+    else
+      s.add_dependency(%q<shoulda>, [">= 0"])
+      s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_dependency(%q<jeweler>, ["~> 1.6.2"])
+      s.add_dependency(%q<rcov>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<shoulda>, [">= 0"])
+    s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+    s.add_dependency(%q<jeweler>, ["~> 1.6.2"])
+    s.add_dependency(%q<rcov>, [">= 0"])
+  end
+end
+

data/examples/actor.erl

@@ -0,0 +1,21 @@
+%% Usage :
+%%
+%%   c(actor).
+%%   Pid = spawn(fun actor:myActor/0).
+%%   Pid ! {mult, 4}.
+%%
+-module(actor).
+-export([myActor/0]).
+
+myActor() ->
+   receive  
+   {mult, X} ->
+      io:format(standard_io, "~w * ~w = ~w~n", [X, X, X*X]),
+      myActor();
+   {add, X} ->
+      io:format(standard_io, "~w + ~w = ~w~n", [X, X, X+X]),
+      myActor();
+   Other ->
+      io:format(standard_io, "Don't know what to do with message : ~w~n", [Other]),
+      myActor()
+end.

data/examples/actor.rb

@@ -0,0 +1,27 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MyActor < Actor
+  def receive(message)
+    action = message[0]
+    value = message[1]
+    case action
+      when :mult then
+        puts "#{value} * #{value} = #{value * value}"
+      when :add then
+        puts "#{value} + #{value} = #{value + value}"
+      else 
+        puts "Don't know what to do with message : #{message}"
+    end
+  end
+end
+
+myActor = Actors.actor_of(MyActor).start
+
+myActor | [:mult, 4]
+myActor | [:add, 4]
+myActor | [:something, 4]
+
+sleep 2
+
+myActor.stop

data/examples/actor.scala

@@ -0,0 +1,28 @@
+import scala.actors.Actor
+
+case class Mult(value: Int)
+case class Add(value: Int)
+case class Something(value: Int)
+case object Stop
+
+class MyActor extends Actor {
+   def act() {
+      loop {
+         receive {
+            case Mult(value) => println(value + " * " + value + " = " + value * value)
+            case Add(value) => println(value + " + " + value + " = " + (value + value))
+            case Stop => exit()
+            case msg => println("Don't know what to do with message :" + msg)
+         }
+      }
+   }
+}
+
+val myActor = new MyActor()
+myActor.start
+
+myActor ! Mult(4)
+myActor ! Add(4)
+myActor ! Something(4)
+
+myActor ! Stop

data/examples/async_actor.rb

@@ -0,0 +1,25 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MyASynchronizedActor < Actor
+  def receive(message)
+    puts "Actor #{self} receive message : #{message}"
+    sleep rand(10)
+    reply "Thanks @ #{Time.now}!"
+  end
+end
+
+def actor_response(r)
+  puts "Actor send me : #{r}"
+end
+
+myASynchromizedActor = Actors.actor_of(MyASynchronizedActor).start
+myASynchromizedActor < "Hello !"
+
+puts "Message send to actor, response will arrive ;)"
+
+12.times do |_|
+  puts "I'm the main... And I'm running"
+  sleep 1
+end
+

data/examples/async_block.rb

@@ -0,0 +1,23 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MyASynchronizedActor < Actor
+  def receive(message)
+    puts "Actor #{self} receive message : #{message}"
+    sleep rand(10)
+    reply "Thanks @ #{Time.now}!"
+  end
+end
+
+myASynchromizedActor = Actors.actor_of(MyASynchronizedActor).start
+myASynchromizedActor.async_message("Hello !") do |r|
+  puts "Actor send me : #{r}"
+end
+
+puts "Message send to actor, response will arrive ;)"
+
+12.times do |_|
+  puts "I'm the main... And I'm running"
+  sleep 1
+end
+

data/examples/async_meth.rb

@@ -0,0 +1,25 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MyASynchronizedActor < Actor
+  def receive(message)
+    puts "Actor #{self} receive message : #{message}"
+    sleep rand(10)
+    reply "Thanks @ #{Time.now}!"
+  end
+end
+
+def my_response(r)
+  puts "Actor send me : #{r}"
+end
+
+myASynchromizedActor = Actors.actor_of(MyASynchronizedActor).start
+myASynchromizedActor.async_message("Hello !", :my_response)
+
+puts "Message send to actor, response will arrive ;)"
+
+12.times do |_|
+  puts "I'm the main... And I'm running"
+  sleep 1
+end
+

data/examples/logger_actor.rb

@@ -0,0 +1,34 @@
+$:.unshift("../lib")
+require 'ara'
+
+Ara.logger = Logger.new("actor.log")
+Ara.logger.debug "Starting..."
+
+class MySimpleActor < SimpleActor
+  def receive( message )
+    Ara.logger.debug "Actor #{self} receive message : #{message}"
+  end
+end
+
+mySimpleActor = Actors.actor_of(MySimpleActor).start
+mySimpleActor | "Bonjour le monde!"
+
+sleep 1
+
+mySimpleActor | "Hello World!"
+mySimpleActor | "Ola Mundo!"
+
+sleep 1
+
+mySimpleActor.stop
+
+sleep 1
+
+Ara.logger.debug "Ending..."
+
+# This will raise an exception
+begin
+  mySimpleActor | "Hum..."
+rescue DeadActor => e
+  puts e
+end

data/examples/simple_actor.rb

@@ -0,0 +1,29 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MySimpleActor < SimpleActor
+  def receive( message )
+    puts "Actor #{self} receive message : #{message}"
+  end
+end
+
+mySimpleActor = Actors.actor_of(MySimpleActor).start
+mySimpleActor | "Bonjour le monde!"
+
+sleep 1
+
+mySimpleActor | "Hello World!"
+mySimpleActor | "Ola Mundo!"
+
+sleep 1
+
+mySimpleActor.stop
+
+sleep 1
+
+# This will raise an exception
+begin
+  mySimpleActor | "Hum..."
+rescue DeadActor => e
+  puts e
+end

data/examples/simple_scheduler.rb

@@ -0,0 +1,22 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MySimpleActor < SimpleActor
+  def receive( message )
+    puts "Actor #{self} receive message : #{message}"
+  end
+end
+
+my_actor = Actors.actor_of(MySimpleActor).start
+
+sched_one = Scheduler.schedule(my_actor, "Hello World! (every 1 second)", 1, 1, Scheduler::SECOND)
+sched_two = Scheduler.schedule_once(my_actor, "Hello World! (once after 4 second)", 4, Scheduler::SECOND)
+
+sleep 10
+
+sched_one.shutdown
+puts "-- Scheduler has been shutdown! We wait 5 second to be sure ;)"
+
+sleep 5
+
+my_actor.stop

data/examples/sync_actor.rb

@@ -0,0 +1,13 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MySynchronizedActor < Actor
+  def receive(message)
+    puts "Actor #{self} receive message : #{message}"
+    sleep rand(10)
+    reply "Thanks @ #{Time.now}!"
+  end
+end
+
+mySynchromizedActor = Actors.actor_of(MySynchronizedActor).start
+puts mySynchromizedActor << "Hello !"

data/examples/test_actor.rb

@@ -0,0 +1,28 @@
+$:.unshift("../lib")
+require 'ara'
+
+class MySimpleActor < SimpleActor
+  def receive( message )
+    id = rand(10)
+    puts "I'm actor #{self} with ID##{id}"
+    if message.class == Fixnum
+      message.times do |i|
+        puts "#{id} : #{i}"
+        sleep 0.5
+      end
+    else
+      puts "Don't know what to do with your message : #{message}"
+    end
+  end
+end
+
+mySimpleActor = Actors.actor_of(MySimpleActor).start
+mySimpleActor | 5
+mySimpleActor | "Hello World!"
+mySimpleActor | 7
+mySimpleActor | 9
+
+puts "Thanks actor!"
+sleep 20
+
+mySimpleActor.stop

data/lib/ara.rb

@@ -0,0 +1,8 @@
+require 'thread'
+
+require 'ara/exception'
+require 'ara/logger'
+require 'ara/simple_actor'
+require 'ara/actor'
+require 'ara/actors'
+require 'ara/scheduler'

data/lib/ara/actor.rb

@@ -0,0 +1,75 @@
+require 'ara/exception'
+require 'ara/simple_actor'
+
+# Actor class
+class Actor < SimpleActor
+  def initialize #:nodoc:
+    raise ActorInitializationError, "You can't initialize Actor directly, use Actors.actor_of" if self.class == ::Actor
+    super
+    @main = Queue.new
+  end
+
+  # Send a synchronous message
+  #
+  #   myActor = Actors.actor_of(MyActor).start
+  #   message = ...
+  #   result = myActor << message
+  #
+  # All code after this call will be executed only when the actor has finished it's work
+  def <<(message)
+    if @thread.alive?
+      @actorQueue << message
+      @main.pop
+    else 
+      raise DeadActor, "Actor is dead!"
+    end
+  end
+  alias :sync_message :<<
+
+  # Send an asynchronous message
+  #
+  #   myActor = Actors.actor_of(MyActor).start
+  #   message = ...
+  #   myActor < message
+  #
+  # The code after this call will be executed without waiting the actor. You must add a <tt>result</tt> method to get the actor' reponse.
+  def <(message, response_method = nil)
+    if @thread.alive?
+      @actorQueue << message
+      BindingOfCaller.binding_of_caller do |bind|
+         self_of_caller = eval("self", bind)
+         Thread.new do
+            _result = @main.pop
+            begin
+            if block_given?
+              yield _result
+            elsif response_method != nil
+              self_of_caller.send( response_method.to_sym, _result )
+            else
+              self_of_caller.send( :actor_response, _result )
+            end
+            rescue => e
+               raise ActorResponseError, "Error while sending response : #{e}"
+            end
+         end
+      end
+    else
+      raise DeadActor, "Actor is dead!"
+    end
+  end
+  alias :async_message :<
+
+  private
+  # Method use by the actor to reply to his sender
+  #
+  #   class MyActor < Actor
+  #     def receive(message)
+  #       ...
+  #       something = ...
+  #       reply( something )
+  #     end
+  #   end
+  def reply( r )
+    @main << r
+  end
+end

data/lib/ara/actors.rb

@@ -0,0 +1,16 @@
+# Actors class
+class Actors
+  # Create a new Actor with class klass
+  #
+  #   class MyActor < Actor
+  #     def receive(message)
+  #       ...
+  #     end
+  #   end
+  #   
+  #   myActor = Actors.actor_of(MyActor)
+  def self.actor_of(klass)
+    return klass.new()
+  end
+end
+

data/lib/ara/exception.rb

@@ -0,0 +1,8 @@
+class DeadActor < Exception #:nodoc:
+end
+class UndefinedResultMethod < Exception #:nodoc:
+end
+class ActorInitializationError < Exception #:nodoc:
+end
+class ActorResponseError < Exception #:nodoc:
+end

data/lib/ara/logger.rb

@@ -0,0 +1,29 @@
+require 'logger'
+require 'singleton'
+
+module Ara
+   def self.logger
+      return L.instance.logger
+   end
+
+   def self.logger=(l)
+      L.instance.logger=l
+   end
+
+   class L #:nodoc:
+      include Singleton
+
+      def initialize
+         @mutex = Mutex.new
+         @logger = Logger.new STDERR
+      end
+
+      def logger
+         @mutex.synchronize { @logger }
+      end
+
+      def logger=(l)
+         @mutex.synchronize { @logger=l }
+      end
+   end
+end

data/lib/ara/scheduler.rb

@@ -0,0 +1,144 @@
+require 'singleton'
+
+module Scheduler
+   SECOND = 1
+   MINUTE = 60 * SECOND
+   HOUR = 60 * MINUTE
+   DAY = 25 * HOUR
+   WEEK = 7 * DAY
+   MONTH = (365 * DAY) / 12
+   YEAR = 365 * DAY
+
+   # Create a scheduler to send the message <tt>message</tt> to actor <tt>receiver_actor</tt> every <tt>delay_between_messages</tt> <tt>time_unit</tt>
+   # with an initial delay of <tt>initial_delay_before_send</tt> <tt>time_unit</tt>
+   def self.schedule(receiver_actor, message, initial_delay_before_send, delay_between_messages, time_unit) 
+      action = Action.new(receiver_actor, message, initial_delay_before_send, delay_between_messages, time_unit)
+      actions.add(action)
+      action.start
+      yield action if block_given?
+      action
+   end
+
+   # Create a scheduler to send the message <tt>message</tt> to actor <tt>receiver_actor</tt> after <tt>delay_until_send</tt> <tt>time_unit</tt>
+   def self.schedule_once(receiver_actor, message, delay_until_send, time_unit)
+      action = Action.new(receiver_actor, message, delay_until_send, nil, time_unit)
+      actions.add(action)
+      action.start
+      yield action if block_given?
+      action
+   end
+
+   # Shutdown all scheduled actions
+   def self.shutdown
+      actions.each { |a| a.shutdown }
+   end
+
+   # Restart all scheduled actions
+   def self.restart
+      actions.each { |a| a.rstart }
+   end
+
+   # Stop all scheduled actions
+   def self.stop
+      actions.each { |a| a.stop }
+   end
+
+   # Pause all scheduled actions
+   def self.pause
+      actions.each { |a| a.pause }
+   end
+
+   # Return all actions
+   def self.actions
+      Scheduler::Actions.instance
+   end
+
+   class Actions #:nodoc:
+      include Singleton
+
+      def initialize
+         @mutex = Mutex.new
+         @actions = Array.new
+      end
+
+      def add(a)
+         @mutex.synchronize { @actions << a }
+      end
+
+      def remove(a)
+         @mutex.synchronize { @actions.delete(a) }
+      end
+
+      def remove_all
+         @mutex.synchronize { @actions.each { |a| @actions.delete(a) } }
+      end
+
+      def include?(a)
+         @mutex.synchronize { @actions.include?(a) }
+      end
+
+      def each(&b) 
+         @mutex.synchronize { @actions.each { |a| yield a } }
+      end
+   end
+
+   class Action
+      def initialize(receiver_actor, message, initial_delay, delay, time_unit) #:nodoc:
+         @receiver_actor = receiver_actor
+         @message = message
+         @initial_delay = initial_delay
+         @delay = delay
+         @time_unit = time_unit
+
+         @once = delay == nil
+         @current_delay = @initial_delay
+
+         @thread = nil
+      end
+
+      # Start the action
+      def start
+         return unless Scheduler.actions.include?(self)
+         @thread = Thread.new {
+            while(true) 
+               run
+               @current_delay = @delay
+               if @current_delay.nil?
+                  break
+               end
+            end
+            shutdown
+         }
+      end
+
+      # Stop the action
+      def stop
+         @current_delay = @initial_delay
+         pause
+      end
+
+      # Pause the action
+      def pause
+         @thread.kill
+         @thread = nil
+      end
+
+      # Restart the action
+      def restart
+         stop unless @thread.nil?
+         start
+      end
+
+      # Shutdown the action
+      def shutdown
+         stop
+         Scheduler.actions.remove(self)
+      end
+
+      private
+      def run
+         sleep(1 * @current_delay * @time_unit)
+         @receiver_actor | @message
+      end
+   end
+end

data/lib/ara/simple_actor.rb

@@ -0,0 +1,61 @@
+require 'ext/binding_of_caller'
+require 'ara/exception'
+
+# This class allow you to create simple actors. 
+class SimpleActor
+  def initialize #:nodoc:
+    raise ActorInitializationError, "You can't initialize SimpleActor directly, use Actors.actor_of" if self.class == ::SimpleActor
+    @actorQueue = Queue.new
+  end
+
+  # Start actor and return it
+  #
+  #   myActor = Actors.actor_of(MyActor)
+  #   myActor.start
+  def start
+    @thread = Thread.new do 
+      loop do
+        receive(@actorQueue.pop)
+      end
+    end
+
+    return self
+  end
+
+  # Stop actor
+  #
+  #   myActor = Actors.actor_of(MyActor).start
+  #   ...
+  #   myActor.stop
+  def stop
+    @thread.kill
+  end
+
+  # Send a simple message without expecting any response
+  #
+  #   myActor = Actors.actor_of(MyActor).start
+  #   message = ...
+  #   myActor | message
+  def |(message)
+    if @thread.alive?
+      @actorQueue << message
+    else 
+      raise DeadActor, "Actor is dead!"
+    end
+  end
+  alias :message :|
+
+  private
+  # Method receiver for the actor
+  #
+  # When you create an actor (simple or not) you *must* define a <tt>receive</tt> method.
+  #
+  #   class MyActor < Actor
+  #     def receive(message)
+  #       ...
+  #     end
+  #   end
+  def receive(message)
+    raise "Define me!"
+  end
+end

data/lib/ext/binding_of_caller.rb

@@ -0,0 +1,64 @@
+# Copyright (c) 2011 James M. Lawrence. All rights reserved.
+# 
+# Permission is hereby granted, free of charge, to any person
+# obtaining a copy of this software and associated documentation files
+# (the "Software"), to deal in the Software without restriction,
+# including without limitation the rights to use, copy, modify, merge,
+# publish, distribute, sublicense, and/or sell copies of the Software,
+# and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
+# BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+# ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'continuation'
+
+module BindingOfCaller
+VERSION = "0.1.3"
+
+module_function
+
+def binding_of_caller
+   cont = nil
+   event_count = 0
+
+   tracer = lambda do |event, _, _, _, binding, _|
+      event_count += 1
+      if event_count == 4
+         Thread.current.set_trace_func(nil)
+         case event
+            when "return", "line", "end"
+               cont.call(nil, binding)
+            else
+               error_msg = "\n" <<
+               "Invalid use of binding_of_caller. One of the following:\n" <<
+               "  (1) statements exist after the binding_of_caller block;\n" <<
+               "  (2) the method using binding_of_caller appears inside\n" <<
+               "      a method call;\n" <<
+               "  (3) the method using binding_of_caller is called from the\n" << 
+               "      last line of a block or global scope.\n" <<
+               "See the documentation for binding_of_caller.\n"
+               cont.call(nil, nil, lambda { raise(ScriptError, error_msg) })
+            end
+         end
+      end
+
+      cont, result, error = callcc { |cc| cc }
+      if cont
+         Thread.current.set_trace_func(tracer)
+      elsif result
+         yield result
+      else
+         error.call 
+      end
+   end
+end

data/test/helper.rb

@@ -0,0 +1,18 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'ara'
+
+class Test::Unit::TestCase
+end

data/test/test_ara.rb

@@ -0,0 +1,13 @@
+require 'helper'
+
+class MySimpleActor < SimpleActor
+  def receive(m)
+  end
+end
+
+class TestAra < Test::Unit::TestCase
+  should "create a simple actor" do
+    simple_actor = Actors.actor_of(MySimpleActor)
+    assert simple_actor != nil
+  end
+end

metadata

@@ -0,0 +1,122 @@
+--- !ruby/object:Gem::Specification
+name: ara
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Gregoire Lejeune
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-07-14 00:00:00.000000000 +02:00
+default_executable: 
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: shoulda
+  requirement: &2151807640 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *2151807640
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: &2151806340 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *2151806340
+- !ruby/object:Gem::Dependency
+  name: jeweler
+  requirement: &2151804400 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.6.2
+  type: :development
+  prerelease: false
+  version_requirements: *2151804400
+- !ruby/object:Gem::Dependency
+  name: rcov
+  requirement: &2151802760 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *2151802760
+description: Ara is a tiny class that’s allow you to use actors in Ruby
+email: gregoire.lejeune@free.fr
+executables: []
+extensions: []
+extra_rdoc_files:
+- LICENSE.txt
+- README.rdoc
+files:
+- .document
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- VERSION
+- ara.gemspec
+- examples/actor.erl
+- examples/actor.rb
+- examples/actor.scala
+- examples/async_actor.rb
+- examples/async_block.rb
+- examples/async_meth.rb
+- examples/logger_actor.rb
+- examples/simple_actor.rb
+- examples/simple_scheduler.rb
+- examples/sync_actor.rb
+- examples/test_actor.rb
+- lib/ara.rb
+- lib/ara/actor.rb
+- lib/ara/actors.rb
+- lib/ara/exception.rb
+- lib/ara/logger.rb
+- lib/ara/scheduler.rb
+- lib/ara/simple_actor.rb
+- lib/ext/binding_of_caller.rb
+- test/helper.rb
+- test/test_ara.rb
+has_rdoc: true
+homepage: http://algorithmique.net
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.2
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.6.2
+signing_key: 
+specification_version: 3
+summary: A tiny Actor class
+test_files: []