1/* Error handler for noninteractive utilities 2 Copyright (C) 1990-1998, 2000 Free Software Foundation, Inc. 3 4 This file is part of the GNU C Library. Its master source is NOT part of 5 the C library, however. The master source lives in /gd/gnu/lib. 6 7 The GNU C Library is free software; you can redistribute it and/or 8 modify it under the terms of the GNU Library General Public License as 9 published by the Free Software Foundation; either version 2 of the 10 License, or (at your option) any later version. 11 12 The GNU C Library is distributed in the hope that it will be useful, 13 but WITHOUT ANY WARRANTY; without even the implied warranty of 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 Library General Public License for more details. 16 17 You should have received a copy of the GNU Library General Public 18 License along with the GNU C Library; see the file COPYING.LIB. If not, 19 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 20 Boston, MA 02111-1307, USA. */ 21 22/* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ 23 24#ifdef HAVE_CONFIG_H 25# include <config.h> 26#endif 27 28#include <stdio.h> 29#if HAVE_LIBINTL_H 30# include <libintl.h> 31#endif 32 33#if HAVE_VPRINTF || HAVE_DOPRNT || _LIBC 34# if __STDC__ 35# include <stdarg.h> 36# define VA_START(args, lastarg) va_start(args, lastarg) 37# else 38# include <varargs.h> 39# define VA_START(args, lastarg) va_start(args) 40# endif 41#else 42# define va_alist a1, a2, a3, a4, a5, a6, a7, a8 43# define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8; 44#endif 45 46#if STDC_HEADERS || _LIBC 47# include <stdlib.h> 48# include <string.h> 49#else 50void exit (); 51#endif 52 53#include "error.h" 54 55#ifndef HAVE_DECL_STRERROR_R 56"this configure-time declaration test was not run" 57#endif 58#if !HAVE_DECL_STRERROR_R 59char *strerror_r (); 60#endif 61 62#ifndef _ 63# define _(String) String 64#endif 65 66/* If NULL, error will flush stdout, then print on stderr the program 67 name, a colon and a space. Otherwise, error will call this 68 function without parameters instead. */ 69void (*error_print_progname) ( 70#if __STDC__ - 0 71 void 72#endif 73 ); 74 75/* This variable is incremented each time `error' is called. */ 76unsigned int error_message_count; 77 78#ifdef _LIBC 79/* In the GNU C library, there is a predefined variable for this. */ 80 81# define program_name program_invocation_name 82# include <errno.h> 83 84/* In GNU libc we want do not want to use the common name `error' directly. 85 Instead make it a weak alias. */ 86# define error __error 87# define error_at_line __error_at_line 88 89# ifdef USE_IN_LIBIO 90# include <libio/iolibio.h> 91# define fflush(s) _IO_fflush (s) 92# endif 93 94#else /* not _LIBC */ 95 96/* The calling program should define program_name and set it to the 97 name of the executing program. */ 98extern char *program_name; 99 100# ifdef HAVE_STRERROR_R 101# define __strerror_r strerror_r 102# else 103# if HAVE_STRERROR 104# ifndef strerror /* On some systems, strerror is a macro */ 105char *strerror (); 106# endif 107# else 108static char * 109private_strerror (errnum) 110 int errnum; 111{ 112 extern char *sys_errlist[]; 113 extern int sys_nerr; 114 115 if (errnum > 0 && errnum <= sys_nerr) 116 return _(sys_errlist[errnum]); 117 return _("Unknown system error"); 118} 119# define strerror private_strerror 120# endif /* HAVE_STRERROR */ 121# endif /* HAVE_STRERROR_R */ 122#endif /* not _LIBC */ 123 124/* Print the program name and error message MESSAGE, which is a printf-style 125 format string with optional args. 126 If ERRNUM is nonzero, print its corresponding system error message. 127 Exit with status STATUS if it is nonzero. */ 128/* VARARGS */ 129 130void 131#if defined VA_START && __STDC__ 132error (int status, int errnum, const char *message, ...) 133#else 134error (status, errnum, message, va_alist) 135 int status; 136 int errnum; 137 char *message; 138 va_dcl 139#endif 140{ 141#ifdef VA_START 142 va_list args; 143#endif 144 145 if (error_print_progname) 146 (*error_print_progname) (); 147 else 148 { 149 fflush (stdout); 150 fprintf (stderr, "%s: ", program_name); 151 } 152 153#ifdef VA_START 154 VA_START (args, message); 155# if HAVE_VPRINTF || _LIBC 156 vfprintf (stderr, message, args); 157# else 158 _doprnt (message, args, stderr); 159# endif 160 va_end (args); 161#else 162 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); 163#endif 164 165 ++error_message_count; 166 if (errnum) 167 { 168#if defined HAVE_STRERROR_R || _LIBC 169 char errbuf[1024]; 170# if HAVE_WORKING_STRERROR_R || _LIBC 171 fprintf (stderr, ": %s", __strerror_r (errnum, errbuf, sizeof errbuf)); 172# else 173 /* Don't use __strerror_r's return value because on some systems 174 (at least DEC UNIX 4.0[A-D]) strerror_r returns `int'. */ 175 __strerror_r (errnum, errbuf, sizeof errbuf); 176 fprintf (stderr, ": %s", errbuf); 177# endif 178#else 179 fprintf (stderr, ": %s", strerror (errnum)); 180#endif 181 } 182 putc ('\n', stderr); 183 fflush (stderr); 184 if (status) 185 exit (status); 186} 187 188/* Sometimes we want to have at most one error per line. This 189 variable controls whether this mode is selected or not. */ 190int error_one_per_line; 191 192void 193#if defined VA_START && __STDC__ 194error_at_line (int status, int errnum, const char *file_name, 195 unsigned int line_number, const char *message, ...) 196#else 197error_at_line (status, errnum, file_name, line_number, message, va_alist) 198 int status; 199 int errnum; 200 const char *file_name; 201 unsigned int line_number; 202 char *message; 203 va_dcl 204#endif 205{ 206#ifdef VA_START 207 va_list args; 208#endif 209 210 if (error_one_per_line) 211 { 212 static const char *old_file_name; 213 static unsigned int old_line_number; 214 215 if (old_line_number == line_number && 216 (file_name == old_file_name || !strcmp (old_file_name, file_name))) 217 /* Simply return and print nothing. */ 218 return; 219 220 old_file_name = file_name; 221 old_line_number = line_number; 222 } 223 224 if (error_print_progname) 225 (*error_print_progname) (); 226 else 227 { 228 fflush (stdout); 229 fprintf (stderr, "%s:", program_name); 230 } 231 232 if (file_name != NULL) 233 fprintf (stderr, "%s:%d: ", file_name, line_number); 234 235#ifdef VA_START 236 VA_START (args, message); 237# if HAVE_VPRINTF || _LIBC 238 vfprintf (stderr, message, args); 239# else 240 _doprnt (message, args, stderr); 241# endif 242 va_end (args); 243#else 244 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8); 245#endif 246 247 ++error_message_count; 248 if (errnum) 249 { 250#if defined HAVE_STRERROR_R || _LIBC 251 char errbuf[1024]; 252# if HAVE_WORKING_STRERROR_R || _LIBC 253 fprintf (stderr, ": %s", __strerror_r (errnum, errbuf, sizeof errbuf)); 254# else 255 /* Don't use __strerror_r's return value because on some systems 256 (at least DEC UNIX 4.0[A-D]) strerror_r returns `int'. */ 257 __strerror_r (errnum, errbuf, sizeof errbuf); 258 fprintf (stderr, ": %s", errbuf); 259# endif 260#else 261 fprintf (stderr, ": %s", strerror (errnum)); 262#endif 263 } 264 putc ('\n', stderr); 265 fflush (stderr); 266 if (status) 267 exit (status); 268} 269 270#ifdef _LIBC 271/* Make the weak alias. */ 272# undef error 273# undef error_at_line 274weak_alias (__error, error) 275weak_alias (__error_at_line, error_at_line) 276#endif 277