summaryrefslogtreecommitdiffstats
path: root/binutils-2.24/binutils/arsup.c
diff options
context:
space:
mode:
Diffstat (limited to 'binutils-2.24/binutils/arsup.c')
-rw-r--r--binutils-2.24/binutils/arsup.c481
1 files changed, 0 insertions, 481 deletions
diff --git a/binutils-2.24/binutils/arsup.c b/binutils-2.24/binutils/arsup.c
deleted file mode 100644
index 9ddc55d6..00000000
--- a/binutils-2.24/binutils/arsup.c
+++ /dev/null
@@ -1,481 +0,0 @@
-/* arsup.c - Archive support for MRI compatibility
- Copyright 1992, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
- 2004, 2005, 2007, 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;
-
-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));
-
- 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-18 23:27:27 +0000