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.