dramatis 0.0.1

data/History.txt

@@ -0,0 +1,7 @@
+== 0.0.1 2008-06-05
+
+* first packaged alpha
+
+== 0.0.0 2008-04-22
+
+* first (unpackaged) release

data/License.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2008 Steven Parkes
+
+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/Manifest.txt

@@ -0,0 +1,119 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+config/hoe.rb
+config/requirements.rb
+examples/README.txt
+examples/auction.rb
+examples/bank/bank.rb
+examples/bank/bank_test.rb
+examples/exception.rb
+examples/fib/conservative.rb
+examples/fib/future.rb
+examples/fib/original.rb
+examples/fib/threads.rb
+examples/im/distributed/chat.rb
+examples/im/distributed/chat/client.rb
+examples/im/distributed/chat/screen.rb
+examples/im/distributed/chat/screen/fox.rb
+examples/im/distributed/chat/server.rb
+examples/im/distributed/client.rb
+examples/im/distributed/run.rb
+examples/im/distributed/server.rb
+examples/im/single/chat.rb
+examples/im/single/chat/client.rb
+examples/im/single/chat/screen.rb
+examples/im/single/chat/screen/fox.rb
+examples/im/single/chat/screen/wxs.rb
+examples/im/single/chat/server.rb
+examples/im/single/fox.rb
+examples/im/single/wxchat.rb
+examples/pingpong/actor.rb
+examples/pingpong/actor_rec.rb
+examples/pingpong/pingpong.txt
+examples/pingpong/scala.rb
+examples/pingpong/serial.rb
+examples/pretty.txt
+examples/telephone/.irbrc
+examples/telephone/3esl.txt
+examples/telephone/fifth/kid.rb
+examples/telephone/fifth/run.rb
+examples/telephone/first/kid.rb
+examples/telephone/first/run.rb
+examples/telephone/fourth/kid.rb
+examples/telephone/fourth/run.rb
+examples/telephone/mangler.rb
+examples/telephone/second/kid.rb
+examples/telephone/second/run.rb
+examples/telephone/seventh/kid.rb
+examples/telephone/seventh/run.rb
+examples/telephone/seventh/test.rb
+examples/telephone/seventh/test2.rb
+examples/telephone/sixth/kid.rb
+examples/telephone/sixth/run.rb
+examples/telephone/third/kid.rb
+examples/telephone/third/run.rb
+lib/dramatis.rb
+lib/dramatis/actor.rb
+lib/dramatis/actor/interface.rb
+lib/dramatis/actor/name.rb
+lib/dramatis/actor/name/interface.rb
+lib/dramatis/deadlock.rb
+lib/dramatis/error.rb
+lib/dramatis/error/uncaught.rb
+lib/dramatis/future.rb
+lib/dramatis/future/interface.rb
+lib/dramatis/runtime.rb
+lib/dramatis/runtime/actor.rb
+lib/dramatis/runtime/actor/main.rb
+lib/dramatis/runtime/gate.rb
+lib/dramatis/runtime/scheduler.rb
+lib/dramatis/runtime/task.rb
+lib/dramatis/runtime/thread_pool.rb
+lib/dramatis/runtime/timer.rb
+lib/dramatis/shoes.rb
+lib/dramatis/shoes/runtime.rb
+lib/dramatis/version.rb
+log/debug.log
+script/destroy
+script/generate
+script/txt2html
+setup.rb
+spec/dramatis/actor/become_spec.rb
+spec/dramatis/actor/future_spec.rb
+spec/dramatis/actor/name_spec.rb
+spec/dramatis/actor/task_spec.rb
+spec/dramatis/actor_spec.rb
+spec/dramatis/dramatis_spec.rb
+spec/dramatis/exc_spec.rb
+spec/dramatis/runtime/gate_spec.rb
+spec/dramatis/runtime/thread_pool.rb
+spec/dramatis/shoes_spec.rb
+spec/dramatis/simple_spec.rb
+spec/exp_spec.rb
+spec/simple2_spec.rb
+spec/simple_spec.rb
+spec/spec.opts
+spec/spec_helper.rb
+spec/thread_spec.rb
+tasks/deployment.rake
+tasks/environment.rake
+tasks/rspec.rake
+tasks/website.rake
+test/jruby_lm.rb
+test/test.rb
+test/test10.rb
+test/test11.rb
+test/test12.rb
+test/test13.rb
+test/test2.rb
+test/test3.rb
+test/test4.rb
+test/test5.rb
+test/test6.rb
+test/test7.rb
+test/test8.rb
+test/test9.rb
+test/test_exc.rb

