<> <> <> <> <> DIRECTORY Rope USING [ROPE], TextNode USING [RefOtherNode]; OtherNode: CEDAR DEFINITIONS = BEGIN RefOtherNode: TYPE = TextNode.RefOtherNode; Register: PROC [variety: ATOM, reader: ReadSpecsProc, writer: WriteSpecsProc, copier: CopyInfoProc]; <> <> ReadSpecsProc: TYPE = PROC [n: RefOtherNode, specs: Rope.ROPE]; WriteSpecsProc: TYPE = PROC [n: RefOtherNode] RETURNS [specs: Rope.ROPE]; CopyInfoProc: TYPE = PROC [old: RefOtherNode] RETURNS [newinfo: REF ANY]; DoSpecs: ReadSpecsProc; <> <> <> GetSpecs: WriteSpecsProc; <> <> <> CopyInfo: CopyInfoProc; <> <> <> END.