10 |
|
|
11 |
|
#include "paths.h" /* win_popen() */ |
12 |
|
#include "mkillum.h" |
13 |
+ |
#include "func.h" |
14 |
|
|
15 |
|
/* default parameters */ |
16 |
|
#define SAMPDENS 48 /* points per projected steradian */ |
46 |
|
int warnings = 1; /* print warnings? */ |
47 |
|
|
48 |
|
void init(char *octnm, int np); |
49 |
< |
void filter(register FILE *infp, char *name); |
49 |
> |
void filter(FILE *infp, char *name); |
50 |
|
void xoptions(char *s, char *nm); |
51 |
|
void printopts(void); |
52 |
< |
void printhead(register int ac, register char **av); |
52 |
> |
void printhead(int ac, char **av); |
53 |
|
void xobject(FILE *fp, char *nm); |
54 |
|
|
55 |
|
|
62 |
|
int nprocs = 1; |
63 |
|
FILE *fp; |
64 |
|
int rval; |
65 |
< |
register int i; |
65 |
> |
int i; |
66 |
|
/* set global arguments */ |
67 |
|
gargv = argv; |
68 |
|
progname = gargv[0]; |
70 |
|
dstrsrc = 0.5; |
71 |
|
directrelay = 3; |
72 |
|
ambounce = 2; |
73 |
+ |
/* initialize calcomp routines */ |
74 |
+ |
initfunc(); |
75 |
|
/* get options from command line */ |
76 |
|
for (i = 1; i < argc; i++) { |
77 |
|
while ((rval = expandarg(&argc, &argv, i)) > 0) |
151 |
|
|
152 |
|
void |
153 |
|
eputs( /* put string to stderr */ |
154 |
< |
register char *s |
154 |
> |
const char *s |
155 |
|
) |
156 |
|
{ |
157 |
|
static int midline = 0; |
167 |
|
|
168 |
|
|
169 |
|
void |
170 |
< |
wputs(s) /* print warning if enabled */ |
168 |
< |
char *s; |
170 |
> |
wputs(const char *s) /* print warning if enabled */ |
171 |
|
{ |
172 |
|
if (warnings) |
173 |
|
eputs(s); |
175 |
|
|
176 |
|
|
177 |
|
void |
178 |
< |
quit(ec) /* make sure exit is called */ |
177 |
< |
int ec; |
178 |
> |
quit(int ec) /* make sure exit is called */ |
179 |
|
{ |
180 |
|
if (ray_pnprocs > 0) /* close children if any */ |
181 |
< |
ray_pclose(0); |
181 |
> |
ray_pclose(0); |
182 |
> |
else if (ray_pnprocs < 0) |
183 |
> |
_exit(ec); /* avoid flush() in child */ |
184 |
|
exit(ec); |
185 |
|
} |
186 |
|
|
187 |
|
|
188 |
|
void |
189 |
|
filter( /* process stream */ |
190 |
< |
register FILE *infp, |
190 |
> |
FILE *infp, |
191 |
|
char *name |
192 |
|
) |
193 |
|
{ |
194 |
|
char buf[512]; |
195 |
|
FILE *pfp; |
196 |
< |
register int c; |
196 |
> |
int c; |
197 |
|
|
198 |
|
while ((c = getc(infp)) != EOF) { |
199 |
|
if (isspace(c)) |
210 |
|
error(SYSTEM, errmsg); |
211 |
|
} |
212 |
|
filter(pfp, buf); |
213 |
< |
pclose(pfp); |
213 |
> |
if (pclose(pfp) != 0) { |
214 |
> |
sprintf(errmsg, "bad status from \"%s\"", buf); |
215 |
> |
error(WARNING, errmsg); |
216 |
> |
} |
217 |
|
} else { /* object */ |
218 |
|
ungetc(c, infp); |
219 |
|
xobject(infp, name); |
228 |
|
char *nm |
229 |
|
) |
230 |
|
{ |
225 |
– |
extern FILE *freopen(); |
231 |
|
char buf[64]; |
232 |
|
int negax; |
233 |
|
int nerrs = 0; |
234 |
< |
register char *cp; |
234 |
> |
char *cp; |
235 |
|
|
236 |
|
if (strncmp(s, "#@mkillum", 9) || !isspace(s[9])) { |
237 |
|
fputs(s, stdout); /* not for us */ |
414 |
|
|
415 |
|
void |
416 |
|
printhead( /* print out header */ |
417 |
< |
register int ac, |
418 |
< |
register char **av |
417 |
> |
int ac, |
418 |
> |
char **av |
419 |
|
) |
420 |
|
{ |
421 |
|
putchar('#'); |