dramatis 0.0.1

data/examples/im/distributed/chat/screen/fox.rb

@@ -0,0 +1,92 @@
+module Chat; end
+module Chat::Screen; end
+
+require 'dramatis/actor'
+require 'rubygems'
+require 'fox16'
+
+module Chat::Screen::Fox
+
+  class Server
+
+    include Dramatis::Actor
+
+    attr_reader :fox
+
+    def initialize
+      actor.always :fox, true
+      @fox = Fox::FXApp.new
+      @fox.create
+      ( interface( Runtime.new ).continue nil ).run @fox
+    end
+
+    def new *args
+      Window.new( actor.name, *args )
+    end
+
+    class Runtime
+      include Dramatis::Actor
+      def run fox
+        fox.run
+      end
+    end
+
+  end
+
+  class Window
+
+    include Dramatis::Actor
+
+    def initialize server, client, options
+      
+      @server = server
+      @client = client
+      @options = options
+
+      @window = Fox::FXMainWindow.new server.fox, @options[:title]
+      @window.connect Fox::SEL_CLOSE do; close end
+
+      @frame = Fox::FXVerticalFrame.new @window
+          
+      @text = Fox::FXText.new @frame
+      @text.editable = false
+      @text.visibleColumns = 80
+      @text.visibleRows = 20
+
+      @input = Fox::FXTextField.new @frame, 80
+      @input.text = @options[:prompt]
+
+      @input.connect Fox::SEL_COMMAND do |sender,selector,data|
+        # NB: this is a call back from Fox
+        # That means this block does not hold the actor lock
+        # It is (probably?) an unmanged thread
+        # It's not clear how reliable this is or how it is
+        # combining Ruby and Fox event loops
+        begin
+          # raise "hell"
+        rescue Exception => e
+          pp e.backtrace
+        end
+        @input.text = @options[:prompt]
+        if data.index( @options[:prompt] ) == 0
+          data = data[ @options[:prompt].length..-1 ]
+        end
+        interface( @client ).continue( nil ) >> data
+      end
+
+      @window.create
+      @window.show
+
+    end
+
+    def << string
+      @text.appendText string
+    end
+
+    def close
+      @client.close
+    end
+
+  end
+
+end

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

@@ -0,0 +1,11 @@
+module Chat; end
+
+require 'chat/screen/fox'
+
+module Chat::Screen
+
+  def self.new *args
+    Chat::Screen::Fox::Server.new( *args )
+  end
+
+end

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

@@ -0,0 +1,72 @@
+module Chat; end
+
+require 'dramatis/actor'
+
+class Chat::Server
+
+  include Dramatis::Actor
+
+  def initialize password
+    @password = password
+    @groups = {}
+  end
+
+  def connect password
+    if password == @password
+      Connection.new actor.name
+    else
+      raise "bad password"
+    end
+  end
+
+  def login group, user, client
+    if !actor = @groups[group]
+      actor = @groups[group] = Group.new( group, user, client )
+    else
+      actor.login user, client
+    end
+    actor
+  end
+
+  class Connection
+    include Dramatis::Actor
+    def initialize server
+      @server = server
+    end
+
+    def login group, user, client
+      @server.login group, user, client
+    end
+  end
+
+  class Group
+    include Dramatis::Actor
+
+    def initialize name, user, client
+      @name = name
+      @clients = { client => user }
+      @cast = interface( actor.name ).continue nil
+
+      @cast << { :user => user, :client => client, :string => "I'm starting the group" }
+    end
+
+    def login user, client
+      @clients[client] = user
+      @cast << { :user => user, :client => client, :string => "I'm joining the group" }
+    end
+
+    def logout client
+      user = @clients[client]
+      @clients.delete client
+      @cast << { :user => user, :client => client, :string => "I'm leaving the group" }
+    end
+
+    def << opts
+      @clients.each_key do |client|
+        ( interface( client ).continue nil )  << opts
+      end
+    end
+
+  end
+
+end

data/examples/im/distributed/chat.rb

@@ -0,0 +1,5 @@
+module Chat; end
+
+require 'chat/screen'
+require 'chat/server'
+require 'chat/client'

data/examples/im/distributed/client.rb

@@ -0,0 +1,9 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+
+require 'chat'
+
+screen = Chat::Screen.new
+
+Chat::Client.new screen, *ARGV

data/examples/im/distributed/run.rb

