-- BcdErrorDefs.mesa
-- Last edited by Satterthwaite on November 23, 1982 9:46 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;

}.