summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/dso/dso_win32.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/dso/dso_win32.c')
-rw-r--r--src/lib/libcrypto/dso/dso_win32.c298
1 files changed, 298 insertions, 0 deletions
diff --git a/src/lib/libcrypto/dso/dso_win32.c b/src/lib/libcrypto/dso/dso_win32.c
new file mode 100644
index 0000000000..cc4ac68696
--- /dev/null
+++ b/src/lib/libcrypto/dso/dso_win32.c
@@ -0,0 +1,298 @@
1/* dso_win32.c */
2/* Written by Geoff Thorpe (geoff@geoffthorpe.net) for the OpenSSL
3 * project 2000.
4 */
5/* ====================================================================
6 * Copyright (c) 2000 The OpenSSL Project. All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 *
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 *
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in
17 * the documentation and/or other materials provided with the
18 * distribution.
19 *
20 * 3. All advertising materials mentioning features or use of this
21 * software must display the following acknowledgment:
22 * "This product includes software developed by the OpenSSL Project
23 * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
24 *
25 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26 * endorse or promote products derived from this software without
27 * prior written permission. For written permission, please contact
28 * licensing@OpenSSL.org.
29 *
30 * 5. Products derived from this software may not be called "OpenSSL"
31 * nor may "OpenSSL" appear in their names without prior written
32 * permission of the OpenSSL Project.
33 *
34 * 6. Redistributions of any form whatsoever must retain the following
35 * acknowledgment:
36 * "This product includes software developed by the OpenSSL Project
37 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38 *
39 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
43 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50 * OF THE POSSIBILITY OF SUCH DAMAGE.
51 * ====================================================================
52 *
53 * This product includes cryptographic software written by Eric Young
54 * (eay@cryptsoft.com). This product includes software written by Tim
55 * Hudson (tjh@cryptsoft.com).
56 *
57 */
58
59#include <stdio.h>
60#include <string.h>
61#include "cryptlib.h"
62#include <openssl/dso.h>
63
64#if !defined(DSO_WIN32)
65DSO_METHOD *DSO_METHOD_win32(void)
66 {
67 return NULL;
68 }
69#else
70
71#ifdef _WIN32_WCE
72# if _WIN32_WCE < 300
73static FARPROC GetProcAddressA(HMODULE hModule,LPCSTR lpProcName)
74 {
75 WCHAR lpProcNameW[64];
76 int i;
77
78 for (i=0;lpProcName[i] && i<64;i++)
79 lpProcNameW[i] = (WCHAR)lpProcName[i];
80 if (i==64) return NULL;
81 lpProcNameW[i] = 0;
82
83 return GetProcAddressW(hModule,lpProcNameW);
84 }
85# endif
86# undef GetProcAddress
87# define GetProcAddress GetProcAddressA
88#endif
89
90/* Part of the hack in "win32_load" ... */
91#define DSO_MAX_TRANSLATED_SIZE 256
92
93static int win32_load(DSO *dso);
94static int win32_unload(DSO *dso);
95static void *win32_bind_var(DSO *dso, const char *symname);
96static DSO_FUNC_TYPE win32_bind_func(DSO *dso, const char *symname);
97#if 0
98static int win32_unbind_var(DSO *dso, char *symname, void *symptr);
99static int win32_unbind_func(DSO *dso, char *symname, DSO_FUNC_TYPE symptr);
100static int win32_init(DSO *dso);
101static int win32_finish(DSO *dso);
102static long win32_ctrl(DSO *dso, int cmd, long larg, void *parg);
103#endif
104static char *win32_name_converter(DSO *dso, const char *filename);
105
106static DSO_METHOD dso_meth_win32 = {
107 "OpenSSL 'win32' shared library method",
108 win32_load,
109 win32_unload,
110 win32_bind_var,
111 win32_bind_func,
112/* For now, "unbind" doesn't exist */
113#if 0
114 NULL, /* unbind_var */
115 NULL, /* unbind_func */
116#endif
117 NULL, /* ctrl */
118 win32_name_converter,
119 NULL, /* init */
120 NULL /* finish */
121 };
122
123DSO_METHOD *DSO_METHOD_win32(void)
124 {
125 return(&dso_meth_win32);
126 }
127
128/* For this DSO_METHOD, our meth_data STACK will contain;
129 * (i) a pointer to the handle (HINSTANCE) returned from
130 * LoadLibrary(), and copied.
131 */
132
133static int win32_load(DSO *dso)
134 {
135 HINSTANCE h = NULL, *p = NULL;
136 /* See applicable comments from dso_dl.c */
137 char *filename = DSO_convert_filename(dso, NULL);
138
139 if(filename == NULL)
140 {
141 DSOerr(DSO_F_WIN32_LOAD,DSO_R_NO_FILENAME);
142 goto err;
143 }
144 h = LoadLibraryA(filename);
145 if(h == NULL)
146 {
147 DSOerr(DSO_F_WIN32_LOAD,DSO_R_LOAD_FAILED);
148 ERR_add_error_data(3, "filename(", filename, ")");
149 goto err;
150 }
151 p = (HINSTANCE *)OPENSSL_malloc(sizeof(HINSTANCE));
152 if(p == NULL)
153 {
154 DSOerr(DSO_F_WIN32_LOAD,ERR_R_MALLOC_FAILURE);
155 goto err;
156 }
157 *p = h;
158 if(!sk_push(dso->meth_data, (char *)p))
159 {
160 DSOerr(DSO_F_WIN32_LOAD,DSO_R_STACK_ERROR);
161 goto err;
162 }
163 /* Success */
164 dso->loaded_filename = filename;
165 return(1);
166err:
167 /* Cleanup !*/
168 if(filename != NULL)
169 OPENSSL_free(filename);
170 if(p != NULL)
171 OPENSSL_free(p);
172 if(h != NULL)
173 FreeLibrary(h);
174 return(0);
175 }
176
177static int win32_unload(DSO *dso)
178 {
179 HINSTANCE *p;
180 if(dso == NULL)
181 {
182 DSOerr(DSO_F_WIN32_UNLOAD,ERR_R_PASSED_NULL_PARAMETER);
183 return(0);
184 }
185 if(sk_num(dso->meth_data) < 1)
186 return(1);
187 p = (HINSTANCE *)sk_pop(dso->meth_data);
188 if(p == NULL)
189 {
190 DSOerr(DSO_F_WIN32_UNLOAD,DSO_R_NULL_HANDLE);
191 return(0);
192 }
193 if(!FreeLibrary(*p))
194 {
195 DSOerr(DSO_F_WIN32_UNLOAD,DSO_R_UNLOAD_FAILED);
196 /* We should push the value back onto the stack in
197 * case of a retry. */
198 sk_push(dso->meth_data, (char *)p);
199 return(0);
200 }
201 /* Cleanup */
202 OPENSSL_free(p);
203 return(1);
204 }
205
206/* Using GetProcAddress for variables? TODO: Check this out in
207 * the Win32 API docs, there's probably a variant for variables. */
208static void *win32_bind_var(DSO *dso, const char *symname)
209 {
210 HINSTANCE *ptr;
211 void *sym;
212
213 if((dso == NULL) || (symname == NULL))
214 {
215 DSOerr(DSO_F_WIN32_BIND_VAR,ERR_R_PASSED_NULL_PARAMETER);
216 return(NULL);
217 }
218 if(sk_num(dso->meth_data) < 1)
219 {
220 DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_STACK_ERROR);
221 return(NULL);
222 }
223 ptr = (HINSTANCE *)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
224 if(ptr == NULL)
225 {
226 DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_NULL_HANDLE);
227 return(NULL);
228 }
229 sym = GetProcAddress(*ptr, symname);
230 if(sym == NULL)
231 {
232 DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_SYM_FAILURE);
233 ERR_add_error_data(3, "symname(", symname, ")");
234 return(NULL);
235 }
236 return(sym);
237 }
238
239static DSO_FUNC_TYPE win32_bind_func(DSO *dso, const char *symname)
240 {
241 HINSTANCE *ptr;
242 void *sym;
243
244 if((dso == NULL) || (symname == NULL))
245 {
246 DSOerr(DSO_F_WIN32_BIND_FUNC,ERR_R_PASSED_NULL_PARAMETER);
247 return(NULL);
248 }
249 if(sk_num(dso->meth_data) < 1)
250 {
251 DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_STACK_ERROR);
252 return(NULL);
253 }
254 ptr = (HINSTANCE *)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
255 if(ptr == NULL)
256 {
257 DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_NULL_HANDLE);
258 return(NULL);
259 }
260 sym = GetProcAddress(*ptr, symname);
261 if(sym == NULL)
262 {
263 DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_SYM_FAILURE);
264 ERR_add_error_data(3, "symname(", symname, ")");
265 return(NULL);
266 }
267 return((DSO_FUNC_TYPE)sym);
268 }
269
270static char *win32_name_converter(DSO *dso, const char *filename)
271 {
272 char *translated;
273 int len, transform;
274
275 len = strlen(filename);
276 transform = ((strstr(filename, "/") == NULL) &&
277 (strstr(filename, "\\") == NULL) &&
278 (strstr(filename, ":") == NULL));
279 if(transform)
280 /* We will convert this to "%s.dll" */
281 translated = OPENSSL_malloc(len + 5);
282 else
283 /* We will simply duplicate filename */
284 translated = OPENSSL_malloc(len + 1);
285 if(translated == NULL)
286 {
287 DSOerr(DSO_F_WIN32_NAME_CONVERTER,
288 DSO_R_NAME_TRANSLATION_FAILED);
289 return(NULL);
290 }
291 if(transform)
292 sprintf(translated, "%s.dll", filename);
293 else
294 sprintf(translated, "%s", filename);
295 return(translated);
296 }
297
298#endif /* OPENSSL_SYS_WIN32 */