facets 2.9.2 → 2.9.3

data/lib/core-uncommon/facets/array/median.rb

@@ -1,17 +0,0 @@
-require 'facets/array/percentile'
-
-class Array
-
-  # Returns the median for the array; nil if array is empty.
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #--
-  # TODO: Does Array#median belong in a math-oriented library?
-  #++
-  def median
-    percentile(50)
-  end
-
-end
-

data/lib/core-uncommon/facets/array/op_pow.rb

@@ -1,9 +0,0 @@
-require 'facets/array/product'
-
-class Array
-  # Array#** is an alias for Array#product.
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  alias_method :**, :product
-end

data/lib/core-uncommon/facets/array/percentile.rb

@@ -1,32 +0,0 @@
-class Array
-
-  # Returns the percentile value for percentile _p_; nil if array is empty.
-  #
-  # +p+ should be expressed as an integer; <tt>percentile(90)</tt> returns
-  # the 90th percentile of the array.
-  #
-  # Algorithm from NIST[http://www.itl.nist.gov/div898/handbook/prc/section2/prc252.htm]
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDT: ?
-
-  def percentile(p)
-    sorted_array = self.sort
-    rank = (p.to_f / 100) * (self.length + 1)
-
-    if self.length == 0
-      return nil
-    elsif rank.to_i == rank #fractional_part?
-      sample_0 = sorted_array[rank.truncate - 1]
-      sample_1 = sorted_array[rank.truncate]
-
-      fractional_part = rank.abs.modulo(1)
-      return (fractional_part * (sample_1 - sample_0)) + sample_0
-    else
-      return sorted_array[rank.to_i - 1]
-    end    
-  end
-  
-end

data/lib/core-uncommon/facets/class/singleton.rb

@@ -1,8 +0,0 @@
-class Class 
-
-  #
-  def singleton? 
-    ! ancestors.include?( self ) rescue false 
-  end
-
-end 

data/lib/core-uncommon/facets/enumerable/has.rb

@@ -1,22 +0,0 @@
-module Enumerable
-  
-  # The same as #include?() but equality is tested using ===.
-  # 
-  #   [1, 2, "a"].has?(2)       #=> true
-  #   [1, 2, "a"].has?(String)  #=> true
-  #   [1, 2, "a"].has?(3)       #=> false
-  # 
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # TODO: Perhaps #matches? would be a better name?
-  #
-  # CREDIT: Lavir the Whiolet
-  def has?(what)
-    any? { |x| what === x }
-  end
-  
-  # Alias for #has?
-  alias have? has?
-  
-end

data/lib/core-uncommon/facets/enumerable/have.rb

@@ -1 +0,0 @@
-require 'facets/enumerable/has'

data/lib/core-uncommon/facets/kernel/eigenclass.rb

@@ -1,21 +0,0 @@
-module Kernel
-
-  # During this trying time when no one can get their
-  # techie catchwords to stick to the refrigerator no
-  # matter how hard they slap it with the enchanted
-  # magnetic spatula, it’s good to know that the
-  # contrived phrases really do fly, graceful and
-  # unclasped and bearing north toward chilled shrimp.
-  # I know what my Hallowe’en pumpkin is going to say.
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: WhyTheLuckyStiff
-
-  def eigenclass
-    (class << self; self; end)
-  end
-
-end
-

data/lib/core-uncommon/facets/kernel/trap_chain.rb

@@ -1,23 +0,0 @@
-module Kernel
-  # Calling Kernel#trap() by itself will replace any previously registered
-  # handler code. Kernel#trap_chain(), on the other hand, will add the block
-  # you supply to the existing "list" of registered handler blocks. Similar
-  # to the way Kernel#at_exit() works, Kernel#trap_chain() will prepend the
-  # given block to the call chain for the given signal_name. When the signal
-  # occurs, your block will be executed first and then the previously
-  # registered handler will be invoked. This can be called repeatedly
-  # to create a "chain" of handlers. 
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: Tyler Rick
-  def trap_chain(signal_name, *args, &block)
-    previous_interrupt_handler = trap(signal_name, *args) {}
-    trap(signal_name, *args) do
-      block.call
-      previous_interrupt_handler.call unless previous_interrupt_handler == "DEFAULT"
-    end
-  end
-
-end

