From 74ea5e0bd7387115f8f12af34e6f340646cbeb5c Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 8 Jul 1987 16:37:23 +0000 Subject: [PATCH] latest changes to PascalIO: Reset and Rewrite have their parameters switched --- lang/m2/libm2/PascalIO.def | 4 ++-- lang/m2/libm2/PascalIO.mod | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lang/m2/libm2/PascalIO.def b/lang/m2/libm2/PascalIO.def index e45a59cfb..5a26b6dea 100644 --- a/lang/m2/libm2/PascalIO.def +++ b/lang/m2/libm2/PascalIO.def @@ -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 diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod index aeb851e11..c09e1d95b 100644 --- a/lang/m2/libm2/PascalIO.mod +++ b/lang/m2/libm2/PascalIO.mod @@ -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); -- 2.34.1