74 static source_t *top;  variable
102 	top = new_p;  in source_init()
150 	top = new_p;  in source_file()
166 	if (!top)  in source_input()
169 	c = getc(top->instream);  in source_input()
177 		if (top->instream == stdin) {  in source_input()
178 			if (top->isatty) {  in source_input()
185 		if (top->path)  in source_input()
186 			free(top->path);  in source_input()
187 		(void) fclose(top->instream);  in source_input()
188 		(void) queue_remove(&top->qn);  in source_input()
189 		free(top);  in source_input()
192 		top = (source_t *) queue_next(&stack, &stack);  in source_input()
194 		if (!top)  in source_input()
213 	if (top)  in source_unput()
214 		(void) ungetc(c, top->instream);  in source_unput()
238 	if (top)  in source_nl()
239 		top->linenum++;  in source_nl()
256 		top->path, top->linenum, s, yytext);  in yyerror()
282 	if (top && top->isatty)  in prompt()
299 	if (!top)  in semantic_err()
303 		top->path, top->linenum);  in semantic_err()