| 193 |
|
init(); /* set constants */ |
| 194 |
|
/* go back and get expressions */ |
| 195 |
|
for (a = 1; a < argc; a++) { |
| 196 |
+ |
char *fpath; |
| 197 |
|
if (argv[a][0] == '-') |
| 198 |
|
switch (argv[a][1]) { |
| 199 |
|
case 'x': |
| 207 |
|
case 'h': |
| 208 |
|
continue; |
| 209 |
|
case 'f': |
| 210 |
< |
fcompile(argv[++a]); |
| 210 |
> |
fpath = getpath(argv[++a], getrlibpath(), 0); |
| 211 |
> |
if (fpath == NULL) { |
| 212 |
> |
eputs(argv[0]); |
| 213 |
> |
eputs(": cannot find file '"); |
| 214 |
> |
eputs(argv[a]); |
| 215 |
> |
eputs("'\n"); |
| 216 |
> |
quit(1); |
| 217 |
> |
} |
| 218 |
> |
fcompile(fpath); |
| 219 |
|
continue; |
| 220 |
|
case 'e': |
| 221 |
|
scompile(argv[++a], NULL, 0); |