* bucomm.c (xmalloc, xrealloc): Deleted.
[external/binutils.git] / 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 }