facets 1.0.0 → 1.0.1

data/lib/facet/kernel/autoreload.rb

@@ -1,46 +0,0 @@
-#--
-# Copied from Wee 0.8.0
-# Autoreload (c) 2004 Michael Neumann.
-#++
-
-module Kernel
-
-  #--
-  # TODO
-  #++
-  def autoreload(check_interval=10)
-    Thread.new(Time.now) { |start_time|
-      file_mtime = {}
-      loop {
-        sleep check_interval 
-        $LOADED_FEATURES.each { |feature|
-          $LOAD_PATH.each { |lp|
-            file = File.join(lp, feature)
-            if (File.exists?(file) and
-              File.stat(file).mtime > (file_mtime[file] || start_time))
-              file_mtime[file] = File.stat(file).mtime
-              STDERR.puts "reload #{ file }"
-              begin
-                load(file)
-              rescue Exception => e
-                STDERR.puts e.inspect
-              end
-            end
-          }
-        }
-      }
-    }
-  end
-
-end
-
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO

data/lib/facet/kernel/autoreload_glob.rb

@@ -1,36 +0,0 @@
-#--
-# Copied from Wee 0.8.0
-# (c) 2004 Michael Neumann.
-#++
-
-module Kernel
-
-  # Note that this method will load any file that matches the glob and is
-  # modified since the method call, regardless whether it's loaded by the
-  # current application or not. The glob is expanded only once at the initial
-  # method call.
-  #
-  def autoreload_glob(glob, check_interval=1)
-    files = Dir.glob(glob)
-    file_mtime = {}
-    start_time = Time.now 
-    Thread.new {
-      loop {
-        sleep check_interval 
-        files.each { |file|
-          if (File.exists?(file) and 
-            File.stat(file).mtime > (file_mtime[file] || start_time))
-            file_mtime[file] = File.stat(file).mtime
-            STDERR.puts "reload #{ file }"
-            begin
-              load(file)
-            rescue Exception => e
-              STDERR.puts e.inspect
-            end
-          end
-        }
-      }
-    }
-  end
-
-end

data/lib/facet/kernel/bool.rb

@@ -1,77 +0,0 @@
-#--
-# As suggested by Ara T. Howard
-#++
-
-class Object
-
-  # Returns true is an object is class TrueClass,
-  # otherwise false.
-  #
-  #   true.true?   #=> true
-  #   false.true?  #=> false
-  #   nil.true?    #=> false
-  #
-  def true?
-    (true == self)
-  end
-
-  # Returns true is an object is class FalseClass,
-  # otherwise false.
-  #
-  #   true.false?   #=> false
-  #   false.false?  #=> true
-  #   nil.false?    #=> false
-  #
-  def false?
-    (false == self)
-  end
-
-  # Returns true is an object is class TrueClass
-  # or FalseClass, otherwise false.
-  #
-  #   true.bool?   #=> true
-  #   false.bool?  #=> true
-  #   nil.bool?    #=> false
-  #
-  def bool?
-    (true == self or false == self)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_false?
-      assert( false.false? )
-      assert( (1 == 2).false? )
-      assert( ! (1 == 1).false? )
-    end
-
-    def test_true?
-      assert( true.true? )
-      assert( (1 == 1).true? )
-      assert( ! (1 == 2).true? )
-    end
-
-    def test_bool?
-      assert_equal( true, true.bool? )
-      assert_equal( true, false.bool? )
-      assert_equal( false, nil.bool? )
-      assert_equal( false, 0.bool? )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/bug.rb

@@ -1,39 +0,0 @@
-
-class ScriptBug < Exception; end
-
-module Kernel
-  # Raises a ScritBug error with a message.
-  #
-  #   if find_bug then
-  #     bug! "unknown bug found"
-  #   end
-  #
-  #--
-  # Credit goes to Minero Aoki. Cute! :-)
-  #++
-  def bug!( message = 'must not happen' )
-    raise ScriptBug, "\n[SCRIPT BUG] " + message
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_bug!
-      assert_raises( ScriptBug ) { bug! }
-    end
-
-  end
-
-=end

data/lib/facet/kernel/call_stack.rb

