1 files changed, 24 insertions, 0 deletions
diff --git a/strings/strrchr.c b/strings/strrchr.c
new file mode 100644
index 00000000000..5a045ac3740
--- /dev/null
+++ b/strings/strrchr.c
@@ -0,0 +1,24 @@
+/*  File   : strrchr.c
+    Author : Richard A. O'Keefe.
+    Updated: 10 April 1984
+    Defines: strrchr(), rindex()
+
+    strrchr(s, c) returns a pointer to the  last  place  in  s	where  c
+    occurs,  or  NullS if c does not occur in s. This function is called
+    rindex in V7 and 4.?bsd systems; while not ideal the name is clearer
+    than strrchr, so rindex  remains  in  strings.h  as  a  macro.   NB:
+    strrchr  looks  for single characters, not for sets or strings.  The
+    parameter 'c' is declared 'int' so it will go in a register; if your
+    C compiler is happy with register char change it to that.
+*/
+
+#include "strings.h"
+
+char *strrchr(register const char *s, register pchar c)
+{
+  reg3 char *t;
+
+  t = NullS;
+  do if (*s == (char) c) t = (char*) s; while (*s++);
+  return (char*) t;
+}