gnu/dist/gdb6/libiberty/strchr.c

   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
   8 Returns a pointer to the first occurrence of the character @var{c} in
   9 the string @var{s}, or @code{NULL} if not found.  If @var{c} is itself the
  10 null character, the results are undefined.
  11
  12 @end deftypefn
  13
  14 */
  15
  16 #include <ansidecl.h>
  17
  18 char *
  19 strchr (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 }