1*30471Slepreau static char Sccsid[] "@(#)any	2.1";
2*30471Slepreau /*
3*30471Slepreau 	If any character of `s' is `c', return 1
4*30471Slepreau 	else return 0.
5*30471Slepreau */
6*30471Slepreau 
7*30471Slepreau any(c,s)
8*30471Slepreau register char c, *s;
9*30471Slepreau {
10*30471Slepreau 	while (*s)
11*30471Slepreau 		if (*s++ == c)
12*30471Slepreau 			return(1);
13*30471Slepreau 	return(0);
14*30471Slepreau }
15