ttk 0.1.576

data/ruby_ex/dlogger.rb

@@ -0,0 +1,62 @@
+# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
+# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: dlogger.rb 99 2005-01-13 19:14:44Z polrop $
+
+require 'logger'
+
+# This Logger subclass permit to use more debug levels
+#
+# log = DLogger.new(STDERR)
+# log.level = -1
+# log.debug1 "You see me"
+# log.debug2 "You see me"
+# log.debug3 "You don't see me"
+#
+class DLogger < Logger
+
+  def format_severity ( severity )
+    return super if severity >= 0
+    return "DEBUG#{severity.abs + 1}"
+  end
+  private :format_severity
+
+  def method_missing ( meth, progname=nil, *args, &block )
+    return super unless meth.to_s =~ /^debug(\d+)$/ or !args.empty
+    add(-$1.to_i + 1, nil, progname, &block)
+  end
+
+  Format = "%s, [%s#%d] %6s -- %s: %s\n"
+  def format_message(severity, timestamp, msg, progname)
+    Format % [severity[0..0], timestamp, $$, severity, progname, msg]
+  end
+  private :format_message
+
+end # class DLogger
+
+
+if defined? TEST_MODE or $0 == __FILE__
+
+  require 'stringio'
+  require 'test/unit'
+
+  class DLoggerTest < Test::Unit::TestCase
+
+    def test1
+      cout = StringIO.new
+      log = DLogger.new(cout)
+      log.level = -1
+      log.debug1 'You see me'
+      log.debug3 'You don\'t see me'
+      log.debug2 'You see me'
+      cout.rewind
+      ref = /D, \[\d+-\d+-\d+.\d+:\d+:\d+\.\d+ #\d+\]  DEBUG -- : You see me
+D, \[\d+-\d+-\d+.\d+:\d+:\d+\.\d+ #\d+\] DEBUG2 -- : You see me/
+      assert_match(ref, cout.readlines.join)
+    end
+
+  end # class DLoggerTest
+
+end

data/ruby_ex/drb/dispatcher.rb

@@ -0,0 +1,252 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: dispatcher.rb 186 2005-04-03 00:07:45Z ertai $
+
+
+require 'drb/drb'
+
+
+module DRb
+
+  class Dispatcher
+
+    URIS = []
+    MAX_JOB = 5
+    MAX_JOB_LIMIT = 100
+    DRB_OBJECT_CLASS = DRbObject
+
+    attr_reader :max_job
+
+    def initialize(uris=URIS,
+                   max_job=MAX_JOB,
+                   drb_object_class=DRB_OBJECT_CLASS,
+                   *args,
+                   &block)
+      unless 1 <= max_job && max_job <= MAX_JOB_LIMIT
+        raise(ArgumentError,
+              "`#{max_job}' - too big max job (must be <= #{MAX_JOB_LIMIT})")
+      end
+      @max_job = max_job
+      @uris = {}
+      uris.each { |uri| add(uri, drb_object_class, *args, &block) }
+    end
+
+    def [](uri)
+      @uris[uri]
+    end
+
+    def add(uri, drb_object_class, *args, &block)
+      @uris[uri] = drb_object_class.new(nil, uri, *args, &block)
+    end
+
+    def del(uri)
+      @uris.delete(uri)
+    end
+
+    def each
+      @uris.each { |uri, ro| yield(uri, ro) }
+    end
+
+    def dispatch(ros, meth, *args, &block)
+      result = {}
+      nb_threads = [ ros.size, @max_job].min
+      if nb_threads == 1
+        res = request(ros[0], meth, *args, &block)
+        result.update(res)
+      else
+        mutex = Mutex.new
+        threads = []
+        ros_q = ros.dup
+        nb_threads.times do
+          threads << Thread.new do
+            loop do
+              ro = mutex.synchronize { ros_q.shift }
+              break if ro.nil?
+              res = request(ro, meth, *args, &block)
+              mutex.synchronize { result.update(res) }
+            end
+          end
+        end
+        threads.each { |thread| thread.join }
+      end
+      result
+    end
+
+    alias update dispatch
+
+    def select(&comp)
+      ros = []
+      each { |uri, ro| ros << ro if comp[ro] }
+      ros
+    end
+
+    def select_all
+      select { |ro| true }
+    end
+
+    def select_by(result, meth, *args, &block)
+      select { |ro| test_ro_attribut(ro, result, meth, *args, &block) }
+    end
+
+    def multi_select_by(hash, init_val=true, &bool_fun)
+      select do |ro|
+        ret = init_val
+        hash.each do |k, v|
+          ret = bool_fun[ret, test_ro_attribut(ro, v, k)]
+        end
+        ret
+      end
+    end
+
+    def and_multi_select_by(hash)
+      select do |ro|
+        ret = true
+        hash.each do |k, v|
+          ret = (ret and test_ro_attribut(ro, v, k))
+        end
+        ret
+      end
+    end
+
+    def or_multi_select_by(hash)
+      select do |ro|
+        ret = false
+        hash.each { |k, v| ret = (ret or test_ro_attribut(ro, v, k)) }
+        ret
+      end
+    end
+
+    def dispatch_all(meth, *args, &block)
+      dispatch(select_all, meth, *args, &block)
+    end
+
+    def method_missing(meth, *args, &block)
+      dispatch_all(meth, *args, &block)
+    end
+
+    def request(ro, meth, *args, &block)
+      res = nil
+      begin
+        res = ro.send(meth, *args, &block)
+      rescue Exception => err
+        res = err
+      end
+      { ro.__drburi => res }
+    end
+
+    protected
+    def test_ro_attribut(ro, result, meth, *args, &block)
+      res = request(ro, meth, *args, &block)
+      if result.is_a? Regexp
+        res[ro.__drburi].to_s =~ result
+      else
+        res[ro.__drburi] == result
+      end
+    end
+
+  end # class Dispatcher
+
+end # module DRb
+
+
+if defined? TEST_MODE or $0 == __FILE__
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'rbconfig'
+require 'drb/session_manager'
+
+module DRb
+
+  class DispatcherTest < ::Test::Unit::TestCase
+
+    class MyDRbObject < DRbObject
+
+      attr_reader :uri, :hostname, :port, :protocol
+
+      def initialize(obj, uri=nil)
+        super
+        if uri =~ /(^.*?):\/\/(.*?):(\d*)$/
+          @protocol = $1
+          @hostname = $2
+          @port = $3.to_i
+        end
+      end
+
+    end
+
+    #
+    # Tests
+    #
+    def test_multi_select_by
+      n = 5
+      uris = []
+      for i in 0...n do
+        uris << "druby://localhost:#{42000 + i * 100}"
+      end
+      d = nil
+      assert_nothing_raised { d = Dispatcher.new(uris, 1, MyDRbObject) }
+      assert_not_nil(d)
+
+      h1 = { :port => 42000, :hostname => 'localhost' }
+      r1 = d.and_multi_select_by(h1)
+      assert_equal(1, r1.size)
+      assert_equal(d['druby://localhost:42000'], r1[0])
+      r2 = d.multi_select_by(h1) { |a, b| (a and b) }
+      assert_equal(1, r2.size)
+      assert_equal(r1, r2)
+      r1 = d.or_multi_select_by(h1)
+      r2 = d.multi_select_by(h1, false) { |a, b| (a or b) }
+      assert_equal(r1, r2)
+    end
+
+    def test_dispatch
+      name, ruby_bin, chdir = add_command
+      drb_session_manager = SessionManager.new
+      server = DRb.start_service('druby://localhost:0', drb_session_manager)
+      services = []
+      uris = []
+      nb_srv = 10
+      nb_srv.times do |i|
+        service = drb_session_manager.service(name)
+        uris << service.server.uri
+        services << service
+      end
+      until (n = drb_session_manager.nb_sessions) == nb_srv
+        STDERR.puts "wait for #{n} sessions started" if $VERBOSE
+        sleep(2)
+      end
+      d = Dispatcher.new(uris, 5, MyDRbObject)
+      ref = {}
+      uris.each { |uri| ref[uri] = "hello from #{uri}" }
+      assert(ref, d.hello)
+      services.each do |service|
+        service.stop_service
+      end
+      while (n = drb_session_manager.nb_sessions) > 0
+        STDERR.puts "wait for #{n} sessions stoped" if $VERBOSE
+        sleep(2)
+      end
+      server.stop_service
+    end
+
+    protected
+    def add_command
+      ruby_bin = Config::CONFIG["RUBY_INSTALL_NAME"]
+      ruby_bin += ' -w' if $VERBOSE
+      name = "dispatcher_server_test"
+      chdir = (defined? TEST_MODE) ? "cd src;" : ''
+      cmd = chdir + "#{ruby_bin} drb/#{name}.rb"
+      DRb::SessionManager.command[name] = cmd
+      [ name, ruby_bin, chdir ]
+    end
+
+  end # DispatcherTest
+
+end # module DRb
+
+
+end

data/ruby_ex/drb/dispatcher_server_test.rb

@@ -0,0 +1,29 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: dispatcher_server_test.rb 94 2005-01-10 14:52:36Z polrop $
+
+
+require 'drb/session_server'
+
+if __FILE__ == $0
+
+class Foo
+
+  def hello
+    "hello from #{DRb.uri}"
+  end
+
+end
+
+raise "usage: #{$0} <uri> <name>" unless ARGV.size == 2
+uri = ARGV.shift
+name = ARGV.shift
+
+server = DRb::DRbServer.new("druby://localhost:0", Foo.new, {})
+ext_srv = DRb::SessionServer.new(uri, name, server)
+server.thread.join
+
+end

data/ruby_ex/drb/drb_observable.rb

@@ -0,0 +1,97 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: drb_observable.rb 100 2005-01-15 07:45:14Z polrop $
+
+
+require 'drb/observer'
+
+require 'observable'
+
+
+module DRb
+
+  module DRbObservable
+    include Observable
+
+    undef notify_observers
+    def notify_observers(*args, &block)
+      if defined? @observer_state and @observer_state
+	if defined? @observer_peers
+	  for i in @observer_peers.dup
+	    begin
+	      i.update(*args, &block)
+	    rescue
+	      delete_observer(i)
+	    end
+	  end
+	end
+	@observer_state = false
+      end
+    end
+
+    def notify_observer(observer, *arg, &block)
+      if defined? @observer_state and @observer_state
+        if defined? @observer_peers
+          if @observer_peers.include?(observer)
+            begin
+              observer.update(*arg, &block)
+            rescue
+              delete_observer(observer)
+            end
+          end
+        end
+        @observer_state = false
+      end
+    end
+
+  end # module DRbObservable
+
+end # module DRb
+
+
+if defined? TEST_MODE or __FILE__ == $0
+
+
+require 'test/unit/ui/yaml/testrunner'
+
+
+module DRb
+
+  class ObservablePoolTest < ::Test::Unit::TestCase
+
+    class Obsv
+      include DRbObservable
+
+    end
+
+    class Foo
+
+      def update(*args, &block)
+        raise 'toto'
+      end
+
+    end
+
+    def test_simple
+      o = Obsv.new
+      assert_respond_to(o, :list_observers)
+      o.add_observer(Foo.new)
+      assert_equal(1, o.count_observers)
+      o.changed
+      o.notify_observers('msg')
+      assert_equal(0, o.count_observers)
+    end
+
+
+  end # class ObservablePoolTest
+
+end # module DRb
+
+
+end
+
+
+

data/ruby_ex/drb/drb_observable_pool.rb

@@ -0,0 +1,27 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: drb_observable_pool.rb 97 2005-01-13 18:20:49Z polrop $
+
+
+require 'observable_pool'
+
+require 'drb/drb_observable'
+
+
+module DRb
+
+  class DRbObservablePool
+
+    class SyncObserver
+      include DRbObservable
+
+    end # class SyncObserver
+
+  end # class DRbObservable
+
+end # module DRb
+
+