15 lines
227 B
C
15 lines
227 B
C
/* $Header$ */
|
|
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;
|
|
}
|