DIRECTORY TextNode, Rope; 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; Start: PROC; -- for initialization only END. ˜-- OtherNode.Mesa -- written by Paxton. May 1981 -- last written by McGregor. June 10, 1982 4:38 pm -- registers these procs for this variety of node -- they will be called by DoSpecs, GetSpecs, and CopyInfo -- used when reading files -- calls the registered reader for this variety of node -- sets n.info _ specs if no reader is registered -- used when writing files -- calls the registered writer for this variety of node -- if no writer is registered, returns n.info if it is a rope, NIL otherwise -- used when copying nodes -- calls the registered copier for this variety of node -- if no copier is registered, returns old.info -- ***** Initialization Êf˜JšÏc™Jš™Jš2™2J˜JšÏk ˜ J˜ J˜J˜Jšœ žœ˜J˜Jšž˜J˜Jšœžœ˜+J˜šÏnœžœ žœ˜J˜J˜J˜Jš1™1Jš:™:J˜—JšŸ œžœžœžœ˜?J˜Jš Ÿœžœžœžœžœ˜IJ˜Jš Ÿ œžœžœžœ žœžœ˜IJ˜˜Jš™Jš7™7Jš1™1J˜—˜Jš™Jš7™7JšL™LJ˜—˜Jš™Jš7™7Jš/™/J˜—Jš™J˜JšŸœžœ˜'J˜Jšžœ˜J˜—…—,*