DIRECTORY BcdDefs: TYPE USING [CTIndex, EXPIndex, FTIndex, IMPIndex, MTIndex], HashTypes: TYPE USING [HTIndex, htNull], Table: TYPE USING [Base, Index, Limit]; Symbols, Literals: DEFINITIONS={ Base: TYPE~Table.Base; Limit: CARDINAL~Table.Limit; HTIndex: TYPE~HashTypes.HTIndex; htNull: HTIndex~HashTypes.htNull; STRecord: TYPE~RECORD [ filename, assigned: BOOL, hti: HTIndex, imported, exported: BOOL, link: STIndex, impi: BcdDefs.IMPIndex, impgfi: CARDINAL, body: SELECT type: * FROM unknown => [], local => [ map: STMap, info: Table.Index, -- Tree.Index, context: CXIndex], external => [ map: STMap, pointer: SELECT ptype: * FROM instance => [sti: STIndex], file => [fti: BcdDefs.FTIndex], ENDCASE] ENDCASE]; STIndex: TYPE~Base RELATIVE POINTER[0..Limit) TO STRecord; stNull: STIndex~STIndex.LAST; ISEIndex, SEIndex: TYPE~STIndex; STMap: TYPE~RECORD [ SELECT type: * FROM unknown => [], config => [cti: BcdDefs.CTIndex], module => [mti: BcdDefs.MTIndex], interface => [expi: BcdDefs.EXPIndex] ENDCASE]; CXRecord: TYPE~RECORD [link: STIndex]; CXIndex: TYPE~Base RELATIVE POINTER[0..Limit) TO CXRecord; cxNull: CXIndex~CXIndex.LAST; LitIndex: TYPE~HashTypes.HTIndex; }. ¾BcdSymbols.Mesa last edited by Satterthwaite on January 10, 1983 12:36 pm Symbols: hash table semantic table to share proto- modules Context Table Literals: (to share proto- modules) ʘJšœ™Jšœ9™9J˜šÏk ˜ Jšœ œœ1˜DJšœ œœ˜(Jšœœœ˜'J˜—Jšœ œ˜ ˜Jšœœ ˜Jšœœ ˜J˜Jšœ™˜Jšœ ™ J˜Jšœ œ˜ J˜!J˜Jšœ™J˜šœ œœ˜Jšœœ˜J˜ Jšœœ˜J˜J˜Jšœœ˜šœœ ˜J˜˜ J˜ JšœÏc˜!J˜—˜ J˜ šœ œ ˜J˜J˜Jšœ˜——Jšœ˜ J˜——Jš œ œœœ œ ˜:Jšœœ˜J˜Jšœ™Jšœœ ˜ J˜šœœœ˜šœ ˜J˜J˜!J˜!J˜%Jšœ˜ J˜——Jšœ ™ J˜Jšœ œœ˜&J˜Jš œ œœœ œ ˜:Jšœœ˜J˜—Jšœ#™#˜Jšœ œ˜!J˜J˜J˜J˜———…—¦