dramatis 0.0.1

data/examples/telephone/fifth/kid.rb

@@ -0,0 +1,36 @@
+require 'dramatis/actor'
+require 'dramatis/actor/name'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+    @heard = "I ain't heard nuthin"
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    @heard = mangle what
+    # puts "#{self} heard #{@heard}"
+    if @next
+      release( @next ).whisper @heard
+    end
+  end
+
+  def ask
+    @heard
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/fifth/run.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrases = [ "his mom locked her keys in the car, " +
+            "so he should get a ride home with Hector",
+            "Mac King is a comedy magic genius" ]
+
+phrases.each do |phrase|
+  puts "Teacher: #{phrase}"
+  sally.whisper phrase
+end
+
+phrases.length.times do
+  puts "Teacher heard: '#{tom.ask}'"
+end

data/examples/telephone/first/kid.rb

@@ -0,0 +1,31 @@
+require 'dramatis/actor'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    what = mangle what
+    if @next
+      @next.whisper what
+    else
+      puts "#{@name}: #{what}"
+    end
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/first/run.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrase = "his mom locked her keys in the car, " +
+         "so he should get a ride home with Hector"
+
+puts "Teacher: #{phrase}"
+sally.whisper phrase
+

data/examples/telephone/fourth/kid.rb

@@ -0,0 +1,31 @@
+require 'dramatis/actor'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    @heard = mangle what
+    @next and @next.whisper @heard
+  end
+
+  def ask
+    @heard
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/fourth/run.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrases = [ "his mom locked her keys in the car, " +
+            "so he should get a ride home with Hector",
+            "Mac King is a comedy magic genius" ]
+
+phrases.each do |phrase|
+  puts "Teacher: #{phrase}"
+  sally.whisper phrase
+end
+
+phrases.length.times do
+  puts "Teacher heard: #{tom.ask}"
+end

data/examples/telephone/mangler.rb

@@ -0,0 +1,53 @@
+require 'pp'
+
+class Mangler
+  
+  def self.mangle_word what
+    patterns = [ what, what+"." ]
+    index = 0
+    (what.length).times do
+
+      # delete a character
+      if what.length > 3
+        mod = what.clone
+        mod[index] = ""
+        patterns << mod
+      end
+
+      # insert a character
+      mod = what.clone
+      mod[index,0] = "."
+      patterns << mod
+
+      #change a character (biased towards making words longer)
+      if what.length > 3
+        mod = what.clone
+        mod[index] = "."
+        patterns << mod
+      end
+
+      index += 1
+    end
+    patterns = "^((" + patterns.join( ")|(" ) + "))$"
+    # pp patterns
+    matches = words.grep Regexp.new( patterns, Regexp::IGNORECASE )
+    # pp matches
+    matches[rand( matches.length )]
+  end
+
+  def self.mangle words
+    words.split.map { |word| mangle_word word }.join(" ")
+  end
+
+  private
+
+  def self.words
+    @words ||=
+      begin
+        lines = IO.readlines File.join( File.dirname(__FILE__), "3esl.txt")
+        lines.each { |line| line.chomp! } 
+        lines
+      end
+  end
+
+end

data/examples/telephone/second/kid.rb

@@ -0,0 +1,26 @@
+require 'dramatis/actor'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    mangle( @next.nil? && @next.whisper( mangle( what )  ) || what )
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/second/run.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrase = "his mom locked her keys in the car, " +
+         "so he should get a ride home with Hector"
+
+puts "Teacher: #{phrase}"
+heard = sally.whisper phrase
+puts "Teacher heard: #{heard}"

data/examples/telephone/seventh/kid.rb

