facets 1.1.0 → 1.2.0

data/lib/facets/core/kernel/true.rb

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

data/lib/facets/core/kernel/unuri.rb

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

data/lib/facets/core/kernel/uri.rb

@@ -0,0 +1,38 @@
+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/facets/core/kernel/val.rb

@@ -0,0 +1,52 @@
+
+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/facets/core/kernel/warn_with_line.rb

@@ -0,0 +1,30 @@
+
+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/facets/core/kernel/with_accessor.rb

@@ -0,0 +1,94 @@
+
+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/facets/core/kernel/with_reader.rb

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

data/lib/facets/core/kernel/with_writer.rb

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

data/lib/facets/core/logger/format.rb

@@ -0,0 +1,28 @@
+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/facets/core/logger/format_message.rb

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

data/lib/facets/core/matchdata.rb

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

data/lib/facets/core/matchdata/match.rb

@@ -0,0 +1,37 @@
+
+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/facets/core/matchdata/matchset.rb

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

data/lib/facets/core/matchdata/matchtree.rb

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

data/lib/facets/core/module.rb

@@ -0,0 +1,40 @@
+require 'facets/core/module/abstract'
+require 'facets/core/module/alias_module_function'
+require 'facets/core/module/ancestor'
+require 'facets/core/module/attr'
+require 'facets/core/module/attr_setter'
+require 'facets/core/module/attr_tester'
+require 'facets/core/module/basename'
+require 'facets/core/module/by_name'
+require 'facets/core/module/cattr_accessor'
+require 'facets/core/module/cattr_reader'
+require 'facets/core/module/cattr_writer'
+require 'facets/core/module/clone_removing'
+require 'facets/core/module/clone_renaming'
+require 'facets/core/module/clone_using'
+require 'facets/core/module/dirname'
+require 'facets/core/module/equate_on'
+require 'facets/core/module/generate_instance_method_name'
+require 'facets/core/module/include_as'
+require 'facets/core/module/initializer'
+require 'facets/core/module/instance_methods'
+require 'facets/core/module/integrate'
+require 'facets/core/module/is'
+require 'facets/core/module/memoize'
+require 'facets/core/module/modspace'
+require 'facets/core/module/namespace'
+require 'facets/core/module/nesting'
+require 'facets/core/module/redef'
+require 'facets/core/module/redefine_method'
+require 'facets/core/module/redirect'
+require 'facets/core/module/redirect_method'
+require 'facets/core/module/remove'
+require 'facets/core/module/rename'
+require 'facets/core/module/rename_method'
+require 'facets/core/module/revisal'
+require 'facets/core/module/shadow_all'
+require 'facets/core/module/shadow_method'
+require 'facets/core/module/sort_on'
+require 'facets/core/module/undef'
+require 'facets/core/module/wrap'
+require 'facets/core/module/wrap_method'

data/lib/facets/core/module/abstract.rb

@@ -0,0 +1,50 @@
+# Creates a method that requires to be overridding.
+# If it not overridden and called upon a TypeError
+# will be raised.
+#
+#  class C
+#    abstract :a
+#  end
+#
+#  c = C.new
+#  c.a  #=> Error: undefined abstraction #a
+#
+class Module
+  def abstract( *sym )
+    sym.each { |s|
+      define_method( s ) { raise TypeError, "undefined abstraction ##{s}" }
+    }
+  end
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCModule < Test::Unit::TestCase
+
+    class Aq
+      abstract :q
+    end
+
+    def test_001
+      ac = Aq.new
+      assert_raises( TypeError ) { ac.q }
+    end
+
+    def test_002
+      ac = Class.new { abstract :q }.new
+      assert_raises( TypeError ) { ac.q }
+    end
+
+  end
+
+=end