facets 2.4.5 → 2.5.0

data/lib/core/facets/hash/update_values.rb

@@ -0,0 +1,20 @@
+class Hash
+
+  # Iterate over hash updating just the values.
+  #
+  #   h = {:a=>1, :b=>2}
+  #   h.update_values{ |v| v+1 }
+  #   h  #=> { a:=>2, :b=>3 }
+  #
+  # CREDIT: Trans
+
+  def update_values #:yield:
+    if block_given?
+      each{ |k,v| store(k, yield(v)) }
+    else
+      to_enum(:update_values)
+    end
+  end
+
+end
+

data/lib/core/facets/hash/weave.rb

@@ -35,7 +35,7 @@ class Hash
   # hashes. It is especially useful for implementing overridable
   # configuration schemes.
   #
-  #   CREDIT: Thomas Sawyer
+  # CREDIT: Thomas Sawyer
 
   def weave(h)
     raise ArgumentError, "Hash expected" unless h.kind_of?(Hash)

data/lib/core/facets/hash/zipnew.rb

@@ -1,2 +1,18 @@
-require 'facets/hash/autonew'
+class Hash
+
+  # Creates a new hash from two arrays --a keys array and
+  # a values array.
+  #
+  #   Hash.zipnew(["a","b","c"], [1,2,3])
+  #     #=> { "a"=>1, "b"=>2, "c"=>3 }
+  #
+  # CREDIT: Trans, Ara T. Howard
+
+  def self.zipnew(keys,values) # or some better name
+    h = {}
+    keys.size.times{ |i| h[ keys[i] ] = values[i] }
+    h
+  end
+
+end
 

data/lib/core/facets/integer/factorial.rb

@@ -6,7 +6,7 @@ class Integer
   #   3.factorial  #=> 6
   #   3.factorial  #=> 24
   #
-  #  CREDIT: Malte Milatz
+  # CREDIT: Malte Milatz
 
   def factorial
     return 1 if zero?

data/lib/core/facets/integer/multiple.rb

@@ -5,7 +5,7 @@ class Integer
   #   7.multiple?(2)  #=> false
   #   8.multiple?(2)  #=> true
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def multiple?(number)
     self % number == 0

data/lib/core/facets/integer/odd.rb

@@ -10,7 +10,7 @@ class Integer
     #   -99.odd?          # -> true
     #   -98.odd?          # -> false
     #
-    #  CREDIT: Daniel Schierbeck
+    # CREDIT: Daniel Schierbeck
 
     def odd?
       #self % 2 == 1
@@ -22,7 +22,7 @@ class Integer
     #   2.even?  #=> true
     #   3.even?  #=> false
     #
-    #   CREDIT: Daniel Schierbeck
+    # CREDIT: Daniel Schierbeck
 
     def even?
       #self % 2 == 0

data/lib/core/facets/kernel/__here__.rb

@@ -0,0 +1,8 @@
+module Kernel
+
+  def __HERE__
+    "#{__FILE__}: #{__LINE__}"
+  end
+
+end
+

data/lib/core/facets/kernel/as.rb

@@ -18,7 +18,7 @@ module Kernel
   #   end
   #
   #   C.new.x  #=> 1
-
+  #
   def as(ancestor, &blk)
     @__as ||= {}
     unless r = @__as[ancestor]
@@ -69,7 +69,7 @@ module Kernel
   #   end
   #
   #   C.new.x  #=> 1
-
+  #
   def super_as(klass=self.class.superclass, *args, &blk)
     unless self.class.ancestors.include?(klass)
       raise ArgumentError

data/lib/core/facets/kernel/attr_singleton.rb

@@ -9,16 +9,16 @@ module Kernel
   #   self.x   #=> 1
   #   self.y   #=> 2
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def attr_singleton_reader(*args)
     #h, a = *args.partition{|a| Hash===a}
-    (class << self ; self ; end).send( :attr_reader, *args )  
+    (class << self ; self ; end).send( :attr_reader, *args )
     #(class << self ; self ; end).send( :attr_reader, *h.keys )
     #h.each { |k,v| instance_variable_set("@#{k}", v) }
   end
 
-  # Takes an array or a hash with default values and creates 
+  # Takes an array or a hash with default values and creates
   # singleton attr_writers for each.
   #
   #   attr_singleton_writer { :x => 1, :y => 2 }
@@ -29,7 +29,7 @@ module Kernel
   #   @x           #=> 3
   #   @y           #=> 4
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def attr_singleton_writer(*args)
     #h, a = *args.partition{|a| Hash===a}
@@ -49,7 +49,7 @@ module Kernel
   #   self.x      #=> 3
   #   self.y      #=> 4
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def attr_singleton_accessor(*args)
     #h, a = *args.partition{|a| Hash===a}

