97 |
|
|
98 |
|
typedef void oputf_t(RAY *r); |
99 |
|
static oputf_t oputo, oputd, oputv, oputl, oputL, oputc, oputp, |
100 |
< |
oputn, oputN, oputs, oputw, oputW, oputm, oputM, oputdash; |
100 |
> |
oputn, oputN, oputs, oputw, oputW, oputm, oputM, oputtilde; |
101 |
|
|
102 |
|
static void setoutput(char *vs); |
103 |
|
static void tranotify(OBJECT obj); |
213 |
|
} |
214 |
|
fflush(stdout); |
215 |
|
if (vcount > 0) |
216 |
< |
error(USER, "read error"); |
216 |
> |
error(USER, "unexpected EOF on input"); |
217 |
|
if (fname != NULL) |
218 |
|
fclose(fp); |
219 |
|
} |
240 |
|
while (*vs) |
241 |
|
switch (*vs++) { |
242 |
|
case 'T': /* trace sources */ |
243 |
+ |
if (!*vs) break; |
244 |
|
trace_sources(); |
245 |
|
/* fall through */ |
246 |
|
case 't': /* trace */ |
247 |
+ |
if (!*vs) break; |
248 |
|
*table = NULL; |
249 |
|
table = every_out; |
250 |
|
trace = ourtrace; |
298 |
|
case 'M': /* material */ |
299 |
|
*table++ = oputM; |
300 |
|
break; |
301 |
< |
case '-': /* dash */ |
302 |
< |
*table++ = oputdash; |
301 |
> |
case '~': /* tilde */ |
302 |
> |
*table++ = oputtilde; |
303 |
|
break; |
304 |
|
} |
305 |
|
*table = NULL; |
679 |
|
|
680 |
|
|
681 |
|
static void |
682 |
< |
oputdash( /* output dash (spacer) */ |
682 |
> |
oputtilde( /* output tilde (spacer) */ |
683 |
|
RAY *r |
684 |
|
) |
685 |
|
{ |
686 |
< |
putchar('-'); |
685 |
< |
putchar('\t'); |
686 |
> |
fputs("~\t", stdout); |
687 |
|
} |
688 |
|
|
689 |
|
|