vcs 0.1 → 0.2.148

data/ruby_ex/fileutils_ex.rb

@@ -0,0 +1,44 @@
+# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: fileutils_ex.rb 159 2005-02-18 12:07:23Z polrop $
+
+require 'fileutils'
+
+module FileUtils
+
+  alias remove_dir_without_chmod remove_dir
+
+  def remove_dir (dir, force = false) #:nodoc:
+    dir = dir.sub(%r</\z>, '')
+    first_time_p = true
+    begin
+      Dir.foreach(dir) do |file|
+        next if /\A\.\.?\z/ =~ file
+        path = "#{dir}/#{file.untaint}"
+        if File.symlink?(path)
+          remove_file path, force
+        elsif File.directory?(path)
+          remove_dir path, force
+        else
+          remove_file path, force
+        end
+      end
+      begin
+        Dir.rmdir dir
+      rescue Errno::ENOENT
+        raise unless force
+      end
+    rescue
+      if first_time_p
+        first_time_p = false
+        File.chmod 0777, dir
+        retry
+      end
+      raise
+    end
+  end
+
+end

data/ruby_ex/fold.rb

@@ -0,0 +1,58 @@
+# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
+# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: fold.rb 186 2005-04-03 00:07:45Z ertai $
+
+
+class Object
+
+  def rec_fold
+    if respond_to?(:fold)
+      return fold({}) do |k1, v1, acc1|
+        yield(k1, v1.rec_fold { |k2, v2, acc2| yield(k2, v2, acc2) }, acc1)
+      end
+    else
+      return self
+    end
+  end
+
+end # class Object
+
+
+class Hash
+
+  def fold(init, &block)
+    acc = init
+    self.each do |k,v|
+      acc = block[k, v, acc]
+    end
+    acc
+  end
+
+end # class Hash
+
+
+class Array
+
+  def fold(init, &block)
+    acc = init
+    self.each do |elt|
+      acc = block[elt, self[elt], acc]
+    end
+    acc
+  end
+
+  def reverse_fold(init, &block)
+    acc = init
+    self.reverse_each do |elt|
+      acc = block[elt, self[elt], acc]
+    end
+    acc
+  end
+
+end # class Array
+
+
+

data/ruby_ex/generate_id.rb

@@ -0,0 +1,44 @@
+# 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 214 2005-05-06 13:12:41Z ertai $
+
+
+require 'md5'
+
+module Kernel
+
+  def generate_id(&already_exist)
+    md5 = Digest::MD5::new
+    id = ''
+    begin
+      md5.update(id)
+      md5.update(Time.now.to_s)
+      md5.update(rand.to_s)
+      md5.update($$.to_s)
+      md5.update($0)
+      id = md5.hexdigest[0,16]
+    end while block_given? and already_exist[id]
+    id
+  end
+
+end # module Kernel
+
+
+
+if $0 == __FILE__
+  require 'test/unit'
+  class GenerateIdTest < Test::Unit::TestCase
+    def test_simple
+      tab = []
+      100.times { tab << generate_id }
+      assert_equal(tab.size, tab.uniq.size)
+    end
+    def test_simple
+      tab = []
+      bool = true
+      100.times { tab << generate_id { bool = !bool ; bool } }
+      assert_equal(tab.size, tab.uniq.size)
+    end
+  end
+end

data/ruby_ex/hookable.rb

