515 lines
10 KiB
C
515 lines
10 KiB
C
|
/* arsup.c - Archive support for MRI compatibility
|
||
|
|
Copyright (C) 1992-2022 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 char *temp_name;
|
||
|
|
static int temp_fd;
|
||
|
|
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)
|
||
|
|
{
|
||
|
|
bool found = false;
|
||
|
|
bfd *prev = arch;
|
||
|
|
|
||
|
|
for (head = arch->archive_next; head; head = head->archive_next)
|
||
|
|
{
|
||
|
|
if (bfd_get_filename (head) != NULL
|
||
|
|
&& FILENAME_CMP (ptr->name, bfd_get_filename (head)) == 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, false);
|
||
|
|
}
|
||
|
|
|
||
|
|
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)
|
||
|
|
{
|
||
|
|
real_name = xstrdup (name);
|
||
|
|
temp_name = make_tempname (real_name, &temp_fd);
|
||
|
|
|
||
|
|
if (temp_name == NULL)
|
||
|
|
{
|
||
|
|
fprintf (stderr, _("%s: Can't open temporary file (%s)\n"),
|
||
|
|
program_name, strerror(errno));
|
||
|
|
maybequit ();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
obfd = bfd_fdopenw (temp_name, NULL, temp_fd);
|
||
|
|
|
||
|
|
if (!obfd)
|
||
|
|
{
|
||
|
|
fprintf (stderr,
|
||
|
|
_("%s: Can't open output archive %s\n"),
|
||
|
|
program_name, temp_name);
|
||
|
|
|
||
|
|
maybequit ();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (!t)
|
||
|
|
{
|
||
|
|
bfd **ptr;
|
||
|
|
bfd *element;
|
||
|
|
bfd *ibfd;
|
||
|
|
|
||
|
|
#if BFD_SUPPORTS_PLUGINS
|
||
|
|
ibfd = bfd_openr (name, "plugin");
|
||
|
|
#else
|
||
|
|
ibfd = bfd_openr (name, NULL);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
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;
|
||
|
|
|
||
|
|
#if BFD_SUPPORTS_PLUGINS
|
||
|
|
abfd = bfd_openr (list->name, "plugin");
|
||
|
|
#else
|
||
|
|
abfd = bfd_openr (list->name, NULL);
|
||
|
|
#endif
|
||
|
|
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 (bfd_get_filename (member), 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
|
||
|
|
{
|
||
|
|
struct stat target_stat;
|
||
|
|
|
||
|
|
if (deterministic > 0)
|
||
|
|
obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
|
||
|
|
|
||
|
|
temp_fd = dup (temp_fd);
|
||
|
|
bfd_close (obfd);
|
||
|
|
|
||
|
|
if (stat (real_name, &target_stat) != 0)
|
||
|
|
{
|
||
|
|
/* The temp file created in ar_open has mode 0600 as per mkstemp.
|
||
|
|
Create the real empty output file here so smart_rename will
|
||
|
|
update the mode according to the process umask. */
|
||
|
|
obfd = bfd_openw (real_name, NULL);
|
||
|
|
if (obfd != NULL)
|
||
|
|
{
|
||
|
|
bfd_set_format (obfd, bfd_archive);
|
||
|
|
bfd_close (obfd);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
smart_rename (temp_name, real_name, temp_fd, NULL, false);
|
||
|
|
obfd = 0;
|
||
|
|
free (temp_name);
|
||
|
|
free (real_name);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
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 (bfd_get_filename (member), list->name) == 0)
|
||
|
|
{
|
||
|
|
/* Found the one to replace. */
|
||
|
|
bfd *abfd = bfd_openr (list->name, NULL);
|
||
|
|
|
||
|
|
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, NULL);
|
||
|
|
|
||
|
|
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 (bfd_get_filename (member), list->name) == 0)
|
||
|
|
{
|
||
|
|
extract_file (member);
|
||
|
|
found = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
member = member->archive_next;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!found)
|
||
|
|
{
|
||
|
|
bfd_openr (list->name, NULL);
|
||
|
|
fprintf (stderr, _("%s: can't find module file %s\n"),
|
||
|
|
program_name, list->name);
|
||
|
|
}
|
||
|
|
|
||
|
|
list = list->next;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|