facets 1.1.0 → 1.2.0

data/lib/facet/comparable/cmp.rb

@@ -1,38 +1 @@
-
-module Comparable
-
-  # Alternate name for comparison operator #<=>.
-  #
-  #   3.cmp(1)   #=>  1
-  #   3.cmp(3)   #=>  0
-  #   3.cmp(10)  #=> -1
-  #
-  def cmp(o)
-    self<=>o
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCComparable < Test::Unit::TestCase
-
-    def test_cmp
-      assert_equal( -1, 3.cmp(4) )
-      assert_equal(  0, 3.cmp(3) )
-      assert_equal(  1, 3.cmp(2) )
-    end
-
-  end
-
-=end
+require 'facets/core/comparable/cmp.rb'

data/lib/facet/consoleapp.rb

@@ -0,0 +1 @@
+require 'facets/more/consoleapp.rb'

data/lib/facet/continuation.rb

@@ -1 +1 @@
-require 'facet/continuation/self/create'
+require 'facets/core/continuation.rb'

data/lib/facet/continuation/self/create.rb

@@ -1,71 +1 @@
-
-# Creates a continuation in a way that is easier to use than callcc.
-# On the initial call this will return the created Continuation and
-# the arguments you gave to Continuation.create in an Array. If you
-# then issue .call() on the Continuation execution will jump back to
-# the point of time where you initially invoked Continuation.create,
-# but this time it will return the Continuation and the arguments
-# you supplied in an Array.
-#
-# You can supply a block instead of default arguments which will
-# cause that block to be executed once and its result to be returned
-# along side the created Continuation, but this form is confusing
-# and does only rarely make sense.
-#
-#   # Count from 0 to 10
-#   cc, counter = Continuation.create(0)
-#   puts counter
-#   cc.call(counter + 1) if counter < 10
-#
-#   # Implement something similar to Array#inject using Continuations.
-#   # For simplicity's sake, this is not fully compatible with the real
-#   # inject. Make sure that you understand Array#inject before you try
-#   # to understand this.
-#   class Array
-#     def cc_inject(value = nil)
-#       copy = self.clone
-#       cc, result, item = Continuation.create(value, nil)
-#       next_item = copy.shift
-#       if result and item
-#         # Aggregate the result using the block.
-#         cc.call(yield(result, item), next_item)
-#       elsif next_item
-#         # item not yet set and Array is not empty:
-#         # This means we did not get a value and thus need to use the
-#         # first item from the Array before we can start using the
-#         # block to aggregate the result.
-#         cc.call(next_item, result)
-#       end
-#
-#       return result
-#    end
-#  end
-#  [1,2,3,4,5].cc_inject { |acc, n| acc + n } # => 15
-#
-def Continuation.create(*args, &block)
-  args = [args] if not args.nil? and not args.is_a? Array # 1.6.8 compatibility
-  cc = nil; result = callcc {|c| cc = c; block.call(cc) if block and args.empty?}
-  result ||= args
-  return *[cc, *result]
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCContinuation < Test::Unit::TestCase
-
-    def test_Continuation_create
-      assert_nothing_raised { c, r = Continuation.create }
-    end
-
-  end
-
-=end
+require 'facets/core/continuation/self/create.rb'

data/lib/facet/coroutine.rb

@@ -0,0 +1 @@
+require 'facets/more/coroutine.rb'

data/lib/facet/crypt.rb

@@ -0,0 +1 @@
+require 'facets/more/crypt.rb'

data/lib/facet/date.rb

@@ -0,0 +1 @@
+require 'facets/core/date.rb'

data/lib/facet/date/days_in_month.rb

@@ -1,42 +1 @@
-require 'date'
-
-class Date
-
-  # Returns the number of days in the date's month.
-  #
-  #   Date.new(2004,2).days_in_month #=> 28
-  #
-  #--
-  # Credit goes to Ken Kunz.
-  #++
-  def days_in_month
-     Date.civil(year, month, -1).day
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_days_in_month
-      assert_equal( 31, Date.new(2004,1,1).days_in_month )
-    end
-
-  end
-
-=end
+require 'facets/core/date/days_in_month.rb'

data/lib/facet/date/days_of_month.rb

@@ -1,34 +1 @@
-require 'facet/date/days_in_month'
-
-class Date
-
-  def days_of_month
-    (1..days_in_month).to_a
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_days_of_month
-      assert_equal( (1..@d.days_in_month).to_a, @d.days_of_month )
-    end
-
-  end
-
-=end
+require 'facets/core/date/days_of_month.rb'

