multimethod 0.0.1 → 0.1.0

data/lib/multimethod/.svn/text-base/parameter.rb.svn-base

@@ -1,64 +0,0 @@
-module Multimethod
-  class Parameter
-    RESTARG_SCORE = 9999
-
-    attr_accessor :name
-    attr_accessor :i
-    attr_accessor :type
-    attr_accessor :default
-    attr_accessor :restarg
-
-    attr_accessor :method
-
-    def initialize(name, type = nil, default = nil, restarg = false)
-      # $stderr.puts "initialize(#{name.inspect}, #{type}, #{restarg.inspect})"
-      name = name.to_s
-      if name.sub!(/^\*/, '')
-        restarg = true
-      end  
-
-      name = name.intern unless name.kind_of?(Symbol)
-      @name = name
-      @i = nil
-      @type = type || Kernel
-      @default = default
-      @restarg = restarg
-    end
-
-
-    def score(arg)
-      return RESTARG_SCORE if @restarg
-      score = all_types(arg).index(type_object)
-    end
-
-
-    def all_types(arg)
-      arg.ancestors
-    end
-
-
-    def type_object
-      if @type.kind_of?(String)
-        @type = @method.multimethod.table.name_to_object(@type, @method.mod, @method)
-      end
-      @type
-    end
-
-
-    def to_s
-      @restarg ? "*#{@name}" : @name
-    end
-
-
-    def to_s_long
-      "#{@type} #{to_ruby}"
-    end
-
-
-    def to_ruby
-      "#{to_s}#{@default ? ' = ' + @default : ''}"
-    end
-
-  end # class
-end # module
-

data/lib/multimethod/.svn/text-base/table.rb.svn-base

@@ -1,99 +0,0 @@
-module Multimethod
-  class Table
-
-    @@instance = nil
-    def self.instance
-      # THREAD CRITICAL BEGIN
-      @@instance ||= self.new
-      # TRREAD CRITICAL END
-    end
-
-    @@hook_var = :@@__multimethods
- 
-    def initialize(*opts)
-      @method = { }
-
-      # Type name lookup cache
-      @name_to_object = { }
-    end
-
-
-    @@match_def = /^\s*def\s+(\w+)([(](.*)[)])?/
-    # Interface to Multimethod::Module mixin multimethod
-    def install_method(mod, body, file = nil, line = nil)
-      name = nil
-      params = nil
-
-      # Parse first line.
-      if md = body.match(@@match_def)
-        name = md[1]
-        params = md[3] || ''
-      else
-        raise("Cannot determine name(params) from body")
-      end
-        
-      # Get our Multimethod for this
-      mm = lookup_multimethod(name)
-      mm.install_dispatch(mod)
-      m = mm.new_method(mod, params)
- 
-      # Evaluate our method.
-      new_body = body.clone
-      new_body.sub!(@@match_def, m.to_ruby)
-
-      # if m.restarg
-      #   $stderr.puts "install_method(#{mod}) => #{m.to_ruby}:\n#{new_body}"
-      # end
-
-      file ||= __FILE__; line ||= __LINE__
-      m.file = file; m.line = line
-      mod.module_eval(new_body, file || __FILE__, line || __LINE__)
-    end
-
-
-    def lookup_multimethod(name)
-      name = name.to_s
-
-      # THREAD CRITICAL BEGIN
-      unless mm = @method[name]
-        mm = Multimethod.new(name)
-        mm.table = self
-        @method[name] = mm
-      end
-      # THREAD CRITICAL END
-
-      mm
-    end
-
-
-    # Interface to code generated by #install_dispatch.
-    def dispatch(name, rcvr, args)
-      unless mm = @method[name]
-        raise NameError, 'No method for multmethod #{name}' unless mm
-      end
-      mm.dispatch(rcvr, args)
-    end
-
-
-    #################################################
-    # Support
-    #
-
-    def name_to_object(name, scope = nil, method = nil)
-      scope ||= Kernel
-      # THREAD CRITICAL
-      unless x = (@name_to_object[scope] ||= { })[name]
-        # $stderr.puts " name_to_object(#{name.inspect}) in #{scope}"
-        x = 
-          @name_to_object[scope][name] = 
-          scope.module_eval(name, method ? method.file : __FILE__, method ? method.line : __LINE__)
-      end
-
-      x
-    end
-
-  end # class
-
-end # module
-
-

data/test/.svn/README.txt

@@ -1,2 +0,0 @@
-This is a Subversion working copy administrative directory.
-Visit http://subversion.tigris.org/ for more information.

data/test/.svn/entries

