home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d110 / pdc.lha / Pdc / lib / strrchr.c < prev    next >
Text File  |  1987-10-28  |  553b  |  23 lines
  1. /*
  2.  * strrchr - find last occurrence of a character in a string
  3.  */
  4.  
  5. #define  NULL      0
  6.  
  7. char *                                 /* found char, or NULL if none */
  8. strrchr(s, charwanted)
  9. CONST char *s;
  10. register char charwanted;
  11. {
  12.          register CONST char *scan;
  13.          register CONST char *place;
  14.  
  15.          place = NULL;
  16.          for (scan = s; *scan != '\0'; scan++)
  17.                    if (*scan == charwanted)
  18.                              place = scan;
  19.          if (charwanted == '\0')
  20.                    return(scan);
  21.          return(place);
  22. }
  23.