vcs 0.2.148 → 0.3.0

data/ruby_ex/fileutils_ex.rb

@@ -1,44 +0,0 @@
-# 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

@@ -1,58 +0,0 @@
-# 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

@@ -1,44 +0,0 @@
-# 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

@@ -1,262 +0,0 @@
-# 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

@@ -1,54 +0,0 @@
-# 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