1 /* arsup.c - Archive support for MRI compatibility
2 Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000
3 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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
32 #include "libiberty.h"
34 #include "filenames.h"
36 static void map_over_list
37 PARAMS ((bfd
*, void (*function
) (bfd
*, bfd
*), struct list
*));
38 static void ar_directory_doer
PARAMS ((bfd
*, bfd
*));
39 static void ar_addlib_doer
PARAMS ((bfd
*, bfd
*));
44 map_over_list (arch
, function
, list
)
46 void (*function
) PARAMS ((bfd
*, bfd
*));
59 function (head
, (bfd
*) NULL
);
67 /* This may appear to be a baroque way of accomplishing what we
68 want. however we have to iterate over the filenames in order
69 to notice where a filename is requested but does not exist in
70 the archive. Ditto mapping over each file each time -- we
71 want to hack multiple references. */
72 for (ptr
= list
; ptr
; ptr
= ptr
->next
)
74 boolean found
= false;
77 for (head
= arch
->next
; head
; head
= head
->next
)
79 if (head
->filename
!= NULL
80 && FILENAME_CMP (ptr
->name
, head
->filename
) == 0)
83 function (head
, prev
);
88 fprintf (stderr
, _("No entry %s in archive.\n"), ptr
->name
);
98 ar_directory_doer (abfd
, ignore
)
100 bfd
*ignore ATTRIBUTE_UNUSED
;
102 print_arelt_descr(outfile
, abfd
, verbose
);
106 ar_directory (ar_name
, list
, output
)
113 arch
= open_inarch (ar_name
, (char *) NULL
);
116 outfile
= fopen(output
,"w");
120 fprintf (stderr
,_("Can't open file %s\n"), output
);
127 map_over_list (arch
, ar_directory_doer
, list
);
138 extern int interactive
;
157 DEFUN(ar_open
,(name
, t
),
162 char *tname
= (char *) xmalloc (strlen (name
) + 10);
164 /* Prepend tmp- to the beginning, to avoid file-name clashes after
165 truncation on filesystems with limited namespaces (DOS). */
166 sprintf(tname
, "tmp-%s", name
);
167 obfd
= bfd_openw(tname
, NULL
);
170 fprintf(stderr
,_("%s: Can't open output archive %s\n"), program_name
,
180 ibfd
= bfd_openr(name
, NULL
);
182 fprintf(stderr
,_("%s: Can't open input archive %s\n"),
187 if (bfd_check_format(ibfd
, bfd_archive
) != true) {
188 fprintf(stderr
,_("%s: file %s is not an archive\n"), program_name
,
193 ptr
= &(obfd
->archive_head
);
194 element
= bfd_openr_next_archived_file(ibfd
, NULL
);
198 ptr
= &element
->next
;
199 element
= bfd_openr_next_archived_file(ibfd
, element
);
203 bfd_set_format(obfd
, bfd_archive
);
211 ar_addlib_doer (abfd
, prev
)
215 /* Add this module to the output bfd */
217 prev
->next
= abfd
->next
;
218 abfd
->next
= obfd
->archive_head
;
219 obfd
->archive_head
= abfd
;
223 ar_addlib (name
, list
)
229 fprintf (stderr
, _("%s: no output archive specified yet\n"), program_name
);
236 arch
= open_inarch (name
, (char *) NULL
);
238 map_over_list (arch
, ar_addlib_doer
, list
);
240 /* Don't close the bfd, since it will make the elements disasppear */
245 DEFUN(ar_addmod
, (list
),
249 fprintf(stderr
, _("%s: no open output archive\n"), program_name
);
255 bfd
*abfd
= bfd_openr(list
->name
, NULL
);
257 fprintf(stderr
,_("%s: can't open file %s\n"), program_name
,
262 abfd
->next
= obfd
->archive_head
;
263 obfd
->archive_head
= abfd
;
276 obfd
->archive_head
= 0;
280 DEFUN(ar_delete
, (list
),
284 fprintf(stderr
, _("%s: no open output archive\n"), program_name
);
290 /* Find this name in the archive */
291 bfd
*member
= obfd
->archive_head
;
292 bfd
**prev
= &(obfd
->archive_head
);
295 if (FILENAME_CMP(member
->filename
, list
->name
) == 0) {
296 *prev
= member
->next
;
300 prev
= &(member
->next
);
302 member
= member
->next
;
305 fprintf(stderr
,_("%s: can't find module file %s\n"), program_name
,
320 fprintf(stderr
, _("%s: no open output archive\n"), program_name
);
324 char *ofilename
= xstrdup (bfd_get_filename (obfd
));
327 rename (ofilename
, real_name
);
336 DEFUN(ar_replace
, (list
),
340 fprintf(stderr
, _("%s: no open output archive\n"), program_name
);
346 /* Find this name in the archive */
347 bfd
*member
= obfd
->archive_head
;
348 bfd
**prev
= &(obfd
->archive_head
);
352 if (FILENAME_CMP(member
->filename
, list
->name
) == 0)
354 /* Found the one to replace */
355 bfd
*abfd
= bfd_openr(list
->name
, 0);
358 fprintf(stderr
, _("%s: can't open file %s\n"), program_name
, list
->name
);
363 abfd
->next
= member
->next
;
368 prev
= &(member
->next
);
370 member
= member
->next
;
373 bfd
*abfd
= bfd_openr(list
->name
, 0);
374 fprintf(stderr
,_("%s: can't find module file %s\n"), program_name
,
378 fprintf(stderr
, _("%s: can't open file %s\n"), program_name
, list
->name
);
392 /* And I added this one */
398 fprintf(stderr
, _("%s: no open output archive\n"), program_name
);
405 printf(_("Current open archive is %s\n"), bfd_get_filename (obfd
));
406 for (abfd
= obfd
->archive_head
;
410 ar_directory_doer (abfd
, (bfd
*) NULL
);
421 fclose((FILE *)(obfd
->iostream
));
422 unlink(bfd_get_filename (obfd
));
426 DEFUN(ar_extract
,(list
),
432 fprintf(stderr
, _("%s: no open archive\n"), program_name
);
438 /* Find this name in the archive */
439 bfd
*member
= obfd
->archive_head
;
441 while (member
&& !found
)
443 if (FILENAME_CMP(member
->filename
, list
->name
) == 0)
445 extract_file(member
);
449 member
= member
->next
;
452 bfd_openr(list
->name
, 0);
453 fprintf(stderr
,_("%s: can't find module file %s\n"), program_name
,
This page took 0.038718 seconds and 4 git commands to generate.