facets 2.2.0 → 2.2.1

data/lib/core/facets/enumerable/combos.rb

@@ -0,0 +1,48 @@
+module Enumerable
+
+  # As with each_combo but returns combos collected in an array.
+  #
+  #   CREDIT: Trans
+
+  def combos
+    a = []
+    each_combo{ |c| a << c }
+    a
+  end
+
+  # Expected to be an enumeration of arrays. This method
+  # iterates through combinations of each in position.
+  #
+  #   a = [ [0,1], [2,3] ]
+  #   a.each_combo { |c| p c }
+  #
+  # produces
+  #
+  #   [0, 2]
+  #   [0, 3]
+  #   [1, 2]
+  #   [1, 3]
+  #
+  #   CREDIT: Trans
+
+  def each_combo
+    a = collect{ |x|
+      x.respond_to?(:to_a) ? x.to_a : 0..x
+    }
+
+    if a.size == 1
+      r = a.shift
+      r.each{ |n|
+        yield n
+      }
+    else
+      r = a.shift
+      r.each{ |n|
+        a.each_combo{ |s|
+          yield [n, *s]
+        }
+      }
+    end
+  end
+
+end

data/lib/core/facets/enumerable/mash.rb

@@ -28,11 +28,7 @@ module Enumerable
   end
 
   # Alias for #mash. This is the original name for this method.
-  alias_method :graph,   :mash
-
-  # An alias for #mash that was used for a while b/c of it's similarity to #collect,
-  # but it seems like a misnomer and may well be deprecated in the future.
-  alias_method :collate, :mash
+  alias_method :graph, :mash
 
 end
 
@@ -51,8 +47,4 @@ class Hash
   # Alias for #mash!. This is the original name for this method.
   alias_method :graph!, :mash!
 
-  # An alias for #mash! that was used for a while b/c of it's similarity to #collect,
-  # but it seems like a misnomer and may well be deprecated in the future.
-  alias_method :collate!, :mash!
-
 end

data/lib/core/facets/file.rb

@@ -1,3 +1,6 @@
-require 'facets/file/topath.rb'
+require 'facets/file/null.rb'
 require 'facets/file/read.rb'
+require 'facets/file/rootname.rb'
+require 'facets/file/sanitize.rb'
+require 'facets/file/split_all.rb'
 require 'facets/file/write.rb'

data/lib/core/facets/file/append.rb

@@ -0,0 +1 @@
+require 'facets/file/write'

data/lib/core/facets/file/create.rb

@@ -0,0 +1 @@
+require 'facets/file/write'

data/lib/core/facets/file/null.rb

@@ -0,0 +1,20 @@
+class File
+
+  # Platform dependent null device.
+  #
+  #   CREDIT: Daniel Burger
+
+  def self.null
+    case RUBY_PLATFORM
+    when /mswin/i
+      'NUL'
+    when /amiga/i
+      'NIL:'
+    when /openvms/i
+      'NL:'
+    else
+      '/dev/null'
+    end
+  end
+
+end

data/lib/core/facets/file/rewrite.rb

@@ -0,0 +1 @@
+require 'facets/file/write'

data/lib/core/facets/file/rootname.rb

@@ -0,0 +1,22 @@
+class File
+
+  # Returns onlt the first portion of the directory of
+  # a file path name.
+  #
+  #   File.rootname('lib/jump.rb')  #=> 'lib'
+  #   File.rootname('/jump.rb')     #=> '/'
+  #   File.rootname('jump.rb')      #=> '.'
+  #
+  #   CREDIT: Trans
+
+  def self.rootname( file_name )
+    i = file_name.index('/')
+    if i
+      r = file_name[0...i]
+      r == '' ? '/' : r
+    else
+      '.'
+    end
+  end
+
+end

data/lib/core/facets/file/sanitize.rb

@@ -0,0 +1,14 @@
+class File
+
+  # Cleans up a filename to ensure it will work on filesystem.
+  #
+  #   CREDIT: George Moschovitis
+
+  def self.sanitize(filename)
+    filename = File.basename(filename.gsub("\\", "/")) # work-around for IE
+    filename.gsub!(/[^a-zA-Z0-9\.\-\+_]/,"_")
+    filename = "_#{filename}" if filename =~ /^\.+$/
+    filename
+  end
+
+end

data/lib/core/facets/file/split_all.rb

@@ -0,0 +1,19 @@
+class File
+
+  # Splits a file path into an array of individual path components.
+  # This differs from <tt>File.split</tt>, which divides the path into
+  # only two parts, directory path and basename.
+  #
+  #   File.split_all("a/b/c") =>  ['a', 'b', 'c']
+  #
+  #   CREDIT: Trans
+
+  def self.split_all(path)
+    head, tail = File.split(path)
+    return [tail] if head == '.' || tail == '/'
+    return [head, tail] if head == '/'
+    return split_all(head) + [tail]
+  end
+
+end
+

data/lib/core/facets/file/writelines.rb

@@ -0,0 +1 @@
+require 'facets/file/write'

data/lib/core/facets/hash.rb

