facets 1.0.0 → 1.0.1

data/lib/facet/array/rotate.rb

@@ -1,67 +0,0 @@
-
-class Array
-
-  # Rotates an array's elements from back to front n times.
-  #
-  #   [1,2,3].rotate      #=> [3,1,2]
-  #   [3,1,2].rotate      #=> [2,3,1]
-  #   [3,1,2].rotate      #=> [1,2,3]
-  #   [1,2,3].rotate(3)   #=> [1,2,3]
-  #
-  # A negative parameter reverses the order from front to back.
-  #
-  #   [1,2,3].rotate(-1)  #=> [2,3,1]
-  #
-  def rotate(n=1)
-    self.dup.rotate!(n)
-  end
-
-  # Same as #rotate, but acts in place.
-  #
-  #   a = [1,2,3]
-  #   a.rotate!
-  #   a  #=> [3,1,2]
-  #
-  def rotate!(n=1)
-    n = n.to_int
-    return self if (n == 0 or self.empty?)
-    if n > 0
-      n.abs.times{ self.unshift( self.pop ) }
-    else
-      n.abs.times{ self.push( self.shift ) }
-    end
-    self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_rotate
-      a = [1,2,3]
-      assert_equal( [3,1,2], a.rotate, 'clockwise' )
-      assert_equal( [2,3,1], a.rotate(-1), 'counter-clockwise' )
-    end
-
-    def test_rotate!
-      a = [1,2,3]
-      a.rotate!
-      assert_equal( [3,1,2], a, 'clockwise' )
-      a.rotate!(-1)
-      assert_equal( [1,2,3], a, 'counter-clockwise' )
-    end
-
-  end
-
-=end

data/lib/facet/array/select.rb

@@ -1,37 +0,0 @@
-
-class Array
-
-  # As with #select but modifies the Array in place.
-  #
-  #   a = [1,2,3,4,5,6,7,8,9,10]
-  #   a.select!{ |e| e % 2 == 0 }
-  #   a  #=> [2,4,6,8,10]
-  #
-  def select!  # :yield:
-    reject!{ |e| not yield(e) }
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_select!
-      a = [1,2,3,4,5,6,7,8,9,10]
-      a.select!{ |e| e % 2 == 0 }
-      assert_equal( [2,4,6,8,10], a)
-    end
-
-  end
-
-=end

data/lib/facet/array/shuffle.rb

@@ -1,66 +0,0 @@
-#--
-# Credit goes to Niel Spring.
-#++
-
-class Array
-
-  # Randomize the order of an array.
-  #
-  #   [1,2,3,4].shuffle  #=> [2,4,1,3]
-  #
-  def shuffle
-    dup.shuffle!
-    #sort_by{Kernel.rand}
-  end
-
-  # As with #shuffle but modifies the array in place.
-  # The algorithm used here is known as a Fisher-Yates shuffle.
-  #
-  #   a = [1,2,3,4]
-  #   a.shuffle!
-  #   a  #=> [2,4,1,3]
-  #
-  def shuffle!
-    s = size
-    each_index do |j|
-      i = Kernel.rand(s-j)
-      #self[j], self[j+i] = self[j+i], self[j]
-      tmp = self[j]
-      self[j] = self[j+i]
-      self[j+i] = tmp
-    end
-    self
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_shuffle
-      a = [1,2,3,4,5]
-      b = a.shuffle
-      assert_equal( a, b.sort )
-    end
-
-    def test_shuffle!
-      a = [1,2,3,4,5]
-      b = a.dup
-      b.shuffle!
-      assert_equal( a, b.sort )
-    end
-
-  end
-
-=end

data/lib/facet/array/slap.rb

@@ -1,37 +0,0 @@
-
-class Array
-
-  # Alias for unshift which puts an object on
-  # on the first slot of an array. This is
-  # the contrary of push.
-  #
-  #   a=[1,2,3]
-  #   a.slap(9)  #=> [9,1,2,3]
-  #   a          #=> [9,1,2,3]
-  #
-  alias_method( :slap, :unshift )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_slap
-      a = [2,3]
-      assert_equal( [1,2,3], a.slap(1) )
-      assert_equal( [4,1,2,3], a.slap(4) )
-    end
-
-  end
-
-=end

data/lib/facet/array/store.rb

@@ -1,7 +0,0 @@
-
-class Array
-
-  # Alias for #[]=.
-  alias_method( :store, :[]= )
-
-end

