<> <> 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.