facets 0.9.0 → 1.0.0

data/CHANGELOG

@@ -1,6 +1,13 @@
 = Facets Change Log
 
-== 2005-10-30  Halloween
+== 1.0.0
+* Sped up string#similarity.
+* By popular protest deprecated usage of "AClass.use Facets, :amethod".
+* Created nicer layout of facets/support, /group, /english (one day /method).
+* Odd sets of facets have been move to facets/group/, eg. facets/group/inflect.
+* All is now well preped for a Rolls release shoud that come about.
+
+== v0.10.30  Halloween
 * Change OrderedHash (ohash.rb) to Dictionary (dictionary.rb).
 * Change BlankSlate (blankslate.rb) to BasicObject (basicobject.rb).
 * Old versions of the above should still work, but throw warnings
@@ -10,7 +17,7 @@
 * Methods enumerable/op_mod (%) and enumerable/eF are deprecated.
   Use #every or #ew instead.
 
-== 2005-10-11  Palapable
+== v0.10.11  Palapable
 * Merged Mega into Facets. I put the old Mega ChangeLog at
   the bottom of this document.
 * This represents the One-Point-Oh realease (albeit RC1) of

data/ProjectInfo

@@ -2,28 +2,27 @@
 
 TITLE    : &title Ruby Facets
 NAME     : &pkg facets
-VERSION  : '0.9.0'
-DATE     : '2005-10-30'
+VERSION  : '1.0.0'
+DATE     : '2005-11-30'
 STATUS   : Beta/Stable
 
 AUTHOR   : Thomas Sawyer
 EMAIL    : &email transfire@gmail.com
 HOMEPAGE : "http://facets.rubyforge.org"
 
-SUMMARY: The proverbial Zoo-of-More for Ruby
+SUMMARY: Atomic collection of core extension methods.
 
 DESCRIPTION: >
-  Ruby Facets is a cornicopia of extension methods and module,
-  class and microframework additions for the Ruby programming
-  language. The extensions, known as the Nano Methods, or the
-  Atomic Library, is unique by virtue of thier atomicity. 
-  Methods are stored in their own files, allowing for highly
-  granular control of requirements.
+  Ruby Facets is a cornicopia of extension methods for the
+  Ruby programming language. The extensions are unique by virtue
+  of thier atomicity. Methods are stored in their own files,
+  allowing for highly granular control of requirements, for
+  this reason I like to call it Ruby's Atomic Library.
 
 DISTRIBUTE: [ gem, tar.bz2, zip ]
 
 PACKAGE:
-  exclude:
+  exclude: 
     - dev
 
 RUBYFORGE:
@@ -34,18 +33,12 @@ RUBYFORGE:
 #  fixture: 'facets'
 
 RDOC:
-  - dir: web/rdoc-nano
-    template: jamis
-    options: ['--all', '--inline-source']
-    include:
-      - 'lib/nano/**/*'
-      - '[A-Z]*'
-  - dir: web/rdoc-mega
-    template: jamis
-    options: ['--all', '--inline-source']
-    include:
-      - 'lib/mega/**/*'
-      - '[A-Z]*'
+  dir: ../web/rdoc
+  template: jamis
+  options: ['--all', '--inline-source']
+  include:
+    - 'lib/facet/**/*'
+    - '[A-Z]*'
 
 PUBLISH:
   -

data/Rakefile

@@ -5,13 +5,14 @@
 require 'yaml'
 require 'fileutils'
 
-require './lib/nano/file/self/read_list'
+require './lib/facets/2005-11-05/ext/file/self/read_list'
 
-REQPATH = 'nano'
-DATPATH = 'data/facets'
-ETCPATH = 'conf/facets'
-MTHPATH = 'lib/nano'
-GENPATH = 'lib/nano'
+VERSION = "2005-11-05"
+REQPATH = "facets/#{ver}"
+DATPATH = "data/facets"
+ETCPATH = "conf/facets"
+MTHPATH = "lib/facets/#{ver}/ext"
+GENPATH = "lib/facets/#{ver}/set/general"
 
 #-----------------------------------------------------
 # Generate facet/ redirect to nano/, mega/ and unit/
@@ -19,21 +20,23 @@ GENPATH = 'lib/nano'
 desc %{Build facet redirect directory}
 task :facet do
   sh %{rm -R './lib/facet'}
