home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Unix / CNews / Source / libfake / strcspn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-05-27  |  420 b   |  24 lines

  1. /*
  2.  * strcspn - find length of initial segment of s consisting entirely
  3.  * of characters not from reject
  4.  */
  5.  
  6. int
  7. strcspn(s, reject)
  8.  char *s;
  9.  char *reject;
  10. {
  11.     register  char *scan;
  12.     register  char *rscan;
  13.     register int count;
  14.  
  15.     count = 0;
  16.     for (scan = s; *scan != '\0'; scan++) {
  17.         for (rscan = reject; *rscan != '\0';)    /* ++ moved down. */
  18.             if (*scan == *rscan++)
  19.                 return(count);
  20.         count++;
  21.     }
  22.     return(count);
  23. }
  24.