|
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 } |