facets 2.9.2 → 2.9.3

data/src/core/facets/kernel/enable_warnings.rb

@@ -1 +0,0 @@
-require 'facets/kernel/disable_warnings'

data/src/core/facets/kernel/equate.rb

@@ -1,16 +0,0 @@
-module Kernel
-
-  # Broad equality. Checks to see if the object +x+ is in any
-  # way equal to the reciever, starting with the identity
-  # #equal?, then #eql?, then #==, and ending with #===.
-  #
-  #   1.equate?(1.0)               #=> true
-  #   "string".equate?("string")   #=> true
-  #   String.equate?("string")     #=> true
-  #
-  def equate?(x)
-    equal?(x) || eql?(x) || self == x || self === x
-  end
-
-end
-

data/src/core/facets/kernel/ergo.rb

@@ -1,43 +0,0 @@
-require 'facets/functor'
-
-module Kernel
-
-  # Yield self -or- return self.
-  #
-  #   "a".ergo.upcase #=> "A"
-  #   nil.ergo.foobar #=> nil
-  #
-  #   "a".ergo{ |o| o.upcase } #=> "A"
-  #   nil.ergo{ |o| o.foobar } #=> nil
-  #
-  # This is like #tap, but #tap yields self and returns self,
-  # where as #ergo yields self buit return the result.
-  #
-  # CREDIT: Daniel DeLorme
-
-  def ergo(&b)
-    if block_given?
-      b.arity == 1 ? yield(self) : instance_eval(&b)
-    else
-      self
-    end
-  end
-
-end
-
-class NilClass
-
-  # Compliments Kernel#ergo.
-  #
-  #   "a".ergo{ |o| o.upcase } #=> "A"
-  #   nil.ergo{ |o| o.bar }    #=> nil
-  #
-  # CREDIT: Daniel DeLorme
-
-  def ergo
-    @_ergo ||= Functor.new{ nil }
-    @_ergo unless block_given?
-  end
-
-end
-

data/src/core/facets/kernel/extend.rb

@@ -1,27 +0,0 @@
-module Kernel
-
-  alias_method :_extend, :extend
-
-  private :_extend
-
-  # Extend an object with a module.
-  #
-  # If a block is given, it will be evaluated into an anonymous
-  # module and used to extend the object.
-  #
-  #   obj = Object.new
-  #
-  #   obj.extend do
-  #     def foo; "foo"; end
-  #   end
-  #
-  #   obj.foo  #=> "foo"
-  #
-  # NOTE: This is one of the few overrides in Facents.
-  def extend(*mod, &blk)
-    _extend(*mod) unless mod.empty?
-    _extend Module.new(&blk) if blk
-    self
-  end
-
-end

data/src/core/facets/kernel/extension.rb

@@ -1,12 +0,0 @@
-module Kernel
-
-  # Don't say it!
-  #
-  # TODO: Must reduce the number of singleton method methods.
-  #
-  def extension
-    class << self; self; end
-  end
-
-end
-

data/src/core/facets/kernel/false.rb

@@ -1,2 +0,0 @@
-require 'facets/kernel/true'
-

data/src/core/facets/kernel/here.rb

@@ -1,11 +0,0 @@
-module Kernel
-
-  # A shorthand pronoun for binding().
-  #
-  #   a = 3
-  #   eval("a", here)  #=> 3
-  #
-  alias_method :here, :binding
-
-end
-

data/src/core/facets/kernel/identical.rb

@@ -1,4 +0,0 @@
-module Kernel
-  alias_method :identical?, :equal?
-end
-

data/src/core/facets/kernel/in.rb

@@ -1,13 +0,0 @@
-module Kernel
-
-  # 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
-

data/src/core/facets/kernel/instance_assign.rb

@@ -1,20 +0,0 @@
-module Kernel
-
-  # Set instance variables using a hash.
-  #
-  #   instance_assign('@a'=>1, '@b'=>2)
-  #   @a   #=> 1
-  #   @b   #=> 2
-  #
-  # DEPRECATE: Use instance.update instead of #instance_assign.
-
-  def instance_assign(hash)
-    hash.each do |k,v|
-      k = "@#{k}" if k !~ /^@/
-      instance_variable_set(k, v)
-    end
-    return self
-  end
-
-end
-

data/src/core/facets/kernel/instance_class.rb

@@ -1,26 +0,0 @@
-module Kernel
-
-  # Kernel extension prefixed by instance_ which provide
-  # internal (eg private) access to the object.
-  # Kernel extension using instance_ prefix which is beneficial
-  # to separation of metaprogramming from general programming.
-  # object_ methods, in contrast to the instance_ methods,
-  # do not access internal state.
-
-  # Easy access to an object qua class, otherwise known
-  # as the object's metaclass or singleton class. This
-  # implemnetation alwasy returns the class, even if a
-  # block is provided to eval against it...
-  #
-  #     It is what it is.
-  #     But I think I like this one best.
-  #
-  # CREDIT: Trans
-
-  def instance_class(&block)
-    (class << self; self; end).module_eval(&block) if block
-    (class << self; self; end)
-  end
-
-end
-

data/src/core/facets/kernel/instance_send.rb

@@ -1,7 +0,0 @@
-module Kernel
-
-  # Private send.
-  alias_method :instance_send, :__send__
-
-end
-

data/src/core/facets/kernel/load_all.rb

@@ -1 +0,0 @@
-require 'facets/kernel/require_all'

data/src/core/facets/kernel/load_relative.rb

@@ -1 +0,0 @@
-require 'facets/kernel/require_relative'

data/src/core/facets/kernel/maybe.rb

@@ -1,19 +0,0 @@
-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
-      yield if rand < chance
-    else
-      rand < chance
-    end
-  end
-
-end
-

data/src/core/facets/kernel/meta_alias.rb

