BBN-Vax-TCP/src/libstr/sverif.c

/* -------------------------- S V E R I F Y ------------------------- */
/*
 * sverify(string, cclass) verifies that string consists entirely of the
 * characters in cclass. Returns the index of the first occurrence
 * in string of a non-cclass character, or -1.
 */
sverify(str, ccl)
   char *str;
   char *ccl;
   {
   register char *p, *q;

   for (p = str; *p; p++)
      for (q = ccl; *p != *q; q++)
         if (*q == 0)
            return(p - str);
   return(-1); /* Didn't match */
   }