--- ray/src/common/fgetword.c	1991/07/22 13:55:12	1.1
+++ ray/src/common/fgetword.c	2023/02/10 04:32:19	2.9
@@ -1,85 +1,61 @@
-/* Copyright (c) 1991 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: fgetword.c,v 2.9 2023/02/10 04:32:19 greg Exp $";
 #endif
-
 /*
  * Read white space separated words from stream
+ *
+ *  External symbols declared in rtio.h
  */
 
-#include  <stdio.h>
+#include "copyright.h"
 
+#include  "rtio.h"
+
 #include  <ctype.h>
 
 
+#define isquote(c)	(((c) == '"') | ((c) == '\''))
+
+
 char *
-fgetword(s, n, fp)		/* get a word, maximum n-1 characters */
-char  *s;
-int  n;
-register FILE  *fp;
+fgetword(			/* get (quoted) word up to n-1 characters */
+	char  *s,
+	int  n,
+	FILE  *fp
+)
 {
-	register char  *cp;
-	register int  c;
+	int  quote = '\0';
+	char  *cp;
+	int  c;
+					/* sanity checks */
+	if ((s == NULL) | (n < 2))
+		return(NULL);
 					/* skip initial white space */
 	do
 		c = getc(fp);
 	while (isspace(c));
-					/* check for end of file */
-	if (c == EOF)
-		return(NULL);
-					/* get actual word */
-	cp = s;
-	do {
-		if (--n <= 0)			/* check length limit */
-			break;
-		*cp++ = c;
+					/* check for quote */
+	if (isquote(c)) {
+		quote = c;
 		c = getc(fp);
-	} while (c != EOF && !isspace(c));
+	}
+	cp = s;				/* get actual word */
+	while (c != EOF) {
+		if (c == quote)		/* end quote? */
+			quote = '\0';
+		else if (!quote && isquote(c))
+			quote = c;	/* started new quote */
+		else {
+			if (!quote && isspace(c))
+				break;	/* end of word */
+			if (--n <= 0)
+				break;	/* hit length limit */
+			*cp++ = c;
+		}
+		c = getc(fp);		/* get next character */
+	}
 	*cp = '\0';
-	if (c != EOF)			/* replace delimiter */
-		ungetc(c, fp);
+	if ((c == EOF) & (cp == s))	/* hit end-of-file? */
+		return(NULL);
 	return(s);
-}
-
-
-isint(s)			/* check integer format */
-char  *s;
-{
-	register char  *cp = s;
-
-	while (isspace(*cp))
-		cp++;
-	if (*cp == '-' || *cp == '+')
-		cp++;
-	do
-		if (!isdigit(*cp))
-			return(0);
-	while (*++cp);
-	return(1);
-}
-
-
-isflt(s)			/* check float format */
-char  *s;
-{
-	register char  *cp = s;
-
-	while (isspace(*cp))
-		cp++;
-	if (*cp == '-' || *cp == '+')
-		cp++;
-	s = cp;
-	while (isdigit(*cp))
-		cp++;
-	if (*cp == '.') {
-		cp++; s++;
-		while (isdigit(*cp))
-			cp++;
-	}
-	if (cp == s)
-		return(0);
-	if (*cp == 'e' || *cp == 'E')
-		return(isint(cp+1));
-	return(1);
 }