1 files changed, 59 insertions, 0 deletions

diff --git a/firmware/libc/strrchr.c b/firmware/libc/strrchr.c
new file mode 100644
index 0000000000..31b0d049b3
--- /dev/null
+++ b/firmware/libc/strrchr.c
@@ -0,0 +1,59 @@
+/*
+FUNCTION
+        <<strrchr>>---reverse search for character in string
+
+INDEX
+        strrchr
+
+ANSI_SYNOPSIS
+        #include <string.h>
+        char * strrchr(const char *<[string]>, int <[c]>);
+
+TRAD_SYNOPSIS
+        #include <string.h>
+        char * strrchr(<[string]>, <[c]>);
+        char *<[string]>;
+        int *<[c]>;
+
+DESCRIPTION
+        This function finds the last occurence of <[c]> (converted to
+        a char) in the string pointed to by <[string]> (including the
+        terminating null character).
+
+RETURNS
+        Returns a pointer to the located character, or a null pointer
+        if <[c]> does not occur in <[string]>.
+
+PORTABILITY
+<<strrchr>> is ANSI C.
+
+<<strrchr>> requires no supporting OS subroutines.
+
+QUICKREF
+        strrchr ansi pure
+*/
+
+#include <string.h>
+
+char *
+_DEFUN (strrchr, (s, i),
+        _CONST char *s _AND
+        int i)
+{
+  _CONST char *last = NULL;
+
+  if (i)
+    {
+      while ((s=strchr(s, i)))
+        {
+          last = s;
+          s++;
+        }
+    }
+  else
+    {
+      last = strchr(s, i);
+    }
+                  
+  return (char *) last;
+}