ruby_ex 0.1.2 → 0.2.0

data/lib/auto_object.rb

@@ -0,0 +1,102 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: auto_object.rb 339 2005-09-06 23:27:27Z ertai $
+
+require 'blank_slate'
+require 'verbose_object'
+
+class AutoObject
+
+  def self.blank_slate_ignore ( name )
+    VerboseObject.blank_slate_ignore(name)
+  end
+
+  include BlankSlate
+  include Verbosify
+
+  def initialize ( opts=nil )
+    super(:auto_object, opts)
+  end
+
+  def inspect
+    "#<#{__blank_slate_class}: #{verbose_object_trace(:inspect)}>"
+  end
+
+  def to_s
+    verbose_object_trace(:to_s)
+  end
+  alias_method :to_str, :to_s
+
+  def verbose_object_empty_trace ( action=nil )
+    (action == :inspect)? "new" : "#{__blank_slate_class}.new"
+  end
+
+  def verbose_object_send ( m, *a, &b )
+    __blank_slate_class.new
+  end
+
+  def auto_object?
+    true
+  end
+
+  def respond_to? ( meth )
+    method_missing(:respond_to?, meth)
+    meth != :to_ary
+  end
+
+end # class AutoObject
+
+
+class Object
+
+  def auto_object?
+    false
+  end
+
+end # class Object
+
+
+
+test_section __FILE__ do
+  require 'mocks'
+  class TestAutoObject < ::Test::Unit::TestCase
+    include Mocks::Assertions
+
+    def setup
+      @mock_object = Mocks::MethodLogger.new
+      # Uncomment me to debug
+      # @mock_object = VerboseObject.new(@mock_object, :no_rec => true)
+      assert_nothing_raised do
+        @obj = AutoObject.new(:logger => @mock_object)
+      end
+    end
+
+    def test_simple
+      assert_nothing_raised { @obj.foo.bar(42).baz{}.qux * 42 - 5 }
+    end
+
+    def test_auto_object?
+      assert(! 4.auto_object?)
+      assert(@obj.auto_object?)
+    end
+
+    def test_verbose
+      assert_nothing_raised { @obj.foo.bar(42).baz{}.qux * 42 - 5 }
+      assert_mock [:foo], [:bar, 42], [:baz], [:qux], [:*, 42], [:-, 5]
+    end
+
+    def test_inspect
+      assert_nothing_raised { @res = @obj.foo.bar(42).baz{}.qux * 42 - 5 }
+      assert_equal '#<AutoObject: ((new.foo.bar(42).baz { ... }.qux * 42) - 5)>',
+                   @res.inspect
+    end
+
+    def test_to_s
+      assert_nothing_raised { @res = @obj.foo.bar(42).baz{}.qux * 42 - 5 }
+      assert_equal '((AutoObject.new.foo.bar(42).baz { ... }.qux * 42) - 5)',
+                   @res.to_s
+    end
+
+  end # class TestAutoObject
+end

data/lib/blank_slate.rb

