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
  36 #include "initguid.h"
  37 #include "msxml2.h"
  38 #include "corerror.h"
  39 #include "cor.h"
  40 #include "mscoree.h"
  41 #include "corhdr.h"
  42 #include "cordebug.h"
  43 #include "metahost.h"
  44 #include "fusion.h"
  45 #include "wine/list.h"
  46 #include "mscoree_private.h"
  47 #include "rpcproxy.h"
  48
  49 #include "wine/debug.h"
  50
  51 WINE_DEFAULT_DEBUG_CHANNEL( mscoree );
  52
  53 static HINSTANCE MSCOREE_hInstance;
  54
  55 typedef HRESULT (*fnCreateInstance)(REFIID riid, LPVOID *ppObj);
  56
  57 char *WtoA(LPCWSTR wstr)
  58 {
  59     int length;
  60     char *result;
  61
  62     length = WideCharToMultiByte(CP_UTF8, 0, wstr, -1, NULL, 0, NULL, NULL);
  63
  64     result = HeapAlloc(GetProcessHeap(), 0, length);
  65
  66     if (result)
  67         WideCharToMultiByte(CP_UTF8, 0, wstr, -1, result, length, NULL, NULL);
  68
  69     return result;
  70 }
  71
  72 static BOOL get_install_root(LPWSTR install_dir)
  73 {
  74     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};
  75     const WCHAR install_root[] = {'I','n','s','t','a','l','l','R','o','o','t',0};
  76
  77     DWORD len;
  78     HKEY key;
  79
  80     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, dotnet_key, 0, KEY_READ, &key))
  81         return FALSE;
  82
  83     len = MAX_PATH;
  84     if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)install_dir, &len))
  85     {
  86         RegCloseKey(key);
  87         return FALSE;
  88     }
  89     RegCloseKey(key);
  90
  91     return TRUE;
  92 }
  93
  94 typedef struct mscorecf
  95 {
  96     IClassFactory    IClassFactory_iface;
  97     LONG ref;
  98
  99     fnCreateInstance pfnCreateInstance;
 100
 101     CLSID clsid;
 102 } mscorecf;
 103
 104 static inline mscorecf *impl_from_IClassFactory( IClassFactory *iface )
 105 {
 106     return CONTAINING_RECORD(iface, mscorecf, IClassFactory_iface);
 107 }
 108
 109 static HRESULT WINAPI mscorecf_QueryInterface(IClassFactory *iface, REFIID riid, LPVOID *ppobj )
 110 {
 111     TRACE("%s %p\n", debugstr_guid(riid), ppobj);
 112
 113     if (IsEqualGUID(riid, &IID_IUnknown) ||
 114         IsEqualGUID(riid, &IID_IClassFactory))
 115     {
 116         IClassFactory_AddRef( iface );
 117         *ppobj = iface;
 118         return S_OK;
 119     }
 120
 121     ERR("interface %s not implemented\n", debugstr_guid(riid));
 122     return E_NOINTERFACE;
 123 }
 124
 125 static ULONG WINAPI mscorecf_AddRef(IClassFactory *iface )
 126 {
 127     mscorecf *This = impl_from_IClassFactory(iface);
 128     ULONG ref = InterlockedIncrement(&This->ref);
 129
 130     TRACE("%p ref=%u\n", This, ref);
 131
 132     return ref;
 133 }
 134
 135 static ULONG WINAPI mscorecf_Release(IClassFactory *iface )
 136 {
 137     mscorecf *This = impl_from_IClassFactory(iface);
 138     ULONG ref = InterlockedDecrement(&This->ref);
 139
 140     TRACE("%p ref=%u\n", This, ref);
 141
 142     if (ref == 0)
 143     {
 144         HeapFree(GetProcessHeap(), 0, This);
 145     }
 146
 147     return ref;
 148 }
 149
 150 static HRESULT WINAPI mscorecf_CreateInstance(IClassFactory *iface,LPUNKNOWN pOuter,
 151                             REFIID riid, LPVOID *ppobj )
 152 {
 153     mscorecf *This = impl_from_IClassFactory( iface );
 154     HRESULT hr;
 155     IUnknown *punk;
 156
 157     TRACE("%p %s %p\n", pOuter, debugstr_guid(riid), ppobj );
 158
 159     *ppobj = NULL;
 160
 161     if (pOuter)
 162         return CLASS_E_NOAGGREGATION;
 163
 164     hr = This->pfnCreateInstance( &This->clsid, (LPVOID*) &punk );
 165     if (SUCCEEDED(hr))
 166     {
 167         hr = IUnknown_QueryInterface( punk, riid, ppobj );
 168
 169         IUnknown_Release( punk );
 170     }
 171     else
 172     {
 173         WARN("Cannot create an instance object. 0x%08x\n", hr);
 174     }
 175     return hr;
 176 }
 177
 178 static HRESULT WINAPI mscorecf_LockServer(IClassFactory *iface, BOOL dolock)
 179 {
 180     FIXME("(%p)->(%d),stub!\n",iface,dolock);
 181     return S_OK;
 182 }
 183
 184 static const struct IClassFactoryVtbl mscorecf_vtbl =
 185 {
 186     mscorecf_QueryInterface,
 187     mscorecf_AddRef,
 188     mscorecf_Release,
 189     mscorecf_CreateInstance,
 190     mscorecf_LockServer
 191 };
 192
 193 HRESULT WINAPI CorBindToRuntimeHost(LPCWSTR pwszVersion, LPCWSTR pwszBuildFlavor,
 194                                     LPCWSTR pwszHostConfigFile, VOID *pReserved,
 195                                     DWORD startupFlags, REFCLSID rclsid,
 196                                     REFIID riid, LPVOID *ppv)
 197 {
 198     HRESULT ret;
 199     ICLRRuntimeInfo *info;
 200
 201     TRACE("(%s, %s, %s, %p, %d, %s, %s, %p)\n", debugstr_w(pwszVersion),
 202           debugstr_w(pwszBuildFlavor), debugstr_w(pwszHostConfigFile), pReserved,
 203           startupFlags, debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 204
 205     *ppv = NULL;
 206
 207     ret = get_runtime_info(NULL, pwszVersion, pwszHostConfigFile, startupFlags, 0, TRUE, &info);
 208
 209     if (SUCCEEDED(ret))
 210     {
 211         ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
 212
 213         ICLRRuntimeInfo_Release(info);
 214     }
 215
 216     return ret;
 217 }
 218
 219 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 220 {
 221     TRACE("(%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 222
 223     MSCOREE_hInstance = hinstDLL;
 224
 225     switch (fdwReason)
 226     {
 227     case DLL_WINE_PREATTACH:
 228         return FALSE;  /* prefer native version */
 229     case DLL_PROCESS_ATTACH:
 230         runtimehost_init();
 231         DisableThreadLibraryCalls(hinstDLL);
 232         break;
 233     case DLL_PROCESS_DETACH:
 234         expect_no_runtimes();
 235         if (lpvReserved) break; /* process is terminating */
 236         runtimehost_uninit();
 237         break;
 238     }
 239     return TRUE;
 240 }
 241
 242 __int32 WINAPI _CorExeMain2(PBYTE ptrMemory, DWORD cntMemory, LPWSTR imageName, LPWSTR loaderName, LPWSTR cmdLine)
 243 {
 244     TRACE("(%p, %u, %s, %s, %s)\n", ptrMemory, cntMemory, debugstr_w(imageName), debugstr_w(loaderName), debugstr_w(cmdLine));
 245     FIXME("Directly running .NET applications not supported.\n");
 246     return -1;
 247 }
 248
 249 void WINAPI CorExitProcess(int exitCode)
 250 {
 251     TRACE("(%x)\n", exitCode);
 252     CLRMetaHost_ExitProcess(0, exitCode);
 253 }
 254
 255 VOID WINAPI _CorImageUnloading(PVOID imageBase)
 256 {
 257     TRACE("(%p): stub\n", imageBase);
 258 }
 259
 260 HRESULT WINAPI _CorValidateImage(PVOID* imageBase, LPCWSTR imageName)
 261 {
 262     TRACE("(%p, %s): stub\n", imageBase, debugstr_w(imageName));
 263     return E_FAIL;
 264 }
 265
 266 HRESULT WINAPI GetCORSystemDirectory(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 267 {
 268     ICLRRuntimeInfo *info;
 269     HRESULT ret;
 270
 271     TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
 272
 273     if (!dwLength || !pbuffer)
 274         return E_POINTER;
 275
 276     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 277
 278     if (SUCCEEDED(ret))
 279     {
 280         *dwLength = cchBuffer;
 281         ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pbuffer, dwLength);
 282
 283         ICLRRuntimeInfo_Release(info);
 284     }
 285
 286     return ret;
 287 }
 288
 289 HRESULT WINAPI GetCORVersion(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
 290 {
 291     ICLRRuntimeInfo *info;
 292     HRESULT ret;
 293
 294     TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
 295
 296     if (!dwLength || !pbuffer)
 297         return E_POINTER;
 298
 299     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 300
 301     if (SUCCEEDED(ret))
 302     {
 303         *dwLength = cchBuffer;
 304         ret = ICLRRuntimeInfo_GetVersionString(info, pbuffer, dwLength);
 305
 306         ICLRRuntimeInfo_Release(info);
 307     }
 308
 309     return ret;
 310 }
 311
 312 HRESULT WINAPI GetRequestedRuntimeInfo(LPCWSTR pExe, LPCWSTR pwszVersion, LPCWSTR pConfigurationFile,
 313     DWORD startupFlags, DWORD runtimeInfoFlags, LPWSTR pDirectory, DWORD dwDirectory, DWORD *dwDirectoryLength,
 314     LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
 315 {
 316     HRESULT ret;
 317     ICLRRuntimeInfo *info;
 318     DWORD length_dummy;
 319
 320     TRACE("(%s, %s, %s, 0x%08x, 0x%08x, %p, 0x%08x, %p, %p, 0x%08x, %p)\n", debugstr_w(pExe),
 321           debugstr_w(pwszVersion), debugstr_w(pConfigurationFile), startupFlags, runtimeInfoFlags, pDirectory,
 322           dwDirectory, dwDirectoryLength, pVersion, cchBuffer, dwlength);
 323
 324     if (!dwDirectoryLength) dwDirectoryLength = &length_dummy;
 325
 326     if (!dwlength) dwlength = &length_dummy;
 327
 328     ret = get_runtime_info(pExe, pwszVersion, pConfigurationFile, startupFlags, runtimeInfoFlags, TRUE, &info);
 329
 330     if (SUCCEEDED(ret))
 331     {
 332         *dwlength = cchBuffer;
 333         ret = ICLRRuntimeInfo_GetVersionString(info, pVersion, dwlength);
 334
 335         if (SUCCEEDED(ret))
 336         {
 337             if(pwszVersion)
 338                 pVersion[0] = pwszVersion[0];
 339
 340             *dwDirectoryLength = dwDirectory;
 341             ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pDirectory, dwDirectoryLength);
 342         }
 343
 344         ICLRRuntimeInfo_Release(info);
 345     }
 346
 347     return ret;
 348 }
 349
 350 HRESULT WINAPI GetRequestedRuntimeVersion(LPWSTR pExe, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
 351 {
 352     TRACE("(%s, %p, %d, %p)\n", debugstr_w(pExe), pVersion, cchBuffer, dwlength);
 353
 354     if(!dwlength)
 355         return E_POINTER;
 356
 357     return GetRequestedRuntimeInfo(pExe, NULL, NULL, 0, 0, NULL, 0, NULL, pVersion, cchBuffer, dwlength);
 358 }
 359
 360 HRESULT WINAPI GetRealProcAddress(LPCSTR procname, void **ppv)
 361 {
 362     FIXME("(%s, %p)\n", debugstr_a(procname), ppv);
 363     return CLR_E_SHIM_RUNTIMEEXPORT;
 364 }
 365
 366 HRESULT WINAPI GetFileVersion(LPCWSTR szFilename, LPWSTR szBuffer, DWORD cchBuffer, DWORD *dwLength)
 367 {
 368     TRACE("(%s, %p, %d, %p)\n", debugstr_w(szFilename), szBuffer, cchBuffer, dwLength);
 369
 370     if (!szFilename || !dwLength)
 371         return E_POINTER;
 372
 373     *dwLength = cchBuffer;
 374     return CLRMetaHost_GetVersionFromFile(0, szFilename, szBuffer, dwLength);
 375 }
 376
 377 HRESULT WINAPI LoadLibraryShim( LPCWSTR szDllName, LPCWSTR szVersion, LPVOID pvReserved, HMODULE * phModDll)
 378 {
 379     HRESULT ret=S_OK;
 380     WCHAR dll_filename[MAX_PATH];
 381     WCHAR version[MAX_PATH];
 382     static const WCHAR default_version[] = {'v','1','.','1','.','4','3','2','2',0};
 383     static const WCHAR slash[] = {'\\',0};
 384     DWORD dummy;
 385
 386     TRACE("(%p %s, %p, %p, %p)\n", szDllName, debugstr_w(szDllName), szVersion, pvReserved, phModDll);
 387
 388     if (!szDllName || !phModDll)
 389         return E_POINTER;
 390
 391     if (!get_install_root(dll_filename))
 392     {
 393         ERR("error reading registry key for installroot\n");
 394         dll_filename[0] = 0;
 395     }
 396     else
 397     {
 398         if (!szVersion)
 399         {
 400             ret = GetCORVersion(version, MAX_PATH, &dummy);
 401             if (SUCCEEDED(ret))
 402                 szVersion = version;
 403             else
 404                 szVersion = default_version;
 405         }
 406         strcatW(dll_filename, szVersion);
 407         strcatW(dll_filename, slash);
 408     }
 409
 410     strcatW(dll_filename, szDllName);
 411
 412     *phModDll = LoadLibraryW(dll_filename);
 413
 414     return *phModDll ? S_OK : E_HANDLE;
 415 }
 416
 417 HRESULT WINAPI LockClrVersion(FLockClrVersionCallback hostCallback, FLockClrVersionCallback *pBeginHostSetup, FLockClrVersionCallback *pEndHostSetup)
 418 {
 419     FIXME("(%p %p %p): stub\n", hostCallback, pBeginHostSetup, pEndHostSetup);
 420     return S_OK;
 421 }
 422
 423 HRESULT WINAPI CoInitializeCor(DWORD fFlags)
 424 {
 425     FIXME("(0x%08x): stub\n", fFlags);
 426     return S_OK;
 427 }
 428
 429 HRESULT WINAPI GetAssemblyMDImport(LPCWSTR szFileName, REFIID riid, IUnknown **ppIUnk)
 430 {
 431     FIXME("(%p %s, %s, %p): stub\n", szFileName, debugstr_w(szFileName), debugstr_guid(riid), *ppIUnk);
 432     return ERROR_CALL_NOT_IMPLEMENTED;
 433 }
 434
 435 HRESULT WINAPI GetVersionFromProcess(HANDLE hProcess, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwLength)
 436 {
 437     FIXME("(%p, %p, %d, %p): stub\n", hProcess, pVersion, cchBuffer, dwLength);
 438     return E_NOTIMPL;
 439 }
 440
 441 HRESULT WINAPI LoadStringRCEx(LCID culture, UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet, int* pBufLen)
 442 {
 443     HRESULT res = S_OK;
 444     if ((iBufLen <= 0) || !pBuffer)
 445         return E_INVALIDARG;
 446     pBuffer[0] = 0;
 447     if (resId) {
 448         FIXME("(%d, %x, %p, %d, %d, %p): semi-stub\n", culture, resId, pBuffer, iBufLen, bQuiet, pBufLen);
 449         res = E_NOTIMPL;
 450     }
 451     else
 452         res = E_FAIL;
 453     if (pBufLen)
 454         *pBufLen = lstrlenW(pBuffer);
 455     return res;
 456 }
 457
 458 HRESULT WINAPI LoadStringRC(UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet)
 459 {
 460     return LoadStringRCEx(-1, resId, pBuffer, iBufLen, bQuiet, NULL);
 461 }
 462
 463 HRESULT WINAPI CorBindToRuntimeEx(LPWSTR szVersion, LPWSTR szBuildFlavor, DWORD nflags, REFCLSID rslsid,
 464                                   REFIID riid, LPVOID *ppv)
 465 {
 466     HRESULT ret;
 467     ICLRRuntimeInfo *info;
 468
 469     TRACE("%s %s %d %s %s %p\n", debugstr_w(szVersion), debugstr_w(szBuildFlavor), nflags, debugstr_guid( rslsid ),
 470           debugstr_guid( riid ), ppv);
 471
 472     *ppv = NULL;
 473
 474     ret = get_runtime_info(NULL, szVersion, NULL, nflags, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 475
 476     if (SUCCEEDED(ret))
 477     {
 478         ret = ICLRRuntimeInfo_GetInterface(info, rslsid, riid, ppv);
 479
 480         ICLRRuntimeInfo_Release(info);
 481     }
 482
 483     return ret;
 484 }
 485
 486 HRESULT WINAPI CorBindToCurrentRuntime(LPCWSTR filename, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 487 {
 488     HRESULT ret;
 489     ICLRRuntimeInfo *info;
 490
 491     TRACE("(%s, %s, %s, %p)\n", debugstr_w(filename), debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 492
 493     *ppv = NULL;
 494
 495     ret = get_runtime_info(NULL, NULL, filename, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 496
 497     if (SUCCEEDED(ret))
 498     {
 499         ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
 500
 501         ICLRRuntimeInfo_Release(info);
 502     }
 503
 504     return ret;
 505 }
 506
 507 STDAPI ClrCreateManagedInstance(LPCWSTR pTypeName, REFIID riid, void **ppObject)
 508 {
 509     HRESULT ret;
 510     ICLRRuntimeInfo *info;
 511     RuntimeHost *host;
 512     MonoObject *obj;
 513     IUnknown *unk;
 514
 515     TRACE("(%s,%s,%p)\n", debugstr_w(pTypeName), debugstr_guid(riid), ppObject);
 516
 517     /* FIXME: How to determine which runtime version to use? */
 518     ret = get_runtime_info(NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 519
 520     if (SUCCEEDED(ret))
 521     {
 522         ret = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 523
 524         ICLRRuntimeInfo_Release(info);
 525     }
 526
 527     if (SUCCEEDED(ret))
 528         ret = RuntimeHost_CreateManagedInstance(host, pTypeName, NULL, &obj);
 529
 530     if (SUCCEEDED(ret))
 531         ret = RuntimeHost_GetIUnknownForObject(host, obj, &unk);
 532
 533     if (SUCCEEDED(ret))
 534     {
 535         ret = IUnknown_QueryInterface(unk, riid, ppObject);
 536         IUnknown_Release(unk);
 537     }
 538
 539     return ret;
 540 }
 541
 542 BOOL WINAPI StrongNameSignatureVerification(LPCWSTR filename, DWORD inFlags, DWORD* pOutFlags)
 543 {
 544     FIXME("(%s, 0x%X, %p): stub\n", debugstr_w(filename), inFlags, pOutFlags);
 545     return FALSE;
 546 }
 547
 548 BOOL WINAPI StrongNameSignatureVerificationEx(LPCWSTR filename, BOOL forceVerification, BOOL* pVerified)
 549 {
 550     FIXME("(%s, %u, %p): stub\n", debugstr_w(filename), forceVerification, pVerified);
 551     return FALSE;
 552 }
 553
 554 HRESULT WINAPI CreateConfigStream(LPCWSTR filename, IStream **stream)
 555 {
 556     FIXME("(%s, %p): stub\n", debugstr_w(filename), stream);
 557     return E_NOTIMPL;
 558 }
 559
 560 HRESULT WINAPI CreateDebuggingInterfaceFromVersion(int nDebugVersion, LPCWSTR version, IUnknown **ppv)
 561 {
 562     const WCHAR v2_0[] = {'v','2','.','0','.','5','0','7','2','7',0};
 563     HRESULT hr = E_FAIL;
 564     ICLRRuntimeInfo *runtimeinfo;
 565
 566     if(nDebugVersion < 1 || nDebugVersion > 4)
 567         return E_INVALIDARG;
 568
 569     TRACE("(%d %s, %p): stub\n", nDebugVersion, debugstr_w(version), ppv);
 570
 571     if(!ppv)
 572         return E_INVALIDARG;
 573
 574     *ppv = NULL;
 575
 576     if(strcmpW(version, v2_0) != 0)
 577     {
 578         FIXME("Currently .NET Version '%s' not support.\n", debugstr_w(version));
 579         return E_INVALIDARG;
 580     }
 581
 582     if(nDebugVersion != 3)
 583         return E_INVALIDARG;
 584
 585     hr = CLRMetaHost_GetRuntime(0, version, &IID_ICLRRuntimeInfo, (void**)&runtimeinfo);
 586     if(hr == S_OK)
 587     {
 588         hr = ICLRRuntimeInfo_GetInterface(runtimeinfo, &CLSID_CLRDebuggingLegacy, &IID_ICorDebug, (void**)ppv);
 589
 590         ICLRRuntimeInfo_Release(runtimeinfo);
 591     }
 592
 593     if(!*ppv)
 594         return E_FAIL;
 595
 596     return hr;
 597 }
 598
 599 HRESULT WINAPI CLRCreateInstance(REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
 600 {
 601     TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
 602
 603     if (IsEqualGUID(clsid, &CLSID_CLRMetaHost))
 604         return CLRMetaHost_CreateInstance(riid, ppInterface);
 605     if (IsEqualGUID(clsid, &CLSID_CLRMetaHostPolicy))
 606         return CLRMetaHostPolicy_CreateInstance(riid, ppInterface);
 607
 608     FIXME("not implemented for class %s\n", debugstr_guid(clsid));
 609
 610     return CLASS_E_CLASSNOTAVAILABLE;
 611 }
 612
 613 HRESULT WINAPI CreateInterface(REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
 614 {
 615     TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
 616
 617     return CLRCreateInstance(clsid, riid, ppInterface);
 618 }
 619
 620 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
 621 {
 622     mscorecf *This;
 623     HRESULT hr;
 624
 625     TRACE("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 626
 627     if(!ppv)
 628         return E_INVALIDARG;
 629
 630     This = HeapAlloc(GetProcessHeap(), 0, sizeof(mscorecf));
 631
 632     This->IClassFactory_iface.lpVtbl = &mscorecf_vtbl;
 633     This->pfnCreateInstance = create_monodata;
 634     This->ref = 1;
 635     This->clsid = *rclsid;
 636
 637     hr = IClassFactory_QueryInterface( &This->IClassFactory_iface, riid, ppv );
 638     IClassFactory_Release(&This->IClassFactory_iface);
 639
 640     return hr;
 641 }
 642
 643 static void parse_msi_version_string(const char *version, int *parts)
 644 {
 645     const char *minor_start, *build_start;
 646
 647     parts[0] = atoi(version);
 648
 649     parts[1] = parts[2] = 0;
 650
 651     minor_start = strchr(version, '.');
 652     if (minor_start)
 653     {
 654         minor_start++;
 655         parts[1] = atoi(minor_start);
 656
 657         build_start = strchr(minor_start, '.');
 658         if (build_start)
 659             parts[2] = atoi(build_start+1);
 660     }
 661 }
 662
 663 static BOOL install_wine_mono(void)
 664 {
 665     BOOL is_wow64 = FALSE;
 666     HMODULE hmsi;
 667     UINT (WINAPI *pMsiGetProductInfoA)(LPCSTR,LPCSTR,LPSTR,DWORD*);
 668     char versionstringbuf[15];
 669     UINT res;
 670     DWORD buffer_size;
 671     PROCESS_INFORMATION pi;
 672     STARTUPINFOW si;
 673     WCHAR app[MAX_PATH];
 674     WCHAR *args;
 675     LONG len;
 676     BOOL ret;
 677
 678     static const char* mono_version = "4.7.1";
 679     static const char* mono_product_code = "{E45D8920-A758-4088-B6C6-31DBB276992E}";
 680
 681     static const WCHAR controlW[] = {'\\','c','o','n','t','r','o','l','.','e','x','e',0};
 682     static const WCHAR argsW[] =
 683         {' ','a','p','p','w','i','z','.','c','p','l',' ','i','n','s','t','a','l','l','_','m','o','n','o',0};
 684
 685     IsWow64Process(GetCurrentProcess(), &is_wow64);
 686
 687     if (is_wow64)
 688     {
 689         TRACE("not installing mono in wow64 process\n");
 690         return TRUE;
 691     }
 692
 693     hmsi = LoadLibraryA("msi");
 694
 695     if (!hmsi)
 696     {
 697         ERR("couldn't load msi.dll\n");
 698         return FALSE;
 699     }
 700
 701     pMsiGetProductInfoA = (void*)GetProcAddress(hmsi, "MsiGetProductInfoA");
 702
 703     buffer_size = sizeof(versionstringbuf);
 704
 705     res = pMsiGetProductInfoA(mono_product_code, "VersionString", versionstringbuf, &buffer_size);
 706
 707     FreeLibrary(hmsi);
 708
 709     if (res == ERROR_SUCCESS)
 710     {
 711         int current_version[3], wanted_version[3], i;
 712
 713         TRACE("found installed version %s\n", versionstringbuf);
 714
 715         parse_msi_version_string(versionstringbuf, current_version);
 716         parse_msi_version_string(mono_version, wanted_version);
 717
 718         for (i=0; i<3; i++)
 719         {
 720             if (current_version[i] < wanted_version[i])
 721                 break;
 722             else if (current_version[i] > wanted_version[i])
 723             {
 724                 TRACE("installed version is newer than %s, quitting\n", mono_version);
 725                 return TRUE;
 726             }
 727         }
 728
 729         if (i == 3)
 730         {
 731             TRACE("version %s is already installed, quitting\n", mono_version);
 732             return TRUE;
 733         }
 734     }
 735
 736     len = GetSystemDirectoryW(app, MAX_PATH-sizeof(controlW)/sizeof(WCHAR));
 737     memcpy(app+len, controlW, sizeof(controlW));
 738
 739     args = HeapAlloc(GetProcessHeap(), 0, (len*sizeof(WCHAR) + sizeof(controlW) + sizeof(argsW)));
 740     if(!args)
 741         return FALSE;
 742
 743     memcpy(args, app, len*sizeof(WCHAR) + sizeof(controlW));
 744     memcpy(args + len + sizeof(controlW)/sizeof(WCHAR)-1, argsW, sizeof(argsW));
 745
 746     TRACE("starting %s\n", debugstr_w(args));
 747
 748     memset(&si, 0, sizeof(si));
 749     si.cb = sizeof(si);
 750     ret = CreateProcessW(app, args, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
 751     HeapFree(GetProcessHeap(), 0, args);
 752     if (ret) {
 753         CloseHandle(pi.hThread);
 754         WaitForSingleObject(pi.hProcess, INFINITE);
 755         CloseHandle(pi.hProcess);
 756     }
 757
 758     return ret;
 759 }
 760
 761 HRESULT WINAPI DllRegisterServer(void)
 762 {
 763     install_wine_mono();
 764
 765     return __wine_register_resources( MSCOREE_hInstance );
 766 }
 767
 768 HRESULT WINAPI DllUnregisterServer(void)
 769 {
 770     return __wine_unregister_resources( MSCOREE_hInstance );
 771 }
 772
 773 HRESULT WINAPI DllCanUnloadNow(VOID)
 774 {
 775     return S_FALSE;
 776 }
 777
 778 void WINAPI CoEEShutDownCOM(void)
 779 {
 780     FIXME("stub.\n");
 781 }
 782
 783 INT WINAPI ND_RU1( const void *ptr, INT offset )
 784 {
 785     return *((const BYTE *)ptr + offset);
 786 }
 787
 788 INT WINAPI ND_RI2( const void *ptr, INT offset )
 789 {
 790     return *(const SHORT *)((const BYTE *)ptr + offset);
 791 }
 792
 793 INT WINAPI ND_RI4( const void *ptr, INT offset )
 794 {
 795     return *(const INT *)((const BYTE *)ptr + offset);
 796 }
 797
 798 INT64 WINAPI ND_RI8( const void *ptr, INT offset )
 799 {
 800     return *(const INT64 *)((const BYTE *)ptr + offset);
 801 }
 802
 803 void WINAPI ND_WU1( void *ptr, INT offset, BYTE val )
 804 {
 805     *((BYTE *)ptr + offset) = val;
 806 }
 807
 808 void WINAPI ND_WI2( void *ptr, INT offset, SHORT val )
 809 {
 810     *(SHORT *)((BYTE *)ptr + offset) = val;
 811 }
 812
 813 void WINAPI ND_WI4( void *ptr, INT offset, INT val )
 814 {
 815     *(INT *)((BYTE *)ptr + offset) = val;
 816 }
 817
 818 void WINAPI ND_WI8( void *ptr, INT offset, INT64 val )
 819 {
 820     *(INT64 *)((BYTE *)ptr + offset) = val;
 821 }
 822
 823 void WINAPI ND_CopyObjDst( const void *src, void *dst, INT offset, INT size )
 824 {
 825     memcpy( (BYTE *)dst + offset, src, size );
 826 }
 827
 828 void WINAPI ND_CopyObjSrc( const void *src, INT offset, void *dst, INT size )
 829 {
 830     memcpy( dst, (const BYTE *)src + offset, size );
 831 }