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 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]; 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. jBrandXSymbolDefs.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Rovner, January 5, 1983 10:46 pm Russ Atkinson (RRA) February 1, 1985 12:34:03 pm PST Beach, February 22, 1985 1:25:51 pm PST Doug Wyatt, February 24, 1985 8:42:05 pm PST Concrete definitions of TYPEs and constants for symbol tables and related elements. Types Constants Κ˜codešœ™Kšœ Οmœ1™K˜