facets 1.0.0 → 1.0.1

data/lib/facet/binding/self.rb

@@ -1,41 +0,0 @@
-
-require 'facet/binding/eval'
-
-class Binding
-
-  # Returns the self in the binding context.
-  def self()
-    @self ||= eval( "self" )
-    @self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCBinding < Test::Unit::TestCase
-
-    def setup
-      a = 1
-      b = 2
-      x = "hello"
-      # the line number must be updated if it moves
-      @bind = binding; @this_line_no = 25
-    end
-
-    def test_self
-      assert_equal( self, @bind.self )
-    end
-
-  end
-
-=end

data/lib/facet/binding/self/of_caller.rb

@@ -1,122 +0,0 @@
-#--
-# Binding-of-Caller, Copyright (c) 2003 Florian Gross
-#++
-
-#begin
-  require 'facet/continuation/self/create'
-#rescue LoadError
-#  class Continuation; end # :nodoc: # for RDoc
-#  def Continuation.create(*args, &block) # :nodoc:
-#    cc = nil; result = callcc {|c| cc = c; block.call(cc) if block and args.empty?}
-#    result ||= args
-#    return *[cc, *result]
-#  end
-#end
-
-class Binding; end # for RDoc
-
-# This method returns the binding of the method that called your
-# method. It will raise an Exception when you're not inside a method.
-#
-# It's used like this:
-#   def inc_counter(amount = 1)
-#     Binding.of_caller do |binding|
-#       # Create a lambda that will increase the variable 'counter'
-#       # in the caller of this method when called.
-#       inc = eval("lambda { |arg| counter += arg }", binding)
-#       # We can refer to amount from inside this block safely.
-#       inc.call(amount)
-#     end
-#     # No other statements can go here. Put them inside the block.
-#   end
-#   counter = 0
-#   2.times { inc_counter }
-#   counter # => 2
-#
-# Binding.of_caller must be the last statement in the method.
-# This means that you will have to put everything you want to
-# do after the call to Binding.of_caller into the block of it.
-# This should be no problem however, because Ruby has closures.
-# If you don't do this an Exception will be raised. Because of
-# the way that Binding.of_caller is implemented it has to be
-# done this way.
-#
-# ++Binding-of-Caller, Copyright (c) 2003 Florian Gross++
-#
-def Binding.of_caller(&block)
-  old_critical = Thread.critical
-  Thread.critical = true
-  count = 0
-  cc, result, error, extra_data = Continuation.create(nil, nil)
-  error.call if error
-
-  tracer = lambda do |*args|
-    type, context, extra_data = args[0], args[4], args
-    if type == "return"
-      count += 1
-      # First this method and then calling one will return --
-      # the trace event of the second event gets the context
-      # of the method which called the method that called this
-      # method.
-      if count == 2
-        # It would be nice if we could restore the trace_func
-        # that was set before we swapped in our own one, but
-        # this is impossible without overloading set_trace_func
-        # in current Ruby.
-        set_trace_func(nil)
-        cc.call(eval("binding", context), nil, extra_data)
-      end
-    elsif type == "line" then
-      nil
-    elsif type == "c-return" and extra_data[3] == :set_trace_func then
-      nil
-    else
-      set_trace_func(nil)
-      error_msg = "Binding.of_caller used in non-method context or " +
-        "trailing statements of method using it aren't in the block."
-      cc.call(nil, lambda { raise(ArgumentError, error_msg) }, nil)
-    end
-  end
-
-  unless result
-    set_trace_func(tracer)
-    return nil
-  else
-    Thread.critical = old_critical
-    case block.arity
-      when 1 then yield(result)
-      else yield(result, extra_data)
-    end
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_Binding < Test::Unit::TestCase
-
-    def inc_counter(amount = 1)
-      Binding.of_caller do |binding|
-        inc = eval("lambda { |arg| counter += arg }", binding)
-        inc.call(amount)
-      end
-    end
-
-    def test_of_caller
-      counter = 0
-      2.times { inc_counter }
-      assert_equal( 2, counter )
-    end
-
-  end
-
-=end

data/lib/facet/class.rb

@@ -1,5 +0,0 @@
-require 'nano/class/by_name'
-require 'nano/class/descendents'
-require 'nano/class/remove_descendents'
-require 'nano/class/remove_subclasses'
-require 'nano/class/subclasses'

data/lib/facet/class/by_name.rb

@@ -1 +0,0 @@
-require 'facet/module/by_name'

data/lib/facet/class/descendents.rb

@@ -1,44 +0,0 @@
-#--
-# Original code from RubyOnRails (http://www.rubyonrails.com)
-#++
-
-class Class
-
-  def descendents
-    subclass = []
-    ObjectSpace.each_object( Class ) do |c|
-      if c.ancestors.include?( self ) and self != c
-        subclass << c
-      end
-    end
-    return subclass
-  end
-
-  alias_method :subclasses, :descendents
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCClass < Test::Unit::TestCase
-
-    class A ; end
-    class B < A ; end
-    class C < B ; end
-
-    def test_descendents
-      assert_equal( [C,B], A.descendents )
-    end
-
-  end
-
-=end

