<<>> <> <> <> DIRECTORY CirioTypes USING [Type, CompilerContext, Node]; Addresses: CEDAR DEFINITIONS = BEGIN CC: TYPE = CirioTypes.CompilerContext; Type: TYPE = CirioTypes.Type; Node: TYPE = CirioTypes.Node; CreateAddressType: PROC [cc: CC] RETURNS [Type]; <> <> AddressNodeInfo: TYPE = REF AddressNodeInfoBody; AddressNodeInfoBody: TYPE = RECORD [ getAddressValue: PROC [data: REF ANY] RETURNS [CARD], data: REF ANY ]; CreateAddressNode: PUBLIC PROC [type: Type, info: REF ANY, cc: CC] RETURNS [Node]; END.