ruby_ex 0.1.2 → 0.2.0

data/lib/generate_id.rb

@@ -1,15 +1,14 @@
 # Copyright:: Copyright (c) 2004  Nicolas Despres. All rights reserved.
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: generate_id.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: generate_id.rb 341 2005-09-07 00:01:43Z ertai $
 
 
-require 'ruby_ex'
 require 'md5'
 
-module Kernel
+class GenerateId
 
-  def generate_id(&already_exist)
+  def initialize ( &already_exist )
     md5 = Digest::MD5::new
     id = ''
     begin
@@ -23,8 +22,15 @@ module Kernel
     id
   end
 
-end # module Kernel
+end # class GenerateId
+
+module Kernel
 
+  def generate_id ( &already_exist )
+    GenerateId.new(&already_exist)
+  end
+
+end # module Kernel
 
 
 test_section __FILE__ do
@@ -34,7 +40,7 @@ test_section __FILE__ do
       100.times { tab << generate_id }
       assert_equal(tab.size, tab.uniq.size)
     end
-    def test_simple
+    def test_complex
       tab = []
       bool = true
       100.times { tab << generate_id { bool = !bool ; bool } }

data/lib/genpasswd.rb

@@ -0,0 +1,22 @@
+# Copyright:: Copyright (c) 2004, 2005  Nicolas Despres. All rights reserved.
+# Author::    Nicolas Despr�s  <nicolas.despres@gmail.com>.
+# License::   Gnu General Public License.
+# Revision::  $Id: genpasswd.rb 339 2005-09-06 23:27:27Z ertai $
+
+require 'choose'
+
+class Genpasswd
+
+  def initialize ( length=8 )
+    str = new
+    length.times do
+      str << ('!'..'~').choose
+    end
+    str
+  end
+
+end # class Genpasswd
+
+def String.genpasswd(length=8)
+  Genpasswd.new(length)
+end

data/lib/hash_eval.rb

@@ -0,0 +1,83 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despr�s  <nicolas.despres@gmail.com>.
+# License: Gnu General Public License.
+# $Id: hash_eval.rb 339 2005-09-06 23:27:27Z ertai $
+
+
+class HashEval
+
+  def initialize(hash={}, &block)
+    @hash = hash
+    if block_given?
+      if block.arity == -1
+        instance_eval(&block)
+      else
+        block[self]
+      end
+    end
+  end
+
+  attr_reader :hash
+
+  def method_missing(meth, *args, &block)
+    args << self.class.new(&block).hash if block_given?
+    if args.size == 1
+      @hash[meth] = args.first
+    else
+      @hash[meth] = args
+    end
+  end
+
+end # class HashEval
+
+
+test_section __FILE__ do
+
+class HashEvalTest < Test::Unit::TestCase
+
+  def test_block_without_arg
+    hash_eval = HashEval.new do
+      k1 'v1'
+      k2 do
+        k1 'v1'
+      end
+      k3 'v3' do
+        k1 'v4'
+      end
+      k4 'v5', 'v6'
+      k5 do
+        k1 'v1'
+        k2 do
+          k1 'v1'
+        end
+      end
+      @hash[:k6] = 'v10'
+    end
+    assert_equal 'v1', hash_eval.hash[:k1]
+    assert_equal({ :k1 => 'v1'}, hash_eval.hash[:k2])
+    assert_equal [ 'v3', {:k1 => 'v4'} ], hash_eval.hash[:k3]
+    assert_equal [ 'v5', 'v6' ], hash_eval.hash[:k4]
+    assert_equal({:k1=>"v1", :k2=>{:k1=>"v1"}}, hash_eval.hash[:k5])
+    assert_equal 'v10', hash_eval.hash[:k6]
+  end
+
+  def test_block_arg
+    hash_eval = HashEval.new do |h|
+      h.k1 'v1'
+      assert self.class != HashEval
+    end
+    assert_equal 'v1', hash_eval.hash[:k1]
+  end
+
+  def test_no_block
+    hash_eval = HashEval.new
+    hash_eval[:k1] = 'v1'
+    hash_eval.hash[:k2] = 'v2'
+    assert_equal [:k1, 'v1'], hash_eval.hash[:[]=]
+    assert_equal 'v2', hash_eval.hash[:k2]
+  end
+
+end # end HashEvalTest
+
+end # end test_section
+

data/lib/histogram.rb

@@ -1,9 +1,8 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: histogram.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: histogram.rb 339 2005-09-06 23:27:27Z ertai $
 
-require 'ruby_ex'
 
 class Histogram
 

data/lib/hookable.rb

