Deleted Added
sdiff udiff text old ( 204431 ) new ( 204433 )
full compact
srcpos.c (204431) srcpos.c (204433)
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
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#define _GNU_SOURCE
21
22#include <stdio.h>
23
20#include "dtc.h"
21#include "srcpos.h"
22
24#include "dtc.h"
25#include "srcpos.h"
26
27
23/*
24 * Like yylineno, this is the current open file pos.
25 */
28/*
29 * Like yylineno, this is the current open file pos.
30 */
26
27struct dtc_file *srcpos_file;
28
31struct dtc_file *srcpos_file;
32
29static int dtc_open_one(struct dtc_file *file,
30 const char *search,
31 const char *fname)
33/*
34 * The empty source position.
35 */
36
37struct dtc_file dtc_empty_file = {
38 .dir = NULL,
39 .name = "<no file>",
40 .file = NULL
41};
42
43srcpos srcpos_empty = {
44 .first_line = 0,
45 .first_column = 0,
46 .last_line = 0,
47 .last_column = 0,
48 .file = &dtc_empty_file
49};
50
51
52static int
53dtc_open_one(struct dtc_file *file, const char *search, 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 {
54{
55 char *fullname;
56
57 if (search) {
58 fullname = xmalloc(strlen(search) + strlen(fname) + 2);
59
60 strcpy(fullname, search);
61 strcat(fullname, "/");
62 strcat(fullname, fname);
63 } else {
42 fullname = strdup(fname);
64 fullname = xstrdup(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
65 }
66
67 file->file = fopen(fullname, "r");
68 if (!file->file) {
69 free(fullname);
70 return 0;
71 }
72
73 file->name = fullname;
74 return 1;
75}
76
77
56struct dtc_file *dtc_open_file(const char *fname,
57 const struct search_path *search)
78struct dtc_file *
79dtc_open_file(const char *fname, 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

--- 14 unchanged lines hidden (view full) ---

80 return file;
81 }
82
83 if (fname[0] == '/') {
84 file->file = fopen(fname, "r");
85 if (!file->file)
86 goto fail;
87
80{
81 static const struct search_path default_search = { NULL, NULL, NULL };
82
83 struct dtc_file *file;
84 const char *slash;
85
86 file = xmalloc(sizeof(struct dtc_file));
87

--- 14 unchanged lines hidden (view full) ---

102 return file;
103 }
104
105 if (fname[0] == '/') {
106 file->file = fopen(fname, "r");
107 if (!file->file)
108 goto fail;
109
88 file->name = strdup(fname);
110 file->name = xstrdup(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))

--- 4 unchanged lines hidden (view full) ---

101
102 search = search->next;
103 }
104
105fail:
106 die("Couldn't open \"%s\": %s\n", fname, strerror(errno));
107}
108
111 return file;
112 }
113
114 if (!search)
115 search = &default_search;
116
117 while (search) {
118 if (dtc_open_one(file, search->dir, fname))

--- 4 unchanged lines hidden (view full) ---

123
124 search = search->next;
125 }
126
127fail:
128 die("Couldn't open \"%s\": %s\n", fname, strerror(errno));
129}
130
109void dtc_close_file(struct dtc_file *file)
131
132void
133dtc_close_file(struct dtc_file *file)
110{
111 if (fclose(file->file))
112 die("Error closing \"%s\": %s\n", file->name, strerror(errno));
134{
135 if (fclose(file->file))
136 die("Error closing \"%s\": %s\n", file->name, strerror(errno));
137}
113
138
114 free(file->dir);
115 free(file);
139
140srcpos *
141srcpos_copy(srcpos *pos)
142{
143 srcpos *pos_new;
144
145 pos_new = xmalloc(sizeof(srcpos));
146 memcpy(pos_new, pos, sizeof(srcpos));
147
148 return pos_new;
116}
149}
150
151
152
153void
154srcpos_dump(srcpos *pos)
155{
156 printf("file : \"%s\"\n",
157 pos->file ? (char *) pos->file : "<no file>");
158 printf("first_line : %d\n", pos->first_line);
159 printf("first_column: %d\n", pos->first_column);
160 printf("last_line : %d\n", pos->last_line);
161 printf("last_column : %d\n", pos->last_column);
162 printf("file : %s\n", pos->file->name);
163}
164
165
166char *
167srcpos_string(srcpos *pos)
168{
169 const char *fname;
170 char col_buf[100];
171 char *pos_str;
172
173 if (!pos) {
174 fname = "<no-file>";
175 } else if (pos->file->name) {
176 fname = pos->file->name;
177 if (strcmp(fname, "-") == 0)
178 fname = "stdin";
179 } else {
180 fname = "<no-file>";
181 }
182
183 if (pos->first_line == pos->last_line) {
184 if (pos->first_column == pos->last_column) {
185 snprintf(col_buf, sizeof(col_buf),
186 "%d:%d",
187 pos->first_line, pos->first_column);
188 } else {
189 snprintf(col_buf, sizeof(col_buf),
190 "%d:%d-%d",
191 pos->first_line,
192 pos->first_column, pos->last_column);
193 }
194
195 } else {
196 snprintf(col_buf, sizeof(col_buf),
197 "%d:%d - %d:%d",
198 pos->first_line, pos->first_column,
199 pos->last_line, pos->last_column);
200 }
201
202 if (asprintf(&pos_str, "%s %s", fname, col_buf) == -1)
203 return "<unknown source position?";
204
205 return pos_str;
206}
207
208
209void
210srcpos_error(srcpos *pos, char const *fmt, ...)
211{
212 const char *srcstr;
213 va_list va;
214 va_start(va, fmt);
215
216 srcstr = srcpos_string(pos);
217
218 fprintf(stderr, "Error: %s ", srcstr);
219 vfprintf(stderr, fmt, va);
220 fprintf(stderr, "\n");
221
222 va_end(va);
223}
224
225
226void
227srcpos_warn(srcpos *pos, char const *fmt, ...)
228{
229 const char *srcstr;
230 va_list va;
231 va_start(va, fmt);
232
233 srcstr = srcpos_string(pos);
234
235 fprintf(stderr, "Warning: %s ", srcstr);
236 vfprintf(stderr, fmt, va);
237 fprintf(stderr, "\n");
238
239 va_end(va);
240}