Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Sun Jun 5 16:59:40 PDT 1994 by najork
MODULE; IMPORT Fmt, TextConv; PROCEDURE ZFmt Int (n : INTEGER) : TEXT = BEGIN RETURN Fmt.Int (n) END Int; PROCEDUREBool (b : BOOLEAN) : TEXT = BEGIN IF b THEN RETURN "true" ELSE RETURN "false" END END Bool; PROCEDUREChar (c : CHAR) : TEXT = BEGIN RETURN Fmt.Char (c) END Char; PROCEDUREReal (r : REAL) : TEXT = BEGIN RETURN Fmt.Real (r, style := Fmt.Style.Fix, literal := TRUE); END Real; PROCEDURELongReal (r : LONGREAL) : TEXT = BEGIN RETURN Fmt.LongReal (r, style := Fmt.Style.Fix, literal := TRUE); END LongReal; PROCEDUREText (t: TEXT): TEXT = BEGIN RETURN TextConv.Encode (t) END Text; BEGIN END ZFmt.