From: ceriel <none@none>
Date: Wed, 8 Mar 1989 17:28:08 +0000 (+0000)
Subject: updated to ed4
X-Git-Tag: release-5-5~2517
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=24f3f2f10ef93cd4c9ea72134b18e44b1c29e881;p=ack.git

updated to ed4
---

diff --git a/lang/m2/libm2/RealConver.def b/lang/m2/libm2/RealConver.def
index 8aa326143..4da417386 100644
--- a/lang/m2/libm2/RealConver.def
+++ b/lang/m2/libm2/RealConver.def
@@ -21,7 +21,7 @@ DEFINITION MODULE RealConversions;
 			     VAR ok: BOOLEAN);
 
   PROCEDURE RealToString(r: REAL;
-			 digits, width: INTEGER;
+			 width, digits: INTEGER;
 			 VAR str: ARRAY OF CHAR;
 			 VAR ok: BOOLEAN);
   (* Convert real number "r" to string "str", either in fixed-point or
@@ -34,7 +34,7 @@ DEFINITION MODULE RealConversions;
   *)
 
   PROCEDURE LongRealToString(r: LONGREAL;
-			 digits, width: INTEGER;
+			 width, digits: INTEGER;
 			 VAR str: ARRAY OF CHAR;
 			 VAR ok: BOOLEAN);
 
diff --git a/lang/m2/libm2/RealInOut.def b/lang/m2/libm2/RealInOut.def
index 6a13a4839..5ab39ced8 100644
--- a/lang/m2/libm2/RealInOut.def
+++ b/lang/m2/libm2/RealInOut.def
@@ -24,6 +24,12 @@ DEFINITION MODULE RealInOut;
      If fewer than n characters are needed, leading blanks are inserted.
   *)
 
+  PROCEDURE WriteFixPt(x: REAL; n, k: CARDINAL);
+  (* Write x in fixed-point notation usign n characters with k digits
+     after the decimal point. If fewer than n characters are needed,
+     leading blanks are inserted.
+  *)
+
   PROCEDURE WriteRealOct(x: REAL);
   (* Write x in octal words.
   *)
diff --git a/lang/m2/libm2/RealInOut.mod b/lang/m2/libm2/RealInOut.mod
index 342180141..28ed945f6 100644
--- a/lang/m2/libm2/RealInOut.mod
+++ b/lang/m2/libm2/RealInOut.mod
@@ -31,6 +31,16 @@ IMPLEMENTATION MODULE RealInOut;
 	InOut.WriteString(buf);
   END WriteReal;
 
+  PROCEDURE WriteFixPt(arg: REAL; n, k: CARDINAL);
+  VAR buf: RBUF;
+      ok : BOOLEAN;
+
+  BEGIN
+	IF n > MAXWIDTH THEN n := MAXWIDTH END;
+	RealConversions.RealToString(arg, n, k, buf, ok);
+	InOut.WriteString(buf);
+  END WriteFixPt;
+
   PROCEDURE ReadReal(VAR x: REAL);
     VAR	Buf: ARRAY[0..512] OF CHAR;
 	ok: BOOLEAN;