@@ -1,23 +0,0 @@
-require 'facets/kernel/meta_class'
-
-module Kernel
-
-  # Alias a method defined in the metaclass (ie. singleton class).
-  #
-  #   class MetaExample
-  #     def self.y?; "y?" ; end
-  #   end
-  #
-  #   MetaExample.meta_alias "ynot?", "y?"
-  #
-  #   MetaExample.ynot?  #=> "y?"
-  #
-  # CREDIT: Trans
-
-  def meta_alias(*args)
-    meta_class do
-      alias_method(*args)
-    end
-  end
-
-end

data/src/core/facets/kernel/meta_class.rb

@@ -1,17 +0,0 @@
-module Kernel
-
-  # Easy access to an object's "special" class, otherwise known as it's
-  # singleton class, eigenclass, adhoc class or object-qua-class.
-  # 
-  def meta_class(&block)
-    if block_given?
-      (class << self; self; end).class_eval(&block)
-    else
-      (class << self; self; end)
-    end
-  end
-
-  # The non-underscored form of #meta_class if faily common.
-  alias_method :metaclass, :meta_class
-
-end

data/src/core/facets/kernel/meta_def.rb

@@ -1,20 +0,0 @@
-require 'facets/kernel/meta_class'
-
-module Kernel
-
-  # Add method to a meta-class --i.e. a singleton method.
-  #
-  #   class X; end
-  #   X.meta_def(:x){"x"}
-  #   X.x  #=> "x"
-  #
-  # CREDIT: WhyTheLuckyStiff
-
-  def meta_def( name, &block )
-    meta_class do
-      define_method( name, &block )
-    end
-  end
-
-end
-

data/src/core/facets/kernel/meta_eval.rb

@@ -1,20 +0,0 @@
-require 'facets/kernel/meta_class'
-
-module Kernel
-
-  # Evaluate code in a metaclass. This is equivalent to:
-  #
-  #   meta_class.instance_eval(...)
-  #
-  # CREDIT: WhyTheLuckyStiff
-
-  def meta_eval(str=nil, *file_and_line, &blk)
-    if str
-      meta_class.instance_eval(str, *file_and_line)
-    else
-      meta_class.instance_eval(&blk)
-    end
-  end
-
-end
-

data/src/core/facets/kernel/method.rb

@@ -1,50 +0,0 @@
-$FIRST_CLASS_METHODS = Hash.new{ |h,k| h[k] = {} }
-
-module Kernel
-
-  # Easy access to method as object, and they retain state.
-  #
-  #   def hello
-  #     puts "Hello World!"
-  #   end
-  #
-  #   m1 = method!(:hello)
-  #
-  #   def m1.annotate
-  #     "simple example"
-  #   end
-  #
-  #   m2 = method!(:hello)
-  #   m2.annotate  #=> "simple example"
-  #
-  def method!(s)
-    #( @__methods__ ||= {} )[s.to_sym] ||= method(s)
-    $FIRST_CLASS_METHODS[self][s.to_sym] ||= method(s)
-  end
-
-end
-
-#--
-# Should 1st Class Methods be part of Ruby proper?
-#
-# Perhaps 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.
-#++

data/src/core/facets/kernel/no.rb

@@ -1 +0,0 @@
-require 'facets/kernel/yes'

data/src/core/facets/kernel/not.rb

@@ -1,37 +0,0 @@
-require 'facets/functor'
-
-module Kernel
-
-  # Same as using NOT operator '!'.
-  #
-  #  true.nil?.not? == !true.nil?
-  #
-  def not?
-    !self
-  end
-
-  # Inversion functor.
-  #
-  #   true.not.nil?  #=> true
-  #
-  def not
-    Functor.new(&method(:not_send).to_proc)
-  end
-
-  ## TODO: When we no longer need to support 1.8.6 we can use:
-  ## 
-  ## def not
-  ##   Functor.new do |op, *a, &b|
-  ##     !__send__(op, *a, &b)
-  ##   end
-  ## end
-
-  private
-
-  #
-  def not_send(op, *a, &b)
-    !__send__(op, *a)
-  end
-
-end
-

data/src/core/facets/kernel/not_nil.rb

@@ -1,18 +0,0 @@
-module Kernel
-
-  # The opposite of #nil?.
-  #
-  #   "hello".not_nil?     # -> true
-  #   nil.not_nil?         # -> false
-  #
-  # CREDIT: Gavin Sinclair
-
-  def not_nil?
-    ! nil?
-  end
-
-  # DEPRECATED: #not_nil? it enough.
-  #alias_method :non_nil?, :not_nil?
-
-end
-

data/src/core/facets/kernel/object_class.rb

@@ -1,10 +0,0 @@
-module Kernel
-
-  # Defines object_classas an alias of class.
-  # This is an alternative to __class__, akin to
-  # #object_id.
-
-  alias_method :object_class, :class
-
-end
-

data/src/core/facets/kernel/object_hexid.rb

@@ -1,31 +0,0 @@
-module Kernel
-
-  arch_size = (['a'].pack('P').length > 4 ? 64 : 32)
-
-  if arch_size == 64
-
-    # Returns the object id as a string in hexideciaml,
-    # which is how Ruby reports them with inspect...
-    #
-    #   "ABC".object_hexid  #=> "0x402d359c"
-    #
-    def object_hexid
-      hex = (__id__ << 1)
-      "0x%014x" % hex
-    end
-
-  else
-
-    # Returns the object id as a string in hexideciaml,
-    # which is how Ruby reports them with inspect...
-    #
-    #   "ABC".object_hexid  #=> "0x402d359c"
-    #
-    def object_hexid
-      hex = (__id__ << 1) #.to_s(16)
-      "0x%x" % hex
-    end
-
-  end
-
-end