sdcc/support/sdbinutils/binutils/binemul.c

   1 /* Binutils emulation layer.
   2    Copyright (C) 2002-2022 Free Software Foundation, Inc.
   3    Written by Tom Rix, Red Hat Inc.
   4
   5    This file is part of GNU Binutils.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "binemul.h"
  23
  24 extern bin_emulation_xfer_type bin_dummy_emulation;
  25
  26 void
  27 ar_emul_usage (FILE *fp)
  28 {
  29   if (bin_dummy_emulation.ar_usage)
  30     bin_dummy_emulation.ar_usage (fp);
  31 }
  32
  33 void
  34 ar_emul_default_usage (FILE *fp)
  35 {
  36   AR_EMUL_USAGE_PRINT_OPTION_HEADER (fp);
  37   /* xgettext:c-format */
  38   fprintf (fp, _("  No emulation specific options\n"));
  39 }
  40
  41 bool
  42 ar_emul_append (bfd **after_bfd, char *file_name, const char *target,
  43                 bool verbose, bool flatten)
  44 {
  45   bfd *new_bfd;
  46
  47   new_bfd = bfd_openr (file_name, target);
  48   AR_EMUL_ELEMENT_CHECK (new_bfd, file_name);
  49   if (bin_dummy_emulation.ar_append)
  50     return bin_dummy_emulation.ar_append (after_bfd, new_bfd,
  51                                           verbose, flatten);
  52
  53   return false;
  54 }
  55
  56 bool
  57 ar_emul_append_bfd (bfd **after_bfd, bfd *new_bfd,
  58                 bool verbose, bool flatten)
  59 {
  60   if (bin_dummy_emulation.ar_append)
  61     return bin_dummy_emulation.ar_append (after_bfd, new_bfd,
  62                                           verbose, flatten);
  63
  64   return false;
  65 }
  66
  67 static bool
  68 any_ok (bfd *new_bfd ATTRIBUTE_UNUSED)
  69 {
  70   return true;
  71 }
  72
  73 bool
  74 do_ar_emul_append (bfd **after_bfd, bfd *new_bfd,
  75                    bool verbose, bool flatten,
  76                    bool (*check) (bfd *))
  77 {
  78   /* When flattening, add the members of an archive instead of the
  79      archive itself.  */
  80   if (flatten && bfd_check_format (new_bfd, bfd_archive))
  81     {
  82       bfd *elt;
  83       bool added = false;
  84
  85       for (elt = bfd_openr_next_archived_file (new_bfd, NULL);
  86            elt;
  87            elt = bfd_openr_next_archived_file (new_bfd, elt))
  88         {
  89           if (do_ar_emul_append (after_bfd, elt, verbose, true, check))
  90             {
  91               added = true;
  92               after_bfd = &((*after_bfd)->archive_next);
  93             }
  94         }
  95
  96       return added;
  97     }
  98
  99   if (!check (new_bfd))
 100     return false;
 101
 102   AR_EMUL_APPEND_PRINT_VERBOSE (verbose, bfd_get_filename (new_bfd));
 103
 104   new_bfd->archive_next = *after_bfd;
 105   *after_bfd = new_bfd;
 106
 107   return true;
 108 }
 109
 110 bool
 111 ar_emul_default_append (bfd **after_bfd, bfd *new_bfd,
 112                         bool verbose, bool flatten)
 113 {
 114   return do_ar_emul_append (after_bfd, new_bfd, verbose, flatten, any_ok);
 115 }
 116
 117 bool
 118 ar_emul_replace (bfd **after_bfd, char *file_name, const char *target,
 119                  bool verbose)
 120 {
 121   bfd *new_bfd;
 122
 123   new_bfd = bfd_openr (file_name, target);
 124   AR_EMUL_ELEMENT_CHECK (new_bfd, file_name);
 125
 126   if (bin_dummy_emulation.ar_replace)
 127     return bin_dummy_emulation.ar_replace (after_bfd, new_bfd,
 128                                            verbose);
 129
 130   return false;
 131 }
 132
 133 bool
 134 ar_emul_replace_bfd (bfd **after_bfd, bfd *new_bfd,
 135                  bool verbose)
 136 {
 137   if (bin_dummy_emulation.ar_replace)
 138     return bin_dummy_emulation.ar_replace (after_bfd, new_bfd,
 139                                            verbose);
 140
 141   return false;
 142 }
 143
 144 bool
 145 ar_emul_default_replace (bfd **after_bfd, bfd *new_bfd,
 146                          bool verbose)
 147 {
 148   AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, bfd_get_filename (new_bfd));
 149
 150   new_bfd->archive_next = *after_bfd;
 151   *after_bfd = new_bfd;
 152
 153   return true;
 154 }
 155
 156 bool
 157 ar_emul_parse_arg (char *arg)
 158 {
 159   if (bin_dummy_emulation.ar_parse_arg)
 160     return bin_dummy_emulation.ar_parse_arg (arg);
 161
 162   return false;
 163 }
 164
 165 bool
 166 ar_emul_default_parse_arg (char *arg ATTRIBUTE_UNUSED)
 167 {
 168   return false;
 169 }