/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the License. * *************************************************************/ #include #include #include #include #include #include #include "system.h" /* implemented in file.cxx */ int UnicodeToText(char *, size_t, const sal_Unicode *, sal_Int32); /*****************************************************************************/ /* osl_loadModule */ /*****************************************************************************/ oslModule SAL_CALL osl_loadModule(rtl_uString *ustrModuleName, sal_Int32 nRtldMode) { oslModule pModule=0; rtl_uString* ustrTmp = NULL; OSL_ENSURE(ustrModuleName,"osl_loadModule : string is not valid"); /* ensure ustrTmp hold valid string */ if (osl_File_E_None != osl_getSystemPathFromFileURL(ustrModuleName, &ustrTmp)) rtl_uString_assign(&ustrTmp, ustrModuleName); if (ustrTmp) { char buffer[PATH_MAX]; if (UnicodeToText(buffer, PATH_MAX, ustrTmp->buffer, ustrTmp->length)) pModule = osl_loadAsciiModule(buffer, nRtldMode); rtl_uString_release(ustrTmp); } return pModule; } /*****************************************************************************/ /* osl_loadAsciiModule */ /*****************************************************************************/ oslModule SAL_CALL osl_loadAsciiModule(const sal_Char *pszModuleName, sal_Int32 nRtldMode) { char drive[_MAX_DRIVE], dir[_MAX_DIR]; char fname[_MAX_FNAME], ext[_MAX_EXT]; char buffer[PATH_MAX]; char* dot; void* hModule; oslModule pModule = NULL; if (!pszModuleName) return NULL; // 21/02/2006 YD dll names must be 8.3: since .uno.dll files // have hardcoded names, I'm truncating names here and also in // the build system _splitpath (pszModuleName, drive, dir, fname, ext); if (strlen(fname)>8) fname[8] = 0; // truncate to 8.3 dot = strchr( fname, '.'); if (dot) *dot = '\0'; // truncate on dot // if drive is not specified, remove starting \ from dir name // so dll is loaded from LIBPATH if (drive[0] == 0 && dir[0] == '\\' && dir[1] == '\\') { while( dir[0] == '\\') strcpy( dir, dir+1); } _makepath( buffer, drive, dir, fname, ext); #if OSL_DEBUG_LEVEL>1 debug_printf("osl_loadModule module %s", buffer); #endif hModule = dlopen( buffer, RTLD_LOCAL); if (hModule != NULL) pModule = (oslModule)hModule; else { sal_Char szError[ PATH_MAX*2 ]; sprintf( szError, "Module: %s;\n error: %s;\n\n" "Please contact technical support and report above informations.\n\n", buffer, dlerror() ); #if OSL_DEBUG_LEVEL>0 debug_printf("osl_loadModule error %s", szError); #endif #if (OSL_DEBUG_LEVEL==0) || !defined(OSL_DEBUG_LEVEL) WinMessageBox(HWND_DESKTOP,HWND_DESKTOP, szError, "Critical error: DosLoadModule failed", 0, MB_ERROR | MB_OK | MB_MOVEABLE); #endif } return pModule; } /*****************************************************************************/ /* osl_getModuleHandle */ /*****************************************************************************/ sal_Bool SAL_CALL osl_getModuleHandle(rtl_uString *pModuleName, oslModule *pResult) { HMODULE hmod; APIRET rc; OSL_ENSURE(pModuleName,"osl_loadModule : string is not valid"); if (pModuleName) { char buffer[PATH_MAX]; if (UnicodeToText(buffer, PATH_MAX, pModuleName->buffer, pModuleName->length)) { rc = DosQueryModuleHandle(buffer, &hmod); if( rc == NO_ERROR) { *pResult = (oslModule) hmod; return sal_True; } } } return sal_False; } /*****************************************************************************/ /* osl_unloadModule */ /*****************************************************************************/ void SAL_CALL osl_unloadModule(oslModule hModule) { if (hModule) { int nRet = dlclose(hModule); #if OSL_DEBUG_LEVEL > 1 if (nRet != 0) { debug_printf( "osl_unloadModule failed with %s\n", dlerror()); } #else (void) nRet; #endif /* if OSL_DEBUG_LEVEL */ } } /*****************************************************************************/ /* osl_getSymbol */ /*****************************************************************************/ void* SAL_CALL osl_getSymbol(oslModule Module, rtl_uString* pSymbolName) { return (void *) osl_getFunctionSymbol(Module, pSymbolName); } /*****************************************************************************/ /* osl_getFunctionSymbol */ /*****************************************************************************/ oslGenericFunction SAL_CALL osl_getFunctionSymbol( oslModule Module, rtl_uString *strSymbolName ) { rtl_String *symbolName = NULL; oslGenericFunction address; OSL_ASSERT(Module); OSL_ASSERT(strSymbolName); rtl_uString2String( &symbolName, strSymbolName->buffer, strSymbolName->length, RTL_TEXTENCODING_UTF8, OUSTRING_TO_OSTRING_CVTFLAGS ); address=osl_getAsciiFunctionSymbol(Module, rtl_string_getStr(symbolName)); rtl_string_release(symbolName); return address; } /*****************************************************************************/ /* osl_getAsciiFunctionSymbol */ /*****************************************************************************/ oslGenericFunction SAL_CALL osl_getAsciiFunctionSymbol( oslModule Module, const sal_Char *pSymbol ) { PFN pFunction; APIRET rc; void* pHandle=0; OSL_ENSURE(Module,"osl_getSymbol : module handle is not valid"); OSL_ENSURE(Module,"osl_getSymbol : ustrSymbolName"); if ( Module!= 0 && pSymbol != 0 ) { rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)pSymbol, &pFunction ); if( rc == NO_ERROR ) { pHandle = (void*)pFunction; } else { // YD try again adding the '_' prefix char _pszSymbolName[255]; strcpy( _pszSymbolName, "_"); strcat( _pszSymbolName, pSymbol); rc = DosQueryProcAddr( (HMODULE) Module, 0, (PCSZ)_pszSymbolName, &pFunction ); if( rc == NO_ERROR ) pHandle = (void*)pFunction; } } return pHandle; } /*****************************************************************************/ /* osl_getModuleURLFromAddress */ /*****************************************************************************/ sal_Bool SAL_CALL osl_getModuleURLFromAddress(void * addr, rtl_uString ** ppLibraryUrl) { //APIRET APIENTRY DosQueryModFromEIP (HMODULE *phMod, ULONG *pObjNum, // ULONG BuffLen, PCHAR pBuff, ULONG *pOffset, ULONG Address) HMODULE hMod; ULONG ObjNum; CHAR Buff[2*_MAX_PATH]; ULONG Offset; APIRET rc; // get module handle (and name) rc = DosQueryModFromEIP( &hMod, &ObjNum, sizeof( Buff), Buff, &Offset, (ULONG)addr); if (rc) return sal_False; // get module full path rc = DosQueryModuleName( hMod, sizeof( Buff), Buff); if (rc) return sal_False; #if OSL_DEBUG_LEVEL > 1 OSL_TRACE("module.c::osl_getModuleURLFromAddress - %s\n", Buff); #endif // convert to URL rtl_uString *ustrSysPath = NULL; rtl_string2UString( &ustrSysPath, Buff, strlen(Buff), osl_getThreadTextEncoding(), OSTRING_TO_OUSTRING_CVTFLAGS ); OSL_ASSERT(ustrSysPath != NULL); osl_getFileURLFromSystemPath( ustrSysPath, ppLibraryUrl ); rtl_uString_release( ustrSysPath ); return sal_True; } /*****************************************************************************/ /* osl_getModuleURLFromFunctionAddress */ /*****************************************************************************/ sal_Bool SAL_CALL osl_getModuleURLFromFunctionAddress( oslGenericFunction addr, rtl_uString ** ppLibraryUrl ) { return osl_getModuleURLFromAddress( ( void * )addr, ppLibraryUrl ); } /*****************************************************************************/