<> <> <<>> DIRECTORY Rope; XRope: CEDAR DEFINITIONS ~ BEGIN charSetEsc: CHAR ~ '\377; --character set selection escape code CHARSET: TYPE ~ CHAR; roman: CHARSET ~ '\000; --roman character set jis1: CHARSET ~ '\041; --roman character set greek: CHARSET ~ '\046; --greek character set cyrillic: CHARSET ~ '\047; --cyrillic character set technical: CHARSET ~ '\357; --technical character set FromRope: PUBLIC PROC [r: Rope.ROPE, cSet: XRope.CHARSET _ roman] RETURNS [Rope.ROPE]; <> FromChar: PUBLIC PROC [c: CHAR, cSet: XRope.CHARSET _ roman] RETURNS [Rope.ROPE]; <> END.