]>
Commit | Line | Data |
---|---|---|
cbecb3ac | 1 | /* dso_win32.c -*- mode:C; c-file-style: "eay" -*- */ |
8f4fac7f GT |
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> | |
22a41547 | 60 | #include <string.h> |
8f4fac7f GT |
61 | #include "cryptlib.h" |
62 | #include <openssl/dso.h> | |
63 | ||
16420007 | 64 | #if !defined(DSO_WIN32) |
8f4fac7f GT |
65 | DSO_METHOD *DSO_METHOD_win32(void) |
66 | { | |
67 | return NULL; | |
68 | } | |
69 | #else | |
70 | ||
83e68987 AP |
71 | #ifdef _WIN32_WCE |
72 | # if _WIN32_WCE < 300 | |
73 | static 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 | |
b37fb16d AP |
88 | |
89 | static HINSTANCE LoadLibraryA(LPCSTR *lpLibFileName) | |
90 | { | |
91 | WCHAR *fnamw; | |
92 | size_t len_0=strlen(lpLibFileName)+1,i; | |
93 | ||
94 | #ifdef _MSC_VER | |
95 | fname = (WCHAR *)_alloca (len_0*sizeof(WCHAR)); | |
96 | #else | |
97 | fnamw = (WCHAR *)alloca (len_0*sizeof(WCHAR)); | |
98 | #endif | |
99 | if (fnamw == NULL) | |
100 | { | |
101 | SetLastError(ERROR_NOT_ENOUGH_MEMORY); | |
102 | return NULL; | |
103 | } | |
104 | ||
105 | #if defined(_WIN32_WCE) && _WIN32_WCE>=101 | |
106 | if (!MultiByteToWideChar(CP_ACP,0,lpLibFileName,len_0,fnamw,len_0)) | |
107 | #endif | |
108 | for (i=0;i<len_0;i++) fnamw[i]=(WCHAR)lpLibFileName[i]; | |
109 | ||
110 | return LoadLibraryW(fnamw); | |
111 | } | |
83e68987 AP |
112 | #endif |
113 | ||
b9e63915 GT |
114 | /* Part of the hack in "win32_load" ... */ |
115 | #define DSO_MAX_TRANSLATED_SIZE 256 | |
116 | ||
51c8dc37 | 117 | static int win32_load(DSO *dso); |
8f4fac7f | 118 | static int win32_unload(DSO *dso); |
e9a68cfb GT |
119 | static void *win32_bind_var(DSO *dso, const char *symname); |
120 | static DSO_FUNC_TYPE win32_bind_func(DSO *dso, const char *symname); | |
8f4fac7f | 121 | #if 0 |
e9a68cfb GT |
122 | static int win32_unbind_var(DSO *dso, char *symname, void *symptr); |
123 | static int win32_unbind_func(DSO *dso, char *symname, DSO_FUNC_TYPE symptr); | |
8f4fac7f GT |
124 | static int win32_init(DSO *dso); |
125 | static int win32_finish(DSO *dso); | |
b9e63915 | 126 | static long win32_ctrl(DSO *dso, int cmd, long larg, void *parg); |
75a382bd | 127 | #endif |
51c8dc37 | 128 | static char *win32_name_converter(DSO *dso, const char *filename); |
cbecb3ac RL |
129 | static char *win32_merger(DSO *dso, const char *filespec1, |
130 | const char *filespec2); | |
7ed87653 | 131 | static int win32_pathbyaddr(void *addr,char *path,int sz); |
8f4fac7f | 132 | |
74e3931f DSH |
133 | static const char *openssl_strnchr(const char *string, int c, size_t len); |
134 | ||
8f4fac7f GT |
135 | static DSO_METHOD dso_meth_win32 = { |
136 | "OpenSSL 'win32' shared library method", | |
137 | win32_load, | |
138 | win32_unload, | |
e9a68cfb GT |
139 | win32_bind_var, |
140 | win32_bind_func, | |
8f4fac7f GT |
141 | /* For now, "unbind" doesn't exist */ |
142 | #if 0 | |
e9a68cfb GT |
143 | NULL, /* unbind_var */ |
144 | NULL, /* unbind_func */ | |
8f4fac7f | 145 | #endif |
75a382bd | 146 | NULL, /* ctrl */ |
51c8dc37 | 147 | win32_name_converter, |
cbecb3ac | 148 | win32_merger, |
8f4fac7f | 149 | NULL, /* init */ |
7ed87653 AP |
150 | NULL, /* finish */ |
151 | win32_pathbyaddr | |
8f4fac7f GT |
152 | }; |
153 | ||
154 | DSO_METHOD *DSO_METHOD_win32(void) | |
155 | { | |
156 | return(&dso_meth_win32); | |
157 | } | |
158 | ||
159 | /* For this DSO_METHOD, our meth_data STACK will contain; | |
160 | * (i) a pointer to the handle (HINSTANCE) returned from | |
b9e63915 | 161 | * LoadLibrary(), and copied. |
8f4fac7f GT |
162 | */ |
163 | ||
51c8dc37 | 164 | static int win32_load(DSO *dso) |
8f4fac7f | 165 | { |
51c8dc37 GT |
166 | HINSTANCE h = NULL, *p = NULL; |
167 | /* See applicable comments from dso_dl.c */ | |
168 | char *filename = DSO_convert_filename(dso, NULL); | |
169 | ||
170 | if(filename == NULL) | |
b9e63915 | 171 | { |
51c8dc37 GT |
172 | DSOerr(DSO_F_WIN32_LOAD,DSO_R_NO_FILENAME); |
173 | goto err; | |
b9e63915 | 174 | } |
7ed87653 | 175 | h = LoadLibraryA(filename); |
8f4fac7f GT |
176 | if(h == NULL) |
177 | { | |
178 | DSOerr(DSO_F_WIN32_LOAD,DSO_R_LOAD_FAILED); | |
b7b6c047 | 179 | ERR_add_error_data(3, "filename(", filename, ")"); |
51c8dc37 | 180 | goto err; |
8f4fac7f | 181 | } |
26a3a48d | 182 | p = (HINSTANCE *)OPENSSL_malloc(sizeof(HINSTANCE)); |
8f4fac7f GT |
183 | if(p == NULL) |
184 | { | |
185 | DSOerr(DSO_F_WIN32_LOAD,ERR_R_MALLOC_FAILURE); | |
51c8dc37 | 186 | goto err; |
8f4fac7f GT |
187 | } |
188 | *p = h; | |
189 | if(!sk_push(dso->meth_data, (char *)p)) | |
190 | { | |
191 | DSOerr(DSO_F_WIN32_LOAD,DSO_R_STACK_ERROR); | |
51c8dc37 | 192 | goto err; |
8f4fac7f | 193 | } |
51c8dc37 GT |
194 | /* Success */ |
195 | dso->loaded_filename = filename; | |
8f4fac7f | 196 | return(1); |
51c8dc37 GT |
197 | err: |
198 | /* Cleanup !*/ | |
199 | if(filename != NULL) | |
200 | OPENSSL_free(filename); | |
201 | if(p != NULL) | |
202 | OPENSSL_free(p); | |
203 | if(h != NULL) | |
204 | FreeLibrary(h); | |
205 | return(0); | |
8f4fac7f GT |
206 | } |
207 | ||
208 | static int win32_unload(DSO *dso) | |
209 | { | |
210 | HINSTANCE *p; | |
211 | if(dso == NULL) | |
212 | { | |
213 | DSOerr(DSO_F_WIN32_UNLOAD,ERR_R_PASSED_NULL_PARAMETER); | |
214 | return(0); | |
215 | } | |
216 | if(sk_num(dso->meth_data) < 1) | |
ebbaebf7 | 217 | return(1); |
8f4fac7f GT |
218 | p = (HINSTANCE *)sk_pop(dso->meth_data); |
219 | if(p == NULL) | |
220 | { | |
221 | DSOerr(DSO_F_WIN32_UNLOAD,DSO_R_NULL_HANDLE); | |
222 | return(0); | |
223 | } | |
8ba92cfe | 224 | if(!FreeLibrary(*p)) |
8f4fac7f GT |
225 | { |
226 | DSOerr(DSO_F_WIN32_UNLOAD,DSO_R_UNLOAD_FAILED); | |
227 | /* We should push the value back onto the stack in | |
228 | * case of a retry. */ | |
229 | sk_push(dso->meth_data, (char *)p); | |
230 | return(0); | |
231 | } | |
232 | /* Cleanup */ | |
26a3a48d | 233 | OPENSSL_free(p); |
8f4fac7f GT |
234 | return(1); |
235 | } | |
236 | ||
e9a68cfb GT |
237 | /* Using GetProcAddress for variables? TODO: Check this out in |
238 | * the Win32 API docs, there's probably a variant for variables. */ | |
239 | static void *win32_bind_var(DSO *dso, const char *symname) | |
8f4fac7f GT |
240 | { |
241 | HINSTANCE *ptr; | |
242 | void *sym; | |
243 | ||
e9a68cfb | 244 | if((dso == NULL) || (symname == NULL)) |
8f4fac7f | 245 | { |
e9a68cfb GT |
246 | DSOerr(DSO_F_WIN32_BIND_VAR,ERR_R_PASSED_NULL_PARAMETER); |
247 | return(NULL); | |
8f4fac7f GT |
248 | } |
249 | if(sk_num(dso->meth_data) < 1) | |
250 | { | |
e9a68cfb GT |
251 | DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_STACK_ERROR); |
252 | return(NULL); | |
8f4fac7f GT |
253 | } |
254 | ptr = (HINSTANCE *)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1); | |
255 | if(ptr == NULL) | |
256 | { | |
e9a68cfb GT |
257 | DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_NULL_HANDLE); |
258 | return(NULL); | |
8f4fac7f GT |
259 | } |
260 | sym = GetProcAddress(*ptr, symname); | |
261 | if(sym == NULL) | |
262 | { | |
e9a68cfb | 263 | DSOerr(DSO_F_WIN32_BIND_VAR,DSO_R_SYM_FAILURE); |
b7b6c047 | 264 | ERR_add_error_data(3, "symname(", symname, ")"); |
e9a68cfb | 265 | return(NULL); |
8f4fac7f | 266 | } |
e9a68cfb GT |
267 | return(sym); |
268 | } | |
269 | ||
270 | static DSO_FUNC_TYPE win32_bind_func(DSO *dso, const char *symname) | |
271 | { | |
272 | HINSTANCE *ptr; | |
273 | void *sym; | |
274 | ||
275 | if((dso == NULL) || (symname == NULL)) | |
276 | { | |
277 | DSOerr(DSO_F_WIN32_BIND_FUNC,ERR_R_PASSED_NULL_PARAMETER); | |
278 | return(NULL); | |
279 | } | |
280 | if(sk_num(dso->meth_data) < 1) | |
281 | { | |
282 | DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_STACK_ERROR); | |
283 | return(NULL); | |
284 | } | |
285 | ptr = (HINSTANCE *)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1); | |
286 | if(ptr == NULL) | |
287 | { | |
288 | DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_NULL_HANDLE); | |
289 | return(NULL); | |
290 | } | |
291 | sym = GetProcAddress(*ptr, symname); | |
292 | if(sym == NULL) | |
293 | { | |
294 | DSOerr(DSO_F_WIN32_BIND_FUNC,DSO_R_SYM_FAILURE); | |
b7b6c047 | 295 | ERR_add_error_data(3, "symname(", symname, ")"); |
e9a68cfb GT |
296 | return(NULL); |
297 | } | |
298 | return((DSO_FUNC_TYPE)sym); | |
8f4fac7f GT |
299 | } |
300 | ||
cbecb3ac RL |
301 | struct file_st |
302 | { | |
303 | const char *node; int nodelen; | |
304 | const char *device; int devicelen; | |
305 | const char *predir; int predirlen; | |
306 | const char *dir; int dirlen; | |
307 | const char *file; int filelen; | |
74e3931f | 308 | }; |
cbecb3ac RL |
309 | |
310 | static struct file_st *win32_splitter(DSO *dso, const char *filename, | |
311 | int assume_last_is_dir) | |
312 | { | |
313 | struct file_st *result = NULL; | |
314 | enum { IN_NODE, IN_DEVICE, IN_FILE } position; | |
315 | const char *start = filename; | |
316 | ||
317 | if (!filename) | |
318 | { | |
8afca8d9 | 319 | DSOerr(DSO_F_WIN32_SPLITTER,DSO_R_NO_FILENAME); |
74e3931f DSH |
320 | /*goto err;*/ |
321 | return(NULL); | |
cbecb3ac RL |
322 | } |
323 | ||
324 | result = OPENSSL_malloc(sizeof(struct file_st)); | |
325 | if(result == NULL) | |
326 | { | |
8afca8d9 | 327 | DSOerr(DSO_F_WIN32_SPLITTER, |
cbecb3ac RL |
328 | ERR_R_MALLOC_FAILURE); |
329 | return(NULL); | |
330 | } | |
331 | ||
332 | memset(result, 0, sizeof(struct file_st)); | |
333 | position = IN_DEVICE; | |
334 | ||
0a882b63 AP |
335 | if((filename[0] == '\\' && filename[1] == '\\') |
336 | || (filename[0] == '/' && filename[1] == '/')) | |
cbecb3ac RL |
337 | { |
338 | position = IN_NODE; | |
339 | filename += 2; | |
340 | start = filename; | |
341 | result->node = start; | |
342 | } | |
343 | ||
344 | do | |
345 | { | |
346 | switch(filename[0]) | |
347 | { | |
348 | case ':': | |
349 | if(position != IN_DEVICE) | |
350 | { | |
8afca8d9 | 351 | DSOerr(DSO_F_WIN32_SPLITTER, |
cbecb3ac | 352 | DSO_R_INCORRECT_FILE_SYNTAX); |
74e3931f DSH |
353 | /*goto err;*/ |
354 | return(NULL); | |
cbecb3ac RL |
355 | } |
356 | result->device = start; | |
357 | result->devicelen = filename - start; | |
358 | position = IN_FILE; | |
359 | start = ++filename; | |
360 | result->dir = start; | |
361 | break; | |
362 | case '\\': | |
363 | case '/': | |
364 | if(position == IN_NODE) | |
365 | { | |
366 | result->nodelen = filename - start; | |
367 | position = IN_FILE; | |
368 | start = ++filename; | |
369 | result->dir = start; | |
370 | } | |
371 | else | |
372 | { | |
373 | filename++; | |
374 | result->dirlen += filename - start; | |
375 | } | |
376 | break; | |
377 | case '\0': | |
378 | if(position == IN_NODE) | |
379 | { | |
380 | result->nodelen = filename - start; | |
381 | } | |
382 | else | |
383 | { | |
384 | if(filename - start > 0) | |
385 | { | |
386 | if (assume_last_is_dir) | |
387 | { | |
388 | result->devicelen += filename - start; | |
389 | } | |
390 | else | |
391 | { | |
392 | result->file = start; | |
393 | result->filelen = filename - start; | |
394 | } | |
395 | } | |
396 | } | |
397 | break; | |
398 | default: | |
399 | filename++; | |
400 | break; | |
401 | } | |
402 | } | |
403 | while(*filename); | |
404 | ||
405 | if(!result->nodelen) result->node = NULL; | |
74e3931f | 406 | if(!result->devicelen) result->device = NULL; |
cbecb3ac RL |
407 | if(!result->dirlen) result->dir = NULL; |
408 | if(!result->filelen) result->file = NULL; | |
409 | ||
410 | return(result); | |
411 | } | |
412 | ||
74e3931f | 413 | static char *win32_joiner(DSO *dso, const struct file_st *file_split) |
cbecb3ac RL |
414 | { |
415 | int len = 0, offset = 0; | |
416 | char *result = NULL; | |
417 | const char *start; | |
418 | ||
419 | if(!file_split) | |
420 | { | |
8afca8d9 | 421 | DSOerr(DSO_F_WIN32_JOINER, |
cbecb3ac RL |
422 | ERR_R_PASSED_NULL_PARAMETER); |
423 | return(NULL); | |
424 | } | |
425 | if(file_split->node) | |
426 | { | |
427 | len += 2 + file_split->nodelen; /* 2 for starting \\ */ | |
428 | if(file_split->predir || file_split->dir || file_split->file) | |
429 | len++; /* 1 for ending \ */ | |
430 | } | |
431 | else if(file_split->device) | |
432 | { | |
433 | len += file_split->devicelen + 1; /* 1 for ending : */ | |
434 | } | |
435 | len += file_split->predirlen; | |
436 | if(file_split->predir && (file_split->dir || file_split->file)) | |
437 | { | |
438 | len++; /* 1 for ending \ */ | |
439 | } | |
440 | len += file_split->dirlen; | |
441 | if(file_split->dir && file_split->file) | |
442 | { | |
443 | len++; /* 1 for ending \ */ | |
444 | } | |
445 | len += file_split->filelen; | |
446 | ||
447 | if(!len) | |
448 | { | |
8afca8d9 | 449 | DSOerr(DSO_F_WIN32_JOINER, DSO_R_EMPTY_FILE_STRUCTURE); |
cbecb3ac RL |
450 | return(NULL); |
451 | } | |
452 | ||
453 | result = OPENSSL_malloc(len + 1); | |
454 | if (!result) | |
455 | { | |
8afca8d9 | 456 | DSOerr(DSO_F_WIN32_JOINER, |
cbecb3ac RL |
457 | ERR_R_MALLOC_FAILURE); |
458 | return(NULL); | |
459 | } | |
460 | ||
461 | if(file_split->node) | |
462 | { | |
463 | strcpy(&result[offset], "\\\\"); offset += 2; | |
464 | strncpy(&result[offset], file_split->node, | |
465 | file_split->nodelen); offset += file_split->nodelen; | |
466 | if(file_split->predir || file_split->dir || file_split->file) | |
467 | { | |
468 | result[offset] = '\\'; offset++; | |
469 | } | |
470 | } | |
471 | else if(file_split->device) | |
472 | { | |
473 | strncpy(&result[offset], file_split->device, | |
474 | file_split->devicelen); offset += file_split->devicelen; | |
475 | result[offset] = ':'; offset++; | |
476 | } | |
477 | start = file_split->predir; | |
478 | while(file_split->predirlen > (start - file_split->predir)) | |
479 | { | |
74e3931f | 480 | const char *end = openssl_strnchr(start, '/', |
cbecb3ac RL |
481 | file_split->predirlen - (start - file_split->predir)); |
482 | if(!end) | |
483 | end = start | |
484 | + file_split->predirlen | |
485 | - (start - file_split->predir); | |
486 | strncpy(&result[offset], start, | |
487 | end - start); offset += end - start; | |
488 | result[offset] = '\\'; offset++; | |
489 | start = end + 1; | |
490 | } | |
491 | if(file_split->predir && (file_split->dir || file_split->file)) | |
492 | { | |
493 | result[offset] = '\\'; offset++; | |
494 | } | |
495 | start = file_split->dir; | |
496 | while(file_split->dirlen > (start - file_split->dir)) | |
497 | { | |
74e3931f | 498 | const char *end = openssl_strnchr(start, '/', |
cbecb3ac RL |
499 | file_split->dirlen - (start - file_split->dir)); |
500 | if(!end) | |
501 | end = start | |
502 | + file_split->dirlen | |
503 | - (start - file_split->dir); | |
504 | strncpy(&result[offset], start, | |
505 | end - start); offset += end - start; | |
506 | result[offset] = '\\'; offset++; | |
507 | start = end + 1; | |
508 | } | |
509 | if(file_split->dir && file_split->file) | |
510 | { | |
511 | result[offset] = '\\'; offset++; | |
512 | } | |
513 | strncpy(&result[offset], file_split->file, | |
514 | file_split->filelen); offset += file_split->filelen; | |
515 | result[offset] = '\0'; | |
516 | return(result); | |
517 | } | |
518 | ||
519 | static char *win32_merger(DSO *dso, const char *filespec1, const char *filespec2) | |
520 | { | |
521 | char *merged = NULL; | |
522 | struct file_st *filespec1_split = NULL; | |
523 | struct file_st *filespec2_split = NULL; | |
524 | ||
525 | if(!filespec1 && !filespec2) | |
526 | { | |
527 | DSOerr(DSO_F_WIN32_MERGER, | |
528 | ERR_R_PASSED_NULL_PARAMETER); | |
529 | return(NULL); | |
530 | } | |
531 | if (!filespec2) | |
532 | { | |
533 | merged = OPENSSL_malloc(strlen(filespec1) + 1); | |
534 | if(!merged) | |
535 | { | |
536 | DSOerr(DSO_F_WIN32_MERGER, | |
537 | ERR_R_MALLOC_FAILURE); | |
538 | return(NULL); | |
539 | } | |
540 | strcpy(merged, filespec1); | |
541 | } | |
542 | else if (!filespec1) | |
543 | { | |
544 | merged = OPENSSL_malloc(strlen(filespec2) + 1); | |
545 | if(!merged) | |
546 | { | |
547 | DSOerr(DSO_F_WIN32_MERGER, | |
548 | ERR_R_MALLOC_FAILURE); | |
549 | return(NULL); | |
550 | } | |
551 | strcpy(merged, filespec2); | |
552 | } | |
553 | else | |
554 | { | |
555 | filespec1_split = win32_splitter(dso, filespec1, 1); | |
556 | if (!filespec1_split) | |
557 | { | |
558 | DSOerr(DSO_F_WIN32_MERGER, | |
559 | ERR_R_MALLOC_FAILURE); | |
560 | return(NULL); | |
561 | } | |
562 | filespec2_split = win32_splitter(dso, filespec2, 0); | |
563 | if (!filespec1_split) | |
564 | { | |
565 | DSOerr(DSO_F_WIN32_MERGER, | |
566 | ERR_R_MALLOC_FAILURE); | |
567 | OPENSSL_free(filespec1_split); | |
568 | return(NULL); | |
569 | } | |
570 | ||
571 | /* Fill in into filespec1_split */ | |
572 | if (!filespec1_split->node && !filespec1_split->device) | |
573 | { | |
574 | filespec1_split->node = filespec2_split->node; | |
575 | filespec1_split->nodelen = filespec2_split->nodelen; | |
576 | filespec1_split->device = filespec2_split->device; | |
577 | filespec1_split->devicelen = filespec2_split->devicelen; | |
578 | } | |
579 | if (!filespec1_split->dir) | |
580 | { | |
581 | filespec1_split->dir = filespec2_split->dir; | |
582 | filespec1_split->dirlen = filespec2_split->dirlen; | |
583 | } | |
584 | else if (filespec1_split->dir[0] != '\\' | |
585 | && filespec1_split->dir[0] != '/') | |
586 | { | |
587 | filespec1_split->predir = filespec2_split->dir; | |
588 | filespec1_split->predirlen = filespec2_split->dirlen; | |
589 | } | |
590 | if (!filespec1_split->file) | |
591 | { | |
592 | filespec1_split->file = filespec2_split->file; | |
593 | filespec1_split->filelen = filespec2_split->filelen; | |
594 | } | |
595 | ||
596 | merged = win32_joiner(dso, filespec1_split); | |
597 | } | |
598 | return(merged); | |
599 | } | |
600 | ||
51c8dc37 GT |
601 | static char *win32_name_converter(DSO *dso, const char *filename) |
602 | { | |
603 | char *translated; | |
604 | int len, transform; | |
605 | ||
606 | len = strlen(filename); | |
607 | transform = ((strstr(filename, "/") == NULL) && | |
608 | (strstr(filename, "\\") == NULL) && | |
609 | (strstr(filename, ":") == NULL)); | |
610 | if(transform) | |
611 | /* We will convert this to "%s.dll" */ | |
612 | translated = OPENSSL_malloc(len + 5); | |
613 | else | |
614 | /* We will simply duplicate filename */ | |
615 | translated = OPENSSL_malloc(len + 1); | |
616 | if(translated == NULL) | |
617 | { | |
618 | DSOerr(DSO_F_WIN32_NAME_CONVERTER, | |
619 | DSO_R_NAME_TRANSLATION_FAILED); | |
620 | return(NULL); | |
621 | } | |
622 | if(transform) | |
623 | sprintf(translated, "%s.dll", filename); | |
624 | else | |
625 | sprintf(translated, "%s", filename); | |
626 | return(translated); | |
627 | } | |
628 | ||
74e3931f DSH |
629 | static const char *openssl_strnchr(const char *string, int c, size_t len) |
630 | { | |
631 | size_t i; | |
632 | const char *p; | |
633 | for (i = 0, p = string; i < len && *p; i++, p++) | |
634 | { | |
635 | if (*p == c) | |
636 | return p; | |
637 | } | |
638 | return NULL; | |
639 | } | |
640 | ||
7ed87653 AP |
641 | #include <tlhelp32.h> |
642 | #ifdef _WIN32_WCE | |
7ed87653 AP |
643 | # define DLLNAME "TOOLHELP.DLL" |
644 | #else | |
645 | # ifdef MODULEENTRY32 | |
646 | # undef MODULEENTRY32 /* unmask the ASCII version! */ | |
647 | # endif | |
648 | # define DLLNAME "KERNEL32.DLL" | |
649 | #endif | |
650 | ||
651 | typedef HANDLE (WINAPI *CREATETOOLHELP32SNAPSHOT)(DWORD, DWORD); | |
652 | typedef BOOL (WINAPI *CLOSETOOLHELP32SNAPSHOT)(HANDLE); | |
653 | typedef BOOL (WINAPI *MODULE32)(HANDLE, MODULEENTRY32 *); | |
74e3931f | 654 | |
7ed87653 AP |
655 | static int win32_pathbyaddr(void *addr,char *path,int sz) |
656 | { | |
657 | HMODULE dll; | |
658 | HANDLE hModuleSnap = INVALID_HANDLE_VALUE; | |
659 | MODULEENTRY32 me32; | |
660 | CREATETOOLHELP32SNAPSHOT create_snap; | |
661 | CLOSETOOLHELP32SNAPSHOT close_snap; | |
662 | MODULE32 module_first, module_next; | |
663 | int len; | |
664 | ||
21ac2b96 AP |
665 | if (addr == NULL) |
666 | { | |
667 | union { int(*f)(void*,char*,int); void *p; } t = | |
668 | { win32_pathbyaddr }; | |
669 | addr = t.p; | |
670 | } | |
7ed87653 AP |
671 | |
672 | dll = LoadLibrary(TEXT(DLLNAME)); | |
673 | if (dll == NULL) | |
674 | { | |
675 | DSOerr(DSO_F_PATHBYADDR,DSO_R_UNSUPPORTED); | |
676 | return -1; | |
677 | } | |
678 | ||
679 | create_snap = (CREATETOOLHELP32SNAPSHOT) | |
680 | GetProcAddress(dll,"CreateToolhelp32Snapshot"); | |
681 | if (create_snap == NULL) | |
682 | { | |
683 | DSOerr(DSO_F_PATHBYADDR,DSO_R_UNSUPPORTED); | |
684 | return -1; | |
685 | } | |
686 | /* We take the rest for granted... */ | |
687 | #ifdef _WIN32_WCE | |
688 | close_snap = (CLOSETOOLHELP32SNAPSHOT) | |
689 | GetProcAddress(dll,"CloseToolhelp32Snapshot"); | |
690 | #else | |
691 | close_snap = (CLOSETOOLHELP32SNAPSHOT)CloseHandle; | |
692 | #endif | |
693 | module_first = (MODULE32)GetProcAddress(dll,"Module32First"); | |
694 | module_next = (MODULE32)GetProcAddress(dll,"Module32Next"); | |
695 | ||
696 | hModuleSnap = (*create_snap)(TH32CS_SNAPMODULE,0); | |
697 | if( hModuleSnap == INVALID_HANDLE_VALUE ) | |
698 | { | |
699 | FreeLibrary(dll); | |
700 | DSOerr(DSO_F_PATHBYADDR,DSO_R_UNSUPPORTED); | |
701 | return -1; | |
702 | } | |
703 | ||
704 | me32.dwSize = sizeof(me32); | |
705 | ||
706 | if(!(*module_first)(hModuleSnap,&me32)) | |
707 | { | |
708 | (*close_snap)(hModuleSnap); | |
709 | FreeLibrary(dll); | |
710 | DSOerr(DSO_F_PATHBYADDR,DSO_R_FAILURE); | |
711 | return -1; | |
712 | } | |
713 | ||
714 | do { | |
715 | if ((BYTE *)addr >= me32.modBaseAddr && | |
716 | (BYTE *)addr < me32.modBaseAddr+me32.modBaseSize) | |
717 | { | |
718 | (*close_snap)(hModuleSnap); | |
719 | FreeLibrary(dll); | |
720 | #ifdef _WIN32_WCE | |
721 | # if _WIN32_WCE >= 101 | |
722 | return WideCharToMultiByte(CP_ACP,0,me32.szExePath,-1, | |
723 | path,sz,NULL,NULL); | |
724 | # else | |
725 | len = (int)wcslen(me32.szExePath); | |
726 | if (sz <= 0) return len+1; | |
727 | if (len >= sz) len=sz-1; | |
728 | for(i=0;i<len;i++) | |
729 | path[i] = (char)me32.szExePath[i]; | |
730 | path[len++] = 0; | |
731 | return len; | |
732 | # endif | |
733 | #else | |
734 | len = (int)strlen(me32.szExePath); | |
735 | if (sz <= 0) return len+1; | |
736 | if (len >= sz) len=sz-1; | |
737 | memcpy(path,me32.szExePath,len); | |
738 | path[len++] = 0; | |
739 | return len; | |
740 | #endif | |
741 | } | |
742 | } while((*module_next)(hModuleSnap, &me32)); | |
743 | ||
744 | (*close_snap)(hModuleSnap); | |
745 | FreeLibrary(dll); | |
746 | return 0; | |
747 | } | |
748 | #endif /* DSO_WIN32 */ |