/filefind/C/filefind.c |
---|
118,7 → 118,7 |
} |
else |
{ |
sprintf(mesg, "ERROR: No directory %s found", directory); |
sprintf(mesg, "ERROR: Not a directory : %s", directory); |
Usage(progname, mesg); |
} |
} |
/filefind/PHP/filefind.php |
---|
19,9 → 19,9 |
# Functions |
# ============================================================================= |
function Usage($mesg, $progname) |
function Usage($progname ,$mesg) |
{ |
echo "Usage : $progname\n"; |
echo "Usage: $progname directory\n"; |
echo "$mesg\n"; |
} |
73,7 → 73,7 |
if (is_dir($directory)) |
start_traverse($directory); |
else |
Usage($progname, "ERROR: No directory $directory found"); |
Usage($progname, "ERROR: Not a directory : $directory"); |
} |
else |
Usage($progname, "ERROR: 1 argument expected"); |
/filefind/bash/filefind.bash |
---|
83,8 → 83,8 |
then |
start_traverse $directory |
else |
Usage "ERROR: No directory $directory found" |
Usage "ERROR: No a directory : $directory" |
fi |
else |
Usage "ERRROR: 1 argument expected" |
Usage "ERROR: 1 argument expected" |
fi |
/filefind/go/filefind.go |
---|
12,6 → 12,11 |
// Functions |
// ============================================================================= |
func Usage(progname, mesg string) { |
log.Print ("Usage: " + progname + " directory") |
log.Fatal (mesg) |
} |
func traverse(s string) { |
curdir, err := os.Getwd() |
if err := os.Chdir(s); err != nil { |
50,18 → 55,20 |
// ============================================================================= |
func main() { |
progname := os.Args[0] |
if len(os.Args) < 2 { |
log.Fatal("Give a directory as argument") |
Usage(progname, "ERROR: 1 argument expected") |
} |
arg := os.Args[1] |
fi, err := os.Stat(arg) |
directory := os.Args[1] |
fi, err := os.Stat(directory) |
if err != nil { |
log.Fatal(err) |
_ = err // ugly hack to allow not using the err variable |
Usage(progname, "ERROR: Not a directory : " + directory) |
} |
if fi.IsDir() { |
start_traverse(arg) |
start_traverse(directory) |
} else { |
fmt.Println("Geen dir") |
Usage(progname, "ERROR: Not a directory : " + directory) |
} |
} |
/filefind/java/filefind.java |
---|
96,7 → 96,7 |
} |
else |
{ |
Usage(progname, "ERROR: No directory " + basename + " found"); |
Usage(progname, "ERROR: Not a directory : " + basename); |
} |
} |
else |
/filefind/pascal/filefind.pas |
---|
1,11 → 1,18 |
program filefind; |
Uses sysutils; |
var directory : string; |
var progname : string; |
// ============================================================================ |
// Functions |
// ============================================================================ |
procedure Usage(mesg : string); |
begin |
Writeln('Usage: ' + progname + ' directory'); |
Writeln(mesg); |
end; |
procedure traverse(directory : string); |
var curdir1, curdir2 : string; |
Info : TSearchRec; |
40,6 → 47,7 |
// ============================================================================ |
begin |
progname := ParamStr(0); |
directory := ParamStr(1); |
if (ParamCount = 1) |
then |
47,7 → 55,7 |
then |
start_traverse(directory) |
else |
Writeln ('ERROR: Not a directory : ', directory) |
Usage('ERROR: Not a directory : ' + directory) |
else |
Writeln('ERROR: Give directory as argument'); |
Usage('ERROR: 1 argument expected'); |
end. |
/filefind/perl/filefind.pl |
---|
93,7 → 93,7 |
} |
else |
{ |
Usage ($progname, "ERROR: No directory $directory found"); |
Usage ($progname, "ERROR: Not a directory : $directory"); |
} |
} |
else |
/filefind/python/filefind.py |
---|
41,6 → 41,6 |
if os.path.isdir(directory): |
start_traverse(directory) |
else: |
Usage("ERROR: No directory " + directory + " found") |
Usage("ERROR: Not a directory : " + directory) |
else: |
Usage("ERROR: 1 argument expected") |
/filefind/ruby/filefind.rb |
---|
64,7 → 64,7 |
if File.directory?(directory) |
start_traverse(directory) |
else |
Usage progname, "ERROR: No directory #{directory} found" |
Usage progname, "ERROR: Not a directory #{directory}" |
end |
else |
Usage progname, "ERROR: 1 argument expected" |