summaryrefslogtreecommitdiff
path: root/sal/osl/os2/module.c
diff options
context:
space:
mode:
Diffstat (limited to 'sal/osl/os2/module.c')
-rw-r--r--sal/osl/os2/module.c281
1 files changed, 281 insertions, 0 deletions
diff --git a/sal/osl/os2/module.c b/sal/osl/os2/module.c
new file mode 100644
index 000000000000..421b78195d83
--- /dev/null
+++ b/sal/osl/os2/module.c
@@ -0,0 +1,281 @@
+/*************************************************************************
+ *
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * Copyright 2000, 2010 Oracle and/or its affiliates.
+ *
+ * OpenOffice.org - a multi-platform office productivity suite
+ *
+ * This file is part of OpenOffice.org.
+ *
+ * OpenOffice.org is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License version 3
+ * only, as published by the Free Software Foundation.
+ *
+ * OpenOffice.org is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU Lesser General Public License version 3 for more details
+ * (a copy is included in the LICENSE file that accompanied this code).
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * version 3 along with OpenOffice.org. If not, see
+ * <http://www.openoffice.org/license.html>
+ * for a copy of the LGPLv3 License.
+ *
+ ************************************************************************/
+
+
+#include "system.h"
+
+#include <osl/module.h>
+#include <osl/diagnose.h>
+#include <osl/file.h>
+#include <osl/thread.h>
+
+#include <stdlib.h>
+
+int UnicodeToText(char *, size_t, const sal_Unicode *, sal_Int32);
+
+// static data for holding SAL dll module and full path
+static HMODULE hModSal;
+static char szSalDir[ _MAX_PATH];
+static char szSalDrive[ _MAX_PATH];
+
+/*****************************************************************************/
+/* osl_loadModule */
+/*****************************************************************************/
+
+ULONG APIENTRY _DosLoadModule (PSZ pszObject, ULONG uObjectLen, PCSZ pszModule,
+ PHMODULE phmod)
+{
+ APIRET rc;
+ rc = DosLoadModule( pszObject, uObjectLen, pszModule, phmod);
+ // YD 22/05/06 issue again if first call fails (why?)
+ if (rc == ERROR_INVALID_PARAMETER)
+ rc = DosLoadModule( pszObject, uObjectLen, pszModule, phmod);
+ return rc;
+}
+
+oslModule SAL_CALL osl_loadModule(rtl_uString *ustrModuleName, sal_Int32 nRtldMode)
+{
+ HMODULE hModule;
+ BYTE szErrorMessage[256];
+ APIRET rc;
+ 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 ) )
+ {
+ char drive[_MAX_DRIVE], dir[_MAX_DIR];
+ char fname[_MAX_FNAME], ext[_MAX_EXT];
+ char* dot;
+ // 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 (buffer, 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);
+
+ rc = _DosLoadModule( szErrorMessage, sizeof( szErrorMessage), (PCSZ)buffer, &hModule);
+ if (rc == NO_ERROR )
+ pModule = (oslModule)hModule;
+ else
+ {
+ if (rc == NO_ERROR )
+ pModule = (oslModule)hModule;
+ else
+ {
+ sal_Char szError[ PATH_MAX*2 ];
+ sprintf( szError, "Module: %s; rc: %d;\nReason: %s;\n"
+ "Please contact technical support and report above informations.\n\n",
+ buffer, rc, szErrorMessage );
+#if OSL_DEBUG_LEVEL>0
+ fprintf( stderr, szError);
+#endif
+ //OSL_TRACE(szError);
+#ifndef OSL_DEBUG_LEVEL
+ WinMessageBox(HWND_DESKTOP,HWND_DESKTOP,
+ szError, "Critical error: DosLoadModule failed",
+ 0, MB_ERROR | MB_OK | MB_MOVEABLE);
+#endif
+ }
+ }
+ }
+ }
+
+ rtl_uString_release( ustrTmp );
+
+ return pModule;
+}
+
+/*****************************************************************************/
+/* osl_getModuleHandle */
+/*****************************************************************************/
+
+sal_Bool SAL_CALL
+osl_getModuleHandle(rtl_uString *pModuleName, oslModule *pResult)
+{
+ HMODULE hmod;
+ APIRET rc;
+ rc = DosQueryModuleHandle(pModuleName->buffer, &hmod);
+ if( rc == NO_ERROR)
+ {
+ *pResult = (oslModule) hmod;
+ return sal_True;
+ }
+
+ return sal_False;
+}
+
+/*****************************************************************************/
+/* osl_unloadModule */
+/*****************************************************************************/
+void SAL_CALL osl_unloadModule(oslModule Module)
+{
+#if OSL_DEBUG_LEVEL>0
+ if (!Module)
+ fprintf( stderr, "osl_unloadModule NULL HANDLE.\n");
+#endif
+
+ DosFreeModule((HMODULE)Module);
+}
+
+/*****************************************************************************/
+/* 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 );
+}
+
+/*****************************************************************************/
+
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-12 20:49:37 +0000