-- BrandXSymbolDefs.mesa -- concrete definitions of TYPEs and constants for symbol tables and related elements. -- Last Modified By Paul Rovner On January 5, 1983 10:46 pm DIRECTORY Symbols USING[MDIndex, CTXIndex, ISEIndex, RecordSEIndex, SEIndex, HTIndex, SENull, CSEIndex, BTNull, RootBti, BTIndex, BodyRecord, MDNull, codeCHAR, CBTIndex, ICBTIndex, ExtensionType, typeTYPE, StandardContext, ContextLevel, lL, CTXNull, HTNull, typeANY, OwnMdi, lZ, codeINT], SymbolSegment USING [FGTEntry, FGHeader], SymbolTable USING[Base, Handle, nullHandle], Tree USING[Index, Link]; BrandXSymbolDefs: DEFINITIONS = BEGIN --TYPEs-- SymbolTableHandle: TYPE = SymbolTable.Handle; SymbolTableBase: TYPE = SymbolTable.Base; SymbolIndex: TYPE = Symbols.SEIndex; SymbolIdIndex: TYPE = Symbols.ISEIndex; SymbolConstructorIndex: TYPE = Symbols.CSEIndex; SymbolRecordIndex: TYPE = Symbols.RecordSEIndex; SymbolContextIndex: TYPE = Symbols.CTXIndex; StandardSymbolContextIndex: TYPE = Symbols.StandardContext; SymbolNameIndex: TYPE = Symbols.HTIndex; SymbolModuleIndex: TYPE = Symbols.MDIndex; BodyIndex: TYPE = Symbols.BTIndex; CallableBodyIndex: TYPE = Symbols.CBTIndex; InnerCallableBodyIndex: TYPE = Symbols.ICBTIndex; BodyTableEntry: TYPE = Symbols.BodyRecord; FineGrainTableEntry: TYPE = SymbolSegment.FGTEntry; FineGrainTableHeader: TYPE = SymbolSegment.FGHeader; ExtensionClass: TYPE = Symbols.ExtensionType; TreeIndex: TYPE = Tree.Index; TreeLink: TYPE = Tree.Link; BlockContextLevel: TYPE = Symbols.ContextLevel; PreDefinedSEI: TYPE = CARDINAL[0..249]; --Constants-- nullHandle: SymbolTableHandle = SymbolTable.nullHandle; nullSymbolIndex: SymbolIndex = Symbols.SENull; nullSymbolContextIndex: SymbolContextIndex = Symbols.CTXNull; nullSymbolNameIndex: SymbolNameIndex = Symbols.HTNull; nullModuleIndex: SymbolModuleIndex = Symbols.MDNull; nullBodyIndex: BodyIndex = Symbols.BTNull; rootBodyIndex: BodyIndex = Symbols.RootBti; symbolIndexForTYPE: SymbolConstructorIndex = Symbols.typeTYPE; symbolIndexForANY: SymbolConstructorIndex = Symbols.typeANY; thisModuleIndex: SymbolModuleIndex = Symbols.OwnMdi; contextLevelZero: BlockContextLevel = Symbols.lZ; outerContextLevel: BlockContextLevel = Symbols.lL; typeCodeForINT: CARDINAL = Symbols.codeINT; typeCodeForCHAR: CARDINAL = Symbols.codeCHAR; END. ΚΔ– "Mesa" style˜IprocšFΟc¬œΟk œžœρžœ+žœ)žœ"ž œžœ œžœ(žœ#žœ#žœ-žœ(žœ/žœ1žœ.žœ(žœ žœ'žœ-žœ&žœ-žœ1žœ,žœ&žœžœ"žœ)žœžœ œ”žœ%žœžœ˜ψ—…— z D