DIRECTORY Alloc USING [BaseSeq], FileParms USING [ActualId], OSMiscOps USING [Stamp], MobDefs USING [MTHandle, SGRecord, VersionStamp], MimData, Rope USING [ROPE], SourceMap USING [Loc], Symbols USING [CBTIndex, CTXIndex], SymbolSegment USING [FGTEntry], SymbolTable USING [Base]; MimDataImpl: PROGRAM EXPORTS MimData = { OPEN Symbols; ownSymbols: PUBLIC SymbolTable.Base; interface: PUBLIC BOOL; -- interface module moduleCtx: PUBLIC CTXIndex; -- module identifiers importCtx: PUBLIC CTXIndex; -- import id context exportCtx: PUBLIC CTXIndex; -- export id context mainCtx: PUBLIC CTXIndex; -- main program's context nBodies: PUBLIC CARDINAL; nInnerBodies: PUBLIC CARDINAL; nSigCodes: PUBLIC CARDINAL; defBodyLimit: PUBLIC CARD; linkCount: PUBLIC CARDINAL; -- global control links (externals, etc) cedar: PUBLIC BOOL; monitored: PUBLIC BOOL; stopping: PUBLIC BOOL; base: PUBLIC REF Alloc.BaseSeq; LetterSwitches: TYPE = PACKED ARRAY CHAR['a..'z] OF BOOL; switches: PUBLIC PACKED ARRAY CHAR['a..'z] OF BOOL; checks: PUBLIC PACKED ARRAY CHAR['a..'z] OF BOOL; source: PUBLIC FileParms.ActualId; sourceTokens: PUBLIC CARDINAL; pattern: PUBLIC FileParms.ActualId; -- old mob to match matched: PUBLIC BOOL; nErrors: PUBLIC CARDINAL; nWarnings: PUBLIC CARDINAL; bodyIndex: PUBLIC CBTIndex; -- current body textIndex: PUBLIC SourceMap.Loc; -- start index of phrase with error compilerVersion: PUBLIC MobDefs.VersionStamp; objectVersion: PUBLIC MobDefs.VersionStamp; objectStamp: PUBLIC OSMiscOps.Stamp; globalFrameSize: PUBLIC CARD; fgTable: PUBLIC LONG DESCRIPTOR FOR ARRAY OF SymbolSegment.FGTEntry ¬ NIL; mobSeg, codeSeg, symSeg: PUBLIC MobDefs.SGRecord; mtRoot: PUBLIC MobDefs.MTHandle ¬ NIL; mtRootSize: PUBLIC CARDINAL; fixupLoc: PUBLIC CARD; }. € MimDataImpl.mesa Copyright Σ 1985, 1986, 1987, 1988, 1991 by Xerox Corporation. All rights reserved. Satterthwaite, June 18, 1986 9:50:31 am PDT Russ Atkinson (RRA) May 17, 1989 12:17:05 pm PDT JKF August 15, 1988 11:18:29 am PDT shared instance of SymbolTable global info describing module scratch storage compilation options input variables used for error reporting output Κ΅•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ ΟeœI™TKšΟy+™+K™0K™#—˜šΟk ˜ KšœŸœ ˜Kšœ Ÿœ ˜Kšœ Ÿœ ˜KšœŸœ$˜1Kšœ˜KšœŸœŸœ˜Kšœ Ÿœ˜KšœŸœ˜#KšœŸœ ˜Kšœ Ÿœ˜——headšΟn œŸœŸœ ˜(KšŸœ ˜ K˜—Kšœ™˜Kšœ Ÿœ˜$K˜—Kšœ™˜Kšœ ŸœŸœΟc˜,Kšœ Ÿœ ‘˜1Kšœ Ÿœ ‘˜0Kšœ Ÿœ ‘˜0Kšœ Ÿœ ‘˜3Kšœ ŸœŸœ˜KšœŸœŸœ˜Kšœ ŸœŸœ˜KšœŸœŸœ˜Kšœ ŸœŸœ‘(˜DKšœŸœŸœ˜Kšœ ŸœŸœ˜Kšœ ŸœŸœ˜K˜—Kšœ™˜KšœŸœŸœ˜K˜—Kšœ™˜Kš œŸœŸœŸœŸœ ŸœŸœ˜9K˜Kš œ ŸœŸœŸœŸœ ŸœŸœ˜3Kš œŸœŸœŸœŸœ ŸœŸœ˜1K˜—Kšœ™˜KšœŸœ˜"KšœŸœŸœ˜K˜Kšœ Ÿœ‘˜7Kšœ ŸœŸœ˜K˜—Kšœ"™"˜Kšœ ŸœŸœ˜Kšœ ŸœŸœ˜Kšœ Ÿœ ‘˜+Kšœ Ÿœ‘#˜DK™—šœ™K˜KšœŸœ˜-K˜KšœŸœ˜+Kšœ Ÿœ˜$K˜KšœŸœŸœ˜K˜Kšœ ŸœŸœŸ œŸœŸœŸœŸœ˜JK˜KšœŸœ˜1KšœŸœŸœ˜&Kšœ ŸœŸœ˜Kšœ ŸœŸœ˜K˜K˜—˜K˜——…—θ