-- 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.