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>
41 typedef struct _open_table open_table;
58 table_push (table *root,
59 table_include *includes,
60 const char *file_name,
69 table_include *include = &dummy;
72 /* dummy up a search of this directory */
73 dummy.next = includes;
76 /* create a file descriptor */
77 file = ZALLOC (open_table);
79 file->nr_fields = nr_fields;
80 file->nr_model_fields = nr_model_fields;
82 file->parent = root->current;
87 /* save the file name */
88 char *dup_name = NZALLOC (char, strlen (include->dir) + strlen (file_name) + 2);
94 if (include->dir[0] != '\0')
96 strcat (dup_name, include->dir);
97 strcat (dup_name, "/");
99 strcat (dup_name, file_name);
100 file->file_name = dup_name;
102 fd = open (dup_name, O_RDONLY, 0);
105 /* zfree (dup_name); */
106 if (include->next == NULL)
108 error ("Problem opening file `%s'\n", file_name);
112 include = include->next;
115 /* determine the size */
116 if (fstat(fd, &stat_buf) < 0) {
117 perror("table_open.fstat");
120 file->size = stat_buf.st_size;
122 /* allocate this much memory */
123 file->buffer = (char*)zalloc(file->size+1);
124 if(file->buffer == NULL) {
125 perror("table_open.calloc.file->size+1");
128 file->pos = file->buffer;
132 if ((file->size) && ((nr = read(fd, file->buffer, file->size)) <= 0)) {
134 if ((nr = read(fd, file->buffer, file->size)) < file->size) {
136 perror("table_open.read");
140 file->buffer[file->size] = '\0';
147 table_open(const char *file_name,
153 /* create a file descriptor */
154 root = ZALLOC (table);
161 table_push (root, NULL, file_name, nr_fields, nr_model_fields);
166 table_entry_read(table *root)
168 open_table *file = root->current;
172 /* skip comments/blanks */
175 while (*file->pos == '\0')
177 if (file->parent != NULL)
180 root->current = file;
185 /* leading white space */
186 while (*file->pos != '\0'
187 && *file->pos != '\n'
188 && isspace(*file->pos))
191 if (*file->pos == '#') {
194 } while (*file->pos != '\0' && *file->pos != '\n');
197 if (*file->pos == '\n') {
205 /* create this new entry */
206 entry = (table_entry*)zalloc(sizeof(table_entry)
207 + (file->nr_fields + 1) * sizeof(char*));
208 ASSERT(entry != NULL);
209 entry->file_name = file->file_name;
210 entry->nr_fields = file->nr_fields;
212 /* break the line into its colon delimitered fields */
213 for (field = 0; field < file->nr_fields-1; field++) {
214 entry->fields[field] = file->pos;
215 while(*file->pos && *file->pos != ':' && *file->pos != '\n')
217 if (*file->pos == ':') {
223 /* any trailing stuff not the last field */
224 ASSERT(field == file->nr_fields-1);
225 entry->fields[field] = file->pos;
226 while (*file->pos && *file->pos != '\n') {
229 if (*file->pos == '\n') {
235 /* if following lines begin with a star, add them to the model
237 while ((file->nr_model_fields > 0) && (*file->pos == '*')) {
238 table_model_entry *model = (table_model_entry*)zalloc(sizeof(table_model_entry)
239 + (file->nr_model_fields + 1) * sizeof(char*));
240 if (entry->model_last)
241 entry->model_last->next = model;
243 entry->model_first = model;
244 entry->model_last = model;
246 /* break the line into its colon delimitered fields */
248 for (field = 0; field < file->nr_model_fields-1; field++) {
249 model->fields[field] = file->pos;
250 while(*file->pos && *file->pos != ':' && *file->pos != '\n')
252 if (*file->pos == ':') {
258 /* any trailing stuff not the last field */
259 ASSERT(field == file->nr_model_fields-1);
260 model->fields[field] = file->pos;
261 while (*file->pos && *file->pos != '\n') {
264 if (*file->pos == '\n') {
270 model->line_nr = file->line_nr;
273 entry->line_nr = file->line_nr;
275 /* if following lines are tab indented, put in the annex */
276 if (*file->pos == '\t') {
277 entry->annex = file->pos;
281 } while (*file->pos != '\0' && *file->pos != '\n');
282 if (*file->pos == '\n') {
283 char *save_pos = ++file->pos;
286 /* Allow tab indented to have blank lines */
287 while (*save_pos == '\n') {
291 if (*save_pos == '\t') {
292 file->pos = save_pos;
293 file->line_nr += extra_lines;
296 } while (*file->pos != '\0' && *file->pos == '\t');
297 if (file->pos[-1] == '\n')
298 file->pos[-1] = '\0';
310 dump_table_entry(table_entry *entry,
313 printf("(table_entry*)%p\n", entry);
320 dumpf(indent, "(fields");
321 for (field = 0; field < entry->nr_fields; field++) {
322 printf("%c%s", sep, entry->fields[field]);
327 dumpf(indent, "(line_nr %d)\n", entry->line_nr);
329 dumpf(indent, "(file_name %s)\n", entry->file_name);
331 dumpf(indent, "(annex\n%s\n", entry->annex);
332 dumpf(indent, " )\n");
339 table_entry_print_cpp_line_nr(lf *file,
342 lf_print__external_reference(file, entry->line_nr, entry->file_name);