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