case 0.1

data/Rakefile

@@ -0,0 +1,42 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/rdoctask'
+require 'rake/gempackagetask'
+require 'rake/clean'
+
+GEM_VERSION = "0.1"
+
+Rake::RDocTask.new do |task|
+  task.rdoc_files.add [ 'lib/**/*.rb' ]
+end
+
+task :clobber => [ :clean ]
+
+Rake::TestTask.new do |task|
+  task.ruby_opts << '-rrubygems'
+  task.libs << 'lib'
+  task.libs << 'test'
+  task.test_files = [ "test/test_all.rb" ]
+  task.verbose = true
+end
+
+gemspec = Gem::Specification.new do |gemspec|
+  gemspec.name = "case"
+  gemspec.version = GEM_VERSION
+  gemspec.author = "MenTaLguY <mental@rydia.net>"
+  gemspec.summary = "Pattern matching for Ruby"
+  gemspec.test_file = 'test/test_all.rb'
+  gemspec.files = FileList[ 'Rakefile', 'test/*.rb', 'lib/**/*.rb' ]
+  gemspec.require_paths = [ 'lib' ]
+  gemspec.has_rdoc = true
+  gemspec.platform = Gem::Platform::RUBY
+end
+
+task :package => [ :clean, :test ]
+Rake::GemPackageTask.new( gemspec ) do |task|
+  task.gem_spec = gemspec
+  task.need_tar = true
+end
+
+task :default => [ :clean, :test ]
+

data/lib/case.rb

@@ -0,0 +1,75 @@
+# case.rb - pattern matching for Ruby
+#
+# Copyright 2008  MenTaLguY <mental@rydia.net>
+#
+# This library is made available under the same terms as Ruby.
+#
+
+module Case
+
+# Like regular Struct, except that Struct#=== performs a structural match
+class Struct < ::Struct
+  def ===(other)
+    return false unless self.class == other.class
+    zip(other) { |a, b| return false unless a === b }
+    true
+  end
+end
+
+# Pattern-matching disjunction
+class Any
+  class << self
+    alias_method :[], :new
+  end
+
+  def initialize(*options)
+    @options = options
+  end
+
+  def options
+    @options.dup
+  end
+
+  def ===(obj)
+    @options.any? { |e| e === obj }
+  end
+end
+
+# Pattern-matches with an Array or Tuple
+class Sequence
+  class << self
+    alias_method :[], :new
+  end
+
+  def initialize(*elements)
+    @elements = elements
+  end
+
+  def elements
+    @elements.dup
+  end
+
+  def ===(other)
+    return false unless Tuple === other or Array === other
+    return false unless @elements.size == other.size
+    @elements.zip(other) { |a, b| return false unless a === b }
+    true
+  end
+end
+
+class Predicate
+  def initialize(&predicate)
+    @predicate = predicate
+  end
+
+  def ===(other)
+    @predicate.call other
+  end
+end
+
+# Shorthand for Case::Sequence.[]
+def self.[](*args)
+  Sequence[*args]
+end
+
+end

metadata

@@ -0,0 +1,47 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: case
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+date: 2008-01-15 00:00:00 -05:00
+summary: Pattern matching for Ruby
+require_paths: 
+- lib
+email: 
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- MenTaLguY <mental@rydia.net>
+files: 
+- Rakefile
+- test/test_all.rb
+- lib/case.rb
+test_files: 
+- test/test_all.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+