--- a/SFormEin.def
+++ b/SFormEin.def
@@ -19,6 +19,10 @@
(*----------------------------------------------------------------*)
(* Lie\3t aus der Datei 'Ein', bis das Zeilenende erreicht ist *)
(* und setzt dann die globale Variable EoL auf FALSE. *)
+ (* *)
+ (* Read the file Ein until a line end is read and then sets the *)
+ (* global variable Streams.EoL to falsglobal variable Streams.EoL *)
+ (* to false *)
(*----------------------------------------------------------------*)
PROCEDURE RdItemF(VAR Ein : Stream;
@@ -29,6 +33,9 @@
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
(* wobei dieser erst in der Position Breite mit 0C abge- *)
(* schlossen wird. *)
+ (* *)
+ (* Reads from file "Ein" a string "Str" of length "Breite". The *)
+ (* string will be terminated at position "Breite" with 0C. *)
(*----------------------------------------------------------------*)
PROCEDURE RdStrF(VAR Ein : Stream;
@@ -39,6 +46,10 @@
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
(* wobei dieser beim ersten Trennzeichen mit 0C abgeschlossen *)
(* wird. *)
+ (* *)
+ (* Reads from file "Ein" a string "Str" of length "Breite". The *)
+ (* string will be terminated at position "Breite" with 0C or *)
+ (* if the first termination char is read (" ", "tab", EOL, EOF) *)
(*----------------------------------------------------------------*)
PROCEDURE RdCardF(VAR Ein : Stream;
@@ -47,6 +58,13 @@
(*----------------------------------------------------------------*)
(* Liest CARDINAL-Zahl i formatiert von der Textdatei 'Ein'. *)
+ (* Daber werden immer "Breite" Zeichern eingelesen, ganz gleich *)
+ (* wo der gesuchte Zahlstring in betrachteten Feld positioniert *)
+ (* ist. *)
+ (* *)
+ (* Reads a unsigned integer i in formatted way from file "Ein" *)
+ (* This means the procedure reads "Breite" number of char regard- *)
+ (* where the number string is actually positioned in that record *)
(*----------------------------------------------------------------*)
PROCEDURE RdLngRealF(VAR Ein : Stream;
@@ -55,6 +73,11 @@
(*----------------------------------------------------------------*)
(* Liest Real-Zahl x formatiert von der Textdatei 'Ein'. *)
+ (* Dabei geleten dieselben Bemerkungen wie fuer die Prozedur *)
+ (* RdCardF *)
+ (* *)
+ (* Reads a real value form Ein in formatted way. See "RdCardF" *)
+ (* for more info. *)
(*----------------------------------------------------------------*)
PROCEDURE WrStrF(VAR Aus : Stream;
@@ -63,10 +86,15 @@
Form : CARDINAL);
(*----------------------------------------------------------------*)
- (* Schreibt einen String rechtsb"undig (Form = 0) oder links- *)
- (* b"undig (Form # 0) auf die Datei Aus. Die Breite wird dabei *)
- (* auf jeden Fall eingehalten, es werden also Leerzeichen einge- *)
- (* f"ugt oder der String abgeschnitten. *)
+ (* Schreibt einen Zeichenkette rechtsb"undig (Form = 0) oder *)
+ (* linksb"undig (Form # 0) auf die Datei Aus. Die Breite wird *)
+ (* dabei auf jeden Fall eingehalten, es werden also Leerzeichen *)
+ (* eingef"ugt oder der String abgeschnitten. *)
+ (* *)
+ (* Write a string "Str" right adjusted (Form = 0) or left *)
+ (* adjusted (Form # 0) to the stream "Aus". The field width *)
+ (* "Breite" will be used in all cased, either by truncation or *)
+ (* by padding with blanks *)
(*----------------------------------------------------------------*)
END SFormEin.