source: trunk/minix/lib/ack/libm2/RealInOut.mod@ 20

(*
  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  See the copyright notice in the ACK home directory, in the file "Copyright".
*)

(*$R-*)
IMPLEMENTATION MODULE RealInOut;
(*
  Module:       InOut for REAL numbers
  Author:       Ceriel J.H. Jacobs
  Version:      $Header: /cvsup/minix/src/lib/ack/libm2/RealInOut.mod,v 1.1 2005/10/10 15:27:46 beng Exp $
*)

  FROM  InOut IMPORT    ReadString, WriteString, WriteOct;
  FROM  Traps IMPORT    Message;
  FROM  SYSTEM IMPORT   WORD;
  FROM  RealConversions IMPORT
                        LongRealToString, StringToLongReal;

  CONST MAXNDIG = 32;
        MAXWIDTH = MAXNDIG+7;
  TYPE  RBUF = ARRAY [0..MAXWIDTH+1] OF CHAR;

  PROCEDURE WriteReal(arg: REAL; ndigits: CARDINAL);
  BEGIN
        WriteLongReal(LONG(arg), ndigits)
  END WriteReal;

  PROCEDURE WriteLongReal(arg: LONGREAL; ndigits: CARDINAL);
    VAR buf : RBUF;
        ok : BOOLEAN;

  BEGIN
        IF ndigits > MAXWIDTH THEN ndigits := MAXWIDTH; END;
        IF ndigits < 10 THEN ndigits := 10; END;
        LongRealToString(arg, ndigits, -INTEGER(ndigits - 7), buf, ok);
        WriteString(buf);
  END WriteLongReal;

  PROCEDURE WriteFixPt(arg: REAL; n, k: CARDINAL);
  BEGIN
        WriteLongFixPt(LONG(arg), n, k)
  END WriteFixPt;

  PROCEDURE WriteLongFixPt(arg: LONGREAL; n, k: CARDINAL);
  VAR buf: RBUF;
      ok : BOOLEAN;

  BEGIN
        IF n > MAXWIDTH THEN n := MAXWIDTH END;
        LongRealToString(arg, n, k, buf, ok);
        WriteString(buf);
  END WriteLongFixPt;

  PROCEDURE ReadReal(VAR x: REAL);
  VAR x1: LONGREAL;
  BEGIN
        ReadLongReal(x1);
        x := x1
  END ReadReal;

  PROCEDURE ReadLongReal(VAR x: LONGREAL);
    VAR Buf: ARRAY[0..512] OF CHAR;
        ok: BOOLEAN;

  BEGIN
        ReadString(Buf);
        StringToLongReal(Buf, x, ok);
        IF NOT ok THEN
                Message("real expected");
                HALT;
        END;
        Done := TRUE;
  END ReadLongReal;

  PROCEDURE wroct(x: ARRAY OF WORD);
  VAR   i: CARDINAL;
  BEGIN
        FOR i := 0 TO HIGH(x) DO
                WriteOct(CARDINAL(x[i]), 0);
                WriteString("  ");
        END;
  END wroct;

  PROCEDURE WriteRealOct(x: REAL);
  BEGIN
        wroct(x);
  END WriteRealOct;

  PROCEDURE WriteLongRealOct(x: LONGREAL);
  BEGIN
        wroct(x);
  END WriteLongRealOct;

BEGIN
        Done := FALSE;
END RealInOut.