contrib/opie/libmissing/strrchr.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

/* strrchr.c: A replacement for the strrchr function

%%% copyright-cmetz
This software is Copyright 1996 by Craig Metz, All Rights Reserved.
The Inner Net License Version 2 applies to this software.
You should have received a copy of the license with this software. If
you didn't get a copy, you may request one from <license@inner.net>.

        History:

	Created by cmetz for OPIE 2.3.
*/
#include "opie_cfg.h"
#include "opie.h"

char *strrchr FUNCTION((s, c), char *s AND int c)
{
#if HAVE_RINDEX
  return rindex(s, c);
#else /* HAVE_RINDEX */
  char *s2 = (char *)0;
  while(*s) { if (*s == c) s2 = s; s++ };
  return s2;
#endif /* HAVE_RINDEX */
}