Fetch1.cr
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) March 21, 1987 5:49:17 pm PST
Fetch:
PROGRAM 70
VERSION 1 =
BEGIN
FileNotFound: ERROR = 0;
BadResults: ERROR = 1;
BadParameters: ERROR = 2;
InternalError: ERROR = 3;
ServerGoingAway: ERROR = 4;
ServerNotFound: ERROR = 5;
CourierError: ERROR = 6;
BadHandle: ERROR = 7;
VersionMismatch: ERROR = 8;
NilHeap: ERROR = 9;
CantOpenLogFile: ERROR = 10;
Warning: ERROR = 11;
BadFileName: ERROR = 12;
BadRelease: ERROR = 13;
ErrorType: TYPE = { fileNotFound(0), badResults(1), badParameters(2), internalError(3), serverGoingAway(4), serverNotFound(5), courierError(6), badHandle(7), versionMismatch(8), nilHeap(9), cantOpenLogFile(10), warning(11), badFileName(12), badRelease(13) };
Predicate:
PROCEDURE [ release:
STRING ]
RETURNS [ respond: BOOLEAN ] = 0;
Find:
PROCEDURE [ file:
STRING, release:
STRING, getDFName:
BOOLEAN, getFilePath:
BOOLEAN, getCreateDate:
BOOLEAN ]
RETURNS [ dfName: STRING, filePath: STRING, createDate: STRING, nMatches: CARDINAL ]
REPORTS [ FileNotFound, BadResults, BadParameters, InternalError, ServerGoingAway, ServerNotFound, CourierError, BadHandle, VersionMismatch, NilHeap, CantOpenLogFile, Warning, BadFileName, BadRelease] = 1;
END.