/* * Copyright 2007 Jon Loeliger, Freescale Semiconductor, Inc. * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of the * License, or (at your option) any later version. * *  This program is distributed in the hope that it will be useful, *  but WITHOUT ANY WARRANTY; without even the implied warranty of *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU *  General Public License for more details. * *  You should have received a copy of the GNU General Public License *  along with this program; if not, write to the Free Software *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 *                                                                   USA */ #include "dtc.h"#include "srcpos.h" /* * Like yylineno, this is the current open file pos. */ struct dtc_file *srcpos_file; static int dtc_open_one(struct dtc_file *file,                        const char *search,                        const char *fname){	char *fullname; 	if (search) {		fullname = xmalloc(strlen(search) + strlen(fname) + 2); 		strcpy(fullname, search);		strcat(fullname, "/");		strcat(fullname, fname);	} else {		fullname = strdup(fname);	} 	file->file = fopen(fullname, "r");	if (!file->file) {		free(fullname);		return 0;	} 	file->name = fullname;	return 1;}  struct dtc_file *dtc_open_file(const char *fname,                               const struct search_path *search){	static const struct search_path default_search = { NULL, NULL, NULL }; 	struct dtc_file *file;	const char *slash; 	file = xmalloc(sizeof(struct dtc_file)); 	slash = strrchr(fname, '/');	if (slash) {		char *dir = xmalloc(slash - fname + 1); 		memcpy(dir, fname, slash - fname);		dir[slash - fname] = 0;		file->dir = dir;	} else {		file->dir = NULL;	} 	if (streq(fname, "-")) {		file->name = "stdin";		file->file = stdin;		return file;	} 	if (fname[0] == '/') {		file->file = fopen(fname, "r");		if (!file->file)			goto fail; 		file->name = strdup(fname);		return file;	} 	if (!search)		search = &default_search; 	while (search) {		if (dtc_open_one(file, search->dir, fname))			return file; 		if (errno != ENOENT)			goto fail; 		search = search->next;	} fail:	die("Couldn't open \"%s\": %s\n", fname, strerror(errno));} void dtc_close_file(struct dtc_file *file){	if (fclose(file->file))		die("Error closing \"%s\": %s\n", file->name, strerror(errno)); 	free(file->dir);	free(file);}