1 /* ar.c - Archive modify and extract.
2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
24 Bugs: should use getopt the way tar does (complete w/optional -) and
25 should have long options too. GNU ar used to check file against filesystem
26 in quick_update and replace operations (would check mtime). Doesn't warn
27 when name truncated. No way to specify pos_end. Error messages should be
32 #include "libiberty.h"
38 #include "filenames.h"
44 #define EXT_NAME_LEN 3 /* Bufflen of addition to name if it's MS-DOS. */
46 #define EXT_NAME_LEN 6 /* Ditto for *NIX. */
49 /* Static declarations. */
51 static void mri_emul (void);
52 static const char *normalize (const char *, bfd *);
53 static void remove_output (void);
54 static void map_over_members (bfd *, void (*)(bfd *), char **, int);
55 static void print_contents (bfd * member);
56 static void delete_members (bfd *, char **files_to_delete);
58 static void move_members (bfd *, char **files_to_move);
59 static void replace_members
60 (bfd *, char **files_to_replace, bfd_boolean quick);
61 static void print_descr (bfd * abfd);
62 static void write_archive (bfd *);
63 static int ranlib_only (const char *archname);
64 static int ranlib_touch (const char *archname);
65 static void usage (int);
67 /** Globals and flags. */
71 /* This flag distinguishes between ar and ranlib:
72 1 means this is 'ranlib'; 0 means this is 'ar'.
73 -1 means if we should use argv[0] to decide. */
76 /* Nonzero means don't warn about creating the archive file if necessary. */
77 int silent_create = 0;
79 /* Nonzero means describe each action performed. */
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 = 0;
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;
117 get_pos_bfd (bfd **, enum pos, const char *);
119 /* For extract/delete only. If COUNTED_NAME_MODE is TRUE, we only
120 extract the COUNTED_NAME_COUNTER instance of that name. */
121 static bfd_boolean counted_name_mode = 0;
122 static int counted_name_counter = 0;
124 /* Whether to truncate names of files stored in the archive. */
125 static bfd_boolean ar_truncate = FALSE;
127 /* Whether to use a full file name match when searching an archive.
128 This is convenient for archives created by the Microsoft lib
130 static bfd_boolean full_pathname = FALSE;
132 /* Whether to create a "thin" archive (symbol index only -- no files). */
133 static bfd_boolean make_thin_archive = FALSE;
135 static const char *plugin_target = NULL;
142 interactive = isatty (fileno (stdin));
146 /* If COUNT is 0, then FUNCTION is called once on each entry. If nonzero,
147 COUNT is the length of the FILES chain; FUNCTION is called on each entry
148 whose name matches one in FILES. */
151 map_over_members (bfd *arch, void (*function)(bfd *), char **files, int count)
158 for (head = arch->archive_next; head; head = head->archive_next)
166 /* This may appear to be a baroque way of accomplishing what we want.
167 However we have to iterate over the filenames in order to notice where
168 a filename is requested but does not exist in the archive. Ditto
169 mapping over each file each time -- we want to hack multiple
172 for (; count > 0; files++, count--)
174 bfd_boolean found = FALSE;
177 for (head = arch->archive_next; head; head = head->archive_next)
179 const char * filename;
182 filename = head->filename;
183 if (filename == NULL)
185 /* Some archive formats don't get the filenames filled in
186 until the elements are opened. */
188 bfd_stat_arch_elt (head, &buf);
190 else if (bfd_is_thin_archive (arch))
192 /* Thin archives store full pathnames. Need to normalize. */
193 filename = normalize (filename, arch);
196 if ((filename != NULL) &&
197 (!FILENAME_CMP (normalize (*files, arch), filename)))
200 if (counted_name_mode
201 && match_count != counted_name_counter)
203 /* Counting, and didn't match on count; go on to the
214 /* xgettext:c-format */
215 fprintf (stderr, _("no entry %s in archive\n"), *files);
219 bfd_boolean operation_alters_arch = FALSE;
226 s = help ? stdout : stderr;
230 /* xgettext:c-format */
231 const char * command_line =
232 #if BFD_SUPPORTS_PLUGINS
233 _("Usage: %s [emulation options] [--plugin <name>] [-]{dmpqrstx}[abcfilNoPsSuvV] [member-name] [count] archive-file file...\n");
235 _("Usage: %s [emulation options] [-]{dmpqrstx}[abcfilNoPsSuvV] [member-name] [count] archive-file file...\n");
237 fprintf (s, command_line, program_name);
239 /* xgettext:c-format */
240 fprintf (s, _(" %s -M [<mri-script]\n"), program_name);
241 fprintf (s, _(" commands:\n"));
242 fprintf (s, _(" d - delete file(s) from the archive\n"));
243 fprintf (s, _(" m[ab] - move file(s) in the archive\n"));
244 fprintf (s, _(" p - print file(s) found in the archive\n"));
245 fprintf (s, _(" q[f] - quick append file(s) to the archive\n"));
246 fprintf (s, _(" r[ab][f][u] - replace existing or insert new file(s) into the archive\n"));
247 fprintf (s, _(" s - act as ranlib\n"));
248 fprintf (s, _(" t - display contents of archive\n"));
249 fprintf (s, _(" x[o] - extract file(s) from the archive\n"));
250 fprintf (s, _(" command specific modifiers:\n"));
251 fprintf (s, _(" [a] - put file(s) after [member-name]\n"));
252 fprintf (s, _(" [b] - put file(s) before [member-name] (same as [i])\n"));
253 fprintf (s, _(" [D] - use zero for timestamps and uids/gids\n"));
254 fprintf (s, _(" [N] - use instance [count] of name\n"));
255 fprintf (s, _(" [f] - truncate inserted file names\n"));
256 fprintf (s, _(" [P] - use full path names when matching\n"));
257 fprintf (s, _(" [o] - preserve original dates\n"));
258 fprintf (s, _(" [u] - only replace files that are newer than current archive contents\n"));
259 fprintf (s, _(" generic modifiers:\n"));
260 fprintf (s, _(" [c] - do not warn if the library had to be created\n"));
261 fprintf (s, _(" [s] - create an archive index (cf. ranlib)\n"));
262 fprintf (s, _(" [S] - do not build a symbol table\n"));
263 fprintf (s, _(" [T] - make a thin archive\n"));
264 fprintf (s, _(" [v] - be verbose\n"));
265 fprintf (s, _(" [V] - display the version number\n"));
266 fprintf (s, _(" @<file> - read options from <file>\n"));
267 #if BFD_SUPPORTS_PLUGINS
268 fprintf (s, _(" optional:\n"));
269 fprintf (s, _(" --plugin <p> - load the specified plugin\n"));
275 /* xgettext:c-format */
276 fprintf (s, _("Usage: %s [options] archive\n"), program_name);
277 fprintf (s, _(" Generate an index to speed access to archives\n"));
278 fprintf (s, _(" The options are:\n\
279 @<file> Read options from <file>\n"));
280 #if BFD_SUPPORTS_PLUGINS
282 --plugin <name> Load the specified plugin\n"));
285 -t Update the archive's symbol map timestamp\n\
286 -h --help Print this help message\n\
287 -v --version Print version information\n"));
290 list_supported_targets (program_name, s);
292 if (REPORT_BUGS_TO[0] && help)
293 fprintf (s, _("Report bugs to %s\n"), REPORT_BUGS_TO);
295 xexit (help ? 0 : 1);
298 /* Normalize a file name specified on the command line into a file
299 name which we will use in an archive. */
302 normalize (const char *file, bfd *abfd)
304 const char *filename;
309 filename = lbasename (file);
313 && strlen (filename) > abfd->xvec->ar_max_namelen)
318 s = (char *) xmalloc (abfd->xvec->ar_max_namelen + 1);
319 memcpy (s, filename, abfd->xvec->ar_max_namelen);
320 s[abfd->xvec->ar_max_namelen] = '\0';
327 /* Remove any output file. This is only called via xatexit. */
329 static const char *output_filename = NULL;
330 static FILE *output_file = NULL;
331 static bfd *output_bfd = NULL;
336 if (output_filename != NULL)
338 if (output_bfd != NULL)
339 bfd_cache_close (output_bfd);
340 if (output_file != NULL)
341 fclose (output_file);
342 unlink_if_ordinary (output_filename);
346 /* The option parsing should be in its own function.
347 It will be when I have getopt working. */
349 int main (int, char **);
352 main (int argc, char **argv)
358 none = 0, del, replace, print_table,
359 print_files, extract, move, quick_append
364 char *inarch_filename;
369 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
370 setlocale (LC_MESSAGES, "");
372 #if defined (HAVE_SETLOCALE)
373 setlocale (LC_CTYPE, "");
375 bindtextdomain (PACKAGE, LOCALEDIR);
376 textdomain (PACKAGE);
378 program_name = argv[0];
379 xmalloc_set_program_name (program_name);
380 #if BFD_SUPPORTS_PLUGINS
381 bfd_plugin_set_program_name (program_name);
384 expandargv (&argc, &argv);
388 const char *temp = lbasename (program_name);
390 if (strlen (temp) >= 6
391 && FILENAME_CMP (temp + strlen (temp) - 6, "ranlib") == 0)
397 if (argc > 1 && argv[1][0] == '-')
399 if (strcmp (argv[1], "--help") == 0)
401 else if (strcmp (argv[1], "--version") == 0)
404 print_version ("ranlib");
406 print_version ("ar");
410 START_PROGRESS (program_name, 0);
413 set_default_bfd_target ();
417 xatexit (remove_output);
419 for (i = 1; i < argc; i++)
420 if (! ar_emul_parse_arg (argv[i]))
428 bfd_boolean touch = FALSE;
431 || strcmp (argv[1], "--help") == 0
432 || strcmp (argv[1], "-h") == 0
433 || strcmp (argv[1], "-H") == 0)
435 if (strcmp (argv[1], "-V") == 0
436 || strcmp (argv[1], "-v") == 0
437 || CONST_STRNEQ (argv[1], "--v"))
438 print_version ("ranlib");
440 if (strcmp (argv[1], "-t") == 0)
445 while (arg_index < argc)
448 status |= ranlib_only (argv[arg_index]);
450 status |= ranlib_touch (argv[arg_index]);
456 if (argc == 2 && strcmp (argv[1], "-M") == 0)
466 arg_ptr = argv[arg_index];
468 if (strcmp (arg_ptr, "--plugin") == 0)
470 #if BFD_SUPPORTS_PLUGINS
474 bfd_plugin_set_plugin (argv[2]);
477 arg_ptr = argv[arg_index];
479 plugin_target = "plugin";
481 fprintf (stderr, _("sorry - this program has been built without plugin support\n"));
488 /* When the first option starts with '-' we support POSIX-compatible
491 ++arg_ptr; /* compatibility */
496 while ((c = *arg_ptr++) != '\0')
507 if (operation != none)
508 fatal (_("two different operation options specified"));
513 operation_alters_arch = TRUE;
517 operation_alters_arch = TRUE;
520 operation = print_files;
523 operation = quick_append;
524 operation_alters_arch = TRUE;
528 operation_alters_arch = TRUE;
531 operation = print_table;
564 postype = pos_before;
567 postype = pos_before;
573 counted_name_mode = TRUE;
579 full_pathname = TRUE;
582 make_thin_archive = TRUE;
585 deterministic = TRUE;
588 /* xgettext:c-format */
589 non_fatal (_("illegal option -- %c"), c);
594 /* With POSIX-compatible option parsing continue with the next
595 argument if it starts with '-'. */
596 if (do_posix && arg_index + 1 < argc && argv[arg_index + 1][0] == '-')
597 arg_ptr = argv[++arg_index] + 1;
604 print_version ("ar");
607 if (arg_index >= argc)
618 /* We don't use do_quick_append any more. Too many systems
619 expect ar to always rebuild the symbol table even when q is
622 /* We can't write an armap when using ar q, so just do ar r
624 if (operation == quick_append && write_armap)
627 if ((operation == none || operation == print_table)
629 xexit (ranlib_only (argv[arg_index]));
631 if (operation == none)
632 fatal (_("no operation specified"));
634 if (newer_only && operation != replace)
635 fatal (_("`u' is only meaningful with the `r' option."));
637 if (newer_only && deterministic)
638 fatal (_("`u' is not meaningful with the `D' option."));
640 if (postype != pos_default)
641 posname = argv[arg_index++];
643 if (counted_name_mode)
645 if (operation != extract && operation != del)
646 fatal (_("`N' is only meaningful with the `x' and `d' options."));
647 counted_name_counter = atoi (argv[arg_index++]);
648 if (counted_name_counter <= 0)
649 fatal (_("Value for `N' must be positive."));
652 inarch_filename = argv[arg_index++];
654 files = arg_index < argc ? argv + arg_index : NULL;
655 file_count = argc - arg_index;
657 arch = open_inarch (inarch_filename,
658 files == NULL ? (char *) NULL : files[0]);
660 if (operation == extract && bfd_is_thin_archive (arch))
661 fatal (_("`x' cannot be used on thin archives."));
666 map_over_members (arch, print_descr, files, file_count);
670 map_over_members (arch, print_contents, files, file_count);
674 map_over_members (arch, extract_file, files, file_count);
679 delete_members (arch, files);
681 output_filename = NULL;
686 move_members (arch, files);
688 output_filename = NULL;
693 if (files != NULL || write_armap > 0)
694 replace_members (arch, files, operation == quick_append);
696 output_filename = NULL;
699 /* Shouldn't happen! */
701 /* xgettext:c-format */
702 fatal (_("internal error -- this option not implemented"));
706 END_PROGRESS (program_name);
713 open_inarch (const char *archive_filename, const char *file)
722 bfd_set_error (bfd_error_no_error);
724 target = plugin_target;
726 if (stat (archive_filename, &sbuf) != 0)
728 #if !defined(__GO32__) || defined(__DJGPP__)
730 /* FIXME: I don't understand why this fragment was ifndef'ed
731 away for __GO32__; perhaps it was in the days of DJGPP v1.x.
732 stat() works just fine in v2.x, so I think this should be
733 removed. For now, I enable it for DJGPP v2. -- EZ. */
735 /* KLUDGE ALERT! Temporary fix until I figger why
736 stat() is wrong ... think it's buried in GO32's IDT - Jax */
738 bfd_fatal (archive_filename);
741 if (!operation_alters_arch)
743 fprintf (stderr, "%s: ", program_name);
744 perror (archive_filename);
749 /* Try to figure out the target to use for the archive from the
750 first object on the list. */
755 obj = bfd_openr (file, target);
758 if (bfd_check_format (obj, bfd_object))
759 target = bfd_get_target (obj);
760 (void) bfd_close (obj);
764 /* Create an empty archive. */
765 arch = bfd_openw (archive_filename, target);
767 || ! bfd_set_format (arch, bfd_archive)
768 || ! bfd_close (arch))
769 bfd_fatal (archive_filename);
770 else if (!silent_create)
771 non_fatal (_("creating %s"), archive_filename);
773 /* If we die creating a new archive, don't leave it around. */
774 output_filename = archive_filename;
777 arch = bfd_openr (archive_filename, target);
781 bfd_fatal (archive_filename);
784 if (! bfd_check_format_matches (arch, bfd_archive, &matching))
786 bfd_nonfatal (archive_filename);
787 if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
789 list_matching_formats (matching);
795 last_one = &(arch->archive_next);
796 /* Read all the contents right away, regardless. */
797 for (next_one = bfd_openr_next_archived_file (arch, NULL);
799 next_one = bfd_openr_next_archived_file (arch, next_one))
802 *last_one = next_one;
803 last_one = &next_one->archive_next;
805 *last_one = (bfd *) NULL;
806 if (bfd_get_error () != bfd_error_no_more_archived_files)
812 print_contents (bfd *abfd)
815 char *cbuf = (char *) xmalloc (BUFSIZE);
818 if (bfd_stat_arch_elt (abfd, &buf) != 0)
819 /* xgettext:c-format */
820 fatal (_("internal stat error on %s"), bfd_get_filename (abfd));
823 /* xgettext:c-format */
824 printf (_("\n<%s>\n\n"), bfd_get_filename (abfd));
826 bfd_seek (abfd, (file_ptr) 0, SEEK_SET);
829 while (ncopied < size)
833 size_t tocopy = size - ncopied;
834 if (tocopy > BUFSIZE)
837 nread = bfd_bread (cbuf, (bfd_size_type) tocopy, abfd);
839 /* xgettext:c-format */
840 fatal (_("%s is not a valid archive"),
841 bfd_get_filename (bfd_my_archive (abfd)));
843 /* fwrite in mingw32 may return int instead of size_t. Cast the
844 return value to size_t to avoid comparison between signed and
846 if ((size_t) fwrite (cbuf, 1, nread, stdout) != nread)
847 fatal ("stdout: %s", strerror (errno));
853 /* Extract a member of the archive into its own file.
855 We defer opening the new file until after we have read a BUFSIZ chunk of the
856 old one, since we know we have just read the archive header for the old
857 one. Since most members are shorter than BUFSIZ, this means we will read
858 the old header, read the old data, write a new inode for the new file, and
859 write the new data, and be done. This 'optimization' is what comes from
860 sitting next to a bare disk and hearing it every time it seeks. -- Gnu
864 extract_file (bfd *abfd)
867 char *cbuf = (char *) xmalloc (BUFSIZE);
868 size_t nread, tocopy;
873 if (bfd_stat_arch_elt (abfd, &buf) != 0)
874 /* xgettext:c-format */
875 fatal (_("internal stat error on %s"), bfd_get_filename (abfd));
879 printf ("x - %s\n", bfd_get_filename (abfd));
881 bfd_seek (abfd, (file_ptr) 0, SEEK_SET);
886 /* Seems like an abstraction violation, eh? Well it's OK! */
887 output_filename = bfd_get_filename (abfd);
889 ostream = fopen (bfd_get_filename (abfd), FOPEN_WB);
892 perror (bfd_get_filename (abfd));
896 output_file = ostream;
899 while (ncopied < size)
901 tocopy = size - ncopied;
902 if (tocopy > BUFSIZE)
905 nread = bfd_bread (cbuf, (bfd_size_type) tocopy, abfd);
907 /* xgettext:c-format */
908 fatal (_("%s is not a valid archive"),
909 bfd_get_filename (bfd_my_archive (abfd)));
911 /* See comment above; this saves disk arm motion */
914 /* Seems like an abstraction violation, eh? Well it's OK! */
915 output_filename = bfd_get_filename (abfd);
917 ostream = fopen (bfd_get_filename (abfd), FOPEN_WB);
920 perror (bfd_get_filename (abfd));
924 output_file = ostream;
927 /* fwrite in mingw32 may return int instead of size_t. Cast
928 the return value to size_t to avoid comparison between
929 signed and unsigned values. */
930 if ((size_t) fwrite (cbuf, 1, nread, ostream) != nread)
931 fatal ("%s: %s", output_filename, strerror (errno));
939 output_filename = NULL;
941 chmod (bfd_get_filename (abfd), buf.st_mode);
945 /* Set access time to modification time. Only st_mtime is
946 initialized by bfd_stat_arch_elt. */
947 buf.st_atime = buf.st_mtime;
948 set_times (bfd_get_filename (abfd), &buf);
955 write_archive (bfd *iarch)
958 char *old_name, *new_name;
959 bfd *contents_head = iarch->archive_next;
961 old_name = (char *) xmalloc (strlen (bfd_get_filename (iarch)) + 1);
962 strcpy (old_name, bfd_get_filename (iarch));
963 new_name = make_tempname (old_name);
965 if (new_name == NULL)
966 bfd_fatal ("could not create temporary file whilst writing archive");
968 output_filename = new_name;
970 obfd = bfd_openw (new_name, bfd_get_target (iarch));
973 bfd_fatal (old_name);
977 bfd_set_format (obfd, bfd_archive);
979 /* Request writing the archive symbol table unless we've
980 been explicitly requested not to. */
981 obfd->has_armap = write_armap >= 0;
985 /* This should really use bfd_set_file_flags, but that rejects
987 obfd->flags |= BFD_TRADITIONAL_FORMAT;
991 obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
993 if (make_thin_archive || bfd_is_thin_archive (iarch))
994 bfd_is_thin_archive (obfd) = 1;
996 if (!bfd_set_archive_head (obfd, contents_head))
997 bfd_fatal (old_name);
999 if (!bfd_close (obfd))
1000 bfd_fatal (old_name);
1003 output_filename = NULL;
1005 /* We don't care if this fails; we might be creating the archive. */
1008 if (smart_rename (new_name, old_name, 0) != 0)
1012 /* Return a pointer to the pointer to the entry which should be rplacd'd
1013 into when altering. DEFAULT_POS should be how to interpret pos_default,
1014 and should be a pos value. */
1017 get_pos_bfd (bfd **contents, enum pos default_pos, const char *default_posname)
1019 bfd **after_bfd = contents;
1021 const char *realposname;
1023 if (postype == pos_default)
1025 realpos = default_pos;
1026 realposname = default_posname;
1031 realposname = posname;
1034 if (realpos == pos_end)
1037 after_bfd = &((*after_bfd)->archive_next);
1041 for (; *after_bfd; after_bfd = &(*after_bfd)->archive_next)
1042 if (FILENAME_CMP ((*after_bfd)->filename, realposname) == 0)
1044 if (realpos == pos_after)
1045 after_bfd = &(*after_bfd)->archive_next;
1053 delete_members (bfd *arch, char **files_to_delete)
1055 bfd **current_ptr_ptr;
1057 bfd_boolean something_changed = FALSE;
1060 for (; *files_to_delete != NULL; ++files_to_delete)
1062 /* In a.out systems, the armap is optional. It's also called
1063 __.SYMDEF. So if the user asked to delete it, we should remember
1064 that fact. This isn't quite right for COFF systems (where
1065 __.SYMDEF might be regular member), but it's very unlikely
1066 to be a problem. FIXME */
1068 if (!strcmp (*files_to_delete, "__.SYMDEF"))
1070 arch->has_armap = FALSE;
1077 current_ptr_ptr = &(arch->archive_next);
1078 while (*current_ptr_ptr)
1080 if (FILENAME_CMP (normalize (*files_to_delete, arch),
1081 (*current_ptr_ptr)->filename) == 0)
1084 if (counted_name_mode
1085 && match_count != counted_name_counter)
1087 /* Counting, and didn't match on count; go on to the
1093 something_changed = TRUE;
1097 *current_ptr_ptr = ((*current_ptr_ptr)->archive_next);
1102 current_ptr_ptr = &((*current_ptr_ptr)->archive_next);
1105 if (verbose && !found)
1107 /* xgettext:c-format */
1108 printf (_("No member named `%s'\n"), *files_to_delete);
1114 if (something_changed)
1115 write_archive (arch);
1117 output_filename = NULL;
1121 /* Reposition existing members within an archive */
1124 move_members (bfd *arch, char **files_to_move)
1126 bfd **after_bfd; /* New entries go after this one */
1127 bfd **current_ptr_ptr; /* cdr pointer into contents */
1129 for (; *files_to_move; ++files_to_move)
1131 current_ptr_ptr = &(arch->archive_next);
1132 while (*current_ptr_ptr)
1134 bfd *current_ptr = *current_ptr_ptr;
1135 if (FILENAME_CMP (normalize (*files_to_move, arch),
1136 current_ptr->filename) == 0)
1138 /* Move this file to the end of the list - first cut from
1141 *current_ptr_ptr = current_ptr->archive_next;
1143 /* Now glue to end */
1144 after_bfd = get_pos_bfd (&arch->archive_next, pos_end, NULL);
1145 link_bfd = *after_bfd;
1146 *after_bfd = current_ptr;
1147 current_ptr->archive_next = link_bfd;
1150 printf ("m - %s\n", *files_to_move);
1155 current_ptr_ptr = &((*current_ptr_ptr)->archive_next);
1157 /* xgettext:c-format */
1158 fatal (_("no entry %s in archive %s!"), *files_to_move, arch->filename);
1163 write_archive (arch);
1166 /* Ought to default to replacing in place, but this is existing practice! */
1169 replace_members (bfd *arch, char **files_to_move, bfd_boolean quick)
1171 bfd_boolean changed = FALSE;
1172 bfd **after_bfd; /* New entries go after this one. */
1176 while (files_to_move && *files_to_move)
1180 current_ptr = &arch->archive_next;
1181 while (*current_ptr)
1183 current = *current_ptr;
1185 /* For compatibility with existing ar programs, we
1186 permit the same file to be added multiple times. */
1187 if (FILENAME_CMP (normalize (*files_to_move, arch),
1188 normalize (current->filename, arch)) == 0
1189 && current->arelt_data != NULL)
1193 struct stat fsbuf, asbuf;
1195 if (stat (*files_to_move, &fsbuf) != 0)
1197 if (errno != ENOENT)
1198 bfd_fatal (*files_to_move);
1201 if (bfd_stat_arch_elt (current, &asbuf) != 0)
1202 /* xgettext:c-format */
1203 fatal (_("internal stat error on %s"),
1206 if (fsbuf.st_mtime <= asbuf.st_mtime)
1210 after_bfd = get_pos_bfd (&arch->archive_next, pos_after,
1212 if (ar_emul_replace (after_bfd, *files_to_move,
1213 plugin_target, verbose))
1215 /* Snip out this entry from the chain. */
1216 *current_ptr = (*current_ptr)->archive_next;
1222 current_ptr = &(current->archive_next);
1226 /* Add to the end of the archive. */
1227 after_bfd = get_pos_bfd (&arch->archive_next, pos_end, NULL);
1229 if (ar_emul_append (after_bfd, *files_to_move, plugin_target,
1230 verbose, make_thin_archive))
1239 write_archive (arch);
1241 output_filename = NULL;
1245 ranlib_only (const char *archname)
1249 if (get_file_size (archname) < 1)
1252 arch = open_inarch (archname, (char *) NULL);
1255 write_archive (arch);
1259 /* Update the timestamp of the symbol map of an archive. */
1262 ranlib_touch (const char *archname)
1265 /* I don't think updating works on go32. */
1266 ranlib_only (archname);
1272 if (get_file_size (archname) < 1)
1274 f = open (archname, O_RDWR | O_BINARY, 0);
1277 bfd_set_error (bfd_error_system_call);
1278 bfd_fatal (archname);
1281 arch = bfd_fdopenr (archname, (const char *) NULL, f);
1283 bfd_fatal (archname);
1284 if (! bfd_check_format_matches (arch, bfd_archive, &matching))
1286 bfd_nonfatal (archname);
1287 if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
1289 list_matching_formats (matching);
1295 if (! bfd_has_map (arch))
1296 /* xgettext:c-format */
1297 fatal (_("%s: no archive map to update"), archname);
1299 bfd_update_armap_timestamp (arch);
1301 if (! bfd_close (arch))
1302 bfd_fatal (archname);
1307 /* Things which are interesting to map over all or some of the files: */
1310 print_descr (bfd *abfd)
1312 print_arelt_descr (stdout, abfd, verbose);