1 /* ar.c - Archive modify and extract.
2 Copyright (C) 1991-2020 Free Software Foundation, Inc.
4 This file is part of GNU Binutils.
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.
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.
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. */
22 Bugs: GNU ar used to check file against filesystem in quick_update and
23 replace operations (would check mtime). Doesn't warn when name truncated.
24 No way to specify pos_end. Error messages should be more consistent. */
28 #include "libiberty.h"
34 #include "filenames.h"
36 #include "plugin-api.h"
41 #define EXT_NAME_LEN 3 /* Bufflen of addition to name if it's MS-DOS. */
43 #define EXT_NAME_LEN 6 /* Ditto for *NIX. */
46 /* Static declarations. */
48 static void mri_emul (void);
49 static const char *normalize (const char *, bfd
*);
50 static void remove_output (void);
51 static void map_over_members (bfd
*, void (*)(bfd
*), char **, int);
52 static void print_contents (bfd
* member
);
53 static void delete_members (bfd
*, char **files_to_delete
);
55 static void move_members (bfd
*, char **files_to_move
);
56 static void replace_members
57 (bfd
*, char **files_to_replace
, bfd_boolean quick
);
58 static void print_descr (bfd
* abfd
);
59 static void write_archive (bfd
*);
60 static int ranlib_only (const char *archname
);
61 static int ranlib_touch (const char *archname
);
62 static void usage (int);
64 /** Globals and flags. */
68 /* This flag distinguishes between ar and ranlib:
69 1 means this is 'ranlib'; 0 means this is 'ar'.
70 -1 means if we should use argv[0] to decide. */
73 /* Nonzero means don't warn about creating the archive file if necessary. */
74 int silent_create
= 0;
76 /* Nonzero means describe each action performed. */
79 /* Nonzero means display offsets of files in the archive. */
80 int display_offsets
= 0;
82 /* Nonzero means preserve dates of members when extracting them. */
83 int preserve_dates
= 0;
85 /* Nonzero means don't replace existing members whose dates are more recent
86 than the corresponding files. */
89 /* Controls the writing of an archive symbol table (in BSD: a __.SYMDEF
90 member). -1 means we've been explicitly asked to not write a symbol table;
91 +1 means we've been explicitly asked to write it;
93 Traditionally, the default in BSD has been to not write the table.
94 However, for POSIX.2 compliance the default is now to write a symbol table
95 if any of the members are object files. */
98 /* Operate in deterministic mode: write zero for timestamps, uids,
99 and gids for archive members and the archive symbol table, and write
100 consistent file modes. */
101 int deterministic
= -1; /* Determinism indeterminate. */
103 /* Nonzero means it's the name of an existing member; position new or moved
104 files with respect to this one. */
105 char *posname
= NULL
;
107 /* Sez how to use `posname': pos_before means position before that member.
108 pos_after means position after that member. pos_end means always at end.
109 pos_default means default appropriately. For the latter two, `posname'
110 should also be zero. */
113 pos_default
, pos_before
, pos_after
, pos_end
114 } postype
= pos_default
;
118 none
= 0, del
, replace
, print_table
,
119 print_files
, extract
, move
, quick_append
123 get_pos_bfd (bfd
**, enum pos
, const char *);
125 /* For extract/delete only. If COUNTED_NAME_MODE is TRUE, we only
126 extract the COUNTED_NAME_COUNTER instance of that name. */
127 static bfd_boolean counted_name_mode
= 0;
128 static int counted_name_counter
= 0;
130 /* Whether to truncate names of files stored in the archive. */
131 static bfd_boolean ar_truncate
= FALSE
;
133 /* Whether to use a full file name match when searching an archive.
134 This is convenient for archives created by the Microsoft lib
136 static bfd_boolean full_pathname
= FALSE
;
138 /* Whether to create a "thin" archive (symbol index only -- no files). */
139 static bfd_boolean make_thin_archive
= FALSE
;
141 #define LIBDEPS "__.LIBDEP"
142 /* Text to store in the __.LIBDEP archive element for the linker to use. */
143 static char * libdeps
= NULL
;
144 static bfd
* libdeps_bfd
= NULL
;
146 static int show_version
= 0;
148 static int show_help
= 0;
150 #if BFD_SUPPORTS_PLUGINS
151 static const char *plugin_target
= "plugin";
153 static const char *plugin_target
= NULL
;
156 static const char *target
= NULL
;
158 enum long_option_numbers
165 static const char * output_dir
= NULL
;
167 static struct option long_options
[] =
169 {"help", no_argument
, &show_help
, 1},
170 {"plugin", required_argument
, NULL
, OPTION_PLUGIN
},
171 {"target", required_argument
, NULL
, OPTION_TARGET
},
172 {"version", no_argument
, &show_version
, 1},
173 {"output", required_argument
, NULL
, OPTION_OUTPUT
},
174 {"record-libdeps", required_argument
, NULL
, 'l'},
175 {NULL
, no_argument
, NULL
, 0}
183 interactive
= isatty (fileno (stdin
));
187 /* If COUNT is 0, then FUNCTION is called once on each entry. If nonzero,
188 COUNT is the length of the FILES chain; FUNCTION is called on each entry
189 whose name matches one in FILES. */
192 map_over_members (bfd
*arch
, void (*function
)(bfd
*), char **files
, int count
)
199 for (head
= arch
->archive_next
; head
; head
= head
->archive_next
)
207 /* This may appear to be a baroque way of accomplishing what we want.
208 However we have to iterate over the filenames in order to notice where
209 a filename is requested but does not exist in the archive. Ditto
210 mapping over each file each time -- we want to hack multiple
213 for (head
= arch
->archive_next
; head
; head
= head
->archive_next
)
214 head
->archive_pass
= 0;
216 for (; count
> 0; files
++, count
--)
218 bfd_boolean found
= FALSE
;
221 for (head
= arch
->archive_next
; head
; head
= head
->archive_next
)
223 const char * filename
;
226 /* PR binutils/15796: Once an archive element has been matched
227 do not match it again. If the user provides multiple same-named
228 parameters on the command line their intent is to match multiple
229 same-named entries in the archive, not the same entry multiple
231 if (head
->archive_pass
)
234 filename
= bfd_get_filename (head
);
235 if (filename
== NULL
)
237 /* Some archive formats don't get the filenames filled in
238 until the elements are opened. */
240 bfd_stat_arch_elt (head
, &buf
);
242 else if (bfd_is_thin_archive (arch
))
244 /* Thin archives store full pathnames. Need to normalize. */
245 filename
= normalize (filename
, arch
);
249 && !FILENAME_CMP (normalize (*files
, arch
), filename
))
252 if (counted_name_mode
253 && match_count
!= counted_name_counter
)
255 /* Counting, and didn't match on count; go on to the
262 head
->archive_pass
= 1;
263 /* PR binutils/15796: Once a file has been matched, do not
264 match any more same-named files in the archive. If the
265 user does want to match multiple same-name files in an
266 archive they should provide multiple same-name parameters
267 to the ar command. */
273 /* xgettext:c-format */
274 fprintf (stderr
, _("no entry %s in archive\n"), *files
);
278 bfd_boolean operation_alters_arch
= FALSE
;
285 #if BFD_SUPPORTS_PLUGINS
286 /* xgettext:c-format */
287 const char *command_line
288 = _("Usage: %s [emulation options] [-]{dmpqrstx}[abcDfilMNoOPsSTuvV]"
289 " [--plugin <name>] [member-name] [count] archive-file file...\n");
292 /* xgettext:c-format */
293 const char *command_line
294 = _("Usage: %s [emulation options] [-]{dmpqrstx}[abcDfilMNoOPsSTuvV]"
295 " [member-name] [count] archive-file file...\n");
297 s
= help
? stdout
: stderr
;
299 fprintf (s
, command_line
, program_name
);
301 /* xgettext:c-format */
302 fprintf (s
, _(" %s -M [<mri-script]\n"), program_name
);
303 fprintf (s
, _(" commands:\n"));
304 fprintf (s
, _(" d - delete file(s) from the archive\n"));
305 fprintf (s
, _(" m[ab] - move file(s) in the archive\n"));
306 fprintf (s
, _(" p - print file(s) found in the archive\n"));
307 fprintf (s
, _(" q[f] - quick append file(s) to the archive\n"));
308 fprintf (s
, _(" r[ab][f][u] - replace existing or insert new file(s) into the archive\n"));
309 fprintf (s
, _(" s - act as ranlib\n"));
310 fprintf (s
, _(" t[O][v] - display contents of the archive\n"));
311 fprintf (s
, _(" x[o] - extract file(s) from the archive\n"));
312 fprintf (s
, _(" command specific modifiers:\n"));
313 fprintf (s
, _(" [a] - put file(s) after [member-name]\n"));
314 fprintf (s
, _(" [b] - put file(s) before [member-name] (same as [i])\n"));
315 if (DEFAULT_AR_DETERMINISTIC
)
318 [D] - use zero for timestamps and uids/gids (default)\n"));
320 [U] - use actual timestamps and uids/gids\n"));
325 [D] - use zero for timestamps and uids/gids\n"));
327 [U] - use actual timestamps and uids/gids (default)\n"));
329 fprintf (s
, _(" [N] - use instance [count] of name\n"));
330 fprintf (s
, _(" [f] - truncate inserted file names\n"));
331 fprintf (s
, _(" [P] - use full path names when matching\n"));
332 fprintf (s
, _(" [o] - preserve original dates\n"));
333 fprintf (s
, _(" [O] - display offsets of files in the archive\n"));
334 fprintf (s
, _(" [u] - only replace files that are newer than current archive contents\n"));
335 fprintf (s
, _(" generic modifiers:\n"));
336 fprintf (s
, _(" [c] - do not warn if the library had to be created\n"));
337 fprintf (s
, _(" [s] - create an archive index (cf. ranlib)\n"));
338 fprintf (s
, _(" [l <text> ] - specify the dependencies of this library\n"));
339 fprintf (s
, _(" [S] - do not build a symbol table\n"));
340 fprintf (s
, _(" [T] - make a thin archive\n"));
341 fprintf (s
, _(" [v] - be verbose\n"));
342 fprintf (s
, _(" [V] - display the version number\n"));
343 fprintf (s
, _(" @<file> - read options from <file>\n"));
344 fprintf (s
, _(" --target=BFDNAME - specify the target object format as BFDNAME\n"));
345 fprintf (s
, _(" --output=DIRNAME - specify the output directory for extraction operations\n"));
346 fprintf (s
, _(" --record-libdeps=<text> - specify the dependencies of this library\n"));
347 #if BFD_SUPPORTS_PLUGINS
348 fprintf (s
, _(" optional:\n"));
349 fprintf (s
, _(" --plugin <p> - load the specified plugin\n"));
354 list_supported_targets (program_name
, s
);
356 if (REPORT_BUGS_TO
[0] && help
)
357 fprintf (s
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
359 xexit (help
? 0 : 1);
363 ranlib_usage (int help
)
367 s
= help
? stdout
: stderr
;
369 /* xgettext:c-format */
370 fprintf (s
, _("Usage: %s [options] archive\n"), program_name
);
371 fprintf (s
, _(" Generate an index to speed access to archives\n"));
372 fprintf (s
, _(" The options are:\n\
373 @<file> Read options from <file>\n"));
374 #if BFD_SUPPORTS_PLUGINS
376 --plugin <name> Load the specified plugin\n"));
378 if (DEFAULT_AR_DETERMINISTIC
)
380 -D Use zero for symbol map timestamp (default)\n\
381 -U Use an actual symbol map timestamp\n"));
384 -D Use zero for symbol map timestamp\n\
385 -U Use actual symbol map timestamp (default)\n"));
387 -t Update the archive's symbol map timestamp\n\
388 -h --help Print this help message\n\
389 -v --version Print version information\n"));
391 list_supported_targets (program_name
, s
);
393 if (REPORT_BUGS_TO
[0] && help
)
394 fprintf (s
, _("Report bugs to %s\n"), REPORT_BUGS_TO
);
396 xexit (help
? 0 : 1);
399 /* Normalize a file name specified on the command line into a file
400 name which we will use in an archive. */
403 normalize (const char *file
, bfd
*abfd
)
405 const char *filename
;
410 filename
= lbasename (file
);
414 && strlen (filename
) > abfd
->xvec
->ar_max_namelen
)
419 s
= (char *) xmalloc (abfd
->xvec
->ar_max_namelen
+ 1);
420 memcpy (s
, filename
, abfd
->xvec
->ar_max_namelen
);
421 s
[abfd
->xvec
->ar_max_namelen
] = '\0';
428 /* Remove any output file. This is only called via xatexit. */
430 static const char *output_filename
= NULL
;
431 static FILE *output_file
= NULL
;
432 static bfd
*output_bfd
= NULL
;
437 if (output_filename
!= NULL
)
439 if (output_bfd
!= NULL
)
440 bfd_cache_close (output_bfd
);
441 if (output_file
!= NULL
)
442 fclose (output_file
);
443 unlink_if_ordinary (output_filename
);
448 decode_options (int argc
, char **argv
)
452 /* Convert old-style ar call by exploding option element and rearranging
453 options accordingly. */
456 if (argc
> 1 && argv
[1][0] != '-')
458 int new_argc
; /* argc value for rearranged arguments */
459 char **new_argv
; /* argv value for rearranged arguments */
460 char *const *in
; /* cursor into original argv */
461 char **out
; /* cursor into rearranged argv */
462 const char *letter
; /* cursor into old option letters */
463 char buffer
[3]; /* constructed option buffer */
465 /* Initialize a constructed option. */
470 /* Allocate a new argument array, and copy program name in it. */
472 new_argc
= argc
- 1 + strlen (argv
[1]);
473 new_argv
= xmalloc ((new_argc
+ 1) * sizeof (*argv
));
478 /* Copy each old letter option as a separate option. */
480 for (letter
= *in
++; *letter
; letter
++)
483 *out
++ = xstrdup (buffer
);
486 /* Copy all remaining options. */
488 while (in
< argv
+ argc
)
492 /* Replace the old option list by the new one. */
498 while ((c
= getopt_long (argc
, argv
, "hdmpqrtxl:coOVsSuvabiMNfPTDU",
499 long_options
, NULL
)) != EOF
)
510 if (operation
!= none
)
511 fatal (_("two different operation options specified"));
522 operation_alters_arch
= TRUE
;
526 operation_alters_arch
= TRUE
;
529 operation
= print_files
;
532 operation
= quick_append
;
533 operation_alters_arch
= TRUE
;
537 operation_alters_arch
= TRUE
;
540 operation
= print_table
;
547 fatal (_("libdeps specified more than once"));
578 postype
= pos_before
;
581 postype
= pos_before
;
587 counted_name_mode
= TRUE
;
593 full_pathname
= TRUE
;
596 make_thin_archive
= TRUE
;
599 deterministic
= TRUE
;
602 deterministic
= FALSE
;
605 #if BFD_SUPPORTS_PLUGINS
606 bfd_plugin_set_plugin (optarg
);
608 fprintf (stderr
, _("sorry - this program has been built without plugin support\n"));
618 case 0: /* A long option that just sets a flag. */
625 /* PR 13256: Allow for the possibility that the first command line option
626 started with a dash (eg --plugin) but then the following option(s) are
627 old style, non-dash-prefixed versions. */
628 if (operation
== none
&& write_armap
!= 1 && !mri_mode
629 && optind
> 0 && optind
< argc
)
631 argv
+= (optind
- 1);
632 argc
-= (optind
- 1);
637 return &argv
[optind
];
640 /* If neither -D nor -U was specified explicitly,
641 then use the configured default. */
643 default_deterministic (void)
645 if (deterministic
< 0)
646 deterministic
= DEFAULT_AR_DETERMINISTIC
;
650 ranlib_main (int argc
, char **argv
)
652 int arg_index
, status
= 0;
653 bfd_boolean touch
= FALSE
;
656 while ((c
= getopt_long (argc
, argv
, "DhHUvVt", long_options
, NULL
)) != EOF
)
661 deterministic
= TRUE
;
664 deterministic
= FALSE
;
678 /* PR binutils/13493: Support plugins. */
680 #if BFD_SUPPORTS_PLUGINS
681 bfd_plugin_set_plugin (optarg
);
683 fprintf (stderr
, _("sorry - this program has been built without plugin support\n"));
697 print_version ("ranlib");
699 default_deterministic ();
703 while (arg_index
< argc
)
706 status
|= ranlib_only (argv
[arg_index
]);
708 status
|= ranlib_touch (argv
[arg_index
]);
715 int main (int, char **);
718 main (int argc
, char **argv
)
723 char *inarch_filename
;
726 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
727 setlocale (LC_MESSAGES
, "");
729 #if defined (HAVE_SETLOCALE)
730 setlocale (LC_CTYPE
, "");
732 bindtextdomain (PACKAGE
, LOCALEDIR
);
733 textdomain (PACKAGE
);
735 program_name
= argv
[0];
736 xmalloc_set_program_name (program_name
);
737 bfd_set_error_program_name (program_name
);
738 #if BFD_SUPPORTS_PLUGINS
739 bfd_plugin_set_program_name (program_name
);
742 expandargv (&argc
, &argv
);
746 const char *temp
= lbasename (program_name
);
748 if (strlen (temp
) >= 6
749 && FILENAME_CMP (temp
+ strlen (temp
) - 6, "ranlib") == 0)
755 START_PROGRESS (program_name
, 0);
757 if (bfd_init () != BFD_INIT_MAGIC
)
758 fatal (_("fatal error: libbfd ABI mismatch"));
759 set_default_bfd_target ();
761 xatexit (remove_output
);
763 for (i
= 1; i
< argc
; i
++)
764 if (! ar_emul_parse_arg (argv
[i
]))
770 ranlib_main (argc
, argv
);
775 argv
= decode_options (argc
, argv
);
781 print_version ("ar");
787 default_deterministic ();
794 /* Fail if no files are specified on the command line.
795 (But not for MRI mode which allows for reading arguments
796 and filenames from stdin). */
797 if (argv
[arg_index
] == NULL
)
800 /* We don't use do_quick_append any more. Too many systems
801 expect ar to always rebuild the symbol table even when q is
804 /* We can't write an armap when using ar q, so just do ar r
806 if (operation
== quick_append
&& write_armap
)
809 if ((operation
== none
|| operation
== print_table
)
811 xexit (ranlib_only (argv
[arg_index
]));
813 if (operation
== none
)
814 fatal (_("no operation specified"));
816 if (newer_only
&& operation
!= replace
)
817 fatal (_("`u' is only meaningful with the `r' option."));
819 if (newer_only
&& deterministic
> 0)
820 fatal (_("`u' is not meaningful with the `D' option."));
822 if (newer_only
&& deterministic
< 0 && DEFAULT_AR_DETERMINISTIC
)
824 `u' modifier ignored since `D' is the default (see `U')"));
826 default_deterministic ();
828 if (postype
!= pos_default
)
830 posname
= argv
[arg_index
++];
832 fatal (_("missing position arg."));
835 if (counted_name_mode
)
837 if (operation
!= extract
&& operation
!= del
)
838 fatal (_("`N' is only meaningful with the `x' and `d' options."));
839 if (argv
[arg_index
] == NULL
)
840 fatal (_("`N' missing value."));
841 counted_name_counter
= atoi (argv
[arg_index
++]);
842 if (counted_name_counter
<= 0)
843 fatal (_("Value for `N' must be positive."));
846 inarch_filename
= argv
[arg_index
++];
847 if (inarch_filename
== NULL
)
850 for (file_count
= 0; argv
[arg_index
+ file_count
] != NULL
; file_count
++)
853 files
= (file_count
> 0) ? argv
+ arg_index
: NULL
;
855 arch
= open_inarch (inarch_filename
,
856 files
== NULL
? (char *) NULL
: files
[0]);
858 if (operation
== extract
&& bfd_is_thin_archive (arch
))
859 fatal (_("`x' cannot be used on thin archives."));
864 bfd_size_type reclen
= strlen (libdeps
) + 1;
866 /* Create a bfd to contain the dependencies.
867 It inherits its type from arch, but we must set the type to
868 "binary" otherwise bfd_bwrite() will fail. After writing, we
869 must set the type back to default otherwise adding it to the
870 archive will fail. */
871 libdeps_bfd
= bfd_create (LIBDEPS
, arch
);
872 if (libdeps_bfd
== NULL
)
873 fatal (_("Cannot create libdeps record."));
875 if (bfd_find_target ("binary", libdeps_bfd
) == NULL
)
876 fatal (_("Cannot set libdeps record type to binary."));
878 if (! bfd_set_format (libdeps_bfd
, bfd_object
))
879 fatal (_("Cannot set libdeps object format."));
881 if (! bfd_make_writable (libdeps_bfd
))
882 fatal (_("Cannot make libdeps object writable."));
884 if (bfd_bwrite (libdeps
, reclen
, libdeps_bfd
) != reclen
)
885 fatal (_("Cannot write libdeps record."));
887 if (! bfd_make_readable (libdeps_bfd
))
888 fatal (_("Cannot make libdeps object readable."));
890 if (bfd_find_target (plugin_target
, libdeps_bfd
) == NULL
)
891 fatal (_("Cannot reset libdeps record type."));
893 /* Insert our libdeps record in 2nd slot of the list of files
894 being operated on. We shouldn't use 1st slot, but we want
895 to avoid having to search all the way to the end of an
896 archive with a large number of members at link time. */
897 new_files
= xmalloc ((file_count
+ 2) * sizeof (char *));
898 new_files
[0] = files
[0];
899 new_files
[1] = LIBDEPS
;
900 for (i
= 1; i
< file_count
; i
++)
901 new_files
[i
+1] = files
[i
];
910 map_over_members (arch
, print_descr
, files
, file_count
);
914 map_over_members (arch
, print_contents
, files
, file_count
);
918 map_over_members (arch
, extract_file
, files
, file_count
);
923 delete_members (arch
, files
);
925 output_filename
= NULL
;
929 /* PR 12558: Creating and moving at the same time does
930 not make sense. Just create the archive instead. */
934 move_members (arch
, files
);
936 output_filename
= NULL
;
943 if (files
!= NULL
|| write_armap
> 0)
944 replace_members (arch
, files
, operation
== quick_append
);
946 output_filename
= NULL
;
949 /* Shouldn't happen! */
951 /* xgettext:c-format */
952 fatal (_("internal error -- this option not implemented"));
956 END_PROGRESS (program_name
);
963 open_inarch (const char *archive_filename
, const char *file
)
971 bfd_set_error (bfd_error_no_error
);
974 target
= plugin_target
;
976 if (stat (archive_filename
, &sbuf
) != 0)
978 #if !defined(__GO32__) || defined(__DJGPP__)
980 /* FIXME: I don't understand why this fragment was ifndef'ed
981 away for __GO32__; perhaps it was in the days of DJGPP v1.x.
982 stat() works just fine in v2.x, so I think this should be
983 removed. For now, I enable it for DJGPP v2. -- EZ. */
985 /* KLUDGE ALERT! Temporary fix until I figger why
986 stat() is wrong ... think it's buried in GO32's IDT - Jax */
988 bfd_fatal (archive_filename
);
991 if (!operation_alters_arch
)
993 fprintf (stderr
, "%s: ", program_name
);
994 perror (archive_filename
);
999 /* If the target isn't set, try to figure out the target to use
1000 for the archive from the first object on the list. */
1001 if (target
== NULL
&& file
!= NULL
)
1005 obj
= bfd_openr (file
, target
);
1008 if (bfd_check_format (obj
, bfd_object
))
1009 target
= bfd_get_target (obj
);
1010 (void) bfd_close (obj
);
1014 /* Create an empty archive. */
1015 arch
= bfd_openw (archive_filename
, target
);
1017 || ! bfd_set_format (arch
, bfd_archive
)
1018 || ! bfd_close (arch
))
1019 bfd_fatal (archive_filename
);
1020 else if (!silent_create
)
1021 non_fatal (_("creating %s"), archive_filename
);
1023 /* If we die creating a new archive, don't leave it around. */
1024 output_filename
= archive_filename
;
1027 arch
= bfd_openr (archive_filename
, target
);
1031 bfd_fatal (archive_filename
);
1034 if (! bfd_check_format_matches (arch
, bfd_archive
, &matching
))
1036 bfd_nonfatal (archive_filename
);
1037 if (bfd_get_error () == bfd_error_file_ambiguously_recognized
)
1039 list_matching_formats (matching
);
1045 if ((operation
== replace
|| operation
== quick_append
)
1046 && bfd_openr_next_archived_file (arch
, NULL
) != NULL
)
1048 /* PR 15140: Catch attempts to convert a normal
1049 archive into a thin archive or vice versa. */
1050 if (make_thin_archive
&& ! bfd_is_thin_archive (arch
))
1052 fatal (_("Cannot convert existing library %s to thin format"),
1053 bfd_get_filename (arch
));
1056 else if (! make_thin_archive
&& bfd_is_thin_archive (arch
))
1058 fatal (_("Cannot convert existing thin library %s to normal format"),
1059 bfd_get_filename (arch
));
1064 last_one
= &(arch
->archive_next
);
1065 /* Read all the contents right away, regardless. */
1066 for (next_one
= bfd_openr_next_archived_file (arch
, NULL
);
1068 next_one
= bfd_openr_next_archived_file (arch
, next_one
))
1071 *last_one
= next_one
;
1072 last_one
= &next_one
->archive_next
;
1074 *last_one
= (bfd
*) NULL
;
1075 if (bfd_get_error () != bfd_error_no_more_archived_files
)
1081 print_contents (bfd
*abfd
)
1083 bfd_size_type ncopied
= 0;
1085 char *cbuf
= (char *) xmalloc (BUFSIZE
);
1088 if (bfd_stat_arch_elt (abfd
, &buf
) != 0)
1089 /* xgettext:c-format */
1090 fatal (_("internal stat error on %s"), bfd_get_filename (abfd
));
1093 printf ("\n<%s>\n\n", bfd_get_filename (abfd
));
1095 bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
);
1098 while (ncopied
< size
)
1100 bfd_size_type nread
;
1101 bfd_size_type tocopy
= size
- ncopied
;
1103 if (tocopy
> BUFSIZE
)
1106 nread
= bfd_bread (cbuf
, tocopy
, abfd
);
1107 if (nread
!= tocopy
)
1108 /* xgettext:c-format */
1109 fatal (_("%s is not a valid archive"),
1110 bfd_get_filename (abfd
->my_archive
));
1112 /* fwrite in mingw32 may return int instead of bfd_size_type. Cast the
1113 return value to bfd_size_type to avoid comparison between signed and
1115 if ((bfd_size_type
) fwrite (cbuf
, 1, nread
, stdout
) != nread
)
1116 fatal ("stdout: %s", strerror (errno
));
1123 static FILE * open_output_file (bfd
*) ATTRIBUTE_RETURNS_NONNULL
;
1126 open_output_file (bfd
* abfd
)
1128 output_filename
= bfd_get_filename (abfd
);
1130 /* PR binutils/17533: Do not allow directory traversal
1131 outside of the current directory tree - unless the
1132 user has explicitly specified an output directory. */
1133 if (! is_valid_archive_path (output_filename
))
1135 char * base
= (char *) lbasename (output_filename
);
1137 non_fatal (_("illegal output pathname for archive member: %s, using '%s' instead"),
1138 output_filename
, base
);
1139 output_filename
= base
;
1144 size_t len
= strlen (output_dir
);
1148 /* FIXME: There is a memory leak here, but it is not serious. */
1149 if (IS_DIR_SEPARATOR (output_dir
[len
- 1]))
1150 output_filename
= concat (output_dir
, output_filename
, NULL
);
1152 output_filename
= concat (output_dir
, "/", output_filename
, NULL
);
1157 printf ("x - %s\n", output_filename
);
1159 FILE * ostream
= fopen (output_filename
, FOPEN_WB
);
1160 if (ostream
== NULL
)
1162 perror (output_filename
);
1169 /* Extract a member of the archive into its own file.
1171 We defer opening the new file until after we have read a BUFSIZ chunk of the
1172 old one, since we know we have just read the archive header for the old
1173 one. Since most members are shorter than BUFSIZ, this means we will read
1174 the old header, read the old data, write a new inode for the new file, and
1175 write the new data, and be done. This 'optimization' is what comes from
1176 sitting next to a bare disk and hearing it every time it seeks. -- Gnu
1180 extract_file (bfd
*abfd
)
1185 if (bfd_stat_arch_elt (abfd
, &buf
) != 0)
1186 /* xgettext:c-format */
1187 fatal (_("internal stat error on %s"), bfd_get_filename (abfd
));
1190 bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
);
1195 output_file
= open_output_file (abfd
);
1199 bfd_size_type ncopied
= 0;
1200 char *cbuf
= (char *) xmalloc (BUFSIZE
);
1202 while (ncopied
< size
)
1204 bfd_size_type nread
, tocopy
;
1206 tocopy
= size
- ncopied
;
1207 if (tocopy
> BUFSIZE
)
1210 nread
= bfd_bread (cbuf
, tocopy
, abfd
);
1211 if (nread
!= tocopy
)
1212 /* xgettext:c-format */
1213 fatal (_("%s is not a valid archive"),
1214 bfd_get_filename (abfd
->my_archive
));
1216 /* See comment above; this saves disk arm motion. */
1217 if (output_file
== NULL
)
1218 output_file
= open_output_file (abfd
);
1220 /* fwrite in mingw32 may return int instead of bfd_size_type. Cast
1221 the return value to bfd_size_type to avoid comparison between
1222 signed and unsigned values. */
1223 if ((bfd_size_type
) fwrite (cbuf
, 1, nread
, output_file
) != nread
)
1224 fatal ("%s: %s", output_filename
, strerror (errno
));
1232 fclose (output_file
);
1236 chmod (output_filename
, buf
.st_mode
);
1240 /* Set access time to modification time. Only st_mtime is
1241 initialized by bfd_stat_arch_elt. */
1242 buf
.st_atime
= buf
.st_mtime
;
1243 set_times (output_filename
, &buf
);
1246 output_filename
= NULL
;
1250 write_archive (bfd
*iarch
)
1253 char *old_name
, *new_name
;
1254 bfd
*contents_head
= iarch
->archive_next
;
1256 old_name
= (char *) xmalloc (strlen (bfd_get_filename (iarch
)) + 1);
1257 strcpy (old_name
, bfd_get_filename (iarch
));
1258 new_name
= make_tempname (old_name
);
1260 if (new_name
== NULL
)
1261 bfd_fatal (_("could not create temporary file whilst writing archive"));
1263 output_filename
= new_name
;
1265 obfd
= bfd_openw (new_name
, bfd_get_target (iarch
));
1268 bfd_fatal (old_name
);
1272 bfd_set_format (obfd
, bfd_archive
);
1274 /* Request writing the archive symbol table unless we've
1275 been explicitly requested not to. */
1276 obfd
->has_armap
= write_armap
>= 0;
1280 /* This should really use bfd_set_file_flags, but that rejects
1282 obfd
->flags
|= BFD_TRADITIONAL_FORMAT
;
1286 obfd
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
1289 obfd
->flags
|= BFD_ARCHIVE_FULL_PATH
;
1291 if (make_thin_archive
|| bfd_is_thin_archive (iarch
))
1292 bfd_set_thin_archive (obfd
, TRUE
);
1294 if (!bfd_set_archive_head (obfd
, contents_head
))
1295 bfd_fatal (old_name
);
1297 if (!bfd_close (obfd
))
1298 bfd_fatal (old_name
);
1301 output_filename
= NULL
;
1303 /* We don't care if this fails; we might be creating the archive. */
1306 if (smart_rename (new_name
, old_name
, 0) != 0)
1312 /* Return a pointer to the pointer to the entry which should be rplacd'd
1313 into when altering. DEFAULT_POS should be how to interpret pos_default,
1314 and should be a pos value. */
1317 get_pos_bfd (bfd
**contents
, enum pos default_pos
, const char *default_posname
)
1319 bfd
**after_bfd
= contents
;
1321 const char *realposname
;
1323 if (postype
== pos_default
)
1325 realpos
= default_pos
;
1326 realposname
= default_posname
;
1331 realposname
= posname
;
1334 if (realpos
== pos_end
)
1337 after_bfd
= &((*after_bfd
)->archive_next
);
1341 for (; *after_bfd
; after_bfd
= &(*after_bfd
)->archive_next
)
1342 if (FILENAME_CMP (bfd_get_filename (*after_bfd
), realposname
) == 0)
1344 if (realpos
== pos_after
)
1345 after_bfd
= &(*after_bfd
)->archive_next
;
1353 delete_members (bfd
*arch
, char **files_to_delete
)
1355 bfd
**current_ptr_ptr
;
1357 bfd_boolean something_changed
= FALSE
;
1360 for (; *files_to_delete
!= NULL
; ++files_to_delete
)
1362 /* In a.out systems, the armap is optional. It's also called
1363 __.SYMDEF. So if the user asked to delete it, we should remember
1364 that fact. This isn't quite right for COFF systems (where
1365 __.SYMDEF might be regular member), but it's very unlikely
1366 to be a problem. FIXME */
1368 if (!strcmp (*files_to_delete
, "__.SYMDEF"))
1370 arch
->has_armap
= FALSE
;
1377 current_ptr_ptr
= &(arch
->archive_next
);
1378 while (*current_ptr_ptr
)
1380 if (FILENAME_CMP (normalize (*files_to_delete
, arch
),
1381 bfd_get_filename (*current_ptr_ptr
)) == 0)
1384 if (counted_name_mode
1385 && match_count
!= counted_name_counter
)
1387 /* Counting, and didn't match on count; go on to the
1393 something_changed
= TRUE
;
1397 *current_ptr_ptr
= ((*current_ptr_ptr
)->archive_next
);
1402 current_ptr_ptr
= &((*current_ptr_ptr
)->archive_next
);
1405 if (verbose
&& !found
)
1407 /* xgettext:c-format */
1408 printf (_("No member named `%s'\n"), *files_to_delete
);
1414 if (something_changed
)
1415 write_archive (arch
);
1417 output_filename
= NULL
;
1421 /* Reposition existing members within an archive */
1424 move_members (bfd
*arch
, char **files_to_move
)
1426 bfd
**after_bfd
; /* New entries go after this one */
1427 bfd
**current_ptr_ptr
; /* cdr pointer into contents */
1429 for (; *files_to_move
; ++files_to_move
)
1431 current_ptr_ptr
= &(arch
->archive_next
);
1432 while (*current_ptr_ptr
)
1434 bfd
*current_ptr
= *current_ptr_ptr
;
1435 if (FILENAME_CMP (normalize (*files_to_move
, arch
),
1436 bfd_get_filename (current_ptr
)) == 0)
1438 /* Move this file to the end of the list - first cut from
1441 *current_ptr_ptr
= current_ptr
->archive_next
;
1443 /* Now glue to end */
1444 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_end
, NULL
);
1445 link_bfd
= *after_bfd
;
1446 *after_bfd
= current_ptr
;
1447 current_ptr
->archive_next
= link_bfd
;
1450 printf ("m - %s\n", *files_to_move
);
1455 current_ptr_ptr
= &((*current_ptr_ptr
)->archive_next
);
1457 /* xgettext:c-format */
1458 fatal (_("no entry %s in archive %s!"), *files_to_move
,
1459 bfd_get_filename (arch
));
1464 write_archive (arch
);
1467 /* Ought to default to replacing in place, but this is existing practice! */
1470 replace_members (bfd
*arch
, char **files_to_move
, bfd_boolean quick
)
1472 bfd_boolean changed
= FALSE
;
1473 bfd
**after_bfd
; /* New entries go after this one. */
1477 while (files_to_move
&& *files_to_move
)
1481 current_ptr
= &arch
->archive_next
;
1482 while (*current_ptr
)
1484 current
= *current_ptr
;
1486 /* For compatibility with existing ar programs, we
1487 permit the same file to be added multiple times. */
1488 if (FILENAME_CMP (normalize (*files_to_move
, arch
),
1489 normalize (bfd_get_filename (current
), arch
)) == 0
1490 && current
->arelt_data
!= NULL
)
1492 bfd_boolean replaced
;
1495 struct stat fsbuf
, asbuf
;
1497 if (stat (*files_to_move
, &fsbuf
) != 0)
1499 if (errno
!= ENOENT
)
1500 bfd_fatal (*files_to_move
);
1503 if (bfd_stat_arch_elt (current
, &asbuf
) != 0)
1504 /* xgettext:c-format */
1505 fatal (_("internal stat error on %s"),
1506 bfd_get_filename (current
));
1508 if (fsbuf
.st_mtime
<= asbuf
.st_mtime
)
1512 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_after
,
1513 bfd_get_filename (current
));
1514 if (libdeps_bfd
!= NULL
1515 && FILENAME_CMP (normalize (*files_to_move
, arch
),
1518 replaced
= ar_emul_replace_bfd (after_bfd
, libdeps_bfd
,
1523 replaced
= ar_emul_replace (after_bfd
, *files_to_move
,
1528 /* Snip out this entry from the chain. */
1529 *current_ptr
= (*current_ptr
)->archive_next
;
1535 current_ptr
= &(current
->archive_next
);
1539 /* Add to the end of the archive. */
1540 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_end
, NULL
);
1542 if (libdeps_bfd
!= NULL
1543 && FILENAME_CMP (normalize (*files_to_move
, arch
), LIBDEPS
) == 0)
1545 changed
|= ar_emul_append_bfd (after_bfd
, libdeps_bfd
,
1546 verbose
, make_thin_archive
);
1550 changed
|= ar_emul_append (after_bfd
, *files_to_move
, target
,
1551 verbose
, make_thin_archive
);
1560 write_archive (arch
);
1562 output_filename
= NULL
;
1566 ranlib_only (const char *archname
)
1570 if (get_file_size (archname
) < 1)
1573 arch
= open_inarch (archname
, (char *) NULL
);
1576 write_archive (arch
);
1580 /* Update the timestamp of the symbol map of an archive. */
1583 ranlib_touch (const char *archname
)
1586 /* I don't think updating works on go32. */
1587 ranlib_only (archname
);
1593 if (get_file_size (archname
) < 1)
1595 f
= open (archname
, O_RDWR
| O_BINARY
, 0);
1598 bfd_set_error (bfd_error_system_call
);
1599 bfd_fatal (archname
);
1602 arch
= bfd_fdopenr (archname
, (const char *) NULL
, f
);
1604 bfd_fatal (archname
);
1605 if (! bfd_check_format_matches (arch
, bfd_archive
, &matching
))
1607 bfd_nonfatal (archname
);
1608 if (bfd_get_error () == bfd_error_file_ambiguously_recognized
)
1610 list_matching_formats (matching
);
1616 if (! bfd_has_map (arch
))
1617 /* xgettext:c-format */
1618 fatal (_("%s: no archive map to update"), archname
);
1621 arch
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
1623 bfd_update_armap_timestamp (arch
);
1625 if (! bfd_close (arch
))
1626 bfd_fatal (archname
);
1631 /* Things which are interesting to map over all or some of the files: */
1634 print_descr (bfd
*abfd
)
1636 print_arelt_descr (stdout
, abfd
, verbose
, display_offsets
);