@@ -0,0 +1,262 @@
+# 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 216 2005-05-08 11:04:46Z ertai $
+
+require 'rubygems'
+require_gem 'activesupport'
+require 'active_support/class_inheritable_attributes'
+
+
+
+module Hookable
+
+  def self.included ( aClass )
+    super
+
+    aClass.module_eval do
+
+      def self.inheritable_attributes
+        if @inheritable_attributes.nil? or @inheritable_attributes.empty?
+          @inheritable_attributes = HashWithRecursiveCloneDup.new
+        end
+        @inheritable_attributes
+      end
+
+
+      class_inheritable_array :hooks
+      class_inheritable_array :hookers
+      inheritable_attributes[:hookers] = []
+      inheritable_attributes[:hooks] = []
+
+
+      def hook_trigger ( name, *args )
+        self.class.hook_trigger(name, *args)
+        return unless defined? @hookers
+        @hookers.each do |hooker|
+          @@hook_trigger_internal[hooker, name, *args]
+        end
+      end
+
+
+      def self.hook_trigger ( name, *args )
+        raise ArgumentError, "Unknown hook #{name}" unless hooks.include? name
+        hookers.each do |hooker|
+          @@hook_trigger_internal[hooker, name, *args]
+        end
+      end
+
+
+      def self.hooker_subscribe ( hooker )
+        hookers << hooker
+      end
+
+
+      def hooker_subscribe ( hooker )
+        @hookers ||= []
+        @hookers << hooker
+      end
+
+
+      def self.hook_declare ( name, *groups )
+        hooks << name
+      end
+
+
+      @@hook_trigger_internal = lambda do |hooker, name, *args|
+        if hooker.respond_to?(name)
+          hooker.send(name, *args)
+        else
+          if hooker.respond_to? :default_hook and not hooker.default_hook.nil?
+            hooker.send(hooker.default_hook, name, *args)
+          elsif hooker.respond_to?(:method_missing)
+            hooker.send(name, *args)
+          end
+        end
+      end
+
+    end
+
+  end
+
+  
+  class HashWithRecursiveCloneDup < Hash
+
+    def initialize_copy ( aHash )
+      aHash.each { |k, v| self[k] = v.dup }
+    end
+
+  end # class HashWithRecursiveCloneDup
+
+end # module Hookable
+
+
+
+if $0 == __FILE__
+
+  require 'test/unit'
+  require 'hooker'
+
+  class HookableHookerTest < Test::Unit::TestCase
+
+    class HookerTest
+      include Hooker
+
+      attr_reader :stack
+
+      def log ( *args )
+        @stack ||= []
+        @stack << args
+      end
+
+      def method_missing ( *a )
+        log(:method_missing, *a)
+      end
+
+      def hook1 ( *a )
+        log(:hook1, *a)
+      end
+
+      def reset
+        @stack.clear if @stack
+      end
+    end
+
+
+    STATIC_HOOKER_TEST = HookerTest.new
+
+
+    class HookableTest
+      include Hookable
+
+      hook_declare :hook1
+
+      hook_declare :hook2, :group1
+
+      def run
+        run1
+        run2
+      end
+
+      def run1
+        hook_trigger :hook1
+      end
+
+      def run2
+        hook_trigger :hook2, 42
+        hook_trigger :hook3 rescue nil
+      end
+
+      def << ( hooker )
+        hooker_subscribe hooker
+      end
+
+      hooker_subscribe STATIC_HOOKER_TEST
+
+      def self.ref
+        [
+          [[:hook1], [:method_missing, :hook2, 42]],
+          [[:hook1], [:default, :hook2, 42]],
+          [[:hook_1_and_2], [:hook_1_and_2, 42]],
+          [[:hook1], [:method_missing, :default_by_method_missing, :hook2, 42]],
+          [[:hook1], [:hook2, 42]],
+          [[:hook1], [:method_missing, :hook2_by_dynamic_hook_method, 42]]
+        ]
+      end
+
+    end
+
+
+
+    class SubHookableTest < HookableTest
+      hook_declare :hook3
+
+      def self.ref
+        [
+          [[:hook1], [:method_missing, :hook2, 42], [:method_missing, :hook3]],
+          [[:hook1], [:default, :hook2, 42], [:default, :hook3]],
+          [[:hook_1_and_2], [:hook_1_and_2, 42], [:method_missing, :hook3]],
+          [[:hook1], [:method_missing, :default_by_method_missing, :hook2, 42],
+                     [:method_missing, :default_by_method_missing, :hook3]],
+          [[:hook1], [:hook2, 42], [:default, :hook3]],
+          [[:hook1], [:method_missing, :hook2_by_dynamic_hook_method, 42],
+                     [:method_missing, :hook3]]
+        ]
+      end
+
+    end
+
+
+
+    class HookerTest1 < HookerTest
+      def default ( *a )
+        log(:default, *a)
+      end
+      hook_default_method :default
+    end
+
+
+
+    class HookerTest2 < HookerTest
+      def hook_1_and_2 ( *a )
+        log(:hook_1_and_2, *a)
+      end
+      hook_method :hook_1_and_2, :hook1, :hook2
+    end
+
+
+
+    class HookerTest3 < HookerTest
+      hook_default_method :default_by_method_missing
+    end
+
+
+
+    class HookerTest4 < HookerTest
+    end
+
+
+
+    class HookerTest21 < HookerTest1
+      def hook2 ( *a )
+        log(:hook2, *a)
+      end
+    end
+
+
+
+    def test_hookable
+      hookable_checker HookableTest.new
+    end
+
+
+
+    def test_sub_hookable
+      hookable_checker SubHookableTest.new
+    end
+
+
+
+    def hookable_checker ( support )
+      hookers = []
+      hookers << HookerTest1.new
+      hookers << HookerTest2.new
+      hookers << HookerTest3.new
+      hookers << HookerTest21.new
+      hooker4 = HookerTest4.new
+      hookers << hooker4
+      hookers.each do |hooker|
+        support << hooker
+      end
+      STATIC_HOOKER_TEST.reset
+      hookers.unshift STATIC_HOOKER_TEST
+      hooker4.hook_method(:hook2_by_dynamic_hook_method, :hook2)
+      support.run
+      hookers.zip(support.class.ref).each do |hooker, ref|
+        assert_equal(ref, hooker.stack)
+      end
+    end
+
+  end
+
+end

data/ruby_ex/hooker.rb

@@ -0,0 +1,54 @@
+# 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 208 2005-05-05 19:53:50Z ertai $
+
+require 'rubygems'
+require_gem 'activesupport'
+require 'active_support/class_inheritable_attributes'
+
+
+
+module Hooker
+
+  def self.included ( aClass )
+    super
+
+    aClass.module_eval do
+
+      class_inheritable_accessor :default_hook
+
+
+      def self.hook_default_method ( method )
+        raise unless method.is_a? Symbol
+        self.default_hook = method
+      end
+
+
+      def hook_method ( *a )
+        @@generic_hook_method[method(:instance_eval), *a]
+      end
+
+
+      def self.hook_method ( *a )
+        @@generic_hook_method[method(:module_eval), *a]
+      end
+
+
+      @@generic_hook_method = lambda do |eval_meth, method, *hook_names|
+        raise unless method.is_a? Symbol
+        hook_names.each do |hook_name|
+          raise unless hook_name.is_a? Symbol
+          eval_meth[%Q{
+            def #{hook_name} ( *a, &b )
+              #{method}(*a, &b)
+            end
+          }]
+        end
+      end
+
+    end
+
+  end
+
+end # module Hooker