DIRECTORY
Rope USING [ROPE],
IO USING [STREAM];

Archives: CEDAR DEFINITIONS
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;

Handle: TYPE = REF HandleRecord;

OpenDirectory: PROC [directory: ROPE м NIL, msg: STREAM м NIL] RETURNS [h: Handle];

CloseDirectory: PROC [h: Handle];

ArchiveConsumer: TYPE ~ PROC[ line: ROPE ] RETURNS [ continue: BOOL м TRUE ];

EnumerateDirectory: PROC [h: Handle, pattern: ROPE, consumer: ArchiveConsumer];

Parameters: TYPE = REF ParametersRecord;
ParametersRecord: TYPE = RECORD [fileName: ROPE м NIL];

GetParameters: PROC RETURNS [Parameters];

HandleRecord: PRIVATE TYPE = RECORD [
fileName: ROPE,
msg: STREAM,
lastSegCount: CARD,
nSegments: CARD,
starts: Starts,
compressedInput: STREAM
] м [NIL, NIL, 0, 0, NIL, NIL];

Starts: PRIVATE TYPE ~ REF StartSequence;
StartSequence: PRIVATE TYPE ~ RECORD [
SEQUENCE len: CARD OF StartRecord
];
StartRecord: PRIVATE TYPE ~ RECORD [
keyPos, segPos: CARD,
key: ROPE
];


END.
     
Archives.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Chauser, December 3, 1990 2:06 pm PST

Opening is unreasonably expensive; if possible, use a single handle for many operations.
The line returned consists of: the file name, the file date, information about where in the archives the file is stored, and the file state (which should always be "completed").  The fields are separated by '\t (tab) characters.
Enumerate files matching pattern, passing the line for each to the consumer.
The filename is taken from the user profile entry "Archives.DirectoryName" if any, otherwise defaults to a value given in the implementation. 
Tells various information about why Archives behave as they do.  Currently, just tells which file is being used as the directory.
 Э╩  Ц"cedarcode" styleХNewlineDelimiter
Щ ЩJЪЬ
╧eЬ7ЩBJЩ%JЩ ЧcodeЪ╧k	Ш	KЪЬЮЬЮЬШKЪЮЬЮЬЮЬШЧKШ KЪ╨lnЬЮЬЮШЪЬЮШKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШKШ KЪЬЮЬЮЬШ KШ Ъ╧nЬЮЬЮЬЮЬЮЬЮЬЮЬШSKЩXЧKШ KЪаЬЮЬШ!KШ ЪЬЮЬЮЬЮЬЮЬЮЬЮЬШMKЩфЧKШ ЪаЬЮЬЮЬШOKЩLЧKШ KЪЬЮЬЮЬШ(Ъ	ЬЮЬЮЬЮЬЮЬШ7KЪЬОЩОЧKШ ЪаЬЮЬЮЬШ)KЩБЧKШ ЪЬЮЬЮЬЮЬШ%KЪЬ
ЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKШKЪЬЮШKЪ	ЬЮЬЮЬЮЬЮЬШKШ ЧKЪЬЮЬЮЬШ)ЪЬЮЬЮЬШ&KЪЮЬЮЬЮЬШ!KЪЬШЧЪЬЮЬЮЬШ$KЪЬЮЬШKЪЬЮШ	KЪЬШЧKШ KШ ЧKШ KЪЮЬШЧ ЕЧ    ╚  	c  