facets 1.8.8 → 1.8.20

data/PROJECT

@@ -26,29 +26,36 @@ rubyforge:
   package  : Facets
 
 scm: darcs
-changelog: doc/HISTORY.txt
+changelog  : doc/ChangeLog
+stamp      : VERSION
 
-distribute: [ -doc/rdoc, -test/lib ]
+#distribute: [ -doc/rdoc, -test/lib ]
 
 package: [ gem, tgz ]
 
+notes:
+  labels: [ TODO, FIXME, CREDIT ]
+
 rdoc:
   template : jamis
   options  : ['--all', '--inline-source']
 
 mail:
-  mail_to  : transfire@gmail.com  #ruby-talk@ruby-lang.org
-  mail_from : transfire@gmail.com
-  domain   : facets.rubyforge.org
-  server   : smtp.gmail.com
-  port     : 25 #587
-  account  : transfire@gmail.com
+  mail_to    : transfire@gmail.com  #ruby-talk@ruby-lang.org
+  mail_from  : transfire@gmail.com
+  domain     : facets.rubyforge.org
+  server     : smtp.gmail.com
+  port       : 25 #587
+  account    : transfire@gmail.com
   login_type : login  #cram_md5 #plain
-  secure   : true
+  secure     : true
 
-announce_memo : 'doc/LATEST'
+announce:
+  memo     : 'doc/LATEST'
 
-test_extract  : 'lib/facets/**/*.rb'
+test:
+  extract  : 'lib/facets/**/*.rb'
 
+manifest: MANIFEST
 archive: ~/trans/ruby/ARCHIVE
 

data/README

@@ -32,7 +32,7 @@ The collection PER COLLECTION is licensed as follows:
   Ruby Facets
   Copyright (c) 2004-2006 Thomas Sawyer
 
-  Distributed under the terms of the Ruby lincense.
+  Distributed under the terms of the Ruby license.
 
 The Ruby license is a dual license that also provides for use of the GPL.
 Complete texts of both licenses accompany this document (see doc/COPYING).
@@ -54,7 +54,7 @@ Complete texts of both licenses accompany this document (see doc/COPYING).
 Acknowledgments and Copyrights for particular snippets of borrowed code
 are given in their respective source. All licenses are either compatible
 with the Ruby license (namely the GPL) or the original author has given
-permission for inclusion of their code under such lincense.</p>
+permission for inclusion of their code under such lincense.
 
 
 == Mission
@@ -287,10 +287,10 @@ already included or simply have a patch, they too are more than welcome.
 We want Ruby Facets to be of the highest quality.
 
 
-== Authorship
+== Authors
 
 This collection was put together by, and largely written by Thomas Sawyer
-(aka Trans Onoma). He can be reached via email at transfire at gmail.com.
+(aka Trans). He can be reached via email at transfire at gmail.com.
 
 Some parts of this collection were written and/or inspired by other
 persons. Fortunately nearly all were copyrighted under the same open
@@ -299,17 +299,11 @@ copyright notice with the source code.
 
 Any code file not specifically labelled shall fall under the Ruby License.
 
-In all cases, I have made every effort to give credit where credit is due. You will find these copyrights, thanks and acknowledgements embedded in the source code, and an unobtrusive
-"Author(s)" section is given in the RDocs.
+In all cases, I have made every effort to give credit where credit is due.
+You will find these copyrights, thanks and acknowledgements embedded in the
+source code, and an unobtrusive "Author(s)" section is given in the RDocs.
 
-Main Developers include:
-
-* Thomas Sawyer
-* George Moschovitis
-* Peter Vanbroekhoven
-* Florian Gross
-
-See the AUTHORS file for a list of all other contributing Rubyists.
+Also see the AUTHORS file for a list of all contributing Rubyists.
 
 If anyone is missing from the list, please let me know and 
 I will correct right away. Thanks.

data/Rakefile

@@ -2,11 +2,7 @@
 
 # Facets Rakefile
 
-require '4rake/4rake'
-
-
-#require 'project/project'
-#project = Project.load
+require 'autorake'
 
 #
 # Redirect, extact tests and run tests
@@ -25,7 +21,7 @@ LIBDIR = 'lib'
 REDIR  = 'facet'
 SRCDIR = 'facets'
 
-desc "create redirection facet/ lib"
+desc "Create redirection facet/ lib"
 task :redirect do
   count = 0
   dest = File.join( LIBDIR, REDIR )
@@ -106,7 +102,7 @@ end
 
 MTHPATH = "lib/facets/core"
 
-desc "output core method list"
+desc "Output core method list"
 task :list do
   index_methods
   puts method_list_outline

data/VERSION

@@ -1 +1 @@
-1.8.8 rc (2007-01-30)
+1.8.20 rc (2007-02-06)

