-- MCrossUtilityDefs.mesa -- P.Rovner July 1, 1982 5:44 pm DIRECTORY Rope USING[ROPE]; MCrossUtilityDefs: DEFINITIONS = BEGIN Confirm: PROCEDURE RETURNS[BOOLEAN]; IsNumber: PROCEDURE[s: Rope.ROPE] RETURNS[BOOLEAN]; IsTerminator: PROCEDURE[ch: CHARACTER] RETURNS [BOOLEAN]; -- Returns TRUE if the string has only spaces, tabs and CRs IsLineEmpty: PROCEDURE[line: Rope.ROPE] RETURNS[BOOLEAN]; -- Returns True if Str1 is equal to Str2 EqualString: PROCEDURE[str1,str2: Rope.ROPE] RETURNS[BOOLEAN]; -- Returns True if Str1 is Lexically less then Str2 StringLessThan: PROCEDURE[str1,str2: Rope.ROPE] RETURNS[BOOLEAN]; END.