facets 1.0.0 → 1.0.1

data/lib/facet/kernel/require_local.rb

@@ -1,25 +0,0 @@
-
-module Kernel
-
-  private
-  # Require file from same dir as calling script.
-  #
-  #   require_local 'templib'
-  #
-  def require_local( fname )
-    #fdir = File.expand_path( File.dirname( caller[0] ) )
-    fdir = File.dirname( caller[0] )
-    require( File.join( fdir, fname ) )
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# NO RESONABLE WAY TO DO
-# (THAT I CAN THINK OF)

data/lib/facet/kernel/resc.rb

@@ -1,32 +0,0 @@
-
-module Kernel
-
-  # Provides a shortcut to the Regexp.escape module method.
-  def resc(x)
-    Regexp.escape(x)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_resc
-      assert_equal( Regexp.escape("'jfiw0[]4"), resc("'jfiw0[]4") )
-      assert_equal( Regexp.escape("/////"), resc("/////") )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/returning.rb

@@ -1,49 +0,0 @@
-#--
-# Courtesy of Mikael Brockman
-#++
-
-module Kernel
-
-  # A Ruby-ized realization of the K combinator.
-  #
-  #   def foo
-  #     returning values = [] do
-  #       values << 'bar'
-  #       values << 'baz'
-  #     end
-  #   end
-  #
-  #   foo # => ['bar', 'baz']
-  #
-  def returning(value)
-    yield
-    value
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_returning
-      foo = returning( values = [] ) do
-        values << 'bar'
-        values << 'baz'
-      end
-      assert_equal( ['bar', 'baz'], foo )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/send_as.rb