@@ -0,0 +1,40 @@
+require 'dramatis/actor'
+require 'dramatis/actor/name'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+    @heard = "I ain't heard nuthin"
+    actor.refuse :ask
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    @heard = mangle what
+    if @next
+      release( @next ).whisper @heard
+    end
+    actor.accept :ask
+    actor.refuse :whisper
+  end
+
+  def ask
+    actor.refuse :ask
+    actor.accept :whisper
+    @heard
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/seventh/run.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+
+# THIS EXAMPLE ISN'T COMPLETE OR WORKING
+
+# it deadlocks (don't remember)
+# self for main isn't getting mapped into an actor name correctly
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom", self
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrases = [ "his mom locked her keys in the car, " +
+            "so he should get a ride home with Hector",
+            "Mac King is a comedy magic genius" ]
+
+phrases.each do |phrase|
+  puts "Teacher: #{phrase}"
+  begin
+    sally.whisper phrase
+  rescue Dramatis::Deadlock
+    warn "woah: got a deadlock: that shouln't happen"
+  end
+end
+
+phrases.length.times do
+  puts "Teacher heard: '#{tom.ask}'"
+end

data/examples/telephone/seventh/test.rb

@@ -0,0 +1,28 @@
+smp = 10
+o = Object.new
+block = lambda { p smp; p "hi"; p self }
+p "o", o.class
+o.instance_eval do
+  class << self
+    @__bif__ = "foo"
+  end
+  # p @@__bif__ = "bif"
+  p self.class_eval { @__bif__ }
+  class << self
+    p @__bif__
+    p "<<", self
+    def ____frob____
+    end
+  end
+end
+p "o", o.class
+o.class.send :define_method, :bar, &block
+o.instance_eval do
+  def foo
+    bar
+  end
+end
+
+o.foo
+o.instance_eval { bar }
+Object.new.instance_eval { bar; p @__bif__ }

data/examples/telephone/seventh/test2.rb

@@ -0,0 +1,10 @@
+o = Object.new
+
+smp = 10
+block = lambda { p smp }
+block.call
+
+( class << o; self; end ).send :define_method, :foo, lambda { p "yo!" }
+
+o.foo
+Object.new.foo

data/examples/telephone/sixth/kid.rb

@@ -0,0 +1,39 @@
+require 'dramatis/actor'
+require 'dramatis/actor/name'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+    @heard = "I ain't heard nuthin"
+    actor.refuse :ask
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    @heard = mangle what
+    # puts "#{self} heard #{@heard}"
+    if @next
+      release( @next ).whisper @heard
+    end
+    actor.accept :ask
+  end
+
+  def ask
+    actor.refuse :ask
+    @heard
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/sixth/run.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrases = [ "his mom locked her keys in the car, " +
+            "so he should get a ride home with Hector",
+            "Mac King is a comedy magic genius" ]
+
+phrases.each do |phrase|
+  puts "Teacher: #{phrase}"
+  sally.whisper phrase
+end
+
+phrases.length.times do
+  puts "Teacher heard: '#{tom.ask}'"
+end

data/examples/telephone/third/kid.rb

@@ -0,0 +1,31 @@
+require 'dramatis/actor'
+
+require 'mangler'
+
+class Kid
+
+  include Dramatis::Actor
+  
+  def initialize name, next_kid = nil
+    @name = name
+    @next = next_kid
+  end
+
+  def to_s
+    @name
+  end
+
+  def whisper what
+    @heard = mangle what
+    @next and @next.whisper @heard
+  end
+
+  def ask
+    @heard
+  end
+
+  def mangle what
+    Mangler.mangle what
+  end
+
+end

data/examples/telephone/third/run.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+$:.push File.join( File.dirname(__FILE__), ".." )
+
+require 'kid'
+
+tom = Kid.new "Tom"
+becky = Kid.new "Becky", tom
+dick = Kid.new "Dick", becky
+jane = Kid.new "Jane", dick
+harry = Kid.new "Harry", jane
+sally = Kid.new "Sally", harry
+
+phrase = "his mom locked her keys in the car, " +
+         "so he should get a ride home with Hector"
+
+puts "Teacher: #{phrase}"
+sally.whisper phrase
+heard = tom.ask
+puts "Teacher heard: #{heard}"

