Repatch (from linux) of OSX IRAF

1 files changed, 39 insertions, 0 deletions

diff --git a/unix/boot/bootlib/index.c b/unix/boot/bootlib/index.c
new file mode 100644
index 00000000..e3387060
--- /dev/null
+++ b/unix/boot/bootlib/index.c
@@ -0,0 +1,39 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+
+#ifdef LINUX
+#define NOINDEX
+#endif
+#ifdef MACOSX
+/* The following effectively disables the local version. */
+#define index strindex
+#endif
+
+/* index and rindex are provided by most systems and are redundantly defined
+ * here only in case they are missing (we probably should be using the more
+ * modern strchr etc. but that is another thing).  Linux (slackware at least)
+ * defines these in the same libc.a object module as strchr etc. (this is a
+ * bug), which causes a library conflict.  Hence on Linux systems we omit
+ * these functions.
+ */
+#ifndef NOINDEX
+
+/* INDEX -- Return pointer to the first occurrence of a character in a string,
+ * or null if the char is not found.
+ */
+char *
+index ( char *str, int ch)
+{
+	register char	*ip;
+	register int	cch;
+
+	for (ip=str;  (cch = *ip);  ip++)
+	    if (cch == ch)
+		return (ip);
+
+	return (NULL);
+}
+
+#endif