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. jBrandYSymbolDefs.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:01 pm PST Beach, February 22, 1985 1:25:10 pm PST Doug Wyatt, February 24, 1985 8:44:48 pm PST Concrete definitions of TYPEs and constants for symbol tables and related elements. Types Constants Κ6˜codešœ™Kšœ Οmœ1™K˜Kšœžœ˜+K˜Kšœžœ˜-K˜Kšœ žœ˜%Kšœžœ˜.Kšœžœ˜4Kšœžœ˜-K˜Kšœžœ˜6Kšœžœ˜7K˜Kšœžœ˜0K˜Kšœ žœ˜ Kšœ žœ˜K˜Kšœžœ˜2K˜Kšœžœžœ ˜'—šœ ™ K˜:K˜1K˜@K˜9K˜7K˜-K˜K˜.K˜K˜AK˜?K˜K˜7K˜K˜4K˜5K˜Kšœžœ˜.Kšœžœ˜0K˜—K˜Kšžœ˜—…—  °