ErrorTable.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, 23-Oct-81 14:25:08
Russ Atkinson (RRA) March 6, 1985 10:11:42 pm PST
Satterthwaite December 23, 1985 12:26:09 pm PST
DIRECTORY
Log: TYPE USING [ErrorCode],
Tree: TYPE USING [NodeName];
ErrorTable: DEFINITIONS = {
CSRptr: TYPE = LONG BASE POINTER TO CompStrRecord;
CompStrDesc: TYPE = RECORD[offset, length: CARDINAL];
CompStrRecord: TYPE = RECORD[
stringOffset: CSRptr RELATIVE POINTER TO StringBody,
OpName: ARRAY Tree.NodeName[$assignx..$uparrow] OF CompStrDesc,
FnName: ARRAY Tree.NodeName[$min..$new] OF CompStrDesc,
ApplName: ARRAY Tree.NodeName[$apply..$joinx] OF CompStrDesc,
FApplName: ARRAY Tree.NodeName[$restart..$broadcast] OF CompStrDesc,
ErrorMessages: ARRAY Log.ErrorCode OF CompStrDesc];
}.