<> <> <<>> DIRECTORY XRope, Rope; XRopeImpl: CEDAR PROGRAM IMPORTS Rope EXPORTS XRope ~ BEGIN FromRope: PUBLIC PROC [r: Rope.ROPE, cSet: XRope.CHARSET _ XRope.roman] RETURNS [Rope.ROPE] ~ { <> RETURN[Rope.Concat[Rope.Concat[Rope.FromChar[XRope.charSetEsc], Rope.FromChar[cSet]], r]]; }; FromChar: PUBLIC PROC [c: CHAR, cSet: XRope.CHARSET _ XRope.roman] RETURNS [Rope.ROPE] ~ { <> RETURN[Rope.Concat[Rope.Concat[Rope.FromChar[XRope.charSetEsc], Rope.FromChar[cSet]], Rope.FromChar[c]]] }; END.