FromRope:
PUBLIC
PROC [r: Rope.
ROPE, cSet: XRope.
CHARSET ← XRope.roman]
RETURNS [Rope.
ROPE] ~ {
returns a rope, coded in XEROX character code standard, with character set cSet
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] ~ {
returns a rope, coded in XEROX character code standard, with character set cSet
RETURN[Rope.Concat[Rope.Concat[Rope.FromChar[XRope.charSetEsc], Rope.FromChar[cSet]], Rope.FromChar[c]]]
};