Revert "Remove libberty."

[pf3gnuchains/pf3gnuchains4x.git] / libiberty / strrchr.c

diff --git a/libiberty/strrchr.c b/libiberty/strrchr.c
new file mode 100644 (file)
index 0000000..5cf7c14
--- /dev/null
+++ b/libiberty/strrchr.c
@@ -0,0 +1,28 @@
+/* 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);
+}