SchemePrinting.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer on April 10, 1990 6:09:56 pm PDT
DIRECTORY IntToIntTab, IO, Rope, Scheme;
SchemePrinting:
CEDAR
DEFINITIONS
=
BEGIN OPEN Scheme;
ROPE: TYPE ~ Rope.ROPE;
Nat: TYPE ~ INTEGER[0..INTEGER.LAST];
FormToSource: TYPE ~ IntToIntTab.Table;
How:
TYPE ~
RECORD [
sia: Nat ¬ 2, --Standard Indentation Amount
simpleLen: Nat ¬ 2, --max length of simple list
simpleQuote: BOOL ¬ TRUE --is quote form transparent to simplicity?
];
PrettyPrint: PROC [to: IO.STREAM, val: Any, how: How, context: ATOM, posns: FormToSource ¬ NIL, debugLog: IO.STREAM ¬ NIL, quit: REF BOOL ¬ NIL];
END.