facets 2.1.3 → 2.2.0

data/lib/core/facets/array/unzip.rb

@@ -1,14 +0,0 @@
-class Array
-
-  # Unzip array.
-
-  def unzip(level)
-    raise ArgumentError, 'bad modulo' if size % level != 0
-    r = Array.new(level, [])
-    (0...size).each do |i|
-      r[i % level] += [self[i]]
-    end
-    r
-  end
-
-end

data/lib/core/facets/continuation.rb

@@ -1 +0,0 @@
-require 'facets/continuation/create.rb'

data/lib/core/facets/enumerable/collate.rb

@@ -1,104 +0,0 @@
-require 'enumerator'
-
-module Enumerable
-
-  # Like <tt>#map</tt>/<tt>#collect</tt>, but generates a Hash.  The block
-  # is expected to return two values: the key and the value for the new hash.
-  #
-  #   numbers  = (1..3)
-  #   squares  = numbers.collate { |n| [n, n*n] }   # { 1=>1, 2=>4, 3=>9 }
-  #   sq_roots = numbers.collate { |n| [n*n, n] }   # { 1=>1, 4=>2, 9=>3 }
-  #
-  # CREDIT: Trans
-  # CREDIT: Andrew Dudzik (adudzik)
-
-  def collate(&yld)
-    if yld
-      inject({}) do |h, *kv| # Used to be inject({}) do |h,kv|
-        r = *yld[*kv]        # The *-op works differnt from to_a on single element hash!!!
-        nk, nv = *r          # Used to be nk, nv = *yld[*kv].to_a.flatten
-        h[nk] = nv
-        h
-      end
-    else
-      Enumerator.new(self,:collate)  # Used to be Hash[*self.to_a] or Hash[*self.to_a.flatten]
-    end
-  end
-
-  alias :graph :collate
-
-  # Returns a new hash built by iterating through each key,value
-  # pair and updating the new hash.
-  #def collate  #:yield:
-  #  newhash = {}
-  #  each_pair{ |k,v| newhash.update(yield(k,v)) }
-  #  newhash
-  #end
-
-end
-
-
-class Hash
-
-  # In place version of #collate.
-  #
-  #   NOTE Hash#collate! is only useful for Hash. It is not generally
-  #        applicable to Enumerable.
-
-  def collate!(&yld)
-    replace(collate(&yld))
-  end
-
-  # Alias for #collate! (THIS WILL BE DEPRECATED)
-
-  alias :graph! :collate!
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TestEnumerableCollate < Test::Unit::TestCase
-
-    def test_collate_01
-      a = { :a => 1, :b => 2, :c => 3 }
-      e = { :a => 2, :b => 3, :c => 4 }
-      assert_equal( e, a.collate{ |k,v| { k => v+1 } } )
-    end
-
-    def test_collate_02
-      numbers  = (1..3)
-      squares  = numbers.collate{ |n| [n, n*n] }
-      assert_equal( {1=>1, 2=>4, 3=>9}, squares )
-    end
-
-    def test_collate_03
-      numbers  = (1..3)
-      sq_roots = numbers.collate{ |n| [n*n, n] }
-      assert_equal( {1=>1, 4=>2, 9=>3}, sq_roots )
-    end
-
-    def test_collate_01!
-      a = { :a => 1, :b => 2, :c => 3 }
-      e = { :a => 2, :b => 3, :c => 4 }
-      a.collate!{ |k,v| { k => v+1 } }
-      assert_equal( e, a )
-    end
-
-    def test_collate_02!
-      h  = {:a=>1,:b=>2,:c=>3}
-      h.collate!{ |k,v| [v, v*v] }
-      assert_equal( {1=>1, 2=>4, 3=>9}, h )
-    end
-
-  end
-
-=end

data/lib/core/facets/kernel/require_esc.rb

@@ -1,44 +0,0 @@
-require 'facets/kernel/op_esc'
-
-module Kernel
-
-  private
-
-  # Require a file with puncuation marks escaped.
-  #
-  #   require_esc '[].rb'
-  #
-  # in actuality requires the file 'op_fetch.rb'.
-
-  def require_esc( fpath )
-    fdir, fname = File.split(fpath)
-    ename = op_esc( fname )
-    case ename[-1,1] ; when '!','=','?' then ename = ename[0...-1] ; end
-    epath = File.join( fdir, ename )
-    require( epath )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_require_esc
-      assert_nothing_raised { require_esc 'facets/string/blank' }
-      assert( "".respond_to?( :blank? ) )
-    end
-
-  end
-
-=end

