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

    :Program.    ErrorMsg.def
    :Contents.   Read all errormessages from M2:Fehlermeldungen
    :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  14.June 1990
    :History.    V1.1  24.June 1990 ( Better Memory Usage )

**********************************************************************)

DEFINITION MODULE ErrorMsg;

CONST len=80; (* Mehr schafft der CED im Titlebar sowieso nicht *)

TYPE String=ARRAY[0..len] OF CHAR;
     NodePtr; (* Opaquer Typ *)


PROCEDURE KillList  (Root:NodePtr);
(*:Input.     A variable get from ReadList
  :Semantic.  Release all memory allocated by ReadList
*)

PROCEDURE ReadList  (VAR Root:NodePtr);
(*:Input.     A NIL-pointer
  :Semantic.  Reads all errormessages into a list
  :Note.      Must be done before using NextEntry&FindMsg 
*)

PROCEDURE FindMsg   (Root:NodePtr;Nummer:CARDINAL;VAR Msg:String);
(*:Input.    A pointer to a list get from ReadList
  :Input.    An errornumber
  :Output.   The text of the error
*)

END ErrorMsg.