ludy 0.0.1

data/lib/ludy.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin�]a.k.a. godfat �u�`�^
+#
+#    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.
+
+def require_ludy target = nil
+  if target
+    require(File.join(File.dirname(__FILE__), 'ludy', target))
+  else
+    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/callstack.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/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
+  TRACE_EVENT   = 0
+  TRACE_FILE    = 1
+  TRACE_LINE    = 2
+  TRACE_MSG     = 3
+  TRACE_BINDING = 4
+  TRACE_CLASS   = 5
+
+  def callstack levels = -1
+    st = Thread.current[:callstack]
+    if levels then st && st[levels - 2] else st end
+  end
+  module_function :callstack
+end # of Ludy
+
+set_trace_func lambda{ |*args|
+  case args[Ludy::TRACE_EVENT]
+    when /call$/
+      (Thread.current[:callstack] ||= []).push args
+    when /return$/
+      (Thread.current[:callstack] ||= []).pop
+  end
+}

data/lib/ludy/dice.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/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
+
+  class Dice
+    attr_reader :amounts, :faces
+    def initialize amounts = 1, faces = 20
+      @amounts = amounts
+      @faces = faces
+    end
+    def roll
+      @amounts.roll @faces
+    end
+    def min; @amounts; end
+    def max; @amounts*@faces; end
+  end
+
+  class DiceSet
+    attr_reader :min, :max
+    def initialize *args
+      @diceset = args
+      @min = @max = 0
+      @diceset.each{ |i|
+        @min += i.min
+        @max += i.max
+      }
+    end
+    def roll
+      result = 0
+      @diceset.each { |i| result += i.roll }
+      result
+    end
+    def << dice
+      @diceset << dice
+      @min += dice.min
+      @max += dice.max
+      self
+    end
+  end
+
+end
+
+class Numeric
+  def roll faces = 20
+    return nil unless self > 0 &&  self.integer? &&
+                     faces > 0 && faces.integer?
+    result = 0
+    1.step(self){ |i| result += rand(faces) + 1 }
+    result
+  end
+  def dice faces = 20
+    Ludy::Dice.new self, faces
+  end
+end

data/lib/ludy/lazy.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/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
+
+  class Lazy
+    instance_methods.each{|m| undef_method m unless m =~ /^__/}
+
+    def initialize func = nil, &block
+      if block_given? then @func = block
+      else
+        raise TypeError, "#{func} don't respond to :call" unless func.respond_to? :call
+        @func = func
+      end
+    end
+
+    def method_missing msg, *arg, &block
+      (@obj ||= @func.call).__send__ msg, *arg, &block
+    end
+  end
+
+  def lazy arg = nil, &block
+    Lazy.new arg, &block
+  end
+
+end # of Ludy

data/lib/ludy/ludy_ext.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/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.
+
+class Object
+  def tap
+    yield self
+    self
+  end
+  def define_instance_method msg, &block
+    self.class.send :define_method, msg, &block
+  end
+  def alias_instance_method new_msg, old_msg
+    self.class.send :alias_method, new_msg, old_msg
+  end
+end
+
+class NilClass
+  def method_missing msg, *arg, &block
+    self
+  end
+end

data/lib/ludy/rambda.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/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.
+
+require 'rubygems'
+raise LoadError.new('you need ruby2ruby gem to use this tool') unless require 'ruby2ruby'
+begin
+  require_ludy 'ludy_ext'
+rescue NameError
+  raise LoadError.new('please require "ludy" first')
+end
+
+module Ludy
+
+  class Rambda
+    def initialize &block
+      @this = eval block.to_ruby
+      define_instance_method :call, &@this
+      alias_instance_method :[], :call
+    end
+    attr_reader :this
+    alias_method :to_proc, :this
+  end
+
+  def rambda &block
+    Rambda.new &block
+  end
+
+end # of Ludy

data/lib/ludy/this.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/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.
+
+begin
+  require_ludy 'callstack'
+rescue NameError
+  raise LoadError.new('please require "ludy" first')
+end
+
+module Ludy
+  def this
+    info = callstack(-2)
+    # lambda{ |*args|
+      # Thread.current[:temp_args] = args
+      # eval("send :#{info[3]}, *Thread.current[:temp_args]", info[4])
+    # }
+    eval('self', info[TRACE_BINDING]).method(info[TRACE_MSG])
+  end
+  module_function :this
+end # of Ludy

data/lib/ludy/variable.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/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
+
+  class Variable
+    instance_methods.each{|m| undef_method m unless m =~ /^__/}
+
+    def initialize obj
+      @__obj__ = obj
+    end
+
+    def method_missing msg, *arg, &block
+      @__obj__.__send__ msg, *arg, &block
+    end
+
+    attr_accessor :__obj__
+  end
+
+  def var arg
+    Variable.new arg
+  end
+
+end # of Ludy

data/lib/ludy/y_combinator.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/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.
+
+begin
+  require_ludy 'lazy'
+rescue NameError
+  raise LoadError.new('please require "ludy" first')
+end
+
+module Ludy
+
+  Y = lambda{|f|
+    lambda{|x| lazy{f[x[x]]} }[lambda{|x| lazy{f[x[x]]} }]
+  }
+
+end

data/lib/ludy/z_combinator.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/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
+
+  Z = lambda{|f|
+    lambda{|x| f[lambda{|y| x[x][y]}]}[
+      lambda{|x| f[lambda{|y| x[x][y]}]}
+    ]
+  }
+
+end

data/ludy.gemspec

@@ -0,0 +1,44 @@
+#!/usr/bin/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.
+
+require 'rubygems'
+
+spec = Gem::Specification.new{|s|
+  s.name     = 'ludy'
+  s.version  = '0.0.1'
+  s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
+  s.email    = 'strip number: 135godfat7911@246gmail.890com'
+  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.'
+  candidates = Dir.glob '{bin,doc,lib,test}/**/*'
+  candidates+= Dir.glob '*'
+  s.files    = candidates.delete_if{|item|
+                 item.include?('CVS') || item.include?('rdoc') || File.extname(item) == '.gem'
+               }
+
+  s.require_path = 'lib'
+  s.autorequire  = 'ludy'
+  s.test_file    = 'test/ts_ludy.rb'
+  s.has_rdoc     = false
+  # s.extra_rdoc_files = []
+  # s.add_dependency 'multi', '>=0.1'
+}
+
+if $0 == __FILE__
+  Gem::manage_gems
+  Gem::Builder.new(spec).build
+end

data/test/tc_callstack.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/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.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'callstack'
+include Ludy
+class TestCallstack < Test::Unit::TestCase
+  def setup; @binding = 'XD' end
+  def test_callstack
+    called_line = __LINE__-1
+    top = callstack
+    assert_equal 'call', top[TRACE_EVENT]
+    assert_equal __FILE__, top[TRACE_FILE]
+    assert_equal called_line, top[TRACE_LINE]
+    assert_equal :test_callstack, top[TRACE_MSG]
+    assert_equal 'XD', eval('@binding', top[TRACE_BINDING])
+    assert_equal self.class, top[TRACE_CLASS]
+  end
+end