data/lib/core/facets/{callstack.rb → kernel/callstack.rb}

@@ -22,7 +22,7 @@ module Kernel
   # in a different format, _prior_ to requiring this, then the
   # results will be indeterminate.
   #
-  #   CREDIT: Trans
+  # CREDIT: Trans
 
   def callstack( level = 1 )
     call_str_array = pp_callstack(level)

data/lib/core/facets/kernel/complete.rb

@@ -8,7 +8,7 @@ module Kernel
   #   end
   #   b  #=> [3, 2, 1, nil]
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def complete
     loop { break unless yield }

data/lib/core/facets/kernel/constant.rb

@@ -13,7 +13,7 @@ module Kernel
   #   Test.constant("Unit::Assertions")   # -> Test::Unit::Assertions
   #   Test.constant("::Test::Unit")       # -> Test::Unit
   #
-  #   CREDIT: Trans
+  # CREDIT: Trans
 
   def constant(const)
     const = const.to_s.dup

data/lib/core/facets/kernel/d.rb

@@ -1,9 +1,5 @@
 module Kernel
 
-  def __HERE__
-    "#{__FILE__}: #{__LINE__}"
-  end
-
   # Like #p but gives file and line number.
   #
   #   d("hi")
@@ -14,7 +10,7 @@ module Kernel
   #   "hi"
   #
   # TODO: This is borderline "prime". Keep here?
-  #       Another copy of it exits in dtools.rb
+  # Another copy of it exits in dtools.rb
 
   def d(*x)
     puts "#{__FILE__}, #{__LINE__}"

data/lib/core/facets/kernel/demo.rb

@@ -13,8 +13,8 @@ module Kernel
   #   a.slice(1,2)            #=>  [2, 3]
   #   a.map { |x| x**3 }      #=>  [1, 8, 27]
   #
-  #   TODO: Is there a way to do this without the eval string in block?
-  #         Preferably just a block and no string.
+  # TODO: Is there a way to do this without the eval string in block?
+  # Preferably just a block and no string.
 
   def demo(out=$stdout,&block)
     out << sprintf("%-25s#=>  %s\n", expr = block.call, eval(expr, block.binding).inspect)

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

@@ -12,7 +12,7 @@ module Kernel
   #
   # This is like #tap, but tap yields self -and- returns self.
   #
-  #  CREDIT: Daniel DeLorme
+  # CREDIT: Daniel DeLorme
 
   def ergo &b
     if block_given?
@@ -31,7 +31,7 @@ class NilClass
   #   "a".ergo{ |o| o.upcase } #=> "A"
   #   nil.ergo{ |o| o.bar } #=> nil
   #
-  #   CREDIT: Daniel DeLorme
+  # CREDIT: Daniel DeLorme
 
   def ergo
     @_ergo ||= Functor.new{ nil }

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

@@ -14,7 +14,7 @@ module Kernel
   #
   #     It is what it is.
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def instance_class(&block)
     (class << self; self; end).module_eval(&block) if block

data/lib/core/facets/kernel/instance_variables.rb

@@ -81,8 +81,7 @@ class InstanceVariables
 
 end
 
-
-if $0 == __FILE__
+=begin demo
 
   class Friend
     attr_accessor :name, :age, :phone
@@ -95,5 +94,4 @@ if $0 == __FILE__
   p f1.variables
   p f1.variables.to_hash
 
-end
-
+=end

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

@@ -5,7 +5,7 @@ module Kernel
   #   "hello".not_nil?     # -> true
   #   nil.not_nil?         # -> false
   #
-  #  CREDIT: Gavin Sinclair
+  # CREDIT: Gavin Sinclair
 
   def not_nil?
     not nil?

data/lib/core/facets/kernel/object_send.rb

@@ -12,7 +12,7 @@ module Kernel
   #
   # TODO: object_send needs to change for 1.9.
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
   #--
   # Which implementation is faster?
   #++

data/lib/core/facets/kernel/p.rb

@@ -13,7 +13,7 @@ module Kernel
   #   1
   #   5
   #
-  # DEPRECATE AS OF 1.9, _if_ #p will then do this too.
+  # TODO: DEPRECATE as of 1.9, _if_ it will do this.
 
   def p(*x)
     x.each{ |e| puts e.inspect } #p(*x)

data/lib/core/facets/kernel/populate.rb

@@ -14,7 +14,7 @@ module Kernel
   #   object.a = 1
   #   object.b = 2
   #
-  # Using an associative array instead of hash guarentees 
+  # Using an associative array instead of hash guarentees
   # order of assignemnt.
   #
   # Using a hash or array will not raise an error if the
