DIRECTORY Alloc: TYPE USING [Handle], Literals: TYPE USING [STIndex], RTBcd: TYPE USING [RefLitIndex, TypeIndex], Symbols: TYPE USING [Name, MDIndex, Type], Tree: TYPE USING [Link]; SymLiteralOps: DEFINITIONS = { EnterType: PROC [type: Symbols.Type, canonical: BOOL_TRUE]; TypeIndex: PROC [type: Symbols.Type, canonical: BOOL_TRUE] RETURNS [RTBcd.TypeIndex]; TypeRef: PROC [type: Symbols.Type, canonical: BOOL_TRUE] RETURNS [Tree.Link]; DescribeTypes: PROC RETURNS [offset, length: CARDINAL]; EnumerateTypes: PROC [PROC [canonical: BOOL, type: Symbols.Type]]; UTypeId: PROC [type: Symbols.Type] RETURNS [Symbols.MDIndex, Symbols.Type]; RefLitItem: TYPE = RECORD [ SELECT kind: * FROM atom => [pName: Symbols.Name], text => [value: Literals.STIndex], ENDCASE]; EnterAtom: PROC [name: Symbols.Name]; AtomIndex: PROC [name: Symbols.Name] RETURNS [RTBcd.RefLitIndex]; AtomRef: PROC [name: Symbols.Name] RETURNS [Tree.Link]; EnterText: PROC [sti: Literals.STIndex]; TextIndex: PROC [sti: Literals.STIndex] RETURNS [RTBcd.RefLitIndex]; TextRef: PROC [sti: Literals.STIndex] RETURNS [Tree.Link]; DescribeRefLits: PROC RETURNS [offset, length: CARDINAL]; EnumerateRefLits: PROC [PROC [RefLitItem]]; Initialize: PROC [Alloc.Handle]; Reset: PROC [pad: BOOL]; Finalize: PROC; }. Šfile SymLiteralOps.Mesa last modified by Satterthwaite, April 15, 1983 9:52 am typeIds atoms and REFs to literals state transitions Ê)˜Jšœ™Jšœ6™6J˜šÏk ˜ Jšœœœ ˜Jšœ œœ ˜Jšœœœ˜+Jšœ œœ˜*Jšœœœ˜J˜—Jšœ œ˜˜Jšœ™˜JšÏn œœ!œœ˜;Jš ž œœ!œœœ˜UJš žœœ!œœœ ˜MJšž œœœœ˜7Jšžœœœ œ˜BJ˜Jšžœœœ!˜KJ˜—Jšœ™˜šœ œœ˜šœ ˜J˜J˜"Jšœ˜ J˜——Jšž œœ˜%Jšž œœœ˜AJšžœœœ ˜7J˜Jšž œœ˜(Jšž œœœ˜DJšžœœœ ˜:J˜Jšžœœœœ˜9Jšžœœœ˜+J˜—Jšœ™˜Jšž œœ˜ Jšžœœœ˜Jšžœœ˜J˜J˜J˜———…—·