data/lib/facet/class/remove_descendents.rb

@@ -1,46 +0,0 @@
-#--
-# Original code from RubyOnRails (http://www.rubyonrails.com)
-#++
-
-require 'facet/class/descendents'
-
-class Class
-
-  def remove_descendents
-    self.descendents.each do |subclass|
-      Object.send(:remove_const, subclass.name) rescue nil
-    end
-    ObjectSpace.garbage_collect
-  end
-
-  alias_method :remove_subclasses, :remove_descendents
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCClass < Test::Unit::TestCase
-
-    class A ; end
-    class B < A ; end
-    class C < B ; end
-
-    def test_remove_descendents
-      assert_nothing_raised { B.remove_descendents }
-      # doesn't work despite above; not sure why
-      #assert_equal( [B], A.descendents )
-    end
-
-  end
-
-=end

data/lib/facet/class/remove_subclasses.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/class/remove_descendents'

data/lib/facet/class/subclasses.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/class/descendents'

data/lib/facet/comparable.rb

@@ -1,5 +0,0 @@
-require 'nano/comparable/at_least'
-require 'nano/comparable/at_most'
-require 'nano/comparable/cap'
-require 'nano/comparable/clip'
-require 'nano/comparable/cmp'

data/lib/facet/comparable/at_least.rb

@@ -1,53 +0,0 @@
-#--
-# Credit goes to Florian Gross.
-#++
-module Comparable
-
-  # Returns the lower of self or x.
-  #
-  #   4.at_least(5)  #=> 5
-  #   6.at_least(5)  #=> 6
-  #
-  def at_least(x)
-    (self >= x) ? self : x
-  end
-
-  # Returns the greater of self or x.
-  #
-  #   4.at_most(5)  #=> 4
-  #   6.at_most(5)  #=> 5
-  #
-  def at_most(x)
-    (self <= x) ? self : x
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCComparable < Test::Unit::TestCase
-
-    def test_at_most
-      assert_equal( 3, 3.at_most(4) )
-      assert_equal( 4, 4.at_most(4) )
-      assert_equal( 4, 5.at_most(4) )
-    end
-
-    def test_at_least
-      assert_equal( 4, 3.at_least(4) )
-      assert_equal( 4, 4.at_least(4) )
-      assert_equal( 5, 5.at_least(4) )
-    end
-
-  end
-
-=end

data/lib/facet/comparable/at_most.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/comparable/at_least'

data/lib/facet/comparable/cap.rb

@@ -1,2 +0,0 @@
-# stub
-require 'facet/comparable/clip'

data/lib/facet/comparable/clip.rb

@@ -1,72 +0,0 @@
-#--
-# Credit goes to Florian Gross.
-#++
-module Comparable
-
-  # Returns self if above the given lower bound, or
-  # within the given lower and upper bounds,
-  # otherwise returns the the bound of which the
-  # value falls outside.
-  #
-  #   4.clip(3)    #=> 4
-  #   4.clip(5)    #=> 5
-  #   4.clip(2,7)  #=> 4
-  #   9.clip(2,7)  #=> 7
-  #   1.clip(2,7)  #=> 2
-  #
-  def clip(lower, upper=nil)
-    return lower if self < lower
-    return self unless upper
-    return upper if self > upper
-    return self
-  end
-
-  # Returns the greater of self or x.
-  #
-  #   4.cap(5)  #=> 4
-  #   6.cap(5)  #=> 5
-  #
-  def cap(upper)
-    (self <= upper) ? self : upper
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCComparable < Test::Unit::TestCase
-
-    def test_clip
-      assert_equal( 4, 3.clip(4) )
-      assert_equal( 4, 4.clip(4) )
-      assert_equal( 5, 5.clip(4) )
-      assert_equal( 4, 4.clip(3,5) )
-      assert_equal( 3, 3.clip(3,5) )
-      assert_equal( 5, 5.clip(3,5) )
-      assert_equal( 3, 2.clip(3,5) )
-      assert_equal( 5, 6.clip(3,5) )
-      assert_equal( 'd', 'd'.clip('c','e') )
-      assert_equal( 'c', 'c'.clip('c','e') )
-      assert_equal( 'e', 'e'.clip('c','e') )
-      assert_equal( 'c', 'b'.clip('c','e') )
-      assert_equal( 'e', 'f'.clip('c','e') )
-    end
-
-    def test_cap
-      assert_equal( 3, 3.cap(4) )
-      assert_equal( 4, 4.cap(4) )
-      assert_equal( 4, 5.cap(4) )
-    end
-
-  end
-
-=end

data/lib/facet/comparable/cmp.rb

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