Import of GNU libg++ 2.7.1 port (prepared by Erik Theisen)

1 files changed, 34 insertions, 0 deletions

diff --git a/gnu/lib/libg++/libiberty/strchr.c b/gnu/lib/libg++/libiberty/strchr.c
new file mode 100644
index 00000000000..22976ce248a
--- /dev/null
+++ b/gnu/lib/libg++/libiberty/strchr.c
@@ -0,0 +1,34 @@
+/* Portable version of strchr()
+   This function is in the public domain.  */
+
+/*
+NAME
+	strchr -- return pointer to first occurance of a character
+
+SYNOPSIS
+	char *strchr (const char *s, int c)
+
+DESCRIPTION
+	Returns a pointer to the first occurance of character C in
+	string S, or a NULL pointer if no occurance is found.
+	
+BUGS
+	Behavior when character is the null character is implementation
+	dependent.
+*/
+
+#include <ansidecl.h>
+
+char *
+strchr (s, c)
+  register CONST char *s;
+  int c;
+{
+  do {
+    if (*s == c)
+      {
+	return (char*)s;
+      }
+  } while (*s++);
+  return (0);
+}