misc/err.c

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