ludy 0.0.3 → 0.0.4

data/CHANGES

@@ -1,8 +1,21 @@
 
 ==============================
-ludy 0.0.3, 2007.08
+ludy 0.0.4, 2007.08.12
+
+1. ludy_ext:
+  renamed:
+    1. Proc#curry => Proc#__curry__
 
-ludy_ext:
+  added:
+    1. Kernel#curry
+
+strongly suggest that use Kernel#curry instead of Proc#__curry__,
+see unit test for usage and changes
+
+==============================
+ludy 0.0.3, 2007.08.07
+
+1. ludy_ext:
   added:
     1. Proc#curry
     2. Proc#compose
@@ -19,8 +32,9 @@ ludy_ext:
     1. ruby2ruby has NilClass#method_missing return nil,
        so i can't just make it return blackhole
 
-4. module Curry
+2. module Curry:
   see test/tc_curry.rb for usage
 
 see unit test for usage
+
 ==============================

data/lib/ludy/curry.rb

@@ -32,7 +32,7 @@ module Ludy
               if args.size == method(:#{m}).arity
                 self.__send__ :#{m}, *args, &block
               else
-                method(:c#{m}).to_proc.curry *args
+                method(:c#{m}).to_proc.send :__curry__, *args
               end
             end
           END
@@ -42,3 +42,7 @@ module Ludy
   end
 
 end
+
+=begin
+              method(:#{m}).to_proc.curry.call *args, &block
+=end

data/lib/ludy/ludy_ext.rb

@@ -63,7 +63,7 @@ end
 =end
 
 class Symbol
-  def to_proc; lambda{|*args| args.shift.__send__ self, *args }; end
+  def to_proc; lambda{|*args| args.shift.__send__ self, *args}; end
 end
 
 class Array
@@ -78,9 +78,11 @@ class Array
 end
 
 class Proc
-  def curry *pre
+  def __curry__ *pre
     lambda{ |*post| self[*(pre + post)] }
   end
+
+  # missing traversal of chain
   def chain *procs, &block
     procs << block if block
     lambda{ |*args|
@@ -100,3 +102,33 @@ class Proc
     }
   end
 end
+
+module Kernel
+  def curry
+    class << self
+      alias_method :orig_call, :call
+      def call *args, &block
+        if self.arity == -1
+          begin # let's try if arguments are ready
+            # is there any better way to determine this?
+            # it's hard to detect correct arity value when
+            # Symbol#to_proc happened
+            # e.g., :message_that_you_never_know.to_proc.arity => ?
+            # i'd tried put hacks in Symbol#to_proc, but it's
+            # difficult to implement in correct way
+            # i would try it again in other day
+            self.__send__ :orig_call, *args, &block
+          rescue ArgumentError # oops, let's curry it
+            method(:call).to_proc.__send__ :__curry__, *args
+          end
+        elsif args.size == self.arity
+          self.__send__ :orig_call, *args, &block
+        else
+          method(:call).to_proc.__send__ :__curry__, *args
+        end
+      end
+      alias_method :[], :call
+    end
+    self
+  end
+end

data/ludy.gemspec

@@ -18,7 +18,7 @@ require 'rubygems'
 
 spec = Gem::Specification.new{|s|
   s.name     = 'ludy'
-  s.version  = '0.0.3'
+  s.version  = '0.0.4'
   s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
   s.email    = 'strip number: 135godfat7911@246gmail.890com'
   s.homepage = 'http://ludy.rubyforge.org/'

data/svk-commit8wxPX.tmp

@@ -0,0 +1 @@
+local ci?

data/test/tc_curry.rb

@@ -30,7 +30,7 @@ class TestCurry < Test::Unit::TestCase
     func1 = [1,2,3].cfoldr[:-.to_proc]
     assert_equal 2, func1[0]
 
-    assert_equal [8,10,12], [4,5,6].cmap(&:*.to_proc.curry(2))
+    assert_equal [8,10,12], [4,5,6].cmap(&:*.to_proc.curry[2])
 
     result = [2,3,4,5,6]
     func2 = result.ctest_curry[2]

data/test/tc_ludy_ext.rb

@@ -64,14 +64,15 @@ class TestLudyExt < Test::Unit::TestCase
   def test_proc_curry
     multiply = lambda{|l,r| l*r}
 
-    double = multiply.curry 2
+    double = multiply.curry[2]
     assert_equal 8, double[4]
     assert_equal 6, double[3]
 
-    xd = multiply.curry 'XD', 5
-    assert_equal 'XDXDXDXDXD', xd.call
+    xd = multiply['XD', 5]
+    assert_equal 'XDXDXDXDXD', xd
 
-    assert_equal 29, :+.to_proc.curry(18)[11]
+    assert_equal 29, :+.to_proc.curry[18][11]
+    assert_equal (0..4).to_a, lambda{|a,b,c,d,e|[a,b,c,d,e]}.curry[0][1][2][3][4]
   end
 
   def test_proc_chain

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: ludy
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
-date: 2007-08-07 00:00:00 +08:00
+  version: 0.0.4
+date: 2007-08-12 00:00:00 +08:00
 summary: Aims to extend Ruby standard library, providing some useful tools that's not existed in the standard library.
 require_paths: 
 - lib
@@ -62,6 +62,7 @@ files:
 - ludy.gemspec
 - NOTICE
 - README
+- svk-commit8wxPX.tmp
 - test
 test_files: 
 - test/ts_ludy.rb