facets 1.8.20 → 1.8.49

data/PROJECT

@@ -26,7 +26,7 @@ rubyforge:
   package  : Facets
 
 scm: darcs
-changelog  : doc/ChangeLog
+changelog  : doc/CHANGES
 stamp      : VERSION
 
 #distribute: [ -doc/rdoc, -test/lib ]

data/Rakefile

@@ -136,30 +136,38 @@ def method_list_outline
   s
 end
 
+desc "Build fiery facets"
+task :fiery => ['lib/fieryfacets.rb'] do
+  puts "Fiery Facets Complete!"
+end
 
+file 'lib/fieryfacets.rb' do
+  core = Dir.glob('lib/facets/core/**/*')
+  core.reject!{ |f| ! File.file?(f) }
 
+  str = ''
+  core.each do |f|
+    str << File.read(f)
+    str << "\n\n"
+  end
 
-=begin
+  str.gsub!(/^\s*[#].*?$/,'')
+  str.gsub!(/^=begin.*?=end/m, '')
+  str.gsub!(/^\s*require.*?$/, '')
+  str.gsub!(/^\s*\n/,'')
 
-core: !!rdoc
-  title: Facets/CORE
-  template: jamis
-  options: ['--all', '--inline-source']
-  source: repo
-  include:
-    - 'lib/facets/core/**/*'
-    - '[A-Z]*'
-  output: api/core
-
-more: !!rdoc
-  title: Facets/MORE
-  template: jamis
-  options: ['--all', '--inline-source']
-  source: repo
-  include:
-    - 'lib/facets/more/**/*'
-    - '[A-Z]*'
-  output: api/more
+  File.open('lib/fieryfacets.rb','w') do |f|
+    f << str
+  end
+end
 
-=end
+desc "list files that lack tests"
+task :notest do
+  stubs  = `grep -lr "#\s*stub" lib/facets/*`
+  stubs = stubs.split("\n")
+  tested = `grep -Lr "=begin test" lib/facets/*`
+  tested = tested.split("\n")
+  tested -= stubs
+  puts tested.join("\n")
+end
 

data/VERSION

@@ -1 +1 @@
-1.8.20 rc (2007-02-06)
+1.8.49 stable (2007-02-16)

data/doc/{ChangeLog → CHANGES}

@@ -1,3 +1,90 @@
+Fri Feb 16 01:10:15 EST 2007  Trans <transfire@gmail.com>
+  * fixed test for elementwise and op_tilde_self
+
+Fri Feb 16 00:58:53 EST 2007  Trans <transfire@gmail.com>
+  * added enumerable/map_send
+
+Fri Feb 16 00:57:52 EST 2007  Trans <transfire@gmail.com>
+  * added thread_map and thread_map_send thanks to greg
+
+Fri Feb 16 00:56:41 EST 2007  Trans <transfire@gmail.com>
+  * added operator "~@" for enumerable/elementwise
+
+Fri Feb 16 00:05:06 EST 2007  Trans <transfire@gmail.com>
+  * added more/consoleutils.rb
+
+Fri Feb 16 00:03:01 EST 2007  Trans <transfire@gmail.com>
+  * added string/cleave
+
+Thu Feb 15 23:59:54 EST 2007  Trans <transfire@gmail.com>
+  * added capitalize_all thanks to Richard Laugesen
+
+Thu Feb 15 23:58:40 EST 2007  Trans <transfire@gmail.com>
+  * cartesian_product is an alias of enumerable/cart
+
+Thu Feb 15 23:57:40 EST 2007  Trans <transfire@gmail.com>
+  * added array pad thanks to Richard Laugesen
+
+Thu Feb 15 23:56:49 EST 2007  Trans <transfire@gmail.com>
+  * added kernel/tap
+
+Thu Feb 15 23:49:50 EST 2007  Trans <transfire@gmail.com>
+  * fixed test/unit load issues
+
+Thu Feb 15 19:54:32 EST 2007  Trans <transfire@gmail.com>
+  * converted facet/ requires to facets/core or facets/more as needed
+
+Thu Feb 15 19:52:13 EST 2007  Trans <transfire@gmail.com>
+  * further improvements to arguments.rb (looking good!)
+
+Thu Feb 15 17:04:26 EST 2007  Trans <transfire@gmail.com>
+  * improved symbol/self/generate
+
+Thu Feb 15 17:03:38 EST 2007  Trans <transfire@gmail.com>
+  * bug fix kernel/autoreload arguments needed to be in opposite order
+
+Thu Feb 15 17:03:09 EST 2007  Trans <transfire@gmail.com>
+  * add to_xoxo
+
+Thu Feb 15 17:02:19 EST 2007  Trans <transfire@gmail.com>
+  * removed bad character codes in multiplier.rb
+
+Thu Feb 15 17:01:31 EST 2007  Trans <transfire@gmail.com>
+  * used yaml to allow json.rb to work for all object in general
+
+Thu Feb 15 16:59:55 EST 2007  Trans <transfire@gmail.com>
+  * improvements to functor (note: is to_a and to_proc okay?)
+
+Thu Feb 15 16:57:55 EST 2007  Trans <transfire@gmail.com>
+  * add test to string/bytes.rb
+
+Thu Feb 15 16:57:24 EST 2007  Trans <transfire@gmail.com>
+  * bug fix to nilclass/op_cmp
+
+Thu Feb 15 16:57:00 EST 2007  Trans <transfire@gmail.com>
+  * fixed enumerable/op_pow to use enumerable/cart
+
+Thu Feb 15 16:56:38 EST 2007  Trans <transfire@gmail.com>
+  * added array/op_div
+
+Thu Feb 15 16:54:06 EST 2007  Trans <transfire@gmail.com>
+  * adjustments to xmlbuilder and htmlbuilder dur to buildingblock changes
+
+Thu Feb 15 16:53:34 EST 2007  Trans <transfire@gmail.com>
+  * improved buildingblock.rb
+
+Thu Feb 15 16:52:11 EST 2007  Trans <transfire@gmail.com>
+  * simplified interface of arguments.rb (still a little more to do)
+
+Thu Feb 15 16:50:10 EST 2007  Trans <transfire@gmail.com>
+  * improvements/simplifications to Dir.multiglob
+
+Thu Feb 15 16:49:24 EST 2007  Trans <transfire@gmail.com>
+  * added new authors to list
+
+Thu Feb 15 16:48:05 EST 2007  Trans <transfire@gmail.com>
+  * fixed misspelling of behavior.rb (was bahvior.rb)
+
 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")
 

data/lib/facet/behavior.rb

@@ -0,0 +1 @@
+require 'facets/more/behavior.rb'

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

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

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

@@ -1,4 +1,4 @@
-require 'facet/array/last'
+require 'facets/core/array/last'
 
 class Array
 

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

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

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

@@ -1,2 +1,2 @@
 # stub
-require 'facet/array/first'
+require 'facets/core/array/first'

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

@@ -9,3 +9,21 @@ class Array
   alias_method :/, :[]
 
 end
+
+
+
+=begin test
+
+  require 'test/unit'
+
+  class TestOpDiv < Test::Unit::TestCase
+
+    def test_op_div
+      a = [:A,:B,:C]
+      assert_equal( a[1], a/1 )
+      assert_equal( :B, a/1 )
+    end
+  end
+
+=end
+

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

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

data/lib/facets/core/class/by_name.rb

@@ -1 +1 @@
-require 'facet/module/by_name'
+require 'facets/core/module/by_name'

data/lib/facets/core/class/method_name.rb

@@ -5,7 +5,9 @@ class Class
   #
   #   My::ClassName.method_name => "my__class_name"
   #
-  def method_name # inspired by facet/string/underscore
+  # Inspired by facets/core/string/underscore.
+  # 
+  def method_name
     name.gsub(/([A-Z]+)([A-Z])/,'\1_\2').gsub(/([a-z])([A-Z])/,'\1_\2').gsub('::','__').downcase
   end
   

data/lib/facets/core/class/remove_descendents.rb

@@ -2,7 +2,7 @@
 # Original code from RubyOnRails (http://www.rubyonrails.com)
 #++
 
-require 'facet/class/descendents'
+require 'facets/core/class/descendents'
 
 class Class
 

data/lib/facets/core/class/remove_subclasses.rb

@@ -1,2 +1,2 @@
 # stub
-require 'facet/class/remove_descendents'
+require 'facets/core/class/remove_descendents'

data/lib/facets/core/class/subclasses.rb

@@ -1,2 +1,2 @@
 # stub
-require 'facet/class/descendents'
+require 'facets/core/class/descendents'

data/lib/facets/core/class/unix_path.rb

@@ -5,7 +5,7 @@ class Class
   #   
   #   My::ClassName.unix_path => "/my/class_name"
   #
-  # Inspired by facet/string/underscore.
+  # Inspired by facets/core/string/underscore.
   #
   def unix_path
     '/' + name.gsub(/([A-Z]+)([A-Z])/,'\1_\2').gsub(/([a-z])([A-Z])/,'\1_\2').gsub('::','/').downcase

data/lib/facets/core/comparable/at_most.rb

@@ -1,2 +1,2 @@
 # stub
-require 'facet/comparable/at_least'
+require 'facets/core/comparable/at_least'

data/lib/facets/core/comparable/cap.rb

@@ -1,2 +1,2 @@
 # stub
-require 'facet/comparable/clip'
+require 'facets/core/comparable/clip'

data/lib/facets/core/date/days_of_month.rb

@@ -1,4 +1,4 @@
-require 'facet/date/days_in_month'
+require 'facets/core/date/days_in_month'
 
 class Date
 

data/lib/facets/core/date/to_s.rb

@@ -1,4 +1,4 @@
-require 'facet/date/stamp'
+require 'facets/core/date/stamp'
 
 class Date
 

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

@@ -1,2 +1,2 @@
 # stub
-require 'facet/dir/self/ls_r'
+require 'facets/core/dir/self/ls_r'

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

@@ -1,2 +1,2 @@
 # stub
-require 'facet/enumerable/collect_with_index'
+require 'facets/core/enumerable/collect_with_index'

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

@@ -1,7 +1,7 @@
 #--
 # Credit goes to Florian Gross.
 #++
-require 'facet/enumerable/filter_collect'
+require 'facets/core/enumerable/filter_collect'
 
 module Enumerable
 

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

@@ -1,2 +1,2 @@
 # stub
-require 'facet/enumerable/compact_collect'
+require 'facets/core/enumerable/compact_collect'

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

@@ -1,2 +1,2 @@
 # stub
-require 'facet/enumerable/permute.rb'
+require 'facets/core/enumerable/permute.rb'

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

@@ -1,4 +1,4 @@
-require 'facet/enumerable/each_combination'
+require 'facets/core/enumerable/each_combination'
 
 class Array
 

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

@@ -1,2 +1,75 @@
-# stub
-require 'facet/enumerable/ew'
+# = elementwise.rb
+#
+# CREDIT Martin DeMello
+#
+# TODO depreate #ew in favor of ~@ operator ?
+
+require 'facets/more/functor'
+
+module Enumerable
+
+  # Returns an elementwise Functor designed to make R-like
+  # elementwise operations possible.
+  #
+  #   [1,2].elements + 3          #=> [4,5]
+  #   [1,2].elements + [4,5]      #=> [5,7]
+  #   [1,2].elements + [[4,5],3]  #=> [[5,7],[4,5]
+  #
+  #--
+  # Special thanks to Martin DeMello for helping to develop this.
+  #++
+
+  def elementwise
+    @_elementwise_functor ||= Functor.new do |op,*args|
+      a = args.collect do |arg|
+        if arg.kind_of?(Enumerable)
+          ln = ( arg.length > self.length ? self.length : arg.length )
+          self[0...ln].zip(arg[0...ln]).collect{ |a,b| a.send(op,b) }
+          #self[0...ln].zip(arg[0...1n]).collect{ |a,b| b ? a.send(op,b) : nil }
+        else
+          self.collect{ |a| a.send(op,arg) }
+        end
+      end
+      a.flatten! if args.length == 1
+      a
+    end
+  end
+
+  alias_method :ew, :elementwise
+
+end
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TestElementWise < Test::Unit::TestCase
+
+    def test_elementwise
+      a = [1,2,3]
+      b = [4,5]
+      assert_equal( [4,5,6], a.elementwise + 3 )
+      assert_equal( [5,7], a.elementwise + b )
+      assert_equal( [[5,7],[3,4,5]], a.elementwise.+(b,2) )
+      assert_equal( [[5,7],[4,5,6]], a.elementwise.+(b,3) )
+    end
+
+    def test_ew
+      a = [1,2,3]
+      b = [4,5]
+      assert_equal( [4,5,6], a.ew + 3 )
+      assert_equal( [5,7], a.ew + b )
+      assert_equal( [[5,7],[3,4,5]], a.ew.+(b,2) )
+      assert_equal( [[5,7],[4,5,6]], a.ew.+(b,3) )
+    end
+
+  end
+
+=end

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

@@ -1,8 +1,8 @@
 #--
 # Credit goes to Derek.
 #++
-require 'facet/enumerable/ideal_entropy'
-require 'facet/enumerable/probability'
+require 'facets/core/enumerable/ideal_entropy'
+require 'facets/core/enumerable/probability'
 
 module Enumerable
   # Shannon's entropy for an array - returns the average

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

@@ -1,60 +1,2 @@
-
-require 'facets/more/functor'
-
-module Enumerable
-
-  # Returns an elementwise Functor designed to make R-like
-  # elementwise operations possible.
-  #
-  #   [1,2].ew + 3          #=> [4,5]
-  #   [1,2].ew + [4,5]      #=> [5,7]
-  #   [1,2].ew + [[4,5],3]  #=> [[5,7],[4,5]
-  #
-  #--
-  # Special thanks to Martin DeMello for helping to develop this.
-  #++
-  def elementwise
-    Functor.new do |op,*args|
-      a = args.collect do |arg|
-        if arg.kind_of?(Enumerable)
-          ln = ( arg.length > self.length ? self.length : arg.length )
-          self[0...ln].zip(arg[0...ln]).collect{ |a,b| a.send(op,b) }
-          #self[0...ln].zip(arg[0...1n]).collect{ |a,b| b ? a.send(op,b) : nil }
-        else
-          self.collect{ |a| a.send(op,arg) }
-        end
-      end
-      a.flatten! if args.length == 1
-      a
-    end
-  end
-
-  alias_method :ew, :elementwise
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCEnumerable < Test::Unit::TestCase
-
-    def test_ew
-      a = [1,2,3]
-      b = [4,5]
-      assert_equal( [4,5,6], a.ew + 3 )
-      assert_equal( [5,7], a.ew + b )
-      assert_equal( [[5,7],[3,4,5]], a.ew.+(b,2) )
-      assert_equal( [[5,7],[4,5,6]], a.ew.+(b,3) )
-    end
-
-  end
-
-=end
+# stub
+require 'facets/core/enumerable/elementwise'