rexx/lstring/verify.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:38  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:20:58  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <string.h>
  13 #include <lstring.h>
  14
  15 /* --------------------- Lverify  ----------------------- *
  16  *  str      -  string that we check every char           *
  17  *              if it exists on 'ref'                     *
  18  *  ref      -  reference characters                      *
  19  *  match    -  FALSE = find non matching chars           *
  20  *              TRUE  = find only matching chars          *
  21  *  start    -  starting position [1,len]                 *
  22  * returns                                                *
  23  *    0         if every char is found (or not found)     *
  24  *              according to match                        *
  25  *   pos        else non matching (or matching) position  *
  26  * ------------------------------------------------------ */
  27 long
  28 Lverify( const PLstr str, const PLstr ref, const bool match, long start )
  29 {
  30         bool    found;
  31
  32         L2STR(str);
  33         L2STR(ref);
  34
  35         start--;
  36         if (start<0) start = 0;
  37         if (start >= LLEN(*str)) return LNOTFOUND;
  38
  39         for (; start<LLEN(*str); start++) {
  40                 found = (MEMCHR(LSTR(*ref), LSTR(*str)[start], LLEN(*ref))==NULL);
  41                 if (found ^ match) return start+1;
  42         }
  43         return LNOTFOUND;
  44 } /* Lverify */