ruby_ex 0.2.0 → 0.3.0

data/lib/hookable.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: hookable.rb 343 2005-09-08 01:32:57Z ertai $
+# Revision::  $Id: hookable.rb 364 2005-09-24 17:18:48Z ertai $
 
 require 'hooker'
 
@@ -28,6 +28,8 @@ module Hookable
 
 
       def hook_trigger ( name, *args )
+        return if defined? @disabled_hooks and @disabled_hooks.include? name
+        return if defined? @@disabled_hooks and @@disabled_hooks.include? name
         self.class.hook_trigger(name, *args)
         return unless defined? @hookers
         @hookers.each do |hooker|
@@ -38,6 +40,7 @@ module Hookable
 
       def self.hook_trigger ( name, *args )
         raise ArgumentError, "Unknown hook #{name}" unless hooks.include? name
+        return if defined? @@disabled_hooks and @@disabled_hooks.include? name
         hookers.each do |hooker|
           @@hook_trigger_internal[hooker, name, *args]
         end
@@ -65,6 +68,18 @@ module Hookable
       end
 
 
+      def disable_hook ( *hook_names )
+        @disabled_hooks ||= []
+        @disabled_hooks = @disabled_hooks + hook_names
+      end
+
+
+      def self.disable_hook ( *hook_names )
+        @@disabled_hooks ||= []
+        @@disabled_hooks = @@disabled_hooks + hook_names
+      end
+
+
       def self.hook_declare ( name, *groups )
         hooks << name
       end
@@ -95,7 +110,7 @@ module Hookable
     end
   end
 
-  
+
   class HashWithRecursiveCloneDup < Hash
 
     def initialize_copy ( aHash )

data/lib/md5sum.rb

@@ -3,7 +3,7 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: md5sum.rb 339 2005-09-06 23:27:27Z ertai $
+# $Id: md5sum.rb 376 2005-09-29 21:46:32Z ertai $
 
 
 require 'md5'
@@ -50,7 +50,7 @@ test_section __FILE__ do
 class MD5SumTest < Test::Unit::TestCase
 
   def setup
-    @source = __FILE__.to_path.dirname.parent + 'test/resources/foo.txt'
+    @source = __FILE__.to_path.dirname.parent + 'test/fixtures/foo.txt'
     @ref = '9508b4f53cff19cf42c5a0f0fc127602'
   end
 

data/lib/module/autoload_tree.rb

@@ -1,7 +1,7 @@
 # Copyright:: Copyright (c) 2004  Nicolas Despres. All rights reserved.
 # Author::    Nicolas Despres  <polrop@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: autoload_tree.rb 339 2005-09-06 23:27:27Z ertai $
+# Revision::  $Id: autoload_tree.rb 376 2005-09-29 21:46:32Z ertai $
 
 
 module AutoloadTree
@@ -42,7 +42,7 @@ module AutoloadTree
 
     class AutoloadTreeTest < Test::Unit::TestCase
 
-      REPO_DIR = __FILE__.to_path.dirname.parent.parent + 'test/resources/autoload_tree'
+      REPO_DIR = __FILE__.to_path.dirname.parent.parent + 'test/fixtures/autoload_tree'
 
       module AutoloadTree; end
 

data/lib/ordered_hash.rb

@@ -18,7 +18,7 @@
 #
 
 # $LastChangedBy: ertai $
-# $Id: ordered_hash.rb 339 2005-09-06 23:27:27Z ertai $
+# $Id: ordered_hash.rb 367 2005-09-24 19:53:40Z ertai $
 
 
 module OrderedHash
@@ -193,6 +193,27 @@ class OHash < Hash
     hsh
   end
   
+  have YamlExtension, :ordered_hash, :ohash, :o_hash
+
+  def self.yaml_load ( val )
+    case val
+    when Hash
+      return OHash[val.to_a]
+    when OHash
+      return val
+    when Array
+      if val.all? { |x| x.is_a?(Hash) and x.size == 1 }
+        h = OHash.new
+        val.each do |x|
+          k, v = x
+          h[k] = v
+        end
+        return h
+      end
+    end
+    raise ArgumentError, "Cannot create a OHash with `#{val}'"
+  end
+
 end # class OHash
 
 
@@ -283,6 +304,12 @@ test_section __FILE__ do
       assert_not_equal OHash[1,2,3,4], OHash[3,4,1,2]
     end
     
+    def test_yaml_load ( aString, aClass, anObject=nil )
+    end
+
+    def test_yaml_dump ( anObject, ref, options={} )
+    end
+
   end # OrderedHashTest
 
 end

