Wed Apr 15 14:33:07 1992 Steve Chamberlain (sac@thepub.cygnus.com)

	* arsup.c, arsup.h, arparse.y, arlex.l: support for archive
	scripting language.

1 files changed, 382 insertions, 0 deletions

diff --git a/binutils/arsup.c b/binutils/arsup.c
new file mode 100644
index 0000000000..ee7e4e9b2b
--- /dev/null
+++ b/binutils/arsup.c
@@ -0,0 +1,382 @@
+/* arsup.c - Archive support for MRI compatibility */
+
+/*   Copyright (C) 1992 Free Software Foundation, Inc.
+
+This file is part of GNU Binutils.
+
+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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+
+/* Contributed by Steve Chamberlain
+   		  sac@cygnus.com
+
+This file looks after requests from arparse.y, to provide the MRI
+style librarian command syntax + 1 word LIST
+
+*/
+
+#include "bfd.h"
+#include "arsup.h"
+#include <sysdep.h>
+#include "bucomm.h"
+extern bfd *inarch;
+extern int verbose;
+
+
+
+void
+DEFUN(map_over_list,(function, list),
+      void            (*function) () AND
+      struct list           *list)
+
+{
+  bfd            *head;
+
+  if (list == 0) {
+    for (head = inarch->next; head; head = head->next){
+      function(head);
+    }
+  }
+  else {
+    /*
+      This may appear to be a baroque way of accomplishing what we want.
+      however we have to iterate over the filenames in order to notice where
+      a filename is requested but does not exist in the archive.  Ditto
+      mapping over each file each time -- we want to hack multiple
+      references.
+      */
+    struct list *ptr = list;
+
+    for (ptr = list; ptr; ptr=ptr->next)
+    {
+      boolean         found = false;
+      bfd *prev = inarch;
+      for (head = inarch->next; head; head = head->next) 
+      {
+	if ((head->filename != NULL) &&
+	    (!strcmp(ptr->name, head->filename))) 
+	{
+	  found = true;
+	  function(head, prev);
+
+	}
+	prev = head;
+      }
+      if (!found)
+       fprintf(stderr, "No entry %s in archive.\n", ptr->name);
+    }
+  }
+}
+
+
+FILE *outfile;
+void
+DEFUN(ar_directory_doer,(abfd),
+      bfd *abfd)
+{
+    print_arelt_descr(outfile, abfd, verbose);
+}
+
+void
+DEFUN(ar_directory,(ar_name, list, output),
+      char *ar_name AND
+      struct list *list AND
+      char *output)
+{
+  open_inarch(ar_name);
+  if (output)  {
+    outfile = fopen(output,"w");
+    if (outfile == 0) {
+      outfile =stdout;
+      fprintf(stderr,"Can't open file %s\n", output);
+      output = 0;
+    }
+  }
+  else 
+   outfile = stdout;
+
+  map_over_list(ar_directory_doer, list);
+  bfd_close(inarch);
+  if (output)
+   fclose(outfile);
+}
+
+void
+DEFUN_VOID(prompt)
+{
+  extern int interactive;
+  if (interactive) 
+  {
+    printf("AR >");
+    fflush(stdout); 
+  }
+}
+
+void
+DEFUN_VOID(maybequit)
+{
+if (!interactive) 
+ exit(9);
+}
+
+
+bfd *obfd;
+char *real_name ; 
+void
+DEFUN(ar_open,(name, t),
+      char *name AND
+      int t)
+
+{
+  char *tname = malloc(strlen(name)+10);
+  real_name = name;
+  sprintf(tname, "%s-tmp", name);
+  obfd = bfd_openw(tname, NULL);
+
+  if (!obfd) {
+    fprintf(stderr,"%s: Can't open output archive %s\n", program_name,
+	    tname);
+
+    maybequit();
+  }
+  else {
+    if (!t) {
+      bfd **ptr;
+      bfd *element;
+      bfd *ibfd;
+      ibfd = bfd_openr(name, NULL);
+      if (bfd_check_format(ibfd, bfd_archive) != true) {
+	fprintf(stderr,"%s: file %s is not an archive\n", program_name,
+		name);
+	maybequit();
+	return;
+      }
+      ptr = &(obfd->archive_head);
+      element = bfd_openr_next_archived_file(ibfd, NULL);
+
+      while (element) {
+	*ptr = element;
+	ptr = &element->next;
+	element = bfd_openr_next_archived_file(ibfd, element);
+      }
+    }
+
+    bfd_set_format(obfd, bfd_archive);
+
+    obfd->has_armap = 1;
+  }
+}
+
+
+void
+DEFUN(ar_addlib_doer, (abfd, prev),
+      bfd *abfd AND
+      bfd *prev)
+{
+  /* Add this module to the output bfd */
+  
+  prev->next = abfd->next;
+  abfd->next = obfd->archive_head;
+  obfd->archive_head = abfd;
+}
+
+void
+DEFUN(ar_addlib, (name, list),
+      char *name AND
+      struct list *list)
+{
+  if (!obfd) {
+    fprintf(stderr, "%s: no output archive specified yet\n", program_name);
+    maybequit();
+  }
+  else {
+    if (open_inarch(name) ) {
+      map_over_list(ar_addlib_doer, list);
+    }
+    /* Don't close the bfd, since it will make the elements disasppear */
+  }
+}
+
+
+
+void
+DEFUN(ar_addmod, (list),
+      struct list *list)
+{
+  if (!obfd) {
+    fprintf(stderr, "%s: no open output archive\n", program_name);
+    maybequit();
+  }
+  else 
+  {
+    while (list) {
+      bfd *abfd = bfd_openr(list->name, NULL);
+      if (!abfd)  {
+	fprintf(stderr,"%s: can't open file %s\n", program_name,
+		list->name);
+	maybequit();
+      }
+      else {
+	abfd->next = obfd->archive_head;
+	obfd->archive_head = abfd;
+      }
+      list = list->next;
+    }
+  }
+}
+
+
+
+void
+DEFUN_VOID(ar_clear)
+{
+if (obfd) 
+ obfd->archive_head = 0;
+}
+
+void
+DEFUN(ar_delete, (list),
+      struct list *list)
+{
+  if (!obfd) {
+    fprintf(stderr, "%s: no open output archive\n", program_name);
+    maybequit();
+  }
+  else 
+  {
+    while (list) {
+      /* Find this name in the archive */
+      bfd *member = obfd->archive_head;
+      bfd **prev = &(obfd->archive_head);
+      int found = 0;
+      while (member) {
+	if (strcmp(member->filename, list->name) == 0) {
+	  *prev = member->next;
+	  found = 1;
+	}
+	else {
+	  prev = &(member->next);
+	}
+	  member = member->next;
+      }
+      if (!found)  {
+	fprintf(stderr,"%s: can't find module file %s\n", program_name,
+		list->name);
+	maybequit();
+      }
+      list = list->next;
+    }
+  }
+}
+
+
+void
+DEFUN_VOID(ar_save)
+{
+
+  if (!obfd) {
+    fprintf(stderr, "%s: no open output archive\n", program_name);
+    maybequit();
+  }
+  else {
+    bfd_close(obfd);
+    unlink(real_name);
+    link(obfd->filename, real_name);
+    unlink(obfd->filename);
+    obfd = 0;
+  }
+}
+
+
+
+void
+DEFUN(ar_replace, (list),
+      struct list *list)
+{
+  if (!obfd) {
+    fprintf(stderr, "%s: no open output archive\n", program_name);
+    maybequit();
+  }
+  else 
+  {
+    while (list) {
+      /* Find this name in the archive */
+      bfd *member = obfd->archive_head;
+      bfd **prev = &(obfd->archive_head);
+      int found = 0;
+      while (member) 
+      {
+	if (strcmp(member->filename, list->name) == 0) 
+	{
+	  /* Found the one to replace */
+	  bfd *abfd = bfd_openr(list->name, 0);
+	  if (!abfd) 
+	  {
+	    fprintf(stderr, "%s: can't open file %s\n", program_name, list->name);
+	    maybequit();
+	  }
+	  else {
+	    *prev = abfd;
+	    abfd->next = member->next;
+	    found = 1;
+	  }
+	}
+	else {
+	  prev = &(member->next);
+	}
+	member = member->next;
+      }
+      if (!found)  {
+	bfd *abfd = bfd_openr(list->name, 0);
+	fprintf(stderr,"%s: can't find module file %s\n", program_name,
+		list->name);
+	if (!abfd) 
+	{
+	  fprintf(stderr, "%s: can't open file %s\n", program_name, list->name);
+	  maybequit();
+	}
+	else 
+	{
+	  *prev = abfd;
+	}
+      }
+
+    list = list->next;
+    }
+  }
+}
+
+/* And I added this one */
+void
+DEFUN_VOID(ar_list)
+{
+  if (!obfd) 
+  {
+    fprintf(stderr, "%s: no open output archive\n", program_name);
+    maybequit();
+  }
+  else {
+    bfd *abfd;
+    outfile = stdout;
+    verbose =1 ;
+    printf("Current open archive is %s\n", obfd->filename);
+    for (abfd = obfd->archive_head;
+	 abfd != (bfd *)NULL;
+	 abfd = abfd->next) 
+    {
+      ar_directory_doer(abfd);
+    }
+  }
+}