@@ -1,59 +0,0 @@
-module Kernel
-
-  # Parse a caller string and break it into its components,
-  # returning an array. Returns:
-  # * file (String)
-  # * lineno (Integer)
-  # * method (Symbol)
-  #
-  # For example, from irb,
-  #
-  #   call_stack(1)
-  #
-  # _produces_
-  #
-  # [["(irb)", 2, :irb_binding],
-  #  ["/usr/lib/ruby/1.8/irb/workspace.rb", 52, :irb_binding],
-  #  ["/usr/lib/ruby/1.8/irb/workspace.rb", 52, nil]]
-  #
-  # Note: If the user decides to redefine caller() to output data
-  # in a different format, _prior_ to requiring this, then the
-  # results will be indeterminate.
-  alias_method :pp_call_stack, :caller
-  def call_stack( level = 1 )
-    call_str_array = pp_call_stack(level)
-    stack = []
-    call_str_array.each{ |call_str|
-      file, lineno, method = call_str.split(':')
-      if method =~ /in `(.*)'/ then
-        method = $1.intern()
-      end
-      stack << [file, lineno.to_i, method]
-    }
-    stack
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_call_stack
-      assert_nothing_raised{ call_stack }
-    end
-
-  end
-
-=end
-

data/lib/facet/kernel/called.rb

@@ -1,40 +0,0 @@
-
-module Kernel
-
-  private
-
-  # Retreive the current running method name.
-  # There is a lot of debate on what to call this.
-  # #called differs from #method_name only by the fact
-  # that it returns a symbol, rather then a string.
-  #
-  #   def tester; called; end
-  #   tester  #=> :tester
-  #
-  def called
-    /\`([^\']+)\'/.match(caller(1).first)[1].to_sym
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_called
-      assert_equal( :test_called, called )    
-    end
-
-  end
-
-=end

data/lib/facet/kernel/complete.rb

@@ -1,6 +0,0 @@
-
-module Kernel
-  def complete
-    loop { break unless yield }
-  end
-end

data/lib/facet/kernel/constant.rb

@@ -1,52 +0,0 @@
-
-module Kernel
-
-  # This is similar to +Module#const_get+ but is accessible at all levels,
-  # and, unlike +const_get+, can handle module hierarchy.
-  #
-  #   constant("Fixnum")                  # -> Fixnum
-  #   constant(:Fixnum)                   # -> Fixnum
-  #
-  #   constant("Process::Sys")            # -> Process::Sys
-  #   constant("Regexp::MULTILINE")       # -> 4
-  #
-  #   require 'test/unit'
-  #   Test.constant("Unit::Assertions")   # -> Test::Unit::Assertions
-  #   Test.constant("::Test::Unit")       # -> Test::Unit
-  #
-  def constant(const)
-    const = const.to_s.dup
-    base = const.sub!(/^::/, '') ? Object : ( self.kind_of?(Module) ? self : self.class )
-    const.split(/::/).inject(base){ |mod, name| mod.const_get(name) }
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_constant
-      c = ::Test::Unit::TestCase.name
-      assert_equal( ::Test::Unit::TestCase, constant(c) )
-      c = "Test::Unit::TestCase"
-      assert_equal( ::Test::Unit::TestCase, constant(c) )
-      c = "Unit::TestCase"
-      assert_equal( ::Test::Unit::TestCase, Test.constant(c) )
-      c = "TestCase"
-      assert_equal( ::Test::Unit::TestCase, Test::Unit.constant(c) )
-    end
-
-  end
-
-=end

data/lib/facet/kernel/copy.rb

@@ -1,48 +0,0 @@
-
-module Kernel
-
-  # Anything that can be marshaled can be copied in totality.
-  # This is also commonly called a deep_copy.
-  #
-  #   "ABC".copy  #=> "ABC"
-  #
-  def copy
-    Marshal::load(Marshal::dump(self))
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    # fixtures for copy / deep_copy
-    class A
-      attr_reader :a
-      def initialize
-        @a = 1
-      end
-    end
-    class B
-      attr_reader :b
-      def initialize
-        @b = A.new
-      end
-    end
-
-    def test_copy
-      o = B.new
-      oc = o.copy
-      assert_equal( 1, o.b.a  )
-    end
-  end
-
-=end

data/lib/facet/kernel/deep_copy.rb

@@ -1,49 +0,0 @@
-
-module Kernel
-
-  # Anything that can be marshaled can be copied in totality.
-  # This is also just called copy.
-  #
-  #   "ABC".deep_copy  #=> "ABC"
-  #
-  def deep_copy
-    Marshal::load(Marshal::dump(self))
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-    # fixtures for copy / deep_copy
-    class A
-      attr_reader :a
-      def initialize
-        @a = 1
-      end
-    end
-    class B
-      attr_reader :b
-      def initialize
-        @b = A.new
-      end
-    end
-
-    def test_deep_copy
-      o = B.new
-      oc = o.deep_copy
-      assert_equal( 1, o.b.a  )
-    end
-  end
-
-=end
-