@@ -0,0 +1,102 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: blank_slate.rb 339 2005-09-06 23:27:27Z ertai $
+
+
+# This module is inspired from BlankSlate of Jim Weirich.
+#--
+# Copyright 2004 by Jim Weirich (jim@weirichhouse.org).
+# All rights reserved.
+
+# Permission is granted for use, copying, modification, distribution,
+# and distribution of modified versions of this work as long as the
+# above copyright notice is included.
+#++
+
+
+# BlankSlate alter your class and leave you a class with no
+# predefined methods (except for those which begin with <tt>\_\_</tt>.
+# BlankSlate is useful when for a base class which uses
+# <tt>method_missing</tt> (e.g. dynamic proxies).
+module BlankSlate
+
+  def blank_slate?
+    true
+  end
+
+  module ClassMethods
+
+    def hide ( name )
+      return unless instance_methods.include? name.to_s
+      return if blank_slate_ignore(name)
+      long = "__blank_slate_#{name}"
+      alias_method long, name unless instance_methods.include? long
+      undef_method name
+    end
+
+    def restore ( name )
+      long = "__blank_slate_#{name}"
+      if instance_methods.include? long
+        alias_method name, long
+      end
+    end
+
+  end # module ClassMethods
+
+  def self.included ( aClass )
+    aClass.extend ClassMethods
+    aClass.instance_methods.each { |m| aClass.hide(m) }
+  end
+
+  def self.extended ( anObject )
+    class << anObject
+      include ClassMethods
+      instance_methods.each do |name|
+        next if blank_slate_ignore(name)
+        alias_method "__blank_slate_#{name}", name
+        undef_method name
+      end
+    end
+  end
+
+end # module BlankSlate
+
+
+class Object
+
+  def self.blank_slate_ignore ( name )
+    name =~ /^(__|blank_slate\?$)/
+  end
+
+  def blank_slate?
+    false
+  end
+
+end # class Object
+
+
+# Since Ruby is very dynamic, methods added to the ancestors of
+# BlankSlate <em>after BlankSlate is defined</em> will show up in the
+# list of available BlankSlate methods.  We handle this by defining a hook in the Object and Kernel classes that will hide any defined 
+# module Kernel #:nodoc:
+#   class << self
+#     alias_method :ruby_ex_blank_slate_method_added, :method_added
+#     def method_added(name)
+#       ruby_ex_blank_slate_method_added(name)
+#       return if self != Kernel
+#       BlankSlate.hide(name)
+#     end
+#   end
+# end
+# 
+# class Object #:nodoc:
+#   class << self
+#     alias_method :ruby_ex_blank_slate_method_added, :method_added
+#     def method_added(name)
+#       ruby_ex_blank_slate_method_added(name)
+#       return  if self != Object
+#       BlankSlate.hide(name)
+#     end
+#   end
+# end

data/lib/cache.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: cache.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: cache.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'md5sum'
 
 

data/lib/choose.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: choose.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: choose.rb 339 2005-09-06 23:27:27Z ertai $
 
 
 require 'random_generators'
@@ -83,189 +83,191 @@ class Range
 
 end # class Array
 
+module Choose
 
+  test_section __FILE__ do
 
-test_section __FILE__ do
-
-  class MockRandomGenerator < RandomGenerators::RandomGenerator
-    concrete
-    attr_reader :ref
-    def initialize ( tab_i, tab_f )
-      raise unless tab_i.is_a? Array
-      raise unless tab_f.is_a? Array
-      @ref, @ref_f, @pos = tab_i, tab_f, -1
-    end
-    def get ( tab )
-      tab[@pos = (@pos + 1) % tab.size]
-    end
-    def choose_integer ( n )
-      check_choose_integer(n)
-      get(@ref) % n
-    end
-    def choose_float ( f=1.0 )
-      check_choose_float(f)
-      get(@ref_f) * f
-    end
-  end # class MockRandomGenerator
-
-  class RandomMockRandomGenerator < MockRandomGenerator
-    def initialize ( n )
-      tab_i = (0 .. n - 1).to_a.shuffle
-      tab_f = []
-      n.times { tab_f << Float.choose() }
-      super(tab_i, tab_f)
-    end
-  end # class RandomMockRandomGenerator
-
-
-  require 'test/unit'
-  require 'set'
-
-  class ChooseTest < Test::Unit::TestCase
-
-    REF_5 = [1, 2, 4, 0, 3]
-    REF_F_5 = [0.187528345035389, 0.368857819121331, 0.06954449811019,
-                0.188887464581057, 0.213757352204993]
-    REF_50 = [
-      28,  12,  17,  10, 1, 37, 46, 25, 47, 2, 45, 36, 20, 5, 30, 14, 18, 39,
-      8,  15,  16, 43, 27, 33, 22, 7, 32, 3, 35, 9, 19, 13, 21, 6, 23, 26, 4,
-      40, 44, 11, 49, 29, 42, 24, 31, 48, 34, 0, 38, 41
-    ]
-    REF_F_50 = [
-      0.643785412423313, 0.765736325876787, 0.604515956481919,
-      0.133839202811942, 0.350400971015915, 0.966710213804618,
-      0.904755113180727, 0.88459848286584, 0.163951952941716,
-      0.808023529592901, 0.387806572020054, 0.659689131658524,
-      0.289974238490686, 0.813535830006003, 0.565311754588038,
-      0.889200099511072, 0.0668127918615937, 0.992091996129602,
-      0.604403987759724, 0.89254002738744, 0.601499371463433,
-      0.754795648856089, 0.751190354581922, 0.434389552799985,
-      0.761369747575372, 0.174903159961104, 0.940325234550983,
-      0.536097376374528, 0.957906004507095, 0.693120914744213,
-      0.23448576242663, 0.638284107437357, 0.423910334473476,
-      0.251349127152935, 0.457931924844161, 0.20579389645718,
-      0.256057573715225, 0.584466924890876, 0.609375598141924,
-      0.0856487881392241, 0.437958877766505, 0.432312048738822,
-      0.81560374982655, 0.142059376928955, 0.118824432371184,
-      0.958816710859537, 0.69899930502288, 0.118259542621672,
-      0.52218786906451, 0.339233995880932
-    ]
-
-    def checker_n ( n, ref_i, ref_f, inp, ref, lim=nil )
-      mrg = MockRandomGenerator.new(ref_i, ref_f)
-      my = []
-      if lim == :no
-        n.times { my << inp.choose(mrg) }
-      else
-        n.times { my << inp.choose(lim, mrg) }
+    class MockRandomGenerator < RandomGenerators::RandomGenerator
+      concrete
+      attr_reader :ref
+      def initialize ( tab_i, tab_f )
+        raise unless tab_i.is_a? Array
+        raise unless tab_f.is_a? Array
+        @ref, @ref_f, @pos = tab_i, tab_f, -1
       end
