]>
Commit | Line | Data |
---|---|---|
84446801 | 1 | /* Copyright (C) 1991-1993,1997,1998,2000,2001 Free Software Foundation, Inc. |
c84142e8 | 2 | This file is part of the GNU C Library. |
28f540f4 | 3 | |
c84142e8 | 4 | The GNU C Library is free software; you can redistribute it and/or |
41bdb6e2 AJ |
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. | |
28f540f4 | 8 | |
c84142e8 UD |
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 | |
41bdb6e2 | 12 | Lesser General Public License for more details. |
28f540f4 | 13 | |
41bdb6e2 AJ |
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. */ | |
28f540f4 | 18 | |
62ab42d6 | 19 | #include <errno.h> |
28f540f4 | 20 | #include <stdio.h> |
479e9b3f | 21 | #include <string.h> |
1fc0e331 | 22 | #include <unistd.h> |
62ab42d6 | 23 | #include <wchar.h> |
1fc0e331 UD |
24 | #ifdef USE_IN_LIBIO |
25 | # include "libioP.h" | |
26 | #endif | |
28f540f4 | 27 | |
1fc0e331 UD |
28 | static void |
29 | perror_internal (FILE *fp, const char *s) | |
28f540f4 RM |
30 | { |
31 | char buf[1024]; | |
32 | int errnum = errno; | |
c84142e8 | 33 | const char *colon; |
62ab42d6 | 34 | const char *errstring; |
28f540f4 RM |
35 | |
36 | if (s == NULL || *s == '\0') | |
37 | s = colon = ""; | |
38 | else | |
39 | colon = ": "; | |
40 | ||
62ab42d6 UD |
41 | errstring = __strerror_r (errnum, buf, sizeof buf); |
42 | ||
d0ce853b | 43 | #ifdef USE_IN_LIBIO |
1fc0e331 | 44 | if (_IO_fwide (fp, 0) > 0) |
51028f34 | 45 | (void) __fwprintf (fp, L"%s%s%s\n", s, colon, errstring); |
62ab42d6 | 46 | else |
d0ce853b | 47 | #endif |
1fc0e331 UD |
48 | (void) fprintf (fp, "%s%s%s\n", s, colon, errstring); |
49 | } | |
50 | ||
51 | ||
52 | /* Print a line on stderr consisting of the text in S, a colon, a space, | |
53 | a message describing the meaning of the contents of `errno' and a newline. | |
54 | If S is NULL or "", the colon and space are omitted. */ | |
55 | void | |
56 | perror (const char *s) | |
57 | { | |
55183f24 | 58 | #ifdef USE_IN_LIBIO |
1fc0e331 UD |
59 | FILE *fp; |
60 | int fd = -1; | |
61 | ||
55183f24 | 62 | |
1fc0e331 UD |
63 | /* The standard says that 'perror' must not change the orientation |
64 | of the stream. What is supposed to happen when the stream isn't | |
65 | oriented yet? In this case we'll create a new stream which is | |
66 | using the same underlying file descriptor. */ | |
67 | if (__builtin_expect (_IO_fwide (stderr, 0) != 0, 1) | |
68 | || fileno_unlocked (stderr) == -1 | |
6293b803 | 69 | || (fd = __dup (fileno_unlocked (stderr))) == -1 |
1fc0e331 UD |
70 | || (fp = fdopen (fd, "w+")) == NULL) |
71 | { | |
72 | if (__builtin_expect (fd != -1, 0)) | |
6293b803 | 73 | __close (fd); |
1fc0e331 UD |
74 | |
75 | /* Use standard error as is. */ | |
76 | perror_internal (stderr, s); | |
77 | } | |
78 | else | |
79 | { | |
80 | /* We don't have to do any special hacks regarding the file | |
81 | position. Since the stderr stream wasn't used so far we just | |
82 | write to the descriptor. */ | |
83 | perror_internal (fp, s); | |
84 | /* Close the stream. */ | |
85 | fclose (fp); | |
86 | ||
87 | ((_IO_FILE *) stderr)->_offset = _IO_pos_BAD; | |
88 | } | |
55183f24 RM |
89 | #else |
90 | perror_internal (stderr, s); | |
91 | #endif | |
28f540f4 | 92 | } |