<> <> <> <> <> <> <> <<>> 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]; BrandYSymbolDefs: DEFINITIONS = BEGIN OPEN NewSymbols: Symbols, NewSymbolSegment: SymbolSegment, NewSymbolTable: SymbolTable, NewTree: Tree; <> SymbolTableHandle: TYPE = NewSymbolTable.Handle; SymbolTableBase: TYPE = NewSymbolTable.Base; SymbolIndex: TYPE = NewSymbols.SEIndex; SymbolIdIndex: TYPE = NewSymbols.ISEIndex; SymbolConstructorIndex: TYPE = NewSymbols.CSEIndex; SymbolRecordIndex: TYPE = NewSymbols.RecordSEIndex; SymbolContextIndex: TYPE = NewSymbols.CTXIndex; StandardSymbolContextIndex: TYPE = NewSymbols.StandardContext; SymbolNameIndex: TYPE = NewSymbols.HTIndex; SymbolModuleIndex: TYPE = NewSymbols.MDIndex; BodyIndex: TYPE = NewSymbols.BTIndex; CallableBodyIndex: TYPE = NewSymbols.CBTIndex; InnerCallableBodyIndex: TYPE = NewSymbols.ICBTIndex; BodyTableEntry: TYPE = NewSymbols.BodyRecord; FineGrainTableEntry: TYPE = NewSymbolSegment.FGTEntry; FineGrainTableHeader: TYPE = NewSymbolSegment.FGHeader; ExtensionClass: TYPE = NewSymbols.ExtensionType; TreeIndex: TYPE = NewTree.Index; TreeLink: TYPE = NewTree.Link; BlockContextLevel: TYPE = NewSymbols.ContextLevel; PreDefinedSEI: TYPE = CARDINAL[0..249]; <> nullHandle: SymbolTableHandle = NewSymbolTable.nullHandle; nullSymbolIndex: SymbolIndex = NewSymbols.SENull; nullSymbolContextIndex: SymbolContextIndex = NewSymbols.CTXNull; nullSymbolNameIndex: SymbolNameIndex = NewSymbols.HTNull; nullModuleIndex: SymbolModuleIndex = NewSymbols.MDNull; nullBodyIndex: BodyIndex = NewSymbols.BTNull; rootBodyIndex: BodyIndex = NewSymbols.RootBti; symbolIndexForTYPE: SymbolConstructorIndex = NewSymbols.typeTYPE; symbolIndexForANY: SymbolConstructorIndex = NewSymbols.typeANY; thisModuleIndex: SymbolModuleIndex = NewSymbols.OwnMdi; contextLevelZero: BlockContextLevel = NewSymbols.lZ; outerContextLevel: BlockContextLevel = NewSymbols.lL; typeCodeForINT: CARDINAL = NewSymbols.codeINT; typeCodeForCHAR: CARDINAL = NewSymbols.codeCHAR; END.