DIRECTORY CirioTypes USING [BasicTypeInfo, CompilerContext, Node, Type]; Atoms: CEDAR DEFINITIONS = BEGIN CC: TYPE = CirioTypes.CompilerContext; BasicTypeInfo: TYPE = CirioTypes.BasicTypeInfo; Type: TYPE = CirioTypes.Type; Node: TYPE = CirioTypes.Node; CreateAtomType: PROC [cc: CC, bti: BasicTypeInfo] RETURNS [Type]; SetAtomRecType: PROC [atomType, recType: Type, cc: CC]; AtomNodeInfo: TYPE = REF AtomNodeInfoBody; AtomNodeInfoBody: TYPE = RECORD [ atomRecType: Type, atomRecNode: Node, getPointer: PROC[data: REF ANY, cc: CC] RETURNS[CirioTypes.Node], data: REF ANY ]; CreateAtomNode: PUBLIC PROC [type: Type, info: AtomNodeInfo, cc: CC] RETURNS [Node]; CreateNilAtomNode: PUBLIC PROC [type: Type, cc: CC] RETURNS [Node]; END. ώ Atoms.mesa Copyright Σ 1991 by Xerox Corporation. All rights reserved. Created by Theimer: August 4, 1989 10:05:33 pm PDT Spreitze, December 16, 1991 10:55 am PST CirioCode.GetTypeClass[type] = $atom CCType.GetTypeRepresentation will return bti. Κu•NewlineDelimiter ™šœ ™ J™—K˜K˜KšΠlnœœ œ˜šœ˜K˜Kšœœ˜&Kšœœ˜/Kšœœ˜Kšœœ˜K˜šΟnœœœœ˜AK™$K™-—K˜KšŸœœœ˜7K˜Kšœœœ˜*šœœœ˜!K˜K˜Kš œ œœœœœ˜AKšœœ˜ Kšœ˜—K˜KšŸœ œ&œœ˜TK˜KšŸœ œœœ˜C—K˜Kšœ˜—…—ζY