facets 1.8.54 → 2.0.0

data/lib/facets/core/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/facets/core/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/facets/core/array/delete_values_at.rb

@@ -1,59 +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/facets/core/array/each_combo.rb

@@ -1,48 +0,0 @@
-
-class Array
-
-  # The array is expected to be and array of arrays, which
-  # iterates through combinations of each in position.
-  #
-  #   a = [ [0,1], [2,3] ]
-  #   a.each_combo { |c| p c }
-  #
-  # produces
-  #
-  #   [0, 2]
-  #   [0, 3]
-  #   [1, 2]
-  #   [1, 3]
-  #
-
-  def each_combo
-    a = collect{ |x|
-      x.respond_to?(:to_a) ? x.to_a : 0..x
-    }
-
-    if a.size == 1
-      r = a.shift
-      r.each{ |n|
-        yield n
-      }
-    else
-      r = a.shift
-      r.each{ |n|
-        a.each_combo{ |s|
-          yield [n, *s]
-        }
-      }
-    end
-  end
-
-
-  # As with each_combo but returns combos collected in an array.
-
-  def combos
-    a = []
-    each_combo{ |c| a << c }
-    a
-  end
-
-end
-

data/lib/facets/core/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/facets/core/array/first.rb

@@ -1,84 +0,0 @@
-require 'facets/core/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/facets/core/array/foot.rb

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

data/lib/facets/core/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/facets/core/array/index.rb

@@ -1,15 +0,0 @@
-# TODO Remove Array#index when future Ruby has it.
-
-class Array
-
-  alias :index_of :index
-
-  # Allows block usage with index.
-
-  def index(obj=nil,&blk)
-    return index_of(obj) unless block_given?
-    i=0; i+=1 until yield(self[i])
-    return i
-  end
-
-end

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

@@ -1,12 +0,0 @@
-
-class Array
-
-  def join_sentence
-    case length
-    when 0: ""
-    when 1: self[0]
-    else [self[0..-2].join(", "), self[-1]].join(" and ")
-    end
-  end
-
-end 

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

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

data/lib/facets/core/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/facets/core/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