facets 1.0.0 → 1.0.1

data/lib/facet/kernel/this.rb

@@ -1,33 +0,0 @@
-
-module Kernel
-
-  private
-
-  # Returns the method object of the current method.
-  def this
-    name = /\`([^\']+)\'/.match(caller(1).first)[1]
-    return method(name)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_this
-      assert_equal( this, method(:test_this) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/to_b.rb

@@ -1,41 +0,0 @@
-
-class Object
-
-  # Boolean conversion for not being nil or false.
-  # Other classes may redefine this to suite the
-  # particular need.
-  #
-  #   "abc".to_b   #=> true
-  #   true.to_b    #=> true
-  #   false.to_b   #=> false
-  #   nil.to_b     #=> false
-  #
-  def to_b
-    self ? true : false
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_to_b
-      assert_equal( true, true.to_b )
-      assert_equal( false, false.to_b )
-      assert_equal( false, nil.to_b )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/to_bool.rb

@@ -1,47 +0,0 @@
-
-class Object
-  def to_bool
-    return true
-  end
-end
-
-class TrueClass
-  def to_bool
-    self
-  end
-end
-
-class FalseClass
-  def to_bool
-    self
-  end
-end
-
-class NilClass
-  def to_bool
-    false
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_to_bool
-      assert_equal( true, true.to_bool )
-      assert_equal( false, false.to_bool )
-      assert_equal( false, nil.to_bool )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/true.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/kernel/bool'

data/lib/facet/kernel/unuri.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/kernel/uri'

data/lib/facet/kernel/uri.rb

@@ -1,38 +0,0 @@
-require 'uri'
-
-module Kernel
-
-  def uri( s, w=%r{[^a-zA-Z_0-9./-]} )
-    URI.escape( s, w )
-  end
-
-  def unuri( s )
-    URI.unescape( s )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_uri
-      assert_equal( uri("abc?xyz"), "abc%3Fxyz" )
-    end
-
-    def test_unuri
-      assert_equal( unuri("abc%3Fxyz"), "abc?xyz" )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/val.rb

@@ -1,52 +0,0 @@
-
-class Object
-
-  # Tests to see if something has value. An object
-  # is considered to have value if it is not nil?
-  # and if it responds to #empty?, i snot.
-  #
-  def val?
-    return false if nil?
-    return false if empty? if respond_to?(:empty?)
-    true
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_val_1
-      f = nil
-      t = 1
-      assert( ! f.val? )
-      assert( t.val? )
-    end
-
-    def test_val_2
-      f = []
-      t = [1]
-      assert( ! f.val? )
-      assert( t.val? )
-    end
-
-    def test_val_3
-      f = ''
-      t = '1'
-      assert( ! f.val? )
-      assert( t.val? )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/warn_with_line.rb

@@ -1,30 +0,0 @@
-
-module Kernel
-
-  # Like #warn produces the current line number as well.
-  #
-  #   warn_with_line("You have been warned.")
-  #
-  # _produces_
-  #
-  #   3: Warning: You have been warned.
-  #
-  # Note that this method depends on the output of #caller.
-  def warn_with_line(msg="", fulltrace=nil)
-    trace = caller(1)
-    where = trace[0].sub(/:in.*/,'')
-    STDERR.puts "#{where}: Warning: #{msg}"
-    STDERR.puts trace.map { |t| "\tfrom #{t}" } if fulltrace
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-# TODO

data/lib/facet/kernel/with_accessor.rb

@@ -1,94 +0,0 @@
-
-class Object
-
-  # Takes a hash and creates (singleton) attr_readers for each key.
-  #
-  #   with_reader { :x => 1, :y => 2 }
-  #   @x       #=> 1
-  #   @y       #=> 2
-  #   self.x   #=> 1
-  #   self.y   #=> 2
-  #
-  def with_reader(h)
-    (class << self ; self ; end).send( :attr_reader, *h.keys )
-    h.each { |k,v| instance_variable_set("@#{k}", v) }
-  end
-
-  # Takes a hash and creates (singleton) attr_writers for each key.
-  #
-  #   with_writer { :x => 1, :y => 2 }
-  #   @x           #=> 1
-  #   @y           #=> 2
-  #   self.x = 3
-  #   self.y = 4
-  #   @x           #=> 3
-  #   @y           #=> 4
-  #
-  def with_writer(h)
-    (class << self ; self ; end).send( :attr_writer, *h.keys )
-    h.each { |k,v| instance_variable_set("@#{k}", v) }
-  end
-
-  # Takes a hash and creates (singleton) attr_accessors
-  # for each key.
-  #
-  #   with_accessor { :x => 1, :y => 2 }
-  #   @x          #=> 1
-  #   @y          #=> 2
-  #   self.x = 3
-  #   self.y = 4
-  #   self.x      #=> 3
-  #   self.y      #=> 4
-  #
-  def with_accessor(h)
-    (class << self ; self ; end).send( :attr_accessor, *h.keys )
-    h.each { |k,v| instance_variable_set("@#{k}", v) }
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    # fixture for #with_reader, #with_writer and #with_accessor
-    class TestWith
-      def initialize
-        with_reader :foo => "FOO"
-        with_writer :bar => "BAR"
-        with_accessor :baz => "BAZ"
-      end
-      def get_bar
-        @bar
-      end
-    end
-
-    def test_with_reader
-      assert_nothing_raised { @t = TestWith.new }
-      assert_equal("FOO", @t.foo)
-    end
-
-    def test_with_writer
-      assert_nothing_raised { @t = TestWith.new }
-      assert_equal("BAR", @t.get_bar)
-      @t.bar = "BAR2"
-      assert_equal("BAR2", @t.get_bar)
-    end
-
-    def test_with_accessor
-      assert_nothing_raised { @t = TestWith.new }
-      assert_equal("BAZ", @t.baz)
-      @t.baz = "BAZ2"
-      assert_equal("BAZ2", @t.baz)
-    end
-  end
-
-=end

data/lib/facet/kernel/with_reader.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/object/with_accessor'

data/lib/facet/kernel/with_writer.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/object/with_accessor'

data/lib/facet/logger/format.rb

@@ -1,28 +0,0 @@
-require 'logger'
-
-class Logger
-
-  private
-
-  # Dictate the way in which this logger should format the messages
-  # it displays. This method requires a block. The block should return
-  # formatted strings given severity, timestamp, msg, progname.
-  #
-  # Useless example:
-  #
-  # logger = Logger.new
-  # logger.format do |severity, timestamp, msg, progname|
-  #   "#{progname}@#{timestamp} - #{severity}::#{msg}"
-  # end
-  #
-  def format(&format_proc)
-    raise 'block expected' unless format_proc
-    @format_proc = format_proc
-  end
-
-  # hackish use of *args, give me some love
-  def format_message(*args)
-    @format_proc ? @format_proc.call(*args) : super(*args)
-  end
-
-end

data/lib/facet/logger/format_message.rb

@@ -1 +0,0 @@
-require 'facet/logger/format'

data/lib/facet/matchdata.rb

@@ -1,3 +0,0 @@
-require 'nano/matchdata/match'
-require 'nano/matchdata/matchset'
-require 'nano/matchdata/matchtree'

data/lib/facet/matchdata/match.rb

@@ -1,37 +0,0 @@
-
-class MatchData
-
-  # Return the primary match string. This is equivalent to +md[0]+.
-  #
-  #   md = /123/.match "123456"
-  #   md.match  #=> "123"
-  #
-  def match
-    self[0]
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_MatchData < Test::Unit::TestCase
-
-    # match
-
-    def test_match
-      md = /X(a)(b)(c)X/.match("YXabcXY")
-      assert_equal( "XabcX", md.match )
-    end
-
-  end
-
-=end

data/lib/facet/matchdata/matchset.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/matchdata/matchtree'

data/lib/facet/matchdata/matchtree.rb

@@ -1,62 +0,0 @@
-
-class MatchData
-
-  # Returns [ pre_match, matchtree, post_match ]. (see matchtree)
-  def matchset
-     [pre_match, matchtree, post_match]
-  end
-
-  # An alternate to #to_a which returns the matches in
-  # order corresponding with the regular expression.
-  #
-  #   md = /(bb)(cc(dd))(ee)/.match "XXaabbccddeeffXX"
-  #   md.to_a      #=> ["XXaabbccddeeffXX", "bb", "ccdd", "dd", "ee"]
-  #   md.matches  #=> ["XXaa", [["bb"], ["cc", ["dd"]], "ee"], "ffXX"]
-  #
-  def matchtree(index=0)
-    ret=[]
-    b, e=self.begin(index), self.end(index)
-    while (index+=1)<=length
-      if index==length || (bi=self.begin(index))>=e
-        # we are finished, if something is left, then add it
-        ret << string[b, e-b] if e>b
-        break
-      else
-        if bi>=b
-          ret << string[b, bi-b] if bi>b
-          ret << matchtree(index)
-          b=self.end(index)
-        end
-      end
-    end
-    return ret
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_MatchData < Test::Unit::TestCase
-
-    def test_matchtree
-      md = /(bb)(cc(dd))(ee)/.match "XXaabbccddeeffXX"
-      assert_equal( [["bb"], ["cc", ["dd"]], ["ee"]] , md.matchtree )
-    end
-
-    def test_matchset
-      md = /(bb)(cc(dd))(ee)/.match "XXaabbccddeeffXX"
-      assert_equal( ["XXaa", [["bb"], ["cc", ["dd"]], ["ee"]], "ffXX"] , md.matchset )
-    end
-
-  end
-
-=end