/*LINTLIBRARY*/
#include "../port/port.h"
#ifdef LACK_SYS5
/*
 * strchr - find first occurrence of a character in a string
 */

char *				/* found char, or NULL if none */
strchr(s, charwanted)
CONST char *s;
register char charwanted;
{
	register CONST char *scan;

	/*
	 * The odd placement of the two tests is so NUL is findable.
	 */
	for (scan = s; *scan != charwanted;)	/* ++ moved down for opt. */
		if (*scan++ == '\0')
			return NULL;
	return scan;
}
#endif