@@ -1,53 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<wc-entries
-   xmlns="svn:">
-<entry
-   committed-rev="3"
-   name=""
-   committed-date="2006-11-21T15:59:22.761488Z"
-   url="svn+ssh://rubyforge.org/var/svn/multimethod/multimethod/trunk/test"
-   last-author="kstephens"
-   kind="dir"
-   repos="svn+ssh://rubyforge.org/var/svn/multimethod"
-   revision="3"/>
-<entry
-   committed-rev="3"
-   name="method_test.rb"
-   text-time="2006-11-21T05:04:48.000000Z"
-   committed-date="2006-11-21T15:59:22.761488Z"
-   checksum="40b4ca1c1c328339e7380b23522998e5"
-   last-author="kstephens"
-   kind="file"/>
-<entry
-   committed-rev="3"
-   name="parameter_test.rb"
-   text-time="2006-11-21T07:25:08.000000Z"
-   committed-date="2006-11-21T15:59:22.761488Z"
-   checksum="6893f4ec384c8ed8b5bede4642783d13"
-   last-author="kstephens"
-   kind="file"/>
-<entry
-   committed-rev="3"
-   name="usage_test.rb"
-   text-time="2006-11-21T06:51:40.000000Z"
-   committed-date="2006-11-21T15:59:22.761488Z"
-   checksum="c3b86cfd548e87f6a3abfba9b6e64c54"
-   last-author="kstephens"
-   kind="file"/>
-<entry
-   committed-rev="3"
-   name="test_base.rb"
-   text-time="2006-11-20T21:58:18.000000Z"
-   committed-date="2006-11-21T15:59:22.761488Z"
-   checksum="52aa7dfea864715aede8ab3e5aba1ca0"
-   last-author="kstephens"
-   kind="file"/>
-<entry
-   committed-rev="3"
-   name="multimethod_test.rb"
-   text-time="2006-11-21T07:23:21.000000Z"
-   committed-date="2006-11-21T15:59:22.761488Z"
-   checksum="4de3fbfd3e551eaecc1b9a550b08a80a"
-   last-author="kstephens"
-   kind="file"/>
-</wc-entries>

data/test/.svn/format

@@ -1 +0,0 @@
-4

data/test/.svn/text-base/method_test.rb.svn-base

@@ -1,89 +0,0 @@
-require 'test_base'
-
-module Multimethod
-
-  class MethodTest < TestBase
-
-    class A < Object; end
-    class B < A; end
-    class C < Object; end
-    class D < B; end
-
-    def setup
-      super
-    end
-    
-    def test_scan_parameter
-      assert_not_nil m1 = Method.new(Object, :m, [ A, :a, B, :b, :c, '*d' ])
-
-      assert_equal 5, m1.parameter.size
-
-      i = -1
-      
-      i = i + 1
-      assert_equal :self,  m1.parameter[i].name
-      assert_equal Object, m1.parameter[i].type
-      assert       !       m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :a, m1.parameter[i].name
-      assert_equal A, m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :b, m1.parameter[i].name
-      assert_equal B, m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :c, m1.parameter[i].name
-      assert_equal Kernel, m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :d, m1.parameter[i].name
-      assert_equal Kernel, m1.parameter[i].type
-      assert       m1.parameter[i].restarg
-
-      m1
-    end
-
-    def test_scan_parameter_string
-      assert_not_nil m1 = Method.new(Object, :m, 'A a, B b, c = nil, *d')
-
-      assert_equal 5, m1.parameter.size
-      
-      i = -1
-
-      i = i + 1
-      assert_equal :self, m1.parameter[i].name
-      assert_equal Object, m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :a, m1.parameter[i].name
-      assert_equal 'A', m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :b, m1.parameter[i].name
-      assert_equal 'B', m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :c, m1.parameter[i].name
-      assert_equal Kernel, m1.parameter[i].type
-      assert       !  m1.parameter[i].restarg
-
-      i = i + 1
-      assert_equal :d, m1.parameter[i].name
-      assert_equal Kernel, m1.parameter[i].type
-      assert       m1.parameter[i].restarg
-
-      m1
-    end
-
-  end # class
-    
-end # module
-  

data/test/.svn/text-base/multimethod_test.rb.svn-base

