facets 1.0.0 → 1.0.1

data/lib/facet/array.rb

@@ -1,33 +0,0 @@
-require 'array/at_rand'
-require 'array/body'
-require 'array/delete_unless'
-require 'array/delete_values'
-require 'array/delete_values_at'
-require 'array/each_with_key'
-require 'array/first'
-require 'array/foot'
-require 'array/head'
-require 'array/last'
-require 'array/last_index'
-require 'array/merge'
-require 'array/mid'
-require 'array/middle'
-require 'array/op_fetch'
-require 'array/op_store'
-require 'array/pick'
-require 'array/pos'
-require 'array/pull'
-require 'array/rand_index'
-require 'array/rand_subset'
-require 'array/range'
-require 'array/rotate'
-require 'array/select'
-require 'array/shuffle'
-require 'array/slap'
-require 'array/store'
-require 'array/tail'
-require 'array/thru'
-require 'array/to_b'
-require 'array/to_h'
-require 'array/to_hash'
-require 'array/unzip'

data/lib/facet/array/at_rand.rb

@@ -1,52 +0,0 @@
-class Array
-
-  # Return a random element of the array.
-  #
-  #   [1, 2, 3, 4].at_rand           #=> 2
-  #   [1, 2, 3, 4].at_rand           #=> 4
-  #
-  def at_rand
-    self.at( rand( size ) )
-  end
-
-  # Same as #at_rand, but acts in place removing a
-  # random element from the array.
-  #
-  #   a = [1,2,3,4]
-  #   a.at_rand!       #=> 2
-  #   a                #=> [1,3,4]
-  #
-  def at_rand!
-    return delete_at( Kernel.rand( size ) )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_at_rand
-      a = [1,2,3,4,5]
-      20.times{ assert_nothing_raised{ a.at_rand } }
-      20.times{ assert( a.include?( a.at_rand ) ) }
-    end
-
-    def test_at_rand!
-      a = ['a','b','c']
-      assert_equal( 1, a.at_rand!.length )
-      assert_equal( 2, a.length )
-    end
-
-  end
-
-=end

data/lib/facet/array/body.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/array/head.rb'

data/lib/facet/array/delete_unless.rb