data/lib/dramatis/actor/interface.rb

@@ -0,0 +1,118 @@
+module Dramatis; end
+module Dramatis::Actor; end
+
+# A Dramatis::Actor::Interface object provides actors that have mixed
+# in Dramatis::Actor with access to their actor name and other actor
+# operations. An instance of Dramatis::Actor::Interface is typically accessed through
+# Dramatis::Actor.actor.
+
+# Many of the interface method affect the <em>gate behavior</em> of
+# the actor, that is, whether tasks queued for the actor are allowed
+# to execute. With functions refuse, accept, default, and always, an
+# actor can control task scheduling.
+
+# Most of these methods accept an array of arguments that are matched
+# against each method by the runtime when determining whether a task
+# can be scheduled.
+
+# Each element in the array is tested, via ====, against the method
+# and arguments of the task underconsideration. If all the arguments
+# match, the pattern matches. Extra task parameters are ignored and
+# the match succeeds. If there are more arguments in the pattern than
+# there are associated with the task, the match fails.
+
+# Note that the interaction of multiple calls is a bit complex and currently
+# not documented. See the examples and tutorials.
+
+# This object should only be accessed from the actor it represents.
+
+class Dramatis::Actor::Interface
+
+  # call-seq:
+  #  refuse pattern_args -> nil
+  #
+  # Blocks the actor from running any tasks that match pattern_args. Note that
+  # subsequent gate calls may override this behavior.
+
+  def refuse *args
+    @actor.gate.refuse( :object, *args )
+  end
+
+  # call-seq:
+  #  accept pattern_args -> nil
+  #
+  # Enables the actor to run tasks that match pattern_args. Note that
+  # subsequent gate calls may override this behavior.
+
+  def accept *args
+    @actor.gate.accept( :object, *args )
+  end
+
+  # call-seq:
+  #  default pattern_args -> nil
+  #
+  # Reverts the behavior of the actor to tasks matching pattern_args
+  # to the default. It un-does the affect of a call to refuse or
+  # accept with the same arguments.
+
+  def default *args
+    @actor.gate.default( [ :object ] + args )
+  end
+
+  # call-seq:
+  #  always( pattern_args, value ) -> nil
+  #
+  # Causes tasks matching pattern_args to always be accepted if +value+
+  # is +true+ or reject if +value+ is +false+. always takes precendence over
+  # refuse/accept so a task that matches both a refuse pattern and an
+  # always( ..., true ) pattern will be allowed. always also overrides
+  # the implict gating in rpc method calls.
+
+  def always args, value
+    @actor.gate.always( ( [ :object ] + Array( args ) ), value )
+  end
+
+  # Enables call threading for actor method calls made by this
+  # actor. When call threading is enabled, method gating is modified
+  # such that recursive and co-recursive calls are allowed. Normally
+  # blocking calls made by an actor on itself, e.g.,
+  #   actor.name.some_method
+  # would cause a deadlock. When call threading is enabled, recursion, both self-recursion
+  # and co-recursion (actor A does an rpc on actor B which does an rpc on actor A), is allowed.
+
+  def enable_call_threading
+    @actor.enable_call_threading
+  end
+
+  # Returns the actor name for the object.
+
+  def name
+    @actor.name
+  end
+
+  # Yields the actor to allow other tasks to be executed.
+  # Currently, messages are handled FIFO so the yield will
+  # return when all the messages received up to the point of the
+  # yield are executed. This could be modified if non-FIFO queue
+  # processing is added
+
+  def yield
+    @actor.actor_send [ :yield ], :continuation => :rpc,
+                                  :nonblocking => true
+  end
+
+  def timeout value, *args #:nodoc: not ready
+    @actor.timeout value, *args
+  end
+
+  private
+
+  def gate
+    @actor.gate
+  end
+
+  def initialize actor #:nodoc:
+    @actor = actor
+  end
+
+end