| /* Portable version of strrchr(). | 
 |    This function is in the public domain. */ | 
 |  | 
 | /* | 
 |  | 
 | @deftypefn Supplemental char* strrchr (const char *@var{s}, int @var{c}) | 
 |  | 
 | Returns a pointer to the last 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 * | 
 | strrchr (register const char *s, int c) | 
 | { | 
 |   char *rtnval = 0; | 
 |  | 
 |   do { | 
 |     if (*s == c) | 
 |       rtnval = (char*) s; | 
 |   } while (*s++); | 
 |   return (rtnval); | 
 | } |