data/doc/AUTHORS

@@ -23,20 +23,25 @@
 * Michael Granger
 * Florian Gross
 * Sean O'Halpin
-* Thomas-Ivo Heinen
 * David Heinemeier Hansson
+* Thomas-Ivo Heinen
+* Dave Hoover
 * Ara T. Howard
 * MenTaLguY
 * Mohammad Khan
+* Richard Laugesen
 * Derek Lewis
 * Jan Molic
 * George Moschovitis
 * Michael Neumann
+* Tim Pease
 * Jonas Pfenniger
+* Ryan Platte
 * Thomas Sawyer
 * Daniel Schierbeck
 * Gavin Sinclair
 * Tilo Sloboda
+* Phil Tomson
 * Peter Vanbroekhoven
 * Jim Weirich
 * Jeff Wood

data/doc/{HISTORY.txt → ChangeLog}

@@ -1,3 +1,99 @@
+Tue Feb  6 13:37:23 EST 2007  Trans <transfire@gmail.com>
+  * removed #own from base list in facets.rb (really need a standard for "singleton class")
+
+Tue Feb  6 13:36:34 EST 2007  Trans <transfire@gmail.com>
+  * minor adjustments to uploadutils
+
+Tue Feb  6 13:35:54 EST 2007  Trans <transfire@gmail.com>
+  * fixed bug in aspects.rb that would not handle args of wrapped method
+
+Tue Feb  6 13:35:23 EST 2007  Trans <transfire@gmail.com>
+  * Symbol#to_s optimization, had to remove freeze
+
+Tue Feb  6 13:34:16 EST 2007  Trans <transfire@gmail.com>
+  * updates to fileutils/stage (stage worth keeping?)
+
+Tue Feb  6 13:32:53 EST 2007  Trans <transfire@gmail.com>
+  * update to credits
+
+Tue Feb  6 13:13:51 EST 2007  Trans <transfire@gmail.com>
+  * fix bug in kernel/ask, returns more than one character
+
+Tue Feb  6 13:12:39 EST 2007  Trans <transfire@gmail.com>
+  * cleanup of enumerbale/graph (no effective change)
+
+Tue Feb  6 13:10:58 EST 2007  Trans <transfire@gmail.com>
+  * new super fast enumerable/cart by Thomas Hafner (replaces #cross)
+
+Tue Feb  6 13:08:48 EST 2007  Trans <transfire@gmail.com>
+  * improved multiglob rountines (accept '+' and '-' prefixes)
+
+Tue Feb  6 10:02:31 EST 2007  Trans <transfire@gmail.com>
+  * No longer will track project file via scm until it settles
+
+Mon Feb  5 08:23:54 EST 2007  Trans <transfire@gmail.com>
+  * fixed bug in attr_tester, thanks Dov!
+
+Tue Jan 30 11:48:34 EST 2007  Trans <transfire@gmail.com>
+  * added weekdays to times.rb thanks to Ryan Platte and Dave Hoover
+
+Tue Jan 30 11:47:40 EST 2007  Trans <transfire@gmail.com>
+  * improvements to dictionary.rb (no longer a subclass of Hash) thanks Jan!
+
+Tue Jan 30 11:43:38 EST 2007  Trans <transfire@gmail.com>
+  * re-replace openhash with openobject
+
+Tue Jan 30 11:43:03 EST 2007  Trans <transfire@gmail.com>
+  * improvements to ann.rb and ann_attr.rb. works, yea!
+
+Tue Jan 30 11:42:34 EST 2007  Trans <transfire@gmail.com>
+  * fixed bug in string/singular.rb
+
+Tue Jan 30 11:41:29 EST 2007  Trans <transfire@gmail.com>
+  * changed enumerable/cross into enumerable/cart and cartesian_product
+
+Tue Jan 30 11:40:04 EST 2007  Trans <transfire@gmail.com>
+  * openobject returns (openhash was a bad name, thanks george)
+
+Tue Jan 30 11:38:57 EST 2007  Trans <transfire@gmail.com>
+  * moved enumerable/cross to enumerable/cart (cartesian_product)
+
+Wed Jan 24 17:49:59 EST 2007  Trans <transfire@gmail.com>
+  tagged 1.8
+
+Wed Jan 24 17:25:52 EST 2007  Trans <transfire@gmail.com>
+  * added buildingblock.rb, replaced builderobject.rb
+
+Wed Jan 24 17:22:54 EST 2007  Trans <transfire@gmail.com>
+  * adjust require for "yored" files
+
+Wed Jan 24 17:22:20 EST 2007  Trans <transfire@gmail.com>
+  * HtmlBuilder and XMLBuilder aer now based on BuildingBlock
+
+Wed Jan 24 17:21:23 EST 2007  Trans <transfire@gmail.com>
+  * bug fix for command.rb
+
+Wed Jan 24 17:20:13 EST 2007  Trans <transfire@gmail.com>
+  * minor improvements to basic object (object_self to access kernel methods)
+
+Wed Jan 24 17:19:08 EST 2007  Trans <transfire@gmail.com>
+  * ostuct adjustment, use #instance_delegate to get underneth the open access
+
+Wed Jan 24 17:18:21 EST 2007  Trans <transfire@gmail.com>
+  * module/include_as is now based on module/namespace (thanks Pit!)
+
+Wed Jan 24 17:17:04 EST 2007  Trans <transfire@gmail.com>
+  * minor adjustments to methods for (class<<self;self;end)
+
+Wed Jan 24 17:16:25 EST 2007  Trans <transfire@gmail.com>
+  * fixed enumerable/partition_by
+
+Wed Jan 24 17:15:49 EST 2007  Trans <transfire@gmail.com>
+  * further updates to project info file (need to stop versioning this)
+
+Wed Jan 24 17:14:34 EST 2007  Trans <transfire@gmail.com>
+  * deprecated (yored) builderobject.rb (poor implementation)
+
 Tue Jan 23 18:30:14 EST 2007  Trans <transfire@gmail.com>
   * added hash/insert; like store but only if key isn't already present
 

data/lib/facet/array/pad.rb

@@ -0,0 +1 @@
+require 'facets/core/array/pad.rb'

data/lib/facet/dir/self/multiglob_r.rb

@@ -0,0 +1 @@
+require 'facets/core/dir/self/multiglob_r.rb'

data/lib/facet/dir/self/multiglob_with_default.rb

@@ -0,0 +1 @@
+require 'facets/core/dir/self/multiglob_with_default.rb'

data/lib/facet/string/capitalize_all.rb

@@ -0,0 +1 @@
+require 'facets/core/string/capitalize_all.rb'

data/lib/facet/string/cleave.rb

@@ -0,0 +1 @@
+require 'facets/core/string/cleave.rb'

data/lib/facets/core/array/pad.rb

@@ -0,0 +1,76 @@
+# CREDIT Richard Laugesen
+
+class Array
+
+  # Pad an array with a given <tt>value</tt> upto a given <tt>length</tt>.
+  #
+  #   [0,1,2].pad(6,"a")  #=> [0,1,2,"a","a","a"]
+  #   
+  # If <tt>length</tt> is a negative number padding will be added
+  # to the beginning of the array.
+  #
+  #   [0,1,2].pad(-6,"a")  #=> ["a","a","a",0,1,2]
+
+  def pad(len, val=nil)
+    return dup if self.size >= len.abs
+    if len < 0
+      Array.new((len+size).abs,val) + self
+    else
+      self + Array.new(len-size,val)
+    end
+  end
+
+  # Like #pad but changes the array in place.
+  #
+  #    a = [0,1,2]
+  #    a.pad!(6,"x")
+  #    a  #=> [0,1,2,"x","x","x"]
+
+  def pad!(len, val=nil)
+    return self if self.size >= len.abs
+    if len < 0
+      replace Array.new((len+size).abs,val) + self
+    else
+      concat Array.new(len-size,val)
+    end
+  end
+
+end
+
+
+=begin test
+
+  require 'test/unit'
+
+  class TestPad < Test::Unit::TestCase
+
+    def test_pad
+      r = [0,1,2,3].pad(7,"x")
+      x = [0,1,2,3,"x","x","x"]
+      assert_equal(x,r)
+    end
+
+    def test_pad!
+      a = [0,1,2,3]
+      r = a.pad!(6,"y")
+      x = [0,1,2,3,"y","y"]
+      assert_equal(x,a)
+    end
+
+    def test_pad_negative
+      r = [0,1,2,3].pad(-7,"n")
+      x = ["n","n","n",0,1,2,3]
+      assert_equal(x,r)
+    end
+
+    def test_pad_negative!
+      a = [0,1,2,3]
+      r = a.pad!(-6,"q")
+      x = ["q","q",0,1,2,3]
+      assert_equal(x,a)
+    end
+
+  end
+
+=end
+

data/lib/facets/core/dir/self/ls_r.rb

@@ -1,6 +1,5 @@
-#--
-# Credit due to George Moschovitis <gm@navel.gr>
-#++
+# CREDIT George Moschovitis
+
 class Dir
 
   # Recursively scan a directory and pass each file

data/lib/facets/core/dir/self/multiglob.rb

@@ -1,32 +1,110 @@
+# = multiglob.rb
+#
+# CREDIT Tom Sawyer
 
 # Like +glob+ but can take multiple patterns.
 #
 #   Dir.multiglob( '*.rb', '*.py' )
 #
-# TODO This does not yet support glob flags.
+# Rather then constants for options multiglob accepts a trailing options
+# hash of symbol keys.
+#
+#   :noescape    File::FNM_NOESCAPE
+#   :casefold    File::FNM_CASEFOLD
+#   :pathname    File::FNM_PATHNAME
+#   :dotmatch    File::FNM_DOTMATCH
+#   :strict      File::FNM_PATHNAME && File::FNM_DOTMATCH
+#
+# It also has an option for recurse.
+#
+#   :recurse     Recurively include contents of directories.
+#
+# For example
+#
+#   Dir.multiglob( '*', :recurse => true )
+#
+# would have the same result as
+#
+#   Dir.multiglob('**/*')
+#
+# Multiglob also accepts '+' and '-' prefixes. Any entry that begins with a '-'
+# is treated as an exclusion glob and will be removed from the final result.
+# For example, to collect all files in the current directory, less ruby scripts:
+#
+#   Dir.multiglob( '*', '-*.rb' )
+#
+# This is very useful in collecting files as specificed by a configuration
+# parameter.
 
 def Dir.multiglob( *patterns )
+  options  = (Hash === patterns.last ? patterns.pop : {})
+
+  bitflags = 0
+  bitflags |= File::FNM_NOESCAPE if options[:noescape]
+  bitflags |= File::FNM_CASEFOLD if options[:casefold]
+  bitflags |= File::FNM_PATHNAME if options[:pathname] or options[:strict]
+  bitflags |= File::FNM_DOTMATCH if options[:dotmatch] or options[:strict]
+
   patterns = [patterns].flatten.compact
-  patterns.collect{ |pattern| Dir.glob(pattern) }.flatten.uniq
+
+  patterns_include = patterns.select{ |f| f !~ /^[-]/ }
+  patterns_exclude = patterns.select{ |f| f =~ /^[-]/ }
+
+  patterns_include.collect!{ |f| f =~ /^[+]/ ? f[1..-1] : f }
+  patterns_exclude.collect!{ |f| f =~ /^[-]/ ? f[1..-1] : f }
+
+  if options[:recurse]
+    patterns_include += patterns_include.collect{ |f| File.join(f, '**', '*') }
+    patterns_exclude += patterns_exclude.collect{ |f| File.join(f, '**', '*') }
+  end
+
+  files = []
+  files += patterns_include.collect{ |pattern| Dir.glob(pattern, bitflags) }.flatten.uniq
+  files -= patterns_exclude.collect{ |pattern| Dir.glob(pattern, bitflags) }.flatten.uniq
+
+  return files
 end
 
 # The same as +multiglob+, but recusively includes directories.
 #
-#   Dir.multiglob_recurse( 'folder' )
+#   Dir.multiglob_r( 'folder' )
 #
 # is equivalent to
 #
+#   Dir.multiglob( 'folder', :recurse=>true )
+#
+# The effect of which is
+#
 #   Dir.multiglob( 'folder', 'folder/**/*' )
+
+def Dir.multiglob_r( *patterns )
+  options = (Hash === patterns.last ? patterns.pop : {})
+  options[:recurse] = true
+  patterns << options
+  multiglob(*patterns)
+end
+
+# This is just like multiglob but handles a base pattern such that
+# if the +patterns+ list starts with a '+' or '-' entry, then the base
+# will be included in the result, otherwise it will be omitted.
 #
-# TODO This does not yet support glob flags.
+#   Dir.multiglob_with_default('*.yaml', '-*.rb')  #=> [ 'foo.yaml' ]
+#   Dir.multiglob_with_default('*.yaml', '+*.rb')  #=> [ 'foo.yaml', 'foo.rb' ]
+#   Dir.multiglob_with_default('*.yaml', '*.rb')   #=> [ 'foo.rb' ]
+#
+# This is useful when a configuration option needs to supply a file list
+# that may include files, exclude files or append files to a default list.
 
-def Dir.multiglob_recurse( *patterns )
-  patterns = [patterns].flatten.compact
-  files = patterns.collect{ |pattern| Dir.glob(pattern) }.flatten.uniq
-  files.each do |f|
-    if File.directory?(f)
-      patterns |= [ File.join(f, '**', '*' ) ]
-    end
+def Dir.multiglob_with_default(default, *patterns)
+  default = [default].flatten.compact
+  patterns = patterns.flatten.compact
+
+  if patterns.empty?
+    patterns = default
+  elsif patterns.first =~ /^[+-]/
+    patterns = default + patterns
   end
-  patterns.collect{ |pattern| Dir.glob(pattern) }.flatten.uniq
+
+  multiglob(*patterns)
 end
+