(**********************************************************************

    :Program.    Errors.def
    :Contents.   Get errors from *.mode or *.defe-Files
    :Author.     Steffen Reith
    :Address.    Hessenstr. 64, D-8700 Wuerzburg
    :Phone.      None
    :Copyright.  Shareware
    :Language.   Modula-2
    :Translator. M2Amiga A+L V3.2d
    :Imports.    None
    :History.    V1.0  10.June 1990

**********************************************************************)
DEFINITION MODULE Errors;

CONST MaxError=5;

TYPE ErrorFeld=ARRAY [1..5] OF CARDINAL;


PROCEDURE ExistErrorFile(VAR Name:ARRAY OF CHAR):BOOLEAN;
(*:Input.      Name of an errorfile
  :Result.     TRUE if exists
*)

PROCEDURE OpenErrorFile(VAR Name:ARRAY OF CHAR);
(*:Input.      Name of an Errorfile
  :Semantic.   Open an errorfile for reading errornumbers
  :Note.       Check Name with ExistErrorFile
*)

PROCEDURE NextError(VAR SourcePos:LONGCARD; VAR ErrorNums:ErrorFeld);
(*:Output.    SourcePos of the error in sourcefile in Bytes from beginning
  :Output.    ErrorNums is an ARRAY of errorcodes
*)

PROCEDURE CloseErrorFile();
(* Semantic.  Close ErrorFile after use
*)

END Errors.