Repatch (from linux) of OSX IRAF

1 files changed, 34 insertions, 0 deletions

diff --git a/sys/libc/gets.c b/sys/libc/gets.c
new file mode 100644
index 00000000..309efa11
--- /dev/null
+++ b/sys/libc/gets.c
@@ -0,0 +1,34 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#define	import_spp
+#define	import_libc
+#define	import_stdio
+#include <iraf.h>
+
+
+/* GETS -- Read a newline terminated sequence from the standard input and
+** return the resultant string minus the newline to the user.
+*/
+char *
+gets (
+  char	*buf			/* user supplied output buffer	*/
+)
+{
+	register FILE	*fp = stdin;
+	register char	*op = buf;
+	register int	ch;
+
+
+	while ((ch = getc (fp)) != EOF) {
+	    if (ch == '\n')
+		break;
+	    *op++ = ch;
+	}
+	*op = EOS;
+
+	if (ch == EOF && op == buf)
+	    return ((char *) NULL);
+	else
+	    return (buf);
+}