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.   @  PFSTest.mesaCarl Hauser, June 8, 1989 4:08:57 pm PDT ‌ت»  ™ ڑœ™Icode™(—J™ K™ ڑدk	ک	Kک
KکKکKک	KکKکKک —Kڑذlnœ‌کKڑ‌œ&ک-ڑœ‌کKک ڑدnœ‌œ‌œ‌œ‌œ‌œ‌œ‌œ	‌œ‌œک}Kڑœ
‌œ!ک.Kک'Kڑ‌œŒکڈKک0KکKک —ڑںœ‌œ‌œ‌œ	‌œ‌œکJKڑœ
‌œ‌œ‌œک:Kک'Kڑ‌œ%ک'Kک0KڑœکKک —ڑںœ‌œ‌œ‌œ‌œ‌œ‌œ‌œ	‌œ‌œ‌œ	ک—Kڑœ
‌œAکNKک'Kڑ‌œ‹کژKک0KکKک —ڑں
œ‌œ‌œ‌œ	‌œ‌œ‌œ	کdKڑ	œ
‌œ‌œ‌œ‌œک[Kک'Kڑ‌œ$ک&Kک0Kڑœک——Kک Kڑ‌œک— …—    R  M  