summaryrefslogtreecommitdiffstats
path: root/binutils-2.25/binutils/arsup.c
diff options
context:
space:
mode:
Diffstat (limited to 'binutils-2.25/binutils/arsup.c')
-rw-r--r--binutils-2.25/binutils/arsup.c484
1 files changed, 484 insertions, 0 deletions
diff --git a/binutils-2.25/binutils/arsup.c b/binutils-2.25/binutils/arsup.c
new file mode 100644
index 00000000..9c6953ef
--- /dev/null
+++ b/binutils-2.25/binutils/arsup.c
@@ -0,0 +1,484 @@
+/* arsup.c - Archive support for MRI compatibility
+ Copyright 1992-2013 2008 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
+ MA 02110-1301, 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 "sysdep.h"
+#include "bfd.h"
+#include "libiberty.h"
+#include "filenames.h"
+#include "bucomm.h"
+#include "arsup.h"
+
+static void map_over_list
+ (bfd *, void (*function) (bfd *, bfd *), struct list *);
+static void ar_directory_doer (bfd *, bfd *);
+static void ar_addlib_doer (bfd *, bfd *);
+
+extern int verbose;
+extern int deterministic;
+
+static bfd *obfd;
+static char *real_name;
+static FILE *outfile;
+
+static void
+map_over_list (bfd *arch, void (*function) (bfd *, bfd *), struct list *list)
+{
+ bfd *head;
+
+ if (list == NULL)
+ {
+ bfd *next;
+
+ head = arch->archive_next;
+ while (head != NULL)
+ {
+ next = head->archive_next;
+ function (head, (bfd *) NULL);
+ head = next;
+ }
+ }
+ else
+ {
+ struct list *ptr;
+
+ /* 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. */
+ for (ptr = list; ptr; ptr = ptr->next)
+ {
+ bfd_boolean found = FALSE;
+ bfd *prev = arch;
+
+ for (head = arch->archive_next; head; head = head->archive_next)
+ {
+ if (head->filename != NULL
+ && FILENAME_CMP (ptr->name, head->filename) == 0)
+ {
+ found = TRUE;
+ function (head, prev);
+ }
+ prev = head;
+ }
+ if (! found)
+ fprintf (stderr, _("No entry %s in archive.\n"), ptr->name);
+ }
+ }
+}
+
+
+
+static void
+ar_directory_doer (bfd *abfd, bfd *ignore ATTRIBUTE_UNUSED)
+{
+ print_arelt_descr(outfile, abfd, verbose);
+}
+
+void
+ar_directory (char *ar_name, struct list *list, char *output)
+{
+ bfd *arch;
+
+ arch = open_inarch (ar_name, (char *) NULL);
+ 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 (arch, ar_directory_doer, list);
+
+ bfd_close (arch);
+
+ if (output)
+ fclose (outfile);
+}
+
+void
+prompt (void)
+{
+ extern int interactive;
+
+ if (interactive)
+ {
+ printf ("AR >");
+ fflush (stdout);
+ }
+}
+
+void
+maybequit (void)
+{
+ if (! interactive)
+ xexit (9);
+}
+
+
+void
+ar_open (char *name, int t)
+{
+ char *tname = (char *) xmalloc (strlen (name) + 10);
+ const char *bname = lbasename (name);
+ real_name = name;
+
+ /* Prepend tmp- to the beginning, to avoid file-name clashes after
+ truncation on filesystems with limited namespaces (DOS). */
+ sprintf (tname, "%.*stmp-%s", (int) (bname - name), name, bname);
+ 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 (!ibfd)
+ {
+ fprintf (stderr,_("%s: Can't open input archive %s\n"),
+ program_name, name);
+ maybequit ();
+ return;
+ }
+
+ if (!bfd_check_format(ibfd, bfd_archive))
+ {
+ 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->archive_next;
+ element = bfd_openr_next_archived_file (ibfd, element);
+ }
+ }
+
+ bfd_set_format (obfd, bfd_archive);
+
+ obfd->has_armap = 1;
+ obfd->is_thin_archive = 0;
+ }
+}
+
+static void
+ar_addlib_doer (bfd *abfd, bfd *prev)
+{
+ /* Add this module to the output bfd. */
+ if (prev != NULL)
+ prev->archive_next = abfd->archive_next;
+
+ abfd->archive_next = obfd->archive_head;
+ obfd->archive_head = abfd;
+}
+
+void
+ar_addlib (char *name, struct list *list)
+{
+ if (obfd == NULL)
+ {
+ fprintf (stderr, _("%s: no output archive specified yet\n"), program_name);
+ maybequit ();
+ }
+ else
+ {
+ bfd *arch;
+
+ arch = open_inarch (name, (char *) NULL);
+ if (arch != NULL)
+ map_over_list (arch, ar_addlib_doer, list);
+
+ /* Don't close the bfd, since it will make the elements disappear. */
+ }
+}
+
+void
+ar_addmod (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->archive_next = obfd->archive_head;
+ obfd->archive_head = abfd;
+ }
+ list = list->next;
+ }
+ }
+}
+
+
+void
+ar_clear (void)
+{
+ if (obfd)
+ obfd->archive_head = 0;
+}
+
+void
+ar_delete (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 (FILENAME_CMP(member->filename, list->name) == 0)
+ {
+ *prev = member->archive_next;
+ found = 1;
+ }
+ else
+ prev = &(member->archive_next);
+
+ member = member->archive_next;
+ }
+
+ if (!found)
+ {
+ fprintf (stderr, _("%s: can't find module file %s\n"),
+ program_name, list->name);
+ maybequit ();
+ }
+
+ list = list->next;
+ }
+ }
+}
+
+void
+ar_save (void)
+{
+ if (!obfd)
+ {
+ fprintf (stderr, _("%s: no open output archive\n"), program_name);
+ maybequit ();
+ }
+ else
+ {
+ char *ofilename = xstrdup (bfd_get_filename (obfd));
+
+ if (deterministic > 0)
+ obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
+
+ bfd_close (obfd);
+
+ smart_rename (ofilename, real_name, 0);
+ obfd = 0;
+ free (ofilename);
+ }
+}
+
+void
+ar_replace (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 (FILENAME_CMP (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->archive_next = member->archive_next;
+ found = 1;
+ }
+ }
+ else
+ {
+ prev = &(member->archive_next);
+ }
+ member = member->archive_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
+ar_list (void)
+{
+ 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"), bfd_get_filename (obfd));
+
+ for (abfd = obfd->archive_head;
+ abfd != (bfd *)NULL;
+ abfd = abfd->archive_next)
+ ar_directory_doer (abfd, (bfd *) NULL);
+ }
+}
+
+void
+ar_end (void)
+{
+ if (obfd)
+ {
+ bfd_cache_close (obfd);
+ unlink (bfd_get_filename (obfd));
+ }
+}
+
+void
+ar_extract (struct list *list)
+{
+ if (!obfd)
+ {
+ fprintf (stderr, _("%s: no open archive\n"), program_name);
+ maybequit ();
+ }
+ else
+ {
+ while (list)
+ {
+ /* Find this name in the archive. */
+ bfd *member = obfd->archive_head;
+ int found = 0;
+
+ while (member && !found)
+ {
+ if (FILENAME_CMP (member->filename, list->name) == 0)
+ {
+ extract_file (member);
+ found = 1;
+ }
+
+ member = member->archive_next;
+ }
+
+ if (!found)
+ {
+ bfd_openr (list->name, 0);
+ fprintf (stderr, _("%s: can't find module file %s\n"),
+ program_name, list->name);
+ }
+
+ list = list->next;
+ }
+ }
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 07:49:17 +0000