ludy 0.0.4 → 0.0.5

data/CHANGES

@@ -1,4 +1,11 @@
 
+==============================
+ludy 0.0.5, 2007.09.15
+
+i forgot what i'd done... (days ago)
+but sure there's Symbol#to_proc and Symbol#to_msg,
+also, please read unit test.
+
 ==============================
 ludy 0.0.4, 2007.08.12
 

data/lib/ludy.rb

@@ -21,11 +21,3 @@ def require_ludy target = nil
     require_all_in_dir __FILE__, 'ludy'
   end
 end
-
-def require_all_in_dir target_file, *dirs
-  dir = File.join(File.dirname(target_file), *dirs)
-  Dir.foreach(dir){ |f|
-    next unless f =~ /.rb$/
-    require(File.join(dir, f))
-  }
-end

data/lib/ludy/aspect.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+module Ludy
+
+
+end
+
+module Kernel
+  def cut target, &block
+    (class << target; self; end)
+  end
+end
+
+class Name
+  def name
+    'name'
+  end
+end
+
+cut Name do
+  def name
+    "<#{super}>"
+  end
+  def g
+    '??'
+  end
+end

data/lib/ludy/ludy_ext.rb

@@ -14,7 +14,7 @@
 #    See the License for the specific language governing permissions and
 #    limitations under the License.
 
-require 'singleton'
+# require 'singleton'
 
 class Object
   def tap
@@ -63,7 +63,11 @@ 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
+  def to_proc
+    lambda{|*args| eval "args[0].#{self.to_s} #{args[1..-1].join ', '}" }
+  end
+  alias_method :to_msg, :to_proc
 end
 
 class Array

data/ludy.gemspec

