ttk 0.1.580 → 0.2.0

data/ruby_ex/dlogger.rb

@@ -1,62 +0,0 @@
-# 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

@@ -1,252 +0,0 @@
-# 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

@@ -1,29 +0,0 @@
-# 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

@@ -1,97 +0,0 @@
-# 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

@@ -1,27 +0,0 @@
-# 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
-
-