ruby_ex 0.1.1

data/NEWS

@@ -0,0 +1,3 @@
+= New in 0.1, 2005-05-31:
+
+  Initial Release.

data/README

@@ -0,0 +1 @@
+Coming Soon.

data/Rakefile

@@ -0,0 +1,8 @@
+# Author::    The TTK Team.                                        -*- ruby -*-
+# Copyright:: Copyright (c) 2005 TTK team. All rights reserved.
+# License::   Ruby License
+# Revision::  $Id$
+
+require 'rubygems'
+require_gem 'core_ex'
+load 'core_ex/rakefile_base.rf'

data/SPEC.dyn.yml

@@ -0,0 +1,10 @@
+--- !ruby/object:OpenStruct 
+table: 
+  :date: "Fri, 03 Jun 2005"
+  :version_id: ''
+  :version: !ruby/object:Version 
+    build: 1
+    major: 0
+    minor: 1
+    revision: 276
+  :url: svn://svn.feydakins.org/ruby_ex/trunk

data/SPEC.gem.yml

@@ -0,0 +1,269 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.10
+specification_version: 1
+name: ruby_ex
+version: !ruby/object:Gem::Version 
+  version: 0.1.1
+date: 2005-06-03
+summary: RubyEx contains general purpose Ruby extensions.
+require_paths: 
+  - lib
+email: 
+  - nicolas.despres@gmail.com
+  - ertai@feydakins.org
+homepage: http://api.feydakins.org/ruby_ex
+rubyforge_project: ruby_ex
+description: ''
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+authors: 
+  - 
+    - Nicolas Despr�s
+    - Nicolas Pouillard
+files: 
+  - src/abstract.rb
+  - src/abstract_node.rb
+  - src/algorithms.rb
+  - src/ask.rb
+  - src/attributed_class.rb
+  - src/cache.rb
+  - src/checkout.rb
+  - src/choose.rb
+  - src/commands.rb
+  - src/config_file.rb
+  - src/const_regexp.rb
+  - src/daemon.rb
+  - src/diff.rb
+  - src/dlogger.rb
+  - src/drb_ex.rb
+  - src/dumpable_proc.rb
+  - src/filetype.rb
+  - src/generate_id.rb
+  - src/histogram.rb
+  - src/hookable.rb
+  - src/hooker.rb
+  - src/indexed_node.rb
+  - src/io_marshal.rb
+  - src/ioo.rb
+  - src/labeled_node.rb
+  - src/logger_observer.rb
+  - src/md5sum.rb
+  - src/node.rb
+  - src/object_monitor.rb
+  - src/object_monitor_activity.rb
+  - src/observable.rb
+  - src/observable_pool.rb
+  - src/orderedhash.rb
+  - src/pp_hierarchy.rb
+  - src/random_generators.rb
+  - src/ruby_ex.rb
+  - src/safe_eval.rb
+  - src/sendmail.rb
+  - src/service_manager.rb
+  - src/shuffle.rb
+  - src/spring.rb
+  - src/spring_set.rb
+  - src/symtbl.rb
+  - src/synflow.rb
+  - src/thread_mutex.rb
+  - src/timeout_ex.rb
+  - src/trace.rb
+  - src/uri_ex.rb
+  - src/verbose_object.rb
+  - src/algorithms/simulated_annealing.rb
+  - src/commands/command.rb
+  - src/commands/datas.rb
+  - src/commands/factory.rb
+  - src/commands/helpers.rb
+  - src/commands/pipe.rb
+  - src/commands/runners.rb
+  - src/commands/seq.rb
+  - src/commands/datas/composite.rb
+  - src/commands/datas/data.rb
+  - src/commands/datas/factory.rb
+  - src/commands/datas/temp.rb
+  - src/commands/runners/exec.rb
+  - src/commands/runners/fork.rb
+  - src/commands/runners/runner.rb
+  - src/commands/runners/system.rb
+  - src/drb/drb_observable.rb
+  - src/drb/drb_observable_pool.rb
+  - src/drb/drb_service.rb
+  - src/drb/drb_undumped_attributes.rb
+  - src/drb/drb_undumped_indexed_object.rb
+  - src/drb/insecure_protected_methods.rb
+  - src/module/autoload_tree.rb
+  - src/module/hierarchy.rb
+  - src/module/instance_method_visibility.rb
+  - src/random_generators/random_generator.rb
+  - src/random_generators/ruby.rb
+  - src/uri/druby.rb
+  - src/uri/file.rb
+  - src/uri/ftp_ex.rb
+  - src/uri/http_ex.rb
+  - src/uri/pgsql.rb
+  - src/uri/ssh.rb
+  - src/uri/svn.rb
+  - src/yaml/basenode_ext.rb
+  - src/yaml/chop_header.rb
+  - src/yaml/transform.rb
+  - src/yaml/yregexpath.rb
+  - test/algorithms
+  - test/check-pkg-ruby_ex.yml
+  - test/check-ruby_ex.yml
+  - test/resources
+  - test/sanity
+  - test/sanity-suite.yml
+  - test/test-unit-setup.rb
+  - test/unit-suite.yml
+  - test/algorithms/simulated_annealing_test.rb
+  - test/resources/autoload_tree
+  - test/resources/foo.txt
+  - test/resources/autoload_tree/A.rb
+  - test/resources/autoload_tree/B.rb
+  - test/resources/autoload_tree/foo
+  - test/resources/autoload_tree/foo/C.rb
+  - test/sanity/multiple-requires.yml
+  - test/sanity/single-requires.yml
+  - AUTHORS
+  - ChangeLog
+  - NEWS
+  - Rakefile
+  - README
+  - SPEC.dyn.yml
+  - SPEC.gem.yml
+  - SPEC.yml
+test_files: []
+rdoc_options: 
+  - "--inline-source"
+  - "--main"
+  - README
+  - "--title"
+  - "RubyEx -- General purpose Ruby extensions."
+  - "-T"
+  - html
+extra_rdoc_files: 
+  - README
+  - AUTHORS
+  - NEWS
+  - src/abstract.rb
+  - src/abstract_node.rb
+  - src/algorithms.rb
+  - src/ask.rb
+  - src/attributed_class.rb
+  - src/cache.rb
+  - src/checkout.rb
+  - src/choose.rb
+  - src/commands.rb
+  - src/config_file.rb
+  - src/const_regexp.rb
+  - src/daemon.rb
+  - src/diff.rb
+  - src/dlogger.rb
+  - src/drb_ex.rb
+  - src/dumpable_proc.rb
+  - src/filetype.rb
+  - src/generate_id.rb
+  - src/histogram.rb
+  - src/hookable.rb
+  - src/hooker.rb
+  - src/indexed_node.rb
+  - src/io_marshal.rb
+  - src/ioo.rb
+  - src/labeled_node.rb
+  - src/logger_observer.rb
+  - src/md5sum.rb
+  - src/node.rb
+  - src/object_monitor.rb
+  - src/object_monitor_activity.rb
+  - src/observable.rb
+  - src/observable_pool.rb
+  - src/orderedhash.rb
+  - src/pp_hierarchy.rb
+  - src/random_generators.rb
+  - src/ruby_ex.rb
+  - src/safe_eval.rb
+  - src/sendmail.rb
+  - src/service_manager.rb
+  - src/shuffle.rb
+  - src/spring.rb
+  - src/spring_set.rb
+  - src/symtbl.rb
+  - src/synflow.rb
+  - src/thread_mutex.rb
+  - src/timeout_ex.rb
+  - src/trace.rb
+  - src/uri_ex.rb
+  - src/verbose_object.rb
+  - src/algorithms/simulated_annealing.rb
+  - src/commands/command.rb
+  - src/commands/datas.rb
+  - src/commands/factory.rb
+  - src/commands/helpers.rb
+  - src/commands/pipe.rb
+  - src/commands/runners.rb
+  - src/commands/seq.rb
+  - src/commands/datas/composite.rb
+  - src/commands/datas/data.rb
+  - src/commands/datas/factory.rb
+  - src/commands/datas/temp.rb
+  - src/commands/runners/exec.rb
+  - src/commands/runners/fork.rb
+  - src/commands/runners/runner.rb
+  - src/commands/runners/system.rb
+  - src/drb/drb_observable.rb
+  - src/drb/drb_observable_pool.rb
+  - src/drb/drb_service.rb
+  - src/drb/drb_undumped_attributes.rb
+  - src/drb/drb_undumped_indexed_object.rb
+  - src/drb/insecure_protected_methods.rb
+  - src/module/autoload_tree.rb
+  - src/module/hierarchy.rb
+  - src/module/instance_method_visibility.rb
+  - src/random_generators/random_generator.rb
+  - src/random_generators/ruby.rb
+  - src/uri/druby.rb
+  - src/uri/file.rb
+  - src/uri/ftp_ex.rb
+  - src/uri/http_ex.rb
+  - src/uri/pgsql.rb
+  - src/uri/ssh.rb
+  - src/uri/svn.rb
+  - src/yaml/basenode_ext.rb
+  - src/yaml/chop_header.rb
+  - src/yaml/transform.rb
+  - src/yaml/yregexpath.rb
+executables: []
+extensions: []
+requirements: []
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: core_ex
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - "~>"
+          - !ruby/object:Gem::Version 
+            version: 0.1.2
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: activesupport
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - "~>"
+          - !ruby/object:Gem::Version 
+            version: 1.0.4
+      version: 

