dramatis 0.0.1

data/spec/exp_spec.rb

@@ -0,0 +1,21 @@
+class Demo < StandardError
+
+  def set_backtrace *args
+    super
+  end
+
+  def backtrace
+    super
+  end
+
+end
+
+d = Demo.new
+
+# p d.backtrace
+
+begin
+  raise d
+rescue Exception => e
+  # p e.backtrace
+end

data/spec/simple2_spec.rb

@@ -0,0 +1,36 @@
+describe "ruby" do
+
+  it "should work" do
+
+    module Simple2M
+
+      class Wrapper
+        def initialize wrapped
+        end
+      end
+
+      def self.included cls
+        class << cls
+          def new
+            Wrapper.new super
+          end
+        end
+      end
+
+    end
+
+    class Simple2C; include Simple2M; end
+
+    Simple2C.new.should be_kind_of( Simple2M::Wrapper )
+
+    class Simple2C
+      class << self
+        remove_method :new
+      end
+    end
+
+    Simple2C.new.should be_kind_of( Simple2C )
+
+  end
+
+end

data/spec/simple_spec.rb

@@ -0,0 +1,30 @@
+describe "ruby" do
+
+  it "should work" do
+
+    module SimpleM
+
+      class Wrapper
+        def initialize wrapped
+        end
+      end
+
+      module Class
+        def new
+          Wrapper.new super
+        end
+      end
+
+      def self.included cls
+        cls.extend Class
+      end
+
+    end
+
+    class SimpleC; include SimpleM; end
+
+    SimpleC.new.should be_kind_of( SimpleM::Wrapper )
+
+  end
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,26 @@
+begin
+  require 'spec'
+rescue LoadError
+  require 'rubygems'
+  gem 'rspec'
+  require 'spec'
+end
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+module DramatisSpecHelper
+
+  def runtime_check
+    begin
+      Dramatis::Runtime.current.quiesce
+      Dramatis::Runtime.current.exceptions.length.should equal( 0 )
+      Thread.list.length.should \
+        equal( 1 + Dramatis::Runtime::Scheduler.current.thread_count )
+    ensure
+      Dramatis::Runtime.reset
+      Thread.list.length.should == 1
+    end
+  end
+
+end
+

data/spec/thread_spec.rb

@@ -0,0 +1,13 @@
+describe "ruby" do
+
+  it "should allow threads to access lexically scoped vars" do
+
+    x = 12;
+
+    Thread.new do
+      # p x
+    end
+
+  end
+
+end

data/tasks/deployment.rake

@@ -0,0 +1,34 @@
+desc 'Release the website and new gem version'
+task :deploy => [:check_version, :website, :release] do
+  puts "Remember to create SVN tag:"
+  puts "svn copy svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/trunk " +
+    "svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/tags/REL-#{VERS} "
+  puts "Suggested comment:"
+  puts "Tagging release #{CHANGES}"
+end
+
+desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
+task :local_deploy => [:website_generate, :install_gem]
+
+task :check_version do
+  unless ENV['VERSION']
+    puts 'Must pass a VERSION=x.y.z release version'
+    exit
+  end
+  unless ENV['VERSION'] == VERS
+    puts "Please update your version.rb to match the release version, currently #{VERS}"
+    exit
+  end
+end
+
+desc 'Install the package as a gem, without generating documentation(ri/rdoc)'
+task :install_gem_no_doc => [:clean, :package] do
+  sh "#{'sudo ' unless Hoe::WINDOZE }gem install pkg/*.gem --no-rdoc --no-ri"
+end
+
+namespace :manifest do
+  desc 'Recreate Manifest.txt to include ALL files'
+  task :refresh do
+    `rake check_manifest | patch -p0 > Manifest.txt`
+  end
+end

data/tasks/environment.rake

@@ -0,0 +1,7 @@
+task :ruby_env do
+  RUBY_APP = if RUBY_PLATFORM =~ /java/
+    "jruby"
+  else
+    "ruby"
+  end unless defined? RUBY_APP
+end

data/tasks/rspec.rake