data/lib/more/facets/mapsend.rb

@@ -1,98 +0,0 @@
-# TITLE:
-#    Map Send and Threaded Map Send
-#
-# SUMMARY:
-#   Extensions for Enumerable to send a message to each member
-#   and collect the results.
-#
-# AUTHORS:
-#   - Sean O'Halpin
-#
-# LOG:
-#   - Depreacated instance_map and instance_select.
-#
-# TODOs:
-#   - Better names for these methods.
-#
-# COPYRIGHT:
-#   Copyright (c) 2006 Sean O'Halpin
-#
-# LICENSE:
-#   Ruby License
-#
-#   This module is free software. You may use, modify, and/or redistribute this
-#   software under the same terms as Ruby.
-#
-#   This program is distributed in the hope that it will be useful, but WITHOUT
-#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-#   FOR A PARTICULAR PURPOSE.
-
-#
-module Enumerable
-
-  #
-  # Send a message to each element and collect the result.
-  #
-  def map_send(meth, *args) #:yield:
-    if block_given?
-      map{|e| yield(e.send(meth, *args))}
-    else
-      map{|e| e.send(meth, *args)}
-    end
-  end
-
-  #
-  #
-  #
-  def threaded_map #:yield:
-    require 'thread'
-
-    map{|e| Thread.new(e){|t| yield t}}.map_send(:value)
-  end
-
-  #
-  #
-  #
-  def threaded_map_send(meth, *args) #:yield:
-    require 'thread'
-
-    if block_given?
-      map{|e| Thread.new(e){|t| yield t.send(meth, *args)}}.map_send(:value)
-    else
-      map{|e| Thread.new(e){|t| t.send(meth, *args)}}.map_send(:value)
-    end
-  end
-
-
-#   # Cascade actions on each enumerated element.
-#   #
-#   #   [9, 19, 29].cascade :succ, :to_s, :reverse
-#   #   => ["01", "02", "03"]
-#   #
-#   # See ruby-talk:199877.
-#   def cascade(*methods)
-#     methods.inject(self){ |ary, method| ary.map{ |x| x.send(method)}}
-#   end
-
-end
-
-
-=begin test
-
-  require 'test/unit'
-
-  class TestThreadedMapSend < Test::Unit::TestCase
-
-    def test_map_send
-      r = [1,2,3].map_send(:+, 1)
-      assert_equal(r, [2,3,4])
-    end
-
-    def test_map_send_with_block
-      r = [1,2,3].map_send(:+,1){ |x| x + 1 }
-      assert_equal(r, [3,4,5])
-    end
-
-  end
-
-=end

data/lib/more/facets/pp_s.rb

@@ -1,30 +0,0 @@
-# TODO How useful is this really? Or, can it go in with something else?
-
-require 'pp'
-require 'stringio'
-
-module Kernel
-
-  # Returns a pretty-printed string of the object.  Requires libraries +pp+ and
-  # +stringio+ from the Ruby standard library.
-  #
-  # The following code pretty-prints an object (much like +p+ plain-prints an
-  # object):
-  #
-  #   pp object
-  #
-  # The following code captures the pretty-printing in +str+ instead of
-  # sending it to +STDOUT+.
-  #
-  #   str = object.pp_s 
-  #
-  #   CREDIT Noah Gibbs
-  #   CREDIT Gavin Sinclair
-
-  def pp_s
-    pps = StringIO.new
-    PP.pp(self, pps)
-    pps.string
-  end
-
-end

data/log/history.rd

@@ -1,38 +0,0 @@
-= Facets Revision History
-
-== 2.1.3 / 2007-11-28
-
-* Fixed minor oddity in Enumerable/collate.
-* Fixed major issue with 2.1.2 where it would not core facets correctly.
-
-== 2.1.2 / 2007-11-22
-
-* Dir::multiglob no longer handels -/+ modifiers. Use FileList instead.
-* Fixed task/install script.
-* Improved task/changes.
-
-== 2.1.1 / 2007-11-16
-
-* Fixed bug in command.rb that clobbered options.
-* Added kernel/ergo.rb.
-
-== 2.1.0 / 2007-11-10
-
-* Major Changes
-  * command.rb has been completely rewritten. The API has changed completely!
-  * There is no longer a Commmand::Optoins class. Use Console::Arguments instead.
-  * Added BiCrypt class to crypt.rb for simple two-way encyrption.
-* Minor Changes
-  * module/attr.rb now has attr_reader!, attr_writer! and attr_accessor!
-  * All attr_xxx methods have coresponding alias_xxx methods.
-  * Fixed bug in Enumerable#cluster_by which returned nil instead of [].
-
-== 2.0.5 / 2007-11-07
-
-* Major Changes
-  * Added final methods Gavin Sinclair's Extensions project (contributed by Noah Gibbs).
-* Minor Changes
-  * Fixes bug with Dictionary#initialize
-  * Fixes bug with Hash#-
-  * Also improves changelog production.
-

