home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LIB / unix.zoo / strspn.c < prev    next >
Text File  |  2009-11-06  |  703b  |  31 lines
  1. /*
  2.  * strspn - find length of initial segment of s consisting entirely
  3.  * of characters from accept
  4.  */
  5.  
  6. int strspn(s, accept)
  7.           char *s;
  8.           char *accept;
  9.           {
  10.           register char *sscan;
  11.           register char *ascan;
  12.           register int  count;
  13.  
  14.           count = 0;
  15.           for (sscan = s; *sscan ; sscan++)
  16.                {
  17.                for (ascan = accept; *ascan ; ascan++)
  18.                     {
  19.                     if (*sscan == *ascan)
  20.                          break;
  21.                     }
  22.                if (*ascan == '\0')
  23.                     return(count);
  24.                count++;
  25.                }
  26.  
  27.           return(count);
  28.  
  29.           } /* end of strspn */
  30.  
  31.