@@ -1,9 +1,8 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: hookable.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: hookable.rb 343 2005-09-08 01:32:57Z ertai $
 
-require 'ruby_ex'
 require 'hooker'
 
 
@@ -132,7 +131,7 @@ test_section __FILE__ do
       end
 
       def reset
-        @stack.clear if @stack
+        @stack.clear if defined? @stack and @stack
       end
     end
 
@@ -158,7 +157,7 @@ test_section __FILE__ do
 
       def run2
         hook_trigger :hook2, 42
-        hook_trigger :hook3 rescue nil
+        suppress(ArgumentError) { hook_trigger :hook3 }
       end
 
       def << ( hooker )

data/lib/hooker.rb

@@ -1,10 +1,8 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: hooker.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: hooker.rb 339 2005-09-06 23:27:27Z ertai $
 
-require 'rubygems'
-require_gem 'activesupport'
 require 'active_support/class_inheritable_attributes'
 
 

data/lib/html_encode.rb

@@ -0,0 +1,191 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: html_encode.rb 339 2005-09-06 23:27:27Z ertai $
+
+module HtmlEncode
+
+  class RegexpHashUnion
+    attr_reader :regexp
+
+    def initialize ( aHash )
+      @hash = aHash
+      @regexp = Regexp.compile(@hash.keys.map { |re| re.source }.join('|'))
+    end
+
+    def gsub! ( anObject )
+      @hash.each { |re, str| anObject.gsub!(re, str) }
+      self
+    end
+
+    def =~ ( arg )
+      @regexp =~ arg
+    end
+
+  end # class RegexpHashUnion
+
+
+  @@html_encode_basic = RegexpHashUnion.new(
+    /\"/ => '&quot;',
+    /</ => '&lt;',
+    />/ => '&gt;',
+    /~/ => '&not;'
+  )
+
+  @@html_encode_medium = RegexpHashUnion.new(
+    /�/ => '&ccedil;',
+    /�/ => '&egrave;',
+    /�/ => '&eacute;',
+    /�/ => '&ecirc;',
+    /�/ => '&euml;',
+    /�/ => '&aacute;',
+    /�/ => '&acirc;',
+    /�/ => '&ocirc;',
+    /�/ => '&Eacute;',
+    /�/ => '&Ecirc;',
+    /�/ => '&Euml;',
+    /�/ => '&agrave;',
+    /�/ => '&icirc;',
+    /�/ => '&iuml;',
+    /�/ => '&ugrave;',
+    /�/ => '&uacute;',
+    /�/ => '&ucirc;',
+    /�/ => '&uuml;'
+  )
+
+  @@html_encode_advanced = RegexpHashUnion.new(
+    /�/ => '&iexcl;',
+    /�/ => '&cent;',
+    /�/ => '&pound;',
+    /�/ => '&curren;',
+    /�/ => '&yen;',
+    /�/ => '&brvbar;',
+    /�/ => '&sect;',
+    /�/ => '&uml;',
+    /�/ => '&copy;',
+    /�/ => '&ordf;',
+    /\�/ => '&laquo;',
+    /�/ => '&shy;',
+    /�/ => '&reg;',
+    /�/ => '&deg;',
+    /�/ => '&plusmn;',
+    /�/ => '&sup2;',
+    /�/ => '&sup3;',
+    /�/ => '&acute;',
+    /�/ => '&micro;',
+    /�/ => '&para;',
+    /�/ => '&middot;',
+    /�/ => '&cedil;',
+    /�/ => '&sup1;',
+    /�/ => '&ordm;',
+    /\�/ => '&raquo;',
+    /�/ => '&iquest;',
+    /�/ => '&Agrave;',
+    /�/ => '&Aacute;',
+    /�/ => '&Acirc;',
+    /�/ => '&Atilde;',
+    /�/ => '&Auml;',
+    /�/ => '&Aring;',
+    /�/ => '&AElig;',
+    /�/ => '&Ccedil;',
+    /�/ => '&Egrave;',
+    /�/ => '&Igrave;',
+    /�/ => '&Iacute;',
+    /�/ => '&Icirc;',
+    /�/ => '&Iuml;',
+    /�/ => '&Dstrok;',
+    /�/ => '&Ntilde;',
+    /�/ => '&Ograve;',
+    /�/ => '&Oacute;',
+    /�/ => '&Ocirc;',
+    /�/ => '&Otilde;',
+    /�/ => '&Ouml;',
+    /�/ => '&times;',
+    /�/ => '&Oslash;',
+    /�/ => '&Ugrave;',
+    /�/ => '&Uacute;',
+    /�/ => '&Ucirc;',
+    /�/ => '&Uuml;',
+    /�/ => '&Yacute;',
+    /�/ => '&THORN;',
+    /�/ => '&szlig;',
+    /�/ => '&atilde;',
+    /�/ => '&auml;',
+    /�/ => '&aring;',
+    /�/ => '&aelig;',
+    /�/ => '&eth;',
+    /�/ => '&ntilde;',
+    /�/ => '&ograve;',
+    /�/ => '&oacute;',
+    /�/ => '&otilde;',
+    /�/ => '&ouml;',
+    /�/ => '&divide;',
+    /�/ => '&oslash;',
+    /�/ => '&igrave;',
+    /�/ => '&iacute;',
+    /�/ => '&yacute;',
+    /�/ => '&thorn;',
+    /�/ => '&yuml;'
+  )
+
+  def html_encode!
+    gsub!(/&/, '&amp;')
+    @@html_encode_basic.gsub!(self)
+    self
+  end
+
+  def html_encode_latin1_accents!
+    @@html_encode_medium.gsub!(self) if @@html_encode_medium =~ self
+    @@html_encode_advanced.gsub!(self) if @@html_encode_advanced =~ self
+    self
+  end
+
+  def html_encode_latin1!
+    html_encode!
+    html_encode_latin1_accents!
+  end
+
+  def html_encode
+    dup.html_encode!
+  end
+
+  def html_encode_latin1_accents
+    dup.html_encode_latin1_accents!
+  end
+
+  def html_encode_latin1
+    dup.html_encode_latin1!
+  end
+
+end # module HtmlEncode
+
+class String
+  include HtmlEncode unless include? HtmlEncode
+end # class String
+
+test_section __FILE__ do
+
+  class TestHtmlEncode < ::Test::Unit::TestCase
+
+    def setup
+      @str = '<fo"o>b�a�r'
+    end
+
+    def teardown
+    end
+
+    def test_html_encode
+      assert_equal "&lt;fo&quot;o&gt;b�a�r", @str.html_encode
+    end
+
+    def test_html_encode_latin1_accents
+      assert_equal '<fo"o>b&eacute;a&Ocirc;r', @str.html_encode_latin1_accents
+    end
+
+    def test_html_encode_latin1
+      assert_equal '&lt;fo&quot;o&gt;b&eacute;a&Ocirc;r', @str.html_encode_latin1
+    end
+
+  end # class TestHtmlEncode
+
+end

