1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
/*
* Portable API for dynamic loading
*
* Assuming modules are enabled on modern systems... *Yes*, the
* preprocessor macro checks could be more precise. I don't care.
*
* If you think the abstraction is too leaky use libltdl (libtool),
* don't reinvent the wheel by fixing this one.
*/
#include "dynlib.h"
/*
* Windows systems
*/
#if defined(_WIN32)
#include <windows.h>
dynlib_handle_ptr dynlib_open (const char * path)
{
return (dynlib_handle_ptr) LoadLibrary (path);
}
void * dynlib_sym (dynlib_handle_ptr h, const char * sym)
{
return GetProcAddress ((HMODULE) h, sym);
}
bool dynlib_addr (void *ptr, const char **path, const char **sym)
{
return false; /* not implemented */
}
const char * dynlib_error (void)
{
/* TODO: use GetLastError(), FormatMessage(), ... */
return "Can't load DLL";
}
int dynlib_close (dynlib_handle_ptr h)
{
return FreeLibrary ((HMODULE) h) != 0;
}
/*
* POSIX systems
*/
#elif defined(HAVE_UNISTD_H)
#include <dlfcn.h>
dynlib_handle_ptr dynlib_open (const char * path)
{
return dlopen (path, RTLD_LAZY);
}
void * dynlib_sym (dynlib_handle_ptr h, const char * sym)
{
return dlsym (h, sym);
}
bool dynlib_addr (void *ptr, const char **path, const char **sym)
{
#ifdef HAVE_DLADDR
Dl_info info;
if (dladdr (ptr, &info) != 0 && info.dli_fname != NULL && info.dli_sname != NULL)
{
*path = info.dli_fname;
*sym = info.dli_sname;
return true;
}
#endif
return false;
}
const char * dynlib_error (void)
{
return dlerror ();
}
int dynlib_close (dynlib_handle_ptr h)
{
return dlclose (h) == 0;
}
#else
#error "No dynamic loading for this system"
#endif
|