-      assert_equal(ref, my)
-    end
-
-    def checker_5 ( inp, ref, lim=nil )
-      checker_n(5, REF_5, REF_F_5, inp, ref, lim)
-    end
+      def get ( tab )
+        tab[@pos = (@pos + 1) % tab.size]
+      end
+      def choose_integer ( n )
+        check_choose_integer(n)
+        get(@ref) % n
+      end
+      def choose_float ( f=1.0 )
+        check_choose_float(f)
+        get(@ref_f) * f
+      end
+    end # class MockRandomGenerator
 
-    def checker_50 ( inp, ref, lim=nil )
-      checker_n(50, REF_50, REF_F_50, inp, ref, lim)
-    end
+    class RandomMockRandomGenerator < MockRandomGenerator
+      def initialize ( n )
+        tab_i = (0 .. n - 1).to_a.shuffle
+        tab_f = []
+        n.times { tab_f << Float.choose() }
+        super(tab_i, tab_f)
+      end
+    end # class RandomMockRandomGenerator
+
+
+    require 'test/unit'
+    require 'set'
+
+    class ChooseTest < Test::Unit::TestCase
+
+      REF_5 = [1, 2, 4, 0, 3]
+      REF_F_5 = [0.187528345035389, 0.368857819121331, 0.06954449811019,
+                  0.188887464581057, 0.213757352204993]
+      REF_50 = [
+        28,  12,  17,  10, 1, 37, 46, 25, 47, 2, 45, 36, 20, 5, 30, 14, 18, 39,
+        8,  15,  16, 43, 27, 33, 22, 7, 32, 3, 35, 9, 19, 13, 21, 6, 23, 26, 4,
+        40, 44, 11, 49, 29, 42, 24, 31, 48, 34, 0, 38, 41
+      ]
+      REF_F_50 = [
+        0.643785412423313, 0.765736325876787, 0.604515956481919,
+        0.133839202811942, 0.350400971015915, 0.966710213804618,
+        0.904755113180727, 0.88459848286584, 0.163951952941716,
+        0.808023529592901, 0.387806572020054, 0.659689131658524,
+        0.289974238490686, 0.813535830006003, 0.565311754588038,
+        0.889200099511072, 0.0668127918615937, 0.992091996129602,
+        0.604403987759724, 0.89254002738744, 0.601499371463433,
+        0.754795648856089, 0.751190354581922, 0.434389552799985,
+        0.761369747575372, 0.174903159961104, 0.940325234550983,
+        0.536097376374528, 0.957906004507095, 0.693120914744213,
+        0.23448576242663, 0.638284107437357, 0.423910334473476,
+        0.251349127152935, 0.457931924844161, 0.20579389645718,
+        0.256057573715225, 0.584466924890876, 0.609375598141924,
+        0.0856487881392241, 0.437958877766505, 0.432312048738822,
+        0.81560374982655, 0.142059376928955, 0.118824432371184,
+        0.958816710859537, 0.69899930502288, 0.118259542621672,
+        0.52218786906451, 0.339233995880932
+      ]
+
+      def checker_n ( n, ref_i, ref_f, inp, ref, lim=nil )
+        mrg = MockRandomGenerator.new(ref_i, ref_f)
+        my = []
+        if lim == :no
+          n.times { my << inp.choose(mrg) }
+        else
+          n.times { my << inp.choose(lim, mrg) }
+        end
+        assert_equal(ref, my)
+      end
 
