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

diff --git a/lang/m2/libm2/PascalIO.def b/lang/m2/libm2/PascalIO.def
index e45a59c..5a26b6d 100644 (file)
--- 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 aeb851e..c09e1d9 100644 (file)
--- 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);