| /* Portable version of strchr() | |
| This function is in the public domain. */ | |
| /* | |
| @deftypefn Supplemental char* strchr (const char *@var{s}, int @var{c}) | |
| Returns a pointer to the first occurrence of the character @var{c} in | |
| the string @var{s}, or @code{NULL} if not found. If @var{c} is itself the | |
| null character, the results are undefined. | |
| @end deftypefn | |
| */ | |
| #include <ansidecl.h> | |
| char * | |
| strchr (register const char *s, int c) | |
| { | |
| do { | |
| if (*s == c) | |
| { | |
| return (char*)s; | |
| } | |
| } while (*s++); | |
| return (0); | |
| } |