Topspeed_JPI/TS/REP16/M2STRING.DEF

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.