@@ -0,0 +1,18 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'chat'
+
+password = "xyzzy"
+group = "general"
+
+screen = Chat::Screen.new
+
+server = Chat::Server.new password
+
+joe = Chat::Client.new screen, server, password, group, "joe"
+jane = Chat::Client.new screen, server, password, group, "jane"
+jim = Chat::Client.new screen, server, password, group, "jim"
+sue = Chat::Client.new screen, server, password, group, "sue"
+

data/examples/im/distributed/server.rb

@@ -0,0 +1,11 @@
+#!/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+
+require 'dramatis/actor'
+require 'chat'
+
+server = Chat::Server.new ARGV
+
+puts interface( server ).url
+

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

@@ -0,0 +1,50 @@
+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
+    0
+  end
+
+end

data/examples/im/single/chat/screen/fox.rb

@@ -0,0 +1,96 @@
+module Chat; end
+module Chat::Screen; end
+
+require 'dramatis/actor'
+require 'rubygems'
+require 'fox16'
+
+module Chat::Screen::Fox
+
+  def self.new *args
+    Server.new( *args )
+  end
+
+  class Server
+
+    include Dramatis::Actor
+
+    attr_reader :fox
+
+    def initialize
+      actor.always :fox, true
+      @fox = Fox::FXApp.new
+      @fox.create
+      ( interface( Runtime.new ).continue nil ).run @fox
+    end
+
+    def new *args
+      Window.new( actor.name, *args )
+    end
+
+    class Runtime
+      include Dramatis::Actor
+      def run fox
+        fox.run
+      end
+    end
+
+  end
+
+  class Window
+
+    include Dramatis::Actor
+
+    def initialize server, client, options
+      
+      @server = server
+      @client = client
+      @options = options
+
+      @window = Fox::FXMainWindow.new server.fox, @options[:title]
+      @window.connect Fox::SEL_CLOSE do; close end
+
+      @frame = Fox::FXVerticalFrame.new @window
+          
+      @text = Fox::FXText.new @frame
+      @text.editable = false
+      @text.visibleColumns = 80
+      @text.visibleRows = 20
+
+      @input = Fox::FXTextField.new @frame, 80
+      @input.text = @options[:prompt]
+
+      @input.connect Fox::SEL_COMMAND do |sender,selector,data|
+        # NB: this is a call back from Fox
+        # That means this block does not hold the actor lock
+        # It is (probably?) an unmanged thread
+        # It's not clear how reliable this is or how it is
+        # combining Ruby and Fox event loops
+        begin
+          # raise "hell"
+        rescue Exception => e
+          pp e.backtrace
+        end
+        @input.text = @options[:prompt]
+        if data.index( @options[:prompt] ) == 0
+          data = data[ @options[:prompt].length..-1 ]
+        end
+        interface( @client ).continue( nil ) >> data
+      end
+
+      @window.create
+      @window.show
+
+    end
+
+    def << string
+      @text.appendText string
+    end
+
+    def close
+      @client.close
+    end
+
+  end
+
+end

data/examples/im/single/chat/screen/wxs.rb

@@ -0,0 +1,63 @@
+module Chat; end
+module Chat::Screen; end
+
+require 'dramatis/actor'
+require 'rubygems'
+require 'wx'
+
+module Chat::Screen::WX
+
+  def self.new *args
+    Server.new( *args )
+  end
+
+  class Server
+    include Dramatis::Actor
+    attr_reader :wx
+    def initialize
+      actor.always :wx, true
+      @wx = App.new
+      release( @wx ).run
+    end
+
+    def new *args
+      @wx ||= App.new
+      Window.new( actor.name, *args )
+    end
+
+    class App < Wx::App
+      include Dramatis::Actor
+      def run
+        main_loop
+      end
+      def on_init
+        t = Wx::Timer.new(self, 55)
+        evt_timer(55) do
+          p = Thread.current.priority
+          Thread.current.priority = p - 10
+          Thread.pass
+          Thread.current.priority = p
+        end
+        t.start(100)
+
+        hidden = Wx::Frame.new nil, -1, "hello"
+        hidden.show
+      end
+    end
+  end
+
+  class Window
+
+    def initialize server, client, options
+      @window = Wx::Frame.new nil, Wx::ID_ANY
+      @window.show
+      # layout = Wx::BoxSizer.new(Wx::VERTICAL)
+      # set_sizer(layout)
+    end
+
+    def << string
+    end
+
+  end
+
+end

