binemul.c revision 130562 
1/* Binutils emulation layer.
2   Copyright 2002, 2003 Free Software Foundation, Inc.
3   Written by Tom Rix, Redhat.
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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
20
21#include "binemul.h"
22
23extern bin_emulation_xfer_type bin_dummy_emulation;
24
25void
26ar_emul_usage (FILE *fp)
27{
28  if (bin_dummy_emulation.ar_usage)
29    bin_dummy_emulation.ar_usage (fp);
30}
31
32void
33ar_emul_default_usage (FILE *fp)
34{
35  AR_EMUL_USAGE_PRINT_OPTION_HEADER (fp);
36  /* xgettext:c-format */
37  fprintf (fp, _("  No emulation specific options\n"));
38}
39
40bfd_boolean
41ar_emul_append (bfd **after_bfd, char *file_name, bfd_boolean verbose)
42{
43  if (bin_dummy_emulation.ar_append)
44    return bin_dummy_emulation.ar_append (after_bfd, file_name, verbose);
45
46  return FALSE;
47}
48
49bfd_boolean
50ar_emul_default_append (bfd **after_bfd, char *file_name,
51			bfd_boolean verbose)
52{
53  bfd *temp;
54
55  temp = *after_bfd;
56  *after_bfd = bfd_openr (file_name, NULL);
57
58  AR_EMUL_ELEMENT_CHECK (*after_bfd, file_name);
59  AR_EMUL_APPEND_PRINT_VERBOSE (verbose, file_name);
60
61  (*after_bfd)->next = temp;
62
63  return TRUE;
64}
65
66bfd_boolean
67ar_emul_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose)
68{
69  if (bin_dummy_emulation.ar_replace)
70    return bin_dummy_emulation.ar_replace (after_bfd, file_name, verbose);
71
72  return FALSE;
73}
74
75bfd_boolean
76ar_emul_default_replace (bfd **after_bfd, char *file_name,
77			 bfd_boolean verbose)
78{
79  bfd *temp;
80
81  temp = *after_bfd;
82  *after_bfd = bfd_openr (file_name, NULL);
83
84  AR_EMUL_ELEMENT_CHECK (*after_bfd, file_name);
85  AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, file_name);
86
87  (*after_bfd)->next = temp;
88
89  return TRUE;
90}
91
92bfd_boolean
93ar_emul_create (bfd **abfd_out, char *archive_file_name, char *file_name)
94{
95  if (bin_dummy_emulation.ar_create)
96    return bin_dummy_emulation.ar_create (abfd_out, archive_file_name,
97					  file_name);
98
99  return FALSE;
100}
101
102bfd_boolean
103ar_emul_default_create (bfd **abfd_out, char *archive_file_name,
104			char *file_name)
105{
106  char *target = NULL;
107
108  /* Try to figure out the target to use for the archive from the
109     first object on the list.  */
110  if (file_name != NULL)
111    {
112      bfd *obj;
113
114      obj = bfd_openr (file_name, NULL);
115      if (obj != NULL)
116	{
117	  if (bfd_check_format (obj, bfd_object))
118	    target = bfd_get_target (obj);
119	  (void) bfd_close (obj);
120	}
121    }
122
123  /* Create an empty archive.  */
124  *abfd_out = bfd_openw (archive_file_name, target);
125  if (*abfd_out == NULL
126      || ! bfd_set_format (*abfd_out, bfd_archive)
127      || ! bfd_close (*abfd_out))
128    bfd_fatal (archive_file_name);
129
130  return TRUE;
131}
132
133bfd_boolean
134ar_emul_parse_arg (char *arg)
135{
136  if (bin_dummy_emulation.ar_parse_arg)
137    return bin_dummy_emulation.ar_parse_arg (arg);
138
139  return FALSE;
140}
141
142bfd_boolean
143ar_emul_default_parse_arg (char *arg ATTRIBUTE_UNUSED)
144{
145  return FALSE;
146}
147