misc/err.c

   1 /* 4.4BSD utility functions for error messages.
   2    Copyright (C) 1995,96,98,2001,02 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   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.
   9
  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
  13    Lesser General Public License for more details.
  14
  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.  */
  19
  20 #include <stdarg.h>
  21 #include <err.h>
  22 #include <stdlib.h>
  23 #include <errno.h>
  24 #include <string.h>
  25 #include <stdio.h>
  26
  27 #ifdef USE_IN_LIBIO
  28 # include <wchar.h>
  29 # define flockfile(s) _IO_flockfile (s)
  30 # define funlockfile(s) _IO_funlockfile (s)
  31 #endif
  32
  33 extern char *__progname;
  34
  35 #define VA(call)                                                              \
  36 {                                                                             \
  37   va_list ap;                                                                 \
  38   va_start (ap, format);                                                      \
  39   call;                                                                       \
  40   va_end (ap);                                                                \
  41 }
  42
  43 #ifdef USE_IN_LIBIO
  44 static void
  45 convert_and_print (const char *format, __gnuc_va_list ap)
  46 {
  47 # define ALLOCA_LIMIT   2000
  48   size_t len;
  49   wchar_t *wformat = NULL;
  50   mbstate_t st;
  51   size_t res;
  52   const char *tmp;
  53
  54   if (format == NULL)
  55     return;
  56
  57   len = strlen (format) + 1;
  58
  59   do
  60     {
  61       if (len < ALLOCA_LIMIT)
  62         wformat = (wchar_t *) alloca (len * sizeof (wchar_t));
  63       else
  64         {
  65           if (wformat != NULL && len / 2 < ALLOCA_LIMIT)
  66             wformat = NULL;
  67
  68           wformat = (wchar_t *) realloc (wformat, len * sizeof (wchar_t));
  69
  70           if (wformat == NULL)
  71             {
  72               fputws_unlocked (L"out of memory\n", stderr);
  73               return;
  74             }
  75         }
  76
  77       memset (&st, '\0', sizeof (st));
  78       tmp =format;
  79     }
  80   while ((res = __mbsrtowcs (wformat, &tmp, len, &st)) == len);
  81
  82   if (res == (size_t) -1)
  83     /* The string cannot be converted.  */
  84     wformat = (wchar_t *) L"???";
  85
  86   __vfwprintf (stderr, wformat, ap);
  87 }
  88 #endif
  89
  90 void
  91 vwarnx (const char *format, __gnuc_va_list ap)
  92 {
  93   flockfile (stderr);
  94 #ifdef USE_IN_LIBIO
  95   if (_IO_fwide (stderr, 0) > 0)
  96     {
  97       __fwprintf (stderr, L"%s: ", __progname);
  98       convert_and_print (format, ap);
  99       putwc_unlocked (L'\n', stderr);
 100     }
 101   else
 102 #endif
 103     {
 104       fprintf (stderr, "%s: ", __progname);
 105       if (format)
 106         vfprintf (stderr, format, ap);
 107       putc_unlocked ('\n', stderr);
 108     }
 109   funlockfile (stderr);
 110 }
 111 libc_hidden_def (vwarnx)
 112
 113 void
 114 vwarn (const char *format, __gnuc_va_list ap)
 115 {
 116   int error = errno;
 117
 118   flockfile (stderr);
 119 #ifdef USE_IN_LIBIO
 120   if (_IO_fwide (stderr, 0) > 0)
 121     {
 122       __fwprintf (stderr, L"%s: ", __progname);
 123       if (format)
 124         {
 125           convert_and_print (format, ap);
 126           fputws_unlocked (L": ", stderr);
 127         }
 128       __set_errno (error);
 129       __fwprintf (stderr, L"%m\n");
 130     }
 131   else
 132 #endif
 133     {
 134       fprintf (stderr, "%s: ", __progname);
 135       if (format)
 136         {
 137           vfprintf (stderr, format, ap);
 138           fputs_unlocked (": ", stderr);
 139         }
 140       __set_errno (error);
 141       fprintf (stderr, "%m\n");
 142     }
 143   funlockfile (stderr);
 144 }
 145 libc_hidden_def (vwarn)
 146
 147
 148 void
 149 warn (const char *format, ...)
 150 {
 151   VA (vwarn (format, ap))
 152 }
 153 libc_hidden_def (warn)
 154
 155 void
 156 warnx (const char *format, ...)
 157 {
 158   VA (vwarnx (format, ap))
 159 }
 160 libc_hidden_def (warnx)
 161
 162 void
 163 verr (int status, const char *format, __gnuc_va_list ap)
 164 {
 165   vwarn (format, ap);
 166   exit (status);
 167 }
 168 libc_hidden_def (verr)
 169
 170 void
 171 verrx (int status, const char *format, __gnuc_va_list ap)
 172 {
 173   vwarnx (format, ap);
 174   exit (status);
 175 }
 176 libc_hidden_def (verrx)
 177
 178 void
 179 err (int status, const char *format, ...)
 180 {
 181   VA (verr (status, format, ap))
 182 }
 183
 184 void
 185 errx (int status, const char *format, ...)
 186 {
 187   VA (verrx (status, format, ap))
 188 }