data/lib/regex_list.rb

@@ -0,0 +1,192 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: regex_list.rb 379 2005-09-29 22:00:37Z ertai $
+
+class RegexList
+
+  def initialize ( *args )
+    @regexps = args.flatten
+    @regexps.map! { |re| (re.is_a? Regexp)? re : Regexp.new(re) }
+    @regexps.reverse!
+    @scores = {}
+  end
+
+  if ENV['REGEXP_LIST_DEBUG']
+
+    @@h = HighLine.new
+
+    def score ( aString )
+      if @scores.has_key? aString
+        result = @scores[aString]
+        action = '<%= color "Hit ", :green %>'
+      else
+        result = score_without_cache(aString)
+        action = '<%= color "Miss", :red %>'
+        @scores[aString] = result
+      end
+      @@h.say "#{action}: #{aString} -> #{result.inspect}"
+      result
+    end
+
+  else
+
+    # Perform a cache over +score_without_cache+
+    def score ( aString )
+      return @scores[aString] if @scores.has_key? aString
+      return @scores[aString] = score_without_cache(aString)
+    end
+
+  end
+
+  # Score represent a weighted sum of the match result with each regexp.
+  #
+  # 0: Not matched at all
+  # 1: Just the last regexp matches (the Nth regexp)
+  # 2: Just the (N - 1)th matches
+  # 3: The Nth and the (N - 1)th
+  # 2^(N - 1): Just the first one matches
+  #
+  # Formula:
+  #   U(i <- 0 .. N - 1) is a vector with 1 when it matches and 0 otherwise
+  #   Score = U(N - 1) * 2^(N - 1) + U(N - 2) * 2^(N - 2) + ... + U(0) * 2^0
+  def score_without_cache ( aString )
+    result = 0
+    @regexps.each_with_index do |re, i|
+      result += 2 ** i if aString =~ re
+    end
+    return result
+  end
+
+  def [] ( score )
+    @regexps[score]
+  end
+
+
+  module Assertions
+    attr_accessor :regex_list
+    def assert_regex_list_score ( input, ref, cache=true )
+      if cache
+        assert_equal ref, @regex_list.score(input)
+      else
+        assert_equal ref, @regex_list.score_without_cache(input)
+      end
+    end
+  end # module Assertions
+
+
+  # PathList Extension which gives sorting/filtering features to PathList
+  module PathListExtension
+
+    def sort_with_regex_list! ( regex_list )
+      sort! { |x, y| regex_list.score(y.to_s) <=> regex_list.score(x.to_s) }
+    end
+
+    def grep_with_regex_list! ( regex_list )
+      reject! { |x| regex_list.score(x.to_s).zero? }
+      sort_with_regex_list! regex_list
+    end
+
+    def grep_with_negative_regex_list! ( regex_list )
+      sort_with_regex_list! regex_list
+      reverse!
+    end
+
+    def exclude_with_regex_list! ( regex_list )
+      reject! { |x| not regex_list.score(x.to_s).zero? }
+      self
+    end
+
+    def self.dup_based_method ( meth )
+      define_method(meth) { |regex_list| dup.send(meth.to_s + '!', regex_list) }
+    end
+
+    dup_based_method :sort_with_regex_list
+    dup_based_method :grep_with_regex_list
+    dup_based_method :grep_with_negative_regex_list
+    dup_based_method :exclude_with_regex_list
+
+    module Assertions
+      attr_reader :path_list
+
+      RegexList::PathListExtension.instance_methods.each do |meth|
+        define_method('assert_' + meth.to_s) do |ref, input|
+          input = RegexList.new(input) unless input.is_a? RegexList
+          ref = PathList.new(ref) unless ref.is_a? PathList
+          assert_nothing_raised { @result = @path_list.send(meth, input) }
+          assert_kind_of(PathList, @result)
+          assert_equal(ref.stringify, @result.stringify)
+        end
+      end
+
+    end # module Assertions
+
+  end # module PathListExtension
+
+end # class RegexList
+
+PathList.import!
+class PathList
+  include RegexList::PathListExtension
+end
+
+
+test_section __FILE__ do
+
+  class TestRegexList < ::Test::Unit::TestCase
+    include RegexList::Assertions
+
+    def setup
+      assert_nothing_raised do
+        @regex_list = RegexList.new %w[ a/abc b/foo fg kb c/a a/bar f ]
+      end
+    end
+
+    def teardown
+    end
+
+    def test_0_initialize
+    end
+
+    def test_score_without_cache
+      assert_regex_list_score 'a', 0
+      assert_regex_list_score 'a/abc', 64
+      assert_regex_list_score 'kb', 8
+      assert_regex_list_score 'f', 1
+      assert_regex_list_score 'a/abc/fg', 81
+      assert_regex_list_score 'kb/foo', 41
+      assert_regex_list_score 'a/abc b/foo fg kb c/a a/bar f', 127
+      assert_regex_list_score 'a/abca/abca/abca/abc', 64
+    end
+
+  end # class TestRegexList
+
+
+  class TestPathListRegexListExtension < ::Test::Unit::TestCase
+    include RegexList::PathListExtension::Assertions
+
+    def setup
+      @path_list = PathList.new %w[ a a/b a/c a/bc b/foo fg kb c/a a/bar f ]
+    end
+
+    def test_sort_with_regex_list
+      assert_sort_with_regex_list(%w[ f b/foo fg a/bc a/c a/b kb c/a a/bar a ], %w[ f ])
+    end
+
+    def test_grep_with_regex_list
+      assert_grep_with_regex_list(%w[ b/foo fg f ], %w[ f ])
+      assert_grep_with_regex_list(%w[ a/b a/bc b/foo kb a/bar ], %w[ b ])
+      assert_grep_with_regex_list(%w[ b/foo a/b a/bc a/bar kb fg f ], %w[ b f ])
+    end
+
+    def test_grep_with_negative_regex_list
+      assert_grep_with_negative_regex_list(%w[f a/bar a/b kb a b/foo fg a/bc c/a a/c ], %w[ c ])
+    end
+
+    def test_exclude_with_regex_list
+      assert_exclude_with_regex_list(%w[ a a/b a/c a/bc kb c/a a/bar ], %w[ f ])
+    end
+
+  end # class TestPathListRegexListExtension
+
+end

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: ruby_ex.rb 359 2005-09-16 10:05:22Z ertai $
+# Revision::  $Id: ruby_ex.rb 385 2005-10-02 17:05:35Z ertai $
 
 require 'pathname'
 
