ruby_ex 0.4.6.2 → 0.5.5.0

data/lib/kill_all.rb

@@ -1,16 +1,16 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
 # License::   LGPL
-# $Id: /w/fey/ruby_ex/trunk/lib/kill_all.rb 8010 2005-10-10T21:23:35.079880Z ertai  $
+# $Id: /w/fey/ruby_ex/trunk/lib/kill_all.rb 24387 2006-07-09T17:07:20.668761Z ertai  $
 
-Commands.import!
+core_ex_require 'objective_command'
 
 class KillAll
 
   attr_accessor :signal
   attr_accessor :regexp
 
-  PS = 'ps'.to_cmd
+  PS = 'ps'.to_ocmd
 
   def initialize ( aSignal='KILL' )
     @signal = aSignal

data/lib/{module → module_extensions}/autoload_tree.rb

@@ -1,10 +1,10 @@
 # Copyright:: Copyright (c) 2004  Nicolas Despres. All rights reserved.
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module/autoload_tree.rb 22255 2006-02-26T14:19:43.502502Z pouillar  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module_extensions/autoload_tree.rb 53902 2007-01-13T11:33:32.044352Z ertai  $
 
 
-module AutoloadTree
+module ModuleExtensions::AutoloadTree
 
   def autoload_tree(dir, recursive=true, &block)
     pdir = Pathname.new(dir)
@@ -28,18 +28,13 @@ module AutoloadTree
     end
   end
 
-end # module AutoloadTree
+end # module ModuleExtensions::AutoloadTree
 
 class Module
-
-  include AutoloadTree
-
-  module AutoloadTree
-  end
-
+  include ModuleExtensions::AutoloadTree
 end # class Module
 
-module AutoloadTree
+module ModuleExtensions::AutoloadTree
 
   test_section __FILE__ do
 

data/lib/{module → module_extensions}/hierarchy.rb

@@ -1,11 +1,11 @@
 # Copyright:: Copyright (c) 2004, 2006  Nicolas Despres. All rights reserved.
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module/hierarchy.rb 22446 2006-03-11T18:07:59.270837Z pouillar  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module_extensions/hierarchy.rb 53902 2007-01-13T11:33:32.044352Z ertai  $
 
-class Module
+module ModuleExtensions
 
-  # Extend the Module class with method to manipulate inheritance relation
+  # Extend the Module class with methods to manipulate inheritance relation
   # between constants of a module.
   module Hierarchy
 
@@ -136,7 +136,13 @@ class Module
 
   end # module Hierarchy
 
-  include Hierarchy
+end # module ModuleExtensions
+
+class Module
+  include ModuleExtensions::Hierarchy
+end # class Module
+
+module ModuleExtensions
 
   module Hierarchy
 
@@ -333,4 +339,4 @@ class Module
 
   end # module Hierarchy
 
-end # class Module
+end # module ModuleExtensions

data/lib/{module → module_extensions}/instance_method_visibility.rb

@@ -1,9 +1,9 @@
 # Copyright:: Copyright (c) 2004  Nicolas Despres. All rights reserved.
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module/instance_method_visibility.rb 21865 2006-02-18T17:13:28.680350Z pouillar  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/module_extensions/instance_method_visibility.rb 53902 2007-01-13T11:33:32.044352Z ertai  $
 
-class Module
+module ModuleExtensions
 
   module InstanceMethodVisibility
 
@@ -22,11 +22,13 @@ class Module
 
   end # module InstanceMethodVisibility
 
-  include InstanceMethodVisibility
+end # module ModuleExtensions
 
+class Module
+  include ModuleExtensions::InstanceMethodVisibility
 end # class Module
 
-module InstanceMethodVisibility
+module ModuleExtensions::InstanceMethodVisibility
 
   test_section __FILE__ do
 
@@ -68,6 +70,6 @@ module InstanceMethodVisibility
 
   end
 
-end # module InstanceMethodVisibility
+end # module ModuleExtensions::InstanceMethodVisibility
 
 

data/lib/{ordered_hash.rb → o_hash.rb}

@@ -4,7 +4,7 @@
 #
 # DESCRIPTION
 #    Override hash to make it creation order preserved.
-#    This will be obsolete - it is better to use special OrderedHash class
+#    This will be obsolete - it is better to use special OHash class
 #    than overriding.
 #    Public domain.
 #
@@ -12,16 +12,11 @@
 #    Andrew Johnson for his suggestions and fixes of Hash[],
 #    merge, to_a, inspect and shift
 #