data/examples/im/single/chat/screen.rb

@@ -0,0 +1,11 @@
+module Chat; end
+
+require 'chat/screen/fox'
+
+module Chat::Screen
+
+  def self.new *args
+    Chat::Screen::Fox.new( *args )
+  end
+
+end

data/examples/im/single/chat/server.rb

@@ -0,0 +1,72 @@
+module Chat; end
+
+require 'dramatis/actor'
+
+class Chat::Server
+
+  include Dramatis::Actor
+
+  def initialize password
+    @password = password
+    @groups = {}
+  end
+
+  def connect password
+    if password == @password
+      Connection.new actor.name
+    else
+      raise "bad password"
+    end
+  end
+
+  def login group, user, client
+    if !actor = @groups[group]
+      actor = @groups[group] = Group.new( group, user, client )
+    else
+      actor.login user, client
+    end
+    actor
+  end
+
+  class Connection
+    include Dramatis::Actor
+    def initialize server
+      @server = server
+    end
+
+    def login group, user, client
+      @server.login group, user, client
+    end
+  end
+
+  class Group
+    include Dramatis::Actor
+
+    def initialize name, user, client
+      @name = name
+      @clients = { client => user }
+      @cast = interface( actor.name ).continue nil
+
+      @cast << { :user => user, :client => client, :string => "I'm starting the group" }
+    end
+
+    def login user, client
+      @clients[client] = user
+      @cast << { :user => user, :client => client, :string => "I'm joining the group" }
+    end
+
+    def logout client
+      user = @clients[client]
+      @clients.delete client
+      @cast << { :user => user, :client => client, :string => "I'm leaving the group" }
+    end
+
+    def << opts
+      @clients.each_key do |client|
+        ( interface( client ).continue nil )  << opts
+      end
+    end
+
+  end
+
+end

data/examples/im/single/chat.rb

@@ -0,0 +1,5 @@
+module Chat; end
+
+require 'chat/screen'
+require 'chat/server'
+require 'chat/client'

data/examples/im/single/fox.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+
+require 'chat'
+
+password = "xyzzy"
+group = "general"
+
+screen = Chat::Screen::Fox.new
+
+server = Chat::Server.new password
+
+joe = Chat::Client.new screen, server, password, group, "joe"
+jane = Chat::Client.new screen, server, password, group, "jane"
+jim = Chat::Client.new screen, server, password, group, "jim"
+sue = Chat::Client.new screen, server, password, group, "sue"
+

data/examples/im/single/wxchat.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "..", "lib" )
+
+require 'chat'
+require 'chat/screen/wxs'
+
+password = "xyzzy"
+group = "general"
+
+screen = Chat::Screen::WX.new
+
+server = Chat::Server.new password
+
+joe = Chat::Client.new screen, server, password, group, "joe"
+jane = Chat::Client.new screen, server, password, group, "jane"
+jim = Chat::Client.new screen, server, password, group, "jim"
+sue = Chat::Client.new screen, server, password, group, "sue"
+

data/examples/pingpong/actor.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'dramatis/actor'
+
+class PingPong
+
+  include Dramatis::Actor
+
+  def initialize name
+    @name = name
+  end
+
+  def pingpong count, partner
+    if count == 0
+      puts "#{@name}: done"
+    else
+      if count % 500 == 0 or count % 500 == 1
+        puts "#{@name}: pingpong #{count}"
+      end
+      release( partner ).pingpong count-1, self
+    end
+    # sleep 0.001
+  end
+
+end
+
+ping = PingPong.new "ping"
+pong = PingPong.new "pong"
+
+ping.pingpong ARGV[0].to_i, pong
+

data/examples/pingpong/actor_rec.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+
+$:.push File.join( File.dirname(__FILE__), "..", "..", "lib" )
+
+require 'dramatis/actor'
+
+class PingPong
+
+  include Dramatis::Actor
+
+  def initialize name
+    actor.enable_call_threading
+    @name = name
+  end
+
+  def pingpong count, partner
+    if count == 0
+      puts "#{@name}: done"
+    else
+      if count % 500 == 0 or count % 500 == 1
+        puts "#{@name}: pingpong #{count}"
+      end
+      partner.pingpong count-1, self
+    end
+    # sleep 0.001
+  end
+
+end
+
+ping = PingPong.new "ping"
+pong = PingPong.new "pong"
+
+ping.pingpong ARGV[0].to_i, pong
+