@@ -35,13 +35,16 @@ module RubyEx
 
 
   unless defined? CoreEx
-    file = Pathname.glob("#{dir}/../{core_ex/lib/core_ex,vendor/core_ex*/lib/core_ex}").first
-    if file.nil?
+    vendor = dir.parent + 'vendor'
+    $CORE_EX_VENDORS ||= []
+    $CORE_EX_VENDORS << vendor
+    file = vendor + 'core_ex' + 'lib' + 'core_ex'
+    if file.exist?
+      require file.to_s
+    else
       require 'rubygems'
       require_gem 'core_ex'
       require 'core_ex'
-    else
-      require file
     end
   end
   suppress(LoadError) { core_ex_require 'highline' }

data/lib/sendmail.rb

@@ -23,6 +23,7 @@ class Sendmail
       :from => email,
       :to => [],
       :server => ENV['SMTPSERVER'] || 'localhost:25',
+      :header => {},
       :body => STDIN
     )
     string_args, hash_args = args.partition { |x| x.is_a?(String) }
@@ -59,6 +60,9 @@ class Sendmail
       opts.on('--comment STRING', 'Choose a comment for GPG') do |aComment|
         options.comment = aComment
       end
+      opts.on('--header STRING', 'Add some header fields (Yaml syntax)') do |s|
+        options.header = YAML.load(s)
+      end
       opts.on('-m', '--[no-]mime', 'Choose the mime protocole') do |mime|
         options.mime = mime
       end
@@ -107,7 +111,7 @@ class Sendmail
         |Send a mail, with this subject: #{opts.subject}
         |  to #{opts.to.join(', ')}
         |  from #{opts.from_name}
-        |  #{(opts.signed.nil?)? 'not signed !' : 'signed by ' + opts.from}
+        |  #{(opts.signed)? 'signed by ' + opts.from : 'not signed !'}
         |Are you sure? (y/n)].head_cut!
       raise 'Aborting' unless HighLine.new.agree question, true
     end