-# USAGE
-#    just require this file, examples are at the end
-#    you can try to run this file (ruby orderedhash.rb)
-#
-
-# $LastChangedBy: ertai $
-# $Id: /w/fey/ruby_ex/trunk/lib/ordered_hash.rb 7972 2005-09-24T19:53:40.837778Z ertai  $
+# $LastChangedBy$
+# $Id: /w/fey/ruby_ex/trunk/lib/o_hash.rb 24384 2006-07-09T16:59:08.734236Z ertai  $
 
 
-module OrderedHash
+module OHashMixIn
 
   def store ( a, b )
     @order.push a unless has_key? a
@@ -165,7 +160,7 @@ module OrderedHash
     !@order.nil?
   end
 
-end # module OrderedHash
+end # module OHashMixIn
 
 
 class OHash < Hash
@@ -174,7 +169,7 @@ class OHash < Hash
 
   alias :unordered_keys :keys
 
-  include OrderedHash
+  include OHashMixIn
 
   def initialize ( *a )
     @order = unordered_keys
@@ -193,7 +188,7 @@ class OHash < Hash
     hsh
   end
   
-  have YamlExtension, :ordered_hash, :ohash, :o_hash
+  have YamlExtension, :ohash, :o_hash
 
   def self.yaml_load ( val )
     case val
@@ -253,7 +248,7 @@ test_section __FILE__ do
     end
 
     def test_preserve
-      # or using OrderedHash[] method
+      # or using OHash[] method
       hsh = OHash['z', 1, 'a', 2, 'c', 3] 
       hsh2 = OHash['a', 2, 'z', 1, 'c', 3] 
       assert_equal(hsh.keys, ['z','a','c'])

data/lib/probability_distributions/gaussian_distribution.rb

@@ -0,0 +1,34 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/probability_distributions/gaussian_distribution.rb 53898 2007-01-13T11:21:16.132465Z ertai  $
+
+module ProbabilityDistributions
+
+  class GaussianDistribution < ProbabilityDistribution
+
+    def initialize ( average, variability, uniform_distribution=nil )
+      raise unless uniform_distribution.is_a? UniformDistribution
+      @uniform_distribution = uniform_distribution
+    end
+
+    def box_muller_conversion
+      yA, yB = sqrt(-2 * log(@x1)), 2 * PI * @x2
+      @y1 = yA * cos(yB)
+      @y2 = yA * sin(yB)
+    end
+
+    def choose
+      if @y2.nil?
+        @x1, @x2 = @uniform_distribution.choose, @uniform_distribution.choose
+        box_muller_conversion
+        return @y1
+      end
+      res = @y2
+      @y2 = nil
+      return res
+    end
+
+  end # class GaussianDistribution
+
+end # module ProbabilityDistributions

data/lib/probability_distributions/probability_distribution.rb

@@ -0,0 +1,16 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/probability_distributions/probability_distribution.rb 53906 2007-01-13T16:15:34.543400Z ertai  $
+
+module ProbabilityDistributions
+
+  class ProbabilityDistribution
+    mixin Abstract
+
+    def choose
+    end
+
+  end # class ProbabilityDistribution
+
+end # module ProbabilityDistributions

data/lib/probability_distributions/uniform_distribution.rb

@@ -0,0 +1,12 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/probability_distributions/uniform_distribution.rb 53906 2007-01-13T16:15:34.543400Z ertai  $
+
+module ProbabilityDistributions
+
+  class UniformDistribution < ProbabilityDistribution
+    mixin Abstract
+  end # class UniformDistribution
+
+end # module ProbabilityDistributions

data/lib/random_generators.rb

@@ -1,9 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/random_generators.rb 8050 2005-12-31T16:04:24.515191Z ertai  $
-
-silence_warnings { require 'active_support/module_attribute_accessors' }
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/random_generators.rb 24387 2006-07-09T17:07:20.668761Z ertai  $
 
 module RandomGenerators
 

data/lib/ruby_ex.rb

@@ -1,7 +1,7 @@
 # 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/ruby_ex.rb 22445 2006-03-11T15:56:04.480135Z pouillar  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/ruby_ex.rb 53944 2007-01-14T12:13:14.937281Z ertai  $
 
 require 'pathname'
 
@@ -48,7 +48,7 @@ module RubyEx
     end
   end
   require 'uri'
-  suppress(LoadError) { core_ex_require 'highline' }
+  core_ex_require 'highline'
   $LOADED_FEATURES << 'ruby_ex.rb' << 'uri.rb'
   Dependencies.loaded << 'ruby_ex' << 'uri'
 
@@ -57,10 +57,10 @@ module RubyEx
     i.fixed_cases 'URI', 'DRuby', 'MySQL', 'PgSQL', 'FTP', 'HTTP', 'DRb'
   end
 
-  VersionId = ::Version.parse("dev-ruby/ruby_ex-0.4_p2")
+  VersionId = ::Version.parse("dev-ruby/ruby_ex-0.5")
 
   dir.load_path!
-  (dir + 'module').load_path!
+  (dir + 'module_extensions').load_path!
 
   URI::HttpEx.import!
   URI::FtpEx.import!

