--File ParserErrorDefs.mesa
--November 29, 1979 3:18 PM

ParserErrorDefs: DEFINITIONS =

BEGIN

ErrorType: TYPE = {Fatal, FatalSyntax, FatalSemantic, FatalInternal, Advisory, Other};

ParserAbort: ERROR;-- used to signal a fatal internal error

InitError: PROCEDURE RETURNS [BOOLEAN];
FinishError: PROCEDURE RETURNS [BOOLEAN];

Report: PROCEDURE [message: STRING, error: ErrorType];
ErrorSummary: PROCEDURE RETURNS [ARRAY ErrorType[FIRST[ErrorType]..LAST[ErrorType]] OF CARDINAL];

END.