text: /**************************************************************
   * 
   * 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=NULL;
  
      OSL_ENSURE(Module,"osl_getSymbol : module handle is not valid");
      OSL_ENSURE(Module,"osl_getSymbol : ustrSymbolName");
  
      if ( Module!= 0 && pSymbol != NULL )
      {
  
  		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 ); 
  }
  
  /*****************************************************************************/
  
  