data/lib/facet/date/stamp.rb

@@ -1,52 +1 @@
-
-require 'date'
-
-class Date
-
-  # An enhanched #to_s method that cane take an optional
-  # format flag of :short or :long.
-  def stamp(format = nil)
-    case format
-    when :short
-      strftime("%e %b").strip
-    when :long
-      strftime("%B %e, %Y").strip
-    else
-      strftime("%Y-%m-%d")  # standard to_s
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_stamp_1
-      assert_equal( "2005-04-20", @d.stamp )
-    end
-
-    def test_stamp_2
-      assert_equal( "20 Apr", @d.stamp(:short) )
-    end
-
-    def test_stamp_3
-      assert_equal( "April 20, 2005", @d.stamp(:long) )
-    end
-
-  end
-
-=end
+require 'facets/core/date/stamp.rb'

data/lib/facet/date/to_date.rb

@@ -1,36 +1 @@
-require 'date'
-
-class Date
-
-  # To be able to keep Dates and Times
-  # interchangeable on conversions.
-  def to_date
-    self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_to_date
-      assert_instance_of( ::Date, @d.to_date )
-    end
-
-  end
-
-=end
+require 'facets/core/date/to_date.rb'

data/lib/facet/date/to_s.rb

@@ -1,33 +1 @@
-require 'facet/date/stamp'
-
-class Date
-
-  # Enhance #to_s by aliasing to #stamp.
-  alias_method( :to_s, :stamp )
-
-end # Date
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_to_s
-      assert_equal( "2005-04-20", @d.to_s )
-    end
-
-  end
-
-=end
+require 'facets/core/date/to_s.rb'

data/lib/facet/date/to_time.rb

@@ -1,36 +1 @@
-require 'date'
-
-class Date
-  # Convert Date to Time.
-  #
-  #
-  def to_time(form = :local)
-    ::Time.send(form, year, month, day)
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDate < Test::Unit::TestCase
-
-    def setup
-      @d = Date.civil( 2005, 04, 20 )
-    end
-
-    def test_to_time
-      assert_instance_of( ::Time, @d.to_time )
-    end
-
-  end
-
-=end
+require 'facets/core/date/to_time.rb'

data/lib/facet/dictionary.rb

@@ -0,0 +1 @@
+require 'facets/more/dictionary.rb'

data/lib/facet/dir.rb

@@ -1,4 +1 @@
-require 'facet/dir/self/ancestor'
-require 'facet/dir/self/ascend'
-require 'facet/dir/self/ls_r'
-require 'facet/dir/self/recurse'
+require 'facets/core/dir.rb'

data/lib/facet/dir/self/ancestor.rb

@@ -1,33 +1 @@
-
-class Dir
-
-  # Is a path parental to another?
-  #--
-  # TODO Needs work
-  #++
-  def self.ancestor?(parent_path, child_path)
-    %r|^#{Regexp.escape(parent_path)}| =~ child_path
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDir < Test::Unit::TestCase
-
-    def test_ancestor
-      assert( Dir.ancestor?( "a/b/c", "a/b/c/d" ) )
-    end
-
-  end
-
-=end
+require 'facets/core/dir/self/ancestor.rb'

data/lib/facet/dir/self/ascend.rb

@@ -1,56 +1 @@
-
-class Dir
-
-  #
-  def self.ascend( dir, inclusive=true, &blk)
-    dir = dir.dup
-    blk.call( dir ) if inclusive
-    ri = dir.rindex('/')
-    while ri
-      dir = dir.slice(0...ri)
-      if dir == ""
-        blk.call( '/' ) ; break
-      end
-      blk.call( dir )
-      ri = dir.rindex('/')
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCDir < Test::Unit::TestCase
-
-    def test_ascend_1
-      c = []
-      Dir.ascend( "this/path/up" ) do |path|
-        c << path
-      end
-      assert_equal( 'this/path/up', c[0] )
-      assert_equal( 'this/path', c[1] )
-      assert_equal( 'this', c[2] )
-    end
-
-    def test_ascend_2
-      c = []
-      Dir.ascend( "this/path/up", false ) do |path|
-        c << path
-      end
-      assert_equal( 'this/path', c[0] )
-      assert_equal( 'this', c[1] )
-    end
-
-  end
-
-=end
+require 'facets/core/dir/self/ascend.rb'