ruby_ex 0.4.6.2 → 0.5.5.0

data/NEWS

@@ -1,3 +1,20 @@
+= New in 0.5, 2007-01-14:
+
+    * Hooker, Hookable, Commands:
+        Moved to objective_command.
+
+    * URI extensions and FileType:
+        Commands are handled with objective_command.
+
+    * Symtbl:
+        Use JSON to stringify complex objects during substitutions.
+
+    * Some additions:
+        exp_mod, probability_distributions.
+
+    * Fix some bugs:
+        Sendmail and multiple receivers, YAML.load_form_io, TempPath...
+
 = New in 0.4_p2, 2006-03-11:
 
     Fix a bug in the pathname substitution inside symbol tables.

data/README

@@ -1 +1,2 @@
+RubyEx contains general purpose Ruby extensions.
 Coming Soon. We hope...

data/SPEC.gemspec

@@ -0,0 +1,14 @@
+Gem::Specification.new do |s|
+  s.name = %q{ruby_ex}
+  s.version = "0.5.5.0"
+  s.date = %q{2007-01-14}
+  s.summary = %q{RubyEx contains general purpose Ruby extensions.}
+  s.email = ["nicolas.despres@gmail.com", "ertai@feydakins.org"]
+  s.homepage = %q{http://api.feydakins.org/ruby_ex}
+  s.rubyforge_project = %q{ruby_ex}
+  s.description = %q{}
+  s.authors = ["Nicolas Despr\350s", "Nicolas Pouillard"]
+  s.files = ["lib/abstract.rb", "lib/abstract_node.rb", "lib/attributed_class.rb", "lib/auto_object.rb", "lib/blank_slate.rb", "lib/cache.rb", "lib/choose.rb", "lib/concrete.rb", "lib/config_file.rb", "lib/const_regexp.rb", "lib/d_logger.rb", "lib/daemon.rb", "lib/diff.rb", "lib/diff_tools.rb", "lib/drb_ex.rb", "lib/exp_mod.rb", "lib/file_type.rb", "lib/generate_id.rb", "lib/genpasswd.rb", "lib/hash_eval.rb", "lib/histogram.rb", "lib/html_encode.rb", "lib/indexed_node.rb", "lib/io_marshal.rb", "lib/ioo.rb", "lib/kill_all.rb", "lib/labeled_node.rb", "lib/logger_observer.rb", "lib/md5sum.rb", "lib/meta_factory.rb", "lib/method_call.rb", "lib/mocks.rb", "lib/node.rb", "lib/o_hash.rb", "lib/object_monitor.rb", "lib/object_monitor_activity.rb", "lib/observable.rb", "lib/observable_pool.rb", "lib/pp_hierarchy.rb", "lib/r_path.rb", "lib/random_generators.rb", "lib/regex_list.rb", "lib/regex_path.rb", "lib/ruby_ex.rb", "lib/safe_eval.rb", "lib/sendmail.rb", "lib/service_manager.rb", "lib/shuffle.rb", "lib/spring.rb", "lib/spring_set.rb", "lib/sym_tbl.rb", "lib/sym_tbl_gsub.rb", "lib/syn_flow.rb", "lib/text.rb", "lib/timeout_ex.rb", "lib/trace.rb", "lib/verbose_object.rb", "lib/algorithms/simulated_annealing.rb", "lib/drb/insecure_protected_methods.rb", "lib/drb/observable.rb", "lib/drb/observable_pool.rb", "lib/drb/service.rb", "lib/drb/undumped_attributes.rb", "lib/drb/undumped_indexed_object.rb", "lib/mocks/assertions.rb", "lib/mocks/method_logger.rb", "lib/mocks/mock.rb", "lib/mocks/object.rb", "lib/mocks/observer.rb", "lib/module_extensions/autoload_tree.rb", "lib/module_extensions/hierarchy.rb", "lib/module_extensions/instance_method_visibility.rb", "lib/probability_distributions/gaussian_distribution.rb", "lib/probability_distributions/probability_distribution.rb", "lib/probability_distributions/uniform_distribution.rb", "lib/random_generators/random_generator.rb", "lib/random_generators/ruby.rb", "lib/uri/druby.rb", "lib/uri/file.rb", "lib/uri/ftp_ex.rb", "lib/uri/generic_ex.rb", "lib/uri/http_ex.rb", "lib/uri/mysql.rb", "lib/uri/pgsql.rb", "lib/uri/rsync.rb", "lib/uri/ssh.rb", "lib/uri/svn.rb", "lib/yaml_extensions/chop_header.rb", "lib/yaml_extensions/transform.rb", "lib/yaml_extensions/yregexpath.rb", "test/algorithms", "test/check-pkg-ruby_ex.yml", "test/check-ruby_ex.yml", "test/fixtures", "test/functional", "test/sanity", "test/sanity-suite.yml", "test/stress-tests", "test/unit-suite.yml", "test/algorithms/simulated_annealing_test.rb", "test/fixtures/autoload_tree", "test/fixtures/foo.bz2", "test/fixtures/foo.gz.zip", "test/fixtures/foo.rb.gz", "test/fixtures/foo.tar", "test/fixtures/foo.tar.bz2", "test/fixtures/foo.tar.gz", "test/fixtures/foo.txt", "test/fixtures/my_diff.patch", "test/fixtures/tar.gz.log", "test/fixtures/autoload_tree/A.rb", "test/fixtures/autoload_tree/B.rb", "test/fixtures/autoload_tree/foo", "test/fixtures/autoload_tree/foo/C.rb", "test/sanity/multiple-requires.yml", "test/sanity/single-requires.yml", "test/stress-tests/threads_and_exceptions.yml", "AUTHORS", "ChangeLog", "NEWS", "Rakefile", "README", "SPEC.gemspec", "SPEC.yml"]
+  s.add_dependency(%q<highline>, [">= 1.0.1"])
+  s.add_dependency(%q<core_ex>, ["~> 0.6.5"])
+end

data/SPEC.yml

@@ -1,9 +1,11 @@
 ---
 Author: The Uttk Team.
 License: Ruby License
-Revision: '$Id: /w/fey/ruby_ex/trunk/SPEC.yml 22445 2006-03-11T15:56:04.480135Z pouillar  $'
+Revision: '$Id: /w/fey/ruby_ex/trunk/SPEC.yml 53944 2007-01-14T12:13:14.937281Z ertai  $'
 
-version: !feydakins.org,2006/version dev-ruby/ruby_ex-0.4_p2
+version: !feydakins.org,2006/version dev-ruby/ruby_ex-0.5
+
+# See also lib/ruby_ex.rb
 
 title: RubyEx -- General purpose Ruby extensions.
 summary: RubyEx contains general purpose Ruby extensions.
@@ -32,9 +34,11 @@ pkg_files: !filelist
 
 dependencies:
   core_ex:
-    gem:     ~> 0.5.5
-    tarball: 8875/core_ex-0.5.tar.gz
+    gem:     ~> 0.6.5
+    tarball: http://rubyforge.iasi.roedu.net/files/ttk/core_ex-0.6.tar.gz
     vcs:     svn://svn.feydakins.org/ruby_ex/trunk/core_ex
-  highline: [~> 1.0.1, 5143/highline-1.0.1.tgz]
+  highline:
+    - >= 1.0.1
+    - http://rubyforge.iasi.roedu.net/files/highline/highline-1.2.1.tgz
 
-uttk_version: ~> 0.3.1
+uttk_version: >= 0.3.6.1

data/lib/abstract.rb

@@ -2,13 +2,12 @@
 # Author: Nicolas Despres  <polrop@lrde.epita.fr>.
 # License: Gnu General Public License.
 
-# $LastChangedBy: pouillar $
-# $Id: /w/fey/ruby_ex/trunk/lib/abstract.rb 21950 2006-02-19T19:23:50.312174Z pouillar  $
-
+# $LastChangedBy: ertai $
+# $Id: /w/fey/ruby_ex/trunk/lib/abstract.rb 53902 2007-01-13T11:33:32.044352Z ertai  $
 
 #FIXME: find a way to be thread safe.
 
-Module::InstanceMethodVisibility.import!
+ModuleExtensions::InstanceMethodVisibility.import!
 
 
 # When this module is included into a class, this class can't be instantiate

data/lib/d_logger.rb

@@ -3,7 +3,7 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: /w/fey/ruby_ex/trunk/lib/d_logger.rb 7994 2005-10-03T00:46:17.723157Z ertai  $
+# $Id: /w/fey/ruby_ex/trunk/lib/d_logger.rb 53906 2007-01-13T16:15:34.543400Z ertai  $
 
 require 'logger'
 
@@ -57,8 +57,8 @@ test_section __FILE__ do
       log.debug3 'You don\'t see me'
       log.debug2 'You see me'
       cout.rewind
-      ref = /D, \[[\d\w: .-]+#\d+\]  DEBUG -- : You see me
-D, \[[\d\w: .-]+#\d+\] DEBUG2 -- : You see me/
+      ref = /D, \[[\d\w: .+-]+#\d+\]  DEBUG -- : You see me
+D, \[[\d\w: .+-]+#\d+\] DEBUG2 -- : You see me/
       assert_match(ref, cout.readlines.join)
     end
 

data/lib/drb/observable_pool.rb

@@ -2,8 +2,8 @@
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
 
-# $LastChangedBy: pouillar $
-# $Id: /w/fey/ruby_ex/trunk/lib/drb/observable_pool.rb 22238 2006-02-24T16:48:40.656342Z pouillar  $
+# $LastChangedBy: ertai $
+# $Id: /w/fey/ruby_ex/trunk/lib/drb/observable_pool.rb 53906 2007-01-13T16:15:34.543400Z ertai  $
 
 
 module DRb
@@ -17,6 +17,9 @@ module DRb
 
   end # class DRbObservable
 
+  class ObservablePool
+  end # class ObservablePool
+
 end # module DRb
 
 

data/lib/drb_ex.rb

@@ -1,14 +1,9 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/drb_ex.rb 22238 2006-02-24T16:48:40.656342Z pouillar  $
-
-AutoloadTree.import!
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/drb_ex.rb 53906 2007-01-13T16:15:34.543400Z ertai  $
 
 module DRb
-
-  autoloaded_module(__FILE__.sub(/drb_ex\.rb/, 'drb.rb'))
-
 end # module Drb
 
 class DrbEx

data/lib/exp_mod.rb

@@ -0,0 +1,48 @@
+# Author::    Nicolas Pouillard  <nicolas.pouillard@gmail.com>.
+# Copyright:: Copyright (c) 2006 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/exp_mod.rb 53899 2007-01-13T11:21:51.227355Z ertai  $
+
+module ExpMod
+
+  def exp ( m, p )
+    case m
+    when 0 then 1
+    when 1 then self % p
+    else
+      q, r = m.divmod(2)
+      tmp1 = self.exp(q, p)
+      tmp2 = (tmp1 * tmp1) % p
+      if r == 0
+        tmp2
+      else
+        (tmp2 * self) % p
+      end
+    end
+  end
+
+end # module ExpMod
+
+class Integer
+
+  include ExpMod
+
+end # class Integer
+
+test_section __FILE__ do
+
+  class TestExpMod < Test::Unit::TestCase
+
+    def assert_naive ( x, e, m )
+      assert_equal((x ** e) % m, x.exp(e, m), "(#{x} ** #{e}) % #{m}")
+    end
+
+    def test_simple
+      assert_equal 0, 2.exp(10, 2)
+      assert_equal 0, rand(100).exp(rand(10) + 1, 1)
+      assert_naive 48204802, 43, 84082384204
+    end
+
+  end # class TestExpMod
+  
+end

data/lib/file_type.rb

@@ -1,9 +1,9 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/file_type.rb 8048 2005-12-31T15:58:07.059747Z ertai  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/file_type.rb 24383 2006-07-09T16:54:02.725734Z ertai  $
 
-Commands.import!
+core_ex_require 'objective_command'
 
 module FileType
 
@@ -14,13 +14,6 @@ module FileType
   end
 
 
-  GZIP  = 'gzip'.to_cmd
-  BZIP2 = 'bzip2'.to_cmd
-  UNZIP = 'unzip'.to_cmd
-  TAR   = 'tar'.to_cmd
-  GEM   = 'gem'.to_cmd
-
-
   class Generic
     make Abstract
 
@@ -33,14 +26,18 @@ module FileType
       unless @path.to_s =~ re
         raise ArgumentError, "#{@path} do not match /#{re.source}/"
       end
-      @base, @ext = $`, $&
+      b, @ext = $`, $&
       if @ext.empty?
         @base = self
       else
-        @base = FileType.guess(@base)
+        @base = FileType.guess(b)
       end
     end
 
+    def symtbl_to_s
+      to_s
+    end
+
     def extsplit
       [@base, @ext]
     end
@@ -67,16 +64,6 @@ module FileType
       @path + arg.to_s
     end
 
-    def self.extractable ( aCommand )
-      include Extractable
-      self.extract_command = aCommand
-    end
-
-    def self.extractable_dir ( aCommand )
-      include ExtractableDir
-      self.extract_command = aCommand
-    end
-
     def extractable?
       false
     end
@@ -89,7 +76,7 @@ module FileType
       class_eval do
         self.extension = anObject
         self.priority = priority
-        concrete
+        include Concrete
       end
     end
 
@@ -97,7 +84,18 @@ module FileType
     class_inheritable_accessor :extension
     class_inheritable_accessor :priority # 0 .. +inf
 
-    self.runner = Commands::Runners::System.new
+    self.runner = OCmd::Runners::System.new
+
+    for i in %w[ gzip bzip2 unzip tar gem ] do
+      class_eval "
+        def self.#{i} *args
+          '#{i}'.to_ocmd[*args]
+        end
+        def #{i} *args
+          '#{i}'.to_ocmd[*args]
+        end
+      "
+    end
 
   end # class Generic
 
@@ -116,44 +114,39 @@ module FileType
 
   module Extractable
 
-    def self.included ( aClass )
-
-      aClass.class_inheritable_accessor :extract_command
-
-      aClass.module_eval do
-
-        def extractable?
-          true
-        end
-
-        def mk_cmd ( out )
-          extract_command < @path > out
-        end
-
-        def extract
-          base, ext = @base.extsplit
-          @tmp = TempPath.new(base.path.basename, ext)
-          cmd = mk_cmd(@tmp)
-          data = cmd.run(self.class.runner)
-          data.waitpid if data.status.nil?
-          if data.status != 0
-            @tmp.rmtree if @tmp.exist?
-            STDERR.puts data.error.read if data.error and data.error.exist?
-            raise ExtractError, "Cannot extract a file:
-            |  path: #{to_s}
-            |  type: #{self.class}
-            |  command: #{cmd}
-            |  exit status: #{data.status.exitstatus}".head_cut!
-          end
-          FileType.guess(@tmp)
-        end
+    setup do |extract_command|
+      class_inheritable_accessor :extract_command
+      self.extract_command = extract_command
+    end
 
-        alias :default :extract
+    def extractable?
+      true
+    end
 
+    def mk_cmd ( out )
+      extract_command < @path > out
+    end
+
+    def extract
+      base, ext = @base.extsplit
+      @tmp = TempPath.new(base.path.basename, ext)
+      cmd = mk_cmd(@tmp)
+      data = cmd.run(self.class.runner)
+      data.waitpid if data.status.nil?
+      if data.status != 0
+        @tmp.rmtree if @tmp.exist?
+        STDERR.puts data.error.read if data.error and data.error.exist?
+        raise ExtractError, "Cannot extract a file:
+        |  path: #{to_s}
+        |  type: #{self.class}
+        |  command: #{cmd}
+        |  exit status: #{data.status.exitstatus}".head_cut!
       end
-
+      FileType.guess(@tmp)
     end
 
+    teardown { alias_method :default, :extract }
+
   end # module Extractable
 
 
@@ -161,21 +154,21 @@ module FileType
   # FIXME Use the zlib if gzip not available.
   class Gz < Generic
     filetype_extension(/(\.(gz|z|Z)|-gz|-z|_z)$/)
-    extractable GZIP + %w[-d -c %i]
+    make Extractable, gzip('-d', '-c', '%i')
   end # class Gz
 
 
 
   class Bz2 < Generic
     filetype_extension(/\.bz2?$/)
-    extractable BZIP2 + %w[-d -c %i]
+    make Extractable, bzip2('-d', '-c', '%i')
   end # class Bz2
 
 
 
   class Zip < Generic
     filetype_extension(/\.zip$/)
-    extractable UNZIP + %w[-p %i]
+    make Extractable, unzip('-p', '%i')
   end # class Zip
 
 
@@ -185,30 +178,22 @@ module FileType
 
   module ExtractableDir
 
-    def self.included ( aClass )
-
-      aClass.module_eval do
-
-        include Extractable
-
-        remove_method :mk_cmd
-
-        def mk_cmd ( out )
-          @log = TempPath.new('log')
-          cmd = extract_command[@tmp] < @path > @log
-          @tmp.mkpath
-          cmd
-        end
-
-        alias :extract_extractable :extract
-
-        def extract
-          dir = extract_extractable
-          FileType.guess(dir.path + longest_common_path(@log).join('/'))
-        end
+    setup do |extract_command|
+      make Extractable, extract_command
+      # remove_method :mk_cmd
+      alias_method :extract_extractable, :extract
+    end
 
-      end
+    def mk_cmd ( out )
+      @log = TempPath.new('log')
+      cmd = extract_command[@tmp] < @path > @log
+      @tmp.mkpath
+      cmd
+    end
 
+    def extract
+      dir = extract_extractable
+      FileType.guess(dir.path + longest_common_path(@log).join('/'))
     end
 
     # We want the longest common path
@@ -233,21 +218,21 @@ module FileType
 
   class Tar < Generic
     filetype_extension(/\.tar$/)
-    extractable_dir TAR + %w[xvf %i -C]
+    make ExtractableDir, tar('xvf', '%i', '-C')
   end # class Tar
 
 
 
   class TarGz < Generic
     filetype_extension(/\.(tar(\.(gz|z|Z)|-gz|-z|_z)|tgz)$/)
-    extractable_dir TAR + %w[xvzf %i -C]
+    make ExtractableDir, tar('xvzf', '%i', '-C')
   end # class TarGz
 
 
 
   class TarBz2 < Generic
     filetype_extension(/\.(tar\.bz2|tbz2|tbz)$/)
-    extractable_dir((BZIP2 + %w[-c -d %i]) | (TAR + %w[xvf - -C]))
+    make(ExtractableDir, bzip2('-c', '-d', '%i') | tar('xvf', '-', '-C'))
   end # class TarBz2
 
 
@@ -271,7 +256,7 @@ module FileType
     filetype_extension(/\.ya?ml$/)
 
     def load
-      YAML::load(path.read)
+      YAML.load(path.read)
     end
 
   end # class Yaml
@@ -286,7 +271,7 @@ module FileType
     end
 
     def install ( install_dir=nil )
-      cmd = GEM + 'install' + path
+      cmd = gem('install', path)
       cmd << '--install-dir' << install_dir unless install_dir.nil?
       cmd.run(runner)
     end
@@ -341,14 +326,14 @@ end # module FileType
 
 test_section __FILE__ do
 
-  Commands::Runners::Mockable.import!
+  OCmd::Runners::Mockable.import!
 
   class FileTypeTest < Test::Unit::TestCase
 
     def setup
       @tmp = TempPath.new
       (@tmp + 'foo').mkpath
-      @mr = Commands::Runners::System.new
+      @mr = OCmd::Runners::System.new
       @mr.make_mock do
         puts "#@tmp/foo/bar/baz\n#@tmp/foo\n#@tmp/foo/f/f/foo/baz"
       end
@@ -375,7 +360,7 @@ test_section __FILE__ do
     end
 
     def assert_real_extract ( type, file )
-      FileType::Generic.runner = Commands::Runners::System.new
+      FileType::Generic.runner = OCmd::Runners::System.new
       assert_nothing_raised { @inp = FileType.guess(file) }
       assert(@inp.extractable?, "#@inp not extractable")
       assert_nothing_raised { @res = @inp.extract }
@@ -429,17 +414,17 @@ test_section __FILE__ do
     end
 
     def test_extract_gz
-      assert_extract :Ruby, /^"gzip" "-d" "-c" "[^%]*" > "[^%]*"$/, @fixtures/'foo.rb.gz'
+      assert_extract :Ruby, /^gzip -d -c [^%]* > [^%]*$/, @fixtures/'foo.rb.gz'
     end
     def test_extract_bz2
-      assert_extract :Unknown, /^"bzip2" "-d" "-c" "[^%]*" > "[^%]*"$/, @fixtures/'foo.bz2'
+      assert_extract :Unknown, /^bzip2 -d -c [^%]* > [^%]*$/, @fixtures/'foo.bz2'
     end
     def test_extract_zip
-      assert_extract :Gz, /^"unzip" "-p" "[^%]*" > "[^%]*"$/, @fixtures/'foo.gz.zip'
+      assert_extract :Gz, /^unzip -p [^%]* > [^%]*$/, @fixtures/'foo.gz.zip'
     end
     def test_extract_tar_bz2
       assert_extract :Directory,
-        /^\("bzip2" "-c" "-d" "[^%]*foo.tar.bz2"\) \| \("tar" "xvf" "-" "-C" "[^%]*" > "[^%]*"\)$/,
+        /^\(bzip2 -c -d [^%]*foo.tar.bz2\) \| \(tar xvf - -C [^%]* > [^%]*\)$/,
         @fixtures/'foo.tar.bz2'
     end
     def test_real_extract_tar_bz2
@@ -447,17 +432,17 @@ test_section __FILE__ do
     end
     def test_extract_tar_gz
       assert_extract :Directory,
-        /^"tar" "xvzf" "[^%]*foo.tar.gz" "-C" ".*foo.*" > ".*log.*"$/, @fixtures/'foo.tar.gz'
+        /^tar xvzf [^%]*foo.tar.gz -C .*foo.* > .*log.*$/, @fixtures/'foo.tar.gz'
       assert_real_extract :Directory, @fixtures/'foo.tar.gz'
     end
     def test_extract_tar
       assert_extract :Directory,
-        /^"tar" "xvf" "[^%]*foo.tar" "-C" "[^%]*" > "[^%]*"$/, @fixtures/'foo.tar'
+        /^tar xvf [^%]*foo.tar -C [^%]* > [^%]*$/, @fixtures/'foo.tar'
     end
 
     def test_install_gem
-      assert_install(/^"gem" "install" "foo.gem"$/, 'foo.gem')
-      assert_install(/^"gem" "install" "foo.gem" "--install-dir" "\/tmp"$/,
+      assert_install(/^gem install foo.gem$/, 'foo.gem')
+      assert_install(/^gem install foo.gem --install-dir \/tmp$/,
                      'foo.gem', '/tmp')
     end