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