39 	{	fprintf(th, "\n\t");  in putnr()
42 	fprintf(th, "%3d, ", n);  in putnr()
52 		fprintf(th, "{ \"%s\", %d, %d },\n\t",  in putfnm()
64 		fprintf(th, "{ \"%s\", %d, %d }\n",  in putfnm_flush()
126 	fprintf(th, "uchar reached%d [] = {\n\t", m);  in dumpskip()
141 	fprintf(th, "};\n");  in dumpskip()
143 	fprintf(th, "uchar *loopstate%d;\n", m);  in dumpskip()
146 		fprintf(th, "#define reached_event	reached%d\n", m);  in dumpskip()
157 	fprintf(th, "short src_ln%d [] = {\n\t", m);  in dumpsrc()
168 	fprintf(th, "};\n");  in dumpsrc()
172 	fprintf(th, "S_F_MAP src_file%d [] = {\n\t", m);  in dumpsrc()
188 	fprintf(th, "};\n");  in dumpsrc()
191 	{	fprintf(th, "short *src_claim;\n");  in dumpsrc()
195 		fprintf(th, "#define src_event	src_ln%d\n", m);  in dumpsrc()
201 #define Cat0(x)   	comwork(fd,now->lft,m); fprintf(fd, x); \
203 #define Cat1(x)		fprintf(fd,"("); Cat0(x); fprintf(fd,")")
204 #define Cat2(x,y)  	fprintf(fd,x); comwork(fd,y,m)
205 #define Cat3(x,y,z)	fprintf(fd,x); comwork(fd,y,m); fprintf(fd,z)
215 		{	fprintf(fd, "%s", n->lft->sym->name);  in symbolic()
226 	if (!now) { fprintf(fd, "0"); return; }  in comwork()
252 				fprintf(fd, "(");  in comwork()
253 				fprintf(fd, "%s", p->sym->name);  in comwork()
255 				{	fprintf(fd, "[");  in comwork()
257 					fprintf(fd, "]");  in comwork()
259 				fprintf(fd, "@");  in comwork()
260 				fprintf(fd, "%s", now->rgt->sym->name);  in comwork()
261 				fprintf(fd, ")");  in comwork()
272 	case RUN:	fprintf(fd, "run %s(", now->sym->name);  in comwork()
279 			fprintf(fd, ")");  in comwork()
295 			{	if (v != now->rgt) fprintf(fd,",");  in comwork()
303 			case 1: fprintf(fd, "?");  break;  in comwork()
304 			case 2: fprintf(fd, "<");  break;  in comwork()
305 			case 3: fprintf(fd, "?<"); break;  in comwork()
308 			{	if (v != now->rgt) fprintf(fd,",");  in comwork()
313 				fprintf(fd, ">");  in comwork()
317 			{	if (v != now->rgt) fprintf(fd,",");  in comwork()
321 			fprintf(fd, "]");  in comwork()
331 			fprintf(fd, "np_");  in comwork()
350 			fprintf(fd," = ");  in comwork()
364 					fprintf(fd, "printf");  in comwork()
366 					fprintf(fd, "annotate");  in comwork()
367 				fprintf(fd, "(%s", buf);  in comwork()
372 			fprintf(fd, ")");  in comwork()
374 	case PRINTM:	fprintf(fd, "printm(");  in comwork()
376 			fprintf(fd, ")");  in comwork()
383 			{	fprintf(fd, "%s", now->lft->sym->name); /* proctype */  in comwork()
385 				{	fprintf(fd, "[");  in comwork()
387 					fprintf(fd, "]");  in comwork()
389 				fprintf(fd, ":");	/* remote varref */  in comwork()
390 				fprintf(fd, "%s", now->sym->name);	/* varname */  in comwork()
395 	case   'q':	fprintf(fd, "%s", now->sym->name);  in comwork()
398 	case C_CODE:	fprintf(fd, "{%s}", now->sym->name);  in comwork()
402 	case   '.':	fprintf(fd, ".(goto)"); break;  in comwork()
403 	case  GOTO:	fprintf(fd, "goto %s", now->sym->name); break;  in comwork()
404 	case BREAK:	fprintf(fd, "break"); break;  in comwork()
405 	case  ELSE:	fprintf(fd, "else"); break;  in comwork()
406 	case   '@':	fprintf(fd, "-end-"); break;  in comwork()
408 	case D_STEP:	fprintf(fd, "D_STEP"); break;  in comwork()
409 	case ATOMIC:	fprintf(fd, "ATOMIC"); break;  in comwork()
410 	case NON_ATOMIC: fprintf(fd, "sub-sequence"); break;  in comwork()
411 	case IF:	fprintf(fd, "IF"); break;  in comwork()
412 	case DO:	fprintf(fd, "DO"); break;  in comwork()
413 	case UNLESS:	fprintf(fd, "unless"); break;  in comwork()
414 	case TIMEOUT:	fprintf(fd, "timeout"); break;  in comwork()
416 				fprintf(fd, "'%c'", now->ntyp);  in comwork()
418 				fprintf(fd, "%d", now->ntyp);  in comwork()