facets 1.8.54 → 2.0.0

data/lib/core/facets/proc/compose.rb

@@ -0,0 +1,78 @@
+class Proc
+
+  # CREDIT Dave
+
+  # Returns a new proc that is the functional
+  # compostion of two procs, in order.
+  #
+  #  a = lambda { |x| x + 4 }
+  #  b = lambda { |y| y / 2 }
+  #
+  #  a.compose(b).call(4)  #=> 6
+  #  b.compose(a).call(4)  #=> 4
+  #
+  def compose(g)
+    raise ArgumentError, "arity count mismatch" unless arity == g.arity
+    lambda{ |*a| self[ *g[*a] ] }
+  end
+
+  # Operator for Proc#compose and Integer#times_collect/of.
+  #
+  #  a = lambda { |x| x + 4 }
+  #  b = lambda { |y| y / 2 }
+  #
+  #  (a * b).call(4)  #=> 6
+  #  (b * a).call(4)  #=> 4
+  #
+  def *(x)
+    if Integer===x
+      # collect times
+      a = []; x.times{|i| a << call(i)}; a
+    else
+      # compose procs
+      lambda{|*a| self[x[*a]]}
+    end
+  end
+
+  # CREDIT Tim Pease
+
+  # Use a Proc as an observable.
+  alias_method :update, :call
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestProc < Test::Unit::TestCase
+
+    def test_compose_op
+      a = lambda { |x| x + 4 }
+      b = lambda { |y| y / 2 }
+      assert_equal( 6, (a * b).call(4) )
+      assert_equal( 4, (b * a).call(4) )
+    end
+
+    def test_times_collect_op
+      a = lambda { |x| x + 4 }
+      assert_equal( [4,5,6], a * 3 )
+    end
+
+    def test_compose
+      a = lambda { |x| x + 4 }
+      b = lambda { |y| y / 2 }
+      assert_equal( 6, (a.compose(b)).call(4) )
+      assert_equal( 4, (b.compose(a)).call(4) )
+    end
+
+  end
+
+=end

data/lib/core/facets/proc/fn.rb

@@ -0,0 +1,10 @@
+module Kernel
+
+  # A nice shorthand for lambda.
+  #
+  #   adder = fn { |x,y| x + y }
+  #   adder[1,2]  #=> 3
+  #
+  alias_method :fn, :lambda
+
+end

data/lib/core/facets/range.rb

@@ -0,0 +1,2 @@
+require 'facets/range/overlap.rb'
+require 'facets/range/combine.rb'

data/lib/core/facets/range/combine.rb

@@ -0,0 +1,83 @@
+# = FILE
+#
+#   combine.rb
+#
+# = DESCRIPTION
+#
+#   Range extensions for combination.
+#
+# = AUTHORS
+#
+#   CREDIT Daniel Schierbeck
+#   CREDIT Brandon Keepers
+#
+# = NOTES
+#
+#   TODO Incorporate end sentinal inclusion vs. exclusion in #combine.
+
+#
+class Range
+
+  # Combine intervals.
+
+  def self.combine(*intervals)
+    intype = intervals.first.class
+    result = []
+
+    intervals = intervals.collect do |i|
+      [i.first, i.last]
+    end
+
+    intervals.sort.inject([]) do |result, (from, to)|
+      if result.empty? or from > result.last[1]
+        result << [from, to]
+      elsif to > result.last[1]
+        result.last[1] = to
+      end
+      result
+    end
+
+    if intype <= Range
+      result.collect{ |i| ((i.first)..(i.last)) }
+    else
+      result
+    end
+  end
+
+  # Combine intervals.
+
+  def combine(*intervals)
+    Range.combine(self, *intervals)
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestRangeCombine < Test::Unit::TestCase
+
+    def test_combine_ranges
+      r = Range.combine(0..4, 2..6, 6..10, 13..17, 12..19)
+      x = [0..10, 12..19]
+      assert_equal(x, r)
+    end
+
+    def test_combine_arrays_as_intervals
+      r = Range.combine([0, 4], [2, 6], [6, 10], [13, 17], [12, 19])
+      x = [[0, 10], [12, 19]]
+      assert_equal(x, r)
+    end
+
+  end
+
+=end

data/lib/core/facets/range/overlap.rb

