facets 1.1.0 → 1.2.0

data/lib/facet/kernel/get_by_id.rb

@@ -1,33 +1 @@
-
-module Kernel
-
-  module_function
-  def get_by_id( id )
-    ObjectSpace._id2ref( id )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_get_by_id
-      a = "Test"
-      i = a.object_id
-      assert_equal( a, get_by_id(i) )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/get_by_id.rb'

data/lib/facet/kernel/here.rb

@@ -1,34 +1 @@
-
-module Kernel
-
-  # A shorthand pronoun for binding().
-  #
-  #   a = 3
-  #   b = here
-  #   eval( "a", b )  #=> 3
-  #
-  alias_method( :here, :binding )
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_here
-      assert_instance_of( Binding, here )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/here.rb'

data/lib/facet/kernel/in.rb

@@ -1,35 +1 @@
-
-class Object
-
-  # Is self included in other?
-  #
-  #   5.in?(0..10)       #=> true
-  #   5.in?([0,1,2,3])   #=> false
-  #
-  def in?(other)
-    other.include?(self)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_in?
-      assert( 5.in?(0..10) )
-      assert( 5.in?([1,2,3,4,5]) )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/in.rb'

data/lib/facet/kernel/instance_assign.rb

@@ -1,25 +1 @@
-
-class Object
-
-  # Universal assignment. This is a meta-programming
-  # method, which allows you to assign any type of variable.
-  def instance_assign( name, value )
-    k = name.to_s
-    v = value
-    /^([@$]{0,2})/ =~ k
-    case $1
-    when '$', '@@'
-      instance_eval %Q{ #{k} = v }
-    when '@'
-      instance_variable_set( k, v )
-      #@__atttributes__ |= k
-    else
-      return __send__( "#{k}=", v ) if respond_to?("#{k}=")
-      # No accessor? What to do? Assume instance var, or error? ...
-      self.instance_variable_set( "@#{k}", v )
-      #@__atttributes__ |= "@#{k}"
-    end
-    return value
-  end
-
-end
+require 'facets/core/kernel/instance_assign.rb'

data/lib/facet/kernel/instvar.rb

@@ -1,13 +1 @@
-
-
-module Kernel
-
-  def instvar( sym )
-    instance_variable_get( "@#{sym}" )
-  end
-
-  def instvar!( sym, val )
-    instance_variable_set( "@#{sym}", val )
-  end
-
-end
+require 'facets/core/kernel/instvar.rb'

data/lib/facet/kernel/is.rb

@@ -1,5 +1 @@
-require 'facet/module/is'
-module Kernel
-  # May deprecate so as not to confuse with module method.
-  alias_method :is?, :is_a?
-end
+require 'facets/core/kernel/is.rb'

data/lib/facet/kernel/maybe.rb

@@ -1,41 +1 @@
-
-module Kernel
-
-  # Random generator that returns true or false. 
-  # Can also take a block that has a 50/50 chance to being executed.
-  #
-  #   maybe  #=> true
-  #   maybe  #=> false
-  #
-  def maybe(chance = 0.5, &block)
-    if block then
-      yield if rand < chance
-    else
-      rand < chance
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_maybe
-      assert_nothing_raised { maybe }
-    end
-
-  end
-
-=end
-
+require 'facets/core/kernel/maybe.rb'

data/lib/facet/kernel/me.rb

@@ -1,17 +1 @@
-module Kernel
-
-  private
-
-  # Retreive the current running method name.
-  #
-  # There is a lot of debate on what to call this.
-  # #methname returns a symbol, not a string.
-  #
-  #   def tester; methname; end
-  #   tester  #=> :tester
-  #
-  def me
-    /\`([^\']+)\'/.match(caller(1).first)[1].to_sym
-  end
-
-end
+require 'facets/core/kernel/me.rb'

data/lib/facet/kernel/meta.rb

@@ -1,2 +1 @@
-# stub
-require 'facet/kernel/__meta__'
+require 'facets/core/kernel/meta.rb'

data/lib/facet/kernel/metaclass.rb

@@ -1,42 +1 @@
-
-class Object
-
-  # Easy access to an object's "special" class,
-  # otherwise known as it's meta class or singleton class.
-  #
-  def metaclass
-    (class << self; self; end)
-  end
-  #warn 'metaclass is being depricated. Use #own or #singleton.'
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_metaclass
-      o = Object.new
-      assert_equal( (class << o; self; end), o.metaclass )
-      #assert_nothing_raised do
-      #  o.metaclass_eval{ @@a = "test" }
-      #end
-      #assert_nothing_raised do
-      #  o.define_metaclass_method(:testing){ |x| x + 1 }
-      #end
-      #assert_equal(2, o.testing(1) )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/metaclass.rb'

data/lib/facet/kernel/method.rb

@@ -1,76 +1 @@
-#--
-# NOTES:
-#
-#   First Class Methods
-#
-#   I think the best solution would be using the notation
-#   <tt>::ameth</tt>. This would require some minor changes
-#   to Ruby, but with few backward incompatabilites if
-#   parantheticals revert back to the actual method invocation.
-#   Although this later stipulation means capitalized methods
-#   would not be accessible in this way b/c they would intefere with
-#   constant lookup. It's a trade off.
-#
-#                   Current           Proposed           Alternate
-#                   ----------------- ------------------ -------------------
-#     Foo.Bar()     method call       method call        method call
-#     Foo.Bar       method call       method call        method call
-#     Foo.bar()     method call       method call        method call
-#     Foo.bar       method call       method call        method call
-#     Foo::Bar()    method call       method call        1st class method
-#     Foo::Bar      constant lookup   constant lookup    constant lookup
-#     Foo::bar()    method call       method call        1st class method
-#     Foo::bar      method call       1st class method   1st class method
-#
-#   Then again this dosen't address bound versus unbound.
-#
-#   Which do you prefer?
-#++
-
-class Object
-  # Easy access to method as objects, and they retain state!
-  #
-  #   def hello
-  #     puts "Hello World!"
-  #   end
-  #   p method!(:hello)   #=> <Method: #hello>
-  #
-  def method!(s)
-    ( @__methods__ ||= {} )[s] ||= method(s)
-  end
-end
-
-# not needed
-#class Module
-#  def instance_method!(s)
-#    ( @__instance_methods__ ||= {} )[s] ||= instance_method(s)
-#  end
-#end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_METHOD < Test::Unit::TestCase
-
-    class TestWith
-      def foo ; end
-    end
-
-    def test_method!
-      t = TestWith.new
-      assert_equal( t.method!(:foo).__id__, t.method!(:foo).__id__ )
-      assert_not_equal( t.method(:foo).__id__, t.method(:foo).__id__ )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/method.rb'

data/lib/facet/kernel/method_name.rb

@@ -1,49 +1 @@
-
-module Kernel
-
-  private
-
-  # Retreive the current running method.
-  # There is a lot of debate on what to call this.
-  # #method_name differs from #called only by the fact
-  # that it returns a string, rather then a symbol.
-  #
-  #   def tester; method_name; end
-  #   tester  #=> "tester"
-  #
-  def methodname
-    name = /\`([^\']+)\'/.match(caller(1).first)[1]
-    return name
-  end
-
-  # depricate?
-  alias_method :method_name, :methodname
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCKernel < Test::Unit::TestCase
-
-    def test_method_name
-      # For some reason this was returning a string
-      # even when aliased to #called. Why?
-      # Well, I couldn't seem to fix it, so I just
-      # accepted it as fact and made +method_name+ 
-      # purposefully work that way.
-      assert_equal( "test_method_name", method_name )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/method_name.rb'

data/lib/facet/kernel/methods.rb

@@ -1,79 +1 @@
-require 'facet/module/instance_methods'
-
-class Object
-
-  # Returns a list of methods according to symbol(s) given.
-  #
-  # Usable symbols include:
-  #
-  # * <tt>:inherited</tt> or <tt>:ancestors</tt>
-  # * <tt>:local</tt> or <tt>:no_ancestors</tt>
-  # * <tt>:public</tt>
-  # * <tt>:private</tt>
-  # * <tt>:protected</tt>
-  # * <tt>:singleton</tt>
-  # * <tt>:all</tt>
-  #
-  # It no symbol is given then :public is assumed.
-  # Unrecognized symbols raise an error.
-  #
-  #   def test
-  #     puts("Hello World!")
-  #   end
-  #
-  #   methods(:local)    #=> ['test']
-  #
-  def methods(*args)
-    args = [ :public, :local, :ancestors ] if args.empty?
-    m = self.class.instance_methods( *args )
-    m |= singleton_methods if args.include?( :singleton ) or args.include?( :all )
-    m
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TC_Methods < Test::Unit::TestCase
-
-    class O
-      def a ; end
-    end
-    $o = O.new
-
-    # get a hold of the original definition _before require_
-    $imF = $o.method( :methods )
-
-    def test_instance_methods
-      assert_equal( $imF.call.sort, $o.methods )
-    end
-
-    def test_public_instance_methods
-      assert_equal( $o.public_methods.sort, $o.methods(:public) )
-    end
-
-    def test_private_instance_methods
-      assert_equal( $o.private_methods.sort, $o.methods(:private) )
-    end
-
-    def test_protected_instance_methods
-      assert_equal( $o.protected_methods.sort, $o.methods(:protected) )
-    end
-
-    def test_local_instance_methods
-      assert_equal( ["a"], $o.methods(:local) )
-    end
-
-  end
-
-=end
+require 'facets/core/kernel/methods.rb'