--- a/SIO.def
+++ b/SIO.def
@@ -40,11 +40,12 @@
(*----------------------------------------------------------------*)
(* Liest den CHAR chr von der Textdatei 'Datei'. *)
(* Die Kombination cr,lf wird als Eol wiedergegeben (DOS,Windows, *)
- (* OS/2). Am Dateiende wird sub = 32C = CHR(26) zur"uckgegeben *)
- (* und Datei.res = notdone gesetzt). *)
- (* *)
- (* Reads character "chr" from stream "Datei". In case of EOF *)
- (* char "ASCII.sub" will be returned and Datei.res set to notdone *)
+ (* OS/2). Am Dateiende wird CommonIO.EoF zur"uckgegeben und *)
+ (* fuer das "nicht-ISO" Modell Datei.res = notdone gesetzt. *)
+ (* *)
+ (* Reads character "chr" from stream "Datei". In case end of line *)
+ (* is reached CommonIO.EoL, in case the end of the file is *)
+ (* reached CommonIO.EoF will be returned. *)
(*----------------------------------------------------------------*)
PROCEDURE WrChar(VAR Datei : Stream;
@@ -156,7 +157,7 @@
(* Im Fehlerfalle wird MAX(CARDINAL) zur"uckgegeben und *)
(* Datei.res = notdone gesetzt. *)
(* *)
- (* Reads real value "C" form "Datei". In case of an error *)
+ (* Reads cardinal value "c" form "Datei". In case of an error *)
(* MAX(CARDINAL) is returned and Datei.res will be set to notdone *)
(*----------------------------------------------------------------*)
@@ -184,6 +185,7 @@
(* und Datei.res = notdone gesetzt. *)
(* *)
(* Reads "c" from "Datei" in hexadecimal representation *)
+ (* In case of an error MAX(CARDINAL) is returend. *)
(*----------------------------------------------------------------*)
PROCEDURE WrHex(VAR Datei : Stream;
@@ -197,6 +199,7 @@
(* wird Feldbreite auf die Mindestanzahl von Zeichen erweitert ! *)
(* *)
(* Writes "c" to "Datei" in hexadecimal representation *)
+ (* If n is choosen too small the field will be expanded ! *)
(*----------------------------------------------------------------*)
PROCEDURE WrBits(VAR Datei : Stream;
@@ -205,11 +208,18 @@
(*----------------------------------------------------------------*)
(* Schreibt die ersten nbits BITS der CARDINAL-Zahl c in die *)
- (* Textdate "Datei". *)
- (* Falls die Feldbreite zu klein zur Darstellung der Zahl c ist, *)
- (* wird Feldbreite auf die Mindestanzahl von Zeichen erweitert ! *)
- (* *)
- (* Writes the first nbits bit of "c" to "Datei" *)
+ (* Textdate "Datei". Das hoechstwertigste Bit wird dabei zuerst *)
+ (* ausgegeben. Falls die Feldbreite zu klein zur Darstellung der *)
+ (* Zahl c ist, wird Feldbreite auf die Mindestanzahl von Zeichen *)
+ (* erweitert ! *)
+ (* *)
+ (* Beispiel: c = 13, nbits = 5 , Ausgabe ist "01101" *)
+ (* *)
+ (* Writes the first nbits bit of "c" to "Datei". The bit with *)
+ (* highst value is printed first. If nbits is choosen too small *)
+ (* the field will be expanded ! *)
+ (* *)
+ (* example : c = 13, nbits = 5 , output is "10110" *)
(*----------------------------------------------------------------*)
PROCEDURE RdLngCard(VAR Datei : Stream;
@@ -233,9 +243,9 @@
(* Falls die Feldbreite zu klein zur Darstellung der Zahl C ist, *)
(* wird Feldbreite auf die Mindestanzahl von Zeichen erweitert ! *)
(* *)
- (* Write value "C" to file "Datei" with a field width of "n". *)
+ (* Write value "C" to stream "Datei" with a field width of "n". *)
(* If n is choosen too small it will be expanded to the mininal *)
- (* value needed to represent c. *)
+ (* value needed to represent C. *)
(*----------------------------------------------------------------*)
PROCEDURE RdInt(VAR Datei : Stream;
@@ -293,6 +303,8 @@
(* *)
(* Reads real value "x" form "Datei". In case of an error *)
(* MAX(LONGREAL) is returned and Datei.res set to "notdone" *)
+ (* For the syntax of a value x please refer to *)
+ (* RealConvert.StringToReal *)
(*----------------------------------------------------------------*)
PROCEDURE WrLngReal(VAR Datei : Stream;