facets 1.3.3 → 1.4.0

data/demo/lisp/game.rb

@@ -0,0 +1,47 @@
+(setf *objects* '(whiskey-bottle bucket frog chain))
+
+(setf *map* '((living-room (you are in the living-room of a wizards house. there is a wizard snoring loudly on the couch.)
+                           (west door garden)  
+                           (upstairs stairway attic))
+              (garden (you are in a beautiful garden. there is a well in front of you.)
+                      (east door living-room))
+              (attic (you are in the attic of the wizards house. there is a giant welding torch in the corner.)
+                     (downstairs stairway living-room))))
+
+(setf *object-locations* '((whiskey-bottle living-room)
+                           (bucket living-room)
+                           (chain garden)
+                           (frog garden)))
+
+(setf *location* 'living-room)
+
+(defun describe-location (location map)
+  (second (assoc location map)))
+
+(defun describe-path (path)
+  `(there is a ,(second path) going ,(first path) from here.))
+
+(defun describe-paths (location map)
+  (apply #'append (mapcar #'describe-path (cddr (assoc location map)))))
+
+(defun is-at (obj loc obj-loc)
+  (eq (second (assoc obj obj-loc)) loc))
+
+(defun describe-floor (loc objs obj-loc)
+  (apply #'append (mapcar (lambda (x)
+                            `(you see a ,x on the floor.))
+                          (remove-if-not (lambda (x)
+                                           (is-at x loc obj-loc))
+                                         objs))))
+
+(defun look ()
+  (append (describe-location *location* *map*)
+          (describe-paths *location* *map*)
+          (describe-floor *location* *objects* *object-locations*)))
+
+(defun walk-direction (direction)
+  (let ((next (assoc direction (cddr (assoc *location* *map*)))))
+    (cond (next (setf *location* (third next)) (look))
+    (t '(you cant go that way.)))))
+
+

data/lib/facet/all.rb

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

data/lib/facet/annattr.rb

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

data/lib/facet/class/to_proc.rb

@@ -0,0 +1 @@
+require 'facets/core/class/to_proc.rb'

data/lib/facet/cookie.rb

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

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

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

data/lib/facet/enumerable/count.rb

@@ -0,0 +1 @@
+require 'facets/core/enumerable/count.rb'

data/lib/facet/hash/to_proc.rb

@@ -0,0 +1 @@
+require 'facets/core/hash/to_proc.rb'

data/lib/facet/hashbuilder.rb

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

data/lib/facet/http.rb

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

data/lib/facet/httpaccess.rb

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

data/lib/facet/kernel/__get__.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/__get__.rb'

data/lib/facet/kernel/__set__.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/__set__.rb'

data/lib/facet/kernel/cache.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/cache.rb'

data/lib/facet/kernel/respond.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/respond.rb'

data/lib/facet/lazy.rb

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

data/lib/facet/module/class.rb

@@ -0,0 +1 @@
+require 'facets/core/module/class.rb'

data/lib/facet/module/nodef.rb

@@ -0,0 +1 @@
+require 'facets/core/module/nodef.rb'

data/lib/facet/opencascade.rb

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

data/lib/facet/pqueue.rb

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

data/lib/facet/taskable.rb

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

data/lib/facets.rb

@@ -1,6 +1,5 @@
 #--
 # Facets
-#
 # Copyright (c) Thomas Sawyer
 #
 # Ruby License
@@ -11,17 +10,13 @@
 # This program is distributed in the hope that it will be useful, but WITHOUT
 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 # FOR A PARTICULAR PURPOSE.
-#
-# ==========================================================================
-#  Revision History
-# --------------------------------------------------------------------------
-#  2006-03-23  Trans  * Clean-up, finally ready enough for regular usage.
-#
-# ==========================================================================
-#
 #++
 
-# :title: Facets
+# Author::    Thomas Sawyer
+# Copyright:: Copyright (c) 2005 Thomas Sawyer
+# License::   Ruby License
+
+# = Facets
 #
 # This the base system. It automitically loads the facets methods
 # considered base and appends the facets locations to the load path.
@@ -32,11 +27,14 @@
 #   require 'string/blank'
 #   require 'functor'
 #
-# == Author(s)
-#
-# * Thomas Sawyer
-#
 
+# Rolls Support
+# TODO Better detection
+#if defined?(Library)
+#  Library.new( 'facets' ) do |l|
+#    l.title = "Ruby Facets"
+#  }
+#end
 
 $: << File.join( File.dirname(__FILE__), 'facets/core' )
 $: << File.join( File.dirname(__FILE__), 'facets/more' )
@@ -102,26 +100,8 @@ require 'facets/core/kernel/as'
 
 
 module Facets
-  extend self
 
-  # This simply subs terms for Ruby's operators
-  # and removes any trailing ? ! or =.
-  def op_esc_path( name )
-    ri = name.rindex('/')
-    if ri
-      dir, file = name[0...ri], name[ri+1..-1]
-    else
-      dir, file = nil, name
-    end
-    file = op_esc(file.strip)
-    dir ? File.join( dir, file ) : file
-  end
-
-  def op_esc( str )
-    str = str.to_s.chomp('.rb')
-    str = str.strip.gsub(OPERATORS_REGEXP){ OPERATORS_ESCAPE[$1] }
-    str.chomp('?').chomp('!').chomp('=')
-  end
+  extend self
 
   OPERATORS = %w{ +@ -@ + - ** * / % ~ <=> << >> < > === == =~ <= >= | & ^ []= [] }
   OPERATORS_REGEXP = Regexp.new( '(' << OPERATORS.collect{ |k| Regexp.escape(k) }.join('|') << ')' )
@@ -183,9 +163,88 @@ module Facets
     'unboundmethod' => ['kernel'],
   }
 
+  NOAUTO = %w{
+    array/op_fetch.rb
+    array/op_store.rb
+    binding/self/of_caller.rb
+    hash/op_fetch.rb
+    hash/op_store.rb
+    numeric/succ.rb
+    numeric/pred.rb
+    string/succ.rb
+    string/unpack.rb
+    module/attr.rb
+    hash/each.rb
+    module/methods.rb
+    object/method.rb
+    nilclass/op_fetch.rb
+    nilclass/empty.rb
+    nilclass/include.rb
+    nilclass/size.rb
+    nilclass/length.rb
+    nilclass/method_missing.rb
+    date/*
+    fileutils/*
+    ostruct/*
+    logger/*
+    gem/*
+  }
+
   METHDIR = "facet"
 
-  alias_method :require_facet, :require
+  def op_esc( str )
+    str = str.to_s.chomp('.rb')
+    str = str.strip.gsub(OPERATORS_REGEXP){ OPERATORS_ESCAPE[$1] }
+    str.chomp('?').chomp('!').chomp('=')
+  end
+
+  # Subs terms for Ruby's operators
+  # and removes any trailing ? ! or =.
+  def op_esc_path( name )
+    ri = name.rindex('/')
+    if ri
+      dir, file = name[0...ri], name[ri+1..-1]
+    else
+      dir, file = nil, name
+    end
+    file = op_esc(file.strip)
+    dir ? File.join( dir, file ) : file
+  end
+
+  # Returns a file list of all extensions.
+  def extensions
+    return @all_extensions if @all_extensions
+    Dir.chdir( File.join( Config::CONFIG['sitelibdir'], METHDIR ) ) do
+      all = Dir.glob( '*/*.rb' ) + Dir.glob( '*/*/*.rb' )
+    end
+    @extensions = all
+  end
+
+  # Returns file list of all extensions minus the ones that should not be autoloaded.
+  def extensions_nice
+    @safe_extensions ||= nice_only( extensions )
+  end
+
+  # Removes the NOAUTO files from the given extensions list.
+  def nice_only( exts )
+    exts = exts.dup
+    NOAUTO.each do |f|
+      if f.include?('*')
+        re = %r"#{f.gsub('*','.*')}"
+        exts.reject!{ |x| x =~ re }
+      elsif exts.include?(f)
+        exts.delete f
+      end
+    end
+    exts.sort
+  end
+
+
+  # DEPRECATE
+
+  alias_method :require_facetless, :require
+
+  # DEPRECATE (Another way to handle subclasses?)
 
   def require( fname )
     paths = fname.split('/')
@@ -197,17 +256,17 @@ module Facets
         paths[-1] = op_esc( paths[-1] )
         begin
           paths[0] = klass
-          require_facet( File.join( METHDIR, *paths ) )
+          require_facetless( File.join( METHDIR, *paths ) )
         rescue LoadError => e
           klass = ancestors.shift
           retry if klass
           raise e
         end
       else
-        require_facet( File.join( METHDIR, fname ) )
+        require_facetless( File.join( METHDIR, fname ) )
       end
     else
-      require_facet( File.join( METHDIR, fname ) )
+      require_facetless( File.join( METHDIR, fname ) )
     end
   end
 
@@ -229,3 +288,5 @@ end
 #  end
 #
 #end
+#
+

data/lib/facets/core/all.rb

@@ -0,0 +1,5 @@
+require 'facets'
+
+Facets.extensions_nice.each do |f|
+  require File.join( Facets::METHDIR, f )
+end

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

@@ -0,0 +1,25 @@
+# Credit:: Daniel Schierbeck
+
+class Class
+
+
+  # Convert instatiation of a class into a Proc.
+  #
+  #  class Person
+  #     def initialize(name)
+  #       @name = name
+  #     end
+  #
+  #     def inspect
+  #       @name.to_str
+  #     end
+  #   end
+  #
+  #   %w(john bob jane hans).map(&Person) => [john, bob, jane, hans] 
+  #
+
+  def to_proc
+    proc{|*args| new(*args)}
+  end
+
+end

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

@@ -1,7 +1,8 @@
 
 class Dir
 
-  #
+  # Ascend a directory path.
+
   def self.ascend( dir, inclusive=true, &blk)
     dir = dir.dup
     blk.call( dir ) if inclusive

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

@@ -0,0 +1,11 @@
+
+class Dir
+
+  def self.descend( path ) #:yield:
+    paths = path.split('/')
+    paths.size.times do |n|
+      yield File.join( *paths[0..n] )
+    end
+  end
+
+end

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

@@ -12,14 +12,14 @@ module Enumerable
   #--
   # gmosx: any idea for a better name?
   #++
-  
+
   def accumulate
     Functor.new do |op, *args|
       self.inject([]) { |a, x| a << x.send(op, *args) }.flatten
     end  
   end
   #alias_method :acc, :accumulate
-  
+
 end
 
 

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

@@ -0,0 +1,54 @@
+
+module Enumerable
+
+  # Count the number of items in an enuerable equal (==)
+  # to the given object.
+  #
+  #   e = [ 'a', '1', 'a' ]
+  #   e.count('1')    #=> 1
+  #   e.count('a')    #=> 2
+  #
+  # Count can also handle multiple-valued blocks.
+  #
+  #   e = { 'a' => 2, 'a' => 2, 'b' => 1 }
+  #   e.count('a',2)  #=> 1
+  #
+  def count(*c)
+    self.select{ |*i| i == c }.length
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+  class TC01 < Test::Unit::TestCase
+
+    def test_001
+      e = [ 'a', '1', 'a' ]
+      assert_equal( 1, e.count('1') )
+      assert_equal( 2, e.count('a') )
+    end
+
+    def test_002
+      e = [ ['a',2], ['a',2], ['a',2], ['b',1] ]
+      assert_equal( 3, e.count(['a',2]) )
+    end
+
+    def test_003
+      e = { 'a' => 2, 'a' => 2, 'b' => 1 }
+      assert_equal( 1, e.count('a',2) )
+    end
+
+  end
+
+=end

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

@@ -11,6 +11,9 @@ module Enumerable
   #   [1,2].cross([4,5]){|elem| a << elem }
   #   a  #=> [[1, 4],[1, 5],[2, 4],[2, 5]]
   #
+  #--
+  # TODO Make a more efficient version just for Array (?)
+  #++
   def cross(*enums, &block)
     Enumerable.cross(self, *enums, &block)
   end

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

@@ -1,6 +1,12 @@
 #--
-# Hash#graph! is only good for a Hash.
+# Credits for original version goes to Zallus Kanite and Gavin Sinclair.
 #++
+
+#--
+# Hash#graph! is only useful for Hash. It is not generally
+# applicable to Enumerable.
+#++
+
 require 'facet/hash/graph'
 
 module Enumerable
@@ -12,9 +18,7 @@ module Enumerable
   #   squares  = numbers.graph { |n| [n, n*n] }   # { 1=>1, 2=>4, 3=>9 }
   #   sq_roots = numbers.graph { |n| [n*n, n] }   # { 1=>1, 4=>2, 9=>3 }
   #
-  #--
-  # Credits for original version goes to Zallus Kanite and Gavin Sinclair.
-  #++
+
   def graph(&yld)
     if yld
       inject({}) do |h,kv|