facets 1.0.0 → 1.0.1

data/lib/facet/continuation.rb

@@ -1 +0,0 @@
-require 'nano/continuation/self/create'

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

@@ -1,71 +0,0 @@
-
-# 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

data/lib/facet/date/days_in_month.rb

@@ -1,42 +0,0 @@
-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

data/lib/facet/date/days_of_month.rb

@@ -1,34 +0,0 @@
-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

data/lib/facet/date/stamp.rb

@@ -1,52 +0,0 @@
-
-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

data/lib/facet/date/to_date.rb

@@ -1,36 +0,0 @@
-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

data/lib/facet/date/to_s.rb

@@ -1,33 +0,0 @@
-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

data/lib/facet/date/to_time.rb

@@ -1,36 +0,0 @@
-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

data/lib/facet/dir.rb

@@ -1,4 +0,0 @@
-require 'nano/dir/self/ancestor'
-require 'nano/dir/self/ascend'
-require 'nano/dir/self/ls_r'
-require 'nano/dir/self/recurse'

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

@@ -1,33 +0,0 @@
-
-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

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

@@ -1,56 +0,0 @@
-
-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

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

@@ -1,76 +0,0 @@
-#--
-# Credit due to George Moschovitis <gm@navel.gr>
-#++
-class Dir
-
-  # Recursively scan a directory and pass each file
-  # to the given block.
-  def self.ls_r(path='.', &block)
-    list = []
-    stoplist = ['.', '..']
-    Dir.foreach(path) do |f|
-      next if stoplist.include?(f)
-      filename = path + '/' + f
-      list << filename
-      block.call(filename) if block
-      if FileTest.directory?(filename) and not FileTest.symlink?(filename)
-        list.concat( Dir.recurse(filename, &block) )
-      end
-    end
-    list
-  end
-
-  class << self
-    # Alias for Dir#ls_r
-    alias_method( :recurse, :ls_r )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
-  end
-  raise unless $TESTDIR
-
-  class TCDir < Test::Unit::TestCase
-
-    def test_ls_r
-      td = Dir.pwd
-      Dir.chdir $TESTDIR
-        r = ["A", "A/B","A/B/C.txt", "A/B.txt", "A.txt"].collect{ |e| 
-          File.join( 'ls_r', e )
-        }
-        fs = Dir.ls_r( 'ls_r' )
-        assert_equal( r, fs, Dir.pwd  )
-      Dir.chdir td
-    end
-
-    def test_recurse
-      td = Dir.pwd
-      Dir.chdir $TESTDIR
-        r = ["A", "A/B","A/B/C.txt", "A/B.txt", "A.txt"].collect{ |e| 
-          File.join( 'ls_r', e )
-        }
-        fs = Dir.recurse( 'ls_r' )
-        assert_equal( r, fs, Dir.pwd )
-      Dir.chdir td
-    end
-
-  end
-
-=end