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 "system.h" 26 27 #include <osl/module.h> 28 #include <osl/diagnose.h> 29 #include <osl/file.h> 30 #include <osl/thread.h> 31 32 #include <stdlib.h> 33 #include <dlfcn.h> 34 35 int UnicodeToText(char *, size_t, const sal_Unicode *, sal_Int32); 36 37 // static data for holding SAL dll module and full path 38 static HMODULE hModSal; 39 static char szSalDir[ _MAX_PATH]; 40 static char szSalDrive[ _MAX_PATH]; 41 42 /*****************************************************************************/ 43 /* osl_loadModule */ 44 /*****************************************************************************/ 45 46 ULONG APIENTRY _DosLoadModule (PSZ pszObject, ULONG uObjectLen, PCSZ pszModule, 47 PHMODULE phmod) 48 { 49 APIRET rc; 50 rc = DosLoadModule( pszObject, uObjectLen, pszModule, phmod); 51 // YD 22/05/06 issue again if first call fails (why?) 52 if (rc == ERROR_INVALID_PARAMETER) 53 rc = DosLoadModule( pszObject, uObjectLen, pszModule, phmod); 54 return rc; 55 } 56 57 oslModule SAL_CALL osl_loadAsciiModule( const sal_Char* pModuleName, sal_Int32 nRtldMode ) 58 { 59 rtl_uString* pUniName = NULL; 60 rtl_uString_newFromAscii( &pUniName, pModuleName ); 61 oslModule aModule = osl_loadModule( pUniName, nRtldMode ); 62 rtl_uString_release( pUniName ); 63 return aModule; 64 } 65 66 oslModule SAL_CALL osl_loadModule(rtl_uString *ustrModuleName, sal_Int32 nRtldMode) 67 { 68 HMODULE hModule; 69 BYTE szErrorMessage[256]; 70 APIRET rc; 71 oslModule pModule=0; 72 rtl_uString* ustrTmp = NULL; 73 74 OSL_ENSURE(ustrModuleName,"osl_loadModule : string is not valid"); 75 76 /* ensure ustrTmp hold valid string */ 77 if( osl_File_E_None != osl_getSystemPathFromFileURL( ustrModuleName, &ustrTmp ) ) 78 rtl_uString_assign( &ustrTmp, ustrModuleName ); 79 80 if( ustrTmp ) 81 { 82 char buffer[PATH_MAX]; 83 84 if( UnicodeToText( buffer, PATH_MAX, ustrTmp->buffer, ustrTmp->length ) ) 85 { 86 char drive[_MAX_DRIVE], dir[_MAX_DIR]; 87 char fname[_MAX_FNAME], ext[_MAX_EXT]; 88 char* dot; 89 // 21/02/2006 YD dll names must be 8.3: since .uno.dll files 90 // have hardcoded names, I'm truncating names here and also in 91 // the build system 92 _splitpath (buffer, drive, dir, fname, ext); 93 if (strlen(fname)>8) 94 fname[8] = 0; // truncate to 8.3 95 dot = strchr( fname, '.'); 96 if (dot) 97 *dot = '\0'; // truncate on dot 98 // if drive is not specified, remove starting \ from dir name 99 // so dll is loaded from LIBPATH 100 if (drive[0] == 0 && dir[0] == '\\' && dir[1] == '\\') { 101 while( dir[0] == '\\') 102 strcpy( dir, dir+1); 103 } 104 _makepath( buffer, drive, dir, fname, ext); 105 106 #if OSL_DEBUG_LEVEL>10 107 debug_printf("osl_loadModule module %s", buffer); 108 #endif 109 hModule = dlopen( buffer, RTLD_LOCAL); 110 if (hModule != NULL ) 111 pModule = (oslModule)hModule; 112 else 113 { 114 sal_Char szError[ PATH_MAX*2 ]; 115 sprintf( szError, "Module: %s; errno: %d;\n" 116 "Please contact technical support and report above informations.\n\n", 117 buffer, errno ); 118 #if OSL_DEBUG_LEVEL>0 119 fprintf( stderr, szError); 120 #endif 121 debug_printf("osl_loadModule error %s", szError); 122 123 #ifndef 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 } 130 } 131 132 rtl_uString_release( ustrTmp ); 133 134 return pModule; 135 } 136 137 /*****************************************************************************/ 138 /* osl_getModuleHandle */ 139 /*****************************************************************************/ 140 141 sal_Bool SAL_CALL 142 osl_getModuleHandle(rtl_uString *pModuleName, oslModule *pResult) 143 { 144 HMODULE hmod; 145 APIRET rc; 146 rc = DosQueryModuleHandle(pModuleName->buffer, &hmod); 147 if( rc == NO_ERROR) 148 { 149 *pResult = (oslModule) hmod; 150 return sal_True; 151 } 152 153 return sal_False; 154 } 155 156 /*****************************************************************************/ 157 /* osl_unloadModule */ 158 /*****************************************************************************/ 159 void SAL_CALL osl_unloadModule(oslModule Module) 160 { 161 #if OSL_DEBUG_LEVEL>0 162 if (!Module) 163 fprintf( stderr, "osl_unloadModule NULL HANDLE.\n"); 164 #endif 165 166 DosFreeModule((HMODULE)Module); 167 } 168 169 /*****************************************************************************/ 170 /* osl_getSymbol */ 171 /*****************************************************************************/ 172 void* SAL_CALL 173 osl_getSymbol(oslModule Module, rtl_uString* pSymbolName) 174 { 175 return (void *) osl_getFunctionSymbol(Module, pSymbolName); 176 } 177 178 /*****************************************************************************/ 179 /* osl_getFunctionSymbol */ 180 /*****************************************************************************/ 181 oslGenericFunction SAL_CALL osl_getFunctionSymbol( oslModule Module, rtl_uString *strSymbolName ) 182 { 183 rtl_String *symbolName = NULL; 184 oslGenericFunction address; 185 186 OSL_ASSERT(Module); 187 OSL_ASSERT(strSymbolName); 188 189 rtl_uString2String( 190 &symbolName, 191 strSymbolName->buffer, 192 strSymbolName->length, 193 RTL_TEXTENCODING_UTF8, 194 OUSTRING_TO_OSTRING_CVTFLAGS 195 ); 196 197 address=osl_getAsciiFunctionSymbol(Module, rtl_string_getStr(symbolName)); 198 rtl_string_release(symbolName); 199 200 return address; 201 } 202 203 /*****************************************************************************/ 204 /* osl_getAsciiFunctionSymbol */ 205 /*****************************************************************************/ 206 oslGenericFunction SAL_CALL 207 osl_getAsciiFunctionSymbol( oslModule Module, const sal_Char *pSymbol ) 208 { 209 PFN pFunction; 210 APIRET rc; 211 void* pHandle=0; 212 213 OSL_ENSURE(Module,"osl_getSymbol : module handle is not valid"); 214 OSL_ENSURE(Module,"osl_getSymbol : ustrSymbolName"); 215 216 if ( Module!= 0 && pSymbol != 0 ) 217 { 218 219 rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)pSymbol, &pFunction ); 220 if( rc == NO_ERROR ) 221 { 222 pHandle = (void*)pFunction; 223 } 224 else 225 { 226 // YD try again adding the '_' prefix 227 char _pszSymbolName[255]; 228 strcpy( _pszSymbolName, "_"); 229 strcat( _pszSymbolName, pSymbol); 230 rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)_pszSymbolName, &pFunction ); 231 if( rc == NO_ERROR ) 232 pHandle = (void*)pFunction; 233 } 234 235 } 236 237 return pHandle; 238 } 239 240 /*****************************************************************************/ 241 /* osl_getModuleURLFromAddress */ 242 /*****************************************************************************/ 243 sal_Bool SAL_CALL osl_getModuleURLFromAddress(void * addr, rtl_uString ** ppLibraryUrl) 244 { 245 //APIRET APIENTRY DosQueryModFromEIP (HMODULE *phMod, ULONG *pObjNum, 246 // ULONG BuffLen, PCHAR pBuff, ULONG *pOffset, ULONG Address) 247 HMODULE hMod; 248 ULONG ObjNum; 249 CHAR Buff[2*_MAX_PATH]; 250 ULONG Offset; 251 APIRET rc; 252 253 // get module handle (and name) 254 rc = DosQueryModFromEIP( &hMod, &ObjNum, sizeof( Buff), Buff, &Offset, (ULONG)addr); 255 if (rc) 256 return sal_False; 257 258 // get module full path 259 rc = DosQueryModuleName( hMod, sizeof( Buff), Buff); 260 if (rc) 261 return sal_False; 262 263 #if OSL_DEBUG_LEVEL > 1 264 OSL_TRACE("module.c::osl_getModuleURLFromAddress - %s\n", Buff); 265 #endif 266 267 // convert to URL 268 rtl_uString *ustrSysPath = NULL; 269 rtl_string2UString( &ustrSysPath, Buff, strlen(Buff), osl_getThreadTextEncoding(), OSTRING_TO_OUSTRING_CVTFLAGS ); 270 OSL_ASSERT(ustrSysPath != NULL); 271 osl_getFileURLFromSystemPath( ustrSysPath, ppLibraryUrl ); 272 rtl_uString_release( ustrSysPath ); 273 274 return sal_True; 275 } 276 277 /*****************************************************************************/ 278 /* osl_getModuleURLFromFunctionAddress */ 279 /*****************************************************************************/ 280 sal_Bool SAL_CALL osl_getModuleURLFromFunctionAddress( oslGenericFunction addr, rtl_uString ** ppLibraryUrl ) 281 { 282 return osl_getModuleURLFromAddress( ( void * )addr, ppLibraryUrl ); 283 } 284 285 /*****************************************************************************/ 286 287