1 /* ar.c - Archive modify and extract.
2 Copyright (C) 1991-2021 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
;
1257 old_name
= xstrdup (bfd_get_filename (iarch
));
1258 new_name
= make_tempname (old_name
, &tmpfd
);
1260 if (new_name
== NULL
)
1261 bfd_fatal (_("could not create temporary file whilst writing archive"));
1263 output_filename
= new_name
;
1265 obfd
= bfd_fdopenw (new_name
, bfd_get_target (iarch
), tmpfd
);
1270 bfd_fatal (old_name
);
1275 bfd_set_format (obfd
, bfd_archive
);
1277 /* Request writing the archive symbol table unless we've
1278 been explicitly requested not to. */
1279 obfd
->has_armap
= write_armap
>= 0;
1283 /* This should really use bfd_set_file_flags, but that rejects
1285 obfd
->flags
|= BFD_TRADITIONAL_FORMAT
;
1289 obfd
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
1292 obfd
->flags
|= BFD_ARCHIVE_FULL_PATH
;
1294 if (make_thin_archive
|| bfd_is_thin_archive (iarch
))
1295 bfd_set_thin_archive (obfd
, TRUE
);
1297 if (!bfd_set_archive_head (obfd
, contents_head
))
1298 bfd_fatal (old_name
);
1300 tmpfd
= dup (tmpfd
);
1301 if (!bfd_close (obfd
))
1302 bfd_fatal (old_name
);
1305 output_filename
= NULL
;
1307 /* We don't care if this fails; we might be creating the archive. */
1310 if (smart_rename (new_name
, old_name
, tmpfd
, NULL
, FALSE
) != 0)
1316 /* Return a pointer to the pointer to the entry which should be rplacd'd
1317 into when altering. DEFAULT_POS should be how to interpret pos_default,
1318 and should be a pos value. */
1321 get_pos_bfd (bfd
**contents
, enum pos default_pos
, const char *default_posname
)
1323 bfd
**after_bfd
= contents
;
1325 const char *realposname
;
1327 if (postype
== pos_default
)
1329 realpos
= default_pos
;
1330 realposname
= default_posname
;
1335 realposname
= posname
;
1338 if (realpos
== pos_end
)
1341 after_bfd
= &((*after_bfd
)->archive_next
);
1345 for (; *after_bfd
; after_bfd
= &(*after_bfd
)->archive_next
)
1346 if (FILENAME_CMP (bfd_get_filename (*after_bfd
), realposname
) == 0)
1348 if (realpos
== pos_after
)
1349 after_bfd
= &(*after_bfd
)->archive_next
;
1357 delete_members (bfd
*arch
, char **files_to_delete
)
1359 bfd
**current_ptr_ptr
;
1361 bfd_boolean something_changed
= FALSE
;
1364 for (; *files_to_delete
!= NULL
; ++files_to_delete
)
1366 /* In a.out systems, the armap is optional. It's also called
1367 __.SYMDEF. So if the user asked to delete it, we should remember
1368 that fact. This isn't quite right for COFF systems (where
1369 __.SYMDEF might be regular member), but it's very unlikely
1370 to be a problem. FIXME */
1372 if (!strcmp (*files_to_delete
, "__.SYMDEF"))
1374 arch
->has_armap
= FALSE
;
1381 current_ptr_ptr
= &(arch
->archive_next
);
1382 while (*current_ptr_ptr
)
1384 if (FILENAME_CMP (normalize (*files_to_delete
, arch
),
1385 bfd_get_filename (*current_ptr_ptr
)) == 0)
1388 if (counted_name_mode
1389 && match_count
!= counted_name_counter
)
1391 /* Counting, and didn't match on count; go on to the
1397 something_changed
= TRUE
;
1401 *current_ptr_ptr
= ((*current_ptr_ptr
)->archive_next
);
1406 current_ptr_ptr
= &((*current_ptr_ptr
)->archive_next
);
1409 if (verbose
&& !found
)
1411 /* xgettext:c-format */
1412 printf (_("No member named `%s'\n"), *files_to_delete
);
1418 if (something_changed
)
1419 write_archive (arch
);
1421 output_filename
= NULL
;
1425 /* Reposition existing members within an archive */
1428 move_members (bfd
*arch
, char **files_to_move
)
1430 bfd
**after_bfd
; /* New entries go after this one */
1431 bfd
**current_ptr_ptr
; /* cdr pointer into contents */
1433 for (; *files_to_move
; ++files_to_move
)
1435 current_ptr_ptr
= &(arch
->archive_next
);
1436 while (*current_ptr_ptr
)
1438 bfd
*current_ptr
= *current_ptr_ptr
;
1439 if (FILENAME_CMP (normalize (*files_to_move
, arch
),
1440 bfd_get_filename (current_ptr
)) == 0)
1442 /* Move this file to the end of the list - first cut from
1445 *current_ptr_ptr
= current_ptr
->archive_next
;
1447 /* Now glue to end */
1448 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_end
, NULL
);
1449 link_bfd
= *after_bfd
;
1450 *after_bfd
= current_ptr
;
1451 current_ptr
->archive_next
= link_bfd
;
1454 printf ("m - %s\n", *files_to_move
);
1459 current_ptr_ptr
= &((*current_ptr_ptr
)->archive_next
);
1461 /* xgettext:c-format */
1462 fatal (_("no entry %s in archive %s!"), *files_to_move
,
1463 bfd_get_filename (arch
));
1468 write_archive (arch
);
1471 /* Ought to default to replacing in place, but this is existing practice! */
1474 replace_members (bfd
*arch
, char **files_to_move
, bfd_boolean quick
)
1476 bfd_boolean changed
= FALSE
;
1477 bfd
**after_bfd
; /* New entries go after this one. */
1481 while (files_to_move
&& *files_to_move
)
1485 current_ptr
= &arch
->archive_next
;
1486 while (*current_ptr
)
1488 current
= *current_ptr
;
1490 /* For compatibility with existing ar programs, we
1491 permit the same file to be added multiple times. */
1492 if (FILENAME_CMP (normalize (*files_to_move
, arch
),
1493 normalize (bfd_get_filename (current
), arch
)) == 0
1494 && current
->arelt_data
!= NULL
)
1496 bfd_boolean replaced
;
1499 struct stat fsbuf
, asbuf
;
1501 if (stat (*files_to_move
, &fsbuf
) != 0)
1503 if (errno
!= ENOENT
)
1504 bfd_fatal (*files_to_move
);
1507 if (bfd_stat_arch_elt (current
, &asbuf
) != 0)
1508 /* xgettext:c-format */
1509 fatal (_("internal stat error on %s"),
1510 bfd_get_filename (current
));
1512 if (fsbuf
.st_mtime
<= asbuf
.st_mtime
)
1516 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_after
,
1517 bfd_get_filename (current
));
1518 if (libdeps_bfd
!= NULL
1519 && FILENAME_CMP (normalize (*files_to_move
, arch
),
1522 replaced
= ar_emul_replace_bfd (after_bfd
, libdeps_bfd
,
1527 replaced
= ar_emul_replace (after_bfd
, *files_to_move
,
1532 /* Snip out this entry from the chain. */
1533 *current_ptr
= (*current_ptr
)->archive_next
;
1539 current_ptr
= &(current
->archive_next
);
1543 /* Add to the end of the archive. */
1544 after_bfd
= get_pos_bfd (&arch
->archive_next
, pos_end
, NULL
);
1546 if (libdeps_bfd
!= NULL
1547 && FILENAME_CMP (normalize (*files_to_move
, arch
), LIBDEPS
) == 0)
1549 changed
|= ar_emul_append_bfd (after_bfd
, libdeps_bfd
,
1550 verbose
, make_thin_archive
);
1554 changed
|= ar_emul_append (after_bfd
, *files_to_move
, target
,
1555 verbose
, make_thin_archive
);
1564 write_archive (arch
);
1566 output_filename
= NULL
;
1570 ranlib_only (const char *archname
)
1574 if (get_file_size (archname
) < 1)
1577 arch
= open_inarch (archname
, (char *) NULL
);
1580 write_archive (arch
);
1584 /* Update the timestamp of the symbol map of an archive. */
1587 ranlib_touch (const char *archname
)
1590 /* I don't think updating works on go32. */
1591 ranlib_only (archname
);
1597 if (get_file_size (archname
) < 1)
1599 f
= open (archname
, O_RDWR
| O_BINARY
, 0);
1602 bfd_set_error (bfd_error_system_call
);
1603 bfd_fatal (archname
);
1606 arch
= bfd_fdopenr (archname
, (const char *) NULL
, f
);
1608 bfd_fatal (archname
);
1609 if (! bfd_check_format_matches (arch
, bfd_archive
, &matching
))
1611 bfd_nonfatal (archname
);
1612 if (bfd_get_error () == bfd_error_file_ambiguously_recognized
)
1614 list_matching_formats (matching
);
1620 if (! bfd_has_map (arch
))
1621 /* xgettext:c-format */
1622 fatal (_("%s: no archive map to update"), archname
);
1625 arch
->flags
|= BFD_DETERMINISTIC_OUTPUT
;
1627 bfd_update_armap_timestamp (arch
);
1629 if (! bfd_close (arch
))
1630 bfd_fatal (archname
);
1635 /* Things which are interesting to map over all or some of the files: */
1638 print_descr (bfd
*abfd
)
1640 print_arelt_descr (stdout
, abfd
, verbose
, display_offsets
);