Topspeed_JPI/TS/MODBASE/STREDIT.DEF

DEFINITION MODULE StrEdit;
(*
 *  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/stredit.dev   1.6   17 Mar 1991 18:05:58   coleb  $
 *
 *)


  PROCEDURE Append( VAR TheStr: ARRAY OF CHAR;
      AppStr: ARRAY OF CHAR);

  PROCEDURE AssignStr( instr: ARRAY OF CHAR; VAR
      outstr: ARRAY OF CHAR );

  PROCEDURE CAPstr(VAR TheStr : ARRAY OF CHAR);

  PROCEDURE Center( VAR TheStr: ARRAY OF CHAR;
      RequiredLength: CARDINAL );

  PROCEDURE CrunchBlanks(VAR line : ARRAY OF
      CHAR);

  PROCEDURE CutLeadingChars(TheChar : CHAR; VAR
      TheStr : ARRAY OF CHAR);

  PROCEDURE CutTrailingChars(TheChar : CHAR; VAR
      TheStr : ARRAY OF CHAR);

  PROCEDURE DeleteChar(TheChar : CHAR; VAR x :
      ARRAY OF CHAR);

  PROCEDURE DeleteRightJustified( VAR TheStr:
      ARRAY OF CHAR; spot, HowMany: CARDINAL );

  PROCEDURE InsertRightJustified( str1: ARRAY OF
      CHAR; VAR str2: ARRAY OF CHAR; spot:
      CARDINAL );

  PROCEDURE InsertSubstr(str1 : ARRAY OF CHAR;
      start, lnth : CARDINAL; VAR str2 : ARRAY OF
      CHAR; ndx : CARDINAL);

  PROCEDURE InsertTabs(VAR TheStr : ARRAY OF
      CHAR; tabInterval: CARDINAL;
      leadingOnly: BOOLEAN);

  PROCEDURE InsertTimes(Ch : CHAR; VAR TheStr :
      ARRAY OF CHAR; indx, times : CARDINAL);

  PROCEDURE LeftJustify( VAR TheStr: ARRAY OF
      CHAR; RequiredLength: CARDINAL );

  PROCEDURE LowerStr(VAR TheStr : ARRAY OF CHAR);

  PROCEDURE MakeCurrency( CurrencySymbol: ARRAY OF
      CHAR; VAR TheStr: ARRAY OF CHAR );

  PROCEDURE OverWrite(obj : ARRAY OF CHAR; VAR
      targ : ARRAY OF CHAR; pos : CARDINAL);

  PROCEDURE ReplaceStr(searchstr, replacstr :
      ARRAY OF CHAR; VAR TheStr : ARRAY OF CHAR);

  PROCEDURE ReplaceStrInsens(
      searchstr, replacstr : ARRAY OF CHAR;
      VAR TheStr : ARRAY OF CHAR);

  PROCEDURE ReplaceTabs(VAR TheStr : ARRAY OF
      CHAR; tabInterval: CARDINAL);

  PROCEDURE RightJustify( VAR TheStr: ARRAY OF
      CHAR; RequiredLength: CARDINAL );

  PROCEDURE SetLength( VAR TheStr : ARRAY OF CHAR;
      NewLength : CARDINAL);

  PROCEDURE Init();

END StrEdit.