DirectoryList.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Michael Plass, January 2, 1986 4:52:13 pm PST
DIRECTORY Rope USING [ROPE];
DirectoryList: CEDAR DEFINITIONS
~ BEGIN OPEN Rope;
GetNextDirectory: PROC [path: ROPE, sub: BOOL ← FALSE] RETURNS [ROPE];
Path must be a prefix ending with ">" of a local full FName in brackets syntax.
Returns next sibling path if sub = FALSE
Returns first child path if sub = FALSE
Returns NIL if none such exists.
RemoveSubDir: PROC [path: ROPE] RETURNS [ROPE];
Removes one level of subdirectory, assuming bracket notation.
GetNext: PROC [path: ROPE, levelClip: NAT ← NAT.LAST] RETURNS [ROPE];
Path must be a prefix ending with ">" of a local full FName in brackets syntax.
Gets the next path in sequence that has no more than levelClip subdirectories.
Returns NIL if none such exists on the logical volume.
END.