Topspeed_JPI/TS-V3/MODBASE/POSUTILS.DEF

DEFINITION MODULE PosUtils;
(*
 *  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/posutils.dev   1.4   30 Dec 1990 18:03:36   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS;

  VAR
    CaseSensitive: BOOLEAN;

  PROCEDURE BreakPoint(VAR thestr : ARRAY OF CHAR;
      maxlength : CARDINAL; breakchars : ARRAY OF
      CHAR) : CARDINAL;

  PROCEDURE BreakPtAdr( TheAdr: ADDRESS; TheSize:
      CARDINAL; maxlength : CARDINAL; breakchars :
      ARRAY OF CHAR) : CARDINAL;

  PROCEDURE ByteCount( size: CARDINAL; lookfor:
      CHAR; start: ADDRESS): CARDINAL;

  PROCEDURE Equal(str1, str2 : ARRAY OF CHAR):
      BOOLEAN;

  PROCEDURE FindNthPattern(pattern: ARRAY OF CHAR;
      which: CARDINAL; searchIn: ARRAY OF CHAR):
      CARDINAL;

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

  PROCEDURE IsAlphaChar( TheChar: CHAR ): BOOLEAN;

  PROCEDURE IsBlank(TheStr : ARRAY OF CHAR) :
      BOOLEAN;

  PROCEDURE IsNextPattern( Pattern: ARRAY OF CHAR;
      VAR TheStr: ARRAY OF CHAR; StartingSpot:
      CARDINAL ): BOOLEAN;

  PROCEDURE IsNumber( TheStr: ARRAY OF CHAR;
      StartingSpot: CARDINAL ): BOOLEAN;

  PROCEDURE IsNumericChar( TheChar: CHAR ):
      BOOLEAN;

  PROCEDURE IsWhiteSpace( TheChar: CHAR ): BOOLEAN;

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

  PROCEDURE MatchingPos( spot: CARDINAL; TheStr:
      ARRAY OF CHAR ): CARDINAL;

  PROCEDURE PatternScan( PatternAdr: ADDRESS;
      PatternSize: CARDINAL; ScanAreaAdr: ADDRESS;
      ScanAreaSize: CARDINAL ): CARDINAL;

  PROCEDURE PosAdr(VAR s2 : ARRAY OF CHAR; s :
      ADDRESS; size: CARDINAL) : CARDINAL;

  PROCEDURE Pos(s2 : ARRAY OF CHAR; s : ARRAY OF
      CHAR): CARDINAL;

  PROCEDURE PosDelimited(VAR pattern, obj,
      delimiters : ARRAY OF CHAR) : CARDINAL;

  PROCEDURE Pos1by1(s2 : ARRAY OF CHAR; s : ARRAY
      OF CHAR) : CARDINAL;

  PROCEDURE Positn(s2 : ARRAY OF CHAR; s : ARRAY
      OF CHAR; i : CARDINAL) : CARDINAL;

  PROCEDURE PosInsensitive(str1, str2 : ARRAY OF
      CHAR) : CARDINAL;

  PROCEDURE Present( str1, str2: ARRAY OF CHAR ):
      BOOLEAN;

  PROCEDURE PresentPos(str1, str2 : ARRAY OF CHAR;
      VAR spot: CARDINAL) : BOOLEAN;

  PROCEDURE SubStrMatch( str1: ARRAY OF CHAR;
      StartingAt1, EndingAt1: CARDINAL; VAR str2:
      ARRAY OF CHAR; StartingAt2, EndingAt2:
      CARDINAL ): BOOLEAN;

  PROCEDURE Init();

END PosUtils.