binutils/bucomm.c

   1 /* bucomm.c -- Bin Utils COMmon code.
   2    Copyright (C) 1991 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 2 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19 \f
  20 /* We might put this in a library someday so it could be dynamically
  21    loaded, but for now it's not necessary.  */
  22
  23 #include "bfd.h"
  24 #include "sysdep.h"
  25 #include <varargs.h>
  26
  27 char *target = NULL;            /* default as late as possible */
  28
  29 /* Yes, this is what atexit is for, but that isn't guaranteed yet.
  30    And yes, I know this isn't as good, but it does what is needed just fine. */
  31 void (*exit_handler) ();
  32
  33
  34 /* Error reporting */
  35
  36 char *program_name;
  37
  38 void
  39 bfd_nonfatal (string)
  40      char *string;
  41 {
  42   CONST char *errmsg = bfd_errmsg (bfd_error);
  43
  44   if (string)
  45     fprintf (stderr, "%s: %s: %s\n", program_name, string, errmsg);
  46   else
  47     fprintf (stderr, "%s: %s\n", program_name, errmsg);
  48 }
  49
  50 void
  51 bfd_fatal (string)
  52      char *string;
  53 {
  54   bfd_nonfatal (string);
  55
  56   if (NULL != exit_handler)
  57     (*exit_handler) ();
  58   exit (1);
  59 }
  60
  61 #if 0                           /* !defined(NO_STDARG) */
  62 void
  63 fatal (Format)
  64      const char *Format;
  65 {
  66   va_list args;
  67
  68   fprintf (stderr, "%s: ", program_name);
  69   va_start (args, Format);
  70   vfprintf (stderr, Format, args);
  71   va_end (args);
  72   putc ('\n', stderr);
  73   if (NULL != exit_handler)
  74     (*exit_handler) ();
  75   exit (1);
  76 }
  77 #else
  78 void
  79 fatal (va_alist)
  80      va_dcl
  81 {
  82   char *Format;
  83   va_list args;
  84
  85   fprintf (stderr, "%s: ", program_name);
  86   va_start (args);
  87   Format = va_arg (args, char *);
  88   vfprintf (stderr, Format, args);
  89   va_end (args);
  90   putc ('\n', stderr);
  91   if (NULL != exit_handler)
  92     (*exit_handler) ();
  93   exit (1);
  94 }
  95 #endif
  96 \f
  97
  98 void mode_string ();
  99
 100 /* Display the archive header for an element as if it were an ls -l listing:
 101
 102    Mode       User\tGroup\tSize\tDate               Name */
 103
 104 void
 105 print_arelt_descr (file, abfd, verbose)
 106      FILE *file;
 107      bfd *abfd;
 108      boolean verbose;
 109 {
 110   struct stat buf;
 111
 112   if (verbose)
 113     {
 114       if (bfd_stat_arch_elt (abfd, &buf) == 0)
 115         {
 116           char modebuf[11];
 117           char timebuf[40];
 118           long when = buf.st_mtime;
 119           CONST char *ctime_result = (CONST char *) ctime (&when);
 120
 121           /* POSIX format:  skip weekday and seconds from ctime output.  */
 122           sprintf (timebuf, "%.12s %.4s", ctime_result + 4, ctime_result + 20);
 123
 124           mode_string (buf.st_mode, modebuf);
 125           modebuf[10] = '\0';
 126           /* POSIX 1003.2/D11 says to skip first character (entry type).  */
 127           fprintf (file, "%s %d/%d %6ld %s ", modebuf + 1,
 128                    buf.st_uid, buf.st_gid, buf.st_size, timebuf);
 129         }
 130     }
 131
 132   fprintf (file, "%s\n", abfd->filename);
 133 }