lang/cem/libcc.ansi/string/strspn.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: strspn.c,v 1.2 1994/06/24 11:57:17 ceriel Exp $ */
   6
   7 #include        <string.h>
   8
   9 size_t
  10 strspn(const char *string, const char *in)
  11 {
  12         register const char *s1, *s2;
  13
  14         for (s1 = string; *s1; s1++) {
  15                 for (s2 = in; *s2 && *s2 != *s1; s2++)
  16                         /* EMPTY */ ;
  17                 if (*s2 == '\0')
  18                         break;
  19         }
  20         return s1 - string;
  21 }