godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions 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 537e64cf31
commit 2632711272
2 changed files with 4 additions and 4 deletions
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