mack-facets 0.8.1 → 0.8.2

data/lib/gems/facets-2.4.5/lib/core/facets/array/select.rb

@@ -0,0 +1,16 @@
+class Array
+
+  # As with #select but modifies the Array in place.
+  #
+  #   a = [1,2,3,4,5,6,7,8,9,10]
+  #   a.select!{ |e| e % 2 == 0 }
+  #   a  #=> [2,4,6,8,10]
+  #
+  #  CREDIT: Gavin Sinclair
+  #
+  def select!  # :yield:
+    reject!{ |e| not yield(e) }
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/array/splice.rb

@@ -0,0 +1,30 @@
+class Array
+
+  # Splice acts a combination of #slice! and #store.
+  # If two arguments are given it calls #store.
+  # If a single argument is give it calls slice!.
+  #
+  #   a = [1,2,3]
+  #   a.splice(1)    #=> 2
+  #   a              #=> [1,3]
+  #
+  #   a = [1,2,3]
+  #   a.splice(1,4)  #=> 4
+  #   a              #=>[1,4,3]
+  #
+  #  CREDIT: Trans
+
+  def splice(*args)
+    if args.size == 1
+      slice!(*args)
+    else
+      store(*args)
+    end
+  end
+
+  # Store a value at a givne index.
+  # Store is an alias for #[]=.
+  alias_method :store, :[]=
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/array/stackable.rb

@@ -0,0 +1,33 @@
+require 'facets/array/splice'
+require 'facets/stackable'
+
+class Array
+
+  include Stackable
+
+  # "Put On Top". This is an alias for unshift
+  # which puts an object# on top of the stack.
+  # It is the converse of push.
+  #
+  #   a=[1,2,3]
+  #   a.poke(9)   #=> [9,1,2,3]
+  #   a           #=> [9,1,2,3]
+  #
+  #  CREDIT: Trans
+
+  alias_method :poke, :unshift
+
+  # Alias for shift which removes an object
+  # off first slot of an array. This is
+  # the contrary of pop.
+  #
+  #   a=[1,2,3]
+  #   a.pull  #=> 1
+  #   a       #=> [2,3]
+  #
+  #  CREDIT: Trans
+
+  alias_method :pull, :shift
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/array/traverse.rb

@@ -0,0 +1,22 @@
+class Array
+
+  #
+
+  def traverse(&block)
+    map do |item|
+      if item.is_a?(self.class)
+        item.traverse(&block)
+      else
+        yield item
+      end
+    end
+  end
+
+  #
+
+  def traverse!(&block)
+    replace(traverse(&block))
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding.rb

@@ -0,0 +1,6 @@
+dir, base = *File.split(__FILE__)
+base = base.chomp('.rb')
+Dir[File.join(dir, base, '*')].each do |lib|
+  require "facets/#{base}/#{File.basename(lib)}"
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding/caller.rb

