sal/systools/win32/uwinapi/DllMain.cpp

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: DllMain.cpp,v $
  10  * $Revision: 1.9 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #define WIN32_LEAN_AND_MEAN
  32 #ifdef _MSC_VER
  33 #pragma warning(push,1) // disable warnings within system headers
  34 #endif
  35 #include <windows.h>
  36 #ifdef _MSC_VER
  37 #pragma warning(pop)
  38 #endif
  39 #include <malloc.h>
  40 #define _MBCS
  41 #include <tchar.h>
  42
  43
  44 HMODULE         UWINAPI_BaseAddress = NULL;
  45 const CHAR      szUnicowsModuleName[] = "UNICOWS.DLL";
  46
  47 static HMODULE WINAPI _LoadUnicowsLibrary(VOID)
  48 {
  49     CHAR                szModulePath[MAX_PATH];
  50     HMODULE             hModuleUnicows = NULL;
  51
  52     // First search in the same directory as UWINAPI.DLL was loaded from. This is because
  53     // UWINAPI.DLL not always resides in the same directory as the actual application.
  54
  55     if ( UWINAPI_BaseAddress && GetModuleFileNameA( UWINAPI_BaseAddress, szModulePath, MAX_PATH ) )
  56     {
  57         char    *lpLastBkSlash = _tcsrchr( szModulePath, '\\' );
  58
  59         if ( lpLastBkSlash )
  60         {
  61             size_t      nParentDirSize = (size_t) (_tcsinc( lpLastBkSlash ) - szModulePath);
  62             LPSTR       lpUnicowsModulePath = (LPTSTR)_alloca( nParentDirSize + sizeof(szUnicowsModuleName) );
  63
  64             if ( lpUnicowsModulePath )
  65             {
  66                 _tcsncpy( lpUnicowsModulePath, szModulePath, nParentDirSize );
  67                 _tcscpy( lpUnicowsModulePath + nParentDirSize, szUnicowsModuleName );
  68
  69                 hModuleUnicows = LoadLibraryA( lpUnicowsModulePath );
  70             }
  71         }
  72     }
  73
  74     // Search at the common places
  75
  76     if ( !hModuleUnicows )
  77         hModuleUnicows = LoadLibraryA(szUnicowsModuleName);
  78
  79     return hModuleUnicows;
  80 }
  81
  82 static HMODULE WINAPI LoadUnicowsLibrary(VOID)
  83 {
  84     HMODULE     hModuleUnicows;
  85     int         idMsg = IDOK;
  86
  87     do
  88     {
  89         hModuleUnicows = _LoadUnicowsLibrary();
  90
  91         if ( !hModuleUnicows )
  92         {
  93             LPVOID lpMsgBuf;
  94
  95             FormatMessageA(
  96                 FORMAT_MESSAGE_ALLOCATE_BUFFER |
  97                 FORMAT_MESSAGE_FROM_SYSTEM |
  98                 FORMAT_MESSAGE_IGNORE_INSERTS,
  99                 NULL,
 100                 ERROR_DLL_NOT_FOUND /* GetLastError() */,
 101                 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
 102                 (LPSTR)&lpMsgBuf,
 103                 0,
 104                 NULL
 105             );
 106             // Process any inserts in lpMsgBuf.
 107             CHAR szModuleFileName[MAX_PATH];
 108
 109             GetModuleFileNameA( NULL, szModuleFileName, sizeof(szModuleFileName) );
 110             LPSTR       lpMessage = (LPSTR)_alloca( strlen( (LPCSTR)lpMsgBuf ) + sizeof(szUnicowsModuleName) + 1 );
 111             strcpy( lpMessage, (LPCSTR)lpMsgBuf );
 112             strcat( lpMessage, "\n" );
 113             strcat( lpMessage, szUnicowsModuleName );
 114             // Free the buffer.
 115             LocalFree( lpMsgBuf );
 116             // Display the string.
 117             idMsg = MessageBoxA( NULL, lpMessage,
 118                 szModuleFileName, MB_ABORTRETRYIGNORE | MB_ICONERROR | MB_TASKMODAL );
 119
 120             if ( IDABORT == idMsg )
 121                 TerminateProcess( GetCurrentProcess(), 255 );
 122         }
 123     } while ( !hModuleUnicows && IDRETRY == idMsg );
 124
 125     return hModuleUnicows;
 126 }
 127
 128 extern "C" {
 129 FARPROC _PfnLoadUnicows = (FARPROC)LoadUnicowsLibrary;
 130 }
 131
 132 #ifdef __MINGW32__
 133
 134 extern "C" {
 135
 136 typedef void (*func_ptr) (void);
 137 extern func_ptr __CTOR_LIST__[];
 138 extern func_ptr __DTOR_LIST__[];
 139
 140 static void do_startup(void);
 141 static void do_cleanup(void);
 142
 143 HMODULE hModuleUnicowsDLL;
 144
 145 void
 146 __do_global_dtors (void)
 147 {
 148   static func_ptr *p = __DTOR_LIST__ + 1;
 149
 150   /*
 151    * Call each destructor in the destructor list until a null pointer
 152    * is encountered.
 153    */
 154   while (*p)
 155     {
 156       (*(p)) ();
 157       p++;
 158     }
 159 }
 160
 161 void
 162 __do_global_ctors (void)
 163 {
 164   unsigned long nptrs = (unsigned long) __CTOR_LIST__[0];
 165   unsigned i;
 166
 167   /*
 168    * If the first entry in the constructor list is -1 then the list
 169    * is terminated with a null entry. Otherwise the first entry was
 170    * the number of pointers in the list.
 171    */
 172   if (nptrs == static_cast<unsigned long>(-1))
 173     {
 174       for (nptrs = 0; __CTOR_LIST__[nptrs + 1] != 0; nptrs++)
 175     ;
 176     }
 177
 178   /*
 179    * Go through the list backwards calling constructors.
 180    */
 181   for (i = nptrs; i >= 1; i--)
 182     {
 183       __CTOR_LIST__[i] ();
 184     }
 185
 186   /*
 187    * Register the destructors for processing on exit.
 188    */
 189   atexit (__do_global_dtors);
 190 }
 191
 192 static int initialized = 0;
 193
 194 void
 195 __main (void)
 196 {
 197   if (!initialized)
 198     {
 199       initialized = 1;
 200       do_startup();
 201       __do_global_ctors ();
 202     }
 203 }
 204
 205 static void do_startup( void )
 206 {
 207     if (((LONG)GetVersion()&0x800000ff) == 0x80000004)
 208         {
 209         hModuleUnicowsDLL = LoadUnicowsLibrary();
 210         if (hModuleUnicowsDLL)
 211             atexit(do_cleanup);
 212     }
 213 }
 214
 215 void do_cleanup( void )
 216 {
 217     FreeLibrary(hModuleUnicowsDLL);
 218 }
 219 }
 220
 221 #endif
 222
 223 extern "C" BOOL WINAPI DllMain( HMODULE hModule, DWORD dwReason, LPVOID )
 224 {
 225     switch ( dwReason )
 226     {
 227     case DLL_PROCESS_ATTACH:
 228         UWINAPI_BaseAddress = hModule;
 229         return DisableThreadLibraryCalls( hModule );
 230     default:
 231         return TRUE;
 232     }
 233
 234 }
 235
 236
 237
 238
 239