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, 1992 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. Κ’•NewlineDelimiter –(cedarcode) style™šœ ™ Jšœ Οeœ7™BJ™2J™(—Icode˜šΟk ˜ Kšœ žœ.˜>—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šžœ˜—…—ζ|