MoreFileSets.Mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Last Edited by: Spreitzer, February 11, 1986 12:34:23 pm PST
DIRECTORY BasicTime, DFUtilities, FileSets, IO, RedBlackTree, Rope, TextReplace, ViewerClasses;
MoreFileSets: CEDAR DEFINITIONS = {OPEN FileSets;
Filters:
IsArchived: PROC [--caches current BTree--] RETURNS [Filter];
Primitive Enumerations:
FromArchiveMsg: PROC [date: GMT, which: ArchiveWhich, ids: IdentificationScheme ← []] RETURNS [fs: FileSet];
EnumArchiveMsg: PROC [date: GMT, to: FileConsumer, which: ArchiveWhich, ids: IdentificationScheme ← []];
ArchiveWhich: TYPE = {archive, online};
FromArchivist: PROC [pattern: ROPE, created: GMT ← noGMT, ids: IdentificationScheme ← []] RETURNS [fs: FileSet];
Pattern must be in [Server]<Directory>... format, not slashy format.
EnumArchivist: PROC [pattern: ROPE, to: FileConsumer, created: GMT ← noGMT, ids: IdentificationScheme ← []];
Pattern must be in [Server]<Directory>... format, not slashy format.
}.