Author: aamine
Date: 2006-02-08 21:08:07 +0900 (Wed, 08 Feb 2006)
New Revision: 370

Added:
   trunk/lib/find.rb
Modified:
   trunk/ChangeLog
Log:
* lib/find.rb: new file (imported from ruby CVS trunk HEAD, rev 1.15).


Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2006-02-07 09:07:04 UTC (rev 369)
+++ trunk/ChangeLog	2006-02-08 12:08:07 UTC (rev 370)
@@ -4,6 +4,12 @@
 #  from Mon, 03 May 2004 01:24:19 +0900
 #
 
+2006-02-08(Wed) 21:07:36 +0900  Minero Aoki  <aamine loveruby.net>
+
+	* lib/find.rb: new file (imported from ruby CVS trunk HEAD,
+	  rev 1.15).
+
+
 2006-02-07(Tue) 17:58:18 +0900  Koichi Sasada  <ko1 atdot.net>
 
 	* compile.c, insns.def : support BEGIN{} and add preexe instruction

Added: trunk/lib/find.rb
===================================================================
--- trunk/lib/find.rb	2006-02-07 09:07:04 UTC (rev 369)
+++ trunk/lib/find.rb	2006-02-08 12:08:07 UTC (rev 370)
@@ -0,0 +1,79 @@
+#
+# find.rb: the Find module for processing all files under a given directory.
+#
+
+#
+# The +Find+ module supports the top-down traversal of a set of file paths.
+#
+# For example, to total the size of all files under your home directory,
+# ignoring anything in a "dot" directory (e.g. $HOME/.ssh):
+#
+#   require 'find'
+#
+#   total_size = 0
+#
+#   Find.find(ENV["HOME"]) do |path|
+#     if FileTest.directory?(path)
+#       if File.basename(path)[0] == ?.
+#         Find.prune       # Don't look any further into this directory.
+#       else
+#         next
+#       end
+#     else
+#       total_size += FileTest.size(path)
+#     end
+#   end
+#
+module Find
+
+  #
+  # Calls the associated block with the name of every file and directory listed
+  # as arguments, then recursively on their subdirectories, and so on.
+  #
+  # See the +Find+ module documentation for an example.
+  #
+  def find(*paths) # :yield: path
+    paths.collect!{|d| open(d){}; d.dup}
+    while file = paths.shift
+      catch(:prune) do
+	yield file.dup.taint
+        next unless File.exist? file
+	begin
+	  if File.lstat(file).directory? then
+	    d = Dir.open(file)
+	    begin
+	      for f in d
+		next if f == "." or f == ".."
+		if File::ALT_SEPARATOR and file =~ /^(?:[\/\\]|[A-Za-z]:[\/\\]?)$/ then
+		  f = file + f
+		elsif file == "/" then
+		  f = "/" + f
+		else
+		  f = File.join(file, f)
+		end
+		paths.unshift f.untaint
+	      end
+	    ensure
+	      d.close
+	    end
+	  end
+       rescue Errno::ENOENT, Errno::EACCES
+	end
+      end
+    end
+  end
+
+  #
+  # Skips the current file or directory, restarting the loop with the next
+  # entry. If the current file is a directory, that directory will not be
+  # recursively entered. Meaningful only within the block associated with
+  # Find::find.
+  #
+  # See the +Find+ module documentation for an example.
+  #
+  def prune
+    throw :prune
+  end
+
+  module_function :find, :prune
+end


-- 
ML: yarv-diff quickml.atdot.net
Info: http://www.atdot.net/~ko1/quickml