data/log/todo.rd

@@ -1,4 +0,0 @@
-== Facets To Do List
-
-* Write new command.rb tests.
-

data/task/special/quickopts

@@ -1,15 +0,0 @@
-#!/usr/bin/env ratch
-
-# generate quick options .html part
-
-main :quickopts do
-  str = ''
-  cd('doc/rdoc') do
-    dirs = Dir.glob('*') - ['core']
-    dirs.each do |f|
-      str << %{ <option value="#{f}"> #{f.capitalize} </option> \n}
-    end
-  end
-  File.open('doc/siteparts/quickopts.html', 'w'){ |f| f << str }
-end
-

data/test/unit/continuation/test_create.rb

@@ -1,28 +0,0 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/continuation/create.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/continuation/create.rb'
-
-
-
-  require 'test/unit'
-
-  class TCContinuation < Test::Unit::TestCase
-
-    def test_Continuation_create
-      assert_nothing_raised { c, r = Continuation.create }
-    end
-
-  end
-
-
-

data/test/unit/enumerable/test_collate.rb

@@ -1,51 +0,0 @@
-# Test facets/enumerable/collate.rb
-
-require 'facets/enumerable/collate.rb'
-require 'test/unit'
-
-class TestEnumerableCollate < Test::Unit::TestCase
-
-  def test_collate_hash_return
-    a = { :a => 1, :b => 2, :c => 3 }
-    e = { :a => 2, :b => 3, :c => 4 }
-    assert_equal( e, a.collate{ |k,v| {k => v+1} } )
-  end
-
-  def test_collate_hash_of_array
-    a = { :a => [1,2], :b => [2,3], :c => [3,4] }
-    e = { :a => 2, :b => 6, :c => 12 }
-    assert_equal( e, a.collate{ |k,v| [k, v[0]*v[1] ] } )
-  end
-
-  def test_collate_array_of_array
-    a = [ [1,2], [2,3], [3,4] ]
-    e = { [1,2] => 2, [2,3] => 6, [3,4] => 12 }
-    assert_equal( e, a.collate{ |a| [a, a[0]*a[1] ] } )
-  end
-
-  def test_collate_squares
-    numbers  = (1..3)
-    squares  = numbers.collate{ |n| [n, n*n] }
-    assert_equal( {1=>1, 2=>4, 3=>9}, squares )
-  end
-
-  def test_collate_roots
-    numbers  = (1..3)
-    sq_roots = numbers.collate{ |n| [n*n, n] }
-    assert_equal( {1=>1, 4=>2, 9=>3}, sq_roots )
-  end
-
-  def test_collate_inplace!
-    a = { :a => 1, :b => 2, :c => 3 }
-    e = { :a => 2, :b => 3, :c => 4 }
-    a.collate!{ |k,v| { k => v+1 } }
-    assert_equal( e, a )
-  end
-
-  def test_collate_inplace_again!
-    h  = {:a=>1,:b=>2,:c=>3}
-    h.collate!{ |k,v| [v, v*v] }
-    assert_equal( {1=>1, 2=>4, 3=>9}, h )
-  end
-
-end

data/test/unit/kernel/test_require_esc.rb

@@ -1,29 +0,0 @@
-  #  _____         _
-  # |_   _|__  ___| |_
-  #   | |/ _ \/ __| __|
-  #   | |  __/\__ \ |
-  #   |_|\___||___/\__|
-  #
-  # for lib/facets/kernel/require_esc.rb
-  #
-  # Extracted Mon Sep 03 16:23:07 -0700 2007
-  # w/ Test Extraction Ratchet
-  #
-
- require 'facets/kernel/require_esc.rb'
-
-
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_require_esc
-      assert_nothing_raised { require_esc 'facets/string/blank' }
-      assert( "".respond_to?( :blank? ) )
-    end
-
-  end
-
-
-