home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / pdksh-4.9-src.tgz / tar.out / contrib / pdksh / std / stdc / strspn.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  537b  |  29 lines
  1. #include <string.h>
  2. /* $Id: strspn.c,v 1.3 93/05/05 21:18:54 sjg Exp $ */
  3.  
  4. /*
  5.  * strspn - find length of initial segment of s consisting entirely
  6.  * of characters from accept
  7.  */
  8.  
  9. size_t
  10. strspn(s, accept)
  11. const char *s;
  12. const char *accept;
  13. {
  14.     register const char *sscan;
  15.     register const char *ascan;
  16.     register size_t count;
  17.  
  18.     count = 0;
  19.     for (sscan = s; *sscan != '\0'; sscan++) {
  20.         for (ascan = accept; *ascan != '\0'; ascan++)
  21.             if (*sscan == *ascan)
  22.                 break;
  23.         if (*ascan == '\0')
  24.             return(count);
  25.         count++;
  26.     }
  27.     return(count);
  28. }
  29.