1 /* arsup.c - Archive support for MRI compatibility
2 Copyright (C) 1992-2017 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
22 /* Contributed by Steve Chamberlain
25 This file looks after requests from arparse.y, to provide the MRI
26 style librarian command syntax + 1 word LIST. */
30 #include "libiberty.h"
31 #include "filenames.h"
35 static void map_over_list
36 (bfd
*, void (*function
) (bfd
*, bfd
*), struct list
*);
37 static void ar_directory_doer (bfd
*, bfd
*);
38 static void ar_addlib_doer (bfd
*, bfd
*);
41 extern int deterministic
;
44 static char *real_name
;
48 map_over_list (bfd
*arch
, void (*function
) (bfd
*, bfd
*), struct list
*list
)
56 head
= arch
->archive_next
;
59 next
= head
->archive_next
;
60 function (head
, (bfd
*) NULL
);
68 /* This may appear to be a baroque way of accomplishing what we
69 want. however we have to iterate over the filenames in order
70 to notice where a filename is requested but does not exist in
71 the archive. Ditto mapping over each file each time -- we
72 want to hack multiple references. */
73 for (ptr
= list
; ptr
; ptr
= ptr
->next
)
75 bfd_boolean found
= FALSE
;
78 for (head
= arch
->archive_next
; head
; head
= head
->archive_next
)
80 if (head
->filename
!= NULL
81 && FILENAME_CMP (ptr
->name
, head
->filename
) == 0)
84 function (head
, prev
);
89 fprintf (stderr
, _("No entry %s in archive.\n"), ptr
->name
);
97 ar_directory_doer (bfd
*abfd
, bfd
*ignore ATTRIBUTE_UNUSED
)
99 print_arelt_descr(outfile
, abfd
, verbose
);
103 ar_directory (char *ar_name
, struct list
*list
, char *output
)
107 arch
= open_inarch (ar_name
, (char *) NULL
);
110 outfile
= fopen(output
,"w");
114 fprintf (stderr
,_("Can't open file %s\n"), output
);
121 map_over_list (arch
, ar_directory_doer
, list
);
132 extern int interactive
;
150 ar_open (char *name
, int t
)
152 char *tname
= (char *) xmalloc (strlen (name
) + 10);
153 const char *bname
= lbasename (name
);
156 /* Prepend tmp- to the beginning, to avoid file-name clashes after
157 truncation on filesystems with limited namespaces (DOS). */
158 sprintf (tname
, "%.*stmp-%s", (int) (bname
- name
), name
, bname
);
159 obfd
= bfd_openw (tname
, NULL
);
164 _("%s: Can't open output archive %s\n"),
165 program_name
, tname
);
177 ibfd
= bfd_openr (name
, NULL
);
181 fprintf (stderr
,_("%s: Can't open input archive %s\n"),
187 if (!bfd_check_format(ibfd
, bfd_archive
))
190 _("%s: file %s is not an archive\n"),
196 ptr
= &(obfd
->archive_head
);
197 element
= bfd_openr_next_archived_file (ibfd
, NULL
);
202 ptr
= &element
->archive_next
;
203 element
= bfd_openr_next_archived_file (ibfd
, element
);
207 bfd_set_format (obfd
, bfd_archive
);
210 obfd
->is_thin_archive
= 0;
215 ar_addlib_doer (bfd
*abfd
, bfd
*prev
)
217 /* Add this module to the output bfd. */
219 prev
->archive_next
= abfd
->archive_next
;
221 abfd
->archive_next
= obfd
->archive_head
;
222 obfd
->archive_head
= abfd
;
226 ar_addlib (char *name
, struct list
*list
)
230 fprintf (stderr
, _("%s: no output archive specified yet\n"), program_name
);
237 arch
= open_inarch (name
, (char *) NULL
);
239 map_over_list (arch
, ar_addlib_doer
, list
);
241 /* Don't close the bfd, since it will make the elements disappear. */
246 ar_addmod (struct list
*list
)
250 fprintf (stderr
, _("%s: no open output archive\n"), program_name
);
259 #if BFD_SUPPORTS_PLUGINS
260 abfd
= bfd_openr (list
->name
, "plugin");
262 abfd
= bfd_openr (list
->name
, NULL
);
266 fprintf (stderr
, _("%s: can't open file %s\n"),
267 program_name
, list
->name
);
272 abfd
->archive_next
= obfd
->archive_head
;
273 obfd
->archive_head
= abfd
;
285 obfd
->archive_head
= 0;
289 ar_delete (struct list
*list
)
293 fprintf (stderr
, _("%s: no open output archive\n"), program_name
);
300 /* Find this name in the archive. */
301 bfd
*member
= obfd
->archive_head
;
302 bfd
**prev
= &(obfd
->archive_head
);
307 if (FILENAME_CMP(member
->filename
, list
->name
) == 0)
309 *prev
= member
->archive_next
;
313 prev
= &(member
->archive_next
);
315 member
= member
->archive_next
;
320 fprintf (stderr
, _("%s: can't find module file %s\n"),
321 program_name
, list
->name
);
335 fprintf (stderr
, _("%s: no open output archive\n"), program_name
);
340 char *ofilename
= xstrdup (bfd_get_filename (obfd
));
342 if (deterministic
> 0)
343 obfd
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
347 smart_rename (ofilename
, real_name
, 0);
354 ar_replace (struct list
*list
)
358 fprintf (stderr
, _("%s: no open output archive\n"), program_name
);
365 /* Find this name in the archive. */
366 bfd
*member
= obfd
->archive_head
;
367 bfd
**prev
= &(obfd
->archive_head
);
372 if (FILENAME_CMP (member
->filename
, list
->name
) == 0)
374 /* Found the one to replace. */
375 bfd
*abfd
= bfd_openr (list
->name
, NULL
);
379 fprintf (stderr
, _("%s: can't open file %s\n"),
380 program_name
, list
->name
);
386 abfd
->archive_next
= member
->archive_next
;
392 prev
= &(member
->archive_next
);
394 member
= member
->archive_next
;
399 bfd
*abfd
= bfd_openr (list
->name
, NULL
);
401 fprintf (stderr
,_("%s: can't find module file %s\n"),
402 program_name
, list
->name
);
405 fprintf (stderr
, _("%s: can't open file %s\n"),
406 program_name
, list
->name
);
418 /* And I added this one. */
424 fprintf (stderr
, _("%s: no open output archive\n"), program_name
);
433 printf (_("Current open archive is %s\n"), bfd_get_filename (obfd
));
435 for (abfd
= obfd
->archive_head
;
437 abfd
= abfd
->archive_next
)
438 ar_directory_doer (abfd
, (bfd
*) NULL
);
447 bfd_cache_close (obfd
);
448 unlink (bfd_get_filename (obfd
));
453 ar_extract (struct list
*list
)
457 fprintf (stderr
, _("%s: no open archive\n"), program_name
);
464 /* Find this name in the archive. */
465 bfd
*member
= obfd
->archive_head
;
468 while (member
&& !found
)
470 if (FILENAME_CMP (member
->filename
, list
->name
) == 0)
472 extract_file (member
);
476 member
= member
->archive_next
;
481 bfd_openr (list
->name
, NULL
);
482 fprintf (stderr
, _("%s: can't find module file %s\n"),
483 program_name
, list
->name
);
This page took 0.038961 seconds and 4 git commands to generate.