<<>>
<<PFSTest.mesa>>
    <<Carl Hauser, June 8, 1989 4:08:57 pm PDT>>
<<>>
    <<>>
    DIRECTORY
        BasicTime,
        FS,
        PFS,
        PFSNames,
        Rope,
        PFSCanonicalNames;

    PFSTest: CEDAR PROGRAM
    IMPORTS BasicTime, PFS, FS, PFSCanonicalNames
    ~ BEGIN

        PFSEnum: PROC [ path: Rope.ROPE, lbound: Rope.ROPE _ NIL, hbound: Rope.ROPE _ NIL ] RETURNS [files: CARD _ 0, secs: CARD] ~ {
            eachName: PFS.NameProc ~ { files _ files+1; };
            start: BasicTime.GMT _ BasicTime.Now[];
            PFS.EnumerateForNames[ PFSCanonicalNames.ParseName[path], eachName, PFSCanonicalNames.ParseName[lbound], 
            PFSCanonicalNames.ParseName[hbound] ];
            secs _ BasicTime.Period[start, BasicTime.Now[]];
            };

        FSEnum: PROC [ path: Rope.ROPE ] RETURNS [files: CARD _ 0, secs: CARD] ~ {
            eachName: FS.NameProc ~ { files _ files+1; RETURN[TRUE] };
            start: BasicTime.GMT _ BasicTime.Now[];
            FS.EnumerateForNames[ path, eachName ];
            secs _ BasicTime.Period[start, BasicTime.Now[]];
            };

        PFSInfoEnum: PROC [ path: Rope.ROPE, lbound: Rope.ROPE _ NIL, hbound: Rope.ROPE _ NIL ] RETURNS [files: CARD _ 0, secs: CARD, 
        totalBytes: CARD _ 0] ~ {
            eachName: PFS.InfoProc ~ { files _ files+1; totalBytes _ totalBytes + bytes };
            start: BasicTime.GMT _ BasicTime.Now[];
            PFS.EnumerateForInfo[ PFSCanonicalNames.ParseName[path], eachName, PFSCanonicalNames.ParseName[lbound], 
            PFSCanonicalNames.ParseName[hbound] ];
            secs _ BasicTime.Period[start, BasicTime.Now[]];
            };

        FSInfoEnum: PROC [ path: Rope.ROPE ] RETURNS [files: CARD _ 0, secs: CARD, totalBytes: CARD _ 0] ~ {
            eachName: FS.InfoProc ~ { files _ files+1; totalBytes _ totalBytes + bytes; RETURN[TRUE] };
            start: BasicTime.GMT _ BasicTime.Now[];
            FS.EnumerateForInfo[ path, eachName ];
            secs _ BasicTime.Period[start, BasicTime.Now[]];
            };

    END.