@@ -1,34 +0,0 @@
-
-class Object
-
-  # Call parent class/module methods once bound to self.
-
-  def send_as(klass, meth, *args, &blk)
-    selfclass = Kernel.instance_method(:class).bind(self).call
-    raise ArgumentError if ! selfclass.ancestors.include?(klass)
-    klass.instance_method(meth).bind(self).call(*args, &blk)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_send_as
-      assert_equal( String, "A".send_as(Object, :class) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/set_from.rb

@@ -1,69 +0,0 @@
-require 'facet/kernel/set_with'
-
-module Kernel
-
-  # Set setter methods using a another object.
-  #
-  #   class X
-  #     attr_accessor :a, :b
-  #     def initialize( a, b )
-  #        @a,@b = a,b
-  #     end
-  #   end
-  #
-  #   obj1 = X.new( 1, 2 )
-  #   obj2 = X.new
-  #
-  #   obj2.set_from(obj1)
-  #
-  #   obj2.a  #=> 1
-  #   obj2.b  #=> 2
-  #
-  def set_from(obj, *fields)
-    unless fields.empty?
-      fields.each do |k|
-        send( "#{k}=", obj.send("#{k}") )  #if self.respond_to?("#{k}=") && obj.respond_to?("#{k}")
-      end
-    else
-      setters = methods.collect { |m| m =~ /=$/ }
-      setters.each do |setter|
-        getter = setter.chomp('=')
-        if obj.respond_to?(getter)
-          send( setter, obj.send(getter) )
-          fields < getter
-        end
-      end
-    end
-    fields
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    Customer = Struct.new( "Customer", :name, :address, :zip )
-
-    def test_set_from
-      bob = Customer.new("Bob Sawyer", "123 Maple, Anytown NC", 12345)
-      joe = Customer.new("Joe Pitare")
-      joe.set_from(bob, :address, :zip)
-      assert_equal("Joe Pitare", joe.name)
-      assert_equal("123 Maple, Anytown NC", joe.address)
-      assert_equal(12345, joe.zip)  
-    end
-
-  end
-
-=end

data/lib/facet/kernel/set_with.rb

@@ -1,74 +0,0 @@
-require 'facet/kernel/set_from'
-
-module Kernel
-
-  # Assign via setter methods using a hash (or assoc array).
-  #
-  #   object.set_with( :a => 1, :b => 2 )
-  #   object.set_with( :a, 1, :b, 2 )
-  #   object.set_with( [:a, 1], [:b, 2] )
-  #   object.set_with( *[[:a, 1], [:b, 2]] )
-  #
-  # These are all the same as doing:
-  #
-  #   object.a = 1
-  #   object.b = 2
-  #
-  # The array forms gaurentees order of operation.
-  #
-  def set_with(*args)
-    harg = args.last.is_a?(Hash) ? args.pop : {}
-
-    unless args.empty?
-      # if not assoc array, eg. [ [], [], ... ]
-      # preserves order of opertation
-      unless args[0].is_a?(Array)
-        i = 0; a = []
-        while i < args.size
-          a << [ args[i], args[i+1] ]
-          i += 2
-        end
-        args = a
-      end
-    end
-
-    args.each do |k,v|
-      self.send( "#{k}=", v ) #if respond_to?("#{k}=")
-    end
-
-    harg.each do |k,v|
-      self.send( "#{k}=", v ) #if respond_to?("#{k}=")
-    end
-
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    Customer = Struct.new( "Customer", :name, :address, :zip )
-
-    def test_set_with
-      bob = Customer.new()
-      sethash = { :name => "Bob Sawyer", :address => "123 Maple, Anytown NC", :zip => 12345 }
-      bob.set_with(sethash)
-      assert_equal("Bob Sawyer", bob.name)
-      assert_equal("123 Maple, Anytown NC", bob.address)
-      assert_equal(12345, bob.zip)
-    end
-
-  end
-
-=end

data/lib/facet/kernel/silence_warnings.rb

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

data/lib/facet/kernel/silently.rb

@@ -1,41 +0,0 @@
-
-module Kernel
-
-  # Temporarily turn-off verbose mode while yielding block.
-  #
-  def silently #:yield:
-    old_verbose, $VERBOSE = $VERBOSE, nil
-    begin
-      yield
-    ensure
-      $VERBOSE = old_verbose
-    end
-  end
-
-  alias_method :silence_warnings, :silently
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_silently
-      silently do
-        assert( ! $VERBOSE )
-      end
-    end
-
-  end
-
-=end

data/lib/facet/kernel/singleton.rb

@@ -1,47 +0,0 @@
-
-module Kernel
-
-  # Access to an object's "special" class, otherwise
-  # known as it's metaclass or singleton class.
-  #
-  def singleton
-    (class << self; self; end)
-  end
-  alias_method :__singleton__, :singleton
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_singleton
-      o = Object.new
-      assert_equal( (class << o; self; end), o.singleton )
-    end
-
-    #def test_singleton_eval
-    #  assert_nothing_raised do
-    #    o.singleton_class_eval{ @@a = "test" }
-    #  end
-    #end
-
-    #def test_singleton_method
-    #  assert_nothing_raised do
-    #    o.define_singleton_method(:testing){ |x| x + 1 }
-    #  end
-    #  assert_equal(2, o.testing(1) )
-    #end
-
-  end
-
-=end

data/lib/facet/kernel/superior.rb

@@ -1,53 +0,0 @@
-
-class Object
-
-  # Like super but skips to a specific ancestor module or class.
-  #
-  #   class A
-  #     def x ; 1 ; end
-  #   end
-  #
-  #   class B < A
-  #     def x ; 2 ; end
-  #   end
-  #
-  #   class C < B
-  #     def x ; superior(A) ; end
-  #   end
-  #
-  #   C.new.x  #=> 1
-  #
-  def superior(klass=self.class.superclass, *args, &blk)
-    unless self.class.ancestors.include?(klass)
-      raise ArgumentError
-    end
-    called = /\`([^\']+)\'/.match(caller(1).first)[1].to_sym
-    klass.instance_method(called).bind(self).call(*args,&blk)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    class X ; def x ; 1 ; end ; end
-    class Y < X ; def x ; 2 ; end ; end
-    class Z < Y ; def x ; p 'here'; superior(X) ; end ; end
-
-    def test_superior
-      z = Z.new
-      assert_equal( 1, z.x )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/supermethod.rb

@@ -1,44 +0,0 @@
-
-module Kernel
-
-  # Returns method of a parent class bound to self.
-  #
-  def supermethod(klass, meth)
-    unless self.class.ancestors.include?(klass)
-      raise ArgumentError
-    end
-    klass.instance_method(meth).bind(self)
-  end
-
-  # deprecated
-  alias_method :super_method, :supermethod
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    class X ; def x ; 1 ; end ; end
-    class Y < X ; def x ; 2 ; end ; end
-    class Z < Y ; def x ; 3 ; end ; end
-
-    def test_supermethod
-      x = X.new
-      z = Z.new
-      s0 = x.method( :x )
-      s1 = z.supermethod( X, :x )
-      assert_equal( s0.call, s1.call )
-    end
-
-  end
-
-=end