1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24
25 #include <osl/module.h>
26 #include <osl/diagnose.h>
27 #include <osl/file.h>
28 #include <osl/thread.h>
29
30 #include <stdlib.h>
31 #include <dlfcn.h>
32
33 #include "system.h"
34
35 /* implemented in file.cxx */
36 int UnicodeToText(char *, size_t, const sal_Unicode *, sal_Int32);
37
38 /*****************************************************************************/
39 /* osl_loadModule */
40 /*****************************************************************************/
41
osl_loadModule(rtl_uString * ustrModuleName,sal_Int32 nRtldMode)42 oslModule SAL_CALL osl_loadModule(rtl_uString *ustrModuleName, sal_Int32 nRtldMode)
43 {
44 oslModule pModule=0;
45 rtl_uString* ustrTmp = NULL;
46
47 OSL_ENSURE(ustrModuleName,"osl_loadModule : string is not valid");
48
49 /* ensure ustrTmp hold valid string */
50 if (osl_File_E_None != osl_getSystemPathFromFileURL(ustrModuleName, &ustrTmp))
51 rtl_uString_assign(&ustrTmp, ustrModuleName);
52
53 if (ustrTmp)
54 {
55 char buffer[PATH_MAX];
56
57 if (UnicodeToText(buffer, PATH_MAX, ustrTmp->buffer, ustrTmp->length))
58 pModule = osl_loadAsciiModule(buffer, nRtldMode);
59 rtl_uString_release(ustrTmp);
60 }
61
62 return pModule;
63 }
64
65 /*****************************************************************************/
66 /* osl_loadAsciiModule */
67 /*****************************************************************************/
68
osl_loadAsciiModule(const sal_Char * pszModuleName,sal_Int32 nRtldMode)69 oslModule SAL_CALL osl_loadAsciiModule(const sal_Char *pszModuleName, sal_Int32 nRtldMode)
70 {
71 char drive[_MAX_DRIVE], dir[_MAX_DIR];
72 char fname[_MAX_FNAME], ext[_MAX_EXT];
73 char buffer[PATH_MAX];
74 char* dot;
75 void* hModule;
76
77 if (!pszModuleName)
78 return NULL;
79
80 // 21/02/2006 YD dll names must be 8.3: since .uno.dll files
81 // have hardcoded names, I'm truncating names here and also in
82 // the build system
83 _splitpath (pszModuleName, drive, dir, fname, ext);
84 if (strlen(fname)>8)
85 fname[8] = 0; // truncate to 8.3
86 dot = strchr( fname, '.');
87 if (dot)
88 *dot = '\0'; // truncate on dot
89
90 // if drive is not specified, remove starting \ from dir name
91 // so dll is loaded from LIBPATH
92 if (drive[0] == 0 && dir[0] == '\\' && dir[1] == '\\') {
93 while( dir[0] == '\\')
94 strcpy( dir, dir+1);
95 }
96 _makepath( buffer, drive, dir, fname, ext);
97
98 #if OSL_DEBUG_LEVEL>1
99 debug_printf("osl_loadModule module %s", buffer);
100 #endif
101
102 hModule = dlopen( buffer, RTLD_LOCAL);
103 if (hModule != NULL)
104 return (oslModule)hModule;
105
106 // do not show in case rc=2 ENOENT, we must parse dlerror
107 // string to detect it
108 char* err = dlerror();
109 if (!err)
110 return NULL;
111
112 if (strstr( err, "rc=2") != NULL)
113 return NULL;
114
115 sal_Char szError[ PATH_MAX*2 ];
116 sprintf( szError, "Module: %s;\n error: %s;\n\n"
117 "Please contact technical support and report above informations.\n\n",
118 buffer, err);
119 #if OSL_DEBUG_LEVEL>0
120 debug_printf("osl_loadModule error %s", szError);
121 #endif
122
123 #if (OSL_DEBUG_LEVEL==0) || !defined(OSL_DEBUG_LEVEL)
124 WinMessageBox(HWND_DESKTOP,HWND_DESKTOP,
125 szError, "Critical error: DosLoadModule failed",
126 0, MB_ERROR | MB_OK | MB_MOVEABLE);
127 #endif
128
129 return NULL;
130 }
131
132 /*****************************************************************************/
133 /* osl_getModuleHandle */
134 /*****************************************************************************/
135
136 sal_Bool SAL_CALL
osl_getModuleHandle(rtl_uString * pModuleName,oslModule * pResult)137 osl_getModuleHandle(rtl_uString *pModuleName, oslModule *pResult)
138 {
139 HMODULE hmod;
140 APIRET rc;
141
142 OSL_ENSURE(pModuleName,"osl_loadModule : string is not valid");
143
144 if (pModuleName)
145 {
146 char buffer[PATH_MAX];
147
148 if (UnicodeToText(buffer, PATH_MAX, pModuleName->buffer,
149 pModuleName->length))
150 {
151 rc = DosQueryModuleHandle(buffer, &hmod);
152 if( rc == NO_ERROR)
153 {
154 *pResult = (oslModule) hmod;
155 return sal_True;
156 }
157 }
158 }
159
160 return sal_False;
161 }
162
163 /*****************************************************************************/
164 /* osl_unloadModule */
165 /*****************************************************************************/
osl_unloadModule(oslModule hModule)166 void SAL_CALL osl_unloadModule(oslModule hModule)
167 {
168 if (hModule)
169 {
170 int nRet = dlclose(hModule);
171 #if OSL_DEBUG_LEVEL > 1
172 if (nRet != 0)
173 {
174 debug_printf( "osl_unloadModule failed with %s\n", dlerror());
175 }
176 #else
177 (void) nRet;
178 #endif /* if OSL_DEBUG_LEVEL */
179 }
180 }
181
182 /*****************************************************************************/
183 /* osl_getSymbol */
184 /*****************************************************************************/
185 void* SAL_CALL
osl_getSymbol(oslModule Module,rtl_uString * pSymbolName)186 osl_getSymbol(oslModule Module, rtl_uString* pSymbolName)
187 {
188 return (void *) osl_getFunctionSymbol(Module, pSymbolName);
189 }
190
191 /*****************************************************************************/
192 /* osl_getFunctionSymbol */
193 /*****************************************************************************/
osl_getFunctionSymbol(oslModule Module,rtl_uString * strSymbolName)194 oslGenericFunction SAL_CALL osl_getFunctionSymbol( oslModule Module, rtl_uString *strSymbolName )
195 {
196 rtl_String *symbolName = NULL;
197 oslGenericFunction address;
198
199 OSL_ASSERT(Module);
200 OSL_ASSERT(strSymbolName);
201
202 rtl_uString2String(
203 &symbolName,
204 strSymbolName->buffer,
205 strSymbolName->length,
206 RTL_TEXTENCODING_UTF8,
207 OUSTRING_TO_OSTRING_CVTFLAGS
208 );
209
210 address=osl_getAsciiFunctionSymbol(Module, rtl_string_getStr(symbolName));
211 rtl_string_release(symbolName);
212
213 return address;
214 }
215
216 /*****************************************************************************/
217 /* osl_getAsciiFunctionSymbol */
218 /*****************************************************************************/
219 oslGenericFunction SAL_CALL
osl_getAsciiFunctionSymbol(oslModule Module,const sal_Char * pSymbol)220 osl_getAsciiFunctionSymbol( oslModule Module, const sal_Char *pSymbol )
221 {
222 PFN pFunction;
223 APIRET rc;
224 void* pHandle=NULL;
225
226 OSL_ENSURE(Module,"osl_getSymbol : module handle is not valid");
227 OSL_ENSURE(Module,"osl_getSymbol : ustrSymbolName");
228
229 if ( Module!= 0 && pSymbol != NULL )
230 {
231
232 rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)pSymbol, &pFunction );
233 if( rc == NO_ERROR )
234 {
235 pHandle = (void*)pFunction;
236 }
237 else
238 {
239 // YD try again adding the '_' prefix
240 char _pszSymbolName[255];
241 strcpy( _pszSymbolName, "_");
242 strcat( _pszSymbolName, pSymbol);
243 rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)_pszSymbolName, &pFunction );
244 if( rc == NO_ERROR )
245 pHandle = (void*)pFunction;
246 }
247
248 }
249
250 return pHandle;
251 }
252
253 /*****************************************************************************/
254 /* osl_getModuleURLFromAddress */
255 /*****************************************************************************/
osl_getModuleURLFromAddress(void * addr,rtl_uString ** ppLibraryUrl)256 sal_Bool SAL_CALL osl_getModuleURLFromAddress(void * addr, rtl_uString ** ppLibraryUrl)
257 {
258 //APIRET APIENTRY DosQueryModFromEIP (HMODULE *phMod, ULONG *pObjNum,
259 // ULONG BuffLen, PCHAR pBuff, ULONG *pOffset, ULONG Address)
260 HMODULE hMod;
261 ULONG ObjNum;
262 CHAR Buff[2*_MAX_PATH];
263 ULONG Offset;
264 APIRET rc;
265
266 // get module handle (and name)
267 rc = DosQueryModFromEIP( &hMod, &ObjNum, sizeof( Buff), Buff, &Offset, (ULONG)addr);
268 if (rc)
269 return sal_False;
270
271 // get module full path
272 rc = DosQueryModuleName( hMod, sizeof( Buff), Buff);
273 if (rc)
274 return sal_False;
275
276 #if OSL_DEBUG_LEVEL > 1
277 OSL_TRACE("module.c::osl_getModuleURLFromAddress - %s\n", Buff);
278 #endif
279
280 // convert to URL
281 rtl_uString *ustrSysPath = NULL;
282 rtl_string2UString( &ustrSysPath, Buff, strlen(Buff), osl_getThreadTextEncoding(), OSTRING_TO_OUSTRING_CVTFLAGS );
283 OSL_ASSERT(ustrSysPath != NULL);
284 osl_getFileURLFromSystemPath( ustrSysPath, ppLibraryUrl );
285 rtl_uString_release( ustrSysPath );
286
287 return sal_True;
288 }
289
290 /*****************************************************************************/
291 /* osl_getModuleURLFromFunctionAddress */
292 /*****************************************************************************/
osl_getModuleURLFromFunctionAddress(oslGenericFunction addr,rtl_uString ** ppLibraryUrl)293 sal_Bool SAL_CALL osl_getModuleURLFromFunctionAddress( oslGenericFunction addr, rtl_uString ** ppLibraryUrl )
294 {
295 return osl_getModuleURLFromAddress( ( void * )addr, ppLibraryUrl );
296 }
297
298 /*****************************************************************************/
299
300