home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / pdksh-4.9-src.lha / GNU / src / amiga / pdksh-4.9 / std / stdc / strspn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-04  |  537 b   |  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.