TiogaLiesImpl.mesa
Mike Spreitzer December 15, 1986 6:43:40 pm PST
DIRECTORY TextNode, TiogaLies, TiogaOps, TiogaOpsDefs;
TiogaLiesImpl:
CEDAR
PROGRAM
EXPORTS TiogaLies, TiogaOpsDefs
=
BEGIN OPEN TiogaLies;
Ref: TYPE = REF NodeBody;
NodeBody: PUBLIC TYPE = TextNode.Body;
OpsRefToTextNodeRef: PUBLIC PROC [x: Ref] RETURNS [Ref] = {RETURN [x]};
TextNodeRefToOpsRef: PUBLIC PROC [x: Ref] RETURNS [Ref] = {RETURN [x]};
END.