perror: call strerror_r directly
[pspp] / lib / perror.c
1 /* Print a message describing error code.
2    Copyright (C) 2008-2011 Free Software Foundation, Inc.
3    Written by Bruno Haible and Simon Josefsson.
4
5    This program is free software: you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 3 of the License, or
8    (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18 #include <config.h>
19
20 /* Specification.  */
21 #include <stdio.h>
22
23 #include <errno.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 #include "intprops.h"
28 #include "verify.h"
29
30 /* Use the system functions, not the gnulib overrides in this file.  */
31 #undef sprintf
32
33 /* my_strerror (errnum) is equivalent to strerror (errnum).
34    But it uses its own buffer, not the one from strerror().  */
35 #define STATIC static
36 #undef strerror
37 #define strerror my_strerror
38 #include "strerror-impl.h"
39
40 void
41 perror (const char *string)
42 {
43   char stackbuf[256];
44   int ret;
45
46   /* Our implementation guarantees that this will be a non-empty
47      string, even if it returns EINVAL; and stackbuf should be sized
48      large enough to avoid ERANGE.  */
49   ret = strerror_r (errno, stackbuf, sizeof stackbuf);
50   if (ret == ERANGE)
51     abort ();
52
53   if (string != NULL && *string != '\0')
54     fprintf (stderr, "%s: %s\n", string, stackbuf);
55   else
56     fprintf (stderr, "%s\n", stackbuf);
57 }