elf/dlerror.c

   1 /* dlerror -- Return error detail for failing <dlfcn.h> functions.
   2 Copyright (C) 1995 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 Library General Public License as
   7 published by the Free Software Foundation; either version 2 of the
   8 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 Library General Public License for more details.
  14
  15 You should have received a copy of the GNU Library General Public
  16 License along with the GNU C Library; see the file COPYING.LIB.  If
  17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  18 Cambridge, MA 02139, USA.  */
  19
  20 #include <link.h>
  21 #include <dlfcn.h>
  22 #include <stdio.h>
  23 #include <string.h>
  24 #include <stdlib.h>
  25
  26 static int _dl_last_errcode;
  27 static const char *_dl_last_errstring;
  28
  29 char *
  30 dlerror (void)
  31 {
  32  char *ret;
  33
  34   if (! _dl_last_errstring)
  35     return NULL;
  36
  37   if (_dl_last_errcode)
  38     {
  39       static char *buf;
  40       if (buf)
  41         {
  42           free (buf);
  43           buf = NULL;
  44         }
  45       if (asprintf (&buf, "%s: %s",
  46                     _dl_last_errstring, strerror (_dl_last_errcode)) == -1)
  47         return NULL;
  48       else
  49         ret = buf;
  50     }
  51  else
  52    ret = (char *) _dl_last_errstring;
  53
  54  /* Reset the error indicator.  */
  55  _dl_last_errstring = NULL;
  56  return ret;
  57 }
  58
  59 int
  60 _dlerror_run (void (*operate) (void))
  61 {
  62   _dl_last_errcode = _dl_catch_error (&_dl_last_errstring, operate);
  63   return _dl_last_errstring != NULL;
  64 }