ack/lang/cem/libcc/gen/strspn.c
1994-06-24 14:02:31 +00:00

15 lines
223 B
C

/* $Id$ */
int
strspn(string, in)
char *string;
char *in;
{
register char *s1, *s2;
for (s1 = string; *s1; s1++) {
for (s2 = in; *s2 && *s2 != *s1; s2++) /* nothing */ ;
if (! *s2) break;
}
return s1 - string;
}