Permalink
Cannot retrieve contributors at this time
Name already in use
A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
glibc/misc/error.c
Go to fileThis commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
371 lines (325 sloc)
8.6 KB
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* Error handler for noninteractive utilities | |
Copyright (C) 1990-1998, 2000, 2001, 2002 Free Software Foundation, Inc. | |
This file is part of the GNU C Library. Its master source is NOT part of | |
the C library, however. The master source lives in /gd/gnu/lib. | |
The GNU C Library is free software; you can redistribute it and/or | |
modify it under the terms of the GNU Lesser General Public | |
License as published by the Free Software Foundation; either | |
version 2.1 of the License, or (at your option) any later version. | |
The GNU C Library is distributed in the hope that it will be useful, | |
but WITHOUT ANY WARRANTY; without even the implied warranty of | |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
Lesser General Public License for more details. | |
You should have received a copy of the GNU Lesser General Public | |
License along with the GNU C Library; if not, write to the Free | |
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA | |
02111-1307 USA. */ | |
/* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ | |
#ifdef HAVE_CONFIG_H | |
# include <config.h> | |
#endif | |
#include <stdio.h> | |
#include <libintl.h> | |
#ifdef _LIBC | |
# include <wchar.h> | |
# define mbsrtowcs __mbsrtowcs | |
#endif | |
#if HAVE_VPRINTF || HAVE_DOPRNT || _LIBC | |
# if __STDC__ | |
# include <stdarg.h> | |
# define VA_START(args, lastarg) va_start(args, lastarg) | |
# else | |
# include <varargs.h> | |
# define VA_START(args, lastarg) va_start(args) | |
# endif | |
#else | |
# define va_alist a1, a2, a3, a4, a5, a6, a7, a8 | |
# define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; | |
#endif | |
#if STDC_HEADERS || _LIBC | |
# include <stdlib.h> | |
# include <string.h> | |
#else | |
void exit (); | |
#endif | |
#include "error.h" | |
#ifndef _ | |
# define _(String) String | |
#endif | |
/* If NULL, error will flush stdout, then print on stderr the program | |
name, a colon and a space. Otherwise, error will call this | |
function without parameters instead. */ | |
void (*error_print_progname) ( | |
#if __STDC__ - 0 | |
void | |
#endif | |
); | |
/* This variable is incremented each time `error' is called. */ | |
unsigned int error_message_count; | |
#ifdef _LIBC | |
/* In the GNU C library, there is a predefined variable for this. */ | |
# define program_name program_invocation_name | |
# include <errno.h> | |
# include <libio/libioP.h> | |
/* In GNU libc we want do not want to use the common name `error' directly. | |
Instead make it a weak alias. */ | |
extern void __error (int status, int errnum, const char *message, ...) | |
__attribute__ ((__format__ (__printf__, 3, 4))); | |
extern void __error_at_line (int status, int errnum, const char *file_name, | |
unsigned int line_number, const char *message, | |
...) | |
__attribute__ ((__format__ (__printf__, 5, 6)));; | |
# define error __error | |
# define error_at_line __error_at_line | |
# ifdef USE_IN_LIBIO | |
# include <libio/iolibio.h> | |
# define fflush(s) INTUSE(_IO_fflush) (s) | |
# undef putc | |
# define putc(c, fp) INTUSE(_IO_putc) (c, fp) | |
# endif | |
#else /* not _LIBC */ | |
/* The calling program should define program_name and set it to the | |
name of the executing program. */ | |
extern char *program_name; | |
# ifdef HAVE_STRERROR_R | |
# define __strerror_r strerror_r | |
# else | |
# if HAVE_STRERROR | |
# ifndef strerror /* On some systems, strerror is a macro */ | |
char *strerror (); | |
# endif | |
# else | |
static char * | |
private_strerror (errnum) | |
int errnum; | |
{ | |
extern char *sys_errlist[]; | |
extern int sys_nerr; | |
if (errnum > 0 && errnum <= sys_nerr) | |
return _(sys_errlist[errnum]); | |
return _("Unknown system error"); | |
} | |
# define strerror private_strerror | |
# endif /* HAVE_STRERROR */ | |
# endif /* HAVE_STRERROR_R */ | |
#endif /* not _LIBC */ | |
#ifdef VA_START | |
static void | |
error_tail (int status, int errnum, const char *message, va_list args) | |
{ | |
# if HAVE_VPRINTF || _LIBC | |
# if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
{ | |
# define ALLOCA_LIMIT 2000 | |
size_t len = strlen (message) + 1; | |
wchar_t *wmessage = NULL; | |
mbstate_t st; | |
size_t res; | |
const char *tmp; | |
do | |
{ | |
if (len < ALLOCA_LIMIT) | |
wmessage = (wchar_t *) alloca (len * sizeof (wchar_t)); | |
else | |
{ | |
if (wmessage != NULL && len / 2 < ALLOCA_LIMIT) | |
wmessage = NULL; | |
wmessage = (wchar_t *) realloc (wmessage, | |
len * sizeof (wchar_t)); | |
if (wmessage == NULL) | |
{ | |
fputws_unlocked (L"out of memory\n", stderr); | |
return; | |
} | |
} | |
memset (&st, '\0', sizeof (st)); | |
tmp =message; | |
} | |
while ((res = mbsrtowcs (wmessage, &tmp, len, &st)) == len); | |
if (res == (size_t) -1) | |
/* The string cannot be converted. */ | |
wmessage = (wchar_t *) L"???"; | |
__vfwprintf (stderr, wmessage, args); | |
} | |
else | |
# endif | |
vfprintf (stderr, message, args); | |
# else | |
_doprnt (message, args, stderr); | |
# endif | |
va_end (args); | |
++error_message_count; | |
if (errnum) | |
{ | |
#if defined HAVE_STRERROR_R || _LIBC | |
char errbuf[1024]; | |
char *s = __strerror_r (errnum, errbuf, sizeof errbuf); | |
# if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
__fwprintf (stderr, L": %s", s); | |
else | |
# endif | |
fprintf (stderr, ": %s", s); | |
#else | |
fprintf (stderr, ": %s", strerror (errnum)); | |
#endif | |
} | |
#if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
putwc (L'\n', stderr); | |
else | |
#endif | |
putc ('\n', stderr); | |
fflush (stderr); | |
if (status) | |
exit (status); | |
} | |
#endif | |
/* Print the program name and error message MESSAGE, which is a printf-style | |
format string with optional args. | |
If ERRNUM is nonzero, print its corresponding system error message. | |
Exit with status STATUS if it is nonzero. */ | |
/* VARARGS */ | |
void | |
#if defined VA_START && __STDC__ | |
error (int status, int errnum, const char *message, ...) | |
#else | |
error (status, errnum, message, va_alist) | |
int status; | |
int errnum; | |
char *message; | |
va_dcl | |
#endif | |
{ | |
#ifdef VA_START | |
va_list args; | |
#endif | |
fflush (stdout); | |
#ifdef _LIBC | |
# ifdef USE_IN_LIBIO | |
_IO_flockfile (stderr); | |
# else | |
__flockfile (stderr); | |
# endif | |
#endif | |
if (error_print_progname) | |
(*error_print_progname) (); | |
else | |
{ | |
#if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
__fwprintf (stderr, L"%s: ", program_name); | |
else | |
#endif | |
fprintf (stderr, "%s: ", program_name); | |
} | |
#ifdef VA_START | |
VA_START (args, message); | |
error_tail (status, errnum, message, args); | |
#else | |
fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); | |
++error_message_count; | |
if (errnum) | |
fprintf (stderr, ": %s", strerror (errnum)); | |
putc ('\n', stderr); | |
fflush (stderr); | |
if (status) | |
exit (status); | |
#endif | |
#ifdef _LIBC | |
# ifdef USE_IN_LIBIO | |
_IO_funlockfile (stderr); | |
# else | |
__funlockfile (stderr); | |
# endif | |
#endif | |
} | |
/* Sometimes we want to have at most one error per line. This | |
variable controls whether this mode is selected or not. */ | |
int error_one_per_line; | |
void | |
#if defined VA_START && __STDC__ | |
error_at_line (int status, int errnum, const char *file_name, | |
unsigned int line_number, const char *message, ...) | |
#else | |
error_at_line (status, errnum, file_name, line_number, message, va_alist) | |
int status; | |
int errnum; | |
const char *file_name; | |
unsigned int line_number; | |
char *message; | |
va_dcl | |
#endif | |
{ | |
#ifdef VA_START | |
va_list args; | |
#endif | |
if (error_one_per_line) | |
{ | |
static const char *old_file_name; | |
static unsigned int old_line_number; | |
if (old_line_number == line_number | |
&& (file_name == old_file_name | |
|| strcmp (old_file_name, file_name) == 0)) | |
/* Simply return and print nothing. */ | |
return; | |
old_file_name = file_name; | |
old_line_number = line_number; | |
} | |
fflush (stdout); | |
#ifdef _LIBC | |
# ifdef USE_IN_LIBIO | |
_IO_flockfile (stderr); | |
# else | |
__flockfile (stderr); | |
# endif | |
#endif | |
if (error_print_progname) | |
(*error_print_progname) (); | |
else | |
{ | |
#if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
__fwprintf (stderr, L"%s: ", program_name); | |
else | |
#endif | |
fprintf (stderr, "%s:", program_name); | |
} | |
if (file_name != NULL) | |
{ | |
#if _LIBC && USE_IN_LIBIO | |
if (_IO_fwide (stderr, 0) > 0) | |
__fwprintf (stderr, L"%s:%d: ", file_name, line_number); | |
else | |
#endif | |
fprintf (stderr, "%s:%d: ", file_name, line_number); | |
} | |
#ifdef VA_START | |
VA_START (args, message); | |
error_tail (status, errnum, message, args); | |
#else | |
fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); | |
++error_message_count; | |
if (errnum) | |
fprintf (stderr, ": %s", strerror (errnum)); | |
putc ('\n', stderr); | |
fflush (stderr); | |
if (status) | |
exit (status); | |
#endif | |
#ifdef _LIBC | |
# ifdef USE_IN_LIBIO | |
_IO_funlockfile (stderr); | |
# else | |
__funlockfile (stderr); | |
# endif | |
#endif | |
} | |
#ifdef _LIBC | |
/* Make the weak alias. */ | |
# undef error | |
# undef error_at_line | |
weak_alias (__error, error) | |
weak_alias (__error_at_line, error_at_line) | |
#endif |