Topspeed_JPI/TS/REP16/SCANUTIL.DEF

DEFINITION MODULE ScanUtils;
(*
 *  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/scanutil.dev   1.1   17 Mar 1991 18:05:02   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS, BYTE;

  TYPE
    CaseSensitivity = (CaseSens, CaseInsens);

  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;
      caseMatters: CaseSensitivity ): BOOLEAN;

  PROCEDURE FindNthPattern(pattern: ARRAY OF CHAR;
      which: CARDINAL; searchIn: ARRAY OF CHAR;
      caseMatters: CaseSensitivity ): 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; caseMatters: CaseSensitivity ):
      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; caseMatters:
      CaseSensitivity ): CARDINAL;

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

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

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

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

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

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

  PROCEDURE ScanForByte(size : INTEGER; lookfor : BYTE;
      start : ADDRESS; caseMatters: CaseSensitivity ):
      INTEGER;

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

  PROCEDURE Init();

END ScanUtils.