16  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
28 static char *dirname(const char *path)  in dirname()  argument
30 	const char *slash = strrchr(path, '/');  in dirname()
33 		int len = slash - path;  in dirname()
36 		memcpy(dir, path, len);  in dirname()
55 	if (streq(fname, "-")) {  in srcfile_relative_open()
59 		if (!current_srcfile || !current_srcfile->dir  in srcfile_relative_open()
63 			fullname = join_path(current_srcfile->dir, fname);  in srcfile_relative_open()
91 	srcfile->f = srcfile_relative_open(fname, &srcfile->name);  in srcfile_push()
92 	srcfile->dir = dirname(srcfile->name);  in srcfile_push()
93 	srcfile->prev = current_srcfile;  in srcfile_push()
95 	srcfile->lineno = 1;  in srcfile_push()
96 	srcfile->colno = 1;  in srcfile_push()
107 	current_srcfile = srcfile->prev;  in srcfile_pop()
109 	if (fclose(srcfile->f))  in srcfile_pop()
110 		die("Error closing \"%s\": %s\n", srcfile->name,  in srcfile_pop()
140 	pos->file = current_srcfile;  in srcpos_update()
142 	pos->first_line = current_srcfile->lineno;  in srcpos_update()
143 	pos->first_column = current_srcfile->colno;  in srcpos_update()
147 			current_srcfile->lineno++;  in srcpos_update()
148 			current_srcfile->colno = 1;  in srcpos_update()
150 			current_srcfile->colno =  in srcpos_update()
151 				ALIGN(current_srcfile->colno, TAB_SIZE);  in srcpos_update()
153 			current_srcfile->colno++;  in srcpos_update()
156 	pos->last_line = current_srcfile->lineno;  in srcpos_update()
157 	pos->last_column = current_srcfile->colno;  in srcpos_update()
177 	       pos->file ? (char *) pos->file : "<no file>");  in srcpos_dump()
178 	printf("first_line  : %d\n", pos->first_line);  in srcpos_dump()
179 	printf("first_column: %d\n", pos->first_column);  in srcpos_dump()
180 	printf("last_line   : %d\n", pos->last_line);  in srcpos_dump()
181 	printf("last_column : %d\n", pos->last_column);  in srcpos_dump()
182 	printf("file        : %s\n", pos->file->name);  in srcpos_dump()
189 	const char *fname = "<no-file>";  in srcpos_string()
194 		fname = pos->file->name;  in srcpos_string()
197 	if (pos->first_line != pos->last_line)  in srcpos_string()
198 		rc = asprintf(&pos_str, "%s:%d.%d-%d.%d", fname,  in srcpos_string()
199 			      pos->first_line, pos->first_column,  in srcpos_string()
200 			      pos->last_line, pos->last_column);  in srcpos_string()
201 	else if (pos->first_column != pos->last_column)  in srcpos_string()
202 		rc = asprintf(&pos_str, "%s:%d.%d-%d", fname,  in srcpos_string()
203 			      pos->first_line, pos->first_column,  in srcpos_string()
204 			      pos->last_column);  in srcpos_string()
207 			      pos->first_line, pos->first_column);  in srcpos_string()
209 	if (rc == -1)  in srcpos_string()
222        fprintf(stdout, "Error: %s ", srcstr);  in srcpos_verror()
223        vfprintf(stdout, fmt, va);  in srcpos_verror()
224        fprintf(stdout, "\n");  in srcpos_verror()