reactos/dll/win32/mscoree/mscoree_main.c

   1 /*
   2  * Implementation of mscoree.dll
   3  * Microsoft Component Object Runtime Execution Engine
   4  *
   5  * Copyright 2006 Paul Chitescu
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include <stdarg.h>
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "winreg.h"
  28 #include "ole2.h"
  29
  30 #include "initguid.h"
  31 #include "cor.h"
  32 #include "mscoree.h"
  33 #include "mscoree_private.h"
  34
  35 #include "wine/debug.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL( mscoree );
  38
  39 static LPWSTR get_mono_exe(void)
  40 {
  41     static const WCHAR mono_exe[] = {'b','i','n','\\','m','o','n','o','.','e','x','e',' ',0};
  42     static const WCHAR mono_key[] = {'S','o','f','t','w','a','r','e','\\','N','o','v','e','l','l','\\','M','o','n','o',0};
  43     static const WCHAR defaul_clr[] = {'D','e','f','a','u','l','t','C','L','R',0};
  44     static const WCHAR install_root[] = {'S','d','k','I','n','s','t','a','l','l','R','o','o','t',0};
  45     static const WCHAR slash[] = {'\\',0};
  46
  47     WCHAR version[64], version_key[MAX_PATH], root[MAX_PATH], *ret;
  48     DWORD len, size;
  49     HKEY key;
  50
  51     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, mono_key, 0, KEY_READ, &key))
  52         return NULL;
  53
  54     len = sizeof(version);
  55     if (RegQueryValueExW(key, defaul_clr, 0, NULL, (LPBYTE)version, &len))
  56     {
  57         RegCloseKey(key);
  58         return NULL;
  59     }
  60     RegCloseKey(key);
  61
  62     lstrcpyW(version_key, mono_key);
  63     lstrcatW(version_key, slash);
  64     lstrcatW(version_key, version);
  65
  66     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, version_key, 0, KEY_READ, &key))
  67         return NULL;
  68
  69     len = sizeof(root);
  70     if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)root, &len))
  71     {
  72         RegCloseKey(key);
  73         return NULL;
  74     }
  75     RegCloseKey(key);
  76
  77     size = len + sizeof(slash) + sizeof(mono_exe);
  78     if (!(ret = HeapAlloc(GetProcessHeap(), 0, size))) return NULL;
  79
  80     lstrcpyW(ret, root);
  81     lstrcatW(ret, slash);
  82     lstrcatW(ret, mono_exe);
  83
  84     return ret;
  85 }
  86
  87 HRESULT WINAPI CorBindToRuntimeHost(LPCWSTR pwszVersion, LPCWSTR pwszBuildFlavor,
  88                                     LPCWSTR pwszHostConfigFile, VOID *pReserved,
  89                                     DWORD startupFlags, REFCLSID rclsid,
  90                                     REFIID riid, LPVOID *ppv)
  91 {
  92     WCHAR *mono_exe;
  93
  94     FIXME("(%s, %s, %s, %p, %d, %s, %s, %p): semi-stub!\n", debugstr_w(pwszVersion),
  95           debugstr_w(pwszBuildFlavor), debugstr_w(pwszHostConfigFile), pReserved,
  96           startupFlags, debugstr_guid(rclsid), debugstr_guid(riid), ppv);
  97
  98     if (!(mono_exe = get_mono_exe()))
  99     {
 100         MESSAGE("wine: Install the Windows version of Mono to run .NET executables\n");
 101         return E_FAIL;
 102     }
 103
 104     HeapFree(GetProcessHeap(), 0, mono_exe);
 105
 106     return S_OK;
 107 }
 108
 109 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 110 {
 111     TRACE("(%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 112
 113     switch (fdwReason)
 114     {
 115     case DLL_WINE_PREATTACH:
 116         return FALSE;  /* prefer native version */
 117     case DLL_PROCESS_ATTACH:
 118         DisableThreadLibraryCalls(hinstDLL);
 119         break;
 120     case DLL_PROCESS_DETACH:
 121         break;
 122     }
 123     return TRUE;
 124 }
 125
 126 BOOL WINAPI _CorDllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 127 {
 128     FIXME("(%p, %d, %p): stub\n", hinstDLL, fdwReason, lpvReserved);
 129
 130     switch (fdwReason)
 131     {
 132     case DLL_PROCESS_ATTACH:
 133         DisableThreadLibraryCalls(hinstDLL);
 134         break;
 135     case DLL_PROCESS_DETACH:
 136         break;
 137     }
 138     return TRUE;
 139 }
 140
 141 __int32 WINAPI _CorExeMain(void)
 142 {
 143     STARTUPINFOW si;
 144     PROCESS_INFORMATION pi;
 145     WCHAR *mono_exe, *cmd_line;
 146     DWORD size, exit_code;
 147     static const WCHAR WINE_MONO_TRACE[]={'W','I','N','E','_','M','O','N','O','_','T','R','A','C','E',0};
 148     static const WCHAR trace_switch_start[]={'"','-','-','t','r','a','c','e','=',0};
 149     static const WCHAR trace_switch_end[]={'"',' ',0};
 150     int trace_size;
 151     WCHAR trace_setting[256];
 152
 153     if (!(mono_exe = get_mono_exe()))
 154     {
 155         MESSAGE("install the Windows version of Mono to run .NET executables\n");
 156         return -1;
 157     }
 158
 159     trace_size = GetEnvironmentVariableW(WINE_MONO_TRACE, trace_setting, sizeof(trace_setting)/sizeof(WCHAR));
 160
 161     size = (lstrlenW(mono_exe) + lstrlenW(GetCommandLineW()) + 1) * sizeof(WCHAR);
 162
 163     if (trace_size)
 164         size += (trace_size + lstrlenW(trace_switch_start) + lstrlenW(trace_switch_end)) * sizeof(WCHAR);
 165
 166     if (!(cmd_line = HeapAlloc(GetProcessHeap(), 0, size)))
 167     {
 168         HeapFree(GetProcessHeap(), 0, mono_exe);
 169         return -1;
 170     }
 171
 172     lstrcpyW(cmd_line, mono_exe);
 173     HeapFree(GetProcessHeap(), 0, mono_exe);
 174
 175     if (trace_size)
 176     {
 177         lstrcatW(cmd_line, trace_switch_start);
 178         lstrcatW(cmd_line, trace_setting);
 179         lstrcatW(cmd_line, trace_switch_end);
 180     }
 181
 182     lstrcatW(cmd_line, GetCommandLineW());
 183
 184     TRACE("new command line: %s\n", debugstr_w(cmd_line));
 185
 186     memset(&si, 0, sizeof(si));
 187     si.cb = sizeof(si);
 188     if (!CreateProcessW(NULL, cmd_line, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi))
 189     {
 190         HeapFree(GetProcessHeap(), 0, cmd_line);
 191         return -1;
 192     }
 193     HeapFree(GetProcessHeap(), 0, cmd_line);
 194
 195     /* wait for the process to exit */
 196     WaitForSingleObject(pi.hProcess, INFINITE);
 197     GetExitCodeProcess(pi.hProcess, &exit_code);
 198
 199     CloseHandle(pi.hThread);
 200     CloseHandle(pi.hProcess);
 201
 202     return (int)exit_code;
 203 }
 204
 205 __int32 WINAPI _CorExeMain2(PBYTE ptrMemory, DWORD cntMemory, LPWSTR imageName, LPWSTR loaderName, LPWSTR cmdLine)
 206 {
 207     TRACE("(%p, %u, %s, %s, %s)\n", ptrMemory, cntMemory, debugstr_w(imageName), debugstr_w(loaderName), debugstr_w(cmdLine));
 208     FIXME("Directly running .NET applications not supported.\n");
 209     return -1;
 210 }
 211
 212 void WINAPI CorExitProcess(int exitCode)
 213 {
 214     FIXME("(%x) stub\n", exitCode);
 215     ExitProcess(exitCode);
 216 }
 217
 218 VOID WINAPI _CorImageUnloading(PVOID imageBase)
 219 {
 220     TRACE("(%p): stub\n", imageBase);
 221 }
 222
 223 HRESULT WINAPI _CorValidateImage(PVOID* imageBase, LPCWSTR imageName)
 224 {
 225     TRACE("(%p, %s): stub\n", imageBase, debugstr_w(imageName));
 226     return E_FAIL;
 227 }
 228
 229 HRESULT WINAPI GetCORSystemDirectory(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 230 {
 231     FIXME("(%p, %d, %p): stub!\n", pbuffer, cchBuffer, dwLength);
 232
 233     if (!dwLength)
 234         return E_POINTER;
 235
 236     *dwLength = 0;
 237
 238     return S_OK;
 239 }
 240
 241 HRESULT WINAPI GetCORVersion(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 242 {
 243     static const WCHAR version[] = {'v','1','.','1','.','4','3','2','2',0};
 244
 245     FIXME("(%p, %d, %p): semi-stub!\n", pbuffer, cchBuffer, dwLength);
 246
 247     if (!dwLength)
 248         return E_POINTER;
 249
 250     *dwLength = lstrlenW(version);
 251
 252     if (cchBuffer < *dwLength)
 253         return ERROR_INSUFFICIENT_BUFFER;
 254
 255     if (pbuffer)
 256         lstrcpyW(pbuffer, version);
 257
 258     return S_OK;
 259 }
 260
 261 HRESULT WINAPI GetRequestedRuntimeInfo(LPCWSTR pExe, LPCWSTR pwszVersion, LPCWSTR pConfigurationFile,
 262     DWORD startupFlags, DWORD runtimeInfoFlags, LPWSTR pDirectory, DWORD dwDirectory, DWORD *dwDirectoryLength,
 263     LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
 264 {
 265     FIXME("(%s, %s, %s, 0x%08x, 0x%08x, %p, 0x%08x, %p, %p, 0x%08x, %p) stub\n", debugstr_w(pExe),
 266           debugstr_w(pwszVersion), debugstr_w(pConfigurationFile), startupFlags, runtimeInfoFlags, pDirectory,
 267           dwDirectory, dwDirectoryLength, pVersion, cchBuffer, dwlength);
 268     return GetCORVersion(pVersion, cchBuffer, dwlength);
 269 }
 270
 271 HRESULT WINAPI LoadLibraryShim( LPCWSTR szDllName, LPCWSTR szVersion, LPVOID pvReserved, HMODULE * phModDll)
 272 {
 273     FIXME("(%p %s, %p, %p, %p): semi-stub\n", szDllName, debugstr_w(szDllName), szVersion, pvReserved, phModDll);
 274
 275     if (phModDll) *phModDll = LoadLibraryW(szDllName);
 276     return S_OK;
 277 }
 278
 279 HRESULT WINAPI LockClrVersion(FLockClrVersionCallback hostCallback, FLockClrVersionCallback *pBeginHostSetup, FLockClrVersionCallback *pEndHostSetup)
 280 {
 281     FIXME("(%p %p %p): stub\n", hostCallback, pBeginHostSetup, pEndHostSetup);
 282     return S_OK;
 283 }
 284
 285 HRESULT WINAPI CoInitializeCor(DWORD fFlags)
 286 {
 287     FIXME("(0x%08x): stub\n", fFlags);
 288     return S_OK;
 289 }
 290
 291 HRESULT WINAPI GetAssemblyMDImport(LPCWSTR szFileName, REFIID riid, IUnknown **ppIUnk)
 292 {
 293     FIXME("(%p %s, %s, %p): stub\n", szFileName, debugstr_w(szFileName), debugstr_guid(riid), *ppIUnk);
 294     return ERROR_CALL_NOT_IMPLEMENTED;
 295 }
 296
 297 HRESULT WINAPI GetVersionFromProcess(HANDLE hProcess, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwLength)
 298 {
 299     FIXME("(%p, %p, %d, %p): stub\n", hProcess, pVersion, cchBuffer, dwLength);
 300     return E_NOTIMPL;
 301 }
 302
 303 HRESULT WINAPI LoadStringRCEx(LCID culture, UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet, int* pBufLen)
 304 {
 305     HRESULT res = S_OK;
 306     if ((iBufLen <= 0) || !pBuffer)
 307         return E_INVALIDARG;
 308     pBuffer[0] = 0;
 309     if (resId) {
 310         FIXME("(%d, %x, %p, %d, %d, %p): semi-stub\n", culture, resId, pBuffer, iBufLen, bQuiet, pBufLen);
 311         res = E_NOTIMPL;
 312     }
 313     else
 314         res = E_FAIL;
 315     if (pBufLen)
 316         *pBufLen = lstrlenW(pBuffer);
 317     return res;
 318 }
 319
 320 HRESULT WINAPI LoadStringRC(UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet)
 321 {
 322     return LoadStringRCEx(-1, resId, pBuffer, iBufLen, bQuiet, NULL);
 323 }
 324
 325 HRESULT WINAPI CorBindToRuntimeEx(LPWSTR szVersion, LPWSTR szBuildFlavor, DWORD nflags, REFCLSID rslsid,
 326                                   REFIID riid, LPVOID *ppv)
 327 {
 328     FIXME("%s %s %d %s %s %p\n", debugstr_w(szVersion), debugstr_w(szBuildFlavor), nflags, debugstr_guid( rslsid ),
 329           debugstr_guid( riid ), ppv);
 330
 331     if(IsEqualGUID( riid, &IID_ICorRuntimeHost ))
 332     {
 333         *ppv = create_corruntimehost();
 334         return S_OK;
 335     }
 336     *ppv = NULL;
 337     return E_NOTIMPL;
 338 }
 339
 340 HRESULT WINAPI CorBindToCurrentRuntime(LPCWSTR filename, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 341 {
 342     FIXME("(%s, %s, %s, %p): stub\n", debugstr_w(filename), debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 343     return E_NOTIMPL;
 344 }
 345
 346 STDAPI ClrCreateManagedInstance(LPCWSTR pTypeName, REFIID riid, void **ppObject)
 347 {
 348     FIXME("(%s,%s,%p)\n", debugstr_w(pTypeName), debugstr_guid(riid), ppObject);
 349     return E_NOTIMPL;
 350 }
 351
 352 BOOL WINAPI StrongNameSignatureVerification(LPCWSTR filename, DWORD inFlags, DWORD* pOutFlags)
 353 {
 354     FIXME("(%s, 0x%X, %p): stub\n", debugstr_w(filename), inFlags, pOutFlags);
 355     return FALSE;
 356 }
 357
 358 BOOL WINAPI StrongNameSignatureVerificationEx(LPCWSTR filename, BOOL forceVerification, BOOL* pVerified)
 359 {
 360     FIXME("(%s, %u, %p): stub\n", debugstr_w(filename), forceVerification, pVerified);
 361     return FALSE;
 362 }
 363
 364 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
 365 {
 366     FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 367     if(!ppv)
 368         return E_INVALIDARG;
 369
 370     return E_NOTIMPL;
 371 }
 372
 373 HRESULT WINAPI DllRegisterServer(void)
 374 {
 375     FIXME("\n");
 376     return S_OK;
 377 }
 378
 379 HRESULT WINAPI DllUnregisterServer(void)
 380 {
 381     FIXME("\n");
 382     return S_OK;
 383 }
 384
 385 HRESULT WINAPI DllCanUnloadNow(VOID)
 386 {
 387     return S_OK;
 388 }
 389
 390 INT WINAPI ND_RU1( const void *ptr, INT offset )
 391 {
 392     return *((const BYTE *)ptr + offset);
 393 }
 394
 395 INT WINAPI ND_RI2( const void *ptr, INT offset )
 396 {
 397     return *(const SHORT *)((const BYTE *)ptr + offset);
 398 }
 399
 400 INT WINAPI ND_RI4( const void *ptr, INT offset )
 401 {
 402     return *(const INT *)((const BYTE *)ptr + offset);
 403 }
 404
 405 INT64 WINAPI ND_RI8( const void *ptr, INT offset )
 406 {
 407     return *(const INT64 *)((const BYTE *)ptr + offset);
 408 }
 409
 410 void WINAPI ND_WU1( void *ptr, INT offset, BYTE val )
 411 {
 412     *((BYTE *)ptr + offset) = val;
 413 }
 414
 415 void WINAPI ND_WI2( void *ptr, INT offset, SHORT val )
 416 {
 417     *(SHORT *)((BYTE *)ptr + offset) = val;
 418 }
 419
 420 void WINAPI ND_WI4( void *ptr, INT offset, INT val )
 421 {
 422     *(INT *)((BYTE *)ptr + offset) = val;
 423 }
 424
 425 void WINAPI ND_WI8( void *ptr, INT offset, INT64 val )
 426 {
 427     *(INT64 *)((BYTE *)ptr + offset) = val;
 428 }
 429
 430 void WINAPI ND_CopyObjDst( const void *src, void *dst, INT offset, INT size )
 431 {
 432     memcpy( (BYTE *)dst + offset, src, size );
 433 }
 434
 435 void WINAPI ND_CopyObjSrc( const void *src, INT offset, void *dst, INT size )
 436 {
 437     memcpy( dst, (const BYTE *)src + offset, size );
 438 }