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); |