core_ex 0.4.0 → 0.5.1.1

data/lib/core_ex/module/import.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: import.rb 336 2005-09-06 20:32:49Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/module/import.rb 8038 2005-12-31T02:27:43.641243Z ertai  $
 
 
 module CoreEx
@@ -10,13 +10,11 @@ module CoreEx
 
     module Import
 
-      def require_or_load ( *args )
+      def import! ( *args )
         return true if args.empty?
-        Dependency.require_or_load(*args)
+        Dependency.depend_on(*args)
       end
 
-      alias_method :import!, :require_or_load
-
     end # module Import
 
   end # module Module
@@ -25,4 +23,4 @@ end # module CoreEx
 
 test_section __FILE__ do
 
-end
+end

data/lib/core_ex/module/in_place.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: in_place.rb 381 2005-10-02 14:34:28Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/module/in_place.rb 7986 2005-10-02T14:34:28.115711Z ertai  $
 
 module CoreEx
 

data/lib/core_ex/module/mix_in_with_args.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: mix_in_with_args.rb 355 2005-09-15 23:18:43Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/module/mix_in_with_args.rb 7960 2005-09-15T23:18:43.901701Z ertai  $
 
 
 class Module

data/lib/core_ex/numeric.rb

@@ -0,0 +1,46 @@
+# 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/core_ex/lib/core_ex/numeric.rb 8026 2005-12-06T16:19:28.192022Z ertai  $
+
+
+module CoreEx
+
+  module Numeric
+
+    def fact
+      result = 1
+      i = self
+      until i.zero? do
+        result *= i
+        i -= 1
+      end
+      result
+    end
+    alias_method :_!, :fact
+
+  end # module Numeric
+
+  ::Numeric.send :include, Numeric
+
+  test_section __FILE__ do
+    class TestNumeric < ::Test::Unit::TestCase
+
+      def setup
+      end
+
+      def teardown
+      end
+
+      def test_fact
+        assert_equal 403291461126605635584000000, 26._!
+        assert_equal 1, 0._!
+        assert_equal 1, 1._!
+        assert_equal 24, 4._!
+      end
+
+    end # class TestNumeric
+  end
+
+end # module CoreEx
+

data/lib/core_ex/object/instance_eval_with_args.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: instance_eval_with_args.rb 355 2005-09-15 23:18:43Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/object/instance_eval_with_args.rb 7960 2005-09-15T23:18:43.901701Z ertai  $
 
 
 module CoreEx

data/lib/core_ex/object/singleton_class.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: singleton_class.rb 382 2005-10-02 14:49:42Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/object/singleton_class.rb 7987 2005-10-02T14:49:42.566599Z ertai  $
 
 
 module CoreEx

data/lib/core_ex/object/the_first_time.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: the_first_time.rb 382 2005-10-02 14:49:42Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/object/the_first_time.rb 7987 2005-10-02T14:49:42.566599Z ertai  $
 
 
 module CoreEx

data/lib/core_ex/pathname.rb

@@ -2,8 +2,8 @@
 # Author: Nicolas Despres  <polrop@lrde.epita.fr>.
 # License: Gnu General Public License.
 
-# $LastChangedBy: ertai $
-# $Id: pathname.rb 383 2005-10-02 16:48:09Z ertai $
+# $LastChangedBy: pouillar $
+# $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/pathname.rb 22106 2006-02-21T23:09:19.405133Z pouillar  $
 
 
 
@@ -17,6 +17,14 @@ module CoreEx
       alias_method :split_no_args, :split
     end
 
+    def overwrite ( new_contents )
+      open('w') do |file|
+        file.print new_contents
+      end
+      self
+    end
+        
+
     # Allow this kind of things:
     #
     #  root = Pathname.new('/tmp/test')
@@ -118,11 +126,11 @@ module CoreEx
 
     attr_accessor :open_mode
 
-    def split_with_load_path ( load_paths=Controllers.load_paths )
+    def split_with_load_path ( load_paths=$LOAD_PATH )
       str = to_s
       load_paths = load_paths.sort { |x, y| y.to_path.to_s.size <=> x.to_path.to_s.size }
       load_paths.each do |load_path|
-        if str =~ /^#{Regexp.quote(load_path.to_path)}\/*(.*)/
+        if str =~ /^#{Regexp.quote(load_path)}\/*(.*)/
           return [load_path.to_path, Regexp.last_match[1].to_path]
         end
       end
@@ -136,12 +144,10 @@ module CoreEx
 
     def load_path!
       string = expand_path.cleanpath.to_s
-      raise "bad path name `#{string}' need a directory" unless directory?
-      raise 'bad Controllers' unless Controllers.is_a? Dependencies::RootLoadingModule
-      path = string.to_path
-      return false if Controllers.load_paths.any? { |c| c.to_path == path }
-      Controllers.load_paths.unshift Dependencies::ConstantLoadPath.new(string)
+      raise "bad path name `#{path}' need a directory" unless directory?
+      return false if $LOAD_PATH.include? string
       $LOAD_PATH.unshift string
+      return true
     end
 
     def expand_path_with ( directories, extensions=nil )