@@ -1,92 +0,0 @@
-require 'test_base'
-
-module Multimethod
-
-  class MethodTest < TestBase
-
-    class A < Object; end
-    class B < A; end
-    class C < Object; end
-    class D < B; end
-    class E < A; end
-
-    def setup
-      super
-    end
-    
-    def test_score
-      # Make some argument lists.
-      types = [ A, B, C, D, E ]
-      a = { }
-      c = { }
-      types.each do |t1|
-        n1 = t1.name.clone
-        n1.sub!(/^.*::/, '')
-        n1 = n1[0..0]
-        types.each do |t2|
-          n2 = t2.name.clone
-          n2.sub!(/^.*::/, '')
-          n2 = n2[0..0]
-          
-          symbol = "#{n1.downcase}_#{n2.downcase}".intern
-          a[symbol] = [ 1, t1.new, t2.new ]
-          c[symbol] = a[symbol].collect{|x| x.class}
-        end
-      end
-                 
-      rs = Parameter::RESTARG_SCORE
-
-      assert_not_nil m1 = Method.new(Object, :m, [ A, :x, A, :y ])
-      assert_equal 3, m1.min_args
-      assert_equal 3, m1.max_args
-
-      assert_not_nil m2 = Method.new(Object, :m, [ B, :x, A, :y ])
-      assert_equal 3, m2.min_args
-      assert_equal 3, m2.max_args
-
-      assert_not_nil m3 = Method.new(Object, :m, [ C, :x,    '*rest' ])
-      assert_equal 2, m3.min_args
-      assert_equal nil, m3.max_args
-      assert_not_nil m3.restarg
-
-      assert_not_nil m4 = Method.new(Object, :m, [ D, :x,    :y ])
-      assert_equal 3, m4.min_args
-      assert_equal 3, m4.max_args
-
-      assert_not_nil m5 = Method.new(Object, :m, [ E, :y,    :y ])
-      assert_equal 3, m4.min_args
-      assert_equal 3, m4.max_args
-      
-      # 5 == 1.class.ancestors.index(Object)
-      assert_equal [ 5, 0, 0 ]   , m1.score(c[:a_a])
-      assert_equal [ 5, 0, 1 ]   , m1.score(c[:a_b])
-      assert_equal nil           , m1.score(c[:a_c])
-      assert_equal [ 5, 1, 1 ]   , m1.score(c[:b_b])
-      assert_equal nil           , m1.score(c[:c_a])
-      assert_equal [ 5, 1, 2 ]   , m1.score(c[:b_d])
-
-      assert_equal nil           , m3.score(c[:a_a])
-      assert_equal nil           , m3.score(c[:a_b])
-      assert_equal nil           , m3.score(c[:b_b])
-      assert_equal [ 5, 0, rs ]  , m3.score(c[:c_a])
-      assert_equal [ 5, 0, rs ]  , m3.score(c[:c_c])
-
-      # Create a multimethod for later.
-      assert_not_nil mm = Multimethod.new(:test)
-      mm.add_method(m1)
-      mm.add_method(m2)
-      mm.add_method(m3)
-      mm.add_method(m4)
-
-      # Check method lookup.
-      assert_equal m1         , mm.lookup_method_(c[:a_a])
-      assert_equal m2         , mm.lookup_method_(c[:b_a])
-      assert_equal m2         , mm.lookup_method_(c[:b_b])
-
-      mm
-    end
-
-  end # class
-    
-end # module
-  

data/test/.svn/text-base/parameter_test.rb.svn-base

@@ -1,31 +0,0 @@
-require 'test_base'
-
-module Multimethod
-
-  class ParameterTest < TestBase
-
-    class A < Object; end
-    class B < A; end
-    class C < Object; end
-    class D < B; end
-
-    def setup
-      super
-    end
-    
-    def test_score
-      pA = Parameter.new(:a, A)
-      assert_equal 0,   pA.score(A)
-      assert_equal 1,   pA.score(B)
-      assert_equal nil, pA.score(C)
-      assert_equal 2,   pA.score(D)
-
-      pB = Parameter.new(:b, B)
-      assert_equal nil, pB.score(A)
-      assert_equal 0,   pB.score(B)
-      assert_equal nil, pB.score(C)
-      assert_equal 1,   pB.score(D)
-    end
-  end # class
-  
-end # module

data/test/.svn/text-base/test_base.rb.svn-base

@@ -1,25 +0,0 @@
-require 'test/unit'
-require 'multimethod'
-
-module Multimethod
-
-  class TestBase < Test::Unit::TestCase
-    def setup
-      super
-    end
-    
-    # Avoid "No test were specified" error.
-    def test_foo
-      assert true
-    end
-    
-    # Helpers.
-    def assert_equal_float(x, y, eps = 1.0e-8)
-      d = (x * eps).abs
-      assert (x - d) <= y
-      assert y <= (x + d)
-    end
-    
-  end # class
-
-end # module