multimethod 0.0.1

data/Releases.txt

@@ -0,0 +1,7 @@
+= Multimethod Release History
+
+== Release 0.0.1: 2006/11/18
+
+* Initial Release
+* TODO
+  *  Fix how default parameters are scored.

data/examples/.svn/README.txt

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

data/examples/.svn/entries

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8"?>
+<wc-entries
+   xmlns="svn:">
+<entry
+   committed-rev="4"
+   name=""
+   committed-date="2006-11-21T16:23:41.780783Z"
+   url="svn+ssh://rubyforge.org/var/svn/multimethod/multimethod/trunk/examples"
+   last-author="kstephens"
+   kind="dir"
+   repos="svn+ssh://rubyforge.org/var/svn/multimethod"
+   revision="4"/>
+<entry
+   committed-rev="4"
+   name="ex1.rb"
+   text-time="2006-11-21T16:20:01.000000Z"
+   committed-date="2006-11-21T16:23:41.780783Z"
+   checksum="f101c5d90dab219e7170b1f5dc373a65"
+   last-author="kstephens"
+   kind="file"
+   prop-time="2006-11-21T16:20:23.000000Z"/>
+</wc-entries>

data/examples/.svn/format

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

data/examples/.svn/props/ex1.rb.svn-work

@@ -0,0 +1,5 @@
+K 14
+svn:executable
+V 1
+*
+END

data/examples/ex1.rb

@@ -0,0 +1,26 @@
+require 'multimethod'
+
+class A
+  multimethod %q{
+  def foo(x) # matches any argument type
+     "#{x.inspect}"
+  end
+  }
+
+  multimethod %q{
+  def foo(Fixnum x) # matches any Fixnum
+     "Fixnum #{x.inspect}"
+  end
+  }
+
+  multimethod %q{
+  def foo(Numeric x) # matches any Numeric
+     "Numeric #{x.inspect}"
+  end
+  }
+end
+
+a = A.new
+puts a.foo(:symbol) # ==> ":symbol"
+puts a.foo(45)      # ==> "Fixnum 45"
+puts a.foo(12.34)      # ==> "Numeric 12.34"

data/lib/.svn/README.txt

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

data/lib/.svn/entries

@@ -0,0 +1,24 @@
+<?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/lib"
+   last-author="kstephens"
+   kind="dir"
+   repos="svn+ssh://rubyforge.org/var/svn/multimethod"
+   revision="3"/>
+<entry
+   name="multimethod"
+   kind="dir"/>
+<entry
+   committed-rev="3"
+   name="multimethod.rb"
+   text-time="2006-11-21T01:47:12.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="2c65a931e6bd7e177e8996701aca212e"
+   last-author="kstephens"
+   kind="file"/>
+</wc-entries>

data/lib/.svn/format

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

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

@@ -0,0 +1,8 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'multimethod/table'
+require 'multimethod/multimethod'
+require 'multimethod/method'
+require 'multimethod/parameter'
+require 'multimethod/core_extensions'

data/lib/multimethod.rb

@@ -0,0 +1,8 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'multimethod/table'
+require 'multimethod/multimethod'
+require 'multimethod/method'
+require 'multimethod/parameter'
+require 'multimethod/core_extensions'

data/lib/multimethod/.svn/README.txt

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

data/lib/multimethod/.svn/entries

@@ -0,0 +1,53 @@
+<?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/lib/multimethod"
+   last-author="kstephens"
+   kind="dir"
+   repos="svn+ssh://rubyforge.org/var/svn/multimethod"
+   revision="3"/>
+<entry
+   committed-rev="3"
+   name="method.rb"
+   text-time="2006-11-21T07:19:37.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="5135e392406babb4d5ffcca1a811af25"
+   last-author="kstephens"
+   kind="file"/>
+<entry
+   committed-rev="3"
+   name="parameter.rb"
+   text-time="2006-11-21T07:10:23.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="60480a946dd2a2fab636bf4c58cb4573"
+   last-author="kstephens"
+   kind="file"/>
+<entry
+   committed-rev="3"
+   name="core_extensions.rb"
+   text-time="2006-11-21T05:31:07.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="ef874d003a994297723e0f07542f168a"
+   last-author="kstephens"
+   kind="file"/>
+<entry
+   committed-rev="3"
+   name="table.rb"
+   text-time="2006-11-21T06:52:05.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="899e5b9f61261a2e9b2da3d00a34d8db"
+   last-author="kstephens"
+   kind="file"/>
+<entry
+   committed-rev="3"
+   name="multimethod.rb"
+   text-time="2006-11-21T07:30:13.000000Z"
+   committed-date="2006-11-21T15:59:22.761488Z"
+   checksum="32769979f54ce8f8d23f99f098150e1e"
+   last-author="kstephens"
+   kind="file"/>
+</wc-entries>

data/lib/multimethod/.svn/format

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

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

@@ -0,0 +1,38 @@
+module Multimethod
+
+  module ObjectExtension
+    def self.append_features(base) # :nodoc:
+      # puts "append_features{#{base}}"
+      super
+      base.extend(ClassMethods)
+    end
+
+    module ClassMethods
+      def multimethod(body, file = nil, line = nil)
+        unless file && line
+          fileline = caller(1)[0]
+          if fileline && md = /^(.*):(\d+)$/.match(fileline)
+            file, line = md[1], md[2].to_i
+            
+            newlines = 0
+            body.gsub(/\n/s){|x| newlines = newlines + 1}
+            line -= newlines
+          end
+          
+          # $stderr.puts "file = #{file.inspect}, line = #{line.inspect}"
+        end
+        
+        ::Multimethod::Table.instance.install_method(self, body, file, line)
+      end
+    end
+  end # class
+end # module
+
+
+# Add to Module
+Object.class_eval do
+  include Multimethod::ObjectExtension
+end
+
+
+

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

