-- BcdErrorDefs.mesa -- Last edited by Satterthwaite on June 15, 1982 9:05 am -- Last edited by Lewis on 27-Mar-81 9:53:21 DIRECTORY BcdDefs: TYPE USING [FTIndex, MTIndex, NameRecord, VersionStamp], BcdOps: TYPE USING [NameString], Symbols: TYPE USING [HTIndex, STIndex], Strings: TYPE USING [SubString]; 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: BcdOps.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 [Strings.SubString]]; ExportItemName: PRIVATE PROC [ export: InterfaceId, ep: CARDINAL, userProc: PROC [Strings.SubString]]; Initialize, Finalize: PROC; }.