Subversion Repositories svn.Prod repos

// ============================================================================
// Create
// name  : Andre Rikkert de Koe          date:   Mar 2018
// descr : filefind
//         This is a demo of programming in the Pascal language.
//         Its part of a project to implement a program to create a directory
//         tree similar to the output of the Unix find program.
// EUID  : Any user who has read access to all the files being searched for.
// run   : interactive
//
// Changes
// name  :                               date:
// descr : short description
//
// ============================================================================

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;
        pfile : string;
begin
        curdir1 := GetCurrentDir;
        chdir(directory);
        curdir2 := GetCurrentDir;
        FindFirst(directory + '/*', faAnyFile or faHidden, Info);
        repeat
                if ((Info.name <> '..') and (Info.name <> '.'))
                then
                        begin
                        pfile := curdir2 + '/' + Info.name;
                        Writeln(pfile);
                        if (DirectoryExists(pfile))
                        then
                                traverse(pfile)
                        end
        until FindNext(Info) <> 0;
        chdir(curdir1);
end;

procedure start_traverse(directory : string);
begin
        Writeln(directory);
        traverse(directory);
end;

// ============================================================================
// Main
// ============================================================================

begin
        progname := ParamStr(0);
        directory := ParamStr(1);
        if (ParamCount = 1)
        then
                if DirectoryExists(directory)
                then
                        start_traverse(directory)
                else
                        Usage('ERROR: Not a directory : ' + directory)
        else
                Usage('ERROR: 1 argument expected');
end.