<<>> <> <> <> 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.