DIRECTORY FS: TYPE USING [OpenFile], FileSegment: TYPE USING [Span], FileParms: TYPE USING [ActualId, Ops], IO: TYPE USING [STREAM], Rope: TYPE USING [ROPE], TimeStamp: TYPE USING [Stamp]; 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, pattern: FileParms.ActualId, objectName: Rope.ROPE, objectFile: FS.OpenFile, debugPass: CARDINAL_CARDINAL.LAST, objectVersion: TimeStamp.Stamp, interface: BOOL, matched: BOOL, sourceTokens: CARDINAL, nErrors, nWarnings: CARDINAL, objectBytes, objectFrameSize, linkCount: CARDINAL, bcdPages, codePages, symbolPages: FileSegment.Span, getStream: PROC [StreamId] RETURNS [IO.STREAM], startPass: PROC [CARDINAL] RETURNS [goOn: BOOL]]; StreamId: TYPE = MACHINE DEPENDENT {source, object, log, (255)}; DefaultSwitches: PROC RETURNS [LetterSwitches]; CompilerVersion: PROC RETURNS [TimeStamp.Stamp]; AppendHerald: PROC [s: IO.STREAM]; Start: PROC [scratchZone: UNCOUNTED ZONE]; DoTransaction: PROC [REF Transaction]; -- really a VAR Stop: PROC; Punt: ERROR; }. file CompilerOps.Mesa last modified by Satterthwaite, June 7, 1983 10:08 am last modified by Russ Atkinson, 28-Aug-81 12:26:43 Last Edited by: Maxwell, August 2, 1983 9:01 am transaction definitions action input output interaction inquiries operations Ę{˜Jšœ™Jšœ5™5Jšœ2™2J™/J™šĪk ˜ Jšœœœ ˜Jšœ œœ˜Jšœ œœ˜&Jšœœœœ˜Jšœœœœ˜Jšœ œœ ˜J˜—Jšœ  œ˜˜Jšœ™˜Jš œœœœœ œœ˜9J˜šœ œœ˜šœ™J˜"—šœ™J˜Jšœœœ˜J˜J˜J˜Jšœœ˜Jšœ œ ˜Jšœ œœœ˜"—šœ™J˜Jšœ œ˜Jšœ œ˜Jšœœ˜Jšœœ˜Jšœ)œ˜2J˜3—šœ ™ Jš œ œ œœœ˜/Jš œ œœœœ˜1J˜——Jšœ œœ œ˜@J˜—Jšœ ™ ˜JšĪnœœœ˜/Jšžœœœ˜0Jšž œœœœ˜"J˜—Jšœ ™ ˜Jšžœœ œœ˜*Jšž œœœĪc˜7Jšžœœ˜ J˜Jšœœ˜ J˜J˜J˜———…—ž=