2010-08-04 Tristan Gingold <gingold@adacore.com>
[binutils.git] / binutils / arsup.c
blob9ddc55d64a32d86f62da046dbae61a7ab248549a
1 /* arsup.c - Archive support for MRI compatibility
2 Copyright 1992, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
3 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
5 This file is part of GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
23 /* Contributed by Steve Chamberlain
24 sac@cygnus.com
26 This file looks after requests from arparse.y, to provide the MRI
27 style librarian command syntax + 1 word LIST. */
29 #include "sysdep.h"
30 #include "bfd.h"
31 #include "libiberty.h"
32 #include "filenames.h"
33 #include "bucomm.h"
34 #include "arsup.h"
36 static void map_over_list
37 (bfd *, void (*function) (bfd *, bfd *), struct list *);
38 static void ar_directory_doer (bfd *, bfd *);
39 static void ar_addlib_doer (bfd *, bfd *);
41 extern int verbose;
43 static bfd *obfd;
44 static char *real_name;
45 static FILE *outfile;
47 static void
48 map_over_list (bfd *arch, void (*function) (bfd *, bfd *), struct list *list)
50 bfd *head;
52 if (list == NULL)
54 bfd *next;
56 head = arch->archive_next;
57 while (head != NULL)
59 next = head->archive_next;
60 function (head, (bfd *) NULL);
61 head = next;
64 else
66 struct list *ptr;
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;
76 bfd *prev = arch;
78 for (head = arch->archive_next; head; head = head->archive_next)
80 if (head->filename != NULL
81 && FILENAME_CMP (ptr->name, head->filename) == 0)
83 found = TRUE;
84 function (head, prev);
86 prev = head;
88 if (! found)
89 fprintf (stderr, _("No entry %s in archive.\n"), ptr->name);
96 static void
97 ar_directory_doer (bfd *abfd, bfd *ignore ATTRIBUTE_UNUSED)
99 print_arelt_descr(outfile, abfd, verbose);
102 void
103 ar_directory (char *ar_name, struct list *list, char *output)
105 bfd *arch;
107 arch = open_inarch (ar_name, (char *) NULL);
108 if (output)
110 outfile = fopen(output,"w");
111 if (outfile == 0)
113 outfile = stdout;
114 fprintf (stderr,_("Can't open file %s\n"), output);
115 output = 0;
118 else
119 outfile = stdout;
121 map_over_list (arch, ar_directory_doer, list);
123 bfd_close (arch);
125 if (output)
126 fclose (outfile);
129 void
130 prompt (void)
132 extern int interactive;
134 if (interactive)
136 printf ("AR >");
137 fflush (stdout);
141 void
142 maybequit (void)
144 if (! interactive)
145 xexit (9);
149 void
150 ar_open (char *name, int t)
152 char *tname = (char *) xmalloc (strlen (name) + 10);
153 const char *bname = lbasename (name);
154 real_name = 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);
161 if (!obfd)
163 fprintf (stderr,
164 _("%s: Can't open output archive %s\n"),
165 program_name, tname);
167 maybequit ();
169 else
171 if (!t)
173 bfd **ptr;
174 bfd *element;
175 bfd *ibfd;
177 ibfd = bfd_openr (name, NULL);
179 if (!ibfd)
181 fprintf (stderr,_("%s: Can't open input archive %s\n"),
182 program_name, name);
183 maybequit ();
184 return;
187 if (!bfd_check_format(ibfd, bfd_archive))
189 fprintf (stderr,
190 _("%s: file %s is not an archive\n"),
191 program_name, name);
192 maybequit ();
193 return;
196 ptr = &(obfd->archive_head);
197 element = bfd_openr_next_archived_file (ibfd, NULL);
199 while (element)
201 *ptr = element;
202 ptr = &element->archive_next;
203 element = bfd_openr_next_archived_file (ibfd, element);
207 bfd_set_format (obfd, bfd_archive);
209 obfd->has_armap = 1;
210 obfd->is_thin_archive = 0;
214 static void
215 ar_addlib_doer (bfd *abfd, bfd *prev)
217 /* Add this module to the output bfd. */
218 if (prev != NULL)
219 prev->archive_next = abfd->archive_next;
221 abfd->archive_next = obfd->archive_head;
222 obfd->archive_head = abfd;
225 void
226 ar_addlib (char *name, struct list *list)
228 if (obfd == NULL)
230 fprintf (stderr, _("%s: no output archive specified yet\n"), program_name);
231 maybequit ();
233 else
235 bfd *arch;
237 arch = open_inarch (name, (char *) NULL);
238 if (arch != NULL)
239 map_over_list (arch, ar_addlib_doer, list);
241 /* Don't close the bfd, since it will make the elements disappear. */
245 void
246 ar_addmod (struct list *list)
248 if (!obfd)
250 fprintf (stderr, _("%s: no open output archive\n"), program_name);
251 maybequit ();
253 else
255 while (list)
257 bfd *abfd = bfd_openr (list->name, NULL);
259 if (!abfd)
261 fprintf (stderr, _("%s: can't open file %s\n"),
262 program_name, list->name);
263 maybequit ();
265 else
267 abfd->archive_next = obfd->archive_head;
268 obfd->archive_head = abfd;
270 list = list->next;
276 void
277 ar_clear (void)
279 if (obfd)
280 obfd->archive_head = 0;
283 void
284 ar_delete (struct list *list)
286 if (!obfd)
288 fprintf (stderr, _("%s: no open output archive\n"), program_name);
289 maybequit ();
291 else
293 while (list)
295 /* Find this name in the archive. */
296 bfd *member = obfd->archive_head;
297 bfd **prev = &(obfd->archive_head);
298 int found = 0;
300 while (member)
302 if (FILENAME_CMP(member->filename, list->name) == 0)
304 *prev = member->archive_next;
305 found = 1;
307 else
308 prev = &(member->archive_next);
310 member = member->archive_next;
313 if (!found)
315 fprintf (stderr, _("%s: can't find module file %s\n"),
316 program_name, list->name);
317 maybequit ();
320 list = list->next;
325 void
326 ar_save (void)
328 if (!obfd)
330 fprintf (stderr, _("%s: no open output archive\n"), program_name);
331 maybequit ();
333 else
335 char *ofilename = xstrdup (bfd_get_filename (obfd));
337 bfd_close (obfd);
339 smart_rename (ofilename, real_name, 0);
340 obfd = 0;
341 free (ofilename);
345 void
346 ar_replace (struct list *list)
348 if (!obfd)
350 fprintf (stderr, _("%s: no open output archive\n"), program_name);
351 maybequit ();
353 else
355 while (list)
357 /* Find this name in the archive. */
358 bfd *member = obfd->archive_head;
359 bfd **prev = &(obfd->archive_head);
360 int found = 0;
362 while (member)
364 if (FILENAME_CMP (member->filename, list->name) == 0)
366 /* Found the one to replace. */
367 bfd *abfd = bfd_openr (list->name, 0);
369 if (!abfd)
371 fprintf (stderr, _("%s: can't open file %s\n"),
372 program_name, list->name);
373 maybequit ();
375 else
377 *prev = abfd;
378 abfd->archive_next = member->archive_next;
379 found = 1;
382 else
384 prev = &(member->archive_next);
386 member = member->archive_next;
389 if (!found)
391 bfd *abfd = bfd_openr (list->name, 0);
393 fprintf (stderr,_("%s: can't find module file %s\n"),
394 program_name, list->name);
395 if (!abfd)
397 fprintf (stderr, _("%s: can't open file %s\n"),
398 program_name, list->name);
399 maybequit ();
401 else
402 *prev = abfd;
405 list = list->next;
410 /* And I added this one. */
411 void
412 ar_list (void)
414 if (!obfd)
416 fprintf (stderr, _("%s: no open output archive\n"), program_name);
417 maybequit ();
419 else
421 bfd *abfd;
423 outfile = stdout;
424 verbose =1 ;
425 printf (_("Current open archive is %s\n"), bfd_get_filename (obfd));
427 for (abfd = obfd->archive_head;
428 abfd != (bfd *)NULL;
429 abfd = abfd->archive_next)
430 ar_directory_doer (abfd, (bfd *) NULL);
434 void
435 ar_end (void)
437 if (obfd)
439 bfd_cache_close (obfd);
440 unlink (bfd_get_filename (obfd));
444 void
445 ar_extract (struct list *list)
447 if (!obfd)
449 fprintf (stderr, _("%s: no open archive\n"), program_name);
450 maybequit ();
452 else
454 while (list)
456 /* Find this name in the archive. */
457 bfd *member = obfd->archive_head;
458 int found = 0;
460 while (member && !found)
462 if (FILENAME_CMP (member->filename, list->name) == 0)
464 extract_file (member);
465 found = 1;
468 member = member->archive_next;
471 if (!found)
473 bfd_openr (list->name, 0);
474 fprintf (stderr, _("%s: can't find module file %s\n"),
475 program_name, list->name);
478 list = list->next;