1169695Skan/* Portable version of strchr()
2169695Skan   This function is in the public domain.  */
3169695Skan
4169695Skan/*
5169695Skan
6169695Skan@deftypefn Supplemental char* strchr (const char *@var{s}, int @var{c})
7169695Skan
8169695SkanReturns a pointer to the first occurrence of the character @var{c} in
9169695Skanthe string @var{s}, or @code{NULL} if not found.  If @var{c} is itself the
10169695Skannull character, the results are undefined.
11169695Skan
12169695Skan@end deftypefn
13169695Skan
14169695Skan*/
15169695Skan
16169695Skan#include <ansidecl.h>
17169695Skan
18169695Skanchar *
19169695Skanstrchr (register const char *s, int c)
20169695Skan{
21169695Skan  do {
22169695Skan    if (*s == c)
23169695Skan      {
24169695Skan	return (char*)s;
25169695Skan      }
26169695Skan  } while (*s++);
27169695Skan  return (0);
28169695Skan}
29