DIRECTORY FileParms USING [ActualId, Ops], IO USING [STREAM], MobDefs USING [VersionStamp], Rope USING [ROPE]; CompilerOps: DEFINITIONS = { LetterSwitches: TYPE = PACKED ARRAY CHAR['a..'z] OF BOOL; Transaction: TYPE = RECORD [ op: {compile, replace} ¬ $compile, source: FileParms.ActualId, sourceStream: IO.STREAM, fileParms: FileParms.Ops, switches: LetterSwitches, checks: LetterSwitches, pattern: FileParms.ActualId, objectName: Rope.ROPE, debugPass: CARDINAL¬CARDINAL.LAST, objectVersion: MobDefs.VersionStamp, interface: BOOL, sourceTokens: CARDINAL, nErrors, nWarnings: CARDINAL, getStream: PROC [StreamId] RETURNS [IO.STREAM], closeStream: PROC [StreamId], startPass: PROC [CARDINAL] RETURNS [goOn: BOOL]]; StreamId: TYPE = MACHINE DEPENDENT {source, object, log, (255)}; AppendHerald: PROC [s: IO.STREAM]; DefaultSwitches: PROC RETURNS [LetterSwitches]; Start: PROC; DoTransaction: PROC [REF Transaction]; Stop: PROC; Punt: ERROR; }.  CompilerOps.mesa Copyright Σ 1985, 1986, 1988, 1991 by Xerox Corporation. All rights reserved. Satterthwaite, June 7, 1983 10:08 am Russ Atkinson (RRA) May 17, 1989 12:16:18 pm PDT Transaction definitions action input output interaction Inquiries Operations Κ>–(cedarcode) style•NewlineDelimiter ™headšœ™Icodešœ ΟeœC™NLšΟy$™$L™0L™šΟk ˜ Lšœ Ÿœ˜ LšŸœŸœŸœ˜LšœŸœ˜LšœŸœŸœ˜——KšΟn œŸ œ˜šœ™Lš œŸœŸœŸœŸœ ŸœŸœ˜9L˜šœ ŸœŸœ˜šœ™L˜"—šœ™L˜LšœŸœŸœ˜L˜L˜L˜L˜LšœŸœ˜Lšœ ŸœŸœ˜"—šœ™Lšœ$˜$Lšœ Ÿœ˜LšœŸœ˜LšœŸœ˜—šœ ™ Lš œ Ÿœ ŸœŸœŸœ˜/Lšœ Ÿœ ˜Lš œ ŸœŸœŸœŸœ˜1L˜——Lšœ ŸœŸœŸ œ˜@—šœ ™ Lš  œŸœŸœŸœ˜"Lš œŸœŸœ˜/—šœ ™ Lš œŸœ˜ Lš  œŸœŸœ˜&Lš œŸœ˜ L˜Lš œŸœ˜ —˜L˜——…—²ό