From bc70de7b3302d5a81515b901cae376b8b51d2004 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 13:09:56 +0300
Subject: Move to gawk-3.1.0.

---
 missing_d/strchr.c | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 missing_d/strchr.c

(limited to 'missing_d/strchr.c')

diff --git a/missing_d/strchr.c b/missing_d/strchr.c
new file mode 100644
index 00000000..7da479fc
--- /dev/null
+++ b/missing_d/strchr.c
@@ -0,0 +1,47 @@
+/*
+ * strchr --- search a string for a character
+ *
+ * We supply this routine for those systems that aren't standard yet.
+ */
+
+#if 0
+#include <stdio.h>
+#endif
+
+char *
+strchr(str, c)
+register const char *str, c;
+{
+	if (c == '\0') {
+		/* thanks to Mike Brennan ... */
+		do {
+			if (*str == c)
+				return (char *) str;
+		} while (*str++);
+	} else {
+		for (; *str; str++)
+			if (*str == c)
+				return (char *) str;
+	}
+
+	return NULL;
+}
+
+/*
+ * strrchr --- find the last occurrence of a character in a string
+ *
+ * We supply this routine for those systems that aren't standard yet.
+ */
+
+char *
+strrchr(str, c)
+register const char *str, c;
+{
+	register const char *save = NULL;
+
+	for (; *str; str++)
+		if (*str == c)
+			save = str;
+
+	return (char *) save;
+}
-- 
cgit v1.2.3