From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/boot/spp/rpp/ratlibc/getlin.c | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 unix/boot/spp/rpp/ratlibc/getlin.c

(limited to 'unix/boot/spp/rpp/ratlibc/getlin.c')

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);
+}
-- 
cgit