kernel32: Return error on second attempt to free a module.
[wine] / dlls / ctapi32 / ctapi32.c
1 /*
2  * WINE ct-api wrapper
3  *
4  * Copyright 2007 Christian Eggers
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22 #include "wine/port.h"
23 #include <string.h>
24 #include "wine/library.h"
25 #include "wine/debug.h"
26 #include "windef.h"
27 #include "winreg.h"
28 #include "winnls.h"
29 #include "ctapi.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(ctapi32);
32
33 #define FALLBACK_LIBCTAPI "libctapi.so"
34 static const WCHAR value_name[] = {'l','i','b','r','a','r','y',0};
35
36
37 static IS8 (*pCT_init)(IU16 ctn, IU16 pn) = NULL;
38 static IS8 (*pCT_data)(IU16 ctn, IU8 *dad, IU8 *sad, IU16 lenc, IU8 *command,
39         IU16 *lenr, IU8 *response) = NULL;
40 static IS8 (*pCT_close)(IU16 ctn) = NULL;
41
42 static void *ctapi_handle = NULL;
43
44
45 static int load_functions(void) {
46         char soname[MAX_PATH] = FALLBACK_LIBCTAPI, buffer[MAX_PATH];
47         LONG result;
48         HKEY key_handle;
49
50         if (pCT_init) /* loaded already */
51                 return 0;
52
53         /* Try to get name of low level library from registry */
54         /* @@ Wine registry key: HKCU\Software\Wine\ctapi32 */
55         result = RegOpenKeyExA(HKEY_CURRENT_USER, "Software\\Wine\\ctapi32", 0, KEY_READ, &key_handle);
56         if (result == ERROR_SUCCESS) {
57                 DWORD type, size;
58                 WCHAR buffer_w[MAX_PATH];
59
60                 size = sizeof(buffer_w) - sizeof(WCHAR);  /* Leave space for null termination */
61                 result = RegQueryValueExW(key_handle, value_name, NULL, &type, (LPBYTE)buffer_w, &size);
62                 if ((result == ERROR_SUCCESS) && (type == REG_SZ)) {
63                         int len;
64
65                         /* Null termination */
66                         buffer_w[size / sizeof(WCHAR)] = '\0';
67                         len = WideCharToMultiByte(CP_UNIXCP, 0, buffer_w, -1, buffer, sizeof(buffer), NULL, NULL);
68                         if (len)
69                                 memcpy(soname, buffer, len);
70                 }
71                 RegCloseKey(key_handle);
72         }
73
74         TRACE("Loading library '%s'\n", soname);
75         ctapi_handle = wine_dlopen(soname, RTLD_NOW, NULL, 0);
76         if (ctapi_handle) {
77                 TRACE("Successfully loaded '%s'\n", soname);
78         }
79         else {
80                 MESSAGE("Wine cannot find any usable hardware library, ctapi32.dll not working.\n");
81                 MESSAGE("Please create the key \"HKEY_CURRENT_USER\\Software\\Wine\\ctapi32\" in your registry\n");
82                 MESSAGE("and set the value \"library\" to your library name (e.g. \"libctapi-cyberjack.so.1\" or \"/usr/lib/readers/libctapi.so\").\n");
83                 return 1;
84         }
85
86 #define LOAD_FUNCPTR(f) if((p##f = wine_dlsym(ctapi_handle, #f, NULL, 0)) == NULL){WARN("Can't find symbol %s\n", #f); return 1;}
87 LOAD_FUNCPTR(CT_init);
88 LOAD_FUNCPTR(CT_data);
89 LOAD_FUNCPTR(CT_close);
90 #undef LOAD_FUNCPTR
91
92         return 0;
93 }
94
95 static void unload_functions(void)
96 {
97         pCT_close = NULL;
98         pCT_data = NULL;
99         pCT_init = NULL;
100         if (ctapi_handle)
101                 wine_dlclose(ctapi_handle, NULL, 0);
102 }
103
104
105 /*
106  *  ct-API specific functions
107  */
108
109 IS8 WINAPI WIN_CT_init(IU16 ctn, IU16 pn)
110 {
111         if (!pCT_init)
112                 return ERR_HOST;
113         return pCT_init(ctn, pn);
114 }
115
116 IS8 WINAPI WIN_CT_data(IU16 ctn, IU8 *dad, IU8 *sad, IU16 lenc, IU8 *command, IU16 *lenr, IU8 *response)
117 {
118         if (!pCT_data)
119                 return ERR_HOST;
120         return pCT_data(ctn, dad, sad, lenc, command, lenr, response);
121 }
122
123 IS8 WINAPI WIN_CT_close(IU16 ctn)
124 {
125         if (!pCT_close)
126                 return ERR_HOST;
127         return pCT_close(ctn);
128 }
129
130 /*
131  *  Dll Main function
132  */
133 BOOL WINAPI DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
134 {
135     TRACE("%p,%x,%p\n", hinstDLL, fdwReason, lpvReserved);
136
137     switch (fdwReason)
138     {
139         case DLL_PROCESS_ATTACH:
140         {
141             DisableThreadLibraryCalls(hinstDLL);
142             /* Try to load low-level library */
143             if (load_functions() != 0)
144                 return FALSE;  /* error */
145             break;
146         }
147         case DLL_PROCESS_DETACH:
148         {
149             unload_functions();
150             break;
151         }
152     }
153
154     return TRUE;
155 }