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