data/README.txt

@@ -0,0 +1,57 @@
+= dramatis
+
+* http://dramatis.mischance.net
+
+== DESCRIPTION:
+
+An actor library for dynamic languages like Ruby and Python.
+
+== FEATURES/PROBLEMS:
+
+dramatis provides a library for writing concurrent programs using the actor programming model.
+
+This is an early version, the first release with packaging (a gem for ruby, setuptools for python).
+
+It's available on github to download and does come with documentation, a tutorial, and several examples, all of which (mostly) work, so it's stable enough to being to play with.
+
+repository::
+        git://github.com/dramatis/dramatis.git
+Mailing list::
+        dramatis@googlegroups.com /
+        http://groups.google.com/group/dramatis
+IRC:: #dramatis @ freenode
+Website/Wiki/tracker:: http://dramatis.mischance.net
+
+== SYNOPSIS:
+== REQUIREMENTS:
+
+All the specs run on Ruby 1.8.6, 1.9, and JRuby 1.1 on Linux and OS X.
+All the tests rus on Python 2.5 on Linux.
+
+At least one small example runs on rubinius but the whole spec suite has not been attempted.
+
+== INSTALL:
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 Steven Parkes
+
+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,4 @@
+require 'config/requirements'
+require 'config/hoe' # setup Hoe + all gem configuration
+
+Dir['tasks/**/*.rake'].each { |rake| load rake }

data/config/hoe.rb

