Update.
[kopensolaris-gnu/glibc.git] / assert / assert-perr.c
1 /* Copyright (C) 1994-1998,2001,2002 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Lesser General Public
6    License as published by the Free Software Foundation; either
7    version 2.1 of the License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public
15    License along with the GNU C Library; if not, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.  */
18
19 #include <assert.h>
20 #include <libintl.h>
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <sysdep.h>
25 #include <unistd.h>
26
27
28 extern const char *__progname;
29
30 #ifdef USE_IN_LIBIO
31 # include <wchar.h>
32 # include <libio/iolibio.h>
33 # define fflush(s) INTUSE(_IO_fflush) (s)
34 #endif
35
36 /* This function, when passed an error number, a filename, and a line
37    number, prints a message on the standard error stream of the form:
38         a.c:10: foobar: Unexpected error: Computer bought the farm
39    It then aborts program execution via a call to `abort'.  */
40
41 #ifdef FATAL_PREPARE_INCLUDE
42 # include FATAL_PREPARE_INCLUDE
43 #endif
44
45 void
46 __assert_perror_fail (int errnum,
47                       const char *file, unsigned int line,
48                       const char *function)
49 {
50   char errbuf[1024];
51   char *buf;
52
53 #ifdef FATAL_PREPARE
54   FATAL_PREPARE;
55 #endif
56
57   if (__asprintf (&buf, _("%s%s%s:%u: %s%sUnexpected error: %s.\n"),
58                   __progname, __progname[0] ? ": " : "",
59                   file, line,
60                   function ? function : "", function ? ": " : "",
61                   __strerror_r (errnum, errbuf, sizeof errbuf)) >= 0)
62     {
63       /* Print the message.  */
64 #ifdef USE_IN_LIBIO
65       if (_IO_fwide (stderr, 0) > 0)
66         (void) __fwprintf (stderr, L"%s", buf);
67       else
68 #endif
69         (void) fputs (buf, stderr);
70
71       (void) fflush (stderr);
72
73       /* We have to free the buffer since the appplication might catch the
74          SIGABRT.  */
75       free (buf);
76     }
77   else
78     {
79       /* At least print a minimal message.  */
80       static const char errstr[] = "Unexpected error.\n";
81       __libc_write (STDERR_FILENO, errstr, sizeof (errstr) - 1);
82     }
83
84   abort ();
85 }
86 libc_hidden_def (__assert_perror_fail)