@@ -1,16 +1,24 @@
-require 'facets/hash/iterate.rb'
-require 'facets/hash/merge.rb'
-require 'facets/hash/keyize.rb'
-require 'facets/hash/op.rb'
-require 'facets/hash/rekey.rb'
-require 'facets/hash/delete.rb'
-require 'facets/hash/update.rb'
+require 'facets/hash/alias.rb'
 require 'facets/hash/at.rb'
-require 'facets/hash/insert.rb'
+require 'facets/hash/autonew.rb'
+require 'facets/hash/collate.rb'
+require 'facets/hash/delete.rb'
+require 'facets/hash/diff.rb'
+require 'facets/hash/each_with_key.rb'
+require 'facets/hash/except.rb'
 require 'facets/hash/has_keys.rb'
-require 'facets/hash/weave.rb'
-require 'facets/hash/new.rb'
+require 'facets/hash/insert.rb'
 require 'facets/hash/inverse.rb'
-require 'facets/hash/traverse.rb'
+require 'facets/hash/join.rb'
+require 'facets/hash/mash.rb'
+require 'facets/hash/op.rb'
+require 'facets/hash/pairs_at.rb'
+require 'facets/hash/rekey.rb'
+require 'facets/hash/reverse_merge.rb'
 require 'facets/hash/select.rb'
-
+require 'facets/hash/slice.rb'
+require 'facets/hash/swap.rb'
+require 'facets/hash/traverse.rb'
+require 'facets/hash/update.rb'
+require 'facets/hash/weave.rb'
+require 'facets/hash/zipnew.rb'

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

@@ -0,0 +1,28 @@
+class Hash
+
+  # Modifies the receiving Hash so that the value previously referred to by
+  # _oldkey_ is also referenced by _newkey_; _oldkey_ is retained in the Hash.
+  # If _oldkey_ does not exist as a key in the Hash, no change is effected.
+  #
+  # Returns a reference to the Hash.
+  #
+  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
+  #   foo.alias!('name',:name)     => { :name=>'Gavin', 'name'=>'Gavin', 'wife'=>:Lisa }
+  #
+  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
+  #   foo.alias!('spouse','wife')  => { :name=>'Gavin', 'wife'=>:Lisa, 'spouse'=>:Lisa }
+  #
+  #   foo = { :name=>'Gavin', 'wife'=>:Lisa }
+  #   foo.alias!('bar','foo')      => { :name=>'Gavin', 'wife'=>:Lisa }
+  #
+  # Note that if the _oldkey_ is reassigned, the reference will no longer exist,
+  # and the _newkey_ will remain as it was.
+  #
+  #   CREDIT: Gavin Sinclair
+
+  def alias!( newkey, oldkey )
+    self[newkey] = self[oldkey] if self.has_key?(oldkey)
+    self
+  end
+
+end

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

@@ -1,12 +1,5 @@
 class Hash
 
-  # Use division operator as a fetch notation.
-  #
-  #   h = {:a=>1}
-  #   h / :a  #=> 1
-
-  alias_method :/, :[]
-
   # Alias for fetch for greater polymorphism with Array.
   #
   alias_method :at, :[]

data/lib/core/facets/hash/{new.rb → autonew.rb}

@@ -23,19 +23,4 @@ class Hash
     new(*args,&leet)
   end
 
-  # 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
-  #   CREDIT: 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/hash/collate.rb

@@ -0,0 +1,44 @@
+class Hash
+
+  # Merge the values of this hash with those from another, setting all values
+  # to be arrays representing the values from both hashes.
+  #
+  #   { :a=>1, :b=>2 }.collate :a=>3, :b=>4, :c=>5
+  #   #=> { :a=>[1,3], :b=>[2,4], :c=>[5] }
+  #
+  # Gavin Kistner (Phrogz)
+
+  def collate(other_hash)
+    dup.collate!(other_hash)
+  end
+
+  # The same as #collate, but modifies the receiver in place.
+
+  def collate!(other_hash)
+    # Prepare, ensuring every existing key is already an Array
+    each do |key, value|
+      if value.is_a?(Array)
+        self[key] = value
+      else
+        self[key] = [value]
+      end
+    end
+    # Collate with values from other_hash
+    other_hash.each do |key, value|
+      if self[key]
+        if value.is_a?(Array)
+          self[key].concat( value )
+        else
+          self[key] << value
+        end
+      elsif value.is_a?(Array)
+        self[key] = value
+      else
+        self[key] = [value]
+      end
+    end
+    #each{ |key, value| value.uniq! } if options[ :uniq ]
+    self
+  end
+
+end

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

@@ -0,0 +1,15 @@
+class Hash
+
+  # Difference comparison of two hashes.
+  #
+  #   CREDIT: ?
+  #
+  # TODO:
+  #   - Rewrite #diff to be more readable.
+  #   - Rename #diff to #difference or something else?
+
+  def diff(h2)
+    dup.send(:delete_if){|k,v| h2[k] == v}.send(:merge,h2.dup.send(:delete_if){ |k,v| has_key?(k) })
+  end
+
+end