40 FILE *traceout;  variable
63 	if (traceout && traceout != stderr)  in trace_file()
64 		fclose(traceout);  in trace_file()
65 	traceout = fopen(name, "w");  in trace_file()
66 	if (!traceout)  in trace_file()
139 	fprintf(traceout, "m4trace:");  in print_header()
141 		fprintf(traceout, "%s:", inp->name);  in print_header()
143 		fprintf(traceout, "%lu:", inp->lineno);  in print_header()
144 	fprintf(traceout, " -%d- ", frame_level());  in print_header()
146 		fprintf(traceout, "id %lu: ", expansion_id);  in print_header()
152 	if (!traceout)  in trace()
153 		traceout = stderr;  in trace()
156 		fprintf(traceout, "%s ...\n", argv[1]);  in trace()
159 	fprintf(traceout, "%s", argv[1]);  in trace()
167 			fprintf(traceout, "%s%s%s%s", delim,  in trace()
175 		fprintf(traceout, "%c", RPAREN);  in trace()
178 		fprintf(traceout, " -> ???\n");  in trace()
180 		fprintf(traceout, argc > 2 ? "%s(...)" : "%s", argv[1]);  in trace()
185 		fprintf(traceout, "\n");  in trace()
193 	fprintf(traceout, " -> ");  in finish_trace()
195 		fprintf(traceout, "%s", lquote);  in finish_trace()
196 	dump_buffer(traceout, mark);  in finish_trace()
198 		fprintf(traceout, "%s", rquote);  in finish_trace()
199 	fprintf(traceout, "\n");  in finish_trace()