data/SPEC.yml

@@ -0,0 +1,36 @@
+---
+Author: The TTK Team.
+License: Ruby License
+Revision: '$Id$'
+
+name: ruby_ex
+
+title: RubyEx -- General purpose Ruby extensions.
+summary: RubyEx contains general purpose Ruby extensions.
+description: ""
+homepage: http://api.feydakins.org/ruby_ex
+rubyforge_project: ttk
+rubyforge_sub_package_name: ruby_ex
+
+root_test_suite: test/check-pkg-ruby_ex.yml
+rdoc_dir: doc/html
+tags_url: svn://svn.feydakins.org/ruby_ex/tags
+
+commit_command: rxci
+
+rdoc_files: !filelist
+  - README
+  - AUTHORS
+  - NEWS
+  - src/**/*.rb
+
+pkg_files: !filelist
+  - src/**/*.rb
+  - test/**/*
+  - '[A-Z]*'
+
+dependencies:
+  core_ex:       ~> 0.1.2
+  activesupport: ~> 1.0.4
+#  ttk:           ~> 0.2.0
+

data/src/abstract.rb

@@ -0,0 +1,253 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: abstract.rb 266 2005-06-01 14:27:18Z ertai $
+
+
+#FIXME: find a way to be thread safe.
+
+
+require 'module/instance_method_visibility'
+require 'ruby_ex'
+
+
+module Concrete; end
+
+
+# When this module is included into a class, this class can't be instantiate
+# any more until the Concrete module is included too. This module cannot be
+# included if the Concrete module has been included before in one of the
+# class' superclass.
+module Abstract
+
+  def self.included(klass)
+    super
+    if klass.include?(Concrete)
+      raise(TypeError, "#{klass} - cannot make abstract a concrete class")
+    end
+    klass.module_eval do
+      class << self
+        unless private_method_defined?(:concrete_new)
+          alias_method :concrete_new, :new
+          visibility = instance_method_visibility('new')
+          def new(*args, &block)
+            raise(TypeError, "cannot instantiate an abstract class #{name}")
+          end
+          send(visibility, :new)
+          private :concrete_new
+        end
+      end
+    end
+  end
+
+end # module Abstract
+
+
+# Include this module in an abstract class to make it concrete and so, to be
+# able to instantiate it again. This module can be included if and only if the
+# Abstract module has been included before in one of the class' superclass.
+module Concrete
+
+  def self.included(klass)
+    super
+    unless klass.include?(Abstract)
+      raise(TypeError, "#{klass} - not an abstract class")
+    end
+    klass.module_eval do
+      class << self
+        visibility = instance_method_visibility('new')
+        def new(*args, &block)
+          concrete_new(*args, &block)
+        end
+        send(visibility, :new)
+      end
+
+      def is_a?(klass)
+        klass == Abstract ? false : super(klass)
+      end
+    end
+  end
+
+end # module Concrete
+
+
+class Class
+
+  def abstract
+    include Abstract
+  end
+
+  def concrete
+    include Concrete
+  end
+
+  def abstract?
+    include?(Abstract) ? (not include?(Concrete)) : false;
+  end
+
+end # class Class
+
+
+test_section __FILE__ do
+
+
+require 'singleton'
+
+
+class AbstractTest < Test::Unit::TestCase
+
+  class R; end
+
+  class A
+    include Abstract
+
+    attr_reader :initialized
+
+    def initialize(toto=nil)
+      @initialized = true
+    end
+
+  end
+
+  class B < A; end
+
+  def test_abstract
+    assert_nothing_raised { R.new }
+    assert(A.include?(Abstract))
+    assert_raises(TypeError) { A.new }
+    assert_raises(TypeError) { B.new }
+    assert_raises(TypeError) do
+      AbstractTest.module_eval %q{
+        class D
+          include Concrete
+          include Abstract
+        end
+      }
+    end
+  end
+
+  class C < A
+    include Concrete
+
+    attr_reader :toto
+
+    def initialize(toto=nil)
+      super
+      @toto = toto
+    end
+  end
+
+  class CC < C; end
+
+  def test_concrete
+    assert_raises(TypeError) do
+      AbstractTest.module_eval %q{ class D; include Concrete; end }
+    end
+    assert(C.new.initialized)
+    assert_nil(C.new.toto)
+    assert_equal('toto', C.new('toto').toto)
+    assert(CC.new.initialized)
+    assert_equal(SC.instance, SC.instance)
+    assert_equal(SCC.instance, SCC.instance)
+    assert_not_equal(SC.instance, SCC.instance)
+  end
+
+  class SA
+    include Singleton
+    include Abstract
+
+    attr_reader :initialized
+
+    def initialize(toto=nil)
+      @initialized = true
+    end
+
+  end
+
+  class SB < SA; end
+
+  def test_abstract_singleton
+    assert(SA.include?(Abstract))
+    assert_raises(NoMethodError) { SA.new }
+    assert_raises(TypeError) { SA.instance }
+    assert_raises(NoMethodError) { SB.new }
+    assert_raises(TypeError) { SB.instance }
+    assert_raises(TypeError) do
+      AbstractTest.module_eval %q{
+        class SD; include Concrete; include Abstract; end
+      }
+    end
+  end
+
+  class SC < SA
+    include Concrete
+
+  end
+
+  class SCC < SC; end
+
+  def test_concrete_singleton
+    assert_raises(TypeError) do
+      AbstractTest.module_eval %q{ class SD; include Concrete; end }
+    end
+    assert_raises(NoMethodError) { SC.new }
+    assert(SC.instance.initialized)
+    assert(SCC.instance.initialized)
+    assert_equal(SC.instance, SC.instance)
+    assert_equal(SCC.instance, SCC.instance)
+    assert_not_equal(SC.instance, SCC.instance)
+  end
+
+  class IsA; include Abstract; end
+  class IsB < IsA; include Concrete; end
+
+  def test_is_a
+    assert(! IsB.new.is_a?(Abstract))
+    assert(IsB.new.is_a?(IsA))
+    assert(IsB.include?(Abstract))
+  end
+
+  def test_abstract?
+    assert(IsA.abstract?)
+    assert(! IsB.abstract?)
+  end
+
+  class AArg
+    include Abstract
+
+    attr_reader :arg
+
+    def initialize(arg)
+      @arg = arg
+    end
+
+  end
+
+  class CArg < AArg
+    include Concrete
+  end
+
+  def test_arg
+    assert_nothing_raised { CArg.new('toto') }
+    assert_raises(ArgumentError) { CArg.new }
+  end
+
+  class AA_; include Abstract; end
+  class BB_ < AA_; include Abstract; end
+  class CC_ < BB_; include Concrete; end
+  class DD_ < CC_; include Concrete; end
+
+  def test_double_abstract
+    assert_raises(TypeError) { AA_.new }
+    assert_raises(TypeError) { BB_.new }
+    assert_nothing_raised { CC_.new }
+    assert_nothing_raised { DD_.new }
+  end
+
+end # class AbstractTest
+
+
+end
+