-  ['nano','mega','unit'].each{ |d|
-    rbs = Dir.glob("lib/#{d}/**/*.rb")
+  ['ext','set/special','set/general'].each{ |d|
+    from = "lib/facets/2005-11-05"
+    rbs = Dir.glob( File.join( from, d, '**/*.rb' ) )
     rbs.each { |e|
       nolib = e.gsub( /^lib\//, '' )
-      link = e.gsub(/^lib\/#{d}\//,'lib/facet/')
+      re = Regexp.new( Regexp.escape( File.join( from, d ) + '/' ) )
+      link = e.gsub( re, 'lib/facet/')
       FileUtils.mkdir_p( File.dirname( link ) )
       File.open( link, "w+" ) { |w|
-        w << "require '#{nolib}'"
+         w << "require '#{nolib}'"
       }
     }
   }
 end
 
 #-----------------------------------------------------
-# Read in the nano directory and sort-out per class
+# Read in the facets/ext directory and sort-out per class
 #-----------------------------------------------------
 Methods = {}
 task :methods do
@@ -69,13 +72,10 @@ task :class => [:methods ] do
   print "Creating per class files... "
 
   index  = Methods 
-  #ndex = YAML.load( File.new( File.join( DATPATH, 'index.yml' ) ) )
   noauto = File.read_list( File.join( ETCPATH, 'noauto' ) )
-
   allfiles = index.collect{ |k,ms| ms.collect{ |m| "#{k}/#{m}" } }.flatten
-
   full = calc_full(allfiles, noauto)
-  
+
   index.each { |classname, method_files|
     File.open( "#{GENPATH}/#{classname.downcase}.rb", 'w' ) { |f|
       method_files.each { |rf|
@@ -135,10 +135,12 @@ end
 #   File.open('pub/www/methods.html', 'w') { |f| f << s }
 # end
 
+=begin
 desc "Check for open comment tests"
 task :testchk do
   system %q{grep -r ^#=begin\ test ./lib}
 end
+=end
 
 #-----------------------------------------------------
 # Support Methods

data/TODO

@@ -4,35 +4,8 @@
 IT IS ALWAYS A GOOD IDEA TO WRITE A TEST!
 AND ITS ALWAYS A FINE THING TO IMPROVE DOCUMENTATION!
 
-== Mega
-
-=== Minor:
-* ordered-hash, would like an improved version.
-* nil-comparable, works but I think could done better.
-* lisp, there may be other places where #pair! is needed.
-* interval, add infinity as possible sentinal.
-* method probe (might be able to use Functor as decoy/probe)
-* incorporate timezone from rails
-
-=== Misc
-* interface
-* detach
-
-=== Tests
-* binaryreader
-* binding_of_caller
-* coroutine, currently just checks for no error raised
-* heap
-* io-reactor
-* io-redirect
-* semaphore
-* tracepoint
-* 1st, needs some sort of refinement
-* lisp, needs to be vastly expanded 
-* lisp_format, code use a few more tests (?)
-
-
-== Nano
+* Move methods to facets/method and link back to facet/ but prefer library alias
+  instead. (Rolls)
 
 * hash/invert: What about letting Hash#invert take a block that specifies
   what to do when a collision occurs?

data/lib/facet/array.rb

@@ -1 +1,33 @@
-require 'nano/array.rb'
+require 'array/at_rand'
+require 'array/body'
+require 'array/delete_unless'
+require 'array/delete_values'
+require 'array/delete_values_at'
+require 'array/each_with_key'
+require 'array/first'
+require 'array/foot'
+require 'array/head'
+require 'array/last'
+require 'array/last_index'
+require 'array/merge'
+require 'array/mid'
+require 'array/middle'
+require 'array/op_fetch'
+require 'array/op_store'
+require 'array/pick'
+require 'array/pos'
+require 'array/pull'
+require 'array/rand_index'
+require 'array/rand_subset'
+require 'array/range'
+require 'array/rotate'
+require 'array/select'
+require 'array/shuffle'
+require 'array/slap'
+require 'array/store'
+require 'array/tail'
+require 'array/thru'
+require 'array/to_b'
+require 'array/to_h'
+require 'array/to_hash'
+require 'array/unzip'

data/lib/facet/array/at_rand.rb

@@ -1 +1,52 @@
-require 'nano/array/at_rand.rb'
+class Array
+
+  # Return a random element of the array.
+  #
+  #   [1, 2, 3, 4].at_rand           #=> 2
+  #   [1, 2, 3, 4].at_rand           #=> 4
+  #
+  def at_rand
+    self.at( rand( size ) )
+  end
+
+  # Same as #at_rand, but acts in place removing a
+  # random element from the array.
+  #
+  #   a = [1,2,3,4]
+  #   a.at_rand!       #=> 2
+  #   a                #=> [1,3,4]
+  #
+  def at_rand!
+    return delete_at( Kernel.rand( size ) )
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCArray < Test::Unit::TestCase
+
+    def test_at_rand
+      a = [1,2,3,4,5]
+      20.times{ assert_nothing_raised{ a.at_rand } }
+      20.times{ assert( a.include?( a.at_rand ) ) }
+    end
+
+    def test_at_rand!
+      a = ['a','b','c']
+      assert_equal( 1, a.at_rand!.length )
+      assert_equal( 2, a.length )
+    end
+
+  end
+
+=end

data/lib/facet/array/body.rb

@@ -1 +1,2 @@
-require 'nano/array/body.rb'
+# stub
+require 'facet/array/head.rb'

data/lib/facet/array/delete_unless.rb

@@ -1 +1,35 @@
-require 'nano/array/delete_unless.rb'
+#--
+# Daniel Schierbeck
+#++
+
+class Array
+
+  def delete_unless (&block)
+    delete_if { |element| not block.call(element) }
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TC_DELETE_UNLESS < Test::Unit::TestCase
+
+    def test_delete_unless
+      a = [1,2,3]
+      a.delete_unless{ |e| e == 2 }
+      assert_equal( [2], a )
+    end
+
+  end
+
+=end

data/lib/facet/array/delete_values.rb

@@ -1 +1,38 @@
-require 'nano/array/delete_values.rb'
+class Array
+
+  # Delete multiple values from array.
+  #
+  #   a = [1,2,3,4]
+  #   a.delete_values(1,2)   #=> [1,2]
+  #   a                      #=> [3,4]
+  #
+  def delete_values(*values)
+    d = []
+    values.each{ |v| d << delete(v) }
+    d
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCArray < Test::Unit::TestCase
+
+    def test_delete_values
+      a = [1,2,3,4]
+      assert_equal( [1,2], a.delete_values(1,2) )
+      assert_equal( [3,4], a )
+    end
+
+  end
+
+=end

data/lib/facet/array/delete_values_at.rb

@@ -1 +1,57 @@
-require 'nano/array/delete_values_at.rb'
+
+class Array
+
+  # Delete multiple values from array given
+  # indexes or index range.
+  #
+  #   a = [1,2,3,4]
+  #   a.delete_values_at(1,2)   #=> [2,3]
+  #   a                         #=> [1,4]
+  #   a = [1,2,3,4]
+  #   a.delete_values_at(0..2)  #=> [1,2,3]
+  #   a                         #=> [4]
+  #
+  def delete_values_at(*selectors)
+    idx = []
+    selectors.each{ |i|
+      case i
+      when Range
+        idx.concat( i.to_a )
+      else
+        idx << i.to_i
+      end
+    }
+    idx.uniq!
+    dvals = values_at(*idx)
+    idx = (0...size).to_a - idx
+    self.replace( values_at(*idx) )
+    return dvals
+  end
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TCArray < Test::Unit::TestCase
+
+    def test_delete_values_at
+      a = [1,2,3,4]
+      assert_equal( [2,3], a.delete_values_at(1,2) )
+      assert_equal( [1,4], a )
+      a = [1,2,3,4]
+      assert_equal( [1,2,3], a.delete_values_at(0..2) )
+      assert_equal( [4], a )
+    end
+
+  end
+
+=end

data/lib/facet/array/each_with_key.rb

@@ -1 +1,9 @@
-require 'nano/array/each_with_key.rb'
+
+class Array
+
+  # Increase polymorphysim between Hash and Array.
+  alias_method :each_with_key, :each_with_index
+
+end
+
+