@@ -0,0 +1,70 @@
+require 'dramatis/version'
+
+AUTHOR = 'Steven Parkes'  # can also be an array of Authors
+EMAIL = "smparkes@smparkes.net"
+DESCRIPTION = "an Actor library for Ruby and Python"
+GEM_NAME = 'dramatis' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'dramatis' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+@config_file = "~/.rubyforge/user-config.yml"
+@config = nil
+RUBYFORGE_USERNAME = "unknown"
+def rubyforge_username
+  unless @config
+    begin
+      @config = YAML.load(File.read(File.expand_path(@config_file)))
+    rescue
+      puts <<-EOS
+ERROR: No rubyforge config file found: #{@config_file}
+Run 'rubyforge setup' to prepare your env for access to Rubyforge
+ - See http://newgem.rubyforge.org/rubyforge.html for more details
+      EOS
+      exit
+    end
+  end
+  RUBYFORGE_USERNAME.replace @config["username"]
+end
+
+
+REV = nil 
+# UNCOMMENT IF REQUIRED: 
+# REV = `svn info`.each {|line| if line =~ /^Revision:/ then k,v = line.split(': '); break v.chomp; else next; end} rescue nil
+VERS = Dramatis::VERSION::STRING + (REV ? ".#{REV}" : "")
+RDOC_OPTS = ['--quiet', '--title', 'dramatis documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject! { |x| Array(x).first == 'hoe' } 
+    @extra_deps
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.developer(AUTHOR, EMAIL)
+  p.description = DESCRIPTION
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs |= ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  #p.extra_deps = []     # An array of rubygem dependencies [name, version], e.g. [ ['active_support', '>= 1.3.1'] ]
+  
+  #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+  
+end
+
+CHANGES = hoe.paragraphs_of('History.txt', 0..1).join("\\n\\n")
+PATH    = (RUBYFORGE_PROJECT == GEM_NAME) ? RUBYFORGE_PROJECT : "#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+hoe.remote_rdoc_dir = File.join(PATH.gsub(/^#{RUBYFORGE_PROJECT}\/?/,''), 'rdoc')
+hoe.rsync_args = '-av --delete --ignore-errors'

data/config/requirements.rb

@@ -0,0 +1,17 @@
+require 'fileutils'
+include FileUtils
+
+require 'rubygems'
+%w[rake hoe newgem rubigen].each do |req_gem|
+  begin
+    require req_gem
+  rescue LoadError
+    puts "This Rakefile requires the '#{req_gem}' RubyGem."
+    puts "Installation: gem install #{req_gem} -y"
+    exit
+  end
+end
+
+$:.unshift(File.join(File.dirname(__FILE__), %w[.. lib]))
+
+require 'dramatis'

data/examples/README.txt

@@ -0,0 +1,20 @@
+pingpong: working and complete
+
+auction: working but doesn't have the timeout, end of auction stuff
+
+bank: incomplete
+
+telephone: versions first through sixth are complete and working
+           seventh is incomplete/not-working
+
+im: single/fox: working
+    single/wx: working but incomplete
+    distributed: very incomplete
+
+fib: a fib computation after Doug Lea's Fork/Join framework The goal
+     of this is to show speedup on jruby, which has real
+     concurrency. Right now, this is flakey. First, it doesn't bound
+     concurrency (Doug's whole point) which gets out of control in the
+     original version. The conservative version does weird things for
+     me on linux. But so does the pure thread version (though the
+     dramatis version is weirder than the thread version).

data/examples/auction.rb

@@ -0,0 +1,90 @@
+#!/usr/bin/env ruby
+
+# cf. Scala by Example, Chapter 3
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor'
+
+class Auction
+  include Dramatis::Actor
+  def initialize seller, min_bid, closing
+    @seller = seller
+    @min_bid = min_bid
+    @closing = closing
+
+    @time_to_shutdown = 3000
+    @bid_increment = 10
+    @max_bid = @min_bid - @bid_increment
+    @max_bidder = nil
+
+    actor.timeout @closing - Time::now, :timeout
+  end
+
+  def inquire
+    [ @max_bid, @closing ]
+  end
+
+  def offer bid, bidder
+    if bid >= @max_bid + @bid_increment
+      if @max_bid >= @min_bid
+        release( @max_bidder ).beaten_offer bid
+      end
+      @max_bid = bid
+      @max_bidder = bidder
+      :best_offer
+    else
+      [ :beaten_offer, @max_bid ]
+    end
+  end
+
+  def timeout
+    actor.timeout( @time_to_shtudown  ) { exit }
+    actor.become Over.new
+  end
+end
+
+MIN_BID = 100
+CLOSING = Time::now + 4
+
+seller = Dramatis::Actor.new Object.new
+auction = Auction.new seller, MIN_BID, CLOSING
+
+class Client
+  include Dramatis::Actor
+  def initialize id, increment, top, auction
+    @id = id
+    @increment = increment
+    @top = top
+    @auction = auction
+    @current = 0
+    log "started"
+    @max = auction.inquire[0]
+    log "status #{@max}"
+    bid
+  end
+  def bid
+    if @max > @top
+      log("too high for me")
+    elsif ( @current < @max )
+      @current = @max + @increment
+      sleep( ( 1 + rand( 1000 ) )/1000.0 )
+      answer, max_bid = @auction.offer @current, actor.name
+      case answer
+      when :best_offer; log("best offer: #{@current}")
+      when :beaten_offer; beaten_offer max_bid
+      end
+    end
+  end
+  def beaten_offer max_bid
+    log("beaten offer: #{max_bid}")
+    @max = max_bid
+    release( actor.name ).bid
+  end
+  def log string
+    puts "client #{@id}: #{string}"
+  end
+end
+
+Client.new 1, 20, 200, auction
+Client.new 2, 10, 300, auction

data/examples/bank/bank.rb

@@ -0,0 +1,7 @@
+require 'dramatis/actor'
+
+class Bank
+
+  include Dramatis::Actor
+
+end

data/examples/bank/bank_test.rb

@@ -0,0 +1,7 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'bank'
+
+bank = Bank.new

data/examples/exception.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor'
+
+$serial = false
+
+if ARGV[0] == "serial"
+  $serial = true
+end
+
+class Foo
+  if !$serial
+    include Dramatis::Actor
+  end
+  def foo that
+    return that.bar -3
+  end
+end
+
+class Bar
+  if !$serial
+    include Dramatis::Actor
+  end
+  def bar value
+    fooobar
+  end
+  def foobar
+    "foobar"
+  end
+end
+
+Foo.new
+begin
+  Foo.new.foo Bar.new
+rescue NameError => ne
+  puts "hey, I got a #{ne}"
+  puts "it happened here: " + ne.backtrace.join("\n")
+end

data/examples/fib/conservative.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+
+# cf. http://gee.cs.oswego.edu/dl/papers/fj.pdf
+
+# This variant doesn't produce as many threads and thus stresses
+# the thread system less.
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'dramatis/actor'
+
+class Fib
+  include Dramatis::Actor
+  attr_accessor :value
+  def initialize n, level = THREAD_LEVELS
+    actor.refuse :value
+    release( actor.name ).calc n, level
+  end
+  def calc n, level
+    @value = if level == 0
+               now = Time.now
+               puts "#{Thread.current} start"
+               v = sequential( n )
+               puts "#{Thread.current} sequential(#{n}) #{Time.now-now}"
+               v
+             else
+               left = Fib.new( n - 1, level - 1 )
+               right = Fib.new( n - 2, level - 1 )
+               left.value + right.value
+             end
+    actor.accept :value
+  end
+  def sequential n
+    if n <= 1 
+      n
+    else
+      sequential(n-1) + sequential(n-2)
+    end
+  end
+end
+
+n = begin ARGV.shift.to_i; rescue; end
+n and n > 0 or n = 36
+
+threads = begin ARGV.shift.to_i; rescue; end
+threads and threads > 1 or threads = 1
+
+THREAD_LEVELS = ( Math.log(threads)/Math.log(2) ).ceil
+
+puts "fib(#{n}) = #{Fib.new(n).value}"

data/examples/fib/future.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+# cf. http://gee.cs.oswego.edu/dl/papers/fj.pdf
+
+# TBD

data/examples/fib/original.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+
+# cf. http://gee.cs.oswego.edu/dl/papers/fj.pdf
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'dramatis/actor'
+
+class Fib
+  include Dramatis::Actor
+  THRESHOLD = 13
+  attr_accessor :value
+  def initialize n
+    @value = if n <= THRESHOLD
+               sequential( n )
+             else
+               left = Fib.new( n - 1 )
+               right = Fib.new( n - 2 )
+               left.value + right.value
+             end
+  end
+  def sequential n
+    if n <= 1 
+      n
+    else
+      sequential(n-1) + sequential(n-2)
+    end
+  end
+end
+
+n = 28
+
+puts "fib(#{n}) = #{Fib.new(n).value}"

data/examples/fib/threads.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+# cf. http://gee.cs.oswego.edu/dl/papers/fj.pdf
+
+# This variant doesn't produce as many threads and thus stresses
+# the thread system less.
+
+class Fib
+  attr_accessor :value
+  def initialize n, level = THREAD_LEVELS
+    calc n, level
+  end
+  def calc n, level
+    @value = if level == 0
+               now = Time.now
+               puts "#{Thread.current} start"
+               v = sequential( n )
+               puts "#{Thread.current} sequential(#{n}) #{Time.now-now}"
+               v
+             else
+               if true
+                 left = nil
+                 left_thread = Thread.new { left = Fib.new( n - 1, level - 1 ) }
+                 right = nil
+                 right_thread = Thread.new { right = Fib.new( n - 2, level - 1 ) }
+                 left_thread.join
+                 right_thread.join
+                 left.value + right.value
+               else
+                 sequential( n-1 ) + sequential( n-2 )
+               end
+             end
+  end
+  def sequential n
+    if n <= 1 
+      n
+    else
+      sequential(n-1) + sequential(n-2)
+    end
+  end
+end
+
+n = begin ARGV.shift.to_i; rescue; end
+n and n > 0 or n = 36
+
+threads = begin ARGV.shift.to_i; rescue; end
+threads and threads > 1 or threads = 1
+
+THREAD_LEVELS = ( Math.log(threads)/Math.log(2) ).ceil
+
+puts "fib(#{n}) = #{Fib.new(n).value}"

data/examples/im/distributed/chat/client.rb

@@ -0,0 +1,49 @@
+module Chat; end
+
+require 'dramatis/actor'
+
+class Chat::Client
+
+  include Dramatis::Actor
+
+  def initialize screen, server, password, group, user
+
+    @user = user
+
+    @window = screen.new actor.name, :title => user, :prompt => "#{@user} > "
+
+    @window << "connecting to server ... "
+
+    begin
+      @server = server.connect password
+    rescue Exception => e
+      @window << "\nfailed to connect to server: #{e}\n"
+      return
+    end
+
+    @window << "connected to server #{@server}\n"
+
+    @window << "logging in ... "
+
+    begin
+      @group = @server.login group, user, actor.name
+      @window << "done\n"
+    rescue Exception => e
+      @window << "\nlogin failed: #{e}\n"
+    end
+
+  end
+
+  def << opts
+    @window << "#{opts[:user]}@#{opts[:client]} #{opts[:string]}\n"
+  end
+
+  def >> string
+    @group << { :user => @user, :client => self, :string => string }
+  end
+
+  def close
+    @group.logout actor.name
+  end
+
+end