1*30488Slepreau static char Sccsid[] = "@(#)any.c	1.2	02/15/87";
230471Slepreau /*
330471Slepreau 	If any character of `s' is `c', return 1
430471Slepreau 	else return 0.
530471Slepreau */
630471Slepreau 
any(c,s)730471Slepreau any(c,s)
830471Slepreau register char c, *s;
930471Slepreau {
1030471Slepreau 	while (*s)
1130471Slepreau 		if (*s++ == c)
1230471Slepreau 			return(1);
1330471Slepreau 	return(0);
1430471Slepreau }
15