--- ray/src/common/fgetword.c 1991/07/22 13:55:12 1.1 +++ ray/src/common/fgetword.c 1991/07/22 14:33:06 1.2 @@ -41,45 +41,3 @@ register FILE *fp; ungetc(c, fp); 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); -}