ttk 0.1.580 → 0.2.0

data/ruby_ex/object_monitor.rb

@@ -1,145 +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: object_monitor.rb 105 2005-01-16 17:42:26Z polrop $
-
-
-require 'observable'
-
-
-class ObjectMonitor
-  include Observable
-
-  attr_reader :nb_method
-
-  def initialize(object, *observers)
-    @object = object
-    add_observers(*observers)
-    @nb_method = 0
-  end
-
-  def method_missing(meth, *args, &block)
-    info = init_method_info(meth, *args, &block)
-    start_method(info)
-    result = nil
-    begin
-      result = @object.send(meth, *args, &block)
-    rescue Exception => exc
-      info[:stop_time] = Time.now
-      info[:error] = exc
-      stop_method(info)
-      raise exc
-    ensure
-      @nb_method += 1
-    end
-    info[:stop_time] = Time.now
-    info[:result] = result
-    stop_method(info)
-    result
-  end
-
-  protected
-  def init_method_info(meth, *args, &block)
-    {
-      :num => @nb_method,
-      :receiver => @object,
-      :method => meth,
-      :args => args,
-      :block => block,
-      :start_time => Time.now,
-      :stop_time => nil,
-      :thread => Thread.current,
-      :error => nil,
-      :result => nil,
-    }
-  end
-
-  protected
-  def start_method(info)
-    changed
-    notify_observers(:start_method, info)
-  end
-
-  protected
-  def stop_method(info)
-    changed
-    notify_observers(:stop_method, info)
-  end
-
-end # class ObjectMonitor
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class ObjectMonitorTest < Test::Unit::TestCase
-
-  class Foo
-
-    def hello
-      'hello'
-    end
-
-    def failed
-      raise 'failed msg'
-    end
-
-  end
-
-  class Obsv
-
-    attr_reader :last_msg
-
-    def initialize
-      @last_msg = []
-    end
-
-    def update(*args)
-      @last_msg << args
-    end
-
-  end
-
-  def test_normal
-    f = Foo.new
-    obsv = Obsv.new
-    fm = ObjectMonitor.new(f, obsv)
-    assert_equal(0, fm.nb_method)
-    assert_equal([], obsv.last_msg)
-    assert_equal('hello', fm.hello)
-    assert_equal(1, fm.nb_method)
-    assert_equal(:start_method,  obsv.last_msg[0][0])
-    assert_equal(2, obsv.last_msg[0].size)
-    assert_equal(:stop_method,  obsv.last_msg[1][0])
-    assert_equal(2, obsv.last_msg[0].size)
-  end
-
-  def test_exception
-    f = Foo.new
-    obsv = Obsv.new
-    fm = ObjectMonitor.new(f, obsv)
-    assert_equal(0, fm.nb_method)
-    assert_equal([], obsv.last_msg)
-    assert_raises(RuntimeError) { fm.failed }
-    assert_equal(1, fm.nb_method)
-    assert_equal(:start_method,  obsv.last_msg[0][0])
-    assert_equal(2, obsv.last_msg[0].size)
-    assert_equal(:stop_method,  obsv.last_msg[1][0])
-    assert_equal(2, obsv.last_msg[0].size)
-    assert_equal('hello', fm.hello)
-    assert_equal(2, fm.nb_method)
-  end
-
-  def test_accessor
-    assert_respond_to(ObjectMonitor.new(nil), :list_observers)
-  end
-
-end # class ObjectMonitorTest
-
-
-end

data/ruby_ex/object_monitor_activity.rb

@@ -1,33 +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: object_monitor_activity.rb 105 2005-01-16 17:42:26Z polrop $
-
-
-require 'observable'
-
-
-class ObjectMonitorActivity
-  include Observable
-
-  def initialize
-    @mutex = Mutex.new
-    @activity = {}
-  end
-
-  def update(msg, info)
-    case msg
-    when :start_method: @mutex.synchronize { @activity[info[:num]] = info }
-    when :stop_method: @mutex.synchronize { @activity.delete(info[:num]) }
-    else raise 'unknown message'
-    end
-  end
-
-  def snapshot
-    @mutex.synchronize { @activity.dup }
-  end
-
-end # class ObjectMonitorActivity
-

data/ruby_ex/observable.rb

