BcdErrorDefs.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Satterthwaite on February 27, 1986 12:13:33 pm PST
Lewis on 27-Mar-81 9:53:21
Maxwell, August 4, 1983 9:29 am
Russ Atkinson (RRA) March 7, 1985 0:05:16 am PST
DIRECTORY
BcdDefs: TYPE USING [FTIndex, MTIndex, NameRecord, NameString, VersionStamp],
ConvertUnsafe: TYPE USING [SubString],
Symbols: TYPE USING [HTIndex, STIndex];
BcdErrorDefs: DEFINITIONS = {
OPEN Symbols, BcdDefs;
ErrorClass: TYPE~{error, warning};
InterfaceId: TYPE~RECORD[name: NameRecord, fti: FTIndex];
GetModule: SIGNAL RETURNS[errorMti: MTIndex, linkOffset: CARDINAL];
GetSti: SIGNAL RETURNS[errorSti: STIndex];
Error: PROC[class: ErrorClass, s: STRING];
ErrorSti: PROC[class: ErrorClass, s: STRING, sti: STIndex];
ErrorHti: PROC[class: ErrorClass, s: STRING, hti: HTIndex];
ErrorName: PROC[class: ErrorClass, s: STRING, name: NameRecord];
ErrorItem: PROC[class: ErrorClass, s: STRING, export: InterfaceId, ep: CARDINAL];
ErrorModule: PROC[class: ErrorClass, s: STRING, mti: MTIndex];
ErrorFile: PROC[class: ErrorClass, s: STRING, fti: FTIndex];
Error2Files: PROC[class: ErrorClass, s: STRING, ft1, ft2: FTIndex];
ErrorInterface: PROC[class: ErrorClass, s: STRING, import: InterfaceId, ep: CARDINAL];
ErrorNameBase: PROC[
class: ErrorClass, s: STRING, name: NameRecord, base: BcdDefs.NameString];
Error2Versions: PROC[class: ErrorClass, fileName: NameRecord, v1, v2: VersionStamp];
exported by BcdSymbolPack
ImportItemName: PRIVATE PROC[
import: InterfaceId, ep: CARDINAL,
clientMti: MTIndex, linkOffset: CARDINAL,
userProc: PROC[ConvertUnsafe.SubString]];
ExportItemName: PRIVATE PROC[
export: InterfaceId, ep: CARDINAL,
userProc: PROC[ConvertUnsafe.SubString]];
Initialize, Finalize: PROC;
}.