--- ray/src/common/fgetline.c	1990/03/22 20:43:32	1.3
+++ ray/src/common/fgetline.c	2020/07/29 18:19:31	2.10
@@ -1,34 +1,43 @@
-/* Copyright (c) 1989 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: fgetline.c,v 2.10 2020/07/29 18:19:31 greg Exp $";
 #endif
-
 /*
  * fgetline.c - read line with escaped newlines.
  *
- *	10/4/89
+ *  External symbols declared in rtio.h
  */
 
-#include  <stdio.h>
+#include "copyright.h"
 
+#include  "rtio.h"
 
+
 char *
-fgetline(s, n, fp)	/* read in line with escapes, elide final newline */
-char  *s;
-int  n;
-register FILE  *fp;
+fgetline(		/* read in line with escapes, elide final newline */
+	char  *s,
+	int  n,
+	FILE  *fp
+)
 {
-	register char  *cp = s;
-	register int  c = EOF;
+	char  *cp = s;
+	int  c = EOF;
 
 	while (--n > 0 && (c = getc(fp)) != EOF) {
+		if (c == '\r' && (c = getc(fp)) != '\n') {
+			ungetc(c, fp);		/* must be Apple file */
+			c = '\n';
+		}
 		if (c == '\n' && (cp == s || cp[-1] != '\\'))
 			break;
 		*cp++ = c;
 	}
-	if (cp == s && c == EOF)
+	if ((cp == s) & (c == EOF))
 		return(NULL);
 	*cp = '\0';
+#if defined(_WIN32) || defined(_WIN64)
+						/* remove escaped newlines */
+	for (cp = s; (cp = strchr(cp, '\\')) != NULL && cp[1] == '\n'; )
+		memmove(cp, cp+2, strlen(cp+2)+1);
+#endif
 	return(s);
 }