DIRECTORY IO, Rope; TTOutput: DEFINITIONS = BEGIN Ref: TYPE = REF Rep; Rep: TYPE = RECORD [ stream: IO.STREAM, spacesInCurrentLine: NAT _ 0, lastThingWasControlSequence: BOOLEAN _ FALSE, level: NAT _ 0 ]; Create: PUBLIC PROCEDURE [stream: IO.STREAM] RETURNS [Ref]; Char: PUBLIC PROCEDURE [self: Ref]; Space: PUBLIC PROCEDURE [self: Ref]; EndLine: PUBLIC PROCEDURE [self: Ref]; ControlSeq: PUBLIC PROCEDURE [self: Ref, name: Rope.ROPE]; BeginGroup: PUBLIC PROCEDURE [self: Ref]; EndGroup: PUBLIC PROCEDURE [self: Ref]; Close: PUBLIC PROCEDURE [self: Ref]; END. Michael Plass, December 9, 1982 9:02 am. Created. tTTOutput.mesa Outputs TEX source code, controlling the white space. Michael Plass, December 13, 1982 3:34 pm ΚW˜Jšœ ™ Jšœ Οdœ+™5Jšœ)™)IunitšΟk œžœ˜šœ ž œ˜Jšž˜Jšœžœžœ˜šœžœžœ˜Jšœžœžœ˜Jšœžœ˜Jšœžœžœ˜-Jšœžœ˜J˜—Kš Οnœžœž œ žœžœžœ˜;KšŸœžœž œ ˜#KšŸœžœž œ ˜$KšŸœžœž œ ˜&KšŸ œžœž œžœ˜:KšŸ œžœž œ ˜)KšŸœžœž œ ˜'KšŸœžœž œ ˜$Kšžœ˜J˜—J˜2—…—f1