@@ -49,7 +49,7 @@ module Kernel
   #   obj2.a  #=> 1
   #   obj2.b  #=> 2
   #
-  # TODO: pepulate_from(obj) ?
+  # TODO: populate_from(obj) ?
 
   def set_from(obj, *fields)
     unless fields.empty?

data/lib/core/facets/kernel/qua_class.rb

@@ -5,8 +5,8 @@ module Kernel
   #
   # Yes, another one.
   #
-  #  CREDIT: Trans
-  #
+  # CREDIT: Trans
+
   def qua_class(&block)
     if block_given?
       (class << self; self; end).class_eval(&block)

data/lib/core/facets/kernel/resc.rb

@@ -6,7 +6,7 @@ module Kernel
   #
   #   TODO: Should this be deprecated in favor of String#to_re/to_rx ?
   #
-  #   CREDIT: Trans
+  # CREDIT: Trans
 
   def resc(str)
     Regexp.escape(str.to_s)

data/lib/core/facets/kernel/respond.rb

@@ -11,7 +11,7 @@ module Kernel
   #   x.respond(:f)  #=> "f"
   #   x.respond(:g)  #=> nil
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def respond(sym, *args)
     return nil if not respond_to?(sym)

data/lib/core/facets/kernel/returning.rb

@@ -13,7 +13,7 @@ module Kernel
   # #returning from #with, however it also would require
   # implementation in Ruby itself.
   #
-  #   CREDIT: Mikael Brockman
+  # CREDIT: Mikael Brockman
 
   def returning(obj=self) #:yield:
     yield obj

data/lib/core/facets/kernel/silence.rb

@@ -8,7 +8,7 @@ module Kernel
   #
   #   puts 'But this will'
   #
-  #   CREDIT: David Heinemeier Hansson
+  # CREDIT: David Heinemeier Hansson
 
   def silence_stream(*streams) #:yeild:
     on_hold = streams.collect{ |stream| stream.dup }
@@ -33,7 +33,7 @@ module Kernel
     silence_stream(STDOUT) { yield }
   end
 
-  # Just like silence_stream, but will default to 
+  # Just like silence_stream, but will default to
   # STDOUT, STDERR if no streams are given.
 
   def silently(*streams) #:yeild:
@@ -50,7 +50,7 @@ module Kernel
   #
   #   noisy_call  # no warning is voiced
   #
-  #  CREDIT: David Heinemeier Hansson
+  # CREDIT: David Heinemeier Hansson
 
   def silence_warnings
     old_verbose, $VERBOSE = $VERBOSE, nil
@@ -62,7 +62,7 @@ module Kernel
   # Sets $VERBOSE to true for the duration of the block
   # and back to its original value afterwards.
   #
-  #  CREDIT: David Heinemeier Hansson
+  # CREDIT: David Heinemeier Hansson
 
   def enable_warnings
     old_verbose, $VERBOSE = $VERBOSE, true

data/lib/core/facets/kernel/try.rb

@@ -1,15 +1,17 @@
 module Kernel
 
   # Try a method.
+  #
   #   @person ? @person.name : nil
   # vs
+  #
   #   @person.try(:name)
   #
-  #  CREDIT: Chris Wanstrath
+  # CREDIT: Chris Wanstrath
 
   def try(method, default=nil)
     if respond_to? method
-      send method 
+      send method
     else
       default
     end
@@ -20,4 +22,4 @@ end
 
 
 
- 
+

data/lib/core/facets/matchdata/match.rb

@@ -5,7 +5,7 @@ class MatchData
   #   md = /123/.match "123456"
   #   md.match  #=> "123"
   #
-  #  CREDIT: Martin DeMello
+  # CREDIT: Martin DeMello
 
   def match(index=0)
     self[index]

data/lib/core/facets/matchdata/matchset.rb

@@ -6,7 +6,7 @@ class MatchData
   #   md.to_a      #=> ["XXaabbccddeeffXX", "bb", "ccdd", "dd", "ee"]
   #   md.matchset  #=> ["XXaa", [["bb"], ["cc", ["dd"]], "ee"], "ffXX"]
   #
-  #   CREDIT: Trans
+  # CREDIT: Trans
 
   def matchset
      [pre_match, matchtree, post_match]
@@ -19,7 +19,7 @@ class MatchData
   #   md.to_a       #=> ["XXaabbccddeeffXX", "bb", "ccdd", "dd", "ee"]
   #   md.matchtree  #=> [["bb"], ["cc", ["dd"]], "ee"]
   #
-  #  CREDIT: Trans
+  # CREDIT: Trans
 
   def matchtree(index=0)
     ret=[]