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  }