dlls/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 #define COBJMACROS
  25 #include "wine/unicode.h"
  26 #include "wine/library.h"
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winuser.h"
  30 #include "winnls.h"
  31 #include "winreg.h"
  32 #include "ole2.h"
  33 #include "ocidl.h"
  34 #include "shellapi.h"
  35 #include "xmldom.h"
  36 #include "xmldso.h"
  37
  38 #include "initguid.h"
  39 #include "msxml2.h"
  40 #include "cor.h"
  41 #include "corerror.h"
  42 #include "mscoree.h"
  43 #include "fusion.h"
  44 #include "metahost.h"
  45 #include "wine/list.h"
  46 #include "mscoree_private.h"
  47
  48 #include "wine/debug.h"
  49
  50 WINE_DEFAULT_DEBUG_CHANNEL( mscoree );
  51
  52 LONG dll_refs = 0;
  53
  54 char *WtoA(LPCWSTR wstr)
  55 {
  56     int length;
  57     char *result;
  58
  59     length = WideCharToMultiByte(CP_UTF8, 0, wstr, -1, NULL, 0, NULL, NULL);
  60
  61     result = HeapAlloc(GetProcessHeap(), 0, length);
  62
  63     if (result)
  64         WideCharToMultiByte(CP_UTF8, 0, wstr, -1, result, length, NULL, NULL);
  65
  66     return result;
  67 }
  68
  69 static BOOL get_install_root(LPWSTR install_dir)
  70 {
  71     const WCHAR dotnet_key[] = {'S','O','F','T','W','A','R','E','\\','M','i','c','r','o','s','o','f','t','\\','.','N','E','T','F','r','a','m','e','w','o','r','k','\\',0};
  72     const WCHAR install_root[] = {'I','n','s','t','a','l','l','R','o','o','t',0};
  73
  74     DWORD len;
  75     HKEY key;
  76
  77     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, dotnet_key, 0, KEY_READ, &key))
  78         return FALSE;
  79
  80     len = MAX_PATH;
  81     if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)install_dir, &len))
  82     {
  83         RegCloseKey(key);
  84         return FALSE;
  85     }
  86     RegCloseKey(key);
  87
  88     return TRUE;
  89 }
  90
  91 HRESULT WINAPI CorBindToRuntimeHost(LPCWSTR pwszVersion, LPCWSTR pwszBuildFlavor,
  92                                     LPCWSTR pwszHostConfigFile, VOID *pReserved,
  93                                     DWORD startupFlags, REFCLSID rclsid,
  94                                     REFIID riid, LPVOID *ppv)
  95 {
  96     HRESULT ret;
  97     ICLRRuntimeInfo *info;
  98
  99     TRACE("(%s, %s, %s, %p, %d, %s, %s, %p)\n", debugstr_w(pwszVersion),
 100           debugstr_w(pwszBuildFlavor), debugstr_w(pwszHostConfigFile), pReserved,
 101           startupFlags, debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 102
 103     *ppv = NULL;
 104
 105     ret = get_runtime_info(NULL, pwszVersion, pwszHostConfigFile, startupFlags, 0, TRUE, &info);
 106
 107     if (SUCCEEDED(ret))
 108     {
 109         ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
 110
 111         ICLRRuntimeInfo_Release(info);
 112     }
 113
 114     return ret;
 115 }
 116
 117 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 118 {
 119     TRACE("(%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 120
 121     switch (fdwReason)
 122     {
 123     case DLL_WINE_PREATTACH:
 124         return FALSE;  /* prefer native version */
 125     case DLL_PROCESS_ATTACH:
 126         DisableThreadLibraryCalls(hinstDLL);
 127         break;
 128     case DLL_PROCESS_DETACH:
 129         unload_all_runtimes();
 130         break;
 131     }
 132     return TRUE;
 133 }
 134
 135 BOOL WINAPI _CorDllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 136 {
 137     FIXME("(%p, %d, %p): stub\n", hinstDLL, fdwReason, lpvReserved);
 138
 139     switch (fdwReason)
 140     {
 141     case DLL_PROCESS_ATTACH:
 142         DisableThreadLibraryCalls(hinstDLL);
 143         break;
 144     case DLL_PROCESS_DETACH:
 145         break;
 146     }
 147     return TRUE;
 148 }
 149
 150 __int32 WINAPI _CorExeMain2(PBYTE ptrMemory, DWORD cntMemory, LPWSTR imageName, LPWSTR loaderName, LPWSTR cmdLine)
 151 {
 152     TRACE("(%p, %u, %s, %s, %s)\n", ptrMemory, cntMemory, debugstr_w(imageName), debugstr_w(loaderName), debugstr_w(cmdLine));
 153     FIXME("Directly running .NET applications not supported.\n");
 154     return -1;
 155 }
 156
 157 void WINAPI CorExitProcess(int exitCode)
 158 {
 159     FIXME("(%x) stub\n", exitCode);
 160     ExitProcess(exitCode);
 161 }
 162
 163 VOID WINAPI _CorImageUnloading(PVOID imageBase)
 164 {
 165     TRACE("(%p): stub\n", imageBase);
 166 }
 167
 168 HRESULT WINAPI _CorValidateImage(PVOID* imageBase, LPCWSTR imageName)
 169 {
 170     TRACE("(%p, %s): stub\n", imageBase, debugstr_w(imageName));
 171     return E_FAIL;
 172 }
 173
 174 HRESULT WINAPI GetCORSystemDirectory(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 175 {
 176     ICLRRuntimeInfo *info;
 177     HRESULT ret;
 178
 179     TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
 180
 181     if (!dwLength || !pbuffer)
 182         return E_POINTER;
 183
 184     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 185
 186     if (SUCCEEDED(ret))
 187     {
 188         *dwLength = cchBuffer;
 189         ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pbuffer, dwLength);
 190
 191         ICLRRuntimeInfo_Release(info);
 192     }
 193
 194     return ret;
 195 }
 196
 197 HRESULT WINAPI GetCORVersion(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 198 {
 199     ICLRRuntimeInfo *info;
 200     HRESULT ret;
 201
 202     TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
 203
 204     if (!dwLength || !pbuffer)
 205         return E_POINTER;
 206
 207     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 208
 209     if (SUCCEEDED(ret))
 210     {
 211         *dwLength = cchBuffer;
 212         ret = ICLRRuntimeInfo_GetVersionString(info, pbuffer, dwLength);
 213
 214         ICLRRuntimeInfo_Release(info);
 215     }
 216
 217     return ret;
 218 }
 219
 220 HRESULT WINAPI GetRequestedRuntimeInfo(LPCWSTR pExe, LPCWSTR pwszVersion, LPCWSTR pConfigurationFile,
 221     DWORD startupFlags, DWORD runtimeInfoFlags, LPWSTR pDirectory, DWORD dwDirectory, DWORD *dwDirectoryLength,
 222     LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
 223 {
 224     HRESULT ret;
 225     ICLRRuntimeInfo *info;
 226     DWORD length_dummy;
 227
 228     TRACE("(%s, %s, %s, 0x%08x, 0x%08x, %p, 0x%08x, %p, %p, 0x%08x, %p)\n", debugstr_w(pExe),
 229           debugstr_w(pwszVersion), debugstr_w(pConfigurationFile), startupFlags, runtimeInfoFlags, pDirectory,
 230           dwDirectory, dwDirectoryLength, pVersion, cchBuffer, dwlength);
 231
 232     if (!dwDirectoryLength) dwDirectoryLength = &length_dummy;
 233
 234     if (!dwlength) dwlength = &length_dummy;
 235
 236     ret = get_runtime_info(pExe, pwszVersion, pConfigurationFile, startupFlags, runtimeInfoFlags, TRUE, &info);
 237
 238     if (SUCCEEDED(ret))
 239     {
 240         *dwlength = cchBuffer;
 241         ret = ICLRRuntimeInfo_GetVersionString(info, pVersion, dwlength);
 242
 243         if (SUCCEEDED(ret))
 244         {
 245             *dwDirectoryLength = dwDirectory;
 246             ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pDirectory, dwDirectoryLength);
 247         }
 248
 249         ICLRRuntimeInfo_Release(info);
 250     }
 251
 252     return ret;
 253 }
 254
 255 HRESULT WINAPI LoadLibraryShim( LPCWSTR szDllName, LPCWSTR szVersion, LPVOID pvReserved, HMODULE * phModDll)
 256 {
 257     HRESULT ret=S_OK;
 258     WCHAR dll_filename[MAX_PATH];
 259     WCHAR version[MAX_PATH];
 260     static const WCHAR default_version[] = {'v','1','.','1','.','4','3','2','2',0};
 261     static const WCHAR slash[] = {'\\',0};
 262     DWORD dummy;
 263
 264     TRACE("(%p %s, %p, %p, %p)\n", szDllName, debugstr_w(szDllName), szVersion, pvReserved, phModDll);
 265
 266     if (!szDllName || !phModDll)
 267         return E_POINTER;
 268
 269     if (!get_install_root(dll_filename))
 270     {
 271         ERR("error reading registry key for installroot\n");
 272         dll_filename[0] = 0;
 273     }
 274     else
 275     {
 276         if (!szVersion)
 277         {
 278             ret = GetCORVersion(version, MAX_PATH, &dummy);
 279             if (SUCCEEDED(ret))
 280                 szVersion = version;
 281             else
 282                 szVersion = default_version;
 283         }
 284         strcatW(dll_filename, szVersion);
 285         strcatW(dll_filename, slash);
 286     }
 287
 288     strcatW(dll_filename, szDllName);
 289
 290     *phModDll = LoadLibraryW(dll_filename);
 291
 292     return *phModDll ? S_OK : E_HANDLE;
 293 }
 294
 295 HRESULT WINAPI LockClrVersion(FLockClrVersionCallback hostCallback, FLockClrVersionCallback *pBeginHostSetup, FLockClrVersionCallback *pEndHostSetup)
 296 {
 297     FIXME("(%p %p %p): stub\n", hostCallback, pBeginHostSetup, pEndHostSetup);
 298     return S_OK;
 299 }
 300
 301 HRESULT WINAPI CoInitializeCor(DWORD fFlags)
 302 {
 303     FIXME("(0x%08x): stub\n", fFlags);
 304     return S_OK;
 305 }
 306
 307 HRESULT WINAPI GetAssemblyMDImport(LPCWSTR szFileName, REFIID riid, IUnknown **ppIUnk)
 308 {
 309     FIXME("(%p %s, %s, %p): stub\n", szFileName, debugstr_w(szFileName), debugstr_guid(riid), *ppIUnk);
 310     return ERROR_CALL_NOT_IMPLEMENTED;
 311 }
 312
 313 HRESULT WINAPI GetVersionFromProcess(HANDLE hProcess, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwLength)
 314 {
 315     FIXME("(%p, %p, %d, %p): stub\n", hProcess, pVersion, cchBuffer, dwLength);
 316     return E_NOTIMPL;
 317 }
 318
 319 HRESULT WINAPI LoadStringRCEx(LCID culture, UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet, int* pBufLen)
 320 {
 321     HRESULT res = S_OK;
 322     if ((iBufLen <= 0) || !pBuffer)
 323         return E_INVALIDARG;
 324     pBuffer[0] = 0;
 325     if (resId) {
 326         FIXME("(%d, %x, %p, %d, %d, %p): semi-stub\n", culture, resId, pBuffer, iBufLen, bQuiet, pBufLen);
 327         res = E_NOTIMPL;
 328     }
 329     else
 330         res = E_FAIL;
 331     if (pBufLen)
 332         *pBufLen = lstrlenW(pBuffer);
 333     return res;
 334 }
 335
 336 HRESULT WINAPI LoadStringRC(UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet)
 337 {
 338     return LoadStringRCEx(-1, resId, pBuffer, iBufLen, bQuiet, NULL);
 339 }
 340
 341 HRESULT WINAPI CorBindToRuntimeEx(LPWSTR szVersion, LPWSTR szBuildFlavor, DWORD nflags, REFCLSID rslsid,
 342                                   REFIID riid, LPVOID *ppv)
 343 {
 344     HRESULT ret;
 345     ICLRRuntimeInfo *info;
 346
 347     TRACE("%s %s %d %s %s %p\n", debugstr_w(szVersion), debugstr_w(szBuildFlavor), nflags, debugstr_guid( rslsid ),
 348           debugstr_guid( riid ), ppv);
 349
 350     *ppv = NULL;
 351
 352     ret = get_runtime_info(NULL, szVersion, NULL, nflags, 0, TRUE, &info);
 353
 354     if (SUCCEEDED(ret))
 355     {
 356         ret = ICLRRuntimeInfo_GetInterface(info, rslsid, riid, ppv);
 357
 358         ICLRRuntimeInfo_Release(info);
 359     }
 360
 361     return ret;
 362 }
 363
 364 HRESULT WINAPI CorBindToCurrentRuntime(LPCWSTR filename, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 365 {
 366     FIXME("(%s, %s, %s, %p): stub\n", debugstr_w(filename), debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 367     return E_NOTIMPL;
 368 }
 369
 370 STDAPI ClrCreateManagedInstance(LPCWSTR pTypeName, REFIID riid, void **ppObject)
 371 {
 372     HRESULT ret;
 373     ICLRRuntimeInfo *info;
 374     RuntimeHost *host;
 375     MonoObject *obj;
 376     IUnknown *unk;
 377
 378     TRACE("(%s,%s,%p)\n", debugstr_w(pTypeName), debugstr_guid(riid), ppObject);
 379
 380     /* FIXME: How to determine which runtime version to use? */
 381     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 382
 383     if (SUCCEEDED(ret))
 384     {
 385         ret = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 386
 387         ICLRRuntimeInfo_Release(info);
 388     }
 389
 390     if (SUCCEEDED(ret))
 391         ret = RuntimeHost_CreateManagedInstance(host, pTypeName, NULL, &obj);
 392
 393     if (SUCCEEDED(ret))
 394         ret = RuntimeHost_GetIUnknownForObject(host, obj, &unk);
 395
 396     if (SUCCEEDED(ret))
 397     {
 398         ret = IUnknown_QueryInterface(unk, riid, ppObject);
 399         IUnknown_Release(unk);
 400     }
 401
 402     return ret;
 403 }
 404
 405 BOOL WINAPI StrongNameSignatureVerification(LPCWSTR filename, DWORD inFlags, DWORD* pOutFlags)
 406 {
 407     FIXME("(%s, 0x%X, %p): stub\n", debugstr_w(filename), inFlags, pOutFlags);
 408     return FALSE;
 409 }
 410
 411 BOOL WINAPI StrongNameSignatureVerificationEx(LPCWSTR filename, BOOL forceVerification, BOOL* pVerified)
 412 {
 413     FIXME("(%s, %u, %p): stub\n", debugstr_w(filename), forceVerification, pVerified);
 414     return FALSE;
 415 }
 416
 417 HRESULT WINAPI CLRCreateInstance(REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
 418 {
 419     TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
 420
 421     if (IsEqualGUID(clsid, &CLSID_CLRMetaHost))
 422         return CLRMetaHost_CreateInstance(riid, ppInterface);
 423
 424     FIXME("not implemented for class %s\n", debugstr_guid(clsid));
 425
 426     return CLASS_E_CLASSNOTAVAILABLE;
 427 }
 428
 429 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
 430 {
 431     FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 432     if(!ppv)
 433         return E_INVALIDARG;
 434
 435     return E_NOTIMPL;
 436 }
 437
 438 HRESULT WINAPI DllRegisterServer(void)
 439 {
 440     FIXME("\n");
 441     return S_OK;
 442 }
 443
 444 HRESULT WINAPI DllUnregisterServer(void)
 445 {
 446     FIXME("\n");
 447     return S_OK;
 448 }
 449
 450 HRESULT WINAPI DllCanUnloadNow(VOID)
 451 {
 452     if (dll_refs)
 453         return S_FALSE;
 454     else
 455         return S_OK;
 456 }
 457
 458 INT WINAPI ND_RU1( const void *ptr, INT offset )
 459 {
 460     return *((const BYTE *)ptr + offset);
 461 }
 462
 463 INT WINAPI ND_RI2( const void *ptr, INT offset )
 464 {
 465     return *(const SHORT *)((const BYTE *)ptr + offset);
 466 }
 467
 468 INT WINAPI ND_RI4( const void *ptr, INT offset )
 469 {
 470     return *(const INT *)((const BYTE *)ptr + offset);
 471 }
 472
 473 INT64 WINAPI ND_RI8( const void *ptr, INT offset )
 474 {
 475     return *(const INT64 *)((const BYTE *)ptr + offset);
 476 }
 477
 478 void WINAPI ND_WU1( void *ptr, INT offset, BYTE val )
 479 {
 480     *((BYTE *)ptr + offset) = val;
 481 }
 482
 483 void WINAPI ND_WI2( void *ptr, INT offset, SHORT val )
 484 {
 485     *(SHORT *)((BYTE *)ptr + offset) = val;
 486 }
 487
 488 void WINAPI ND_WI4( void *ptr, INT offset, INT val )
 489 {
 490     *(INT *)((BYTE *)ptr + offset) = val;
 491 }
 492
 493 void WINAPI ND_WI8( void *ptr, INT offset, INT64 val )
 494 {
 495     *(INT64 *)((BYTE *)ptr + offset) = val;
 496 }
 497
 498 void WINAPI ND_CopyObjDst( const void *src, void *dst, INT offset, INT size )
 499 {
 500     memcpy( (BYTE *)dst + offset, src, size );
 501 }
 502
 503 void WINAPI ND_CopyObjSrc( const void *src, INT offset, void *dst, INT size )
 504 {
 505     memcpy( dst, (const BYTE *)src + offset, size );
 506 }