d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

latest changes to PascalIO: Reset and Rewrite have their parameters switched

Browse source
This commit is contained in:
ceriel 1987-07-08 16:37:23 +00:00
parent 9d66bc3258
commit 74ea5e0bd7
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/m2/libm2/PascalIO.def
View file

@ -16,14 +16,14 @@ DEFINITION MODULE PascalIO;
*)
VAR Notext: Text; (* Initialize your Text variables with this *)
PROCEDURE Reset(Filename: ARRAY OF CHAR; VAR InputText: Text);
PROCEDURE Reset(VAR InputText: Text; Filename: ARRAY OF CHAR);
(* When InputText indicates an open textfile, it is first flushed
and closed. Then, the file indicated by "Filename" is opened for reading.
If this fails, a runtime error results. Otherwise, InputText is
associated with the new input file.
*)
PROCEDURE Rewrite(Filename: ARRAY OF CHAR; VAR OutputText: Text);
PROCEDURE Rewrite(VAR OutputText: Text; Filename: ARRAY OF CHAR);
(* When OutputText indicates an open textfile, it is first flushed
and closed. Then, the file indicated by "Filename" is opened for writing.
If this fails, a runtime error results. Otherwise, OutputText is

4
lang/m2/libm2/PascalIO.mod
View file

@ -30,7 +30,7 @@ IMPLEMENTATION MODULE PascalIO;
VAR ibuf, obuf: IOBuf;
head: Text;
PROCEDURE Reset(Filename: ARRAY OF CHAR; VAR InputText: Text);
PROCEDURE Reset(VAR InputText: Text; Filename: ARRAY OF CHAR);
BEGIN
doclose(InputText);
getstruct(InputText);
@ -48,7 +48,7 @@ IMPLEMENTATION MODULE PascalIO;
END;
END Reset;
PROCEDURE Rewrite(Filename: ARRAY OF CHAR; VAR OutputText: Text);
PROCEDURE Rewrite(VAR OutputText: Text; Filename: ARRAY OF CHAR);
BEGIN
doclose(OutputText);
getstruct(OutputText);