Merge branch 'vendor/GCC50'
[dragonfly.git] / contrib / binutils-2.25 / binutils / ar.c
1 /* ar.c - Archive modify and extract.
2    Copyright (C) 1991-2014 Free Software Foundation, Inc.
3
4    This file is part of GNU Binutils.
5
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.
10
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.
15
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.  */
20 \f
21 /*
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.  */
25
26 #include "sysdep.h"
27 #include "bfd.h"
28 #include "libiberty.h"
29 #include "progress.h"
30 #include "getopt.h"
31 #include "aout/ar.h"
32 #include "libbfd.h"
33 #include "bucomm.h"
34 #include "arsup.h"
35 #include "filenames.h"
36 #include "binemul.h"
37 #include "plugin.h"
38
39 #ifdef __GO32___
40 #define EXT_NAME_LEN 3          /* Bufflen of addition to name if it's MS-DOS.  */
41 #else
42 #define EXT_NAME_LEN 6          /* Ditto for *NIX.  */
43 #endif
44
45 /* Static declarations.  */
46
47 static void mri_emul (void);
48 static const char *normalize (const char *, bfd *);
49 static void remove_output (void);
50 static void map_over_members (bfd *, void (*)(bfd *), char **, int);
51 static void print_contents (bfd * member);
52 static void delete_members (bfd *, char **files_to_delete);
53
54 static void move_members (bfd *, char **files_to_move);
55 static void replace_members
56   (bfd *, char **files_to_replace, bfd_boolean quick);
57 static void print_descr (bfd * abfd);
58 static void write_archive (bfd *);
59 static int  ranlib_only (const char *archname);
60 static int  ranlib_touch (const char *archname);
61 static void usage (int);
62 \f
63 /** Globals and flags.  */
64
65 static int mri_mode;
66
67 /* This flag distinguishes between ar and ranlib:
68    1 means this is 'ranlib'; 0 means this is 'ar'.
69    -1 means if we should use argv[0] to decide.  */
70 extern int is_ranlib;
71
72 /* Nonzero means don't warn about creating the archive file if necessary.  */
73 int silent_create = 0;
74
75 /* Nonzero means describe each action performed.  */
76 int verbose = 0;
77
78 /* Nonzero means preserve dates of members when extracting them.  */
79 int preserve_dates = 0;
80
81 /* Nonzero means don't replace existing members whose dates are more recent
82    than the corresponding files.  */
83 int newer_only = 0;
84
85 /* Controls the writing of an archive symbol table (in BSD: a __.SYMDEF
86    member).  -1 means we've been explicitly asked to not write a symbol table;
87    +1 means we've been explicitly asked to write it;
88    0 is the default.
89    Traditionally, the default in BSD has been to not write the table.
90    However, for POSIX.2 compliance the default is now to write a symbol table
91    if any of the members are object files.  */
92 int write_armap = 0;
93
94 /* Operate in deterministic mode: write zero for timestamps, uids,
95    and gids for archive members and the archive symbol table, and write
96    consistent file modes.  */
97 int deterministic = -1;                 /* Determinism indeterminate.  */
98
99 /* Nonzero means it's the name of an existing member; position new or moved
100    files with respect to this one.  */
101 char *posname = NULL;
102
103 /* Sez how to use `posname': pos_before means position before that member.
104    pos_after means position after that member. pos_end means always at end.
105    pos_default means default appropriately. For the latter two, `posname'
106    should also be zero.  */
107 enum pos
108   {
109     pos_default, pos_before, pos_after, pos_end
110   } postype = pos_default;
111
112 enum operations
113   {
114     none = 0, del, replace, print_table,
115     print_files, extract, move, quick_append
116   } operation = none;
117
118 static bfd **
119 get_pos_bfd (bfd **, enum pos, const char *);
120
121 /* For extract/delete only.  If COUNTED_NAME_MODE is TRUE, we only
122    extract the COUNTED_NAME_COUNTER instance of that name.  */
123 static bfd_boolean counted_name_mode = 0;
124 static int counted_name_counter = 0;
125
126 /* Whether to truncate names of files stored in the archive.  */
127 static bfd_boolean ar_truncate = FALSE;
128
129 /* Whether to use a full file name match when searching an archive.
130    This is convenient for archives created by the Microsoft lib
131    program.  */
132 static bfd_boolean full_pathname = FALSE;
133
134 /* Whether to create a "thin" archive (symbol index only -- no files).  */
135 static bfd_boolean make_thin_archive = FALSE;
136
137 static int show_version = 0;
138
139 static int show_help = 0;
140
141 #if BFD_SUPPORTS_PLUGINS
142 static const char *plugin_target = "plugin";
143 #else
144 static const char *plugin_target = NULL;
145 #endif
146
147 static const char *target = NULL;
148
149 #define OPTION_PLUGIN 201
150 #define OPTION_TARGET 202
151
152 static struct option long_options[] =
153 {
154   {"help", no_argument, &show_help, 1},
155   {"plugin", required_argument, NULL, OPTION_PLUGIN},
156   {"target", required_argument, NULL, OPTION_TARGET},
157   {"version", no_argument, &show_version, 1},
158   {NULL, no_argument, NULL, 0}
159 };
160
161 int interactive = 0;
162
163 static void
164 mri_emul (void)
165 {
166   interactive = isatty (fileno (stdin));
167   yyparse ();
168 }
169
170 /* If COUNT is 0, then FUNCTION is called once on each entry.  If nonzero,
171    COUNT is the length of the FILES chain; FUNCTION is called on each entry
172    whose name matches one in FILES.  */
173
174 static void
175 map_over_members (bfd *arch, void (*function)(bfd *), char **files, int count)
176 {
177   bfd *head;
178   int match_count;
179
180   if (count == 0)
181     {
182       for (head = arch->archive_next; head; head = head->archive_next)
183         {
184           PROGRESS (1);
185           function (head);
186         }
187       return;
188     }
189
190   /* This may appear to be a baroque way of accomplishing what we want.
191      However we have to iterate over the filenames in order to notice where
192      a filename is requested but does not exist in the archive.  Ditto
193      mapping over each file each time -- we want to hack multiple
194      references.  */
195
196   for (head = arch->archive_next; head; head = head->archive_next)
197     head->archive_pass = 0;
198
199   for (; count > 0; files++, count--)
200     {
201       bfd_boolean found = FALSE;
202
203       match_count = 0;
204       for (head = arch->archive_next; head; head = head->archive_next)
205         {
206           const char * filename;
207
208           PROGRESS (1);
209           /* PR binutils/15796: Once an archive element has been matched
210              do not match it again.  If the user provides multiple same-named
211              parameters on the command line their intent is to match multiple
212              same-named entries in the archive, not the same entry multiple
213              times.  */
214           if (head->archive_pass)
215             continue;
216
217           filename = head->filename;
218           if (filename == NULL)
219             {
220               /* Some archive formats don't get the filenames filled in
221                  until the elements are opened.  */
222               struct stat buf;
223               bfd_stat_arch_elt (head, &buf);
224             }
225           else if (bfd_is_thin_archive (arch))
226             {
227               /* Thin archives store full pathnames.  Need to normalize.  */
228               filename = normalize (filename, arch);
229             }
230
231           if (filename != NULL
232               && !FILENAME_CMP (normalize (*files, arch), filename))
233             {
234               ++match_count;
235               if (counted_name_mode
236                   && match_count != counted_name_counter)
237                 {
238                   /* Counting, and didn't match on count; go on to the
239                      next one.  */
240                   continue;
241                 }
242
243               found = TRUE;
244               function (head);
245               head->archive_pass = 1;
246               /* PR binutils/15796: Once a file has been matched, do not
247                  match any more same-named files in the archive.  If the
248                  user does want to match multiple same-name files in an
249                  archive they should provide multiple same-name parameters
250                  to the ar command.  */
251               break;
252             }
253         }
254
255       if (!found)
256         /* xgettext:c-format */
257         fprintf (stderr, _("no entry %s in archive\n"), *files);
258     }
259 }
260 \f
261 bfd_boolean operation_alters_arch = FALSE;
262
263 static void
264 usage (int help)
265 {
266   FILE *s;
267
268 #if BFD_SUPPORTS_PLUGINS
269   /* xgettext:c-format */
270   const char *command_line
271     = _("Usage: %s [emulation options] [-]{dmpqrstx}[abcDfilMNoPsSTuvV]"
272         " [--plugin <name>] [member-name] [count] archive-file file...\n");
273
274 #else
275   /* xgettext:c-format */
276   const char *command_line
277     = _("Usage: %s [emulation options] [-]{dmpqrstx}[abcDfilMNoPsSTuvV]"
278         " [member-name] [count] archive-file file...\n");
279 #endif
280   s = help ? stdout : stderr;
281
282   fprintf (s, command_line, program_name);
283
284   /* xgettext:c-format */
285   fprintf (s, _("       %s -M [<mri-script]\n"), program_name);
286   fprintf (s, _(" commands:\n"));
287   fprintf (s, _("  d            - delete file(s) from the archive\n"));
288   fprintf (s, _("  m[ab]        - move file(s) in the archive\n"));
289   fprintf (s, _("  p            - print file(s) found in the archive\n"));
290   fprintf (s, _("  q[f]         - quick append file(s) to the archive\n"));
291   fprintf (s, _("  r[ab][f][u]  - replace existing or insert new file(s) into the archive\n"));
292   fprintf (s, _("  s            - act as ranlib\n"));
293   fprintf (s, _("  t            - display contents of archive\n"));
294   fprintf (s, _("  x[o]         - extract file(s) from the archive\n"));
295   fprintf (s, _(" command specific modifiers:\n"));
296   fprintf (s, _("  [a]          - put file(s) after [member-name]\n"));
297   fprintf (s, _("  [b]          - put file(s) before [member-name] (same as [i])\n"));
298   if (DEFAULT_AR_DETERMINISTIC)
299     {
300       fprintf (s, _("\
301   [D]          - use zero for timestamps and uids/gids (default)\n"));
302       fprintf (s, _("\
303   [U]          - use actual timestamps and uids/gids\n"));
304     }
305   else
306     {
307       fprintf (s, _("\
308   [D]          - use zero for timestamps and uids/gids\n"));
309       fprintf (s, _("\
310   [U]          - use actual timestamps and uids/gids (default)\n"));
311     }
312   fprintf (s, _("  [N]          - use instance [count] of name\n"));
313   fprintf (s, _("  [f]          - truncate inserted file names\n"));
314   fprintf (s, _("  [P]          - use full path names when matching\n"));
315   fprintf (s, _("  [o]          - preserve original dates\n"));
316   fprintf (s, _("  [u]          - only replace files that are newer than current archive contents\n"));
317   fprintf (s, _(" generic modifiers:\n"));
318   fprintf (s, _("  [c]          - do not warn if the library had to be created\n"));
319   fprintf (s, _("  [s]          - create an archive index (cf. ranlib)\n"));
320   fprintf (s, _("  [S]          - do not build a symbol table\n"));
321   fprintf (s, _("  [T]          - make a thin archive\n"));
322   fprintf (s, _("  [v]          - be verbose\n"));
323   fprintf (s, _("  [V]          - display the version number\n"));
324   fprintf (s, _("  @<file>      - read options from <file>\n"));
325   fprintf (s, _("  --target=BFDNAME - specify the target object format as BFDNAME\n"));
326 #if BFD_SUPPORTS_PLUGINS
327   fprintf (s, _(" optional:\n"));
328   fprintf (s, _("  --plugin <p> - load the specified plugin\n"));
329 #endif
330
331   ar_emul_usage (s);
332
333   list_supported_targets (program_name, s);
334
335   if (REPORT_BUGS_TO[0] && help)
336     fprintf (s, _("Report bugs to %s\n"), REPORT_BUGS_TO);
337
338   xexit (help ? 0 : 1);
339 }
340
341 static void
342 ranlib_usage (int help)
343 {
344   FILE *s;
345
346   s = help ? stdout : stderr;
347
348   /* xgettext:c-format */
349   fprintf (s, _("Usage: %s [options] archive\n"), program_name);
350   fprintf (s, _(" Generate an index to speed access to archives\n"));
351   fprintf (s, _(" The options are:\n\
352   @<file>                      Read options from <file>\n"));
353 #if BFD_SUPPORTS_PLUGINS
354   fprintf (s, _("\
355   --plugin <name>              Load the specified plugin\n"));
356 #endif
357   if (DEFAULT_AR_DETERMINISTIC)
358     fprintf (s, _("\
359   -D                           Use zero for symbol map timestamp (default)\n\
360   -U                           Use an actual symbol map timestamp\n"));
361   else
362     fprintf (s, _("\
363   -D                           Use zero for symbol map timestamp\n\
364   -U                           Use actual symbol map timestamp (default)\n"));
365   fprintf (s, _("\
366   -t                           Update the archive's symbol map timestamp\n\
367   -h --help                    Print this help message\n\
368   -v --version                 Print version information\n"));
369
370   list_supported_targets (program_name, s);
371
372   if (REPORT_BUGS_TO[0] && help)
373     fprintf (s, _("Report bugs to %s\n"), REPORT_BUGS_TO);
374
375   xexit (help ? 0 : 1);
376 }
377
378 /* Normalize a file name specified on the command line into a file
379    name which we will use in an archive.  */
380
381 static const char *
382 normalize (const char *file, bfd *abfd)
383 {
384   const char *filename;
385
386   if (full_pathname)
387     return file;
388
389   filename = lbasename (file);
390
391   if (ar_truncate
392       && abfd != NULL
393       && strlen (filename) > abfd->xvec->ar_max_namelen)
394     {
395       char *s;
396
397       /* Space leak.  */
398       s = (char *) xmalloc (abfd->xvec->ar_max_namelen + 1);
399       memcpy (s, filename, abfd->xvec->ar_max_namelen);
400       s[abfd->xvec->ar_max_namelen] = '\0';
401       filename = s;
402     }
403
404   return filename;
405 }
406
407 /* Remove any output file.  This is only called via xatexit.  */
408
409 static const char *output_filename = NULL;
410 static FILE *output_file = NULL;
411 static bfd *output_bfd = NULL;
412
413 static void
414 remove_output (void)
415 {
416   if (output_filename != NULL)
417     {
418       if (output_bfd != NULL)
419         bfd_cache_close (output_bfd);
420       if (output_file != NULL)
421         fclose (output_file);
422       unlink_if_ordinary (output_filename);
423     }
424 }
425
426 static char **
427 decode_options (int argc, char **argv)
428 {
429   int c;
430
431   /* Convert old-style tar call by exploding option element and rearranging
432      options accordingly.  */
433
434   if (argc > 1 && argv[1][0] != '-')
435     {
436       int new_argc;             /* argc value for rearranged arguments */
437       char **new_argv;          /* argv value for rearranged arguments */
438       char *const *in;          /* cursor into original argv */
439       char **out;               /* cursor into rearranged argv */
440       const char *letter;       /* cursor into old option letters */
441       char buffer[3];           /* constructed option buffer */
442
443       /* Initialize a constructed option.  */
444
445       buffer[0] = '-';
446       buffer[2] = '\0';
447
448       /* Allocate a new argument array, and copy program name in it.  */
449
450       new_argc = argc - 1 + strlen (argv[1]);
451       new_argv = xmalloc ((new_argc + 1) * sizeof (*argv));
452       in = argv;
453       out = new_argv;
454       *out++ = *in++;
455
456       /* Copy each old letter option as a separate option.  */
457
458       for (letter = *in++; *letter; letter++)
459         {
460           buffer[1] = *letter;
461           *out++ = xstrdup (buffer);
462         }
463
464       /* Copy all remaining options.  */
465
466       while (in < argv + argc)
467         *out++ = *in++;
468       *out = NULL;
469
470       /* Replace the old option list by the new one.  */
471
472       argc = new_argc;
473       argv = new_argv;
474     }
475
476   while ((c = getopt_long (argc, argv, "hdmpqrtxlcoVsSuvabiMNfPTDU",
477                            long_options, NULL)) != EOF)
478     {
479       switch (c)
480         {
481         case 'd':
482         case 'm':
483         case 'p':
484         case 'q':
485         case 'r':
486         case 't':
487         case 'x':
488           if (operation != none)
489             fatal (_("two different operation options specified"));
490           break;
491         }
492
493       switch (c)
494         {
495         case 'h':
496           show_help = 1;
497           break;
498         case 'd':
499           operation = del;
500           operation_alters_arch = TRUE;
501           break;
502         case 'm':
503           operation = move;
504           operation_alters_arch = TRUE;
505           break;
506         case 'p':
507           operation = print_files;
508           break;
509         case 'q':
510           operation = quick_append;
511           operation_alters_arch = TRUE;
512           break;
513         case 'r':
514           operation = replace;
515           operation_alters_arch = TRUE;
516           break;
517         case 't':
518           operation = print_table;
519           break;
520         case 'x':
521           operation = extract;
522           break;
523         case 'l':
524           break;
525         case 'c':
526           silent_create = 1;
527           break;
528         case 'o':
529           preserve_dates = 1;
530           break;
531         case 'V':
532           show_version = TRUE;
533           break;
534         case 's':
535           write_armap = 1;
536           break;
537         case 'S':
538           write_armap = -1;
539           break;
540         case 'u':
541           newer_only = 1;
542           break;
543         case 'v':
544           verbose = 1;
545           break;
546         case 'a':
547           postype = pos_after;
548           break;
549         case 'b':
550           postype = pos_before;
551           break;
552         case 'i':
553           postype = pos_before;
554           break;
555         case 'M':
556           mri_mode = 1;
557           break;
558         case 'N':
559           counted_name_mode = TRUE;
560           break;
561         case 'f':
562           ar_truncate = TRUE;
563           break;
564         case 'P':
565           full_pathname = TRUE;
566           break;
567         case 'T':
568           make_thin_archive = TRUE;
569           break;
570         case 'D':
571           deterministic = TRUE;
572           break;
573         case 'U':
574           deterministic = FALSE;
575           break;
576         case OPTION_PLUGIN:
577 #if BFD_SUPPORTS_PLUGINS
578           bfd_plugin_set_plugin (optarg);
579 #else
580           fprintf (stderr, _("sorry - this program has been built without plugin support\n"));
581           xexit (1);
582 #endif
583           break;
584         case OPTION_TARGET:
585           target = optarg;
586           break;
587         case 0:         /* A long option that just sets a flag.  */
588           break;
589         default:
590           usage (0);
591         }
592     }
593
594   return &argv[optind];
595 }
596
597 /* If neither -D nor -U was specified explicitly,
598    then use the configured default.  */
599 static void
600 default_deterministic (void)
601 {
602   if (deterministic < 0)
603     deterministic = DEFAULT_AR_DETERMINISTIC;
604 }
605
606 static void
607 ranlib_main (int argc, char **argv)
608 {
609   int arg_index, status = 0;
610   bfd_boolean touch = FALSE;
611   int c;
612
613   while ((c = getopt_long (argc, argv, "DhHUvVt", long_options, NULL)) != EOF)
614     {
615       switch (c)
616         {
617         case 'D':
618           deterministic = TRUE;
619           break;
620         case 'U':
621           deterministic = FALSE;
622           break;
623         case 'h':
624         case 'H':
625           show_help = 1;
626           break;
627         case 't':
628           touch = TRUE;
629           break;
630         case 'v':
631         case 'V':
632           show_version = 1;
633           break;
634
635           /* PR binutils/13493: Support plugins.  */
636         case OPTION_PLUGIN:
637 #if BFD_SUPPORTS_PLUGINS
638           bfd_plugin_set_plugin (optarg);
639 #else
640           fprintf (stderr, _("sorry - this program has been built without plugin support\n"));
641           xexit (1);
642 #endif
643           break;
644         }
645     }
646
647   if (argc < 2)
648     ranlib_usage (0);
649
650   if (show_help)
651     ranlib_usage (1);
652
653   if (show_version)
654     print_version ("ranlib");
655
656   default_deterministic ();
657
658   arg_index = optind;
659
660   while (arg_index < argc)
661     {
662       if (! touch)
663         status |= ranlib_only (argv[arg_index]);
664       else
665         status |= ranlib_touch (argv[arg_index]);
666       ++arg_index;
667     }
668
669   xexit (status);
670 }
671
672 int main (int, char **);
673
674 int
675 main (int argc, char **argv)
676 {
677   int arg_index;
678   char **files;
679   int file_count;
680   char *inarch_filename;
681   int i;
682
683 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
684   setlocale (LC_MESSAGES, "");
685 #endif
686 #if defined (HAVE_SETLOCALE)
687   setlocale (LC_CTYPE, "");
688 #endif
689   bindtextdomain (PACKAGE, LOCALEDIR);
690   textdomain (PACKAGE);
691
692   program_name = argv[0];
693   xmalloc_set_program_name (program_name);
694 #if BFD_SUPPORTS_PLUGINS
695   bfd_plugin_set_program_name (program_name);
696 #endif
697
698   expandargv (&argc, &argv);
699
700   if (is_ranlib < 0)
701     {
702       const char *temp = lbasename (program_name);
703
704       if (strlen (temp) >= 6
705           && FILENAME_CMP (temp + strlen (temp) - 6, "ranlib") == 0)
706         is_ranlib = 1;
707       else
708         is_ranlib = 0;
709     }
710
711   START_PROGRESS (program_name, 0);
712
713   bfd_init ();
714   set_default_bfd_target ();
715
716   xatexit (remove_output);
717
718   for (i = 1; i < argc; i++)
719     if (! ar_emul_parse_arg (argv[i]))
720       break;
721   argv += (i - 1);
722   argc -= (i - 1);
723
724   if (is_ranlib)
725     ranlib_main (argc, argv);
726
727   if (argc < 2)
728     usage (0);
729
730   argv = decode_options (argc, argv);
731
732   if (show_help)
733     usage (1);
734
735   if (show_version)
736     print_version ("ar");
737
738   arg_index = 0;
739
740   if (mri_mode)
741     {
742       default_deterministic ();
743       mri_emul ();
744     }
745   else
746     {
747       bfd *arch;
748
749       /* We don't use do_quick_append any more.  Too many systems
750          expect ar to always rebuild the symbol table even when q is
751          used.  */
752
753       /* We can't write an armap when using ar q, so just do ar r
754          instead.  */
755       if (operation == quick_append && write_armap)
756         operation = replace;
757
758       if ((operation == none || operation == print_table)
759           && write_armap == 1)
760         xexit (ranlib_only (argv[arg_index]));
761
762       if (operation == none)
763         fatal (_("no operation specified"));
764
765       if (newer_only && operation != replace)
766         fatal (_("`u' is only meaningful with the `r' option."));
767
768       if (newer_only && deterministic > 0)
769         fatal (_("`u' is not meaningful with the `D' option."));
770
771       if (newer_only && deterministic < 0 && DEFAULT_AR_DETERMINISTIC)
772         non_fatal (_("\
773 `u' modifier ignored since `D' is the default (see `U')"));
774
775       default_deterministic ();
776
777       if (postype != pos_default)
778         posname = argv[arg_index++];
779
780       if (counted_name_mode)
781         {
782           if (operation != extract && operation != del)
783             fatal (_("`N' is only meaningful with the `x' and `d' options."));
784           counted_name_counter = atoi (argv[arg_index++]);
785           if (counted_name_counter <= 0)
786             fatal (_("Value for `N' must be positive."));
787         }
788
789       inarch_filename = argv[arg_index++];
790
791       for (file_count = 0; argv[arg_index + file_count] != NULL; file_count++)
792         continue;
793
794       files = (file_count > 0) ? argv + arg_index : NULL;
795
796       arch = open_inarch (inarch_filename,
797                           files == NULL ? (char *) NULL : files[0]);
798
799       if (operation == extract && bfd_is_thin_archive (arch))
800         fatal (_("`x' cannot be used on thin archives."));
801
802       switch (operation)
803         {
804         case print_table:
805           map_over_members (arch, print_descr, files, file_count);
806           break;
807
808         case print_files:
809           map_over_members (arch, print_contents, files, file_count);
810           break;
811
812         case extract:
813           map_over_members (arch, extract_file, files, file_count);
814           break;
815
816         case del:
817           if (files != NULL)
818             delete_members (arch, files);
819           else
820             output_filename = NULL;
821           break;
822
823         case move:
824           /* PR 12558: Creating and moving at the same time does
825              not make sense.  Just create the archive instead.  */
826           if (! silent_create)
827             {
828               if (files != NULL)
829                 move_members (arch, files);
830               else
831                 output_filename = NULL;
832               break;
833             }
834           /* Fall through.  */
835
836         case replace:
837         case quick_append:
838           if (files != NULL || write_armap > 0)
839             replace_members (arch, files, operation == quick_append);
840           else
841             output_filename = NULL;
842           break;
843
844           /* Shouldn't happen! */
845         default:
846           /* xgettext:c-format */
847           fatal (_("internal error -- this option not implemented"));
848         }
849     }
850
851   END_PROGRESS (program_name);
852
853   xexit (0);
854   return 0;
855 }
856
857 bfd *
858 open_inarch (const char *archive_filename, const char *file)
859 {
860   bfd **last_one;
861   bfd *next_one;
862   struct stat sbuf;
863   bfd *arch;
864   char **matching;
865
866   bfd_set_error (bfd_error_no_error);
867
868   if (target == NULL)
869     target = plugin_target;
870
871   if (stat (archive_filename, &sbuf) != 0)
872     {
873 #if !defined(__GO32__) || defined(__DJGPP__)
874
875       /* FIXME: I don't understand why this fragment was ifndef'ed
876          away for __GO32__; perhaps it was in the days of DJGPP v1.x.
877          stat() works just fine in v2.x, so I think this should be
878          removed.  For now, I enable it for DJGPP v2. -- EZ.  */
879
880       /* KLUDGE ALERT! Temporary fix until I figger why
881          stat() is wrong ... think it's buried in GO32's IDT - Jax */
882       if (errno != ENOENT)
883         bfd_fatal (archive_filename);
884 #endif
885
886       if (!operation_alters_arch)
887         {
888           fprintf (stderr, "%s: ", program_name);
889           perror (archive_filename);
890           maybequit ();
891           return NULL;
892         }
893
894       /* If the target isn't set, try to figure out the target to use
895          for the archive from the first object on the list.  */
896       if (target == NULL && file != NULL)
897         {
898           bfd *obj;
899
900           obj = bfd_openr (file, target);
901           if (obj != NULL)
902             {
903               if (bfd_check_format (obj, bfd_object))
904                 target = bfd_get_target (obj);
905               (void) bfd_close (obj);
906             }
907         }
908
909       /* Create an empty archive.  */
910       arch = bfd_openw (archive_filename, target);
911       if (arch == NULL
912           || ! bfd_set_format (arch, bfd_archive)
913           || ! bfd_close (arch))
914         bfd_fatal (archive_filename);
915       else if (!silent_create)
916         non_fatal (_("creating %s"), archive_filename);
917
918       /* If we die creating a new archive, don't leave it around.  */
919       output_filename = archive_filename;
920     }
921
922   arch = bfd_openr (archive_filename, target);
923   if (arch == NULL)
924     {
925     bloser:
926       bfd_fatal (archive_filename);
927     }
928
929   if (! bfd_check_format_matches (arch, bfd_archive, &matching))
930     {
931       bfd_nonfatal (archive_filename);
932       if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
933         {
934           list_matching_formats (matching);
935           free (matching);
936         }
937       xexit (1);
938     }
939
940   if ((operation == replace || operation == quick_append)
941       && bfd_openr_next_archived_file (arch, NULL) != NULL)
942     {
943       /* PR 15140: Catch attempts to convert a normal
944          archive into a thin archive or vice versa.  */
945       if (make_thin_archive && ! bfd_is_thin_archive (arch))
946         {
947           fatal (_("Cannot convert existing library %s to thin format"),
948                  bfd_get_filename (arch));
949           goto bloser;
950         }
951       else if (! make_thin_archive && bfd_is_thin_archive (arch))
952         {
953           fatal (_("Cannot convert existing thin library %s to normal format"),
954                  bfd_get_filename (arch));
955           goto bloser;
956         }
957     }  
958
959   last_one = &(arch->archive_next);
960   /* Read all the contents right away, regardless.  */
961   for (next_one = bfd_openr_next_archived_file (arch, NULL);
962        next_one;
963        next_one = bfd_openr_next_archived_file (arch, next_one))
964     {
965       PROGRESS (1);
966       *last_one = next_one;
967       last_one = &next_one->archive_next;
968     }
969   *last_one = (bfd *) NULL;
970   if (bfd_get_error () != bfd_error_no_more_archived_files)
971     goto bloser;
972   return arch;
973 }
974
975 static void
976 print_contents (bfd *abfd)
977 {
978   bfd_size_type ncopied = 0;
979   bfd_size_type size;
980   char *cbuf = (char *) xmalloc (BUFSIZE);
981   struct stat buf;
982
983   if (bfd_stat_arch_elt (abfd, &buf) != 0)
984     /* xgettext:c-format */
985     fatal (_("internal stat error on %s"), bfd_get_filename (abfd));
986
987   if (verbose)
988     printf ("\n<%s>\n\n", bfd_get_filename (abfd));
989
990   bfd_seek (abfd, (file_ptr) 0, SEEK_SET);
991
992   size = buf.st_size;
993   while (ncopied < size)
994     {
995       bfd_size_type nread;
996       bfd_size_type tocopy = size - ncopied;
997
998       if (tocopy > BUFSIZE)
999         tocopy = BUFSIZE;
1000
1001       nread = bfd_bread (cbuf, tocopy, abfd);
1002       if (nread != tocopy)
1003         /* xgettext:c-format */
1004         fatal (_("%s is not a valid archive"),
1005                bfd_get_filename (bfd_my_archive (abfd)));
1006
1007       /* fwrite in mingw32 may return int instead of bfd_size_type. Cast the
1008          return value to bfd_size_type to avoid comparison between signed and
1009          unsigned values.  */
1010       if ((bfd_size_type) fwrite (cbuf, 1, nread, stdout) != nread)
1011         fatal ("stdout: %s", strerror (errno));
1012       ncopied += tocopy;
1013     }
1014   free (cbuf);
1015 }
1016
1017 /* Extract a member of the archive into its own file.
1018
1019    We defer opening the new file until after we have read a BUFSIZ chunk of the
1020    old one, since we know we have just read the archive header for the old
1021    one.  Since most members are shorter than BUFSIZ, this means we will read
1022    the old header, read the old data, write a new inode for the new file, and
1023    write the new data, and be done. This 'optimization' is what comes from
1024    sitting next to a bare disk and hearing it every time it seeks.  -- Gnu
1025    Gilmore  */
1026
1027 void
1028 extract_file (bfd *abfd)
1029 {
1030   FILE *ostream;
1031   char *cbuf = (char *) xmalloc (BUFSIZE);
1032   bfd_size_type nread, tocopy;
1033   bfd_size_type ncopied = 0;
1034   bfd_size_type size;
1035   struct stat buf;
1036
1037   /* PR binutils/17533: Do not allow directory traversal
1038      outside of the current directory tree.  */
1039   if (! is_valid_archive_path (bfd_get_filename (abfd)))
1040     {
1041       non_fatal (_("illegal pathname found in archive member: %s"),
1042                  bfd_get_filename (abfd));
1043       return;
1044     }
1045
1046   if (bfd_stat_arch_elt (abfd, &buf) != 0)
1047     /* xgettext:c-format */
1048     fatal (_("internal stat error on %s"), bfd_get_filename (abfd));
1049   size = buf.st_size;
1050
1051   if (verbose)
1052     printf ("x - %s\n", bfd_get_filename (abfd));
1053
1054   bfd_seek (abfd, (file_ptr) 0, SEEK_SET);
1055
1056   ostream = NULL;
1057   if (size == 0)
1058     {
1059       /* Seems like an abstraction violation, eh?  Well it's OK! */
1060       output_filename = bfd_get_filename (abfd);
1061
1062       ostream = fopen (bfd_get_filename (abfd), FOPEN_WB);
1063       if (ostream == NULL)
1064         {
1065           perror (bfd_get_filename (abfd));
1066           xexit (1);
1067         }
1068
1069       output_file = ostream;
1070     }
1071   else
1072     while (ncopied < size)
1073       {
1074         tocopy = size - ncopied;
1075         if (tocopy > BUFSIZE)
1076           tocopy = BUFSIZE;
1077
1078         nread = bfd_bread (cbuf, tocopy, abfd);
1079         if (nread != tocopy)
1080           /* xgettext:c-format */
1081           fatal (_("%s is not a valid archive"),
1082                  bfd_get_filename (bfd_my_archive (abfd)));
1083
1084         /* See comment above; this saves disk arm motion */
1085         if (ostream == NULL)
1086           {
1087             /* Seems like an abstraction violation, eh?  Well it's OK! */
1088             output_filename = bfd_get_filename (abfd);
1089
1090             ostream = fopen (bfd_get_filename (abfd), FOPEN_WB);
1091             if (ostream == NULL)
1092               {
1093                 perror (bfd_get_filename (abfd));
1094                 xexit (1);
1095               }
1096
1097             output_file = ostream;
1098           }
1099
1100         /* fwrite in mingw32 may return int instead of bfd_size_type. Cast
1101            the return value to bfd_size_type to avoid comparison between
1102            signed and unsigned values.  */
1103         if ((bfd_size_type) fwrite (cbuf, 1, nread, ostream) != nread)
1104           fatal ("%s: %s", output_filename, strerror (errno));
1105         ncopied += tocopy;
1106       }
1107
1108   if (ostream != NULL)
1109     fclose (ostream);
1110
1111   output_file = NULL;
1112   output_filename = NULL;
1113
1114   chmod (bfd_get_filename (abfd), buf.st_mode);
1115
1116   if (preserve_dates)
1117     {
1118       /* Set access time to modification time.  Only st_mtime is
1119          initialized by bfd_stat_arch_elt.  */
1120       buf.st_atime = buf.st_mtime;
1121       set_times (bfd_get_filename (abfd), &buf);
1122     }
1123
1124   free (cbuf);
1125 }
1126
1127 static void
1128 write_archive (bfd *iarch)
1129 {
1130   bfd *obfd;
1131   char *old_name, *new_name;
1132   bfd *contents_head = iarch->archive_next;
1133
1134   old_name = (char *) xmalloc (strlen (bfd_get_filename (iarch)) + 1);
1135   strcpy (old_name, bfd_get_filename (iarch));
1136   new_name = make_tempname (old_name);
1137
1138   if (new_name == NULL)
1139     bfd_fatal (_("could not create temporary file whilst writing archive"));
1140
1141   output_filename = new_name;
1142
1143   obfd = bfd_openw (new_name, bfd_get_target (iarch));
1144
1145   if (obfd == NULL)
1146     bfd_fatal (old_name);
1147
1148   output_bfd = obfd;
1149
1150   bfd_set_format (obfd, bfd_archive);
1151
1152   /* Request writing the archive symbol table unless we've
1153      been explicitly requested not to.  */
1154   obfd->has_armap = write_armap >= 0;
1155
1156   if (ar_truncate)
1157     {
1158       /* This should really use bfd_set_file_flags, but that rejects
1159          archives.  */
1160       obfd->flags |= BFD_TRADITIONAL_FORMAT;
1161     }
1162
1163   if (deterministic)
1164     obfd->flags |= BFD_DETERMINISTIC_OUTPUT;
1165
1166   if (make_thin_archive || bfd_is_thin_archive (iarch))
1167     bfd_is_thin_archive (obfd) = 1;
1168
1169   if (!bfd_set_archive_head (obfd, contents_head))
1170     bfd_fatal (old_name);
1171
1172   if (!bfd_close (obfd))
1173     bfd_fatal (old_name);
1174
1175   output_bfd = NULL;
1176   output_filename = NULL;
1177
1178   /* We don't care if this fails; we might be creating the archive.  */
1179   bfd_close (iarch);
1180
1181   if (smart_rename (new_name, old_name, 0) != 0)
1182     xexit (1);
1183   free (old_name);
1184 }
1185
1186 /* Return a pointer to the pointer to the entry which should be rplacd'd
1187    into when altering.  DEFAULT_POS should be how to interpret pos_default,
1188    and should be a pos value.  */
1189
1190 static bfd **
1191 get_pos_bfd (bfd **contents, enum pos default_pos, const char *default_posname)
1192 {
1193   bfd **after_bfd = contents;
1194   enum pos realpos;
1195   const char *realposname;
1196
1197   if (postype == pos_default)
1198     {
1199       realpos = default_pos;
1200       realposname = default_posname;
1201     }
1202   else
1203     {
1204       realpos = postype;
1205       realposname = posname;
1206     }
1207
1208   if (realpos == pos_end)
1209     {
1210       while (*after_bfd)
1211         after_bfd = &((*after_bfd)->archive_next);
1212     }
1213   else
1214     {
1215       for (; *after_bfd; after_bfd = &(*after_bfd)->archive_next)
1216         if (FILENAME_CMP ((*after_bfd)->filename, realposname) == 0)
1217           {
1218             if (realpos == pos_after)
1219               after_bfd = &(*after_bfd)->archive_next;
1220             break;
1221           }
1222     }
1223   return after_bfd;
1224 }
1225
1226 static void
1227 delete_members (bfd *arch, char **files_to_delete)
1228 {
1229   bfd **current_ptr_ptr;
1230   bfd_boolean found;
1231   bfd_boolean something_changed = FALSE;
1232   int match_count;
1233
1234   for (; *files_to_delete != NULL; ++files_to_delete)
1235     {
1236       /* In a.out systems, the armap is optional.  It's also called
1237          __.SYMDEF.  So if the user asked to delete it, we should remember
1238          that fact. This isn't quite right for COFF systems (where
1239          __.SYMDEF might be regular member), but it's very unlikely
1240          to be a problem.  FIXME */
1241
1242       if (!strcmp (*files_to_delete, "__.SYMDEF"))
1243         {
1244           arch->has_armap = FALSE;
1245           write_armap = -1;
1246           continue;
1247         }
1248
1249       found = FALSE;
1250       match_count = 0;
1251       current_ptr_ptr = &(arch->archive_next);
1252       while (*current_ptr_ptr)
1253         {
1254           if (FILENAME_CMP (normalize (*files_to_delete, arch),
1255                             (*current_ptr_ptr)->filename) == 0)
1256             {
1257               ++match_count;
1258               if (counted_name_mode
1259                   && match_count != counted_name_counter)
1260                 {
1261                   /* Counting, and didn't match on count; go on to the
1262                      next one.  */
1263                 }
1264               else
1265                 {
1266                   found = TRUE;
1267                   something_changed = TRUE;
1268                   if (verbose)
1269                     printf ("d - %s\n",
1270                             *files_to_delete);
1271                   *current_ptr_ptr = ((*current_ptr_ptr)->archive_next);
1272                   goto next_file;
1273                 }
1274             }
1275
1276           current_ptr_ptr = &((*current_ptr_ptr)->archive_next);
1277         }
1278
1279       if (verbose && !found)
1280         {
1281           /* xgettext:c-format */
1282           printf (_("No member named `%s'\n"), *files_to_delete);
1283         }
1284     next_file:
1285       ;
1286     }
1287
1288   if (something_changed)
1289     write_archive (arch);
1290   else
1291     output_filename = NULL;
1292 }
1293
1294
1295 /* Reposition existing members within an archive */
1296
1297 static void
1298 move_members (bfd *arch, char **files_to_move)
1299 {
1300   bfd **after_bfd;              /* New entries go after this one */
1301   bfd **current_ptr_ptr;        /* cdr pointer into contents */
1302
1303   for (; *files_to_move; ++files_to_move)
1304     {
1305       current_ptr_ptr = &(arch->archive_next);
1306       while (*current_ptr_ptr)
1307         {
1308           bfd *current_ptr = *current_ptr_ptr;
1309           if (FILENAME_CMP (normalize (*files_to_move, arch),
1310                             current_ptr->filename) == 0)
1311             {
1312               /* Move this file to the end of the list - first cut from
1313                  where it is.  */
1314               bfd *link_bfd;
1315               *current_ptr_ptr = current_ptr->archive_next;
1316
1317               /* Now glue to end */
1318               after_bfd = get_pos_bfd (&arch->archive_next, pos_end, NULL);
1319               link_bfd = *after_bfd;
1320               *after_bfd = current_ptr;
1321               current_ptr->archive_next = link_bfd;
1322
1323               if (verbose)
1324                 printf ("m - %s\n", *files_to_move);
1325
1326               goto next_file;
1327             }
1328
1329           current_ptr_ptr = &((*current_ptr_ptr)->archive_next);
1330         }
1331       /* xgettext:c-format */
1332       fatal (_("no entry %s in archive %s!"), *files_to_move, arch->filename);
1333
1334     next_file:;
1335     }
1336
1337   write_archive (arch);
1338 }
1339
1340 /* Ought to default to replacing in place, but this is existing practice!  */
1341
1342 static void
1343 replace_members (bfd *arch, char **files_to_move, bfd_boolean quick)
1344 {
1345   bfd_boolean changed = FALSE;
1346   bfd **after_bfd;              /* New entries go after this one.  */
1347   bfd *current;
1348   bfd **current_ptr;
1349
1350   while (files_to_move && *files_to_move)
1351     {
1352       if (! quick)
1353         {
1354           current_ptr = &arch->archive_next;
1355           while (*current_ptr)
1356             {
1357               current = *current_ptr;
1358
1359               /* For compatibility with existing ar programs, we
1360                  permit the same file to be added multiple times.  */
1361               if (FILENAME_CMP (normalize (*files_to_move, arch),
1362                                 normalize (current->filename, arch)) == 0
1363                   && current->arelt_data != NULL)
1364                 {
1365                   if (newer_only)
1366                     {
1367                       struct stat fsbuf, asbuf;
1368
1369                       if (stat (*files_to_move, &fsbuf) != 0)
1370                         {
1371                           if (errno != ENOENT)
1372                             bfd_fatal (*files_to_move);
1373                           goto next_file;
1374                         }
1375                       if (bfd_stat_arch_elt (current, &asbuf) != 0)
1376                         /* xgettext:c-format */
1377                         fatal (_("internal stat error on %s"),
1378                                current->filename);
1379
1380                       if (fsbuf.st_mtime <= asbuf.st_mtime)
1381                         goto next_file;
1382                     }
1383
1384                   after_bfd = get_pos_bfd (&arch->archive_next, pos_after,
1385                                            current->filename);
1386                   if (ar_emul_replace (after_bfd, *files_to_move,
1387                                        target, verbose))
1388                     {
1389                       /* Snip out this entry from the chain.  */
1390                       *current_ptr = (*current_ptr)->archive_next;
1391                       changed = TRUE;
1392                     }
1393
1394                   goto next_file;
1395                 }
1396               current_ptr = &(current->archive_next);
1397             }
1398         }
1399
1400       /* Add to the end of the archive.  */
1401       after_bfd = get_pos_bfd (&arch->archive_next, pos_end, NULL);
1402
1403       if (ar_emul_append (after_bfd, *files_to_move, target,
1404                           verbose, make_thin_archive))
1405         changed = TRUE;
1406
1407     next_file:;
1408
1409       files_to_move++;
1410     }
1411
1412   if (changed)
1413     write_archive (arch);
1414   else
1415     output_filename = NULL;
1416 }
1417
1418 static int
1419 ranlib_only (const char *archname)
1420 {
1421   bfd *arch;
1422
1423   if (get_file_size (archname) < 1)
1424     return 1;
1425   write_armap = 1;
1426   arch = open_inarch (archname, (char *) NULL);
1427   if (arch == NULL)
1428     xexit (1);
1429   write_archive (arch);
1430   return 0;
1431 }
1432
1433 /* Update the timestamp of the symbol map of an archive.  */
1434
1435 static int
1436 ranlib_touch (const char *archname)
1437 {
1438 #ifdef __GO32__
1439   /* I don't think updating works on go32.  */
1440   ranlib_only (archname);
1441 #else
1442   int f;
1443   bfd *arch;
1444   char **matching;
1445
1446   if (get_file_size (archname) < 1)
1447     return 1;
1448   f = open (archname, O_RDWR | O_BINARY, 0);
1449   if (f < 0)
1450     {
1451       bfd_set_error (bfd_error_system_call);
1452       bfd_fatal (archname);
1453     }
1454
1455   arch = bfd_fdopenr (archname, (const char *) NULL, f);
1456   if (arch == NULL)
1457     bfd_fatal (archname);
1458   if (! bfd_check_format_matches (arch, bfd_archive, &matching))
1459     {
1460       bfd_nonfatal (archname);
1461       if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
1462         {
1463           list_matching_formats (matching);
1464           free (matching);
1465         }
1466       xexit (1);
1467     }
1468
1469   if (! bfd_has_map (arch))
1470     /* xgettext:c-format */
1471     fatal (_("%s: no archive map to update"), archname);
1472
1473   if (deterministic)
1474     arch->flags |= BFD_DETERMINISTIC_OUTPUT;
1475
1476   bfd_update_armap_timestamp (arch);
1477
1478   if (! bfd_close (arch))
1479     bfd_fatal (archname);
1480 #endif
1481   return 0;
1482 }
1483
1484 /* Things which are interesting to map over all or some of the files: */
1485
1486 static void
1487 print_descr (bfd *abfd)
1488 {
1489   print_arelt_descr (stdout, abfd, verbose);
1490 }