@@ -0,0 +1,130 @@
+# = FILE
+#
+#   overlap.rb
+#
+# = DESCRIPTION
+#
+#   Range extensions for overlap comparison.
+#
+# = AUTHORS
+#
+#   CREDIT Daniel Schierbeck
+#   CREDIT Brandon Keepers
+
+#
+class Range
+
+  # Do two ranges overlap?
+
+  def overlap?(other)
+    include?(other.first) or other.include?(first)
+  end
+
+  # Returns a two element array of the relationship
+  # between two Ranges.
+  #
+  # Diagram:
+  #
+  #     Relationship     Returns
+  #
+  #   self |-----------|
+  #   r    |-----------|    [0,0]
+  #
+  #   self |-----------|
+  #   r     |---------|     [-1,-1]
+  #
+  #   self  |---------|
+  #   r    |-----------|    [1,1]
+  #
+  #   self |-----------|
+  #   r     |----------|    [-1,0]
+  #
+  #   self |-----------|
+  #   r     |-----------|   [-1,1]
+  #
+  #   etc.
+  #
+  # Example:
+  #
+  #   (0..3).umbrella(1..2)  #=>  [-1,-1]
+  #
+  def umbrella(r)
+    s = first <=> r.first
+    e = r.last <=> last
+
+    if e == 0
+      if r.exclude_end? and exclude_end?
+        e = r.max <=> max
+      else
+        e = (r.exclude_end? ? 0 : 1) <=> (exclude_end? ? 0 : 1)
+      end
+    end
+
+    return s,e
+  end
+
+  # Uses the Range#umbrella method to determine
+  # if another Range is _anywhere_ within this Range.
+  #
+  #   (1..3).within?(0..4)  #=> true
+  #
+  def within?(rng)
+    case rng.umbrella(self)
+    when [0,0], [-1,0], [0,-1], [-1,-1]
+      return true
+    else
+      return false
+    end
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestRangeOverlap < Test::Unit::TestCase
+
+    def test_umbrella_aligned
+      assert_equal( [0,0], (3..6).umbrella(3..6) )
+      assert_equal( [0,0], (3...6).umbrella(3...6) )
+    end
+
+    def test_umbrella_partial_aligned
+      assert_equal( [1,0], (3..6).umbrella(2..6) )
+      assert_equal( [0,1], (3..6).umbrella(3..7) )
+      assert_equal( [-1,0], (3..6).umbrella(4..6) )
+      assert_equal( [0,-1], (3..6).umbrella(3..5) )
+    end
+
+    def test_umbrella_offset
+      assert_equal( [1,1], (3..6).umbrella(2..7) )
+      assert_equal( [-1,1], (3..6).umbrella(4..7) )
+      assert_equal( [1,-1], (3..6).umbrella(2..5) )
+      assert_equal( [-1,-1], (3..6).umbrella(4..5) )
+    end
+
+    def test_umbrella_offset_by_exclusion
+$xx = true
+      assert_equal( [0,1], (10...20).umbrella(10..20) )
+$xx = false
+    end
+
+    def test_within?
+      assert( (4..5).within?(3..6) )
+      assert( (3..6).within?(3..6) )
+      assert(! (2..5).within?(3..6) )
+      assert(! (5..7).within?(3..6) )
+    end
+
+  end
+
+=end

data/lib/core/facets/regexp.rb

@@ -0,0 +1 @@
+require 'facets/regexp/arity.rb'

data/lib/core/facets/regexp/arity.rb