@@ -1,35 +0,0 @@
-#--
-# Daniel Schierbeck
-#++
-
-class Array
-
-  def delete_unless (&block)
-    delete_if { |element| not block.call(element) }
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_DELETE_UNLESS < Test::Unit::TestCase
-
-    def test_delete_unless
-      a = [1,2,3]
-      a.delete_unless{ |e| e == 2 }
-      assert_equal( [2], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/delete_values.rb

@@ -1,38 +0,0 @@
-class Array
-
-  # Delete multiple values from array.
-  #
-  #   a = [1,2,3,4]
-  #   a.delete_values(1,2)   #=> [1,2]
-  #   a                      #=> [3,4]
-  #
-  def delete_values(*values)
-    d = []
-    values.each{ |v| d << delete(v) }
-    d
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_delete_values
-      a = [1,2,3,4]
-      assert_equal( [1,2], a.delete_values(1,2) )
-      assert_equal( [3,4], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/delete_values_at.rb

@@ -1,57 +0,0 @@
-
-class Array
-
-  # Delete multiple values from array given
-  # indexes or index range.
-  #
-  #   a = [1,2,3,4]
-  #   a.delete_values_at(1,2)   #=> [2,3]
-  #   a                         #=> [1,4]
-  #   a = [1,2,3,4]
-  #   a.delete_values_at(0..2)  #=> [1,2,3]
-  #   a                         #=> [4]
-  #
-  def delete_values_at(*selectors)
-    idx = []
-    selectors.each{ |i|
-      case i
-      when Range
-        idx.concat( i.to_a )
-      else
-        idx << i.to_i
-      end
-    }
-    idx.uniq!
-    dvals = values_at(*idx)
-    idx = (0...size).to_a - idx
-    self.replace( values_at(*idx) )
-    return dvals
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_delete_values_at
-      a = [1,2,3,4]
-      assert_equal( [2,3], a.delete_values_at(1,2) )
-      assert_equal( [1,4], a )
-      a = [1,2,3,4]
-      assert_equal( [1,2,3], a.delete_values_at(0..2) )
-      assert_equal( [4], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/each_with_key.rb

@@ -1,9 +0,0 @@
-
-class Array
-
-  # Increase polymorphysim between Hash and Array.
-  alias_method :each_with_key, :each_with_index
-
-end
-
-

data/lib/facet/array/first.rb

@@ -1,84 +0,0 @@
-require 'facet/array/last'
-
-class Array
-
-  # Change the first element.
-  #
-  #   a = ["a","y","z"]
-  #   a.first = "x"
-  #   p a           #=> ["x","y","z"]
-  #
-  def first=(x)
-    self[0] = x
-  end
-
-  # Alias for shift, which removes and returns
-  # the first element in an array.
-  #
-  #   a = ["a","y","z"]
-  #   a.first!      #=> "a"
-  #   p a           #=> ["y","z"]
-  #
-  alias_method( :first!, :shift)
-
-  # Change the last element.
-  #
-  #   a = [1,2,5]
-  #   a.last = 3
-  #   p a           #=> [1,2,3]
-  #
-  def last=(x)
-    self[-1] = x
-  end
-
-  # Alias for pop, which removes and returns
-  # the last element in an array.
-  #
-  #   a = [1,2]
-  #   a.last! 3
-  #   p a           #=> [1,2,3]
-  #
-  alias_method( :last!, :pop)
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_first_eq
-      a = [1,2]
-      a.first = 0
-      assert_equal( [0,2], a )
-    end
-
-    def test_first!
-      a = [1,2,3]
-      assert_equal( 1, a.first! )
-      assert_equal( [2,3], a )
-    end
-
-    def test_last_eq
-      a = [1,2]
-      a.last = 3
-      assert_equal( [1,3], a )
-    end
-
-    def test_last!
-      a = [1,2,3]
-      assert_equal( 3, a.last! )
-      assert_equal( [1,2], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/foot.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/array/head.rb'

data/lib/facet/array/head.rb

@@ -1,80 +0,0 @@
-
-class Array
-
-  # Like #first but returns the first element
-  # in a new array.
-  #
-  #   [1,2,3].head  #=> [1]
-  #
-  def head
-    slice(0,1)
-  end
-
-  # Returns an array from second element to last element.
-  #
-  #   [1,2,3].tail  #=> [2,3]
-  #
-  def tail
-    slice(1,length-1)
-  end
-
-  # Like #last, returning the last element
-  # in an array.
-  #
-  #   [1,2,3].foot  #=> [3]
-  #
-  def foot
-    slice(-1,1)
-  end
-
-  # Returns an array of the first element upto,
-  # but not including, the last element.
-  #
-  #   [1,2,3].body  #=> [1,2]
-  #
-  #--
-  # Better name for this? (bulk, perhaps?)
-  #++
-  def body
-    slice(0,length-1)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_head
-      a = [1,2,3,4,5]
-      assert_equal( [1], a.head )
-    end
-
-    def test_tail
-      a = [1,2,3,4,5]
-      assert_equal( [2,3,4,5], a.tail )
-    end
-
-    def test_foot
-      a = [1,2,3,4,5]
-      assert_equal( [5], a.foot )
-    end
-
-    def test_body
-      a = [1,2,3,4,5]
-      assert_equal( [1,2,3,4], a.body )
-    end
-
-  end
-
-=end

data/lib/facet/array/last.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/array/first'

data/lib/facet/array/last_index.rb

@@ -1,35 +0,0 @@
-
-class Array
-
-  # Returns the last index of the array.
-  # Returns nil is array has no elements.
-  #
-  #   [1,2,3,4,5].last_index  #=> 4
-  #
-  def last_index
-    return nil if self.length == 0
-    self.length - 1
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_last_index
-      assert_equal( [1,2,3,4,5].last_index, 4 )
-    end
-
-  end
-
-=end

data/lib/facet/array/merge.rb

@@ -1,40 +0,0 @@
-
-class Array
-
-  alias_method :merge, :|
-
-  def merge!( other )
-    self.replace( self | other )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_MERGE < Test::Unit::TestCase
-
-    def test_merge
-      a = [1,2,3]
-      b = [3,4,5]
-      assert_equal( [1,2,3,4,5], a.merge(b) )
-    end
-
-    def test_merge!
-      a = [1,2,3]
-      b = [3,4,5]
-      a.merge!(b)
-      assert_equal( [1,2,3,4,5], a )
-    end
-
-  end
-
-=end