@@ -0,0 +1,21 @@
+begin
+  require 'spec'
+rescue LoadError
+  require 'rubygems'
+  require 'spec'
+end
+begin
+  require 'spec/rake/spectask'
+rescue LoadError
+  puts <<-EOS
+To use rspec for testing you must install rspec gem:
+    gem install rspec
+EOS
+  exit(0)
+end
+
+desc "Run the specs under spec/models"
+Spec::Rake::SpecTask.new do |t|
+  t.spec_opts = ['--options', "spec/spec.opts"]
+  t.spec_files = FileList['spec/**/*_spec.rb']
+end

data/tasks/website.rake

@@ -0,0 +1,17 @@
+desc 'Generate website files'
+task :website_generate => :ruby_env do
+  (Dir['website/**/*.txt'] - Dir['website/version*.txt']).each do |txt|
+    sh %{ #{RUBY_APP} script/txt2html #{txt} > #{txt.gsub(/txt$/,'html')} }
+  end
+end
+
+desc 'Upload website files to rubyforge'
+task :website_upload do
+  host = "#{rubyforge_username}@rubyforge.org"
+  remote_dir = "/var/www/gforge-projects/#{PATH}/"
+  local_dir = 'website'
+  sh %{rsync -aCv #{local_dir}/ #{host}:#{remote_dir}}
+end
+
+desc 'Generate and upload website files'
+task :website => [:website_generate, :website_upload, :publish_docs]

data/test/jruby_lm.rb

@@ -0,0 +1,13 @@
+def f &block
+  re = Regexp.new( "^lib\\/(.*)\\.rb$" )
+  yield re
+end
+
+fn = "lib/foo.rb"
+
+f { |re|
+  fn =~ re
+  raise "hell" if Regexp.last_match.to_s != "lib/foo.rb"
+}
+
+raise "hell" if Regexp.last_match.to_s != "lib/foo.rb"

data/test/test.rb

@@ -0,0 +1,19 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'thread'
+require 'pp'
+
+begin
+  Dramatis::Actor.new.foo
+  raise "hell"
+rescue Dramatis::Deadlock => e
+  # puts "got expected #{e}"
+end
+# pp Thread.list
+Dramatis::Runtime.current.quiesce
+# pp Thread.list
+raise "hell" if Thread.list.length > 1
+

data/test/test10.rb

@@ -0,0 +1,43 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+require 'pp'
+
+a = Class.new do
+
+  include Dramatis::Actor
+
+  def a
+    p "b4b"
+    begin
+      actor.name.b
+    rescue Exception => e
+      p "got a #{e}"
+      raise e
+    end
+    p "a4b"
+  end
+  
+  def b
+    p "bbb"
+  end
+
+end
+
+# non-call threaded
+# This should deadlock nicely
+
+begin
+  p "b4"
+  a.new.a
+  p "a4"
+  raise "should have deadlocked"
+rescue Dramatis::Deadlock
+  p "got it. yeah!"
+end
+
+p "done"

data/test/test11.rb

@@ -0,0 +1,45 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/actor'
+require 'dramatis/runtime'
+
+require 'pp'
+
+# call threading test
+
+a = Class.new do
+
+  include Dramatis::Actor
+
+  def initialize
+    actor.enable_call_threading
+  end
+
+  def a
+    actor.name.b
+  end
+  
+  def b
+  end
+
+  def c
+    other = self.class.new
+    other.d actor.name
+  end
+
+  def d first
+    first.a
+  end
+
+end
+
+# recursion allowd
+
+a.new.a
+
+# co-recursion allowed
+
+a.new.c

data/test/test12.rb

@@ -0,0 +1,60 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+require 'pp'
+
+include Dramatis
+
+a = Class.new do
+
+  include Dramatis::Actor
+
+  attr_reader :block_called
+
+  def initialize
+    actor.refuse :c
+    actor.always :block_called, true
+  end
+
+  def a other
+    block = lambda do |c|
+      # warn "block continuation #{c}"
+      @block_called = true
+    end
+    ( interface( other ).continue( &block ) ).b
+    other.c
+  end
+  
+  def enable
+    actor.default :c
+  end
+
+  def b
+  end
+
+  def c
+  end
+
+end
+
+# non-call threaded
+
+a1 = a.new
+a2 = a.new
+( interface( a1 ).continue nil ).a a2
+
+Dramatis::Runtime.current.quiesce
+
+raise "hell" if a1.block_called
+
+a2.enable
+
+Dramatis::Runtime.current.quiesce
+
+raise "hell" if !a1.block_called
+
+

data/test/test13.rb

@@ -0,0 +1,71 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+require 'pp'
+
+include Dramatis
+
+a = Class.new do
+
+  include Dramatis::Actor
+  
+  attr_reader :block_called, :exception_raised
+
+  def initialize
+    actor.refuse :c
+    actor.always :block_called, true
+    actor.always :exception_raised, true
+  end
+
+  def a other
+    result = lambda do |r|
+      # warn "block continuation #{r}"
+      @block_called = true
+    end
+    except = lambda do |exception|
+      # warn "#{exception} (a good thing)"
+      raise "hell: #{exception.to_s}" if exception.to_s != "hell"
+      # warn "exception continuation"
+      @exception_raised = true
+    end
+    ( interface( other ).continue :exception => except, &result ).bb
+    ( interface( other ).continue :exception => except, &result ).b
+    other.c
+  end
+  
+  def enable
+    actor.default :c
+  end
+
+  def bb
+  end
+
+  def b
+    raise "hell"
+  end
+
+  def c
+  end
+
+end
+
+# non-call threaded
+
+a1 = a.new
+a2 = a.new
+( interface( a1 ).continue nil ).a a2
+
+Dramatis::Runtime.current.quiesce
+
+raise "hell" if a1.block_called
+raise "hell" if !a1.exception_raised
+
+a2.enable
+
+Dramatis::Runtime.current.quiesce
+
+raise "hell" if !a1.block_called

data/test/test2.rb

@@ -0,0 +1,12 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+
+include Dramatis
+
+name = Dramatis::Actor.new
+
+interface( name ).bind Object.new
+

data/test/test3.rb

@@ -0,0 +1,10 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'pp'
+a = [ :a, :b, :c ]
+pp a
+pp a[1,-1]
+b = [ :a ]
+pp b[1,b.length]

data/test/test4.rb

@@ -0,0 +1,29 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+include Dramatis
+
+require 'pp'
+
+class Foo
+  include Dramatis::Actor
+  def foo arg
+    raise "hell" if arg != :bar
+    :foobar
+  end
+end
+
+actor = Foo.new
+
+result = nil
+retval = ( interface( actor ).continue {|value| result = value } ).foo :bar
+
+raise "hell: [#{retval.inspect}]" if retval != nil
+
+Dramatis::Runtime.current.quiesce
+
+raise "hell: [#{result.inspect}]" if result != :foobar

data/test/test5.rb

@@ -0,0 +1,8 @@
+#!/bin/env ruby
+require 'pp'
+def foo *args
+  pp args
+end
+args = [ :a, :b, :c ]
+foo( *args )
+p foo

data/test/test6.rb

@@ -0,0 +1,32 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+require 'pp'
+
+cls = Class.new do
+  include Dramatis::Actor
+
+  def rpc other
+    warn "e"
+    other.foo
+    warn "f"
+  end
+
+end
+
+a = cls.new
+b = cls.new
+
+begin
+  a.rpc b
+  raise "hell"
+rescue NoMethodError
+rescue Exception => e
+  warn "!! #{e}"
+  raise e
+end
+

data/test/test7.rb

@@ -0,0 +1,48 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'dramatis/actor/name'
+require 'dramatis/runtime'
+
+require 'pp'
+
+include Dramatis
+
+a = Class.new do
+
+  include Dramatis::Actor
+
+  def initialize
+    actor.refuse :fromB
+  end
+
+end
+
+b = Class.new do
+
+  include Dramatis::Actor
+
+  def initialize anA
+    @anA = anA
+  end
+
+  def startB
+    @anA.fromB
+  end
+
+  def shouldDeadlock
+  end
+
+end
+
+anA = a.new
+aB = b.new anA
+
+( interface( aB ).continue nil ).startB
+
+warn "b4"
+# Dramatis::Runtime.current.quiesce
+warn "a5"
+
+warn "expect a final deadlock"