1/* Portable version of strchr()
2   This function is in the public domain.  */
3
4/*
5
6@deftypefn Supplemental char* strchr (const char *@var{s}, int @var{c})
7
8Returns a pointer to the first occurrence of the character @var{c} in
9the string @var{s}, or @code{NULL} if not found.  If @var{c} is itself the
10null character, the results are undefined.
11
12@end deftypefn
13
14*/
15
16#include <ansidecl.h>
17
18char *
19strchr (register const char *s, int c)
20{
21  do {
22    if (*s == c)
23      {
24	return (char*)s;
25      }
26  } while (*s++);
27  return (0);
28}
29