libdwfl/dwfl_error.c

   1 /* Error handling in libdwfl.
   2    Copyright (C) 2005-2015 Red Hat, Inc.
   3    This file is part of elfutils.
   4
   5    This file is free software; you can redistribute it and/or modify
   6    it under the terms of either
   7
   8      * the GNU Lesser General Public License as published by the Free
   9        Software Foundation; either version 3 of the License, or (at
  10        your option) any later version
  11
  12    or
  13
  14      * the GNU General Public License as published by the Free
  15        Software Foundation; either version 2 of the License, or (at
  16        your option) any later version
  17
  18    or both in parallel, as here.
  19
  20    elfutils is distributed in the hope that it will be useful, but
  21    WITHOUT ANY WARRANTY; without even the implied warranty of
  22    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23    General Public License for more details.
  24
  25    You should have received copies of the GNU General Public License and
  26    the GNU Lesser General Public License along with this program.  If
  27    not, see <http://www.gnu.org/licenses/>.  */
  28
  29 #ifdef HAVE_CONFIG_H
  30 # include <config.h>
  31 #endif
  32
  33 #include <assert.h>
  34 #include <libintl.h>
  35 #include <stdbool.h>
  36 #include <stdint.h>
  37 #include <stdlib.h>
  38 #include <errno.h>
  39
  40 #include "libdwflP.h"
  41
  42
  43 /* The error number.  */
  44 static __thread int global_error;
  45
  46
  47 int
  48 dwfl_errno (void)
  49 {
  50   int result = global_error;
  51   global_error = DWFL_E_NOERROR;
  52   return result;
  53 }
  54 INTDEF (dwfl_errno)
  55
  56
  57 struct msgtable
  58 {
  59 #define DWFL_ERROR(name, text) char msg_##name[sizeof text];
  60   DWFL_ERRORS
  61 #undef  DWFL_ERROR
  62 };
  63
  64 static const union
  65 {
  66   struct msgtable table;
  67   char strings[
  68 #define DWFL_ERROR(name, text)  + sizeof text
  69                DWFL_ERRORS
  70 #undef  DWFL_ERROR
  71                ];
  72 } msgtable =
  73   {
  74     .table =
  75     {
  76 #define DWFL_ERROR(name, text) text,
  77       DWFL_ERRORS
  78 #undef  DWFL_ERROR
  79     }
  80   };
  81 #define msgstr (msgtable.strings)
  82
  83 static const uint_fast16_t msgidx[] =
  84 {
  85 #define DWFL_ERROR(name, text) \
  86   [DWFL_E_##name] = offsetof (struct msgtable, msg_##name),
  87   DWFL_ERRORS
  88 #undef  DWFL_ERROR
  89 };
  90 #define nmsgidx (sizeof msgidx / sizeof msgidx[0])
  91
  92
  93 static inline int
  94 canonicalize (Dwfl_Error error)
  95 {
  96   unsigned int value;
  97
  98   switch (error)
  99     {
 100     default:
 101       value = error;
 102       if ((value &~ 0xffff) != 0)
 103         break;
 104       assert (value < nmsgidx);
 105       break;
 106     case DWFL_E_ERRNO:
 107       value = DWFL_E (ERRNO, errno);
 108       break;
 109     case DWFL_E_LIBELF:
 110       value = DWFL_E (LIBELF, elf_errno ());
 111       break;
 112     case DWFL_E_LIBDW:
 113       value = DWFL_E (LIBDW, INTUSE(dwarf_errno) ());
 114       break;
 115 #if 0
 116     DWFL_E_LIBEBL:
 117       value = DWFL_E (LIBEBL, ebl_errno ());
 118       break;
 119 #endif
 120     }
 121
 122   return value;
 123 }
 124
 125 int
 126 internal_function
 127 __libdwfl_canon_error (Dwfl_Error error)
 128 {
 129   return canonicalize (error);
 130 }
 131
 132 void
 133 internal_function
 134 __libdwfl_seterrno (Dwfl_Error error)
 135 {
 136   global_error = canonicalize (error);
 137 }
 138
 139
 140 const char *
 141 dwfl_errmsg (int error)
 142 {
 143   if (error == 0 || error == -1)
 144     {
 145       int last_error = global_error;
 146
 147       if (error == 0 && last_error == 0)
 148         return NULL;
 149
 150       error = last_error;
 151       global_error = DWFL_E_NOERROR;
 152     }
 153
 154   switch (error &~ 0xffff)
 155     {
 156     case OTHER_ERROR (ERRNO):
 157       return strerror_r (error & 0xffff, "bad", 0);
 158     case OTHER_ERROR (LIBELF):
 159       return elf_errmsg (error & 0xffff);
 160     case OTHER_ERROR (LIBDW):
 161       return INTUSE(dwarf_errmsg) (error & 0xffff);
 162 #if 0
 163     case OTHER_ERROR (LIBEBL):
 164       return ebl_errmsg (error & 0xffff);
 165 #endif
 166     }
 167
 168   return _(&msgstr[msgidx[(unsigned int) error < nmsgidx
 169                           ? error : DWFL_E_UNKNOWN_ERROR]]);
 170 }
 171 INTDEF (dwfl_errmsg)