--- ray/src/cv/mgflib/words.c	1994/06/21 14:45:47	1.1
+++ ray/src/cv/mgflib/words.c	1995/05/10 17:55:51	1.2
@@ -104,3 +104,17 @@ char  *s, *ds;
 	cp = fskip(s);
 	return(cp != NULL && strchr(ds, *cp) != NULL);
 }
+
+
+int
+isname(s)			/* check for legal identifier name */
+register char  *s;
+{
+	while (*s == '_')			/* skip leading underscores */
+		s++;
+	if (!isascii(*s) || !isalpha(*s))	/* start with a letter */
+		return(0);
+	while (isascii(*++s) && isgraph(*s))	/* all visible characters */
+		;
+	return(*s == '\0');			/* ending in nul */
+}