call-me 0.0.1.1 → 0.0.2

data/lib/call-me/pattern-matching.rb

@@ -8,19 +8,66 @@
 # 0. You just DO WHAT THE FUCK YOU WANT TO.
 #++
 
+require 'refining'
+
 class Module
 	private
 
+	def __pattern_match (name)
+		pattern_matched = (__pattern_matched__[name] ||= {})
+		pattern_matched[@__to_pattern_match__ || :default] = instance_method(name)
+
+		remove_instance_variable :@__to_pattern_match__ if @__to_pattern_match__
+
+		define_method name do |*args, &block|
+			pattern_matched.each {|signature, body|
+				return body.bind(self).call(*args, &block) if (if signature.is_a?(Proc)
+					if !body.parameters.empty? && signature.parameters.empty?
+						names     = body.parameters.map { |p| p[1] }
+						arguments = args.dup
+
+						if names.last.nil?
+							names[-1]                   = :rest
+							arguments[names.length - 1] = arguments.pop(names.length)
+						end
+
+						Struct.new(*names).new(*arguments).instance_exec &signature
+					else
+						instance_exec *args, &signature
+					end
+				else
+					signature == args
+				end)
+			}
+
+			return pattern_matched[:default].bind(self).call(*args, &block) if pattern_matched[:default]
+
+			raise ArgumentError, "non-exhaustive patterns"
+		end
+	end
+
+	def __pattern_matched__
+		@__pattern_matched__ ||= {}
+	end
+
+	def is_pattern_matched? (name)
+		__pattern_matched__.has_key?(name)
+	end
+
+	def def_pattern (*sign)
+		@__to_pattern_match__ = sign.first.is_a?(Proc) ? sign.first : sign
+	end
+
 	public
 
 	def define_pattern_matched (name, default = nil, matchers)
 		define_method name do |*args|
 			matchers.each {|signature, body|
-				if signature.is_a?(Proc)
-					return instance_exec *args, &body if signature.call(*args)
+				return instance_exec *args, &body if (if signature.is_a?(Proc)
+					signature.call(*args)
 				else
-					return instance_exec *args, &body if (signature.is_a?(Array) ? signature : [signature]) == args
-				end
+					(signature.is_a?(Array) ? signature : [signature]) == args
+				end)
 			}
 
 			return instance_exec *args, &default if default

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: call-me
 version: !ruby/object:Gem::Version
-  version: 0.0.1.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -13,7 +13,7 @@ date: 2011-12-06 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: refining
-  requirement: &15926480 !ruby/object:Gem::Requirement
+  requirement: &19370140 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,10 +21,10 @@ dependencies:
         version: '0'
   type: :runtime
   prerelease: false
-  version_requirements: *15926480
+  version_requirements: *19370140
 - !ruby/object:Gem::Dependency
   name: rake
-  requirement: &15925580 !ruby/object:Gem::Requirement
+  requirement: &19383280 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -32,10 +32,10 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *15925580
+  version_requirements: *19383280
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &15924740 !ruby/object:Gem::Requirement
+  requirement: &19382020 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -43,7 +43,7 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *15924740
+  version_requirements: *19382020
 description: 
 email: meh@paranoici.org
 executables: []