1 /* This file is part of the program psim.
3 Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <http://www.gnu.org/licenses/>.
21 #include <sys/types.h>
27 #include "build-config.h"
40 typedef struct _open_table open_table
;
57 table_push (table
*root
,
58 table_include
*includes
,
59 const char *file_name
,
68 table_include
*include
= &dummy
;
71 /* dummy up a search of this directory */
72 dummy
.next
= includes
;
75 /* create a file descriptor */
76 file
= ZALLOC (open_table
);
78 file
->nr_fields
= nr_fields
;
79 file
->nr_model_fields
= nr_model_fields
;
81 file
->parent
= root
->current
;
86 /* save the file name */
87 char *dup_name
= NZALLOC (char, strlen (include
->dir
) + strlen (file_name
) + 2);
93 if (include
->dir
[0] != '\0')
95 strcat (dup_name
, include
->dir
);
96 strcat (dup_name
, "/");
98 strcat (dup_name
, file_name
);
99 file
->file_name
= dup_name
;
101 fd
= open (dup_name
, O_RDONLY
, 0);
104 /* free (dup_name); */
105 if (include
->next
== NULL
)
107 error ("Problem opening file `%s'\n", file_name
);
111 include
= include
->next
;
114 /* determine the size */
115 if (fstat(fd
, &stat_buf
) < 0) {
116 perror("table_open.fstat");
119 file
->size
= stat_buf
.st_size
;
121 /* allocate this much memory */
122 file
->buffer
= (char*)zalloc(file
->size
+1);
123 if(file
->buffer
== NULL
) {
124 perror("table_open.calloc.file->size+1");
127 file
->pos
= file
->buffer
;
131 if ((file
->size
) && ((nr
= read(fd
, file
->buffer
, file
->size
)) <= 0)) {
133 if ((nr
= read(fd
, file
->buffer
, file
->size
)) < file
->size
) {
135 perror("table_open.read");
139 file
->buffer
[file
->size
] = '\0';
146 table_open(const char *file_name
,
152 /* create a file descriptor */
153 root
= ZALLOC (table
);
160 table_push (root
, NULL
, file_name
, nr_fields
, nr_model_fields
);
165 table_entry_read(table
*root
)
167 open_table
*file
= root
->current
;
171 /* skip comments/blanks */
174 while (*file
->pos
== '\0')
176 if (file
->parent
!= NULL
)
179 root
->current
= file
;
184 /* leading white space */
185 while (*file
->pos
!= '\0'
186 && *file
->pos
!= '\n'
187 && isspace(*file
->pos
))
190 if (*file
->pos
== '#') {
193 } while (*file
->pos
!= '\0' && *file
->pos
!= '\n');
196 if (*file
->pos
== '\n') {
204 /* create this new entry */
205 entry
= (table_entry
*)zalloc(sizeof(table_entry
)
206 + (file
->nr_fields
+ 1) * sizeof(char*));
207 ASSERT(entry
!= NULL
);
208 entry
->file_name
= file
->file_name
;
209 entry
->nr_fields
= file
->nr_fields
;
211 /* break the line into its colon delimitered fields */
212 for (field
= 0; field
< file
->nr_fields
-1; field
++) {
213 entry
->fields
[field
] = file
->pos
;
214 while(*file
->pos
&& *file
->pos
!= ':' && *file
->pos
!= '\n')
216 if (*file
->pos
== ':') {
222 /* any trailing stuff not the last field */
223 ASSERT(field
== file
->nr_fields
-1);
224 entry
->fields
[field
] = file
->pos
;
225 while (*file
->pos
&& *file
->pos
!= '\n') {
228 if (*file
->pos
== '\n') {
234 /* if following lines begin with a star, add them to the model
236 while ((file
->nr_model_fields
> 0) && (*file
->pos
== '*')) {
237 table_model_entry
*model
= (table_model_entry
*)zalloc(sizeof(table_model_entry
)
238 + (file
->nr_model_fields
+ 1) * sizeof(char*));
239 if (entry
->model_last
)
240 entry
->model_last
->next
= model
;
242 entry
->model_first
= model
;
243 entry
->model_last
= model
;
245 /* break the line into its colon delimitered fields */
247 for (field
= 0; field
< file
->nr_model_fields
-1; field
++) {
248 model
->fields
[field
] = file
->pos
;
249 while(*file
->pos
&& *file
->pos
!= ':' && *file
->pos
!= '\n')
251 if (*file
->pos
== ':') {
257 /* any trailing stuff not the last field */
258 ASSERT(field
== file
->nr_model_fields
-1);
259 model
->fields
[field
] = file
->pos
;
260 while (*file
->pos
&& *file
->pos
!= '\n') {
263 if (*file
->pos
== '\n') {
269 model
->line_nr
= file
->line_nr
;
272 entry
->line_nr
= file
->line_nr
;
274 /* if following lines are tab indented, put in the annex */
275 if (*file
->pos
== '\t') {
276 entry
->annex
= file
->pos
;
280 } while (*file
->pos
!= '\0' && *file
->pos
!= '\n');
281 if (*file
->pos
== '\n') {
282 char *save_pos
= ++file
->pos
;
285 /* Allow tab indented to have blank lines */
286 while (*save_pos
== '\n') {
290 if (*save_pos
== '\t') {
291 file
->pos
= save_pos
;
292 file
->line_nr
+= extra_lines
;
295 } while (*file
->pos
!= '\0' && *file
->pos
== '\t');
296 if (file
->pos
[-1] == '\n')
297 file
->pos
[-1] = '\0';
309 dump_table_entry(table_entry
*entry
,
312 printf("(table_entry*)%p\n", entry
);
319 dumpf(indent
, "(fields");
320 for (field
= 0; field
< entry
->nr_fields
; field
++) {
321 printf("%c%s", sep
, entry
->fields
[field
]);
326 dumpf(indent
, "(line_nr %d)\n", entry
->line_nr
);
328 dumpf(indent
, "(file_name %s)\n", entry
->file_name
);
330 dumpf(indent
, "(annex\n%s\n", entry
->annex
);
331 dumpf(indent
, " )\n");
338 table_entry_print_cpp_line_nr(lf
*file
,
341 lf_print__external_reference(file
, entry
->line_nr
, entry
->file_name
);
This page took 0.037035 seconds and 4 git commands to generate.