--- ray/src/common/fgetword.c	1991/11/12 16:56:03	2.1
+++ ray/src/common/fgetword.c	2003/02/25 02:47:21	2.3
@@ -1,43 +1,50 @@
-/* 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.3 2003/02/25 02:47:21 greg Exp $";
 #endif
-
 /*
  * Read white space separated words from stream
+ *
+ *  External symbols declared in standard.h
  */
 
+#include "copyright.h"
+
 #include  <stdio.h>
 
 #include  <ctype.h>
 
 
 char *
-fgetword(s, n, fp)		/* get a word, maximum n-1 characters */
+fgetword(s, n, fp)		/* get (quoted) word up to n-1 characters */
 char  *s;
 int  n;
 register FILE  *fp;
 {
+	int  quote = '\0';
 	register char  *cp;
 	register int  c;
 					/* skip initial white space */
 	do
 		c = getc(fp);
 	while (isspace(c));
+					/* check for quote */
+	if ((c == '"' | c == '\'')) {
+		quote = c;
+		c = getc(fp);
+	}
 					/* check for end of file */
 	if (c == EOF)
 		return(NULL);
 					/* get actual word */
 	cp = s;
 	do {
-		if (--n <= 0)			/* check length limit */
+		if (--n <= 0)		/* check length limit */
 			break;
 		*cp++ = c;
 		c = getc(fp);
-	} while (c != EOF && !isspace(c));
+	} while (c != EOF && !(quote ? c==quote : isspace(c)));
 	*cp = '\0';
-	if (c != EOF)			/* replace delimiter */
+	if ((c != EOF & !quote))	/* replace space */
 		ungetc(c, fp);
 	return(s);
 }