--- ray/src/common/loadvars.c 1996/01/17 15:45:16 2.2 +++ ray/src/common/loadvars.c 1997/03/20 12:29:20 2.5 @@ -18,7 +18,9 @@ static char SCCSid[] = "$SunId$ LBL"; extern char *malloc(), *realloc(); #endif +extern char *fgetline(); + loadvars(rfname) /* load variables into vv from file */ char *rfname; { @@ -30,7 +32,7 @@ char *rfname; fp = stdin; else if ((fp = fopen(rfname, "r")) == NULL) { perror(rfname); - exit(1); + quit(1); } while (fgetline(buf, sizeof(buf), fp) != NULL) { for (cp = buf; *cp; cp++) { @@ -76,9 +78,11 @@ register char *ass; for (n = strlen(ass); n > 0; n--) if (!isspace(ass[n-1])) break; - if (!n && !nowarn) { - fprintf(stderr, "%s: warning - missing value for variable '%s'\n", - progname, varname); + if (!n) { + if (!nowarn) + fprintf(stderr, + "%s: warning - missing value for variable '%s'\n", + progname, varname); return; } /* match variable from list */ @@ -86,7 +90,7 @@ register char *ass; if (vp == NULL) { fprintf(stderr, "%s: unknown variable '%s'\n", progname, varname); - exit(1); + quit(1); } /* assign new value */ if (i = vp->nass) { @@ -100,7 +104,7 @@ register char *ass; vp->value = malloc(n+1); if (vp->value == NULL) { perror(progname); - exit(1); + quit(1); } cp = vp->value+i; /* copy value, squeezing spaces */ *cp = *ass; @@ -217,7 +221,7 @@ register VARIABLE *vp; } fprintf(stderr, "%s: illegal value for boolean variable '%s'\n", progname, vp->name); - exit(1); + quit(1); } @@ -239,7 +243,7 @@ register VARIABLE *vp; } fprintf(stderr, "%s: illegal value for qualitative variable '%s'\n", progname, vp->name); - exit(1); + quit(1); } @@ -251,7 +255,7 @@ register VARIABLE *vp; if (isint(vp->value)) return; fprintf(stderr, "%s: illegal value for integer variable '%s'\n", progname, vp->name); - exit(1); + quit(1); } @@ -263,7 +267,7 @@ register VARIABLE *vp; if (isflt(vp->value)) return; fprintf(stderr, "%s: illegal value for real variable '%s'\n", progname, vp->name); - exit(1); + quit(1); }