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.