data/lib/sendmail.rb

@@ -6,7 +6,7 @@
 
 require 'ostruct'
 require 'optparse'
-Yaml::ChopHeader.import!
+YamlExtensions::ChopHeader.import!
 
 
 class Sendmail
@@ -83,7 +83,7 @@ class Sendmail
 	exit
       end
     end.parse!(string_args)
-    options.header[:To] ||= options.to.join(', ')
+    options.header[:To] = (options.header[:To] || options.to).join(', ')
     from = options.header[:From] || options.from
     if from.to_s =~ /<(.*)>/
       options.header[:From] = from
@@ -122,6 +122,9 @@ class Sendmail
     opts.header.symbolize_keys!
     server, port = opts.server.split(/:/)
     port ||= 25
+    to = opts.header[:To]
+    to = to.join(', ') if to.is_a? Array
+    STDERR.puts "To: #{to.inspect}"
     STDERR.puts "Smtp Server: #{server}"
 
     #
@@ -131,7 +134,7 @@ class Sendmail
       raise 'HighLine is unavailable' unless defined? HighLine
       question = %Q[
         |Send a mail, with this subject: #{opts.header[:Subject]}
-        |  to #{opts.header[:To]}
+        |  to #{to}
         |  from #{opts.header[:From]}
         |  #{(opts.signed)? 'signed by ' + opts.from : 'not signed !'}
         |Are you sure? (y/n)].head_cut!
@@ -142,7 +145,7 @@ class Sendmail
     Net::SMTP.start(server, port) do |smtp|
       smtp.open_message_stream(opts.from, opts.to) do |f|
         f.print "From: #{opts.header[:From]}\n"
-        f.print "To: #{opts.header[:To]}\n"
+        f.print "To: #{to}\n"
         f.print "Subject: #{opts.header[:Subject]}\n"
         opts.header.each do |k, v|
           next if [:From, :To, :Subject].include? k

data/lib/sym_tbl_gsub.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   Ruby License
-# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/sym_tbl_gsub.rb 22444 2006-03-11T15:54:37.116683Z pouillar  $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/lib/sym_tbl_gsub.rb 24385 2006-07-09T17:01:58.280788Z ertai  $
 
 module SymTblGsub
 
@@ -60,25 +60,29 @@ class Object
   end
 
   def symtbl_to_s
-    to_s
+    to_json
   end
 
 end # class Object
 
 
 
-module PrettyInspect
-  def symtbl_to_s
-    inspect
-  end
-end # module PrettyInspect
-
-
-
 class Hash
-  have PrettyInspect
 
-  def symtbl_gsub ( symtbl )
+  def symtbl_gsub! symtbl
+    res = inject nil do |accu, k, v|
+      new_k = k.symtbl_gsub! symtbl
+      new_v = v.symtbl_gsub! symtbl
+      if new_k
+        delete k
+        self[new_k] = v
+      end
+      accu || new_k || new_v
+    end
+    (res.nil?)? nil : self
+  end
+
+  def symtbl_gsub symtbl
     changed = false
     res = self.class.new
     each do |k,v|
@@ -95,9 +99,13 @@ end # class Hash
 
 
 class Array
-  have PrettyInspect
 
-  def symtbl_gsub ( symtbl )
+  def symtbl_gsub! symtbl
+    res = inject(nil) { |accu, x| x.symtbl_gsub!(symtbl) || accu }
+    (res.nil?)? nil : self
+  end
+
+  def symtbl_gsub symtbl
     changed = false
     res = self.class.new
     each do |e|
@@ -141,9 +149,19 @@ class Pathname
 end # class Pathname
 
 
+module ActiveSupport #:nodoc:
+  module JSON #:nodoc:
+    module Encoders #:nodoc:
+      define_encoder Pathname do |path|
+        path.to_s  # FIXME .to_json
+      end
+    end
+  end
+end
+
+
 
 class Regexp
-  have PrettyInspect
 
   def symtbl_gsub ( symtbl )
     res = source.symtbl_gsub(symtbl)
@@ -171,6 +189,10 @@ end # class Symbol
 
 class String
 
+  def symtbl_to_s
+    self
+  end
+
   def symtbl_gsub ( symtbl )
     return nil unless self =~ /<<.*>>/
     dup.symtbl_gsub! symtbl
@@ -196,6 +218,15 @@ class String
 end # class String
 
 
+class Symbol
+
+  def symtbl_to_s
+    to_s
+  end
+
+end # class Symbol
+
+
 PathList.class_eval do
   attr_accessor :symtbl
 
@@ -242,12 +273,12 @@ class File
     end
     result
   end
-  
+
   def symtbl_gsub ( symtbl )
     contents = read
     contents.symtbl_gsub! symtbl
   end
-  
+
 end # class File