+      def checker_5 ( inp, ref, lim=nil )
+        checker_n(5, REF_5, REF_F_5, inp, ref, lim)
+      end
 
+      def checker_50 ( inp, ref, lim=nil )
+        checker_n(50, REF_50, REF_F_50, inp, ref, lim)
+      end
 
 
-    def test_integer
-      checker_5 Integer, REF_5, 5
-      checker_50 Integer, REF_50, 50
-      assert(Integer.choose(1000) < 1000)
-    end
 
-    def test_float
-      checker_5 Float, REF_F_5, 1.0
-      checker_50 Float, REF_F_50, 1.0
-      assert(Float.choose(2.0) < 2)
-      assert(Float.choose < 1)
-    end
 
-    def test_array_5
-      checker_5 [4], [4] * 5, 5
-      checker_5 [4, 5], [5, 4, 4, 4, 5], 5
-      checker_5 [4, 5, 6], [5, 6, 5, 4, 4], 5
-      checker_5 [2, 1, 0, 5, 4, 3], [1, 0, 4, 2, 5], 5
-      10.times { assert(REF_50.include?(REF_50.choose)) }
-    end
+      def test_integer
+        checker_5 Integer, REF_5, 5
+        checker_50 Integer, REF_50, 50
+        assert(Integer.choose(1000) < 1000)
+      end
 
-    def test_set_5
-      checker_5 Set[4], [4] * 5, 5
-      checker_5 Set[4, 5], [4, 5, 5, 5, 4], 5
-      checker_5 Set[4, 5, 6], [6, 4, 6, 5, 5], 5
-      checker_5 Set[2, 1, 0, 5, 4, 3], [0, 1, 3, 5, 2], 5
-      set = REF_50.to_set
-      10.times { assert(set.include?(set.choose)) }
-    end
+      def test_float
+        checker_5 Float, REF_F_5, 1.0
+        checker_50 Float, REF_F_50, 1.0
+        assert(Float.choose(2.0) < 2)
+        assert(Float.choose < 1)
+      end
 
-    def test_hash
-      checker_5({ 1 => 2 }, [2] * 5, 5)
-      checker_5({ 1 => 2, 3 => 4 }, [4, 2, 2, 2, 4], 5)
-    end
+      def test_array_5
+        checker_5 [4], [4] * 5, 5
+        checker_5 [4, 5], [5, 4, 4, 4, 5], 5
+        checker_5 [4, 5, 6], [5, 6, 5, 4, 4], 5
+        checker_5 [2, 1, 0, 5, 4, 3], [1, 0, 4, 2, 5], 5
+        10.times { assert(REF_50.include?(REF_50.choose)) }
+      end
 
-    def test_array_50
-      checker_50 [4], [4] * 50, 50
-      checker_50 [
-        36,  16,  15, 6, 27, 33, 17, 10, 18, 39, 8, 43, 19, 23, 49, 40, 46, 37,
-        9,  41, 35, 0, 38, 26, 22, 4, 7, 25, 21, 12, 42, 45, 28, 5, 31, 24, 34,
-        48, 32, 30, 13, 29, 11, 2, 1, 20, 3, 44, 47, 14
-      ], [
-        21,  19,  37,  8,  16, 48, 3, 4, 44, 15, 20, 34, 35, 33, 42, 49, 9, 30,
-        18,  40, 46, 2, 25, 5, 38, 10, 28, 6, 24, 39, 41, 23, 0, 17, 26, 7, 27,
-        13, 1, 43, 14, 12, 11, 22, 45, 47, 31, 36, 32, 29
-      ], 50
-    end
+      def test_set_5
+        checker_5 Set[4], [4] * 5, 5
+        checker_5 Set[4, 5], [4, 5, 5, 5, 4], 5
+        checker_5 Set[4, 5, 6], [6, 4, 6, 5, 5], 5
+        checker_5 Set[2, 1, 0, 5, 4, 3], [0, 1, 3, 5, 2], 5
+        set = REF_50.to_set
+        10.times { assert(set.include?(set.choose)) }
+      end
 
