--- a/Errors.def
+++ b/Errors.def
@@ -8,12 +8,21 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: Errors.def,v 1.1 2016/02/05 10:57:22 mriedl Exp mriedl $ *)
+ (* $Id: Errors.def,v 1.3 2018/06/07 07:13:27 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);
@@ -23,12 +32,17 @@
* PROCEDURE FatalError(Fehlerflag : ARRAY OF CHAR);
*)
- (*---------------------------------------------------------*)
- (* ErrOut : Schreibt Fehlerflag auf den Bildschirm. *)
- (* FatalError : Abbruchfehler, schreibt Fehlerflag auf den *)
- (* Bildschirm und schlie\3t nach M"oglichkeit *)
- (* alle EA-Kan"ale. *)
- (*---------------------------------------------------------*)
+ (*----------------------------------------------------------------*)
+ (* 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 *)
@@ -36,11 +50,19 @@
(*----------------------------------------------------------------*)
(* 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. *)
+ (*----------------------------------------------------------------*)
+ (* 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);
@@ -53,15 +75,33 @@
(*---------------------------------------------------------------*)
(* 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 FORTRAN - PAUSE - Anweisung. Nur zu Testzwecken ver- *)
- (* wenden ! *)
+ (*---------------------------------------------------------------*)
+ (* 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.