<> <> <> <> DIRECTORY Rope USING [ROPE, Text]; ConvertUnsafe: DEFINITIONS = BEGIN OPEN Rope; LS: TYPE = LONG STRING; SubString: TYPE = RECORD [base: LS, offset, length: CARDINAL]; AppendRefText: PROC [to: LS, from: REF READONLY TEXT]; <> AppendRope: PROC [to: LS, from: ROPE]; <> AppendSubString: PROC [to: LS, from: SubString]; <> <<>> AppendSubStringToRefText: PROC [to: REF TEXT, from: SubString]; <> <<>> ToRefText: PROC [from: LS] RETURNS [REF TEXT]; <> ToRope: PROC [from: LS] RETURNS [Text]; <> SubStringToRope: PROC [from: SubString] RETURNS [Text]; EqualSubStrings: PROC [s1, s2: SubString, case: BOOL _ TRUE] RETURNS [BOOL]; <<>> END.