@@ -0,0 +1,232 @@
+module Multimethod
+
+  class Method
+    attr_accessor :mod
+    attr_accessor :name
+    attr_accessor :parameter
+
+    attr_accessor :min_args
+    attr_accessor :max_args
+    attr_accessor :restarg
+    attr_accessor :default
+
+    attr_accessor :multimethod
+    attr_accessor :file
+    attr_accessor :line
+
+    def initialize(mod, name, params)
+      raise NameError, "multimethod method name not specified" unless name && name.to_s.size > 0
+
+      name = Multimethod.normalize_name(name)
+
+      @mod = mod
+      @name = name
+      @parameter = [ ]
+      @min_args = 0
+      @max_args = 0
+      @restarg = nil
+      @default = nil
+
+      @score = { }
+
+      # Add self parameter at front.
+      add_parameter(Parameter.new('self', mod))
+
+      # Handle other parameters.
+      case params
+      when Array
+        scan_parameters(params)
+      when String
+        scan_parameters_string(params)
+      end
+    end
+    
+
+    # For sort
+    def <=>(x)
+      0
+    end
+
+
+    def scan_parameters_string(params)
+
+      #$stderr.puts "scan_parameters_string(#{params.inspect})"
+
+      str = params.clone
+
+      until str.empty?
+        name = nil
+        type = nil
+        default = nil
+        
+        str.sub!(/^\s+/, '')
+
+        # $stderr.puts "  str=#{str.inspect}"
+        
+        if md = /^(\w+(::\w+)*)\s+(\w+)/i.match(str)
+          str = md.post_match
+          type = md[1]
+          name = md[3]
+        elsif md = /^(\*?\w+)/i.match(str)
+          str = md.post_match
+          type = nil
+          name = md[1]
+        else
+          raise NameError, "Syntax error in multimethod parameters: #{params.inspect} before #{str.inspect}"
+        end
+        
+        if md = /^\s*=\s*([^,]+)/.match(str)
+          str = md.post_match
+          default = md[1]
+        end
+        
+        
+        str.sub!(/^\s+/, '')
+        if ! str.empty? 
+          if md = /^,/.match(str)
+            str = md.post_match
+          else
+            raise NameError, "Syntax error in multimethod parameters: expected ',' before #{str.inspect}"
+          end
+        end
+        
+        p = Parameter.new(name, type, default)
+        add_parameter(p)
+      end
+    end
+
+
+    def scan_parameters(params)
+      until params.empty?
+        name = nil
+        type = nil
+        restarg = false
+        default = nil
+        
+        if x = params.shift
+          case x
+          when Class
+            type = x
+          else
+            name = x
+          end
+        end
+
+        if ! name && (x = params.shift)
+          name = x
+        end
+
+        raise("Parameter name expected, found #{name.inspect}") unless name.kind_of?(String) || name.kind_of?(Symbol)
+        raise("Parameter type expected, found #{type.inspect}") unless type.kind_of?(Module) || type.nil?
+
+        p = Parameter.new(name, type, default)
+        add_parameter(p)
+      end
+
+    end
+    
+    def add_parameter(p)
+      if p.restarg
+        raise("Too many restargs") if @restarg
+        @restarg = p
+        @max_args = nil
+      end
+      if p.default
+        (@default ||= [ ]).push(p)
+      end
+
+      p.i = @parameter.size
+      @parameter.push(p)
+      p.method = self
+
+      unless p.default || p.restarg
+        @min_args = @parameter.size
+      end
+
+      unless @restarg
+        @max_args = @parameter.size
+      end
+    end
+
+
+    def score_cached(args)
+      unless x = @score[args]
+        x = @score[args] =
+          score(args)
+      end
+      x
+    end
+
+
+    def score(args)
+      
+      if @min_args > args.size
+        # Not enough args
+        score = nil
+      elsif @max_args && @max_args < args.size
+        # Too many args?
+        # $stderr.puts "max_args = #{@max_args}, args.size = #{args.size}"
+        score = nil
+      else
+        # Interpret how close the argument type is to the parameter's type.
+        i = -1
+        score = args.collect{|a| parameter_at(i = i + 1).score(a)}
+
+        # Handle score for trailing restargs.
+        if @restarg || @default
+          while (i = i + 1) < @parameter.size
+            # $stderr.puts "  Adding score i=#{i}"
+            score << parameter_at(i).score(NilClass)
+          end
+        end
+
+        # If any argument cannot match, avoid this method.
+        score = nil if score.index(nil)
+      end
+
+      # if true || @name =~ /_bar$/
+      #   $stderr.puts "    Method: score #{self.to_s} #{args.inspect} => #{score.inspect}"
+      # end
+
+      score
+    end
+    
+
+    def parameter_at(i)
+      if i >= @parameter.size && @restarg
+        @restarg
+      else
+        @parameter[i]
+      end
+    end
+
+ 
+    def parameter_to_s(p = nil)
+      p ||= @parameter
+      p.collect{|x| x.to_s_long}.join(', ')
+    end
+
+    def to_s(name = nil)
+      name ||= @name
+      p = @parameter.clone
+      rcvr = p.shift
+      "#{rcvr.type.name}##{name}(#{parameter_to_s(p)})"
+    end
+
+    def to_ruby
+      "def #{name}(#{to_s_arg})"
+    end
+
+    def to_s_arg
+      x = @parameter.clone
+      x.shift
+      x.collect{|x| x.to_ruby}.join(', ')
+    end
+
+    def inspect
+      to_s
+    end
+  end # class
+end # module
+
+