DEFINITION MODULE M2Strings; (* * REPERTOIRE * Release 1.6 * By Charles Bradford and Cole Brecheen * (c) Copyright 1985-1992 PMI * Green Bay, Wisconsin * All rights reserved * (414) 468-6040 * * $Header: D:/logfiles/defs/m2string.dev 1.4 30 Dec 1990 18:02:00 coleb $ * *) PROCEDURE Assign(VAR source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR); PROCEDURE CompareStr(s1, s2: ARRAY OF CHAR): INTEGER; PROCEDURE Concat(s1, s2: ARRAY OF CHAR; VAR result: ARRAY OF CHAR); PROCEDURE Copy(str: ARRAY OF CHAR; inx: CARDINAL; len: CARDINAL; VAR result: ARRAY OF CHAR); PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx: CARDINAL; len: CARDINAL); PROCEDURE Insert(substr: ARRAY OF CHAR; VAR str: ARRAY OF CHAR; inx: CARDINAL); PROCEDURE Pos(substr, str: ARRAY OF CHAR): CARDINAL; PROCEDURE Length(VAR str: ARRAY OF CHAR): CARDINAL; PROCEDURE Init(); END M2Strings.