@@ -18,9 +18,9 @@ require 'rubygems'
 
 spec = Gem::Specification.new{|s|
   s.name     = 'ludy'
-  s.version  = '0.0.4'
+  s.version  = '0.0.5'
   s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
-  s.email    = 'strip number: 135godfat7911@246gmail.890com'
+  s.email    = 'strip number: 135godfat7911@246godfat.890org'
   s.homepage = 'http://ludy.rubyforge.org/'
   s.platform = Gem::Platform::RUBY
   s.summary  = 'Aims to extend Ruby standard library, providing some useful tools that\'s not existed in the standard library.'

data/test/tc_callstack.rb

@@ -15,10 +15,11 @@
 #    limitations under the License.
 
 require 'test/unit'
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
 require_ludy 'callstack'
-include Ludy
+
 class TestCallstack < Test::Unit::TestCase
+  include Ludy
   def setup; @binding = 'XD' end
   def test_callstack
     called_line = __LINE__-1

data/test/tc_curry.rb

@@ -15,17 +15,19 @@
 #    limitations under the License.
 
 require 'test/unit'
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
 require_ludy 'curry'
 require_ludy 'ludy_ext'
-include Ludy
+
 class Array
   def test_curry a, b, c, d, e
     [a, b, c, d, e]
   end
-  include Curry
+  include Ludy::Curry
 end
+
 class TestCurry < Test::Unit::TestCase
+  include Ludy
   def test_curry
     func1 = [1,2,3].cfoldr[:-.to_proc]
     assert_equal 2, func1[0]

data/test/tc_dice.rb

@@ -15,10 +15,11 @@
 #    limitations under the License.
 
 require 'test/unit'
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
 require_ludy 'dice'
-include Ludy
+
 class TestDice < Test::Unit::TestCase
+  include Ludy
   def test_dice
     50.times{ assert((1..20).include?(1.roll)) }
     50.times{ assert((2..40).include?(2.roll)) }

data/test/tc_lazy.rb

@@ -15,10 +15,11 @@
 #    limitations under the License.
 
 require 'test/unit'
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
 require_ludy 'lazy'
-include Ludy
+
 class TestLazy < Test::Unit::TestCase
+  include Ludy
   def setup; @data = 0; end
   def get; @data += 1; end
   def test_lazy

data/test/tc_ludy_ext.rb

@@ -15,8 +15,9 @@
 #    limitations under the License.
 
 require 'test/unit'
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
 require_ludy 'ludy_ext'
+
 class TestLudyExt < Test::Unit::TestCase
   def test_object_tap
     assert_equal '11', 10.tap{|i| assert_equal '10', i.to_s}.succ.to_s
@@ -106,4 +107,9 @@ class TestLudyExt < Test::Unit::TestCase
     f7 = lambda{|a| a*2}.compose f6.compose{|a,b| [b,a]}
     assert_equal 60, f7[3,5]
   end
+
+  def test_symbol_to_msg
+    assert_equal [3, 7], [[1,2],[3,4]].map(&:'inject(&:+)')
+    assert_equal 29, :'to_i*2+9'.to_msg['10']
+  end
 end

data/test/tc_rambda.rb

@@ -17,14 +17,15 @@
 require 'test/unit'
 require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
 require_ludy 'rambda'
-include Ludy
+
 class TestRambda < Test::Unit::TestCase
+  include Ludy
   def test_rambda
     assert_equal(3628800, rambda{|n| n==1 ? 1 : n*this[n-1]}[10])
     assert_equal([1,1,2,3,5,8,13,21,34,55],
       (0...10).map(&rambda{|n| n<=1 ? 1 : this[n-2]+this[n-1]}))
 
     v = "can't refer v"
-    assert_equal nil, rambda{v}.call
+    assert_raise(NameError){ rambda{v}.call }
   end
 end

data/test/tc_this.rb

@@ -17,8 +17,9 @@
 require 'test/unit'
 require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
 require_ludy 'this'
-include Ludy
+
 class TestThis < Test::Unit::TestCase
+  include Ludy
   def test_fact
     assert_equal(120, fact(5))
     assert_equal(3628800, fact(10))

data/test/tc_variable.rb

@@ -17,8 +17,9 @@
 require 'test/unit'
 require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
 require_ludy 'variable'
-include Ludy
+
 class TestVariable < Test::Unit::TestCase
+  include Ludy
   class Qoo
     def cool
       'cool ~~~~'

data/test/tc_y_combinator.rb

@@ -17,7 +17,9 @@
 require 'test/unit'
 require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
 require_ludy 'y_combinator'
-include Ludy
+
+include Ludy # why should this be here?
+
 class TestYCombinator < Test::Unit::TestCase
   def test_y_combinator
     fact_ = lambda{|this|

data/test/tc_z_combinator.rb

@@ -17,8 +17,9 @@
 require 'test/unit'
 require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
 require_ludy 'z_combinator'
-include Ludy
+
 class TestZCombinator < Test::Unit::TestCase
+  include Ludy
   def test_z_combinator
     fact_ = lambda{|this|
       lambda{|n| n==1 ? 1 : n*this[n-1]}

data/test/ts_ludy.rb

@@ -14,5 +14,27 @@
 #    See the License for the specific language governing permissions and
 #    limitations under the License.
 
-require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
-require_all_in_dir __FILE__
+require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy')
+require_ludy 'ludy_ext'
+
+dir = File.dirname __FILE__
+lambda{ |log|
+  result = [0]*4
+  start = Time.new
+  log << "---- Start testing at #{start} ----\n"
+  Dir.foreach(dir){ |file|
+    next unless file =~ /^tc_/
+    test = File.join dir, file
+    # require test
+
+    # require is so slow...
+    # insted, we excute them separately    
+    output = `#{test}`
+    log << output
+    match = output.match /(\d+) tests, (\d+) assertions, (\d+) failures, (\d+) errors/
+    # result = result.zip(match[1..4].map(&:to_i)).map{|data| data.inject(&:+)}
+    result = result.zip(match[1..4].map(&:to_i)).map(&:'inject(&:+)')
+  }
+  log << "Total: #{result[0]} tests, #{result[1]} assertions, #{result[2]} failures, #{result[3]} errors\n\n"
+  log << "---- End testing in #{Time.new - start} seconds. ----\n\n\n\n\n"
+}[STDOUT || $stdout]

metadata

@@ -3,12 +3,12 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: ludy
 version: !ruby/object:Gem::Version 
-  version: 0.0.4
-date: 2007-08-12 00:00:00 +08:00
+  version: 0.0.5
+date: 2007-09-15 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
-email: "strip number: 135godfat7911@246gmail.890com"
+email: "strip number: 135godfat7911@246godfat.890org"
 homepage: http://ludy.rubyforge.org/
 rubyforge_project: 
 description: 
@@ -34,6 +34,7 @@ files:
 - lib/lib/multi.rb
 - lib/lib/smulti.rb
 - lib/ludy
+- lib/ludy/aspect.rb
 - lib/ludy/callstack.rb
 - lib/ludy/curry.rb
 - lib/ludy/dice.rb
@@ -62,7 +63,6 @@ files:
 - ludy.gemspec
 - NOTICE
 - README
-- svk-commit8wxPX.tmp
 - test
 test_files: 
 - test/ts_ludy.rb

data/svk-commit8wxPX.tmp

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