@@ -118,6 +122,9 @@ class Sendmail
         f.print %Q[From: #{opts.from_name}
                   |Subject: #{opts.subject}
                   |To: #{opts.to.join(', ')}\n].head_cut!
+        opts.header.each do |k, v|
+          f.puts "#{k}: #{v}"
+        end
         if opts.signed
           TempPath.new do |mail_body|
             mail_body.open('w') do |out|

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: sym_tbl_gsub.rb 339 2005-09-06 23:27:27Z ertai $
+# Revision::  $Id: sym_tbl_gsub.rb 376 2005-09-29 21:46:32Z ertai $
 
 require 'sym_tbl'
 
@@ -139,18 +139,30 @@ end # class String
 
 PathList.import!
 class PathList
-
-  alias add_matching_without_expand add_matching
-  def add_matching(pattern)
-    pattern = @expand[pattern] if defined? @expand and @expand
+  attr_accessor :symtbl
+
+  alias_method :add_matching_without_expand, :add_matching
+  def add_matching (pattern )
+    @pending_reject ||= []
+    if defined? @symtbl and @symtbl
+      pattern = pattern.do_symtbl_gsub(@symtbl)
+    else
+      if pattern.to_s =~ /<<.*>>/ and not @pending_reject.include? pattern
+        @pending_reject << pattern
+        return
+      end
+    end
     add_matching_without_expand pattern
   end
   protected :add_matching
 
   def symtbl_gsub! ( symtbl )
-    @expand = lambda { |pattern| pattern.do_symtbl_gsub(symtbl) }
+    @pending_add += @pending_reject if defined? @pending_reject
+    @pending_reject = []
+    @pending = ! @pending_add.empty?
+    @symtbl = symtbl
     map! { |path| path.do_symtbl_gsub(symtbl) }
-    @expand = nil
+    @symtbl = nil
     self
   end
 
@@ -168,12 +180,13 @@ module SymTblGsub
     class SymTblGsubTest < Test::Unit::TestCase
       def setup
         @s = SymTbl.new(
-          :foo => :bar,
-          :bar => [1, 2],
-            3   => 'foo',
-          :i   => '<<j>>',
-          :j   => '<<3>>',
-          :pwd => __FILE__.to_path.dirname.to_s
+          :foo  => :bar,
+          :bar  => [1, 2],
+           3    => 'foo',
+          :i    => '<<j>>',
+          :j    => '<<3>>',
+          :pwd  => __FILE__.to_path.dirname.to_s,
+          :test => '<<pwd>>/../test'
         )
       end
       def assert_symtbl ( my, ref=nil )
@@ -213,15 +226,28 @@ module SymTblGsub
       end
       def test_pathlist
         pathlist = ['<<foo>>', '<<i>>'.to_path]
-        ls1 = '<<bing>>/../test'.to_path + 'resources/autoload_tree/*.rb'
-        ls2 = '<<pwd>>/../test'.to_path + 'resources/autoload_tree/*.rb'
-        pathlist << ls2 << ls1
+        ls1 = '<<bing>>/../test'.to_path + 'fixtures/autoload_tree/*.rb'
+        ls2 = '<<pwd>>/../test'.to_path + 'fixtures/autoload_tree/*.rb'
+        ls3 = '<<test>>'.to_path + 'fixtures/foo.{tar*,bz*}'
+        pathlist << ls2 << ls1 << ls3
         my = PathList[pathlist].symtbl_gsub(@s).map! { |x| x.basename }
         my.all? { |x| assert_kind_of(Pathname, x) }
-        ref = %w[ bar foo A.rb B.rb ]
+        ref = %w[ bar foo A.rb B.rb foo.bz2 foo.tar foo.tar.bz2 foo.tar.gz ]
+        assert_equal ref.to_set, my.map!{ |x| x.to_s }.to_set
+      end
+      def test_pathlist_keep_pending
+        pathlist = ['<<foo>>', '<<i>>'.to_path]
+        pathlist << '<<bing>>/../test'.to_path + 'fixtures/autoload_tree/*.rb'
+        pathlist << '<<pwd>>/../test'.to_path + 'fixtures/autoload_tree/*.rb'
+        pathlist << '<<test>>'.to_path + 'fixtures/foo.{tar*,bz*}'
+        pathlist = PathList[pathlist]
+        assert_equal(['<<foo>>'.to_path, '<<i>>'.to_path], pathlist)
+        my = pathlist.symtbl_gsub(@s).map! { |x| x.basename }
+        my.all? { |x| assert_kind_of(Pathname, x) }
+        ref = %w[ bar foo A.rb B.rb foo.bz2 foo.tar foo.tar.bz2 foo.tar.gz ]
         assert_equal ref.to_set, my.map!{ |x| x.to_s }.to_set
       end
     end # class SymTblGsubTest
   end
 
-end # module SymTblGsub
+end # module SymTblGsub