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 2 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, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22 #include <sys/types.h>
52 table_open(const char *file_name
,
61 /* create a file descriptor */
64 file
->nr_fields
= nr_fields
;
65 file
->nr_model_fields
= nr_model_fields
;
67 /* save the file name */
68 file
->file_name
= (char*)zalloc(strlen(file_name
) + 1);
69 ASSERT(file
->file_name
!= NULL
);
70 strcpy(file
->file_name
, file_name
);
73 fd
= open(file
->file_name
, O_RDONLY
, 0);
76 /* determine the size */
77 if (fstat(fd
, &stat_buf
) < 0) {
78 perror("table_open.fstat");
81 file
->size
= stat_buf
.st_size
;
83 /* allocate this much memory */
84 file
->buffer
= (char*)zalloc(file
->size
+1);
85 if(file
->buffer
== NULL
) {
86 perror("table_open.calloc.file->size+1");
89 file
->pos
= file
->buffer
;
93 if ((file
->size
) && ((nr
= read(fd
, file
->buffer
, file
->size
)) <= 0)) {
95 if ((nr
= read(fd
, file
->buffer
, file
->size
)) < file
->size
) {
97 perror("table_open.read");
101 file
->buffer
[file
->size
] = '\0';
110 table_entry_read(table
*file
)
115 /* skip comments/blanks */
117 /* leading white space */
118 while (*file
->pos
!= '\0'
119 && *file
->pos
!= '\n'
120 && isspace(*file
->pos
))
123 if (*file
->pos
== '#') {
126 } while (*file
->pos
!= '\0' && *file
->pos
!= '\n');
129 if (*file
->pos
== '\n') {
136 if (*file
->pos
== '\0')
139 /* create this new entry */
140 entry
= (table_entry
*)zalloc(sizeof(table_entry
)
141 + (file
->nr_fields
+ 1) * sizeof(char*));
142 ASSERT(entry
!= NULL
);
143 entry
->file_name
= file
->file_name
;
144 entry
->nr_fields
= file
->nr_fields
;
146 /* break the line into its colon delimitered fields */
147 for (field
= 0; field
< file
->nr_fields
-1; field
++) {
148 entry
->fields
[field
] = file
->pos
;
149 while(*file
->pos
&& *file
->pos
!= ':' && *file
->pos
!= '\n')
151 if (*file
->pos
== ':') {
157 /* any trailing stuff not the last field */
158 ASSERT(field
== file
->nr_fields
-1);
159 entry
->fields
[field
] = file
->pos
;
160 while (*file
->pos
&& *file
->pos
!= '\n') {
163 if (*file
->pos
== '\n') {
169 /* if following lines begin with a star, add them to the model
171 while ((file
->nr_model_fields
> 0) && (*file
->pos
== '*')) {
172 table_model_entry
*model
= (table_model_entry
*)zalloc(sizeof(table_model_entry
)
173 + (file
->nr_model_fields
+ 1) * sizeof(char*));
174 if (entry
->model_last
)
175 entry
->model_last
->next
= model
;
177 entry
->model_first
= model
;
178 entry
->model_last
= model
;
180 /* break the line into its colon delimitered fields */
182 for (field
= 0; field
< file
->nr_model_fields
-1; field
++) {
183 model
->fields
[field
] = file
->pos
;
184 while(*file
->pos
&& *file
->pos
!= ':' && *file
->pos
!= '\n')
186 if (*file
->pos
== ':') {
192 /* any trailing stuff not the last field */
193 ASSERT(field
== file
->nr_model_fields
-1);
194 model
->fields
[field
] = file
->pos
;
195 while (*file
->pos
&& *file
->pos
!= '\n') {
198 if (*file
->pos
== '\n') {
204 model
->line_nr
= file
->line_nr
;
207 entry
->line_nr
= file
->line_nr
;
209 /* if following lines are tab indented, put in the annex */
210 if (*file
->pos
== '\t') {
211 entry
->annex
= file
->pos
;
215 } while (*file
->pos
!= '\0' && *file
->pos
!= '\n');
216 if (*file
->pos
== '\n') {
217 char *save_pos
= ++file
->pos
;
220 /* Allow tab indented to have blank lines */
221 while (*save_pos
== '\n') {
225 if (*save_pos
== '\t') {
226 file
->pos
= save_pos
;
227 file
->line_nr
+= extra_lines
;
230 } while (*file
->pos
!= '\0' && *file
->pos
== '\t');
231 if (file
->pos
[-1] == '\n')
232 file
->pos
[-1] = '\0';
244 dump_table_entry(table_entry
*entry
,
247 printf("(table_entry*)%p\n", entry
);
254 dumpf(indent
, "(fields");
255 for (field
= 0; field
< entry
->nr_fields
; field
++) {
256 printf("%c%s", sep
, entry
->fields
[field
]);
261 dumpf(indent
, "(line_nr %d)\n", entry
->line_nr
);
263 dumpf(indent
, "(file_name %s)\n", entry
->file_name
);
265 dumpf(indent
, "(annex\n%s\n", entry
->annex
);
266 dumpf(indent
, " )\n");
273 table_entry_print_cpp_line_nr(lf
*file
,
276 lf_print__external_reference(file
, entry
->line_nr
, entry
->file_name
);
This page took 0.049469 seconds and 4 git commands to generate.