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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
/* Portable API for dynamic loading.
Copyright 2015 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
/* Assume 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
|