data/lib/facet/array/tail.rb

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

data/lib/facet/array/thru.rb

@@ -1,38 +0,0 @@
-class Array
-  # Fetch values from a start index thru an end index.
-  #
-  #   [1,2,3,4,5].thru(0,2)  #=> [1,2,3]
-  #   [1,2,3,4,5].thru(2,4)  #=> [3,4,5]
-  #
-  def thru( from, to )
-    a = []
-    i = from
-    while i <= to
-      a << self.at(i)
-      i += 1
-    end
-    a
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_thru
-      assert_equal( [2,3,4], [0,1,2,3,4,5].thru(2,4) )
-      assert_equal( [0,1], [0,1,2,3,4,5].thru(0,1) )
-    end
-
-  end
-
-=end

data/lib/facet/array/to_b.rb

@@ -1,31 +0,0 @@
-
-class Array
-
-  # Boolean conversion for not empty?
-  def to_b
-    ! self.empty?
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_to_b
-      a = []
-      assert_equal( false, a.to_b )
-    end
-
-  end
-
-=end

data/lib/facet/array/to_h.rb

@@ -1,57 +0,0 @@
-
-class Array
-
-  # Converts a two-element associative array into a hash.
-  #
-  #   a = [ [:a,1], [:b,2] ]
-  #   a.to_h  #=> { :a=>1, :b=>2 }
-  #
-  # If +arrayed+ is set it will maintain trailing arrays.
-  #
-  #   a = [ [:a,1,2], [:b,3] ]
-  #   a.to_h(true)  #=> { :a=>[1,2], :b=>[3] }
-  #
-  # NOTE: the use of a values parameter has been deprecated
-  # because that functionality is as simple as:
-  #
-  #   array1.zip(array2).to_h
-  #
-  def to_h(arrayed=nil)
-    unless arrayed
-      Hash[*self.flatten]
-    else
-      h = {}
-      each{ |e| h[e.first] = e.slice(1..-1) }
-      h
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_to_h_1
-      k = [1,3,5]
-      v = [2,4,6]
-      assert_equal( { 1=>2, 3=>4, 5=>6 }, k.zip(v).to_h )
-    end
-
-    def test_to_h_2
-      a = [[1,2],[3,4],[5,6]]
-      assert_equal( { 1=>2, 3=>4, 5=>6 }, a.to_h )
-    end
-
-  end
-
-=end

data/lib/facet/array/to_hash.rb

@@ -1,46 +0,0 @@
-
-class Array
-
-  # Converts an array into a hash.
-  #
-  # This methd is just like Enumerable#to_h. But has
-  # been moved in order to accomodate associtiave
-  # arrays. We use to_hash becasue an Array is, 
-  # in essence, a hash, just with a restricted
-  # set of keys and maintained order.
-  #
-  #   a = [ :a, :b, :c ]
-  #   a.to_hash  #=> { 0=>:a, 1=>:b, 2=>:c }
-  #
-  #--
-  # Change to alias to_h from Enumerable?
-  #++
-  def to_hash
-    h = {}
-    each_with_index{ |e,i| h[i] = e }
-    h
-  end
-      
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_to_hash
-      a = [:a,:b,:c]
-      assert_equal( { 0=>:a, 1=>:b, 2=>:c }, a.to_hash )
-    end
-
-  end
-
-=end

data/lib/facet/array/unzip.rb

@@ -1,20 +0,0 @@
-class Array
-
-  def unzip(level)
-    res = Array.new(level, [])
-    (0...size).each {|i|
-      res[i % level] += [self[i]]
-    }
-    res
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/binding.rb

@@ -1,14 +0,0 @@
-require 'nano/binding/__DIR__'
-require 'nano/binding/__FILE__'
-require 'nano/binding/__LINE__'
-require 'nano/binding/call_stack'
-require 'nano/binding/called'
-require 'nano/binding/caller'
-require 'nano/binding/defined'
-require 'nano/binding/eval'
-require 'nano/binding/local_variables'
-require 'nano/binding/method_name'
-require 'nano/binding/op_fetch'
-require 'nano/binding/op_store'
-require 'nano/binding/self'
-require 'nano/binding/self/of_caller'

data/lib/facet/binding/__DIR__.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/binding/__LINE__'

data/lib/facet/binding/__FILE__.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/binding/__LINE__.rb'