aboutsummaryrefslogtreecommitdiff
path: root/sim/ppc/table.c
diff options
context:
space:
mode:
Diffstat (limited to 'sim/ppc/table.c')
-rw-r--r--sim/ppc/table.c279
1 files changed, 279 insertions, 0 deletions
diff --git a/sim/ppc/table.c b/sim/ppc/table.c
new file mode 100644
index 0000000..1994d0d
--- /dev/null
+++ b/sim/ppc/table.c
@@ -0,0 +1,279 @@
+/* This file is part of the program psim.
+
+ Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+ */
+
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <stdio.h>
+#include <fcntl.h>
+#include <ctype.h>
+
+#include "config.h"
+#include "misc.h"
+#include "lf.h"
+#include "table.h"
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#ifdef HAVE_STDLIB_H
+#include <stdlib.h>
+#endif
+
+struct _table {
+ size_t size;
+ char *buffer;
+ char *pos;
+ int line_nr;
+ int nr_fields;
+ int nr_model_fields;
+ char *file_name;
+};
+
+extern table *
+table_open(const char *file_name,
+ int nr_fields,
+ int nr_model_fields)
+{
+ int fd;
+ struct stat stat_buf;
+ table *file;
+ int nr;
+
+ /* create a file descriptor */
+ file = ZALLOC(table);
+ ASSERT(file != NULL);
+ file->nr_fields = nr_fields;
+ file->nr_model_fields = nr_model_fields;
+
+ /* save the file name */
+ file->file_name = (char*)zalloc(strlen(file_name) + 1);
+ ASSERT(file->file_name != NULL);
+ strcpy(file->file_name, file_name);
+
+ /* open the file */
+ fd = open(file->file_name, O_RDONLY, 0);
+ ASSERT(fd >= 0);
+
+ /* determine the size */
+ if (fstat(fd, &stat_buf) < 0) {
+ perror("table_open.fstat");
+ exit(1);
+ }
+ file->size = stat_buf.st_size;
+
+ /* allocate this much memory */
+ file->buffer = (char*)zalloc(file->size+1);
+ if(file->buffer == NULL) {
+ perror("table_open.calloc.file->size+1");
+ exit(1);
+ }
+ file->pos = file->buffer;
+
+ /* read it in */
+#ifdef __CYGWIN32__
+ if ((file->size) && ((nr = read(fd, file->buffer, file->size)) <= 0)) {
+#else
+ if ((nr = read(fd, file->buffer, file->size)) < file->size) {
+#endif
+ perror("table_open.read");
+ exit(1);
+ }
+ file->size = nr;
+ file->buffer[file->size] = '\0';
+
+ /* done */
+ close(fd);
+ return file;
+}
+
+
+extern table_entry *
+table_entry_read(table *file)
+{
+ int field;
+ table_entry *entry;
+
+ /* skip comments/blanks */
+ while(1) {
+ /* leading white space */
+ while (*file->pos != '\0'
+ && *file->pos != '\n'
+ && isspace(*file->pos))
+ file->pos++;
+ /* comment */
+ if (*file->pos == '#') {
+ do {
+ file->pos++;
+ } while (*file->pos != '\0' && *file->pos != '\n');
+ }
+ /* end of line? */
+ if (*file->pos == '\n') {
+ file->pos++;
+ file->line_nr++;
+ }
+ else
+ break;
+ }
+ if (*file->pos == '\0')
+ return NULL;
+
+ /* create this new entry */
+ entry = (table_entry*)zalloc(sizeof(table_entry)
+ + (file->nr_fields + 1) * sizeof(char*));
+ ASSERT(entry != NULL);
+ entry->file_name = file->file_name;
+ entry->nr_fields = file->nr_fields;
+
+ /* break the line into its colon delimitered fields */
+ for (field = 0; field < file->nr_fields-1; field++) {
+ entry->fields[field] = file->pos;
+ while(*file->pos && *file->pos != ':' && *file->pos != '\n')
+ file->pos++;
+ if (*file->pos == ':') {
+ *file->pos = '\0';
+ file->pos++;
+ }
+ }
+
+ /* any trailing stuff not the last field */
+ ASSERT(field == file->nr_fields-1);
+ entry->fields[field] = file->pos;
+ while (*file->pos && *file->pos != '\n') {
+ file->pos++;
+ }
+ if (*file->pos == '\n') {
+ *file->pos = '\0';
+ file->pos++;
+ }
+ file->line_nr++;
+
+ /* if following lines begin with a star, add them to the model
+ section. */
+ while ((file->nr_model_fields > 0) && (*file->pos == '*')) {
+ table_model_entry *model = (table_model_entry*)zalloc(sizeof(table_model_entry)
+ + (file->nr_model_fields + 1) * sizeof(char*));
+ if (entry->model_last)
+ entry->model_last->next = model;
+ else
+ entry->model_first = model;
+ entry->model_last = model;
+
+ /* break the line into its colon delimitered fields */
+ file->pos++;
+ for (field = 0; field < file->nr_model_fields-1; field++) {
+ model->fields[field] = file->pos;
+ while(*file->pos && *file->pos != ':' && *file->pos != '\n')
+ file->pos++;
+ if (*file->pos == ':') {
+ *file->pos = '\0';
+ file->pos++;
+ }
+ }
+
+ /* any trailing stuff not the last field */
+ ASSERT(field == file->nr_model_fields-1);
+ model->fields[field] = file->pos;
+ while (*file->pos && *file->pos != '\n') {
+ file->pos++;
+ }
+ if (*file->pos == '\n') {
+ *file->pos = '\0';
+ file->pos++;
+ }
+
+ file->line_nr++;
+ model->line_nr = file->line_nr;
+ }
+
+ entry->line_nr = file->line_nr;
+
+ /* if following lines are tab indented, put in the annex */
+ if (*file->pos == '\t') {
+ entry->annex = file->pos;
+ do {
+ do {
+ file->pos++;
+ } while (*file->pos != '\0' && *file->pos != '\n');
+ if (*file->pos == '\n') {
+ char *save_pos = ++file->pos;
+ int extra_lines = 0;
+ file->line_nr++;
+ /* Allow tab indented to have blank lines */
+ while (*save_pos == '\n') {
+ save_pos++;
+ extra_lines++;
+ }
+ if (*save_pos == '\t') {
+ file->pos = save_pos;
+ file->line_nr += extra_lines;
+ }
+ }
+ } while (*file->pos != '\0' && *file->pos == '\t');
+ if (file->pos[-1] == '\n')
+ file->pos[-1] = '\0';
+ }
+ else
+ entry->annex = NULL;
+
+ /* return it */
+ return entry;
+
+}
+
+
+extern void
+dump_table_entry(table_entry *entry,
+ int indent)
+{
+ printf("(table_entry*)%p\n", entry);
+
+ if (entry != NULL) {
+ int field;
+ char sep;
+
+ sep = ' ';
+ dumpf(indent, "(fields");
+ for (field = 0; field < entry->nr_fields; field++) {
+ printf("%c%s", sep, entry->fields[field]);
+ sep = ':';
+ }
+ printf(")\n");
+
+ dumpf(indent, "(line_nr %d)\n", entry->line_nr);
+
+ dumpf(indent, "(file_name %s)\n", entry->file_name);
+
+ dumpf(indent, "(annex\n%s\n", entry->annex);
+ dumpf(indent, " )\n");
+
+ }
+}
+
+
+extern void
+table_entry_print_cpp_line_nr(lf *file,
+ table_entry *entry)
+{
+ lf_print__external_reference(file, entry->line_nr, entry->file_name);
+}
+
+
generated by cgit v1.1 at 2024-12-21 06:47:33 +0000