INTERFACE SynWr;
IMPORT Wr;

TYPE T <: ROOT;

PROCEDURE Setup();

To be called before any other use of this module.

VAR (*READONLY*) out, err: T;

Two Formatter.T's based on stdout and stderr

PROCEDURE New(wr: Wr.T; width: CARDINAL:=75): T;

A new Formatter.T based on wr.

PROCEDURE UnderlyingWr (swr: T): Wr.T;

Returns the writer that is connected to the output of swr.

PROCEDURE Beg(swr: T; indent: INTEGER:=0; loud:=FALSE);

Formatter.Begin(out, indent)

PROCEDURE Break(swr: T; loud:=FALSE);

Formatter.UnitedBreak(swr.wr)

PROCEDURE FlatBreak(swt: T; loud:=FALSE);

Formatter.Break(swr.wr)

PROCEDURE End(swr: T; loud:=FALSE);

Formatter.End(swr.wr)

PROCEDURE Char(swr: T; c: CHAR; loud:=FALSE);

Formatter.PutChar(swr.wr, c)

PROCEDURE Text(swr: T; t: TEXT; loud:=FALSE);

Formatter.PutText(swr.wr, t)

PROCEDURE NewLine(swr: T; loud:=FALSE);

Formatter.NewLine(swr.wr)

PROCEDURE Flush(swt: T; loud:=FALSE);

Formatter.Flush(swr.wr)

PROCEDURE Close(swt: T);

Formatter.Close(swr.wr)

PROCEDURE PushSilence(swr: T);

Pushes one level of silence on a stack. When the silence stack is non-empty, the output operations have no effect on swr, unless they are loud.

PROCEDURE PopSilence(swr: T);

Pops one level of silence from the silence stack of swr.

END SynWr.