-- 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;

  }.