data/lib/core-uncommon/facets/module/attr_class_accessor.rb

@@ -1,39 +0,0 @@
-class Module
-
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  def attr_class_accessor(name)
-    attr_class_reader(name)
-    attr_class_writer(name)
-  end
-
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  def attr_class_reader(name)
-    module_eval(<<-EOS, __FILE__, __LINE__)
-      def self.#{name}
-        @#{name}
-      end
-      def #{name}
-        self.class.#{name}
-      end
-    EOS
-  end
-
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  def attr_class_writer(name)
-    module_eval(<<-EOS, __FILE__, __LINE__)
-      def self.#{name}=(x)
-        @#{name} = x
-      end
-      def #{name}=(x)
-        self.class.#{name} = x
-      end
-    EOS
-  end
-
-end

data/lib/core-uncommon/facets/module/attr_inheritor.rb

@@ -1,15 +0,0 @@
-class Module
-
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  def attr_inheritable_reader(name, default)
-    copy_inheritor(name, default)
-    module_eval(<<-EOS, __FILE__, __LINE__)
-      def #{name}
-        self.class.#{name}
-      end
-    EOS
-  end
-
-end

data/lib/core-uncommon/facets/module/attr_tester.rb

@@ -1,49 +0,0 @@
-class Module
-
-  # Create an tester attribute. This creates a single method
-  # used to test the attribute for truth.
-  #
-  #   attr_tester :a
-  #
-  # is equivalent to
-  #
-  #   def a?
-  #     @a ? true : @a
-  #   end
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: Trans
-
-  def attr_tester(*args)
-    code, made = '', []
-    args.each do |a|
-      code << %{
-        def #{a}?(truth=nil)
-          @#{a} ? truth || @#{a} : @#{a}
-        end
-      }
-      made << "#{a}?".to_sym
-    end
-    module_eval code
-    made
-  end
-
-  # Create aliases for flag reader.
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: Trans
-
-  def alias_tester(*args)
-    orig = args.last
-    args = args - [orig]
-    args.each do |name|
-      alias_method("#{name}?", "#{orig}?")
-    end
-  end
-
-end
-

data/lib/core-uncommon/facets/module/cattr.rb

