rubymurray 0.1.2

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c)2006 Ross Bamford. All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in 
+the Software without restriction, including without limitation the rights to 
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies 
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+

data/README

@@ -0,0 +1,35 @@
+= Ruby Murray - Ruby version of Perl's Sub::Curry.
+== (c)2006 Ross Bamford 
+
+Originally for Ruby Quiz 64. License: see +LICENSE+.
+See +Curry+ for documentation and the currybook for examples.
+
+You can download Ruby Murray from the Project Homepage on Rubyforge.
+
+== Install
+
+=== As a Gem:
+
+	gem install rubymurray
+	
+=== Manual (site-ruby)
+
+	ruby setup.rb
+	
+or
+
+	rake install
+
+== Usage
+
+See currybook.rdoc for examples and ideas. See also the unit-tests
+included with the distribution.
+
+== Changelog
+
+ 0.1.0 - 2005/01/27 - First version (Ruby Quiz #64)
+ 0.1.2 - 2005/02/02 - Changed call_spice behaviour when processing
+                      leftover SpiceArgs, arg is now called with 
+                      no remaining args.
+                      
+                      Released on RubyForge.

data/Rakefile

@@ -0,0 +1,379 @@
+require 'rake/testtask'
+require 'rake/rdoctask'
+require 'rake/gempackagetask'
+
+SRC_RB = FileList['lib/**/*.rb']
+
+# Determine the current version of the software
+if File.read('lib/curry.rb') =~ /\s*VERSION\s*=\s*['"](\d.+)['"]/
+  CURRENT_VERSION = $1
+else
+  CURRENT_VERSION = "0.0.0"
+end
+
+if ENV['REL']
+  PKG_VERSION = ENV['REL']
+else
+  PKG_VERSION = CURRENT_VERSION
+end
+
+# The default task is run if rake is given no explicit arguments.
+
+desc "Default Task (All tests)"
+task :default => :alltests
+
+# Test Tasks ---------------------------------------------------------
+
+task :ta => :alltests
+task :tu => :unittests
+task :test => :unittests
+
+Rake::TestTask.new(:alltests) do |t|
+  t.test_files = FileList[
+    'test/tc*.rb',
+    'test/contrib/tc*.rb',
+    'test/fun*.rb'
+  ]
+  t.warning = true
+  t.verbose = true
+end
+
+Rake::TestTask.new(:unittests) do |t|
+  t.test_files = FileList['test/tc_*.rb']
+  t.warning = true
+  t.verbose = false
+end
+
+# Install using the standard setup.rb script.
+desc "Install to systemwide site-ruby directory"
+task :install do
+  ruby "setup.rb"
+end
+
+task :upload => :doc do
+  Dir.chdir('doc') do
+    Rake::FtpUploader.connect('/htdocs/roscopeco/code/ruby-quiz-entries/64','roscopeco.co.uk','synergix','daytona') do |ftp|
+      ftp.instance_eval { @ftp.passive = true }
+      ftp.verbose = true
+      ftp.upload_files('**/*')
+    end
+  end
+end
+
+# Website / Doc tasks ------------------------------------------------
+
+desc "Build the Rdoc documentation"
+rd = Rake::RDocTask.new("doc") { |rdoc|
+  rdoc.rdoc_dir = 'html'
+  rdoc.template = 'doc/jamis.rb'
+  rdoc.title    = "Ruby Murray"
+  rdoc.options << '--line-numbers' << '--inline-source' << '--main' << 'README'
+  rdoc.rdoc_files.include('README', 'LICENSE')
+  rdoc.rdoc_files.include('lib/**/*.rb', 'doc/**/*.rdoc')
+  rdoc.rdoc_files.exclude(/\bcontrib\b/)
+}
+
+desc "Publish the documentation and web site"
+task :doc_upload => [ :doc ] do
+  if acct = ENV['RUBYFORGE_ACCT']
+    require 'rake/contrib/sshpublisher'
+    Rake::SshDirPublisher.new(
+      "#{acct}@rubyforge.org",
+      "/var/www/gforge-projects/rote",
+      "html"
+    ).upload
+  else
+    $stderr << "Skipping documentation upload - Need to set RUBYFORGE_ACCT to your rubyforge.org user name"
+  end
+end
+
+# ====================================================================
+# Create a task that will package the software into distributable
+# tar, zip and gem files.
+
+PKG_FILES = FileList[
+  'setup.rb',
+  '[A-Z]*',
+  'lib/**/*.rb', 
+  'test/**/*',
+  'doc/**/*'
+]
+
+if ! defined?(Gem)
+  puts "Package Target requires RubyGEMs"
+else
+  spec = Gem::Specification.new do |s|
+    
+    #### Basic information.
+
+    s.name = 'rubymurray'
+    s.version = PKG_VERSION
+    s.summary = "A Ruby port of Perl's Sub::Curry"
+    s.description = <<-EOF
+      Ruby Murray is a Ruby port of Perl's Sub::Curry,
+      originally written for Ruby Quiz #64 (Port a library).
+    EOF
+
+    #### Which files are to be included in this gem? 
+
+    s.files = PKG_FILES.to_a
+
+    #### Load-time details
+    s.require_path = 'lib'                         # Use these for libraries.
+    
+    #### Documentation and testing.
+    s.has_rdoc = true
+    s.extra_rdoc_files = rd.rdoc_files.reject { |fn| fn =~ /\.rb$/ }.to_a
+    s.rdoc_options <<
+      '--title' <<  'Ruby Murray' <<
+      '--main' << 'README' <<
+      '--line-numbers' << 
+      '--inline-source' <<
+      '--template' << 'doc/jamis.rb'
+      '-o' << 'html'      
+
+    s.test_files = Dir.glob('test/gem_*.rb')
+    
+    #### Author and project details.
+
+    s.author = "Ross Bamford"
+    s.email = "ross@roscopeco.co.uk"
+    s.homepage = "http://rubymurray.rubyforge.org"
+    s.rubyforge_project = "rubymurray"
+  end
+  
+  # Quick fix for Ruby 1.8.3 / YAML bug
+  if (RUBY_VERSION == '1.8.3')
+    def spec.to_yaml
+      out = super
+      out = '--- ' + out unless out =~ /^---/
+      out
+    end  
+  end
+
+  package_task = Rake::GemPackageTask.new(spec) do |pkg|
+    pkg.need_zip = true
+    pkg.need_tar_gz = true
+    pkg.package_dir = 'pkg'    
+  end
+end
+
+# Misc tasks =========================================================
+
+def count_lines(filename)
+  lines = 0
+  codelines = 0
+  open(filename) { |f|
+    f.each do |line|
+      lines += 1
+      next if line =~ /^\s*$/
+      next if line =~ /^\s*#/
+      codelines += 1
+    end
+  }
+  [lines, codelines]
+end
+
+def show_line(msg, lines, loc)
+  printf "%6s %6s   %s\n", lines.to_s, loc.to_s, msg
+end
+
+desc "Count total lines in source"
+task :lines do
+  total_lines = 0
+  total_code = 0
+  show_line("File Name", "LINES", "LOC")
+  SRC_RB.each do |fn|
+    lines, codelines = count_lines(fn)
+    show_line(fn, lines, codelines)
+    total_lines += lines
+    total_code  += codelines
+  end
+  show_line("TOTAL", total_lines, total_code)
+end
+
+ARCHIVEDIR = '/mnt/usb'
+
+task :archive => [:package] do
+  cp FileList["pkg/*.tar.gz", "pkg/*.zip", "pkg/*.gem"], ARCHIVEDIR
+end
+
+# Support Tasks ------------------------------------------------------
+
+desc "Look for TODO and FIXME tags in the code"
+task :todo do
+  FileList['**/*.rb'].egrep /#.*(FIXME|TODO|TBD)/
+end
+
+desc "Look for Debugging print lines"
+task :dbg do
+  FileList['**/*.rb'].egrep /\bDBG|\bbreakpoint\b/
+end
+
+desc "List all ruby files"
+task :rubyfiles do 
+  puts Dir['**/*.rb'].reject { |fn| fn =~ /^pkg/ }
+  puts Dir['bin/*'].reject { |fn| fn =~ /CVS|(~$)|(\.rb$)/ }
+end
+
+desc "Show deprecation notes"
+task :deprecated do
+  Dir['lib/**/*.r?'].each do |fn|
+    File.open(fn) do |f| 
+      [*f].each_with_index do |line,i| 
+        if line =~ /#(.*)vv([0-9\.]+)(?:[\s\t]*)v-([0-9\.]+)/
+          cmnt = $~[1].strip
+          cmnt = '<No comment>' if (cmnt.nil? or cmnt.empty?)          
+          printf "%s:%d\n%-60s    %5s    %5s\n\n", fn, i+1, cmnt, $~[2].strip, $~[3].strip
+        end #if splits okay
+      end #each_w_idx
+    end #fopen
+  end #dir
+end
+
+desc "Find features deprecated at VER"
+task :deprecated_by do
+  fail "\nYou must specify the version to check (VER=x.y.z)\n\n" unless ver = ENV['VER']
+  Dir['lib/**/*.r?'].each do |fn|
+    File.open(fn) do |f| 
+      [*f].each_with_index do |line,i| 
+        if line =~ /vv#{ver}/
+          if line =~ /#(.*)vv([0-9\.]+)(?:[\s\t]*)v-([0-9\.]+)/
+            cmnt = $~[1].strip
+            cmnt = '<No comment>' if (cmnt.nil? or cmnt.empty?)          
+            printf "%s:%d\n%-60s    %5s    %5s\n\n", fn, i+1, cmnt, $~[2].strip, $~[3].strip
+          end #if splits okay
+        end #if line is dep remove
+      end #each_w_idx
+    end #fopen
+  end #dir
+end
+
+desc "Find deprecated features to be removed by VER"
+task :deprecated_due do
+  fail "\nYou must specify the version to check (VER=x.y.z)\n\n" unless ver = ENV['VER']
+  Dir['lib/**/*.r?'].each do |fn|
+    File.open(fn) do |f| 
+      [*f].each_with_index do |line,i| 
+        if line =~ /v-#{ver}/
+          if line =~ /#(.*)vv([0-9\.]+)(?:[\s\t]*)v-([0-9\.]+)/
+            cmnt = $~[1].strip
+            cmnt = '<No comment>' if (cmnt.nil? or cmnt.empty?)          
+            printf "%s:%d\n%-60s    %5s    %5s\n\n", fn, i+1, cmnt, $~[2].strip, $~[3].strip
+          end #if splits okay
+        end #if line is dep remove
+      end #each_w_idx
+    end #fopen
+  end #dir
+end
+
+# --------------------------------------------------------------------
+# Creating a release
+
+def announce(msg='')
+  STDERR.puts msg
+end
+  
+desc "Make a new release"
+task :release => [
+  :prerelease,
+  :clobber,
+  :alltests,
+  :update_version,
+  :package,
+  :tag,
+  :doc_upload] do
+  
+  announce 
+  announce "**************************************************************"
+  announce "* Release #{PKG_VERSION} Complete."
+  announce "* Packages ready to upload."
+  announce "**************************************************************"
+  announce 
+end
+
+# Validate that everything is ready to go for a release.
+task :prerelease do
+  announce 
+  announce "**************************************************************"
+  announce "* Making RubyGem Release #{PKG_VERSION}"
+  announce "* (current version #{CURRENT_VERSION})"
+  announce "**************************************************************"
+  announce  
+
+  # Is a release number supplied?
+  unless ENV['REL']
+    fail "Usage: rake release REL=x.y.z [REUSE=tag_suffix]"
+  end
+
+  # Is the release different than the current release.
+  # (or is REUSE set?)
+  if PKG_VERSION == CURRENT_VERSION && ! ENV['REUSE']
+    fail "Current version is #{PKG_VERSION}, must specify REUSE=tag_suffix to reuse version"
+  end
+
+  # Are all source files checked in?
+  if ENV['RELTEST']
+    announce "Release Task Testing, skipping checked-in file test"
+  else
+    announce "Checking for unchecked-in files..."
+    data = `svn status`
+    unless data =~ /^$/
+      fail "SVN status is not clean ... do you have unchecked-in files?"
+    end
+    announce "No outstanding checkins found ... OK"
+  end
+end
+
+task :update_version => [:prerelease] do
+  if PKG_VERSION == CURRENT_VERSION
+    announce "No version change ... skipping version update"
+  else
+    announce "Updating Curry version to #{PKG_VERSION}"
+    open("lib/curry.rb") do |rakein|
+      open("lib/curry.rb.new", "w") do |rakeout|
+	rakein.each do |line|
+	  if line =~ /^\s*VERSION\s*=\s*/
+	    rakeout.puts "  VERSION = '#{PKG_VERSION}'"
+	  else
+	    rakeout.puts line
+	  end
+	end
+      end
+    end
+    mv "lib/curry.rb.new", "lib/curry.rb"
+    if ENV['RELTEST']
+      announce "Release Task Testing, skipping commiting of new version"
+    else
+      sh %{svn commit -m "Updated to version #{PKG_VERSION}" lib/curry.rb}
+    end
+  end
+end
+
+desc "Create a new SVN tag with the latest release number (REL=x.y.z)"
+task :tag => [:prerelease] do
+  reltag = "REL_#{PKG_VERSION.gsub(/\./, '_')}"
+  reltag << ENV['REUSE'].gsub(/\./, '_') if ENV['REUSE']
+  announce "Tagging CVS with [#{reltag}]"
+  if ENV['RELTEST']
+    announce "Release Task Testing, skipping SVN tagging"
+  else
+    # need to get current base URL
+    s = `svn info`
+    if s =~ /URL:\s*([^\n]*)\n/
+      svnroot = $1
+      if svnroot =~ /^(.*)\/trunk/
+        svnbase = $1
+        sh %{svn cp #{svnroot} #{svnbase}/tags/#{reltag} -m "Release #{PKG_VERSION}"}
+      else
+        fail "Please merge to trunk before making a release"
+      end
+    else 
+      fail "Unable to determine repository URL from 'svn info' - is this a working copy?"
+    end  
+  end
+end
+
+# Require experimental XForge/Metaproject support.
+# load 'xforge.rf' if File.exist?('xforge.rf')
+

data/doc/currybook.rdoc

@@ -0,0 +1,146 @@
+== The Ruby Murray Cookbook - Recipes for Ruby's Sub::Curry port.
+ 
+This is a translation of the Sub::Curry cookbook to Ruby Murray.
+See the original at:
+ 
+* http://search.cpan.org/~lodin/Sub-Curry-0.8/lib/Sub/Curry/Cookbook.pod
+
+(c)2006 Ross Bamford. Same license as Ruby.
+
+In case you're wondering, see http://en.wikipedia.org/wiki/Ruby_Murray.
+
+=== Right currying
+ 
+Special spices make rcurry unnecessary. You can add trailing
+spice using blackholes.
+
+  c = lambda { |a,b,c| (a + b) / c }.curry(Curry::BLACKHOLE, 2)
+  c.call(5,3)
+  # => 4
+
+=== Convert func -> method / method -> func / Curry a method
+ 
+These are not really applicable to Ruby - the original was working around
+Perl's broken implementation. But I guess something like:
+
+  def send_func(obj, msg, *args)
+    obj.send(msg,*args)
+  end
+
+  c = method(:send_func).curry("object")
+
+  c.call(:length)
+  # => 6
+
+  c.call(:+, "ive C")
+  # => "objective C"
+
+And (more useful?):
+
+  c = "string".method(:slice).curry(Curry::HOLE,2)
+  c.call(0)
+  # => "st"
+  c.call(2)
+  # => "ri"
+
+=== Add trailing spice after a hole in a curried proc
+
+You have a hole in your curried subroutine but want to add more spices 
+after or fill out holes after your first hole 
+
+Assuming no special spice before the hole, just put a hole in the hole.
+
+  plus = method(:send_func).curry(Curry::HOLE,:+)
+  "#{plus.spice.inspect} -> #{plus.call("object","ive")}"
+  # => "[<HOLE>, :+] -> objective"
+
+  plusion = plus.new(Curry::HOLE, "ion")
+  "#{plusion.spice.inspect} -> #{plusion.call("object")}"
+  # => "[<HOLE>, :+, "ion"] -> objection"
+
+=== Add trailing spice after a blackhole
+ 
+You want to add more spice, but have a blackhole that swallows anything
+you try to put in there. You want to keep the blackhole, though.
+
+  withtwo = method(:send_func).curry(Curry::BLACKHOLE,2)
+  "#{withtwo.spice.inspect} -> #{withtwo.call([1,2,3,4],:index).inspect}"
+  # => "[<BLACKHOLE>, 2] -> 1"
+
+Using a blackhole follwed by a whitehole, we can add extra spice at the
+end:
+
+  twooh = withtwo.new(Curry::BLACKHOLE, Curry::WHITEHOLE, 0)
+  "#{twooh.spice.inspect} -> #{twooh.call([1,2,3,4],:[]=).inspect}"
+  # => "[<BLACKHOLE>, 2, 0] -> 0"
+
+Or by placing spice between the black and white holes we can place it
+immediately after the original blackhole.
+
+  ohtwo = withtwo.new(Curry::BLACKHOLE, 0, Curry::WHITEHOLE)
+  "#{ohtwo.spice.inspect} -> #{ohtwo.call([1,2,3,4],:slice).inspect}"
+  # => "[<BLACKHOLE>, 0, 2] -> [1, 2]"
+
+By giving the blackhole another blackhole, you have two successive 
+blackholes, the first newly added and the second the one that added the 
+new. The whitehole is then removes the second blackhole -- the blackhole 
+doing the inserting. The spice is then added like usual, yet a blackhole 
+exists at the right place.
+
+=== Append raw spice without processing
+
+You have a curry that may have special spices in it. You want to add more
+spices. You do not want the new spice to be processed as an application on
+the old spice. You just want to append more spice.
+
+To do this, you'll have to manually get the parts you need and make
+a new curry, since applying the new spice the usual way results in it 
+being processed.
+
+  sary = lambda { |*args| args }.curry(Curry::HOLE,'Array')
+  "#{sary.spice.inspect} -> #{sary.call('The',2,3).inspect}"
+  # => "[<HOLE>, "Array"] -> ["The", "Array", 2, 3]"
+
+  sary2 = Curry.new(*sary.spice + [Curry::BLACKHOLE, 'The end'], &sary.uncurried)
+  "#{sary2.spice.inspect} -> #{sary2.call('The',2,3).inspect}"
+  # => "[<HOLE>, "Array", <BLACKHOLE>, "The end"] -> ["The", "Array", 2, 3, "The end"]"
+
+=== Pass curries as blocks to methods
+
+Curry implements the to_proc protocol so you're away.
+
+  adjsum = lambda { |sum, val, adj| sum + (val * adj) }.curry(Curry::BLACKHOLE, 2)
+  [1,2,3,4,5].inject(0,&adjsum)
+  # => 30
+
+=== Apply block arguments via spice
+
+Right now, Curry doesn't treat block arguments in the spice specially, and in 
+particular won't unwrap (with &) a block at the end of your spice. Also, since
+it's not possible to pass a block to another block, you cannot pass blocks
+to your curried procs or chain them together. 
+
+You *can* pass blocks to curried methods in a call, but *only* when they're
+created from bound methods (passed before the spice, or from Method#curry).
+
+  curry = [10,20,30].method(:inject).curry(Curry::HOLE)
+  curry.call(0) { |s,i| s + i }
+  # => 60
+
+Taking this a step further, you can do some pretty mad stuff:
+
+  mult_sum = lambda { |sum, i, mult| sum + (i * mult) }.curry(Curry::BLACKHOLE, Curry::HOLE)
+
+  double_sum = mult_sum.new(Curry::BLACKHOLE, Curry::WHITEHOLE, 2)
+  triple_sum = mult_sum.new(Curry::BLACKHOLE, Curry::WHITEHOLE, 3)
+
+  curry.call(0, &double_sum)
+  # => 120
+
+  curry.call(0, &triple_sum)
+  # => 180
+
+(Wow, that's pretty useless ;)) Ruby doesn't allow block arguments to blocks, 
+so a block attached to a curried proc invocation is ignored.
+
+