1/* arsup.c - Archive support for MRI compatibility
2   Copyright (C) 1992-2017 Free Software Foundation, Inc.
3
4   This file is part of GNU Binutils.
5
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.
10
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.
15
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.  */
20
21
22/* Contributed by Steve Chamberlain
23   sac@cygnus.com
24
25   This file looks after requests from arparse.y, to provide the MRI
26   style librarian command syntax + 1 word LIST.  */
27
28#include "sysdep.h"
29#include "bfd.h"
30#include "libiberty.h"
31#include "filenames.h"
32#include "bucomm.h"
33#include "arsup.h"
34
35static void map_over_list
36  (bfd *, void (*function) (bfd *, bfd *), struct list *);
37static void ar_directory_doer (bfd *, bfd *);
38static void ar_addlib_doer (bfd *, bfd *);
39
40extern int verbose;
41extern int deterministic;
42
43static bfd *obfd;
44static char *real_name;
45static FILE *outfile;
46
47static void
48map_over_list (bfd *arch, void (*function) (bfd *, bfd *), struct list *list)
49{
50  bfd *head;
51
52  if (list == NULL)
53    {
54      bfd *next;
55
56      head = arch->archive_next;
57      while (head != NULL)
58	{
59	  next = head->archive_next;
60	  function (head, (bfd *) NULL);
61	  head = next;
62	}
63    }
64  else
65    {
66      struct list *ptr;
67
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)
74	{
75	  bfd_boolean found = FALSE;
76	  bfd *prev = arch;
77
78	  for (head = arch->archive_next; head; head = head->archive_next)
79	    {
80	      if (head->filename != NULL
81		  && FILENAME_CMP (ptr->name, head->filename) == 0)
82		{
83		  found = TRUE;
84		  function (head, prev);
85		}
86	      prev = head;
87	    }
88	  if (! found)
89	    fprintf (stderr, _("No entry %s in archive.\n"), ptr->name);
90	}
91    }
92}
93
94
95
96static void
97ar_directory_doer (bfd *abfd, bfd *ignore ATTRIBUTE_UNUSED)
98{
99  print_arelt_descr(outfile, abfd, verbose);
100}
101
102void
103ar_directory (char *ar_name, struct list *list, char *output)
104{
105  bfd *arch;
106
107  arch = open_inarch (ar_name, (char *) NULL);
108  if (output)
109    {
110      outfile = fopen(output,"w");
111      if (outfile == 0)
112	{
113	  outfile = stdout;
114	  fprintf (stderr,_("Can't open file %s\n"), output);
115	  output = 0;
116	}
117    }
118  else
119    outfile = stdout;
120
121  map_over_list (arch, ar_directory_doer, list);
122
123  bfd_close (arch);
124
125  if (output)
126   fclose (outfile);
127}
128
129void
130prompt (void)
131{
132  extern int interactive;
133
134  if (interactive)
135    {
136      printf ("AR >");
137      fflush (stdout);
138    }
139}
140
141void
142maybequit (void)
143{
144  if (! interactive)
145    xexit (9);
146}
147
148
149void
150ar_open (char *name, int t)
151{
152  char *tname = (char *) xmalloc (strlen (name) + 10);
153  const char *bname = lbasename (name);
154  real_name = name;
155
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);
160
161  if (!obfd)
162    {
163      fprintf (stderr,
164	       _("%s: Can't open output archive %s\n"),
165	       program_name,  tname);
166
167      maybequit ();
168    }
169  else
170    {
171      if (!t)
172	{
173	  bfd **ptr;
174	  bfd *element;
175	  bfd *ibfd;
176
177	  ibfd = bfd_openr (name, NULL);
178
179	  if (!ibfd)
180	    {
181	      fprintf (stderr,_("%s: Can't open input archive %s\n"),
182		       program_name, name);
183	      maybequit ();
184	      return;
185	    }
186
187	  if (!bfd_check_format(ibfd, bfd_archive))
188	    {
189	      fprintf (stderr,
190		       _("%s: file %s is not an archive\n"),
191		       program_name, name);
192	      maybequit ();
193	      return;
194	    }
195
196	  ptr = &(obfd->archive_head);
197	  element = bfd_openr_next_archived_file (ibfd, NULL);
198
199	  while (element)
200	    {
201	      *ptr = element;
202	      ptr = &element->archive_next;
203	      element = bfd_openr_next_archived_file (ibfd, element);
204	    }
205	}
206
207      bfd_set_format (obfd, bfd_archive);
208
209      obfd->has_armap = 1;
210      obfd->is_thin_archive = 0;
211    }
212}
213
214static void
215ar_addlib_doer (bfd *abfd, bfd *prev)
216{
217  /* Add this module to the output bfd.  */
218  if (prev != NULL)
219    prev->archive_next = abfd->archive_next;
220
221  abfd->archive_next = obfd->archive_head;
222  obfd->archive_head = abfd;
223}
224
225void
226ar_addlib (char *name, struct list *list)
227{
228  if (obfd == NULL)
229    {
230      fprintf (stderr, _("%s: no output archive specified yet\n"), program_name);
231      maybequit ();
232    }
233  else
234    {
235      bfd *arch;
236
237      arch = open_inarch (name, (char *) NULL);
238      if (arch != NULL)
239	map_over_list (arch, ar_addlib_doer, list);
240
241      /* Don't close the bfd, since it will make the elements disappear.  */
242    }
243}
244
245void
246ar_addmod (struct list *list)
247{
248  if (!obfd)
249    {
250      fprintf (stderr, _("%s: no open output archive\n"), program_name);
251      maybequit ();
252    }
253  else
254    {
255      while (list)
256	{
257	  bfd *abfd = bfd_openr (list->name, NULL);
258
259	  if (!abfd)
260	    {
261	      fprintf (stderr, _("%s: can't open file %s\n"),
262		       program_name, list->name);
263	      maybequit ();
264	    }
265	  else
266	    {
267	      abfd->archive_next = obfd->archive_head;
268	      obfd->archive_head = abfd;
269	    }
270	  list = list->next;
271	}
272    }
273}
274
275
276void
277ar_clear (void)
278{
279  if (obfd)
280    obfd->archive_head = 0;
281}
282
283void
284ar_delete (struct list *list)
285{
286  if (!obfd)
287    {
288      fprintf (stderr, _("%s: no open output archive\n"), program_name);
289      maybequit ();
290    }
291  else
292    {
293      while (list)
294	{
295	  /* Find this name in the archive.  */
296	  bfd *member = obfd->archive_head;
297	  bfd **prev = &(obfd->archive_head);
298	  int found = 0;
299
300	  while (member)
301	    {
302	      if (FILENAME_CMP(member->filename, list->name) == 0)
303		{
304		  *prev = member->archive_next;
305		  found = 1;
306		}
307	      else
308		prev = &(member->archive_next);
309
310	      member = member->archive_next;
311	    }
312
313	  if (!found)
314	    {
315	      fprintf (stderr, _("%s: can't find module file %s\n"),
316		       program_name, list->name);
317	      maybequit ();
318	    }
319
320	  list = list->next;
321	}
322    }
323}
324
325void
326ar_save (void)
327{
328  if (!obfd)
329    {
330      fprintf (stderr, _("%s: no open output archive\n"), program_name);
331      maybequit ();
332    }
333  else
334    {
335      char *ofilename = xstrdup (bfd_get_filename (obfd));
336
337      if (deterministic > 0)
338        obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
339
340      bfd_close (obfd);
341
342      smart_rename (ofilename, real_name, 0);
343      obfd = 0;
344      free (ofilename);
345    }
346}
347
348void
349ar_replace (struct list *list)
350{
351  if (!obfd)
352    {
353      fprintf (stderr, _("%s: no open output archive\n"), program_name);
354      maybequit ();
355    }
356  else
357    {
358      while (list)
359	{
360	  /* Find this name in the archive.  */
361	  bfd *member = obfd->archive_head;
362	  bfd **prev = &(obfd->archive_head);
363	  int found = 0;
364
365	  while (member)
366	    {
367	      if (FILENAME_CMP (member->filename, list->name) == 0)
368		{
369		  /* Found the one to replace.  */
370		  bfd *abfd = bfd_openr (list->name, 0);
371
372		  if (!abfd)
373		    {
374		      fprintf (stderr, _("%s: can't open file %s\n"),
375			       program_name, list->name);
376		      maybequit ();
377		    }
378		  else
379		    {
380		      *prev = abfd;
381		      abfd->archive_next = member->archive_next;
382		      found = 1;
383		    }
384		}
385	      else
386		{
387		  prev = &(member->archive_next);
388		}
389	      member = member->archive_next;
390	    }
391
392	  if (!found)
393	    {
394	      bfd *abfd = bfd_openr (list->name, 0);
395
396	      fprintf (stderr,_("%s: can't find module file %s\n"),
397		       program_name, list->name);
398	      if (!abfd)
399		{
400		  fprintf (stderr, _("%s: can't open file %s\n"),
401			   program_name, list->name);
402		  maybequit ();
403		}
404	      else
405		*prev = abfd;
406	    }
407
408	  list = list->next;
409	}
410    }
411}
412
413/* And I added this one.  */
414void
415ar_list (void)
416{
417  if (!obfd)
418    {
419      fprintf (stderr, _("%s: no open output archive\n"), program_name);
420      maybequit ();
421    }
422  else
423    {
424      bfd *abfd;
425
426      outfile = stdout;
427      verbose =1 ;
428      printf (_("Current open archive is %s\n"), bfd_get_filename (obfd));
429
430      for (abfd = obfd->archive_head;
431	   abfd != (bfd *)NULL;
432	   abfd = abfd->archive_next)
433	ar_directory_doer (abfd, (bfd *) NULL);
434    }
435}
436
437void
438ar_end (void)
439{
440  if (obfd)
441    {
442      bfd_cache_close (obfd);
443      unlink (bfd_get_filename (obfd));
444    }
445}
446
447void
448ar_extract (struct list *list)
449{
450  if (!obfd)
451    {
452      fprintf (stderr, _("%s: no open archive\n"), program_name);
453      maybequit ();
454    }
455  else
456    {
457      while (list)
458	{
459	  /* Find this name in the archive.  */
460	  bfd *member = obfd->archive_head;
461	  int found = 0;
462
463	  while (member && !found)
464	    {
465	      if (FILENAME_CMP (member->filename, list->name) == 0)
466		{
467		  extract_file (member);
468		  found = 1;
469		}
470
471	      member = member->archive_next;
472	    }
473
474	  if (!found)
475	    {
476	      bfd_openr (list->name, 0);
477	      fprintf (stderr, _("%s: can't find module file %s\n"),
478		       program_name, list->name);
479	    }
480
481	  list = list->next;
482	}
483    }
484}
485