BrandYSymbolDefs.mesa
Copyright © 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.
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;
Types
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];
Constants
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.