|
a/SFormEin.def |
|
b/SFormEin.def |
|
... |
|
... |
| 17 |
PROCEDURE RdLn(VAR Ein : Stream);
|
17 |
PROCEDURE RdLn(VAR Ein : Stream);
|
| 18 |
|
18 |
|
| 19 |
(*----------------------------------------------------------------*)
|
19 |
(*----------------------------------------------------------------*)
|
| 20 |
(* Lie\3t aus der Datei 'Ein', bis das Zeilenende erreicht ist *)
|
20 |
(* Lie\3t aus der Datei 'Ein', bis das Zeilenende erreicht ist *)
|
| 21 |
(* und setzt dann die globale Variable EoL auf FALSE. *)
|
21 |
(* und setzt dann die globale Variable EoL auf FALSE. *)
|
|
|
22 |
(* *)
|
|
|
23 |
(* Read the file Ein until a line end is read and then sets the *)
|
|
|
24 |
(* global variable Streams.EoL to falsglobal variable Streams.EoL *)
|
|
|
25 |
(* to false *)
|
| 22 |
(*----------------------------------------------------------------*)
|
26 |
(*----------------------------------------------------------------*)
|
| 23 |
|
27 |
|
| 24 |
PROCEDURE RdItemF(VAR Ein : Stream;
|
28 |
PROCEDURE RdItemF(VAR Ein : Stream;
|
| 25 |
VAR Str : ARRAY OF CHAR;
|
29 |
VAR Str : ARRAY OF CHAR;
|
| 26 |
Breite : CARDINAL);
|
30 |
Breite : CARDINAL);
|
| 27 |
|
31 |
|
| 28 |
(*----------------------------------------------------------------*)
|
32 |
(*----------------------------------------------------------------*)
|
| 29 |
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
|
33 |
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
|
| 30 |
(* wobei dieser erst in der Position Breite mit 0C abge- *)
|
34 |
(* wobei dieser erst in der Position Breite mit 0C abge- *)
|
| 31 |
(* schlossen wird. *)
|
35 |
(* schlossen wird. *)
|
|
|
36 |
(* *)
|
|
|
37 |
(* Reads from file "Ein" a string "Str" of length "Breite". The *)
|
|
|
38 |
(* string will be terminated at position "Breite" with 0C. *)
|
| 32 |
(*----------------------------------------------------------------*)
|
39 |
(*----------------------------------------------------------------*)
|
| 33 |
|
40 |
|
| 34 |
PROCEDURE RdStrF(VAR Ein : Stream;
|
41 |
PROCEDURE RdStrF(VAR Ein : Stream;
|
| 35 |
VAR Str : ARRAY OF CHAR;
|
42 |
VAR Str : ARRAY OF CHAR;
|
| 36 |
Breite : CARDINAL);
|
43 |
Breite : CARDINAL);
|
| 37 |
|
44 |
|
| 38 |
(*----------------------------------------------------------------*)
|
45 |
(*----------------------------------------------------------------*)
|
| 39 |
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
|
46 |
(* Lie\3t von der Datei 'Ein' einen String der L"ange Breite, *)
|
| 40 |
(* wobei dieser beim ersten Trennzeichen mit 0C abgeschlossen *)
|
47 |
(* wobei dieser beim ersten Trennzeichen mit 0C abgeschlossen *)
|
| 41 |
(* wird. *)
|
48 |
(* wird. *)
|
|
|
49 |
(* *)
|
|
|
50 |
(* Reads from file "Ein" a string "Str" of length "Breite". The *)
|
|
|
51 |
(* string will be terminated at position "Breite" with 0C or *)
|
|
|
52 |
(* if the first termination char is read (" ", "tab", EOL, EOF) *)
|
| 42 |
(*----------------------------------------------------------------*)
|
53 |
(*----------------------------------------------------------------*)
|
| 43 |
|
54 |
|
| 44 |
PROCEDURE RdCardF(VAR Ein : Stream;
|
55 |
PROCEDURE RdCardF(VAR Ein : Stream;
|
| 45 |
VAR c : CARDINAL;
|
56 |
VAR c : CARDINAL;
|
| 46 |
Breite : CARDINAL);
|
57 |
Breite : CARDINAL);
|
| 47 |
|
58 |
|
| 48 |
(*----------------------------------------------------------------*)
|
59 |
(*----------------------------------------------------------------*)
|
| 49 |
(* Liest CARDINAL-Zahl i formatiert von der Textdatei 'Ein'. *)
|
60 |
(* Liest CARDINAL-Zahl i formatiert von der Textdatei 'Ein'. *)
|
|
|
61 |
(* Daber werden immer "Breite" Zeichern eingelesen, ganz gleich *)
|
|
|
62 |
(* wo der gesuchte Zahlstring in betrachteten Feld positioniert *)
|
|
|
63 |
(* ist. *)
|
|
|
64 |
(* *)
|
|
|
65 |
(* Reads a unsigned integer i in formatted way from file "Ein" *)
|
|
|
66 |
(* This means the procedure reads "Breite" number of char regard- *)
|
|
|
67 |
(* where the number string is actually positioned in that record *)
|
| 50 |
(*----------------------------------------------------------------*)
|
68 |
(*----------------------------------------------------------------*)
|
| 51 |
|
69 |
|
| 52 |
PROCEDURE RdLngRealF(VAR Ein : Stream;
|
70 |
PROCEDURE RdLngRealF(VAR Ein : Stream;
|
| 53 |
VAR x : LONGREAL;
|
71 |
VAR x : LONGREAL;
|
| 54 |
Breite : CARDINAL);
|
72 |
Breite : CARDINAL);
|
| 55 |
|
73 |
|
| 56 |
(*----------------------------------------------------------------*)
|
74 |
(*----------------------------------------------------------------*)
|
| 57 |
(* Liest Real-Zahl x formatiert von der Textdatei 'Ein'. *)
|
75 |
(* Liest Real-Zahl x formatiert von der Textdatei 'Ein'. *)
|
|
|
76 |
(* Dabei geleten dieselben Bemerkungen wie fuer die Prozedur *)
|
|
|
77 |
(* RdCardF *)
|
|
|
78 |
(* *)
|
|
|
79 |
(* Reads a real value form Ein in formatted way. See "RdCardF" *)
|
|
|
80 |
(* for more info. *)
|
| 58 |
(*----------------------------------------------------------------*)
|
81 |
(*----------------------------------------------------------------*)
|
| 59 |
|
82 |
|
| 60 |
PROCEDURE WrStrF(VAR Aus : Stream;
|
83 |
PROCEDURE WrStrF(VAR Aus : Stream;
|
| 61 |
Str : ARRAY OF CHAR;
|
84 |
Str : ARRAY OF CHAR;
|
| 62 |
Breite : CARDINAL;
|
85 |
Breite : CARDINAL;
|
| 63 |
Form : CARDINAL);
|
86 |
Form : CARDINAL);
|
| 64 |
|
87 |
|
| 65 |
(*----------------------------------------------------------------*)
|
88 |
(*----------------------------------------------------------------*)
|
| 66 |
(* Schreibt einen String rechtsb"undig (Form = 0) oder links- *)
|
89 |
(* Schreibt einen Zeichenkette rechtsb"undig (Form = 0) oder *)
|
| 67 |
(* b"undig (Form # 0) auf die Datei Aus. Die Breite wird dabei *)
|
90 |
(* linksb"undig (Form # 0) auf die Datei Aus. Die Breite wird *)
|
| 68 |
(* auf jeden Fall eingehalten, es werden also Leerzeichen einge- *)
|
91 |
(* dabei auf jeden Fall eingehalten, es werden also Leerzeichen *)
|
| 69 |
(* f"ugt oder der String abgeschnitten. *)
|
92 |
(* eingef"ugt oder der String abgeschnitten. *)
|
|
|
93 |
(* *)
|
|
|
94 |
(* Write a string "Str" right adjusted (Form = 0) or left *)
|
|
|
95 |
(* adjusted (Form # 0) to the stream "Aus". The field width *)
|
|
|
96 |
(* "Breite" will be used in all cased, either by truncation or *)
|
|
|
97 |
(* by padding with blanks *)
|
| 70 |
(*----------------------------------------------------------------*)
|
98 |
(*----------------------------------------------------------------*)
|
| 71 |
|
99 |
|
| 72 |
END SFormEin.
|
100 |
END SFormEin.
|