(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Tue Jun 16 16:46:28 PDT 1992 by muller                   *)

MODULE PrintUtil;

IMPORT Fmt, Stdio, Text, Thread, Wr;

<* FATAL Wr.Failure, Thread.Alerted *>

PROCEDURE PrintRealPair(text: Text.T; x: REAL; y: REAL) =
BEGIN
     Wr.PutText(Stdio.stdout, text);
     Wr.PutText(Stdio.stdout, "(");
     Wr.PutText(Stdio.stdout, Fmt.Real(x,4));
     Wr.PutText(Stdio.stdout, ",");
     Wr.PutText(Stdio.stdout, Fmt.Real(y,4));
     Wr.PutText(Stdio.stdout, ")");
END PrintRealPair;

PROCEDURE PrintReal(text: Text.T; r: REAL) =
BEGIN
     Wr.PutText(Stdio.stdout, text);
     Wr.PutText(Stdio.stdout, Fmt.Real(r,4));
END PrintReal;

PROCEDURE PrintIntPair(text: Text.T; i: INTEGER; j: INTEGER) =
BEGIN
     Wr.PutText(Stdio.stdout, text);
     Wr.PutText(Stdio.stdout, "(");
     Wr.PutText(Stdio.stdout, Fmt.Int(i));
     Wr.PutText(Stdio.stdout, ",");
     Wr.PutText(Stdio.stdout, Fmt.Int(j));
     Wr.PutText(Stdio.stdout, ")");
END PrintIntPair;

PROCEDURE PrintInt(text: Text.T; i: INTEGER) =
BEGIN
     Wr.PutText(Stdio.stdout, text);
     Wr.PutText(Stdio.stdout, Fmt.Int(i));
END PrintInt;

PROCEDURE NewLine() =
  BEGIN
    Wr.PutText(Stdio.stdout, "\n");
  END NewLine;

PROCEDURE PrintText(text: Text.T) =
  BEGIN
    Wr.PutText(Stdio.stdout, text);
  END PrintText;

BEGIN
END PrintUtil.