1/* Support functionality for using dlopen/dlclose/dlsym.
2 Copyright (C) 2017-2023 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, see
17 <https://www.gnu.org/licenses/>. */
18
19#include <stddef.h>
20#include <support/check.h>
21#include <support/xdlfcn.h>
22
23void *
24xdlopen (const char *filename, int flags)
25{
26 void *dso = dlopen (filename, flags);
27
28 if (dso == NULL)
29 FAIL_EXIT1 ("error: dlopen: %s\n", dlerror ());
30
31 return dso;
32}
33
34void *
35xdlsym (void *handle, const char *symbol)
36{
37 /* Clear any pending errors. */
38 dlerror ();
39
40 void *sym = dlsym (handle, symbol);
41
42 if (sym == NULL)
43 {
44 const char *error = dlerror ();
45 if (error != NULL)
46 FAIL_EXIT1 ("error: dlsym: %s\n", error);
47 /* If there was no error, we found a NULL symbol. Return the
48 NULL value in this case. */
49 }
50
51 return sym;
52}
53
54void *
55xdlvsym (void *handle, const char *symbol, const char *version)
56{
57 /* Clear any pending errors. */
58 dlerror ();
59
60 void *sym = dlvsym (handle, symbol, version);
61
62 if (sym == NULL)
63 {
64 const char *error = dlerror ();
65 if (error != NULL)
66 FAIL_EXIT1 ("error: dlvsym: %s\n", error);
67 /* If there was no error, we found a NULL symbol. Return the
68 NULL value in this case. */
69 }
70
71 return sym;
72}
73
74void
75xdlclose (void *handle)
76{
77 if (dlclose (handle) != 0)
78 FAIL_EXIT1 ("error: dlclose: %s\n", dlerror ());
79}
80