The first two files enables building of plugins under macosx.
[blender-staging.git] / source / blender / blenlib / intern / dynlib.c
1 /**
2  * $Id$
3  *
4  * ***** BEGIN GPL/BL DUAL LICENSE BLOCK *****
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version 2
9  * of the License, or (at your option) any later version. The Blender
10  * Foundation also sells licenses for use in proprietary software under
11  * the Blender License.  See http://www.blender.org/BL/ for information
12  * about this.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software Foundation,
21  * Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
22  *
23  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
24  * All rights reserved.
25  *
26  * The Original Code is: all of this file.
27  *
28  * Contributor(s): none yet.
29  *
30  * ***** END GPL/BL DUAL LICENSE BLOCK *****
31  */
32 #include <stdlib.h>
33 #include "../PIL_dynlib.h"
34
35 #ifdef HAVE_CONFIG_H
36 #include <config.h>
37 #endif
38
39 #if !defined(CHAR_MAX)
40 #define CHAR_MAX 255
41 #endif
42
43 /*
44  * XXX, should use mallocN so we can see
45  * handle's not being released. fixme zr
46  */
47  
48 #ifdef WIN32
49
50 #include <windows.h>
51
52 struct PILdynlib {
53         void *handle;
54 };
55
56 PILdynlib *PIL_dynlib_open(char *name) {
57         void *handle= LoadLibrary(name);
58
59         if (handle) {   
60                 PILdynlib *lib= malloc(sizeof(*lib));
61                 lib->handle= handle;
62                 
63                 return lib;
64         } else {
65                 return NULL;
66         }
67 }
68
69 void *PIL_dynlib_find_symbol(PILdynlib* lib, char *symname) {
70         return GetProcAddress(lib->handle, symname);
71 }
72
73 char *PIL_dynlib_get_error_as_string(PILdynlib* lib) {
74         int err;
75
76         /* if lib is NULL reset the last error code */
77         if (!lib) {
78                 SetLastError(ERROR_SUCCESS);
79                 return NULL;
80         }
81
82         err= GetLastError();
83         if (err) {
84                 static char buf[1024];
85
86                 if (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS, 
87                                         NULL, 
88                                         err, 
89                                         MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), 
90                                         buf, 
91                                         sizeof(buf), 
92                                         NULL))
93                         return buf;
94         }
95         
96         return NULL;
97 }
98
99 void PIL_dynlib_close(PILdynlib *lib) {
100         FreeLibrary(lib->handle);
101         
102         free(lib);
103 }
104
105 #else
106 #ifdef __APPLE__
107 #include <mach-o/dyld.h>
108
109 struct PILdynlib {
110         NSModule *handle;
111 };
112
113 PILdynlib *PIL_dynlib_open(char *name) {
114    NSObjectFileImage img;
115
116    PILdynlib *lib= malloc(sizeof(*lib));
117    if (NSCreateObjectFileImageFromFile( name, &img) == 
118         NSObjectFileImageSuccess) {
119       lib->handle = NSLinkModule( img, name, NSLINKMODULE_OPTION_BINDNOW);
120       NSDestroyObjectFileImage(img);
121       return lib;
122    }
123    free(lib);
124    return NULL;
125 }
126
127 void *PIL_dynlib_find_symbol(PILdynlib* lib, char *symname) {
128    char *name;
129    NSSymbol cr;
130    int size;
131
132    size = strlen(symname) + 2 * sizeof(char);
133    if (size < CHAR_MAX) {
134       name = MEM_mallocN(size, "temp string");
135       sprintf(&name, "_%s",symname);
136       cr = NSLookupSymbolInModule(lib->handle, name);
137       free(name);
138       return NSAddressOfSymbol(cr);
139    }
140    return NULL;
141 }
142
143 char *PIL_dynlib_get_error_as_string(PILdynlib* lib) {
144         return "Plugins are currently unsupported on OSX";
145 }
146         
147 void PIL_dynlib_close(PILdynlib *lib) {
148         NSUnLinkModule(lib->handle,NSUNLINKMODULE_OPTION_NONE);
149         free(lib);
150 }
151
152 #else   /* Unix */
153
154 #include <dlfcn.h>
155
156 struct PILdynlib {
157         void *handle;
158 };
159
160 PILdynlib *PIL_dynlib_open(char *name) {
161         void *handle= dlopen(name, RTLD_LAZY);
162
163         if (handle) {   
164                 PILdynlib *lib= malloc(sizeof(*lib));
165                 lib->handle= handle;
166                 
167                 return lib;
168         } else {
169                 return NULL;
170         }
171 }
172
173 void *PIL_dynlib_find_symbol(PILdynlib* lib, char *symname) {
174         return dlsym(lib->handle, symname);
175 }
176
177 char *PIL_dynlib_get_error_as_string(PILdynlib* lib) {
178         return dlerror();
179 }
180         
181 void PIL_dynlib_close(PILdynlib *lib) {
182         dlclose(lib->handle);
183         
184         free(lib);
185 }
186
187 #endif
188 #endif