vcs 0.1 → 0.2.148

data/ruby_ex/object_monitor.rb

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

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

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

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