fix the POD I just broke
[imager.git] / dynaload.c
CommitLineData
92bda632 1#include "imager.h"
02d1d628 2#include "dynaload.h"
b33c08f8 3/* #include "XSUB.h" so we can compile on threaded perls */
92bda632 4#include "imageri.h"
02d1d628 5
97ac0a96
TC
6static symbol_table_t symbol_table=
7 {
8 i_has_format,
9 ICL_set_internal,
10 ICL_info,
11 i_img_new,
12 i_img_empty,
13 i_img_empty_ch,
14 i_img_exorcise,
15 i_img_info,
16 i_img_setmask,
17 i_img_getmask,
18 i_box,
19 i_line,
20 i_arc,
21 i_copyto,
22 i_copyto_trans,
23 i_rubthru
24 };
b6cfd214
TC
25
26
02d1d628
AMH
27/*
28 Dynamic loading works like this:
29 dynaload opens the shared object and
30 loads all the functions into an array of functions
31 it returns a string from the dynamic function that
32 can be supplied to the parser for evaling.
33*/
34
35void
36DSO_call(DSO_handle *handle,int func_index,HV* hv) {
37 mm_log((1,"DSO_call(handle 0x%X, func_index %d, hv 0x%X)\n",handle,func_index,hv));
38 (handle->function_list[func_index].iptr)((void*)hv);
39}
40
41
42#if defined( OS_hpux )
43
44void*
45DSO_open(char* file,char** evalstring) {
46 shl_t tt_handle;
47 void *d_handle,**plugin_symtab,**plugin_utiltab;
48 int rc,*iptr, (*fptr)(int);
49 func_ptr *function_list;
50 DSO_handle *dso_handle;
51 void (*f)(void *s,void *u); /* these will just have to be void for now */
52 int i;
53
54 *evalstring=NULL;
55
56 mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
57
58 if ( (tt_handle = shl_load(file, BIND_DEFERRED,0L)) == NULL) return NULL;
59 if ( (shl_findsym(&tt_handle, I_EVALSTR,TYPE_UNDEFINED,(void*)evalstring))) return NULL;
60
61 /*
62 if ( (shl_findsym(&tt_handle, "symbol_table",TYPE_UNDEFINED,(void*)&plugin_symtab))) return NULL;
63 if ( (shl_findsym(&tt_handle, "util_table",TYPE_UNDEFINED,&plugin_utiltab))) return NULL;
64 (*plugin_symtab)=&symbol_table;
b33c08f8 65 (*plugin_utiltab)=&i_UTIL_table;
02d1d628
AMH
66 */
67
68 if ( (shl_findsym(&tt_handle, I_INSTALL_TABLES ,TYPE_UNDEFINED, &f ))) return NULL;
69
70 mm_log( (1,"Calling install_tables\n") );
b33c08f8 71 f(&symbol_table,&i_UTIL_table);
02d1d628
AMH
72 mm_log( (1,"Call ok.\n") );
73
74 if ( (shl_findsym(&tt_handle, I_FUNCTION_LIST ,TYPE_UNDEFINED,(func_ptr*)&function_list))) return NULL;
4131e88b
TC
75 if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) /* checked 17jul05 tonyc */
76 return NULL;
02d1d628
AMH
77
78 dso_handle->handle=tt_handle; /* needed to close again */
79 dso_handle->function_list=function_list;
4131e88b
TC
80 if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
81 free(dso_handle); return NULL;
82 }
02d1d628
AMH
83 strcpy(dso_handle->filename,file);
84
85 mm_log((1,"DSO_open <- (0x%X)\n",dso_handle));
86 return (void*)dso_handle;
87}
88
89undef_int
90DSO_close(void *ptr) {
91 DSO_handle *handle=(DSO_handle*) ptr;
92 mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
93 return !shl_unload((handle->handle));
94}
95
96#elif defined(WIN32)
97
98void *
99DSO_open(char *file, char **evalstring) {
100 HMODULE d_handle;
101 func_ptr *function_list;
102 DSO_handle *dso_handle;
103
104 void (*f)(void *s,void *u); /* these will just have to be void for now */
105
106 mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
107
108 *evalstring = NULL;
109 if ((d_handle = LoadLibrary(file)) == NULL) {
110 mm_log((1, "DSO_open: LoadLibrary(%s) failed: %lu\n", file, GetLastError()));
111 return NULL;
112 }
113 if ( (*evalstring = (char *)GetProcAddress(d_handle, I_EVALSTR)) == NULL) {
114 mm_log((1,"DSO_open: GetProcAddress didn't fine '%s': %lu\n", I_EVALSTR, GetLastError()));
115 FreeLibrary(d_handle);
116 return NULL;
117 }
118 if ((f = (void (*)(void *, void*))GetProcAddress(d_handle, I_INSTALL_TABLES)) == NULL) {
119 mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_INSTALL_TABLES, GetLastError()));
120 FreeLibrary(d_handle);
121 return NULL;
122 }
123 mm_log((1, "Calling install tables\n"));
b33c08f8 124 f(&symbol_table, &i_UTIL_table);
02d1d628
AMH
125 mm_log((1, "Call ok\n"));
126
127 if ( (function_list = (func_ptr *)GetProcAddress(d_handle, I_FUNCTION_LIST)) == NULL) {
128 mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_FUNCTION_LIST, GetLastError()));
129 FreeLibrary(d_handle);
130 return NULL;
131 }
4131e88b 132 if ( (dso_handle = (DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) { /* checked 17jul05 tonyc */
02d1d628
AMH
133 mm_log( (1, "DSO_Open: out of memory\n") );
134 FreeLibrary(d_handle);
135 return NULL;
136 }
137 dso_handle->handle=d_handle; /* needed to close again */
138 dso_handle->function_list=function_list;
4131e88b
TC
139 if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
140 free(dso_handle);
141 FreeLibrary(d_handle);
142 return NULL;
143 }
02d1d628
AMH
144 strcpy(dso_handle->filename,file);
145
146 mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
147 return (void*)dso_handle;
148
149}
150
151undef_int
152DSO_close(void *ptr) {
153 DSO_handle *handle = (DSO_handle *)ptr;
bc0b5da4 154 BOOL result = FreeLibrary(handle->handle);
02d1d628
AMH
155 free(handle->filename);
156 free(handle);
bc0b5da4
TC
157
158 return result;
02d1d628
AMH
159}
160
161#else
162
163/* OS/2 has no dlclose; Perl doesn't provide one. */
164#ifdef __EMX__ /* OS/2 */
165int
166dlclose(minthandle_t h) {
167 return DosFreeModule(h) ? -1 : 0;
168}
169#endif /* __EMX__ */
170
b6cfd214
TC
171#ifdef OS_darwin
172
173#import <mach-o/dyld.h>
174
175static char *dl_error = "unknown";
176
177static char *dlopen(char *path, int mode /* mode is ignored */)
178{
179 int dyld_result;
180 NSObjectFileImage ofile;
181 NSModule handle = NULL;
182
183
184
185 dyld_result = NSCreateObjectFileImageFromFile(path, &ofile);
186 if (dyld_result != NSObjectFileImageSuccess)
187 {
188 switch (dyld_result) {
189 case NSObjectFileImageFailure:
190 dl_error = "object file setup failure";
191 break;
192 case NSObjectFileImageInappropriateFile:
193 dl_error = "not a Mach-O MH_BUNDLE file type";
194 break;
195 case NSObjectFileImageArch:
196 dl_error = "no object for this architecture";
197 break;
198 case NSObjectFileImageFormat:
199 dl_error = "bad object file format";
200 break;
201 case NSObjectFileImageAccess:
202 dl_error = "can't read object file";
203 break;
204 default:
205 dl_error = "unknown error from NSCreateObjectFileImageFromFile()";
206 break;
207 }
208 }
209 else
210 {
211 // NSLinkModule will cause the run to abort on any link error's
212 // not very friendly but the error recovery functionality is limited.
213 handle = NSLinkModule(ofile, path, TRUE);
214 }
215
216 return handle;
217}
218
560a3a0a
TC
219static void *
220dlsym(void *handle, char *symbol)
b6cfd214
TC
221{
222 void *addr;
223
224 if (NSIsSymbolNameDefined(symbol))
225 {
226 addr = NSAddressOfSymbol(NSLookupAndBindSymbol(symbol));
227 }
228 else
229 {
230 dl_error = "cannot find symbol";
231 addr = NULL;
232 }
233
234 return addr;
235}
236
560a3a0a 237static int dlclose(void *handle) /* stub only */
b6cfd214
TC
238{
239 return 0;
240}
241
4ede8fe2 242static char *dlerror(void) /* stub only */
b6cfd214 243{
560a3a0a 244 printf("Error occurred\n");
b6cfd214
TC
245 return dl_error;
246}
247
248#define RTLD_LAZY 0
249
250#endif
02d1d628
AMH
251
252void*
253DSO_open(char* file,char** evalstring) {
254 void *d_handle;
255 func_ptr *function_list;
256 DSO_handle *dso_handle;
257
258 void (*f)(void *s,void *u); /* these will just have to be void for now */
259
260 *evalstring=NULL;
261
262 mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
263
264 if ( (d_handle = dlopen(file, RTLD_LAZY)) == NULL) {
265 mm_log( (1,"DSO_open: dlopen failed: %s.\n",dlerror()) );
266 return NULL;
267 }
268
269 if ( (*evalstring = (char *)dlsym(d_handle, I_EVALSTR)) == NULL) {
270 mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_EVALSTR,dlerror()) );
271 return NULL;
272 }
273
274 /*
275
276 I'll just leave this thing in here for now if I need it real soon
277
278 mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_SYMBOL_TABLE ));
279 if ( (plugin_symtab = dlsym(d_handle, I_SYMBOL_TABLE)) == NULL) {
280 mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_SYMBOL_TABLE,dlerror()) );
281 return NULL;
282 }
283
284 mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_UTIL_TABLE ));
285 if ( (plugin_utiltab = dlsym(d_handle, I_UTIL_TABLE)) == NULL) {
286 mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_UTIL_TABLE,dlerror()) );
287 return NULL;
288 }
289
290 */
291
292 f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES);
293 mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_INSTALL_TABLES ));
294 if ( (f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES)) == NULL) {
295 mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_INSTALL_TABLES,dlerror()) );
296 return NULL;
297 }
298
299 mm_log( (1,"Calling install_tables\n") );
b33c08f8 300 f(&symbol_table,&i_UTIL_table);
02d1d628
AMH
301 mm_log( (1,"Call ok.\n") );
302
303 /* (*plugin_symtab)=&symbol_table;
b33c08f8 304 (*plugin_utiltab)=&i_UTIL_table; */
02d1d628
AMH
305
306 mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_FUNCTION_LIST ));
307 if ( (function_list=(func_ptr *)dlsym(d_handle, I_FUNCTION_LIST)) == NULL) {
308 mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_FUNCTION_LIST,dlerror()) );
309 return NULL;
310 }
311
4131e88b
TC
312 if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) /* checked 17jul05 tonyc */
313 return NULL;
02d1d628
AMH
314
315 dso_handle->handle=d_handle; /* needed to close again */
316 dso_handle->function_list=function_list;
4131e88b
TC
317 if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
318 free(dso_handle);
319 return NULL;
320 }
02d1d628
AMH
321 strcpy(dso_handle->filename,file);
322
323 mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
324 return (void*)dso_handle;
325}
326
327undef_int
328DSO_close(void *ptr) {
329 DSO_handle *handle;
330 mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
331 handle=(DSO_handle*) ptr;
332 return !dlclose(handle->handle);
333}
334
335#endif
336