DEFINITION MODULE Errors;
(*------------------------------------------------------------------------*)
(* Fehlerbehandlungsmodul *)
(* Module for error messages *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: Errors.def,v 1.4 2018/06/08 21:38:43 mriedl Exp mriedl $ *)
FROM Deklera IMPORT Locale;
VAR Fehlerflag : ARRAY [0..255] OF CHAR; (* Fehlermeldungen *)
Fehler : BOOLEAN;
(*-------------------------------------------------------------------*)
(* Fehlerflag und Fehler werden in vielen Modulen als quasi globale *)
(* Variablen importiert um Fehler anzuzeigen. *)
(* *)
(* "Fehlerflag" (shortcute for german "Fehlerflagge" is an error *)
(* message and "Fehler" (engl. "error") an error indicator used in a *)
(* lot of modules. *)
(*-------------------------------------------------------------------*)
ErrOut : PROCEDURE(ARRAY OF CHAR);
FatalError : PROCEDURE(ARRAY OF CHAR);
(*
* PROCEDURE ErrOut (Fehlerflag : ARRAY OF CHAR);
* PROCEDURE FatalError(Fehlerflag : ARRAY OF CHAR);
*)
(*----------------------------------------------------------------*)
(* ErrOut : Schreibt Fehlerflag auf den Standardfehlerkanal *)
(* FatalError : Abbruchfehler, schreibt Fehlerflag auf den *)
(* Standardfehlerkanal und schlie\3t nach M"oglich- *)
(* keit alle EA-Kan"ale. *)
(* *)
(* ErrOur : Writes a error flag to the standard error channel *)
(* FatalError : Writes a error flag to the standard error channel *)
(* and terminates the program. Open IO channels are *)
(* closed if possible *)
(*----------------------------------------------------------------*)
VAR Lang : Locale; (* Einstellung der Sprache *)
PROCEDURE SetLang(locale : ARRAY OF CHAR);
(*----------------------------------------------------------------*)
(* Setze die Sprache der Fehlermeldung ("DE","EN","FR") *)
(* *)
(* Set the language for warnings and errors (incomplete). *)
(*----------------------------------------------------------------*)
(*----------------------------------------------------------------*)
(* Die folgenden Routinen sind prim"ar zum Debuggen, sie greifen *)
(* NICHT auf andere Bibilioteksroutien zur"uck. Zudem koennen sie *)
(* fuer detailiertere Fehlermeldungen genutzt werden. *)
(* *)
(* The following simple write functions can be used to create *)
(* more detailed error messages or can be used for debugging *)
(* purpose, they do not depend on higher level modules *)
(*----------------------------------------------------------------*)
PROCEDURE WriteChar(chr : CHAR);
PROCEDURE WriteString(Str : ARRAY OF CHAR);
PROCEDURE WriteLn();
PROCEDURE WriteLongCard(c : LONGCARD);
PROCEDURE WriteCard(c : CARDINAL);
PROCEDURE WriteInt(i : INTEGER);
PROCEDURE WriteReal(x : LONGREAL);
(*---------------------------------------------------------------*)
(* Sehr einfache Ausgaberoutine, fast immer mit Exponent, ca. *)
(* 15 Ziffern wenn noetig *)
(* *)
(* Very simple output routine, nearly always with exponent, ca. *)
(* 15 digits if necessary *)
(*---------------------------------------------------------------*)
PROCEDURE WriteBoolean(b : BOOLEAN);
(*---------------------------------------------------------------*)
(* Schreib den logischen Wert b als "WAHR" ode "FALSCH" auf den *)
(* Standardfehlerkanal. *)
(* *)
(* Writs the boolean value b as "TRUE" or "FALSE" to the *)
(* standard error channel. *)
(*---------------------------------------------------------------*)
PROCEDURE Pause(i : CARDINAL);
(*---------------------------------------------------------------*)
(* Schreibt die Meldung "Pause - i" auf den Bildschirm und *)
(* wartet dann auf einen beliebigen Tastendruck, "ahnliche der *)
(* der FORTRAN 77 - PAUSE - Anweisung. Nur zu Testzwecken ver- *)
(* wenden ! *)
(* *)
(* Writes the message "Pause - i" on the screen and then waits *)
(* for a keystroke. This routine is similar to the (obsolete) *)
(* FORTRAN 77 PAUSE instruction. Should only be used for test *)
(* and debugging purpose. *)
(*---------------------------------------------------------------*)
END Errors.