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