| 1 | |
| 2 | * Copyright 2007 Jon Loeliger, Freescale Semiconductor, Inc.
|
| 3 | *
|
| 4 | * This program is free software; you can redistribute it and/or
|
| 5 | * modify it under the terms of the GNU General Public License as
|
| 6 | * published by the Free Software Foundation; either version 2 of the
|
| 7 | * License, or (at your option) any later version.
|
| 8 | *
|
| 9 | * This program is distributed in the hope that it will be useful,
|
| 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
| 12 | * General Public License for more details.
|
| 13 | *
|
| 14 | * You should have received a copy of the GNU General Public License
|
| 15 | * along with this program; if not, write to the Free Software
|
| 16 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
| 17 | * USA
|
| 18 |
|
| 19 |
|
| 20 | #include "dtc.h"
|
| 21 | #include "srcpos.h"
|
| 22 |
|
| 23 | |
| 24 | * Like yylineno, this is the current open file pos.
|
| 25 |
|
| 26 |
|
| 27 | struct dtc_file *srcpos_file;
|
| 28 |
|
| 29 | static int dtc_open_one(struct dtc_file *file,
|
| 30 | const char *search,
|
| 31 | const char *fname)
|
| 32 | {
|
| 33 | char *fullname;
|
| 34 |
|
| 35 | if (search) {
|
| 36 | fullname = xmalloc(strlen(search) + strlen(fname) + 2);
|
| 37 |
|
| 38 | strcpy(fullname, search);
|
| 39 | strcat(fullname, "/");
|
| 40 | strcat(fullname, fname);
|
| 41 | } else {
|
| 42 | fullname = strdup(fname);
|
| 43 | }
|
| 44 |
|
| 45 | file->file = fopen(fullname, "r");
|
| 46 | if (!file->file) {
|
| 47 | free(fullname);
|
| 48 | return 0;
|
| 49 | }
|
| 50 |
|
| 51 | file->name = fullname;
|
| 52 | return 1;
|
| 53 | }
|
| 54 |
|
| 55 |
|
| 56 | struct dtc_file *dtc_open_file(const char *fname,
|
| 57 | const struct search_path *search)
|
| 58 | {
|
| 59 | static const struct search_path default_search = { NULL, NULL, NULL };
|
| 60 |
|
| 61 | struct dtc_file *file;
|
| 62 | const char *slash;
|
| 63 |
|
| 64 | file = xmalloc(sizeof(struct dtc_file));
|
| 65 |
|
| 66 | slash = strrchr(fname, '/');
|
| 67 | if (slash) {
|
| 68 | char *dir = xmalloc(slash - fname + 1);
|
| 69 |
|
| 70 | memcpy(dir, fname, slash - fname);
|
| 71 | dir[slash - fname] = 0;
|
| 72 | file->dir = dir;
|
| 73 | } else {
|
| 74 | file->dir = NULL;
|
| 75 | }
|
| 76 |
|
| 77 | if (streq(fname, "-")) {
|
| 78 | file->name = "stdin";
|
| 79 | file->file = stdin;
|
| 80 | return file;
|
| 81 | }
|
| 82 |
|
| 83 | if (fname[0] == '/') {
|
| 84 | file->file = fopen(fname, "r");
|
| 85 | if (!file->file)
|
| 86 | goto fail;
|
| 87 |
|
| 88 | file->name = strdup(fname);
|
| 89 | return file;
|
| 90 | }
|
| 91 |
|
| 92 | if (!search)
|
| 93 | search = &default_search;
|
| 94 |
|
| 95 | while (search) {
|
| 96 | if (dtc_open_one(file, search->dir, fname))
|
| 97 | return file;
|
| 98 |
|
| 99 | if (errno != ENOENT)
|
| 100 | goto fail;
|
| 101 |
|
| 102 | search = search->next;
|
| 103 | }
|
| 104 |
|
| 105 | fail:
|
| 106 | die("Couldn't open \"%s\": %s\n", fname, strerror(errno));
|
| 107 | }
|
| 108 |
|
| 109 | void dtc_close_file(struct dtc_file *file)
|
| 110 | {
|
| 111 | if (fclose(file->file))
|
| 112 | die("Error closing \"%s\": %s\n", file->name, strerror(errno));
|
| 113 |
|
| 114 | free(file->dir);
|
| 115 | free(file);
|
| 116 | }
|