AOO410/main/sal/osl/os2/module.c - openoffice - Git at Google

 /**************************************************************
  *
  * 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 <osl/module.h>
 #include <osl/diagnose.h>
 #include <osl/file.h>
 #include <osl/thread.h>

 #include <stdlib.h>
 #include <dlfcn.h>

 #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;

 	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)
 		return (oslModule)hModule;

 	// do not show in case rc=2 ENOENT, we must parse dlerror
 	// string to detect it
 	char* err = dlerror();
 	if (!err)
 		return NULL;

 	if (strstr( err, "rc=2") != NULL)
 		return NULL;

 	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, err);
 #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 NULL;
 }

 /*****************************************************************************/
 /* 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 );
 }

 /*****************************************************************************/
	/**************************************************************
	*
	* 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 <osl/module.h>
	#include <osl/diagnose.h>
	#include <osl/file.h>
	#include <osl/thread.h>

	#include <stdlib.h>
	#include <dlfcn.h>

	#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;

	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)
	return (oslModule)hModule;

	// do not show in case rc=2 ENOENT, we must parse dlerror
	// string to detect it
	char* err = dlerror();
	if (!err)
	return NULL;

	if (strstr( err, "rc=2") != NULL)
	return NULL;

	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, err);
	#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 NULL;
	}

	/*****************************************************************************/
	/* 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 );
	}

	/*****************************************************************************/