Repatch (from linux) of OSX IRAF

1 files changed, 32 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibc/getlin.c b/unix/boot/spp/rpp/ratlibc/getlin.c
new file mode 100644
index 00000000..1949f9cd
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/getlin.c
@@ -0,0 +1,32 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+FINT
+GETLIN(line, fd)
+RCHAR	*line;
+FINT	*fd;
+{
+	register  int c=0;
+	register  int count=0;
+	register  RCHAR *cs;
+	FILE	  *fp;
+
+	fp = _fdtofile[*fd];
+	cs = line;
+	while (++count<MAXLINE && (c = getc(fp))>=0) {
+	    *cs++ = c;
+	    if (c == '\n') {
+		*cs++ = REOS;
+		return (count);		/* count includes newline, but does
+				           not include the EOS */
+	    }
+	}
+
+	if (c<0 && cs==line)
+	    return(REOF);
+
+	*cs++ = REOS;
+	return(count);
+}