1 /* bucomm.c -- Bin Utils COMmon code.
2 Copyright 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2000, 2001, 2002, 2003
3 Free Software Foundation, Inc.
5 This file is part of GNU Binutils.
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.
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.
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
22 /* We might put this in a library someday so it could be dynamically
23 loaded, but for now it's not necessary. */
27 #include "libiberty.h"
29 #include "filenames.h"
33 #include <time.h> /* ctime, maybe time_t */
35 #ifndef HAVE_TIME_T_IN_TIME_H
36 #ifndef HAVE_TIME_T_IN_TYPES_H
41 static const char * endian_string PARAMS ((enum bfd_endian));
42 static int display_target_list PARAMS ((void));
43 static int display_info_table PARAMS ((int, int));
44 static int display_target_tables PARAMS ((void));
46 /* Error reporting. */
54 const char *errmsg = bfd_errmsg (bfd_get_error ());
57 fprintf (stderr, "%s: %s: %s\n", program_name, string, errmsg);
59 fprintf (stderr, "%s: %s\n", program_name, errmsg);
66 bfd_nonfatal (string);
75 fprintf (stderr, "%s: ", program_name);
76 vfprintf (stderr, format, args);
81 fatal VPARAMS ((const char *format, ...))
83 VA_OPEN (args, format);
84 VA_FIXEDARG (args, const char *, format);
86 report (format, args);
92 non_fatal VPARAMS ((const char *format, ...))
94 VA_OPEN (args, format);
95 VA_FIXEDARG (args, const char *, format);
97 report (format, args);
101 /* Set the default BFD target based on the configured target. Doing
102 this permits the binutils to be configured for a particular target,
103 and linked against a shared BFD library which was configured for a
107 set_default_bfd_target ()
109 /* The macro TARGET is defined by Makefile. */
110 const char *target = TARGET;
112 if (! bfd_set_default_target (target))
113 fatal (_("can't set BFD default target to `%s': %s"),
114 target, bfd_errmsg (bfd_get_error ()));
117 /* After a FALSE return from bfd_check_format_matches with
118 bfd_get_error () == bfd_error_file_ambiguously_recognized, print
119 the possible matching targets. */
122 list_matching_formats (p)
125 fprintf (stderr, _("%s: Matching formats:"), program_name);
127 fprintf (stderr, " %s", *p++);
128 fputc ('\n', stderr);
131 /* List the supported targets. */
134 list_supported_targets (name, f)
139 const char **targ_names = bfd_target_list ();
142 fprintf (f, _("Supported targets:"));
144 fprintf (f, _("%s: supported targets:"), name);
146 for (t = 0; targ_names[t] != NULL; t++)
147 fprintf (f, " %s", targ_names[t]);
152 /* List the supported architectures. */
155 list_supported_architectures (name, f)
162 fprintf (f, _("Supported architectures:"));
164 fprintf (f, _("%s: supported architectures:"), name);
166 for (arch = bfd_arch_list (); *arch; arch++)
167 fprintf (f, " %s", *arch);
171 /* The length of the longest architecture name + 1. */
172 #define LONGEST_ARCH sizeof ("powerpc:common")
175 endian_string (endian)
176 enum bfd_endian endian;
180 case BFD_ENDIAN_BIG: return "big endian";
181 case BFD_ENDIAN_LITTLE: return "little endian";
182 default: return "endianness unknown";
186 /* List the targets that BFD is configured to support, each followed
187 by its endianness and the architectures it supports. */
190 display_target_list ()
196 dummy_name = make_temp_file (NULL);
197 for (t = 0; bfd_target_vector[t]; t++)
199 const bfd_target *p = bfd_target_vector[t];
200 bfd *abfd = bfd_openw (dummy_name, p->name);
203 printf ("%s\n (header %s, data %s)\n", p->name,
204 endian_string (p->header_byteorder),
205 endian_string (p->byteorder));
209 bfd_nonfatal (dummy_name);
214 if (! bfd_set_format (abfd, bfd_object))
216 if (bfd_get_error () != bfd_error_invalid_operation)
218 bfd_nonfatal (p->name);
221 bfd_close_all_done (abfd);
225 for (a = (int) bfd_arch_obscure + 1; a < (int) bfd_arch_last; a++)
226 if (bfd_set_arch_mach (abfd, (enum bfd_architecture) a, 0))
228 bfd_printable_arch_mach ((enum bfd_architecture) a, 0));
229 bfd_close_all_done (abfd);
237 /* Print a table showing which architectures are supported for entries
238 FIRST through LAST-1 of bfd_target_vector (targets across,
239 architectures down). */
242 display_info_table (first, last)
251 /* Print heading of target names. */
252 printf ("\n%*s", (int) LONGEST_ARCH, " ");
253 for (t = first; t < last && bfd_target_vector[t]; t++)
254 printf ("%s ", bfd_target_vector[t]->name);
257 dummy_name = make_temp_file (NULL);
258 for (a = (int) bfd_arch_obscure + 1; a < (int) bfd_arch_last; a++)
259 if (strcmp (bfd_printable_arch_mach (a, 0), "UNKNOWN!") != 0)
261 printf ("%*s ", (int) LONGEST_ARCH - 1,
262 bfd_printable_arch_mach (a, 0));
263 for (t = first; t < last && bfd_target_vector[t]; t++)
265 const bfd_target *p = bfd_target_vector[t];
266 bfd_boolean ok = TRUE;
267 bfd *abfd = bfd_openw (dummy_name, p->name);
271 bfd_nonfatal (p->name);
278 if (! bfd_set_format (abfd, bfd_object))
280 if (bfd_get_error () != bfd_error_invalid_operation)
282 bfd_nonfatal (p->name);
291 if (! bfd_set_arch_mach (abfd, a, 0))
296 printf ("%s ", p->name);
299 int l = strlen (p->name);
305 bfd_close_all_done (abfd);
315 /* Print tables of all the target-architecture combinations that
316 BFD has been configured to support. */
319 display_target_tables ()
327 colum = getenv ("COLUMNS");
329 columns = atoi (colum);
334 while (bfd_target_vector[t] != NULL)
338 wid = LONGEST_ARCH + strlen (bfd_target_vector[t]->name) + 1;
340 while (wid < columns && bfd_target_vector[t] != NULL)
344 newwid = wid + strlen (bfd_target_vector[t]->name) + 1;
345 if (newwid >= columns)
350 if (! display_info_table (oldt, t))
360 printf (_("BFD header file version %s\n"), BFD_VERSION_STRING);
361 if (! display_target_list () || ! display_target_tables ())
367 /* Display the archive header for an element as if it were an ls -l listing:
369 Mode User\tGroup\tSize\tDate Name */
372 print_arelt_descr (file, abfd, verbose)
381 if (bfd_stat_arch_elt (abfd, &buf) == 0)
385 time_t when = buf.st_mtime;
386 const char *ctime_result = (const char *) ctime (&when);
388 /* POSIX format: skip weekday and seconds from ctime output. */
389 sprintf (timebuf, "%.12s %.4s", ctime_result + 4, ctime_result + 20);
391 mode_string (buf.st_mode, modebuf);
393 /* POSIX 1003.2/D11 says to skip first character (entry type). */
394 fprintf (file, "%s %ld/%ld %6ld %s ", modebuf + 1,
395 (long) buf.st_uid, (long) buf.st_gid,
396 (long) buf.st_size, timebuf);
400 fprintf (file, "%s\n", bfd_get_filename (abfd));
403 /* Return the name of a temporary file in the same directory as FILENAME. */
406 make_tempname (filename)
409 static char template[] = "stXXXXXX";
411 char *slash = strrchr (filename, '/');
413 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
415 /* We could have foo/bar\\baz, or foo\\bar, or d:bar. */
416 char *bslash = strrchr (filename, '\\');
417 if (slash == NULL || (bslash != NULL && bslash > slash))
419 if (slash == NULL && filename[0] != '\0' && filename[1] == ':')
420 slash = filename + 1;
424 if (slash != (char *) NULL)
430 tmpname = xmalloc (strlen (filename) + sizeof (template) + 2);
431 strcpy (tmpname, filename);
432 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
433 /* If tmpname is "X:", appending a slash will make it a root
434 directory on drive X, which is NOT the same as the current
435 directory on drive X. */
436 if (tmpname[1] == ':' && tmpname[2] == '\0')
437 strcat (tmpname, ".");
439 strcat (tmpname, "/");
440 strcat (tmpname, template);
446 tmpname = xmalloc (sizeof (template));
447 strcpy (tmpname, template);
453 /* Parse a string into a VMA, with a fatal error if it can't be
464 ret = bfd_scan_vma (s, &end, 0);
467 fatal (_("%s: bad number: %s"), arg, s);