-    def test_integer_instances
-      assert_raise(ArgumentError) { checker_5 0, [], :no }
-      checker_5 1, [0] * 5, :no
-      checker_5 4, [1, 2, 0, 0, 3], :no
-      checker_5 10, REF_5, :no
-      assert(1000.choose < 1000)
-    end
+      def test_hash
+        checker_5({ 1 => 2 }, [2] * 5, 5)
+        checker_5({ 1 => 2, 3 => 4 }, [4, 2, 2, 2, 4], 5)
+      end
 
-    def test_float_instances
-      assert_raise(ArgumentError) { checker_5 0.0, [], :no }
-      checker_5  1.0, [ 0.187528345035389, 0.368857819121331, 0.06954449811019,
-                        0.188887464581057, 0.213757352204993 ], :no
-      assert(2.0.choose < 2)
-    end
+      def test_array_50
+        checker_50 [4], [4] * 50, 50
+        checker_50 [
+          36,  16,  15, 6, 27, 33, 17, 10, 18, 39, 8, 43, 19, 23, 49, 40, 46, 37,
+          9,  41, 35, 0, 38, 26, 22, 4, 7, 25, 21, 12, 42, 45, 28, 5, 31, 24, 34,
+          48, 32, 30, 13, 29, 11, 2, 1, 20, 3, 44, 47, 14
+        ], [
+          21,  19,  37,  8,  16, 48, 3, 4, 44, 15, 20, 34, 35, 33, 42, 49, 9, 30,
+          18,  40, 46, 2, 25, 5, 38, 10, 28, 6, 24, 39, 41, 23, 0, 17, 26, 7, 27,
+          13, 1, 43, 14, 12, 11, 22, 45, 47, 31, 36, 32, 29
+        ], 50
+      end
 
-    def test_integer_range_instances
-      checker_5 1..1, [1] * 5, :no
-      checker_5 1..2, [2, 1, 1, 1, 2], :no
-      checker_5 0..1, [1, 0, 0, 0, 1], :no
-      checker_5 0..4, [1, 2, 4, 0, 3], :no
-    end
+      def test_integer_instances
+        assert_raise(ArgumentError) { checker_5 0, [], :no }
+        checker_5 1, [0] * 5, :no
+        checker_5 4, [1, 2, 0, 0, 3], :no
+        checker_5 10, REF_5, :no
+        assert(1000.choose < 1000)
+      end
 
-    class Xs
-      include Comparable
-      attr_reader :length
-      def initialize ( n )
-        @length = n
+      def test_float_instances
+        assert_raise(ArgumentError) { checker_5 0.0, [], :no }
+        checker_5  1.0, [ 0.187528345035389, 0.368857819121331, 0.06954449811019,
+                          0.188887464581057, 0.213757352204993 ], :no
+        assert(2.0.choose < 2)
       end
-      def succ
-        Xs.new(@length.succ)
+
+      def test_integer_range_instances
+        checker_5 1..1, [1] * 5, :no
+        checker_5 1..2, [2, 1, 1, 1, 2], :no
+        checker_5 0..1, [1, 0, 0, 0, 1], :no
+        checker_5 0..4, [1, 2, 4, 0, 3], :no
       end
-      def <=> ( rhs )
-        @length <=> rhs.length
+
+      class Xs
+        include Comparable
+        attr_reader :length
+        def initialize ( n )
+          @length = n
+        end
+        def succ
+          Xs.new(@length.succ)
+        end
+        def <=> ( rhs )
+          @length <=> rhs.length
+        end
+        def inspect
+          'x' * @length
+        end
       end
-      def inspect
-        'x' * @length
+
+      def test_range_instances
+        checker_5 'a'..'a', ['a'] * 5, :no
+        checker_5 'a'..'b', ['b', 'a', 'a', 'a', 'b'], :no
+        checker_5 Xs.new(1)..Xs.new(4), [2, 3, 1, 1, 4].map { |x| Xs.new(x) }, :no
       end
-    end
 
-    def test_range_instances
-      checker_5 'a'..'a', ['a'] * 5, :no
-      checker_5 'a'..'b', ['b', 'a', 'a', 'a', 'b'], :no
-      checker_5 Xs.new(1)..Xs.new(4), [2, 3, 1, 1, 4].map { |x| Xs.new(x) }, :no
-    end
+    end # class ChooseTest
 
-  end # class ChooseTest
+  end
 
-end
+end # module Choose