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