@@ -226,8 +232,8 @@ test_section __FILE__ do
 
       def setup
        @test = __FILE__.to_path.dirname.parent.parent + 'test'
-       @res  = @test + 'resources'
-       @req  = @res + 'require'
+       @fixtures  = @test + 'fixtures'
+       @req  = @fixtures + 'require'
        @s = 'test_require'
        @s_dne = 'test_require_dne'
        @s_so = 'test_require_so.so'

data/lib/core_ex/proc.rb

@@ -1,13 +1,19 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: proc.rb 383 2005-10-02 16:48:09Z ertai $
+# Revision::  $Id: /w/fey/ruby_ex/trunk/core_ex/lib/core_ex/proc.rb 8014 2005-10-26T12:35:42.562387Z ertai  $
 
 
 module CoreEx
 
   module Proc
 
+    class ArityError < ArgumentError
+      def initialize
+        super("Bad number of arguments")
+      end
+    end # class ArityError
+
     setup do
       have YamlExtension
     end
@@ -28,6 +34,27 @@ module CoreEx
       to_s
     end
 
+    def to_proc
+      self
+    end
+
+    def instance_call ( anObject, *args, &block )
+      argc = args.size
+      case arity
+        when 1 + argc
+          call(anObject, *args, &block)
+        when argc, -1
+          raise ArgumentError, "No block needed" if block
+          anObject.instance_eval_with_args(*args, &self)
+        else
+          if arity < 0 and argc >= arity.abs - 2
+            call(anObject, *args, &block)
+          else
+            raise ArityError
+          end
+      end
+    end
+
     module ClassMethods
       def yaml_load ( val )
         DumpableProc.new(val.to_s)
@@ -47,6 +74,15 @@ module CoreEx
           method(:teardown).to_proc => __LINE__,
           TestProc.instance_method(:setup).bind(self).to_proc => __LINE__
         }
+        mock_args = @mock_args = []
+        @m_ = proc { mock_args << [:_, object_id] }
+        @m_0 = proc { || mock_args << [:'0', object_id] }
+        @m_as = proc { |*a| mock_args << [:as, a, object_id] }
+        @m_a_bs = proc { |a, *b| mock_args << [:a_bs, a, b, object_id] }
+        @m_a = proc { |a| mock_args << [:a, a, object_id] }
+        @m_a_b = proc { |a, b| mock_args << [:a_b, a, b, object_id] }
+        @m_a_b_c = proc { |a, b, c| mock_args << [:a_b_c, a, b, c, object_id] }
+        @m_procs = [@m_, @m_0, @m_as, @m_a_bs, @m_a, @m_a_b, @m_a_b_c]
       end
 
       def teardown
@@ -70,6 +106,49 @@ module CoreEx
         assert_equal(10, @val[])
       end
 
+      def assert_instance_call ( ref, proc, args )
+        assert_nothing_raised do
+          begin
+            proc.instance_call(*args)
+          rescue Proc::ArityError => ex
+            assert_equal :ArityError, ref
+            assert_equal [], @mock_args
+            return
+          end
+        end
+        assert_equal ref, @mock_args.shift
+        assert_equal [], @mock_args
+      end
+
+      def test_instance_call
+        a, b, c = 'a', 'b', 'c'
+        ai, bi, ci, si = a.object_id, b.object_id, c.object_id, object_id
+
+        assert_instance_call [:_, ai],           @m_,      [a]
+        assert_instance_call [:'0', ai],         @m_0,     [a]
+        assert_instance_call [:as, [], ai],      @m_as,    [a]
+        assert_instance_call [:a_bs, a, [], si], @m_a_bs,  [a]
+        assert_instance_call [:a, a, si],        @m_a,     [a]
+        assert_instance_call :ArityError,        @m_a_b,   [a]
+        assert_instance_call :ArityError,        @m_a_b_c, [a]
+
+        assert_instance_call [:_, ai],             @m_,      [a, b]
+        assert_instance_call :ArityError,          @m_0,     [a, b]
+        assert_instance_call [:as, [b], ai],       @m_as,    [a, b]
+        assert_instance_call [:a_bs, a, [b], si],  @m_a_bs,  [a, b]
+        assert_instance_call [:a, b, ai],          @m_a,     [a, b]
+        assert_instance_call [:a_b, a, b, si],     @m_a_b,   [a, b]
+        assert_instance_call :ArityError,          @m_a_b_c, [a, b]
+
+        assert_instance_call [:_, ai],               @m_,      [a, b, c]
+        assert_instance_call :ArityError,            @m_0,     [a, b, c]
+        assert_instance_call [:as, [b, c], ai],      @m_as,    [a, b, c]
+        assert_instance_call [:a_bs, a, [b, c], si], @m_a_bs,  [a, b, c]
+        assert_instance_call :ArityError,            @m_a,     [a, b, c]
+        assert_instance_call [:a_b, b, c, ai],       @m_a_b,   [a, b, c]
+        assert_instance_call [:a_b_c, a, b, c, si],  @m_a_b_c, [a, b, c]
+      end
+
     end # class TestProc
 
   end