@@ -0,0 +1,52 @@
+# TITLE:
+#   Regexp Arity
+#
+# DESCRIPTION:
+#   Matchdata methods to produces a hierachical list of a match result.
+#   This also includes Regexp#arity.
+#
+# AUTHORS:
+#   - Thomas Sawyer
+
+#
+class Regexp
+  # Returns the number of backreferencing subexpressions.
+  #
+  #   /(a)(b)(c)/.arity  #=> 3
+  #   /(a(b(c)))/.arity  #=> 3
+  #
+  # Note: This is not perfect, especially with regards to \x
+  # and embedded comments.
+
+  def arity
+    self.source.scan( /(?!\\)[(](?!\?[#=:!>-imx])/ ).length
+  end
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestRegexpArity < Test::Unit::TestCase
+
+    def test_arity
+      r = /(1)(2)(3)/
+      assert_equal( 3, r.arity )
+      r = /(1)(2)(3)(4)/
+      assert_equal( 4, r.arity )
+      r = /(1)(2)((a)3)/
+      assert_equal( 4, r.arity )
+      r = /(?#nothing)(1)(2)(3)(?=3)/
+      assert_equal( 3, r.arity )
+    end
+
+  end
+
+=end

data/lib/core/facets/stackable.rb

@@ -0,0 +1,46 @@
+# TITLE:
+#   Stackable
+#
+# DESCRIPTION:
+#   Stackable mixin.
+
+# Stackable mixin provides #pop, #push, #pull, etc.
+# It depends on #slice, #splice and #insert.
+
+module Stackable
+
+  #
+
+  def pop
+    splice(-1)
+  end
+
+  #
+
+  def push(x)
+    insert(-1,x)
+  end
+
+  #
+
+  def pull
+    slice(0)
+  end
+
+  alias :shift :pull
+
+  #
+
+  def poke(x)
+    insert(0,x)
+  end
+
+  alias :unshift :poke
+
+  #
+
+  def peek
+    splice(-1)
+  end
+
+end

data/lib/core/facets/string.rb

@@ -0,0 +1,18 @@
+require 'facets/string/interpolate.rb'
+require 'facets/string/splice.rb'
+require 'facets/string/scan.rb'
+require 'facets/string/filter.rb'
+require 'facets/string/format.rb'
+require 'facets/string/blank.rb'
+require 'facets/string/partitions.rb'
+require 'facets/string/stackable.rb'
+require 'facets/string/tabs.rb'
+require 'facets/string/align.rb'
+require 'facets/string/indexable.rb'
+require 'facets/string/range.rb'
+require 'facets/string/regesc.rb'
+require 'facets/string/crypt.rb'
+require 'facets/string/nchar.rb'
+require 'facets/string/bracket.rb'
+require 'facets/string/case.rb'
+require 'facets/string/natcmp.rb'

data/lib/core/facets/string/align.rb

@@ -0,0 +1,102 @@
+# TITLE:
+#
+#   String Alignment Extensions
+#
+# SUMMARY:
+#
+#   String extensions for alignment.
+#
+# CREDIT:
+#
+#   - Thomas Sawyer
+
+class String
+
+  # Align a string to the right.
+  # The defualt alignment seperation is a new line ("/n")
+  # This can be changes as can be the padding string which
+  # defaults to a single space (' ').
+
+  def align_right( n, sep="\n", c=' ' )
+    return rjust(n.to_i,c.to_s) if sep==nil
+    q = split(sep.to_s).collect { |line|
+      line.rjust(n.to_i,c.to_s)
+    }
+    q.join(sep.to_s)
+  end
+
+  # Align a string to the left.
+  # The defualt alignment seperation is a new line ("/n")
+  # This can be changes as can be the padding string which
+  # defaults to a single space (' ').
+
+  def align_left( n, sep="\n", c=' ' )
+    return ljust(n.to_i,c.to_s) if sep==nil
+    q = split(sep.to_s).collect { |line|
+      line.ljust(n.to_i,c.to_s)
+    }
+    q.join(sep.to_s)
+  end
+
+  # Centers each line of a string.
+  #
+  #   s = <<-EOS
+  #   This is a test
+  #   and
+  #   so on
+  #   EOS
+  #   puts s.align_center(14)
+  #
+  # _produces_
+  #
+  #   This is a test
+  #        and
+  #       so on
+  #
+  # Align a string to the center.
+  # The defualt alignment seperation is a new line ("/n")
+  # This can be changed as can be the padding string which
+  # defaults to a single space (' ').
+
+  def align_center( n, sep="\n", c=' ' )
+    return center(n.to_i,c.to_s) if sep==nil
+    q = split(sep.to_s).collect { |line|
+      line.center(n.to_i,c.to_s)
+    }
+    q.join(sep.to_s)
+  end
+
+  # Deprecated alias for #align_center.
+  #alias_method :center_lines, :align_center
+end
+
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestStringAlign < Test::Unit::TestCase
+
+    def test_align_right
+      assert_equal( "      xxx", "xxx".align_right(9) )
+    end
+
+    def test_align_left
+      assert_equal( "xxx      ", "xxx".align_left(9) )
+    end
+
+    def test_align_center
+      assert_equal( "   xxx   ", "xxx".align_center(9) )
+    end
+
+  end
+
+=end