32 |
|
fp = stdin; |
33 |
|
else if ((fp = fopen(rfname, "r")) == NULL) { |
34 |
|
perror(rfname); |
35 |
< |
exit(1); |
35 |
> |
quit(1); |
36 |
|
} |
37 |
|
while (fgetline(buf, sizeof(buf), fp) != NULL) { |
38 |
|
for (cp = buf; *cp; cp++) { |
90 |
|
if (vp == NULL) { |
91 |
|
fprintf(stderr, "%s: unknown variable '%s'\n", |
92 |
|
progname, varname); |
93 |
< |
exit(1); |
93 |
> |
quit(1); |
94 |
|
} |
95 |
|
/* assign new value */ |
96 |
|
if (i = vp->nass) { |
104 |
|
vp->value = malloc(n+1); |
105 |
|
if (vp->value == NULL) { |
106 |
|
perror(progname); |
107 |
< |
exit(1); |
107 |
> |
quit(1); |
108 |
|
} |
109 |
|
cp = vp->value+i; /* copy value, squeezing spaces */ |
110 |
|
*cp = *ass; |
221 |
|
} |
222 |
|
fprintf(stderr, "%s: illegal value for boolean variable '%s'\n", |
223 |
|
progname, vp->name); |
224 |
< |
exit(1); |
224 |
> |
quit(1); |
225 |
|
} |
226 |
|
|
227 |
|
|
243 |
|
} |
244 |
|
fprintf(stderr, "%s: illegal value for qualitative variable '%s'\n", |
245 |
|
progname, vp->name); |
246 |
< |
exit(1); |
246 |
> |
quit(1); |
247 |
|
} |
248 |
|
|
249 |
|
|
255 |
|
if (isint(vp->value)) return; |
256 |
|
fprintf(stderr, "%s: illegal value for integer variable '%s'\n", |
257 |
|
progname, vp->name); |
258 |
< |
exit(1); |
258 |
> |
quit(1); |
259 |
|
} |
260 |
|
|
261 |
|
|
267 |
|
if (isflt(vp->value)) return; |
268 |
|
fprintf(stderr, "%s: illegal value for real variable '%s'\n", |
269 |
|
progname, vp->name); |
270 |
< |
exit(1); |
270 |
> |
quit(1); |
271 |
|
} |
272 |
|
|
273 |
|
|