data/lib/indexed_node.rb

@@ -6,7 +6,6 @@
 # $Id: node.rb 171 2005-03-29 09:12:47Z polrop $
 
 
-require 'ruby_ex'
 require 'abstract_node'
 
 

data/lib/io_marshal.rb

@@ -3,10 +3,12 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: io_marshal.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: io_marshal.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
+
+module IoMarshal
+end # module IoMarshal
 
 class IO
 

data/lib/ioo.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: ioo.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: ioo.rb 339 2005-09-06 23:27:27Z ertai $
 
 require 'delegate'
-require 'ruby_ex'
 
 # With this class you can easily overwrite only write or read methods
 # to change the whole IO.
@@ -126,6 +125,8 @@ class IOO < DelegateClass(IO)
   include ImplIOO
 end # class IOO
 
+Ioo = IOO
+
 require 'socket'
 class TCPSocket
   alias :real_send :send

data/lib/kill_all.rb

@@ -0,0 +1,46 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: kill_all.rb 339 2005-09-06 23:27:27Z ertai $
+
+require 'commands'
+
+class KillAll
+
+  attr_accessor :signal
+  attr_accessor :regexp
+
+  PS = 'ps'.to_cmd
+
+  def initialize ( aSignal='KILL' )
+    @signal = aSignal
+    @pids = []
+  end
+
+  def call ( aRegexp )
+    data = PS['a'].system
+    data.output.open do |ps|
+      ps.readline
+      ps.each do |line|
+        if line =~ /^\s*(\d+)(?:\s+\S+){3}\s+(.*)$/
+          pid, name = $1.to_i, $2
+          if name =~ aRegexp and pid != $$
+            @pids << pid
+            begin
+              Process.kill(@signal, pid)
+            rescue
+              raise RuntimeError, "Cannot kill #{name}:#{pid}"
+            end
+          end
+        else
+          raise RuntimeError, "bad ps output (#{line})"
+        end
+      end
+    end
+  end
+
+  alias :[] :call
+
+end # class KillAll
+
+KillAll.new[Regexp.new(ARGV[0])] if $0 == __FILE__