contrib/opie/libmissing/strrchr.c

   1 /* strrchr.c: A replacement for the strrchr function
   2
   3 %%% copyright-cmetz
   4 This software is Copyright 1996 by Craig Metz, All Rights Reserved.
   5 The Inner Net License Version 2 applies to this software.
   6 You should have received a copy of the license with this software. If
   7 you didn't get a copy, you may request one from <license@inner.net>.
   8
   9         History:
  10
  11         Created by cmetz for OPIE 2.3.
  12 */
  13 #include "opie_cfg.h"
  14 #include "opie.h"
  15
  16 char *strrchr FUNCTION((s, c), char *s AND int c)
  17 {
  18 #if HAVE_RINDEX
  19   return rindex(s, c);
  20 #else /* HAVE_RINDEX */
  21   char *s2 = (char *)0;
  22   while(*s) { if (*s == c) s2 = s; s++ };
  23   return s2;
  24 #endif /* HAVE_RINDEX */
  25 }