Initial revision

1 files changed, 284 insertions, 0 deletions

diff --git a/ld/ldfile.c b/ld/ldfile.c
new file mode 100644
index 0000000..bc55f04
--- /dev/null
+++ b/ld/ldfile.c
@@ -0,0 +1,284 @@
+
+/* Copyright (C) 1991 Free Software Foundation, Inc.
+
+This file is part of GLD, the Gnu Linker.
+
+GLD 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 1, or (at your option)
+any later version.
+
+GLD 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 GLD; see the file COPYING.  If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+/*
+   $Id$ 
+
+   $Log$
+   Revision 1.1  1991/03/21 21:28:37  gumby
+   Initial revision
+
+ * Revision 1.2  1991/03/15  18:45:55  rich
+ * foo
+ *
+ * Revision 1.1  1991/03/13  00:48:18  chrisb
+ * Initial revision
+ *
+ * Revision 1.4  1991/03/10  09:31:24  rich
+ *  Modified Files:
+ *  	Makefile config.h ld-emul.c ld-emul.h ld-gld.c ld-gld960.c
+ *  	ld-lnk960.c ld.h lddigest.c ldexp.c ldexp.h ldfile.c ldfile.h
+ *  	ldgram.y ldinfo.h ldlang.c ldlang.h ldlex.h ldlex.l ldmain.c
+ *  	ldmain.h ldmisc.c ldmisc.h ldsym.c ldsym.h ldversion.c
+ *  	ldversion.h ldwarn.h ldwrite.c ldwrite.h y.tab.h
+ *
+ * As of this round of changes, ld now builds on all hosts of (Intel960)
+ * interest and copy passes my copy test on big endian hosts again.
+ *
+ * Revision 1.3  1991/02/22  17:15:00  sac
+ * Added RCS keywords and copyrights
+ *
+*/
+
+/*
+ ldfile.c
+
+ look after all the file stuff
+
+ */
+
+#include "sysdep.h"
+#include "bfd.h"
+
+#include "ldmisc.h"
+#include "ldlang.h"
+#include "ldfile.h"
+
+#include <ctype.h>
+
+/* EXPORT */
+char *ldfile_input_filename;
+char *ldfile_output_machine_name;
+unsigned long ldfile_output_machine;
+enum bfd_architecture ldfile_output_architecture;
+boolean had_script;
+
+/* IMPORT */
+
+extern boolean option_v;
+
+
+
+
+
+/* LOACL */
+typedef struct search_dirs_struct 
+{
+  char *name;
+  struct search_dirs_struct *next;
+} search_dirs_type;
+
+static search_dirs_type *search_head;
+static search_dirs_type **search_tail_ptr = &search_head;
+
+typedef struct search_arch_struct 
+{
+  char *name; 
+  struct search_arch_struct *next;
+} search_arch_type;
+
+static search_arch_type *search_arch_head;
+static search_arch_type **search_arch_tail_ptr = &search_arch_head;
+ 
+void
+ldfile_add_library_path(name)
+char *name;
+{
+  search_dirs_type *new =
+    (search_dirs_type *)ldmalloc(sizeof(search_dirs_type));
+  new->name = name;
+  new->next = (search_dirs_type*)NULL;
+  *search_tail_ptr = new;
+  search_tail_ptr = &new->next;
+}
+
+
+static bfd*
+cached_bfd_openr(attempt,entry)
+char *attempt;
+lang_input_statement_type  *entry;
+{
+  entry->the_bfd = bfd_openr(attempt, entry->target);
+
+
+  return entry->the_bfd;
+}
+
+static bfd *
+open_a(arch, entry, lib, suffix)
+char *arch;
+lang_input_statement_type *entry;
+char *lib;
+char *suffix;
+{
+  bfd*desc;
+  search_dirs_type *search ;
+  for (search = search_head;
+       search != (search_dirs_type *)NULL;
+       search = search->next) 
+    {
+      char buffer[1000];
+      char *string;
+      if (entry->is_archive == true) {
+	sprintf(buffer,
+		"%s/%s%s%s%s",
+		search->name,
+		lib,
+		entry->filename, arch, suffix);
+      }
+      else {
+	      if (entry->filename[0] == '/') {
+		      strcpy(buffer, entry->filename);
+	      } else {
+		      sprintf(buffer,"%s/%s",search->name, entry->filename);
+	      }			/*  */
+      }
+      string = buystring(buffer);      
+      desc = cached_bfd_openr (string, entry);
+      if (desc)
+	{
+	  entry->filename = string;
+	  entry->search_dirs_flag = false;
+	  entry->the_bfd =  desc;
+	  return desc;
+	}
+      free(string);
+    }
+  return (bfd *)NULL;
+}
+
+/* Open the input file specified by 'entry', and return a descriptor.
+   The open file is remembered; if the same file is opened twice in a row,
+   a new open is not actually done.  */
+
+void
+ldfile_open_file (entry)
+lang_input_statement_type *entry;
+{
+
+  if (entry->superfile)
+    ldfile_open_file (entry->superfile);
+
+  if (entry->search_dirs_flag)
+    {
+      search_arch_type *arch;
+      for (arch = search_arch_head;
+	   arch != (search_arch_type *)NULL;
+	   arch = arch->next) {
+	if (open_a(arch->name,entry,"","") != (bfd *)NULL) {
+	  return;
+	}
+	if (open_a(arch->name,entry,"lib",".a") != (bfd *)NULL) {
+	  return;
+	}
+
+      }
+
+
+    }
+  else {
+    entry->the_bfd = cached_bfd_openr (entry->filename, entry);
+
+  }
+  if (!entry->the_bfd)  info("%F%P: %E %I\n", entry);
+
+}
+
+
+
+
+
+
+static FILE *
+try_open(name, exten)
+char *name;
+char *exten;
+{
+  FILE *result;
+  char buff[1000];
+  result = fopen(name, "r");
+  if (result && option_v == true) {
+    info("%s\n",name);
+    return result;
+  }
+  sprintf(buff, "%s%s", name, exten);
+  result = fopen(buff, "r");
+
+  if (result && option_v == true) {
+    info("%s\n", buff);
+  }
+  return result;
+}
+static FILE *
+find_a_name(name, extend)
+char *name;
+char *extend;
+{
+  search_dirs_type *search;
+  FILE *result;
+  char buffer[1000];
+  /* First try raw name */
+  result = try_open(name,"");
+  if (result == (FILE *)NULL) {
+    /* Try now prefixes */
+    for (search = search_head;
+	 search != (search_dirs_type *)NULL;
+	 search = search->next) {
+      sprintf(buffer,"%s/%s", search->name, name);
+      result = try_open(buffer, extend);
+      if (result)break;
+    }
+  }
+  return result;
+}
+
+void ldfile_open_command_file(name)
+char *name;
+{
+  extern FILE *ldlex_input_stack;
+  ldlex_input_stack = find_a_name(name, ".ld");
+
+  if (ldlex_input_stack == (FILE *)NULL) {
+    info("%P%F cannot open load script file %s\n",name);
+  }
+  ldfile_input_filename = name;
+  had_script = true;
+}
+
+
+
+
+void
+ldfile_add_arch(name)
+char *name;
+{
+  search_arch_type *new =
+    (search_arch_type *)ldmalloc(sizeof(search_arch_type));
+  ldfile_output_machine_name = name;
+
+  new->name = name;
+  new->next = (search_arch_type*)NULL;
+  while (*name) {
+    if (isupper(*name)) *name = tolower(*name);
+    name++;
+  }
+  *search_arch_tail_ptr = new;
+  search_arch_tail_ptr = &new->next;
+
+}