]>
Commit | Line | Data |
---|---|---|
aec84f53 UD |
1 | /* Copyright (C) 1991-1993,1997,1998,2000-2005,2011 |
2 | Free Software Foundation, Inc. | |
c84142e8 | 3 | This file is part of the GNU C Library. |
28f540f4 | 4 | |
c84142e8 | 5 | The GNU C Library is free software; you can redistribute it and/or |
41bdb6e2 AJ |
6 | modify it under the terms of the GNU Lesser General Public |
7 | License as published by the Free Software Foundation; either | |
8 | version 2.1 of the License, or (at your option) any later version. | |
28f540f4 | 9 | |
c84142e8 UD |
10 | The GNU C Library 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 GNU | |
41bdb6e2 | 13 | Lesser General Public License for more details. |
28f540f4 | 14 | |
41bdb6e2 AJ |
15 | You should have received a copy of the GNU Lesser General Public |
16 | License along with the GNU C Library; if not, write to the Free | |
17 | Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA | |
18 | 02111-1307 USA. */ | |
28f540f4 | 19 | |
62ab42d6 | 20 | #include <errno.h> |
28f540f4 | 21 | #include <stdio.h> |
479e9b3f | 22 | #include <string.h> |
1fc0e331 | 23 | #include <unistd.h> |
62ab42d6 | 24 | #include <wchar.h> |
14c35863 | 25 | #include "libioP.h" |
28f540f4 | 26 | |
1fc0e331 | 27 | static void |
eaad82e0 | 28 | perror_internal (FILE *fp, const char *s, int errnum) |
28f540f4 RM |
29 | { |
30 | char buf[1024]; | |
c84142e8 | 31 | const char *colon; |
62ab42d6 | 32 | const char *errstring; |
28f540f4 RM |
33 | |
34 | if (s == NULL || *s == '\0') | |
35 | s = colon = ""; | |
36 | else | |
37 | colon = ": "; | |
38 | ||
62ab42d6 UD |
39 | errstring = __strerror_r (errnum, buf, sizeof buf); |
40 | ||
8a259a23 | 41 | (void) __fxprintf (fp, "%s%s%s\n", s, colon, errstring); |
1fc0e331 UD |
42 | } |
43 | ||
44 | ||
45 | /* Print a line on stderr consisting of the text in S, a colon, a space, | |
46 | a message describing the meaning of the contents of `errno' and a newline. | |
47 | If S is NULL or "", the colon and space are omitted. */ | |
48 | void | |
49 | perror (const char *s) | |
50 | { | |
eaad82e0 | 51 | int errnum = errno; |
1fc0e331 UD |
52 | FILE *fp; |
53 | int fd = -1; | |
54 | ||
55183f24 | 55 | |
1fc0e331 UD |
56 | /* The standard says that 'perror' must not change the orientation |
57 | of the stream. What is supposed to happen when the stream isn't | |
58 | oriented yet? In this case we'll create a new stream which is | |
59 | using the same underlying file descriptor. */ | |
60 | if (__builtin_expect (_IO_fwide (stderr, 0) != 0, 1) | |
3ba06713 UD |
61 | || (fd = fileno (stderr)) == -1 |
62 | || (fd = __dup (fd)) == -1 | |
1fc0e331 UD |
63 | || (fp = fdopen (fd, "w+")) == NULL) |
64 | { | |
65 | if (__builtin_expect (fd != -1, 0)) | |
6293b803 | 66 | __close (fd); |
1fc0e331 UD |
67 | |
68 | /* Use standard error as is. */ | |
eaad82e0 | 69 | perror_internal (stderr, s, errnum); |
1fc0e331 UD |
70 | } |
71 | else | |
72 | { | |
73 | /* We don't have to do any special hacks regarding the file | |
74 | position. Since the stderr stream wasn't used so far we just | |
75 | write to the descriptor. */ | |
eaad82e0 | 76 | perror_internal (fp, s, errnum); |
aec84f53 UD |
77 | |
78 | if (_IO_ferror_unlocked (fp)) | |
79 | stderr->_flags |= _IO_ERR_SEEN; | |
80 | ||
1fc0e331 UD |
81 | /* Close the stream. */ |
82 | fclose (fp); | |
1fc0e331 | 83 | } |
28f540f4 | 84 | } |
b9b91868 | 85 | libc_hidden_def (perror) |