FetchP70V1AuxImpl.Mesa
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at March 21, 1987 5:49:24 pm PST
using Sirocco [2.0] of January 31, 1987 1:52:42 am PST
DIRECTORY
Convert,
Rope,
FetchP70V1,
FetchP70V1Aux;
FetchP70V1AuxImpl: CEDAR PROGRAM
IMPORTS Convert, Rope
EXPORTS FetchP70V1Aux ~ {
OPEN FetchP70V1, FetchP70V1Aux;
ROPE: TYPE ~ Rope.ROPE;
ExposeErrorType: PUBLIC PROC [arg: ErrorType, level: NAT] RETURNS [res: ROPE] ~ {
SELECT arg FROM
fileNotFound => res ← "fileNotFound";
badResults => res ← "badResults";
badParameters => res ← "badParameters";
internalError => res ← "internalError";
serverGoingAway => res ← "serverGoingAway";
serverNotFound => res ← "serverNotFound";
courierError => res ← "courierError";
badHandle => res ← "badHandle";
versionMismatch => res ← "versionMismatch";
nilHeap => res ← "nilHeap";
cantOpenLogFile => res ← "cantOpenLogFile";
warning => res ← "warning";
badFileName => res ← "badFileName";
badRelease => res ← "badRelease";
ENDCASE => ERROR
};
}...