TiogaIOExtras.mesa
Copyright Ó 1993 by Xerox Corporation. All rights reserved.
Doug Wyatt, March 17, 1993 3:11 pm PST
DIRECTORY
IO USING [STREAM],
Rope USING [ROPE],
Tioga USING [Node];
TiogaIOExtras: CEDAR DEFINITIONS ~ BEGIN OPEN IO, Rope, Tioga;
WritePlain:
PROC [s:
STREAM, root: Node, restoreDashes:
BOOL ¬
FALSE, indent:
ROPE ¬
NIL];
Put to the stream a plain text representation of a Tioga document.
If restoreDashes, insert "-- " before text of comment nodes.
Insert indent rope once for each level of nesting; if indent is NIL, use "\t".
END.