ack/lang/cem/libcc/gen/strspn.c

15 lines
227 B
C
Raw Normal View History

1987-03-31 10:45:53 +00:00
/* $Header$ */
1987-01-27 15:57:55 +00:00
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;
}