TurboModula2/src/compiler/ERRORS.DEF

(* Renamed for readability. Semantics unchanged. Original identifiers: see docs/compiler/ + src/compiler/RENAME-MAP.md. *)
DEFINITION MODULE ERRORS;
FROM SYSTEM IMPORT ADDRESS, WORD;
FROM Compiler IMPORT CompilerImport;
FROM Scanner  IMPORT Ext, Buf;
FROM Files    IMPORT FILE;
FROM ComLine  IMPORT inName;
FROM Texts    IMPORT TEXT;
FROM Terminal IMPORT WriteChar;
FROM Loader   IMPORT Call;
FROM Editor   IMPORT editPosition;
FROM SymTab   IMPORT T1;

TYPE BufPtr = POINTER TO Buf;
VAR
    savedEditPos: CARDINAL;
    opCharTable: POINTER TO ARRAY[0..2] OF CHAR;
    doSymtabRollback: BOOLEAN;

PROCEDURE ReportError(code: CARDINAL);
PROCEDURE ReportErrorWithText(code: CARDINAL; VAR msg: ARRAY OF CHAR);
PROCEDURE AskContinue(info: ADDRESS);
PROCEDURE WriteString(msg: ARRAY OF CHAR);
PROCEDURE FindFileOnDrives(VAR file: FILE; VAR name: ARRAY OF CHAR; ext: Ext);
PROCEDURE WriteKindName(kind: CARDINAL);
PROCEDURE WriteFoundToken;
PROCEDURE ShowErrorPosition(mode: CHAR);
PROCEDURE AskEditOrQuit;
PROCEDURE PrintOverlayMessage(code: CARDINAL; VAR msg: ARRAY OF CHAR);
PROCEDURE RollbackToMark;
PROCEDURE FatalError(msg: ARRAY OF CHAR);
PROCEDURE ReportAssignMismatch(dst, src: T1; ctx: ADDRESS);
PROCEDURE ReportTypeMismatch(want: BITSET; got: ADDRESS; ctx: CARDINAL);
PROCEDURE ReportIncompatibleTypes(t1, t2: T1; op: ARRAY OF CHAR);
PROCEDURE ReportExpectedSet(valid: BITSET; base: INTEGER);
PROCEDURE DoError(choice: CHAR); (* choice: user choice E(dit)/Q(uit) *)

END ERRORS.