Subversion Repositories svn.Prod repos

Compare Revisions

Problem with comparison.

Ignore whitespace Rev HEAD → Rev 1

/ruby/filefind.rb
0,0 → 1,59
#!/usr/bin/env ruby19
# progname : filefind.bash
# purpose : display a directory tree
# similar to find
 
# =============================================================================
# Functions
# =============================================================================
 
def Usage(progname, mesg)
puts "Usage : #{progname} directory"
puts mesg
end
 
#
# dir is directory to traverse
#
def traverse(dir)
curdir = Dir.getwd
Dir.chdir(dir)
curdir2 = Dir.getwd
Dir.foreach(Dir.getwd) { | file |
pfile = curdir2 + "/" +file
if File.directory?(file) && !File.symlink?(file)
if (file != "..") && (file != ".")
puts pfile
traverse(file)
end
else
if File.file?(file) || File.symlink?(file)
puts "#{pfile}"
else
puts "WARNING: Could not process file $pfile"
end
end
}
Dir.chdir(curdir)
end
 
def start_traverse(directory)
puts directory
traverse(directory)
end
 
# =============================================================================
# MAIN
# =============================================================================
 
progname = File.basename($0)
if (ARGV.length == 1)
directory = ARGV[0]
if File.directory?(directory)
start_traverse(directory)
else
Usage progname, "ERROR: No directory #{directory} found"
end
else
Usage progname, "ERROR: 1 argument expected"
end
Property changes:
Added: svn:executable
+*
\ No newline at end of property