Initial creation of sourceware repositorygdb-4_18-branchpoint

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);
+}
+
+