@@ -1,140 +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: observable.rb 98 2005-01-13 18:48:15Z polrop $
-
-
-require 'observer'
-
-
-module Observable
-
-  def add_observers(*observers)
-    observers.each { |observer| add_observer(observer) }
-  end
-
-  def observer?(observer)
-    if defined? @observer_peers
-      @observer_peers.include?(observer)
-    else
-      false
-    end
-  end
-
-  def list_observers
-    if defined? @observer_peers
-      @observer_peers.dup
-    else
-      []
-    end
-  end
-
-  def notify_observer(observer, *arg, &block)
-    if defined? @observer_state and @observer_state
-      if defined? @observer_peers
-        if @observer_peers.include?(observer)
-          observer.update(*arg, &block)
-        end
-      end
-      @observer_state = false
-    end
-  end
-
-  def self.included(klass)
-    klass.module_eval do
-      class << self
-        unless method_defined?(:notifier_methods_visibility)
-          def notifier_methods_visibility(visibility)
-            send(visibility, *instance_methods)
-          end
-        end
-      end
-    end
-  end
-
-end # module Observable
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class ObservableTest < Test::Unit::TestCase
-
-  class Notify
-    include Observable
-
-    def initialize(*obsv)
-      obsv.each { |o| add_observer(o) }
-    end
-
-  end # class Notify
-
-  class Obsv
-
-    attr_reader :last_msg
-
-    def initialize
-      @last_msg = nil
-    end
-
-    def update(arg)
-      @last_msg = arg
-    end
-
-  end # class Obsv
-
-  #
-  # Tests
-  #
-  def test_simple
-    o1 = Obsv.new
-    o2 = Obsv.new
-    n = Notify.new(o1, o2)
-    assert_equal(2, n.count_observers, 'bad number of observers')
-    assert(n.observer?(o1))
-    n.changed
-    n.notify_observers('all')
-    assert_equal('all', o1.last_msg, 'bad msg o1 1')
-    assert_equal('all', o2.last_msg, 'bad msg o2 1')
-    l = n.list_observers
-    assert_equal(o1, l[0], 'o1 is not at the right place in the list')
-    assert_equal(o2, l[1], 'o2 is not at the right place in the list')
-    n.changed
-    n.notify_observer(o1, 'o1')
-    assert_equal('o1', o1.last_msg, 'bad msg o1 2')
-    assert_equal('all', o2.last_msg, 'bad msg o2 2')
-    n.changed
-    n.notify_observer(o2, 'o2')
-    assert_equal('o1', o1.last_msg, 'bad msg o1 3')
-    assert_equal('o2', o2.last_msg, 'bad msg o2 3')
-    n.changed
-    n.notify_observer(o1, 'new_all')
-    n.changed
-    n.notify_observer(o2, 'new_all')
-    assert_equal('new_all', o1.last_msg, 'bad msg o1 4')
-    assert_equal('new_all', o2.last_msg, 'bad msg o2 4')
-  end
-
-  class ObservableMethodsVisibilityFoo
-    include Observable
-
-    notifier_methods_visibility(:protected)
-  end
-
-  def test_notifier_methods_visibility
-    fm = ObservableMethodsVisibilityFoo.new
-    assert_raises(NoMethodError) { fm.add_observer(Object.new) }
-    assert_raises(NoMethodError) { fm.notify_observer(Object.new) }
-    assert_raises(NoMethodError) { fm.list_observer }
-    assert_raises(NoMethodError) { fm.changed? }
-  end
-
-end # class ObservableTest
-
-
-end

data/ruby_ex/observable_pool.rb

