(* $N- *)
DEFINITION MODULE Strings;
(* 2.0 / 22.6.87 / red *)

CONST
  first =  0;
  last  = -1;

PROCEDURE Length   (VAR str     : ARRAY OF CHAR): INTEGER;

PROCEDURE Occurs   (VAR str     : ARRAY OF CHAR;
                        from    : INTEGER;
                        token   : ARRAY OF CHAR;
                        caseSens: BOOLEAN): INTEGER;

PROCEDURE Insert   (VAR str     : ARRAY OF CHAR;
                        at      : INTEGER;
                        token   : ARRAY OF CHAR);

PROCEDURE Delete   (VAR str     : ARRAY OF CHAR;
                        start,
                        length  : INTEGER);

PROCEDURE Copy     (VAR str     : ARRAY OF CHAR;
                        source  : ARRAY OF CHAR;
                        start,
                        length  : INTEGER);

PROCEDURE Compare  (VAR str     : ARRAY OF CHAR;
                        start,
                        length  : INTEGER;
                        token   : ARRAY OF CHAR;
                        caseSens: BOOLEAN): INTEGER;


END Strings.
 