@@ -0,0 +1,54 @@
+require 'facets/binding/eval'
+require 'facets/callstack'
+
+class Binding
+
+  # Returns the call stack, same format as Kernel#caller()
+
+  def caller( skip=0 )
+    eval("caller(#{skip})")
+  end
+
+  # Returns line number.
+
+  def __LINE__
+    eval("__LINE__")
+  end
+
+  # Returns file name.
+
+  def __FILE__
+    eval("__FILE__")
+  end
+
+  # Return the directory of the file.
+
+  def __DIR__
+    eval("File.dirname(__FILE__)")
+  end
+
+  # Retreive the current running method.
+  #
+  #   def tester; p called; end
+  #   tester  #=> :tester
+  #
+
+  def __callee__
+    name = /\`([^\']+)\'/.match(caller(1).first)[1]
+    return name.to_sym
+  end
+
+  # 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; p methodname; end
+  #   tester  #=> "tester"
+
+  def __method__
+    name = /\`([^\']+)\'/.match(caller(1).first)[1]
+    return name
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding/defined.rb

@@ -0,0 +1,13 @@
+require 'facets/binding/eval'
+
+class Binding
+
+  # Returns the nature of something within the context of the binding.
+  # Returns nil if that thing is not defined.
+
+  def defined?(x)
+    eval("defined? #{x}")
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding/eval.rb

@@ -0,0 +1,18 @@
+class Binding
+
+  unless (RUBY_VERSION[0,3] == '1.9')
+
+    # Evaluate a Ruby source code string (or block) in the binding context.
+
+    def eval(str) #='', &blk )
+      #if block_given?
+      #  Kernel.eval( self, &blk )
+      #elsif str
+        Kernel.eval(str, self)
+      #end
+    end
+
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding/local_variables.rb

@@ -0,0 +1,15 @@
+require 'facets/binding/eval'
+
+class Binding
+
+  # Returns the local variables defined in the binding context
+  #
+  #   a = 2
+  #   binding.local_variables  #=> ["a"]
+  #
+  def local_variables()
+    eval("local_variables")
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/binding/self.rb

@@ -0,0 +1,12 @@
+require 'facets/binding/eval'
+
+class Binding
+
+  # Returns self of the binding context.
+
+  def self()
+    @_self ||= eval("self")
+  end
+
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/bitmask.rb

@@ -0,0 +1,104 @@
+class Integer
+
+  # Set a bit.
+  #
+  #   0.bit!(4)  #=> 8
+  #
+  # Using an inverted bit will clear a bit.
+  #
+  #   10.bit!(~3)      #=> 2
+  #   0xb0100.bit(~3)  #=> 0
+  #
+  #   CREDIT: Thomas Sawyer
+  #   CREDIT: George Moschovitis
+
+  def bit(bit)
+    if bit < 0
+      mask = (1 << ~bit)
+      self & ~mask
+    else
+      mask = (1 << bit)
+      self | mask
+    end
+  end
+
+  # Old name. Probably will be deprecated.
+  alias_method :bit!, :bit
+
+  # Clear bit.
+  #
+  #   CREDIT: George Moschovitis
+
+  def clear_bit(bit)
+    mask = (1 << bit)
+    self & ~mask
+  end
+
+  # Is a bit set?
+  #
+  #   8.bit?(3)  #=> true
+  #   8.bit?(2)  #=> false
+  #
+  #   CREDIT: Thomas Sawyer
+  #   CREDIT: George Moschovitis
+
+  def bit?(bit)
+    mask = (1 << bit)
+    (self & mask) != 0
+  end
+
+  # Apply a bitmask.
+  #
+  #   1.bitmask(6) #=> 7
+  #
+  # Using a inverted bitmask clears bits.
+  #
+  #   7.bitmask(~2) #=> 5
+  #   5.bitmask(~2) #=> 5
+  #
+  #   CREDIT: George Moschovitis
+
+  def bitmask(mask)
+    if mask < 0
+      self & mask
+    else
+      self | mask
+    end
+  end
+
+  # Old name. Probably will be deprecated.
+  alias_method :bitmask!, :bitmask
+
+  # Is bitmask set?
+  #
+  #   7.bitmask?(7) #=> true
+  #   7.bitmask?(5) #=> true
+  #   8.bitmask?(3) #=> false
+  #
+  #   CREDIT: George Moschovitis
+
+  def bitmask?(mask)
+    (self & mask) != 0
+  end
+
+end
+
+
+module Kernel
+
+  # Create a single bit bitmask.
+  #
+  #   Bit(0)  #=> 1
+  #   Bit(1)  #=> 2
+  #   Bit(2)  #=> 4
+  #
+  # This is equivalent to n-shift: "1 << n".
+  #
+  #   CREDIT: Thomas Sawyer
+  #   CREDIT: George Moschovitis
+
+  def Bit(n)
+    1 << Integer(n)
+  end
+
+end

data/lib/gems/facets-2.4.5/lib/core/facets/blank.rb

@@ -0,0 +1,60 @@
+# = Blank
+#
+# Core extension method #blank? added to core clesses.
+
+#
+module Kernel
+  # An object is blank if it's nil, empty, or a whitespace string.
+  # For example, "", "   ", nil, [], and {} are blank.
+  #
+  # This simplifies
+  #   if !address.nil? && !address.empty?
+  # to
+  #   if !address.blank?
+  def blank?
+    respond_to?(:empty?) ? empty? : !self
+  end
+end
+
+class NilClass
+  def blank?
+    true
+  end
+end
+
+class FalseClass
+  def blank?
+    true
+  end
+end
+
+class TrueClass
+  def blank?
+    false
+  end
+end
+
+class Array
+  alias_method :blank?, :empty?
+end
+
+class Hash
+  alias_method :blank?, :empty?
+end
+
+class String
+  # Is this string just whitespace?
+  #
+  #   "abc".blank?  #=> false
+  #   "   ".blank?  #=> true
+  def blank?
+    self !~ /\S/
+  end
+end
+
+class Numeric
+  def blank?
+    false
+  end
+end
+

data/lib/gems/facets-2.4.5/lib/core/facets/boolean.rb

@@ -0,0 +1,156 @@
+# = Boolean
+#
+# Stackable mixin provides #pop, #push, #pull, etc.
+# It depends on #slice, #splice and #insert.
+#
+# == Notes
+#
+# * This was suggested by Ara T. Howard
+#
+# == Authors
+#
+# * Thomas Sawyer
+#
+# == Copying
+#
+# Copyright (c) 2006 Thomas Sawyer
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+
+#
+class String
+
+  # Interpret common affirmative string meanings as true,
+  # otherwise false. Balnk sapce and case are ignored.
+  # The following strings that will return true:
+  #
+  #   <tt>true</tt>,<tt>yes</tt>,<tt>on</tt>,<tt>t</tt>,<tt>1</tt>,<tt>y</tt>,<tt>==</tt>
+  #
+  # Examples:
+  #
+  #   "true".to_b   #=> true
+  #   "yes".to_b    #=> true
+  #   "no".to_b     #=> false
+  #   "123".to_b    #=> false
+  #
+  def to_b
+    case self.downcase.strip
+    when 'true', 'yes', 'on', 't', '1', 'y', '=='
+      return true
+    when 'nil', 'null'
+      return nil
+    else
+      return false
+    end
+  end
+
+end
+
+
+class Array
+
+  # Boolean conversion for not empty?
+  def to_b
+    ! self.empty?
+  end
+
+end
+
+
+class Numeric
+
+  # Provides a boolean interpretation of self.
+  # If self == 0 then false else true.
+  #
+  #   0.to_b    #=> false
+  #   1.to_b    #=> true
+  #   2.3.to_b  #=> true
+  #
+  def to_b
+    self == 0 ? false : true
+  end
+
+end
+
+
+module Kernel
+
+  # Boolean conversion for not being nil or false.
+  # Other classes may redefine this to suite the
+  # particular need.
+  #
+  #   "abc".to_b   #=> true
+  #   true.to_b    #=> true
+  #   false.to_b   #=> false
+  #   nil.to_b     #=> false
+  #
+  def to_b
+    self ? true : false
+  end
+
+  # 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
+
+
+class Object
+  def to_bool
+    return true
+  end
+end
+
+class TrueClass
+  def to_bool
+    self
+  end
+end
+
+class FalseClass
+  def to_bool
+    self
+  end
+end
+
+class NilClass
+  def to_bool
+    false
+  end
+end