@@ -1,293 +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: observable_pool.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-require 'observable'
-require 'thread'
-
-
-module ObservablePool
-
-  class Observer
-    include Observable
-
-    attr_reader :observable
-
-    def initialize(observable, mutex)
-      @observable = observable
-      @observable.add_observer(self)
-      @mutex = mutex
-    end
-
-    def update(*args, &block)
-      @mutex.synchronize do
-        changed
-        notify_observers(@observable, *args, &block)
-      end
-    end
-
-    def method_missing(meth, *args, &block)
-      @observable.send(meth, *args, &block)
-    end
-
-  end # class Observer
-
-  def add_observable(observable)
-    unless observable.is_a?(Observable)
-      raise(ArgumentError, "observable object must be Observale")
-    end
-    @observable_peer_mutex = Mutex.new unless defined? @observable_peer_mutex
-    @observable_peers = {} unless defined? @observable_peers
-    sync_observer = Observer.new(observable, @observable_peer_mutex)
-    @observable_peers[observable] = sync_observer
-    @global_observer_peers = [] unless defined? @global_observer_peers
-    @global_observer_peers.each do |observer|
-      sync_observer.add_observer(observer)
-    end
-    sync_observer
-  end
-
-  def add_observables(*observables)
-    observables.each { |observable| add_observable(observable) }
-  end
-
-  def delete_observable(observable)
-    @observable_peers.delete(observable) if defined? @observable_peers
-  end
-
-  def delete_observables
-    @observable_peers.clear if defined? @observable_peers
-  end
-
-  def observable(observable)
-    @observable_peers[observable] if defined? @observable_peers
-  end
-
-  def observable?(observable)
-    @observable_peers.has_key?(observable) if defined? @observable_peers
-  end
-
-  def list_observables
-    if defined? @observable_peers
-      @observable_peers.keys
-    else
-      []
-    end
-  end
-
-  def list_observables_observed(observer)
-    observables = []
-    if defined? @observable_peers
-      @observable_peers.each do |observable, obsv|
-        if obsv.list_observers.include?(observer)
-          observables << observable
-        end
-      end
-    end
-    observables
-  end
-
-  def count_observables
-    if defined? @observable_peers
-      @observable_peers.size
-    else
-      0
-    end
-  end
-
-  def each_observables(&block)
-    if defined? @observable_peers
-      @observable_peers.each do |observable, observer|
-        block[observable, observer]
-      end
-    end
-  end
-
-  def list_all_observers
-    observers = []
-    if defined? @observable_peers
-      @observable_peers.each do |observable, observer|
-        observers += observer.list_observers
-      end
-    end
-    observers.uniq
-  end
-
-  def count_all_observers
-    list_observers.size
-  end
-
-  def add_global_observer(observer)
-    if defined? @observable_peers
-      @observable_peers.each do |observable, obsv|
-        obsv.add_observer(observer) unless observable.observer?(observer)
-      end
-    end
-    @global_observer_peers = [] unless defined? @global_observer_peers
-    @global_observer_peers << observer
-  end
-
-  def add_global_observers(*observers)
-    observers.each { |observer| add_global_observer(observer) }
-  end
-
-  def delete_global_observer(observer)
-    if defined? @observable_peers
-      @observable_peers.each do |observable, obsv|
-        obsv.delete_observer(observer)
-      end
-    end
-    @global_observer_peers.delete(observer) if defined? @global_observer_peers
-  end
-
-  def delete_global_observers
-    if defined? @global_observer_peers
-      @global_observer_peers.dup.each do |global_observer|
-        delete_global_observer(global_observer)
-      end
-    end
-  end
-
-  def list_global_observers
-    if defined? @global_observer_peers
-      @global_observer_peers.dup
-    else
-      []
-    end
-  end
-
-  def count_global_observers
-    if defined? @global_observer_peers
-      @globale.observer_peers.size
-    else
-      0
-    end
-  end
-
-  def global_observer?(observer)
-    if defined? @global_observer_peers
-      @global_observer_peers.include?(observer)
-    else
-      false
-    end
-  end
-
-end # class ObservablePool
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class ObservablePoolTest < Test::Unit::TestCase
-
-  class Notifier
-    include Observable
-
-  end
-
-  class NotifierPool
-    include ObservablePool
-
-  end
-
-  class Obsv
-
-    attr_reader :last_msg
-
-    def initialize
-      @last_msg = nil
-    end
-
-    def update(*args, &block)
-      @last_msg = args
-    end
-
-  end
-
-  def test_simple
-    n1 = Notifier.new
-    n2 = Notifier.new
-    o1 = Obsv.new
-    o2 = Obsv.new
-    o3 = Obsv.new
-    op = NotifierPool.new
-    assert_equal(0, op.count_observables)
-    assert_equal([], op.list_observables)
-    op.add_observables(n1)
-    op.add_observable(n2)
-    op.observable(n2).add_observers(o1, o3)
-    assert_equal(2, op.count_observables)
-    [ n1, n2 ].each { |x| assert(op.list_observables.include?(x)) }
-    assert_equal(1, n1.count_observers)
-    assert_equal([], n1.list_observers[0].list_observers)
-    assert_equal(1, n2.count_observers)
-    assert_equal(2, n2.list_observers[0].count_observers)
-    [o1, o3].each do |x|
-      assert(n2.list_observers[0].list_observers.include?(x),
-             "#{x} not observer")
-    end
-    op.observable(n1).add_observers(o2, o3)
-    assert_equal(2, op.observable(n1).count_observers)
-    [o1, o2, o3].each do |x|
-      assert(op.list_all_observers.include?(x), "#{x} not observer")
-    end
-    n2.changed
-    n2.notify_observers('msg2')
-    assert_equal([ n2, 'msg2'], o1.last_msg)
-    assert_nil(o2.last_msg)
-    assert_equal([ n2, 'msg2'], o3.last_msg)
-    n1.changed
-    n1.notify_observers('msg1')
-    assert_equal([n2, 'msg2'], o1.last_msg)
-    assert_equal([n1, 'msg1'], o2.last_msg)
-    assert_equal([n1, 'msg1'], o3.last_msg)
-    [n1, n2].each do |x|
-      assert(op.list_observables_observed(o3).include?(x), "#{x} not observer")
-    end
-  end
-
-  def test_global_observer
-    n1 = Notifier.new
-    n2 = Notifier.new
-    n3 = Notifier.new
-    o1 = Obsv.new
-    o2 = Obsv.new
-    o3 = Obsv.new
-    op = NotifierPool.new
-    assert_equal(0, op.count_global_observers)
-    assert_equal([], op.list_global_observers)
-    op.add_observables(n1)
-    op.add_observable(n2)
-    op.observable(n1).add_observers(o1)
-    op.observable(n2).add_observers(o2)
-    op.add_global_observers(o3)
-    [o1, o3].each do |x|
-      assert(n1.list_observers[0].list_observers.include?(x),
-             "#{x} not observer")
-    end
-    [o2, o3].each do |x|
-      assert(n2.list_observers[0].list_observers.include?(x),
-             "#{x} not observer")
-    end
-    assert_equal([o3], op.list_global_observers)
-    op.add_observable(n3)
-    assert([o3], n3.list_observers[0].list_observers)
-    op.delete_global_observers
-    assert_equal([], op.list_global_observers)
-    assert([], n3.list_observers[0].list_observers)
-    assert([o2], n2.list_observers[0].list_observers)
-    assert([o1], n1.list_observers[0].list_observers)
-  end
-
-end # class ObservablePoolTest
-
-
-end
-