|
428
|
1 /* sysdll.c --- system dependent support for dynamic linked libraries
|
|
|
2 Copyright (C) 1998 Free Software Foundation, Inc.
|
|
|
3 Author: William Perry <wmperry@aventail.com>
|
|
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
19 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
20 02111-1307, USA. */
|
|
|
21
|
|
|
22 #ifdef HAVE_CONFIG_H
|
|
|
23 #include <config.h>
|
|
|
24 #endif
|
|
|
25
|
|
430
|
26 #include <stdlib.h>
|
|
1272
|
27 #include "lisp.h"
|
|
428
|
28 #include "sysdll.h"
|
|
|
29
|
|
1383
|
30 #ifdef DLSYM_NEEDS_UNDERSCORE
|
|
|
31 #define MAYBE_PREPEND_UNDERSCORE(n) do { \
|
|
|
32 char *buf = alloca_array (char, strlen (n) + 2); \
|
|
|
33 *buf = '_'; \
|
|
|
34 strcpy (buf + 1, n); \
|
|
|
35 n = buf; \
|
|
|
36 } while (0)
|
|
|
37 #else
|
|
|
38 #define MAYBE_PREPEND_UNDERSCORE(n)
|
|
|
39 #endif
|
|
|
40
|
|
428
|
41 /* This whole file is conditional upon HAVE_SHLIB */
|
|
|
42 #ifdef HAVE_SHLIB
|
|
|
43
|
|
|
44 /* Thankfully, most systems follow the ELFish dlopen() method.
|
|
|
45 */
|
|
452
|
46 #if defined(HAVE_DLOPEN)
|
|
428
|
47 #include <dlfcn.h>
|
|
|
48
|
|
|
49 #ifndef RTLD_LAZY
|
|
1383
|
50 # ifdef DL_LAZY
|
|
|
51 # define RTLD_LAZY DL_LAZY
|
|
|
52 # else
|
|
|
53 # define RTLD_LAZY 1
|
|
|
54 # endif
|
|
428
|
55 #endif /* RTLD_LAZY isn't defined under FreeBSD - ick */
|
|
|
56
|
|
863
|
57 #ifndef RTLD_NOW
|
|
1383
|
58 # ifdef DL_NOW
|
|
|
59 # define RTLD_NOW DL_NOW
|
|
|
60 # else
|
|
|
61 # define RTLD_NOW 2
|
|
|
62 # endif
|
|
863
|
63 #endif
|
|
|
64
|
|
428
|
65 int
|
|
442
|
66 dll_init (const char *arg)
|
|
428
|
67 {
|
|
|
68 return 0;
|
|
|
69 }
|
|
|
70
|
|
|
71 dll_handle
|
|
442
|
72 dll_open (const char *fname)
|
|
428
|
73 {
|
|
880
|
74 return (dll_handle) dlopen (fname, RTLD_NOW);
|
|
428
|
75 }
|
|
|
76
|
|
|
77 int
|
|
|
78 dll_close (dll_handle h)
|
|
|
79 {
|
|
442
|
80 return dlclose ((void *) h);
|
|
428
|
81 }
|
|
|
82
|
|
|
83 dll_func
|
|
442
|
84 dll_function (dll_handle h, const char *n)
|
|
428
|
85 {
|
|
1383
|
86 MAYBE_PREPEND_UNDERSCORE (n);
|
|
442
|
87 return (dll_func) dlsym ((void *) h, n);
|
|
428
|
88 }
|
|
|
89
|
|
|
90 dll_var
|
|
442
|
91 dll_variable (dll_handle h, const char *n)
|
|
428
|
92 {
|
|
1383
|
93 MAYBE_PREPEND_UNDERSCORE (n);
|
|
428
|
94 return (dll_var)dlsym ((void *)h, n);
|
|
|
95 }
|
|
|
96
|
|
442
|
97 const char *
|
|
428
|
98 dll_error (dll_handle h)
|
|
|
99 {
|
|
|
100 #if defined(HAVE_DLERROR) || defined(dlerror)
|
|
442
|
101 return (const char *) dlerror ();
|
|
428
|
102 #elif defined(HAVE__DLERROR)
|
|
442
|
103 return (const char *) _dlerror();
|
|
428
|
104 #else
|
|
|
105 return "Shared library error";
|
|
|
106 #endif
|
|
|
107 }
|
|
|
108
|
|
|
109 #elif defined(HAVE_SHL_LOAD)
|
|
|
110 /* This is the HP/UX version */
|
|
|
111 #include <dl.h>
|
|
|
112 int
|
|
442
|
113 dll_init (const char *arg)
|
|
428
|
114 {
|
|
|
115 return 0;
|
|
|
116 }
|
|
|
117
|
|
|
118 dll_handle
|
|
442
|
119 dll_open (const char *fname)
|
|
428
|
120 {
|
|
442
|
121 /* shl_load will hang hard if passed a NULL fname. */
|
|
|
122 if (fname == NULL) return NULL;
|
|
428
|
123
|
|
1383
|
124 return (dll_handle) shl_load (fname, BIND_DEFERRED, 0L);
|
|
428
|
125 }
|
|
|
126
|
|
|
127 int
|
|
|
128 dll_close (dll_handle h)
|
|
|
129 {
|
|
442
|
130 return shl_unload ((shl_t) h);
|
|
428
|
131 }
|
|
|
132
|
|
|
133 dll_func
|
|
442
|
134 dll_function (dll_handle h, const char *n)
|
|
428
|
135 {
|
|
|
136 long handle = 0L;
|
|
|
137
|
|
442
|
138 if (shl_findsym ((shl_t *) &h, n, TYPE_PROCEDURE, &handle))
|
|
428
|
139 return NULL;
|
|
|
140
|
|
442
|
141 return (dll_func) handle;
|
|
428
|
142 }
|
|
|
143
|
|
|
144 dll_var
|
|
442
|
145 dll_variable (dll_handle h, const char *n)
|
|
428
|
146 {
|
|
|
147 long handle = 0L;
|
|
|
148
|
|
442
|
149 if (shl_findsym ((shl_t *) &h, n, TYPE_DATA, &handle))
|
|
428
|
150 return NULL;
|
|
|
151
|
|
442
|
152 return (dll_var) handle;
|
|
428
|
153 }
|
|
|
154
|
|
442
|
155 const char *
|
|
428
|
156 dll_error (dll_handle h)
|
|
|
157 {
|
|
|
158 /* #### WTF?! Shouldn't this at least attempt to get strerror or
|
|
|
159 something? --hniksic */
|
|
|
160 return "Generic shared library error";
|
|
|
161 }
|
|
|
162
|
|
|
163 #elif defined(HAVE_INIT_DLD)
|
|
|
164 #include <dld.h>
|
|
|
165 int
|
|
442
|
166 dll_init (const char *arg)
|
|
428
|
167 {
|
|
|
168 char *real_exe = dld_find_executable (arg);
|
|
|
169 int rc;
|
|
|
170
|
|
|
171 rc = dld_init (real_exe);
|
|
|
172 if (rc)
|
|
|
173 {
|
|
|
174 dld_perror (exe);
|
|
|
175 return -1;
|
|
|
176 }
|
|
|
177 return 0;
|
|
|
178 }
|
|
|
179
|
|
|
180 dll_handle
|
|
442
|
181 dll_open (const char *fname)
|
|
428
|
182 {
|
|
|
183 rc = dld_link (fname);
|
|
|
184 if (rc)
|
|
|
185 return NULL;
|
|
|
186
|
|
442
|
187 return (dll_handle) 1;
|
|
428
|
188 }
|
|
|
189
|
|
|
190 int
|
|
|
191 dll_close (dll_handle h)
|
|
|
192 {
|
|
|
193 /* *sigh* DLD is pretty lame and doesn't return a handle that you can use
|
|
|
194 ** later on to free the file - you have to remember the filename and
|
|
|
195 ** use that as the unlinker. We should eventually keep a linked list
|
|
|
196 ** of loaded modules and then use the node pointer as the unique id
|
|
|
197 ** for the shared library. Wheeee. But not now.
|
|
|
198 */
|
|
|
199 return 1;
|
|
|
200 }
|
|
|
201
|
|
|
202 DLL_FUNC
|
|
442
|
203 dll_function (dll_handle h, const char *n)
|
|
428
|
204 {
|
|
442
|
205 return dld_get_func (n);
|
|
428
|
206 }
|
|
|
207
|
|
|
208 DLL_FUNC
|
|
442
|
209 dll_variable (dll_handle h, const char *n)
|
|
428
|
210 {
|
|
442
|
211 return dld_get_symbol (n);
|
|
428
|
212 }
|
|
442
|
213 #elif defined (WIN32_NATIVE)
|
|
|
214
|
|
|
215 #define WIN32_LEAN_AND_MEAN
|
|
|
216 #include <windows.h>
|
|
|
217 #undef WIN32_LEAN_AND_MEAN
|
|
|
218
|
|
428
|
219 int
|
|
442
|
220 dll_init (const char *arg)
|
|
428
|
221 {
|
|
|
222 return 0;
|
|
|
223 }
|
|
|
224
|
|
|
225 dll_handle
|
|
442
|
226 dll_open (const char *fname)
|
|
428
|
227 {
|
|
442
|
228 return (dll_handle) LoadLibrary (fname);
|
|
428
|
229 }
|
|
|
230
|
|
|
231 int
|
|
|
232 dll_close (dll_handle h)
|
|
|
233 {
|
|
|
234 return FreeLibrary (h);
|
|
|
235 }
|
|
|
236
|
|
|
237 dll_func
|
|
442
|
238 dll_function (dll_handle h, const char *n)
|
|
428
|
239 {
|
|
442
|
240 return (dll_func) GetProcAddress (h, n);
|
|
428
|
241 }
|
|
|
242
|
|
|
243 dll_func
|
|
442
|
244 dll_variable (dll_handle h, const char *n)
|
|
428
|
245 {
|
|
442
|
246 return (dll_func) GetProcAddress (h, n);
|
|
428
|
247 }
|
|
|
248
|
|
442
|
249 const char *
|
|
428
|
250 dll_error (dll_handle h)
|
|
|
251 {
|
|
|
252 return "Windows DLL Error";
|
|
|
253 }
|
|
1383
|
254 #elif defined(HAVE_DYLD)
|
|
|
255 /* This section supports MacOSX dynamic libraries. Dynamically
|
|
|
256 loadable libraries must be compiled as bundles, not dynamiclibs.
|
|
|
257 */
|
|
|
258
|
|
|
259 #include <mach-o/dyld.h>
|
|
|
260
|
|
|
261 int
|
|
|
262 dll_init (const char *arg)
|
|
|
263 {
|
|
|
264 return 0;
|
|
|
265 }
|
|
|
266
|
|
|
267 dll_handle
|
|
|
268 dll_open (const char *fname)
|
|
|
269 {
|
|
|
270 NSObjectFileImage file;
|
|
1418
|
271 NSModule out;
|
|
1383
|
272 NSObjectFileImageReturnCode ret =
|
|
|
273 NSCreateObjectFileImageFromFile(fname, &file);
|
|
|
274 if (ret != NSObjectFileImageSuccess) {
|
|
|
275 return NULL;
|
|
|
276 }
|
|
1418
|
277 out = NSLinkModule(file, fname,
|
|
|
278 NSLINKMODULE_OPTION_BINDNOW |
|
|
|
279 NSLINKMODULE_OPTION_PRIVATE |
|
|
|
280 NSLINKMODULE_OPTION_RETURN_ON_ERROR);
|
|
1383
|
281 return (dll_handle)out;
|
|
|
282 }
|
|
|
283
|
|
|
284 int
|
|
|
285 dll_close (dll_handle h)
|
|
|
286 {
|
|
|
287 return NSUnLinkModule((NSModule)h, NSUNLINKMODULE_OPTION_NONE);
|
|
|
288 }
|
|
|
289
|
|
|
290 dll_func
|
|
|
291 dll_function (dll_handle h, const char *n)
|
|
|
292 {
|
|
|
293 NSSymbol sym;
|
|
|
294 MAYBE_PREPEND_UNDERSCORE (n);
|
|
|
295 sym = NSLookupSymbolInModule((NSModule)h, n);
|
|
|
296 if (sym == 0) return 0;
|
|
|
297 return (dll_func)NSAddressOfSymbol(sym);
|
|
|
298 }
|
|
|
299
|
|
|
300 dll_var
|
|
|
301 dll_variable (dll_handle h, const char *n)
|
|
|
302 {
|
|
|
303 NSSymbol sym;
|
|
|
304 MAYBE_PREPEND_UNDERSCORE (n);
|
|
|
305 sym = NSLookupSymbolInModule((NSModule)h, n);
|
|
|
306 if (sym == 0) return 0;
|
|
|
307 return (dll_var)NSAddressOfSymbol(sym);
|
|
|
308 }
|
|
|
309
|
|
|
310 const char *
|
|
|
311 dll_error (dll_handle h)
|
|
|
312 {
|
|
|
313 NSLinkEditErrors c;
|
|
|
314 int errorNumber;
|
|
|
315 const char *fileNameWithError, *errorString;
|
|
|
316 NSLinkEditError(&c, &errorNumber, &fileNameWithError, &errorString);
|
|
|
317 return errorString;
|
|
|
318 }
|
|
428
|
319 #else
|
|
|
320 /* Catchall if we don't know about this systems method of dynamic loading */
|
|
|
321 int
|
|
442
|
322 dll_init (const char *arg)
|
|
428
|
323 {
|
|
|
324 return -1;
|
|
|
325 }
|
|
|
326
|
|
|
327 dll_handle
|
|
442
|
328 dll_open (const char *fname)
|
|
428
|
329 {
|
|
|
330 return NULL;
|
|
|
331 }
|
|
|
332
|
|
|
333 int
|
|
|
334 dll_close (dll_handle h)
|
|
|
335 {
|
|
|
336 return 0;
|
|
|
337 }
|
|
|
338
|
|
|
339 dll_func
|
|
442
|
340 dll_function (dll_handle h, const char *n)
|
|
428
|
341 {
|
|
|
342 return NULL;
|
|
|
343 }
|
|
|
344
|
|
|
345 dll_func
|
|
442
|
346 dll_variable (dll_handle h, const char *n)
|
|
428
|
347 {
|
|
|
348 return NULL;
|
|
|
349 }
|
|
|
350
|
|
442
|
351 const char *
|
|
428
|
352 dll_error (dll_handle h)
|
|
|
353 {
|
|
|
354 return "Shared libraries not implemented on this system";
|
|
|
355 }
|
|
|
356 #endif /* System conditionals */
|
|
|
357
|
|
|
358 #endif /* HAVE_SHLIB */
|
