| 18 |
|
|
| 19 |
|
#include "calcomp.h" |
| 20 |
|
|
| 21 |
< |
#define MAXINP 16 /* maximum number of input files */ |
| 21 |
> |
#define MAXINP 32 /* maximum number of input files */ |
| 22 |
|
|
| 23 |
|
struct { |
| 24 |
|
char *name; /* file name */ |
| 82 |
|
fcompile(argv[++a]); |
| 83 |
|
break; |
| 84 |
|
case 'e': |
| 85 |
< |
scompile(NULL, argv[++a]); |
| 85 |
> |
scompile(argv[++a], NULL, 0); |
| 86 |
|
break; |
| 87 |
|
default: |
| 88 |
|
goto usage; |
| 121 |
|
input[nfiles].name = argv[a]; |
| 122 |
|
input[nfiles].fp = fopen(argv[a], "r"); |
| 123 |
|
if (input[nfiles].fp == NULL) { |
| 124 |
< |
eputs(argv[a]); |
| 125 |
< |
eputs(": cannot open\n"); |
| 124 |
> |
perror(argv[a]); |
| 125 |
|
quit(1); |
| 126 |
|
} |
| 127 |
|
} |
| 200 |
|
} |
| 201 |
|
} |
| 202 |
|
if (fwritescan(scanout, xres, stdout) < 0) { |
| 203 |
< |
eputs("write error\n"); |
| 203 |
> |
perror("write error"); |
| 204 |
|
quit(1); |
| 205 |
|
} |
| 206 |
|
} |