@@ -1,264 +0,0 @@
-class Module
-
-  # Creates a class-variable attribute that can
-  # be accessed both on an instance and class level.
-  #
-  #   class CARExample
-  #     @@a = 10
-  #     cattr :a
-  #   end
-  #
-  #   CARExample.a           #=> 10
-  #   CARExample.new.a       #=> 10
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def cattr(*syms)
-    writers, readers = syms.flatten.partition{ |a| a.to_s =~ /=$/ }
-    writers = writers.map{ |e| e.to_s.chomp('=').to_sym }
-    ##readers.concat( writers ) # writers also get readers
-
-    cattr_reader(*readers)
-    cattr_writer(*writers)
-
-    return readers + writers
-  end
-
-  # Creates a class-variable attr_reader that can
-  # be accessed both on an instance and class level.
-  #
-  #   class CARExample
-  #     @@a = 10
-  #     cattr_reader :a
-  #   end
-  #
-  #   CARExample.a           #=> 10
-  #   CARExample.new.a       #=> 10
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def cattr_reader(*syms)
-    syms.flatten.each do |sym|
-      module_eval(<<-EOS, __FILE__, __LINE__)
-        unless defined? @@#{sym}
-          @@#{sym} = nil
-        end
-
-        def self.#{sym}
-          @@#{sym}
-        end
-
-        def #{sym}
-          @@#{sym}
-        end
-      EOS
-    end
-    return syms
-  end
-
-  # Creates a class-variable attr_writer that can
-  # be accessed both on an instance and class level.
-  #
-  #   class CAWExample
-  #     cattr_writer :a
-  #     def self.a
-  #       @@a
-  #     end
-  #   end
-  #
-  #   CAWExample.a = 10
-  #   CAWExample.a            #=> 10
-  #   CAWExample.new.a = 29
-  #   CAWExample.a            #=> 29
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def cattr_writer(*syms)
-    syms.flatten.each do |sym|
-      module_eval(<<-EOS, __FILE__, __LINE__)
-        unless defined? @@#{sym}
-          @@#{sym} = nil
-        end
-
-        def self.#{sym}=(obj)
-          @@#{sym} = obj
-        end
-
-        def #{sym}=(obj)
-          @@#{sym}=(obj)
-        end
-      EOS
-    end
-    return syms
-  end
-
-  # Creates a class-variable attr_accessor that can
-  # be accessed both on an instance and class level.
-  #
-  #   class CAAExample
-  #     cattr_accessor :a
-  #   end
-  #
-  #   CAAExample.a = 10
-  #   CAAExample.a           #=> 10
-  #   mc = CAAExample.new
-  #   mc.a                   #=> 10
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def cattr_accessor(*syms)
-    cattr_reader(*syms) + cattr_writer(*syms)
-  end
-
-  # Creates a class-variable attribute that can
-  # be accessed both on an instance and class level.
-  #
-  #   c = Class.new do
-  #     mattr :a
-  #     def initialize
-  #       @@a = 10
-  #     end
-  #   end
-  #
-  #   c.new.a       #=> 10
-  #   c.a           #=> 10
-  #
-  # NOTE: The #mattr methods may not be as useful for modules as the #cattr
-  # methods are for classes, becuase class-level methods are not "inherited"
-  # across the metaclass for included modules.
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def mattr(*syms)
-    writers, readers = syms.flatten.partition{ |a| a.to_s =~ /=$/ }
-    writers = writers.collect{ |e| e.to_s.chomp('=').to_sym }
-    ##readers.concat( writers ) # writers also get readers
-
-    mattr_writer( *writers )
-    mattr_reader( *readers )
-
-    return readers + writers
-  end
-
-  # Creates a class-variable attr_reader that can
-  # be accessed both on an instance and class level.
-  #
-  #   c = Class.new do
-  #     @@a = 10
-  #     mattr_reader :a
-  #   end
-  #
-  #   c.a           #=> 10
-  #   c.new.a       #=> 10
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def mattr_reader( *syms )
-    syms.flatten.each do |sym|
-      module_eval(<<-EOS, __FILE__, __LINE__)
-        unless defined? @@#{sym}
-          @@#{sym} = nil
-        end
-
-        def self.#{sym}
-          @@#{sym}
-        end
-
-        def #{sym}
-          @@#{sym}
-        end
-      EOS
-    end
-    return syms
-  end
-
-  # Creates a class-variable attr_writer that can
-  # be accessed both on an instance and class level.
-  #
-  #   c = Class.new do
-  #     mattr_writer :a
-  #     def self.a
-  #       @@a
-  #     end
-  #   end
-  #
-  #   c.a = 10
-  #   c.a            #=> 10
-  #
-  #   c.new.a = 29
-  #   c.a            #=> 29
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def mattr_writer(*syms)
-    syms.flatten.each do |sym|
-      module_eval(<<-EOS, __FILE__, __LINE__)
-        unless defined? @@#{sym}
-          @@#{sym} = nil
-        end
-
-        def self.#{sym}=(obj)
-          @@#{sym} = obj
-        end
-
-        def #{sym}=(obj)
-          @@#{sym}=(obj)
-        end
-      EOS
-    end
-    return syms
-  end
-
-  # Creates a class-variable attr_accessor that can
-  # be accessed both on an instance and class level.
-  #
-  #   c = Class.new do
-  #     mattr_accessor :a
-  #   end
-  #
-  #   c.a = 10
-  #   c.a           #=> 10
-  #
-  #   x = c.new
-  #   x.a           #=> 10
-  #
-  # NOTE: This is not (presently) a common core extension and is not
-  # loaded automatically when using <code>require 'facets'</code>.
-  #
-  # CREDIT: David Heinemeier Hansson
-  def mattr_accessor(*syms)
-    mattr_reader(*syms) + mattr_writer(*syms)
-  end
-
-end
-
-# Consider the issue where a module's metaclass is not inherited.
-#
-#   m = Module.new do
-#     @@a = 10
-#     mattr_reader :a
-#   end
-#
-#   c = Class.new do
-#     include m
-#   end
-#
-#   expect NoMethodError do
-#     c.a
-#   end
-#
-# Ideally this would work.