dlls/mscoree/metahost.c

   1 /*
   2  * ICLRMetaHost - discovery and management of available .NET runtimes
   3  *
   4  * Copyright 2010 Vincent Povirk for CodeWeavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdio.h>
  22 #include <stdarg.h>
  23 #include <assert.h>
  24
  25 #define COBJMACROS
  26
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winreg.h"
  30 #include "winternl.h"
  31 #include "ole2.h"
  32 #include "shlwapi.h"
  33
  34 #include "corerror.h"
  35 #include "cor.h"
  36 #include "mscoree.h"
  37 #include "corhdr.h"
  38 #include "cordebug.h"
  39 #include "metahost.h"
  40 #include "fusion.h"
  41 #include "wine/list.h"
  42 #include "wine/heap.h"
  43 #include "mscoree_private.h"
  44
  45 #include "wine/debug.h"
  46
  47 WINE_DEFAULT_DEBUG_CHANNEL( mscoree );
  48
  49 static const struct ICLRRuntimeInfoVtbl CLRRuntimeInfoVtbl;
  50
  51 #define NUM_RUNTIMES 4
  52
  53 static struct CLRRuntimeInfo runtimes[NUM_RUNTIMES] = {
  54     {{&CLRRuntimeInfoVtbl}, 1, 0, 3705, 0},
  55     {{&CLRRuntimeInfoVtbl}, 1, 1, 4322, 0},
  56     {{&CLRRuntimeInfoVtbl}, 2, 0, 50727, 0},
  57     {{&CLRRuntimeInfoVtbl}, 4, 0, 30319, 0}
  58 };
  59
  60 static CRITICAL_SECTION runtime_list_cs;
  61 static CRITICAL_SECTION_DEBUG runtime_list_cs_debug =
  62 {
  63     0, 0, &runtime_list_cs,
  64     { &runtime_list_cs_debug.ProcessLocksList,
  65       &runtime_list_cs_debug.ProcessLocksList },
  66       0, 0, { (DWORD_PTR)(__FILE__ ": runtime_list_cs") }
  67 };
  68 static CRITICAL_SECTION runtime_list_cs = { &runtime_list_cs_debug, -1, 0, 0, 0, 0 };
  69
  70 struct CLRMetaHost
  71 {
  72     ICLRMetaHost ICLRMetaHost_iface;
  73
  74     RuntimeLoadedCallbackFnPtr callback;
  75 };
  76
  77 static struct CLRMetaHost GlobalCLRMetaHost;
  78
  79 static HMODULE mono_handle;
  80
  81 BOOL is_mono_started;
  82 static BOOL is_mono_shutdown;
  83
  84 typedef struct _MonoProfilerDesc *MonoProfilerHandle;
  85
  86 typedef void (CDECL *MonoProfilerRuntimeShutdownBeginCallback) (MonoProfiler *prof);
  87
  88 MonoImage* (CDECL *mono_assembly_get_image)(MonoAssembly *assembly);
  89 MonoAssembly* (CDECL *mono_assembly_load_from)(MonoImage *image, const char *fname, MonoImageOpenStatus *status);
  90 const char* (CDECL *mono_assembly_name_get_name)(MonoAssemblyName *aname);
  91 const char* (CDECL *mono_assembly_name_get_culture)(MonoAssemblyName *aname);
  92 WORD (CDECL *mono_assembly_name_get_version)(MonoAssemblyName *aname, WORD *minor, WORD *build, WORD *revision);
  93 MonoAssembly* (CDECL *mono_assembly_open)(const char *filename, MonoImageOpenStatus *status);
  94 void (CDECL *mono_callspec_set_assembly)(MonoAssembly *assembly);
  95 MonoClass* (CDECL *mono_class_from_mono_type)(MonoType *type);
  96 MonoClass* (CDECL *mono_class_from_name)(MonoImage *image, const char* name_space, const char *name);
  97 MonoMethod* (CDECL *mono_class_get_method_from_name)(MonoClass *klass, const char *name, int param_count);
  98 static void (CDECL *mono_config_parse)(const char *filename);
  99 MonoDomain* (CDECL *mono_domain_get)(void);
 100 MonoDomain* (CDECL *mono_domain_get_by_id)(int id);
 101 BOOL (CDECL *mono_domain_set)(MonoDomain *domain,BOOL force);
 102 void (CDECL *mono_domain_set_config)(MonoDomain *domain,const char *base_dir,const char *config_file_name);
 103 static void (CDECL *mono_free)(void *);
 104 MonoImage* (CDECL *mono_get_corlib)(void);
 105 static MonoImage* (CDECL *mono_image_open)(const char *fname, MonoImageOpenStatus *status);
 106 MonoImage* (CDECL *mono_image_open_from_module_handle)(HMODULE module_handle, char* fname, UINT has_entry_point, MonoImageOpenStatus* status);
 107 static void (CDECL *mono_install_assembly_preload_hook)(MonoAssemblyPreLoadFunc func, void *user_data);
 108 int (CDECL *mono_jit_exec)(MonoDomain *domain, MonoAssembly *assembly, int argc, char *argv[]);
 109 MonoDomain* (CDECL *mono_jit_init_version)(const char *domain_name, const char *runtime_version);
 110 static void (CDECL *mono_jit_set_aot_mode)(MonoAotMode mode);
 111 static int (CDECL *mono_jit_set_trace_options)(const char* options);
 112 void* (CDECL *mono_marshal_get_vtfixup_ftnptr)(MonoImage *image, DWORD token, WORD type);
 113 MonoDomain* (CDECL *mono_object_get_domain)(MonoObject *obj);
 114 MonoMethod* (CDECL *mono_object_get_virtual_method)(MonoObject *obj, MonoMethod *method);
 115 MonoObject* (CDECL *mono_object_new)(MonoDomain *domain, MonoClass *klass);
 116 void* (CDECL *mono_object_unbox)(MonoObject *obj);
 117 static MonoProfilerHandle (CDECL *mono_profiler_create)(MonoProfiler *prof);
 118 static void (CDECL *mono_profiler_install)(MonoProfiler *prof, MonoProfileFunc shutdown_callback);
 119 static void (CDECL *mono_profiler_set_runtime_shutdown_begin_callback)(MonoProfilerHandle handle, MonoProfilerRuntimeShutdownBeginCallback cb);
 120 MonoType* (CDECL *mono_reflection_type_from_name)(char *name, MonoImage *image);
 121 MonoObject* (CDECL *mono_runtime_invoke)(MonoMethod *method, void *obj, void **params, MonoObject **exc);
 122 void (CDECL *mono_runtime_object_init)(MonoObject *this_obj);
 123 void (CDECL *mono_runtime_quit)(void);
 124 static void (CDECL *mono_set_crash_chaining)(BOOL chain_signals);
 125 static void (CDECL *mono_set_dirs)(const char *assembly_dir, const char *config_dir);
 126 static void (CDECL *mono_set_verbose_level)(DWORD level);
 127 MonoString* (CDECL *mono_string_new)(MonoDomain *domain, const char *str);
 128 static char* (CDECL *mono_stringify_assembly_name)(MonoAssemblyName *aname);
 129 MonoThread* (CDECL *mono_thread_attach)(MonoDomain *domain);
 130 void (CDECL *mono_thread_manage)(void);
 131 void (CDECL *mono_trace_set_print_handler)(MonoPrintCallback callback);
 132 void (CDECL *mono_trace_set_printerr_handler)(MonoPrintCallback callback);
 133 static void (CDECL *wine_mono_install_assembly_preload_hook)(WineMonoAssemblyPreLoadFunc func, void *user_data);
 134
 135 static BOOL find_mono_dll(LPCWSTR path, LPWSTR dll_path);
 136
 137 static MonoAssembly* CDECL mono_assembly_preload_hook_fn(MonoAssemblyName *aname, char **assemblies_path, void *user_data);
 138 static MonoAssembly* CDECL wine_mono_assembly_preload_hook_fn(MonoAssemblyName *aname, char **assemblies_path, int *search_path, void *user_data);
 139
 140 static void CDECL mono_shutdown_callback_fn(MonoProfiler *prof);
 141
 142 static MonoImage* CDECL image_open_module_handle_dummy(HMODULE module_handle,
 143     char* fname, UINT has_entry_point, MonoImageOpenStatus* status)
 144 {
 145     return mono_image_open(fname, status);
 146 }
 147
 148 static void CDECL set_crash_chaining_dummy(BOOL crash_chaining)
 149 {
 150 }
 151
 152 static void CDECL set_print_handler_dummy(MonoPrintCallback callback)
 153 {
 154 }
 155
 156 static HRESULT load_mono(LPCWSTR mono_path)
 157 {
 158     static const WCHAR lib[] = {'\\','l','i','b',0};
 159     static const WCHAR etc[] = {'\\','e','t','c',0};
 160     WCHAR mono_dll_path[MAX_PATH+16];
 161     WCHAR mono_lib_path[MAX_PATH+4], mono_etc_path[MAX_PATH+4];
 162     char mono_lib_path_a[MAX_PATH], mono_etc_path_a[MAX_PATH];
 163     int aot_size;
 164     char aot_setting[256];
 165     int trace_size;
 166     char trace_setting[256];
 167     int verbose_size;
 168     char verbose_setting[256];
 169
 170     if (is_mono_shutdown)
 171     {
 172         ERR("Cannot load Mono after it has been shut down.\n");
 173         return E_FAIL;
 174     }
 175
 176     if (!mono_handle)
 177     {
 178         lstrcpyW(mono_lib_path, mono_path);
 179         lstrcatW(mono_lib_path, lib);
 180         WideCharToMultiByte(CP_UTF8, 0, mono_lib_path, -1, mono_lib_path_a, MAX_PATH, NULL, NULL);
 181
 182         lstrcpyW(mono_etc_path, mono_path);
 183         lstrcatW(mono_etc_path, etc);
 184         WideCharToMultiByte(CP_UTF8, 0, mono_etc_path, -1, mono_etc_path_a, MAX_PATH, NULL, NULL);
 185
 186         if (!find_mono_dll(mono_path, mono_dll_path)) goto fail;
 187
 188         mono_handle = LoadLibraryW(mono_dll_path);
 189
 190         if (!mono_handle) goto fail;
 191
 192 #define LOAD_MONO_FUNCTION(x) do { \
 193     x = (void*)GetProcAddress(mono_handle, #x); \
 194     if (!x) { \
 195         goto fail; \
 196     } \
 197 } while (0);
 198
 199         LOAD_MONO_FUNCTION(mono_assembly_get_image);
 200         LOAD_MONO_FUNCTION(mono_assembly_load_from);
 201         LOAD_MONO_FUNCTION(mono_assembly_name_get_name);
 202         LOAD_MONO_FUNCTION(mono_assembly_name_get_culture);
 203         LOAD_MONO_FUNCTION(mono_assembly_name_get_version);
 204         LOAD_MONO_FUNCTION(mono_assembly_open);
 205         LOAD_MONO_FUNCTION(mono_config_parse);
 206         LOAD_MONO_FUNCTION(mono_class_from_mono_type);
 207         LOAD_MONO_FUNCTION(mono_class_from_name);
 208         LOAD_MONO_FUNCTION(mono_class_get_method_from_name);
 209         LOAD_MONO_FUNCTION(mono_domain_get);
 210         LOAD_MONO_FUNCTION(mono_domain_get_by_id);
 211         LOAD_MONO_FUNCTION(mono_domain_set);
 212         LOAD_MONO_FUNCTION(mono_domain_set_config);
 213         LOAD_MONO_FUNCTION(mono_free);
 214         LOAD_MONO_FUNCTION(mono_get_corlib);
 215         LOAD_MONO_FUNCTION(mono_image_open);
 216         LOAD_MONO_FUNCTION(mono_install_assembly_preload_hook);
 217         LOAD_MONO_FUNCTION(mono_jit_exec);
 218         LOAD_MONO_FUNCTION(mono_jit_init_version);
 219         LOAD_MONO_FUNCTION(mono_jit_set_trace_options);
 220         LOAD_MONO_FUNCTION(mono_marshal_get_vtfixup_ftnptr);
 221         LOAD_MONO_FUNCTION(mono_object_get_domain);
 222         LOAD_MONO_FUNCTION(mono_object_get_virtual_method);
 223         LOAD_MONO_FUNCTION(mono_object_new);
 224         LOAD_MONO_FUNCTION(mono_object_unbox);
 225         LOAD_MONO_FUNCTION(mono_reflection_type_from_name);
 226         LOAD_MONO_FUNCTION(mono_runtime_invoke);
 227         LOAD_MONO_FUNCTION(mono_runtime_object_init);
 228         LOAD_MONO_FUNCTION(mono_runtime_quit);
 229         LOAD_MONO_FUNCTION(mono_set_dirs);
 230         LOAD_MONO_FUNCTION(mono_set_verbose_level);
 231         LOAD_MONO_FUNCTION(mono_stringify_assembly_name);
 232         LOAD_MONO_FUNCTION(mono_string_new);
 233         LOAD_MONO_FUNCTION(mono_thread_attach);
 234         LOAD_MONO_FUNCTION(mono_thread_manage);
 235
 236 #undef LOAD_MONO_FUNCTION
 237
 238 #define LOAD_OPT_MONO_FUNCTION(x, default) do { \
 239     x = (void*)GetProcAddress(mono_handle, #x); \
 240     if (!x) { \
 241         x = default; \
 242     } \
 243 } while (0);
 244
 245         LOAD_OPT_MONO_FUNCTION(mono_callspec_set_assembly, NULL);
 246         LOAD_OPT_MONO_FUNCTION(mono_image_open_from_module_handle, image_open_module_handle_dummy);
 247         LOAD_OPT_MONO_FUNCTION(mono_jit_set_aot_mode, NULL);
 248         LOAD_OPT_MONO_FUNCTION(mono_profiler_create, NULL);
 249         LOAD_OPT_MONO_FUNCTION(mono_profiler_install, NULL);
 250         LOAD_OPT_MONO_FUNCTION(mono_profiler_set_runtime_shutdown_begin_callback, NULL);
 251         LOAD_OPT_MONO_FUNCTION(mono_set_crash_chaining, set_crash_chaining_dummy);
 252         LOAD_OPT_MONO_FUNCTION(mono_trace_set_print_handler, set_print_handler_dummy);
 253         LOAD_OPT_MONO_FUNCTION(mono_trace_set_printerr_handler, set_print_handler_dummy);
 254         LOAD_OPT_MONO_FUNCTION(wine_mono_install_assembly_preload_hook, NULL);
 255
 256 #undef LOAD_OPT_MONO_FUNCTION
 257
 258         if (mono_callspec_set_assembly == NULL)
 259         {
 260             mono_callspec_set_assembly = (void*)GetProcAddress(mono_handle, "mono_trace_set_assembly");
 261             if (!mono_callspec_set_assembly) goto fail;
 262         }
 263
 264         if (mono_profiler_create != NULL)
 265         {
 266             /* Profiler API v2 */
 267             MonoProfilerHandle handle = mono_profiler_create(NULL);
 268             mono_profiler_set_runtime_shutdown_begin_callback(handle, mono_shutdown_callback_fn);
 269         }
 270         else if (mono_profiler_install != NULL)
 271         {
 272             /* Profiler API v1 */
 273             mono_profiler_install(NULL, mono_shutdown_callback_fn);
 274         }
 275
 276         mono_set_crash_chaining(TRUE);
 277
 278         mono_trace_set_print_handler(mono_print_handler_fn);
 279         mono_trace_set_printerr_handler(mono_print_handler_fn);
 280
 281         mono_set_dirs(mono_lib_path_a, mono_etc_path_a);
 282
 283         mono_config_parse(NULL);
 284
 285         if (wine_mono_install_assembly_preload_hook)
 286             wine_mono_install_assembly_preload_hook(wine_mono_assembly_preload_hook_fn, NULL);
 287         else
 288             mono_install_assembly_preload_hook(mono_assembly_preload_hook_fn, NULL);
 289
 290         aot_size = GetEnvironmentVariableA("WINE_MONO_AOT", aot_setting, sizeof(aot_setting));
 291
 292         if (aot_size)
 293         {
 294             MonoAotMode mode;
 295             if (strcmp(aot_setting, "interp") == 0)
 296                 mode = MONO_AOT_MODE_INTERP_ONLY;
 297             else if (strcmp(aot_setting, "none") == 0)
 298                 mode = MONO_AOT_MODE_NONE;
 299             else
 300             {
 301                 ERR("unknown WINE_MONO_AOT setting, valid settings are interp and none\n");
 302                 mode = MONO_AOT_MODE_NONE;
 303             }
 304             if (mono_jit_set_aot_mode != NULL)
 305             {
 306                 mono_jit_set_aot_mode(mode);
 307             }
 308             else
 309             {
 310                 ERR("mono_jit_set_aot_mode export not found\n");
 311             }
 312         }
 313
 314         trace_size = GetEnvironmentVariableA("WINE_MONO_TRACE", trace_setting, sizeof(trace_setting));
 315
 316         if (trace_size)
 317         {
 318             mono_jit_set_trace_options(trace_setting);
 319         }
 320
 321         verbose_size = GetEnvironmentVariableA("WINE_MONO_VERBOSE", verbose_setting, sizeof(verbose_setting));
 322
 323         if (verbose_size)
 324         {
 325             mono_set_verbose_level(verbose_setting[0] - '0');
 326         }
 327     }
 328
 329     return S_OK;
 330
 331 fail:
 332     ERR("Could not load Mono into this process\n");
 333     FreeLibrary(mono_handle);
 334     mono_handle = NULL;
 335     return E_FAIL;
 336 }
 337
 338 static char* get_exe_basename_utf8(void)
 339 {
 340     WCHAR filenameW[MAX_PATH], *basenameW;
 341
 342     GetModuleFileNameW(NULL, filenameW, MAX_PATH);
 343
 344     basenameW = wcsrchr(filenameW, '\\');
 345     if (basenameW)
 346         basenameW += 1;
 347     else
 348         basenameW = filenameW;
 349
 350     return WtoA(basenameW);
 351 }
 352
 353 MonoDomain* get_root_domain(void)
 354 {
 355     static MonoDomain* root_domain;
 356
 357     if (root_domain != NULL)
 358         return root_domain;
 359
 360     EnterCriticalSection(&runtime_list_cs);
 361
 362     if (root_domain == NULL)
 363     {
 364         char *exe_basename;
 365
 366         exe_basename = get_exe_basename_utf8();
 367
 368         root_domain = mono_jit_init_version(exe_basename, "v4.0.30319");
 369
 370         HeapFree(GetProcessHeap(), 0, exe_basename);
 371
 372         is_mono_started = TRUE;
 373     }
 374
 375     LeaveCriticalSection(&runtime_list_cs);
 376
 377     return root_domain;
 378 }
 379
 380 static void CDECL mono_shutdown_callback_fn(MonoProfiler *prof)
 381 {
 382     is_mono_shutdown = TRUE;
 383 }
 384
 385 static HRESULT WINAPI thread_set_fn(void)
 386 {
 387     WARN("stub\n");
 388     return S_OK;
 389 }
 390
 391 static HRESULT WINAPI thread_unset_fn(void)
 392 {
 393     WARN("stub\n");
 394     return S_OK;
 395 }
 396
 397 static HRESULT CLRRuntimeInfo_GetRuntimeHost(CLRRuntimeInfo *This, RuntimeHost **result)
 398 {
 399     HRESULT hr = S_OK;
 400     WCHAR mono_path[MAX_PATH];
 401
 402     if (This->loaded_runtime)
 403     {
 404         *result = This->loaded_runtime;
 405         return hr;
 406     }
 407
 408     if (!get_mono_path(mono_path, FALSE))
 409     {
 410         ERR("Wine Mono is not installed\n");
 411         return CLR_E_SHIM_RUNTIME;
 412     }
 413
 414     EnterCriticalSection(&runtime_list_cs);
 415
 416     if (This->loaded_runtime)
 417     {
 418         *result = This->loaded_runtime;
 419         LeaveCriticalSection(&runtime_list_cs);
 420         return hr;
 421     }
 422
 423     if (GlobalCLRMetaHost.callback)
 424     {
 425         GlobalCLRMetaHost.callback(&This->ICLRRuntimeInfo_iface, thread_set_fn, thread_unset_fn);
 426     }
 427
 428     hr = load_mono(mono_path);
 429
 430     if (SUCCEEDED(hr))
 431         hr = RuntimeHost_Construct(This, &This->loaded_runtime);
 432
 433     LeaveCriticalSection(&runtime_list_cs);
 434
 435     if (SUCCEEDED(hr))
 436         *result = This->loaded_runtime;
 437
 438     return hr;
 439 }
 440
 441 void expect_no_runtimes(void)
 442 {
 443     if (mono_handle && is_mono_started && !is_mono_shutdown)
 444     {
 445         ERR("Process exited with a Mono runtime loaded.\n");
 446         return;
 447     }
 448 }
 449
 450 static inline CLRRuntimeInfo *impl_from_ICLRRuntimeInfo(ICLRRuntimeInfo *iface)
 451 {
 452     return CONTAINING_RECORD(iface, CLRRuntimeInfo, ICLRRuntimeInfo_iface);
 453 }
 454
 455 static HRESULT WINAPI CLRRuntimeInfo_QueryInterface(ICLRRuntimeInfo* iface,
 456         REFIID riid,
 457         void **ppvObject)
 458 {
 459     TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
 460
 461     if ( IsEqualGUID( riid, &IID_ICLRRuntimeInfo ) ||
 462          IsEqualGUID( riid, &IID_IUnknown ) )
 463     {
 464         *ppvObject = iface;
 465     }
 466     else
 467     {
 468         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
 469         return E_NOINTERFACE;
 470     }
 471
 472     ICLRRuntimeInfo_AddRef( iface );
 473
 474     return S_OK;
 475 }
 476
 477 static ULONG WINAPI CLRRuntimeInfo_AddRef(ICLRRuntimeInfo* iface)
 478 {
 479     return 2;
 480 }
 481
 482 static ULONG WINAPI CLRRuntimeInfo_Release(ICLRRuntimeInfo* iface)
 483 {
 484     return 1;
 485 }
 486
 487 static HRESULT WINAPI CLRRuntimeInfo_GetVersionString(ICLRRuntimeInfo* iface,
 488     LPWSTR pwzBuffer, DWORD *pcchBuffer)
 489 {
 490     struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
 491     DWORD buffer_size = *pcchBuffer;
 492     HRESULT hr = S_OK;
 493     char version[11];
 494     DWORD size;
 495
 496     TRACE("%p %p %p\n", iface, pwzBuffer, pcchBuffer);
 497
 498     size = snprintf(version, sizeof(version), "v%lu.%lu.%lu", This->major, This->minor, This->build);
 499
 500     assert(size <= sizeof(version));
 501
 502     *pcchBuffer = MultiByteToWideChar(CP_UTF8, 0, version, -1, NULL, 0);
 503
 504     if (pwzBuffer)
 505     {
 506         if (buffer_size >= *pcchBuffer)
 507             MultiByteToWideChar(CP_UTF8, 0, version, -1, pwzBuffer, buffer_size);
 508         else
 509             hr = E_NOT_SUFFICIENT_BUFFER;
 510     }
 511
 512     return hr;
 513 }
 514
 515 static BOOL get_install_root(LPWSTR install_dir)
 516 {
 517     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};
 518     static const WCHAR install_root[] = {'I','n','s','t','a','l','l','R','o','o','t',0};
 519
 520     DWORD len;
 521     HKEY key;
 522
 523     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, dotnet_key, 0, KEY_READ, &key))
 524         return FALSE;
 525
 526     len = MAX_PATH * sizeof(WCHAR);
 527     if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)install_dir, &len))
 528     {
 529         RegCloseKey(key);
 530         return FALSE;
 531     }
 532     RegCloseKey(key);
 533
 534     return TRUE;
 535 }
 536
 537 static HRESULT WINAPI CLRRuntimeInfo_GetRuntimeDirectory(ICLRRuntimeInfo* iface,
 538     LPWSTR pwzBuffer, DWORD *pcchBuffer)
 539 {
 540     static const WCHAR slash[] = {'\\',0};
 541     DWORD buffer_size = *pcchBuffer;
 542     WCHAR system_dir[MAX_PATH];
 543     WCHAR version[MAX_PATH];
 544     DWORD version_size, size;
 545     HRESULT hr = S_OK;
 546
 547     TRACE("%p %p %p\n", iface, pwzBuffer, pcchBuffer);
 548
 549     if (!get_install_root(system_dir))
 550     {
 551         ERR("error reading registry key for installroot\n");
 552         return E_FAIL;
 553     }
 554     else
 555     {
 556         version_size = MAX_PATH;
 557         ICLRRuntimeInfo_GetVersionString(iface, version, &version_size);
 558         lstrcatW(system_dir, version);
 559         lstrcatW(system_dir, slash);
 560         size = lstrlenW(system_dir) + 1;
 561     }
 562
 563     *pcchBuffer = size;
 564
 565     if (pwzBuffer)
 566     {
 567         if (buffer_size >= size)
 568             lstrcpyW(pwzBuffer, system_dir);
 569         else
 570             hr = E_NOT_SUFFICIENT_BUFFER;
 571     }
 572
 573     return hr;
 574 }
 575
 576 static HRESULT WINAPI CLRRuntimeInfo_IsLoaded(ICLRRuntimeInfo* iface,
 577     HANDLE hndProcess, BOOL *pbLoaded)
 578 {
 579     FIXME("%p %p %p\n", iface, hndProcess, pbLoaded);
 580
 581     return E_NOTIMPL;
 582 }
 583
 584 static HRESULT WINAPI CLRRuntimeInfo_LoadErrorString(ICLRRuntimeInfo* iface,
 585     UINT iResourceID, LPWSTR pwzBuffer, DWORD *pcchBuffer, LONG iLocaleid)
 586 {
 587     FIXME("%p %u %p %p %lx\n", iface, iResourceID, pwzBuffer, pcchBuffer, iLocaleid);
 588
 589     return E_NOTIMPL;
 590 }
 591
 592 static HRESULT WINAPI CLRRuntimeInfo_LoadLibrary(ICLRRuntimeInfo* iface,
 593     LPCWSTR pwzDllName, HMODULE *phndModule)
 594 {
 595     WCHAR version[MAX_PATH];
 596     HRESULT hr;
 597     DWORD cchBuffer;
 598
 599     TRACE("%p %s %p\n", iface, debugstr_w(pwzDllName), phndModule);
 600
 601     cchBuffer = MAX_PATH;
 602     hr = ICLRRuntimeInfo_GetVersionString(iface, version, &cchBuffer);
 603     if (FAILED(hr)) return hr;
 604
 605     return LoadLibraryShim(pwzDllName, version, NULL, phndModule);
 606 }
 607
 608 static HRESULT WINAPI CLRRuntimeInfo_GetProcAddress(ICLRRuntimeInfo* iface,
 609     LPCSTR pszProcName, LPVOID *ppProc)
 610 {
 611     FIXME("%p %s %p\n", iface, debugstr_a(pszProcName), ppProc);
 612
 613     return E_NOTIMPL;
 614 }
 615
 616 static HRESULT WINAPI CLRRuntimeInfo_GetInterface(ICLRRuntimeInfo* iface,
 617     REFCLSID rclsid, REFIID riid, LPVOID *ppUnk)
 618 {
 619     struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
 620     RuntimeHost *host;
 621     HRESULT hr;
 622
 623     TRACE("%p %s %s %p\n", iface, debugstr_guid(rclsid), debugstr_guid(riid), ppUnk);
 624
 625     hr = CLRRuntimeInfo_GetRuntimeHost(This, &host);
 626
 627     if (SUCCEEDED(hr))
 628         hr = RuntimeHost_GetInterface(host, rclsid, riid, ppUnk);
 629
 630     return hr;
 631 }
 632
 633 static HRESULT WINAPI CLRRuntimeInfo_IsLoadable(ICLRRuntimeInfo* iface,
 634     BOOL *pbLoadable)
 635 {
 636     FIXME("%p %p\n", iface, pbLoadable);
 637
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT WINAPI CLRRuntimeInfo_SetDefaultStartupFlags(ICLRRuntimeInfo* iface,
 642     DWORD dwStartupFlags, LPCWSTR pwzHostConfigFile)
 643 {
 644     FIXME("%p %lx %s\n", iface, dwStartupFlags, debugstr_w(pwzHostConfigFile));
 645
 646     return E_NOTIMPL;
 647 }
 648
 649 static HRESULT WINAPI CLRRuntimeInfo_GetDefaultStartupFlags(ICLRRuntimeInfo* iface,
 650     DWORD *pdwStartupFlags, LPWSTR pwzHostConfigFile, DWORD *pcchHostConfigFile)
 651 {
 652     FIXME("%p %p %p %p\n", iface, pdwStartupFlags, pwzHostConfigFile, pcchHostConfigFile);
 653
 654     return E_NOTIMPL;
 655 }
 656
 657 static HRESULT WINAPI CLRRuntimeInfo_BindAsLegacyV2Runtime(ICLRRuntimeInfo* iface)
 658 {
 659     FIXME("%p\n", iface);
 660
 661     return E_NOTIMPL;
 662 }
 663
 664 static HRESULT WINAPI CLRRuntimeInfo_IsStarted(ICLRRuntimeInfo* iface,
 665     BOOL *pbStarted, DWORD *pdwStartupFlags)
 666 {
 667     FIXME("%p %p %p\n", iface, pbStarted, pdwStartupFlags);
 668
 669     return E_NOTIMPL;
 670 }
 671
 672 static const struct ICLRRuntimeInfoVtbl CLRRuntimeInfoVtbl = {
 673     CLRRuntimeInfo_QueryInterface,
 674     CLRRuntimeInfo_AddRef,
 675     CLRRuntimeInfo_Release,
 676     CLRRuntimeInfo_GetVersionString,
 677     CLRRuntimeInfo_GetRuntimeDirectory,
 678     CLRRuntimeInfo_IsLoaded,
 679     CLRRuntimeInfo_LoadErrorString,
 680     CLRRuntimeInfo_LoadLibrary,
 681     CLRRuntimeInfo_GetProcAddress,
 682     CLRRuntimeInfo_GetInterface,
 683     CLRRuntimeInfo_IsLoadable,
 684     CLRRuntimeInfo_SetDefaultStartupFlags,
 685     CLRRuntimeInfo_GetDefaultStartupFlags,
 686     CLRRuntimeInfo_BindAsLegacyV2Runtime,
 687     CLRRuntimeInfo_IsStarted
 688 };
 689
 690 HRESULT ICLRRuntimeInfo_GetRuntimeHost(ICLRRuntimeInfo *iface, RuntimeHost **result)
 691 {
 692     struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
 693
 694     assert(This->ICLRRuntimeInfo_iface.lpVtbl == &CLRRuntimeInfoVtbl);
 695
 696     return CLRRuntimeInfo_GetRuntimeHost(This, result);
 697 }
 698
 699 #ifdef __i386__
 700 static const WCHAR libmono2_arch_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','-','x','8','6','.','d','l','l',0};
 701 #elif defined(__x86_64__)
 702 static const WCHAR libmono2_arch_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','-','x','8','6','_','6','4','.','d','l','l',0};
 703 #else
 704 static const WCHAR libmono2_arch_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','.','d','l','l',0};
 705 #endif
 706
 707 static BOOL find_mono_dll(LPCWSTR path, LPWSTR dll_path)
 708 {
 709     static const WCHAR mono2_dll[] = {'\\','b','i','n','\\','m','o','n','o','-','2','.','0','.','d','l','l',0};
 710     static const WCHAR libmono2_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','.','d','l','l',0};
 711     DWORD attributes=INVALID_FILE_ATTRIBUTES;
 712
 713     lstrcpyW(dll_path, path);
 714     lstrcatW(dll_path, libmono2_arch_dll);
 715     attributes = GetFileAttributesW(dll_path);
 716
 717     if (attributes == INVALID_FILE_ATTRIBUTES)
 718     {
 719         lstrcpyW(dll_path, path);
 720         lstrcatW(dll_path, mono2_dll);
 721         attributes = GetFileAttributesW(dll_path);
 722     }
 723
 724     if (attributes == INVALID_FILE_ATTRIBUTES)
 725     {
 726         lstrcpyW(dll_path, path);
 727         lstrcatW(dll_path, libmono2_dll);
 728         attributes = GetFileAttributesW(dll_path);
 729     }
 730
 731     return (attributes != INVALID_FILE_ATTRIBUTES);
 732 }
 733
 734 static BOOL get_mono_path_local(LPWSTR path)
 735 {
 736     static const WCHAR subdir_mono[] = {'\\','m','o','n','o','\\','m','o','n','o','-','2','.','0', 0};
 737     WCHAR base_path[MAX_PATH], mono_dll_path[MAX_PATH];
 738
 739     /* c:\windows\mono\mono-2.0 */
 740     GetWindowsDirectoryW(base_path, MAX_PATH);
 741     lstrcatW(base_path, subdir_mono);
 742
 743     if (find_mono_dll(base_path, mono_dll_path))
 744     {
 745         lstrcpyW(path, base_path);
 746         return TRUE;
 747     }
 748
 749     return FALSE;
 750 }
 751
 752 static BOOL get_mono_path_registry(LPWSTR path)
 753 {
 754     static const WCHAR keyname[] = {'S','o','f','t','w','a','r','e','\\','W','i','n','e','\\','M','o','n','o',0};
 755     static const WCHAR valuename[] = {'R','u','n','t','i','m','e','P','a','t','h',0};
 756     WCHAR base_path[MAX_PATH], mono_dll_path[MAX_PATH];
 757     HKEY hkey;
 758     DWORD res, valuesize;
 759     BOOL ret=FALSE;
 760
 761     /* @@ Wine registry key: HKCU\Software\Wine\Mono */
 762     res = RegOpenKeyW(HKEY_CURRENT_USER, keyname, &hkey);
 763     if (res != ERROR_SUCCESS)
 764         return FALSE;
 765
 766     valuesize = sizeof(base_path);
 767     res = RegGetValueW(hkey, NULL, valuename, RRF_RT_REG_SZ, NULL, base_path, &valuesize);
 768     if (res == ERROR_SUCCESS && find_mono_dll(base_path, mono_dll_path))
 769     {
 770         lstrcpyW(path, base_path);
 771         ret = TRUE;
 772     }
 773
 774     RegCloseKey(hkey);
 775
 776     return ret;
 777 }
 778
 779 static BOOL get_mono_path_dos(const WCHAR *dir, LPWSTR path)
 780 {
 781     static const WCHAR unix_prefix[] = {'\\','\\','?','\\','u','n','i','x','\\'};
 782     static const WCHAR basedir[] = L"\\wine-mono-" WINE_MONO_VERSION;
 783     LPWSTR dos_dir;
 784     WCHAR mono_dll_path[MAX_PATH];
 785     DWORD len;
 786     BOOL ret;
 787
 788     if (memcmp(dir, unix_prefix, sizeof(unix_prefix)) == 0)
 789         return FALSE;  /* No drive letter for this directory */
 790
 791     len = lstrlenW( dir ) + lstrlenW( basedir ) + 1;
 792     if (!(dos_dir = heap_alloc( len * sizeof(WCHAR) ))) return FALSE;
 793     lstrcpyW( dos_dir, dir );
 794     lstrcatW( dos_dir, basedir );
 795
 796     ret = find_mono_dll(dos_dir, mono_dll_path);
 797     if (ret)
 798         lstrcpyW(path, dos_dir);
 799
 800     heap_free(dos_dir);
 801
 802     return ret;
 803 }
 804
 805 static BOOL get_mono_path_unix(const char *unix_dir, LPWSTR path)
 806 {
 807     static WCHAR * (CDECL *p_wine_get_dos_file_name)(const char*);
 808     LPWSTR dos_dir;
 809     BOOL ret;
 810
 811     if (!p_wine_get_dos_file_name)
 812     {
 813         p_wine_get_dos_file_name = (void*)GetProcAddress(GetModuleHandleA("kernel32"), "wine_get_dos_file_name");
 814         if (!p_wine_get_dos_file_name)
 815             return FALSE;
 816     }
 817
 818     dos_dir = p_wine_get_dos_file_name(unix_dir);
 819     if (!dos_dir)
 820         return FALSE;
 821
 822     ret = get_mono_path_dos( dos_dir, path);
 823
 824     heap_free(dos_dir);
 825     return ret;
 826 }
 827
 828 static BOOL get_mono_path_datadir(LPWSTR path)
 829 {
 830     static const WCHAR winedatadirW[] = {'W','I','N','E','D','A','T','A','D','I','R',0};
 831     static const WCHAR winebuilddirW[] = {'W','I','N','E','B','U','I','L','D','D','I','R',0};
 832     static const WCHAR unix_prefix[] = {'\\','?','?','\\','u','n','i','x','\\'};
 833     static const WCHAR monoW[] = {'\\','m','o','n','o',0};
 834     static const WCHAR dotdotmonoW[] = {'\\','.','.','\\','m','o','n','o',0};
 835     const WCHAR *data_dir, *suffix;
 836     WCHAR *package_dir;
 837     BOOL ret;
 838
 839     if ((data_dir = _wgetenv( winedatadirW )))
 840         suffix = monoW;
 841     else if ((data_dir = _wgetenv( winebuilddirW )))
 842         suffix = dotdotmonoW;
 843     else
 844         return FALSE;
 845
 846     if (!wcsncmp( data_dir, unix_prefix, wcslen(unix_prefix) )) return FALSE;
 847     data_dir += 4;  /* skip \??\ prefix */
 848     package_dir = heap_alloc( (lstrlenW(data_dir) + lstrlenW(suffix) + 1) * sizeof(WCHAR));
 849     lstrcpyW( package_dir, data_dir );
 850     lstrcatW( package_dir, suffix );
 851
 852     ret = get_mono_path_dos(package_dir, path);
 853
 854     heap_free(package_dir);
 855
 856     return ret;
 857 }
 858
 859 BOOL get_mono_path(LPWSTR path, BOOL skip_local)
 860 {
 861     return (!skip_local && get_mono_path_local(path)) ||
 862         get_mono_path_registry(path) ||
 863         get_mono_path_datadir(path) ||
 864         get_mono_path_unix(INSTALL_DATADIR "/wine/mono", path) ||
 865         (strcmp(INSTALL_DATADIR, "/usr/share") &&
 866          get_mono_path_unix("/usr/share/wine/mono", path)) ||
 867         get_mono_path_unix("/opt/wine/mono", path);
 868 }
 869
 870 struct InstalledRuntimeEnum
 871 {
 872     IEnumUnknown IEnumUnknown_iface;
 873     LONG ref;
 874     ULONG pos;
 875 };
 876
 877 static const struct IEnumUnknownVtbl InstalledRuntimeEnum_Vtbl;
 878
 879 static inline struct InstalledRuntimeEnum *impl_from_IEnumUnknown(IEnumUnknown *iface)
 880 {
 881     return CONTAINING_RECORD(iface, struct InstalledRuntimeEnum, IEnumUnknown_iface);
 882 }
 883
 884 static HRESULT WINAPI InstalledRuntimeEnum_QueryInterface(IEnumUnknown* iface, REFIID riid,
 885         void **ppvObject)
 886 {
 887     TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
 888
 889     if ( IsEqualGUID( riid, &IID_IEnumUnknown ) ||
 890          IsEqualGUID( riid, &IID_IUnknown ) )
 891     {
 892         *ppvObject = iface;
 893     }
 894     else
 895     {
 896         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
 897         return E_NOINTERFACE;
 898     }
 899
 900     IEnumUnknown_AddRef( iface );
 901
 902     return S_OK;
 903 }
 904
 905 static ULONG WINAPI InstalledRuntimeEnum_AddRef(IEnumUnknown* iface)
 906 {
 907     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 908     ULONG ref = InterlockedIncrement(&This->ref);
 909
 910     TRACE("(%p) refcount=%lu\n", iface, ref);
 911
 912     return ref;
 913 }
 914
 915 static ULONG WINAPI InstalledRuntimeEnum_Release(IEnumUnknown* iface)
 916 {
 917     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 918     ULONG ref = InterlockedDecrement(&This->ref);
 919
 920     TRACE("(%p) refcount=%lu\n", iface, ref);
 921
 922     if (ref == 0)
 923     {
 924         HeapFree(GetProcessHeap(), 0, This);
 925     }
 926
 927     return ref;
 928 }
 929
 930 static HRESULT WINAPI InstalledRuntimeEnum_Next(IEnumUnknown *iface, ULONG celt,
 931     IUnknown **rgelt, ULONG *pceltFetched)
 932 {
 933     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 934     ULONG num_fetched = 0;
 935     HRESULT hr=S_OK;
 936     IUnknown *item;
 937
 938     TRACE("(%p,%lu,%p,%p)\n", iface, celt, rgelt, pceltFetched);
 939
 940     while (num_fetched < celt)
 941     {
 942         if (This->pos >= NUM_RUNTIMES)
 943         {
 944             hr = S_FALSE;
 945             break;
 946         }
 947         item = (IUnknown*)&runtimes[This->pos].ICLRRuntimeInfo_iface;
 948         IUnknown_AddRef(item);
 949         rgelt[num_fetched] = item;
 950         num_fetched++;
 951         This->pos++;
 952     }
 953
 954     if (pceltFetched)
 955         *pceltFetched = num_fetched;
 956
 957     return hr;
 958 }
 959
 960 static HRESULT WINAPI InstalledRuntimeEnum_Skip(IEnumUnknown *iface, ULONG celt)
 961 {
 962     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 963     ULONG num_fetched = 0;
 964     HRESULT hr=S_OK;
 965
 966     TRACE("(%p,%lu)\n", iface, celt);
 967
 968     while (num_fetched < celt)
 969     {
 970         if (This->pos >= NUM_RUNTIMES)
 971         {
 972             hr = S_FALSE;
 973             break;
 974         }
 975         num_fetched++;
 976         This->pos++;
 977     }
 978
 979     return hr;
 980 }
 981
 982 static HRESULT WINAPI InstalledRuntimeEnum_Reset(IEnumUnknown *iface)
 983 {
 984     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 985
 986     TRACE("(%p)\n", iface);
 987
 988     This->pos = 0;
 989
 990     return S_OK;
 991 }
 992
 993 static HRESULT WINAPI InstalledRuntimeEnum_Clone(IEnumUnknown *iface, IEnumUnknown **ppenum)
 994 {
 995     struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 996     struct InstalledRuntimeEnum *new_enum;
 997
 998     TRACE("(%p)\n", iface);
 999
1000     new_enum = HeapAlloc(GetProcessHeap(), 0, sizeof(*new_enum));
1001     if (!new_enum)
1002         return E_OUTOFMEMORY;
1003
1004     new_enum->IEnumUnknown_iface.lpVtbl = &InstalledRuntimeEnum_Vtbl;
1005     new_enum->ref = 1;
1006     new_enum->pos = This->pos;
1007
1008     *ppenum = &new_enum->IEnumUnknown_iface;
1009
1010     return S_OK;
1011 }
1012
1013 static const struct IEnumUnknownVtbl InstalledRuntimeEnum_Vtbl = {
1014     InstalledRuntimeEnum_QueryInterface,
1015     InstalledRuntimeEnum_AddRef,
1016     InstalledRuntimeEnum_Release,
1017     InstalledRuntimeEnum_Next,
1018     InstalledRuntimeEnum_Skip,
1019     InstalledRuntimeEnum_Reset,
1020     InstalledRuntimeEnum_Clone
1021 };
1022
1023 static HRESULT WINAPI CLRMetaHost_QueryInterface(ICLRMetaHost* iface,
1024         REFIID riid,
1025         void **ppvObject)
1026 {
1027     TRACE("%s %p\n", debugstr_guid(riid), ppvObject);
1028
1029     if ( IsEqualGUID( riid, &IID_ICLRMetaHost ) ||
1030          IsEqualGUID( riid, &IID_IUnknown ) )
1031     {
1032         *ppvObject = iface;
1033     }
1034     else
1035     {
1036         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
1037         return E_NOINTERFACE;
1038     }
1039
1040     ICLRMetaHost_AddRef( iface );
1041
1042     return S_OK;
1043 }
1044
1045 static ULONG WINAPI CLRMetaHost_AddRef(ICLRMetaHost* iface)
1046 {
1047     return 2;
1048 }
1049
1050 static ULONG WINAPI CLRMetaHost_Release(ICLRMetaHost* iface)
1051 {
1052     return 1;
1053 }
1054
1055 static inline BOOL isDigit(WCHAR c)
1056 {
1057     return c >= '0' && c <= '9';
1058 }
1059
1060 static BOOL parse_runtime_version(LPCWSTR version, DWORD *major, DWORD *minor, DWORD *build)
1061 {
1062     *major = 0;
1063     *minor = 0;
1064     *build = 0;
1065
1066     if (version[0] == 'v' || version[0] == 'V')
1067     {
1068         version++;
1069         if (!isDigit(*version))
1070             return FALSE;
1071
1072         while (isDigit(*version))
1073             *major = *major * 10 + (*version++ - '0');
1074
1075         if (*version == 0)
1076             return TRUE;
1077
1078         if (*version++ != '.' || !isDigit(*version))
1079             return FALSE;
1080
1081         while (isDigit(*version))
1082             *minor = *minor * 10 + (*version++ - '0');
1083
1084         if (*version == 0)
1085             return TRUE;
1086
1087         if (*version++ != '.' || !isDigit(*version))
1088             return FALSE;
1089
1090         while (isDigit(*version))
1091             *build = *build * 10 + (*version++ - '0');
1092
1093         return *version == 0;
1094     }
1095     else
1096         return FALSE;
1097 }
1098
1099 static HRESULT get_runtime(LPCWSTR pwzVersion, BOOL allow_short,
1100     REFIID iid, LPVOID *ppRuntime)
1101 {
1102     int i;
1103     DWORD major, minor, build;
1104
1105     if (!pwzVersion)
1106         return E_POINTER;
1107
1108     if (!parse_runtime_version(pwzVersion, &major, &minor, &build))
1109     {
1110         ERR("Cannot parse %s\n", debugstr_w(pwzVersion));
1111         return CLR_E_SHIM_RUNTIME;
1112     }
1113
1114     for (i=0; i<NUM_RUNTIMES; i++)
1115     {
1116         if (runtimes[i].major == major && runtimes[i].minor == minor &&
1117             (runtimes[i].build == build || (allow_short && major >= 4 && build == 0)))
1118         {
1119             return ICLRRuntimeInfo_QueryInterface(&runtimes[i].ICLRRuntimeInfo_iface, iid,
1120                     ppRuntime);
1121         }
1122     }
1123
1124     FIXME("Unrecognized version %s\n", debugstr_w(pwzVersion));
1125     return CLR_E_SHIM_RUNTIME;
1126 }
1127
1128 HRESULT WINAPI CLRMetaHost_GetRuntime(ICLRMetaHost* iface,
1129     LPCWSTR pwzVersion, REFIID iid, LPVOID *ppRuntime)
1130 {
1131     TRACE("%s %s %p\n", debugstr_w(pwzVersion), debugstr_guid(iid), ppRuntime);
1132
1133     return get_runtime(pwzVersion, FALSE, iid, ppRuntime);
1134 }
1135
1136 HRESULT WINAPI CLRMetaHost_GetVersionFromFile(ICLRMetaHost* iface,
1137     LPCWSTR pwzFilePath, LPWSTR pwzBuffer, DWORD *pcchBuffer)
1138 {
1139     ASSEMBLY *assembly;
1140     HRESULT hr;
1141     LPSTR version;
1142     ULONG buffer_size=*pcchBuffer;
1143
1144     TRACE("%s %p %p\n", debugstr_w(pwzFilePath), pwzBuffer, pcchBuffer);
1145
1146     hr = assembly_create(&assembly, pwzFilePath);
1147
1148     if (SUCCEEDED(hr))
1149     {
1150         hr = assembly_get_runtime_version(assembly, &version);
1151
1152         if (SUCCEEDED(hr))
1153         {
1154             *pcchBuffer = MultiByteToWideChar(CP_UTF8, 0, version, -1, NULL, 0);
1155
1156             if (pwzBuffer)
1157             {
1158                 if (buffer_size >= *pcchBuffer)
1159                     MultiByteToWideChar(CP_UTF8, 0, version, -1, pwzBuffer, buffer_size);
1160                 else
1161                     hr = E_NOT_SUFFICIENT_BUFFER;
1162             }
1163         }
1164
1165         assembly_release(assembly);
1166     }
1167
1168     return hr;
1169 }
1170
1171 static HRESULT WINAPI CLRMetaHost_EnumerateInstalledRuntimes(ICLRMetaHost* iface,
1172     IEnumUnknown **ppEnumerator)
1173 {
1174     struct InstalledRuntimeEnum *new_enum;
1175
1176     TRACE("%p\n", ppEnumerator);
1177
1178     new_enum = HeapAlloc(GetProcessHeap(), 0, sizeof(*new_enum));
1179     if (!new_enum)
1180         return E_OUTOFMEMORY;
1181
1182     new_enum->IEnumUnknown_iface.lpVtbl = &InstalledRuntimeEnum_Vtbl;
1183     new_enum->ref = 1;
1184     new_enum->pos = 0;
1185
1186     *ppEnumerator = &new_enum->IEnumUnknown_iface;
1187
1188     return S_OK;
1189 }
1190
1191 static HRESULT WINAPI CLRMetaHost_EnumerateLoadedRuntimes(ICLRMetaHost* iface,
1192     HANDLE hndProcess, IEnumUnknown **ppEnumerator)
1193 {
1194     FIXME("%p %p\n", hndProcess, ppEnumerator);
1195
1196     return E_NOTIMPL;
1197 }
1198
1199 static HRESULT WINAPI CLRMetaHost_RequestRuntimeLoadedNotification(ICLRMetaHost* iface,
1200     RuntimeLoadedCallbackFnPtr pCallbackFunction)
1201 {
1202     TRACE("%p\n", pCallbackFunction);
1203
1204     if(!pCallbackFunction)
1205         return E_POINTER;
1206
1207     if (GlobalCLRMetaHost.callback)
1208         return HOST_E_INVALIDOPERATION;
1209
1210     GlobalCLRMetaHost.callback = pCallbackFunction;
1211
1212     return S_OK;
1213 }
1214
1215 static HRESULT WINAPI CLRMetaHost_QueryLegacyV2RuntimeBinding(ICLRMetaHost* iface,
1216     REFIID riid, LPVOID *ppUnk)
1217 {
1218     FIXME("%s %p\n", debugstr_guid(riid), ppUnk);
1219
1220     return E_NOTIMPL;
1221 }
1222
1223 HRESULT WINAPI CLRMetaHost_ExitProcess(ICLRMetaHost* iface, INT32 iExitCode)
1224 {
1225     TRACE("%i\n", iExitCode);
1226
1227     EnterCriticalSection(&runtime_list_cs);
1228
1229     if (is_mono_started && !is_mono_shutdown)
1230     {
1231         /* search for a runtime and call System.Environment.Exit() */
1232         int i;
1233
1234         for (i=0; i<NUM_RUNTIMES; i++)
1235             if (runtimes[i].loaded_runtime)
1236                 RuntimeHost_ExitProcess(runtimes[i].loaded_runtime, iExitCode);
1237     }
1238
1239     ExitProcess(iExitCode);
1240 }
1241
1242 static const struct ICLRMetaHostVtbl CLRMetaHost_vtbl =
1243 {
1244     CLRMetaHost_QueryInterface,
1245     CLRMetaHost_AddRef,
1246     CLRMetaHost_Release,
1247     CLRMetaHost_GetRuntime,
1248     CLRMetaHost_GetVersionFromFile,
1249     CLRMetaHost_EnumerateInstalledRuntimes,
1250     CLRMetaHost_EnumerateLoadedRuntimes,
1251     CLRMetaHost_RequestRuntimeLoadedNotification,
1252     CLRMetaHost_QueryLegacyV2RuntimeBinding,
1253     CLRMetaHost_ExitProcess
1254 };
1255
1256 static struct CLRMetaHost GlobalCLRMetaHost = {
1257     { &CLRMetaHost_vtbl }
1258 };
1259
1260 HRESULT CLRMetaHost_CreateInstance(REFIID riid, void **ppobj)
1261 {
1262     return ICLRMetaHost_QueryInterface(&GlobalCLRMetaHost.ICLRMetaHost_iface, riid, ppobj);
1263 }
1264
1265 struct CLRMetaHostPolicy
1266 {
1267     ICLRMetaHostPolicy ICLRMetaHostPolicy_iface;
1268 };
1269
1270 static struct CLRMetaHostPolicy GlobalCLRMetaHostPolicy;
1271
1272 static HRESULT WINAPI metahostpolicy_QueryInterface(ICLRMetaHostPolicy *iface, REFIID riid, void **obj)
1273 {
1274     TRACE("%s %p\n", debugstr_guid(riid), obj);
1275
1276     if ( IsEqualGUID( riid, &IID_ICLRMetaHostPolicy ) ||
1277          IsEqualGUID( riid, &IID_IUnknown ) )
1278     {
1279         ICLRMetaHostPolicy_AddRef( iface );
1280         *obj = iface;
1281         return S_OK;
1282     }
1283
1284     FIXME("Unsupported interface %s\n", debugstr_guid(riid));
1285
1286     *obj = NULL;
1287     return E_NOINTERFACE;
1288 }
1289
1290 static ULONG WINAPI metahostpolicy_AddRef(ICLRMetaHostPolicy *iface)
1291 {
1292     return 2;
1293 }
1294
1295 static ULONG WINAPI metahostpolicy_Release(ICLRMetaHostPolicy *iface)
1296 {
1297     return 1;
1298 }
1299
1300 static HRESULT WINAPI metahostpolicy_GetRequestedRuntime(ICLRMetaHostPolicy *iface, METAHOST_POLICY_FLAGS dwPolicyFlags,
1301     LPCWSTR pwzBinary, IStream *pCfgStream, LPWSTR pwzVersion, DWORD *pcchVersion,
1302     LPWSTR pwzImageVersion, DWORD *pcchImageVersion, DWORD *pdwConfigFlags, REFIID riid,
1303     LPVOID *ppRuntime)
1304 {
1305     ICLRRuntimeInfo *result;
1306     HRESULT hr;
1307     WCHAR filename[MAX_PATH];
1308     const WCHAR *path = NULL;
1309     int flags = 0;
1310
1311     TRACE("%d %p %p %p %p %p %p %p %s %p\n", dwPolicyFlags, pwzBinary, pCfgStream,
1312         pwzVersion, pcchVersion, pwzImageVersion, pcchImageVersion, pdwConfigFlags,
1313         debugstr_guid(riid), ppRuntime);
1314
1315     if (pdwConfigFlags) {
1316         FIXME("ignoring config flags\n");
1317         *pdwConfigFlags = 0;
1318     }
1319
1320     if(dwPolicyFlags & METAHOST_POLICY_USE_PROCESS_IMAGE_PATH)
1321     {
1322         GetModuleFileNameW(0, filename, MAX_PATH);
1323         path = filename;
1324     }
1325     else if(pwzBinary)
1326     {
1327         path = pwzBinary;
1328     }
1329
1330     if(dwPolicyFlags & METAHOST_POLICY_APPLY_UPGRADE_POLICY)
1331         flags |= RUNTIME_INFO_UPGRADE_VERSION;
1332
1333     hr = get_runtime_info(path, pwzImageVersion, NULL, pCfgStream, 0, flags, FALSE, &result);
1334     if (SUCCEEDED(hr))
1335     {
1336         if (pwzImageVersion)
1337         {
1338             /* Ignoring errors on purpose */
1339             ICLRRuntimeInfo_GetVersionString(result, pwzImageVersion, pcchImageVersion);
1340         }
1341
1342         hr = ICLRRuntimeInfo_QueryInterface(result, riid, ppRuntime);
1343
1344         ICLRRuntimeInfo_Release(result);
1345     }
1346
1347     TRACE("<- 0x%08lx\n", hr);
1348
1349     return hr;
1350 }
1351
1352 static const struct ICLRMetaHostPolicyVtbl CLRMetaHostPolicy_vtbl =
1353 {
1354     metahostpolicy_QueryInterface,
1355     metahostpolicy_AddRef,
1356     metahostpolicy_Release,
1357     metahostpolicy_GetRequestedRuntime
1358 };
1359
1360 static struct CLRMetaHostPolicy GlobalCLRMetaHostPolicy = {
1361     { &CLRMetaHostPolicy_vtbl }
1362 };
1363
1364 HRESULT CLRMetaHostPolicy_CreateInstance(REFIID riid, void **ppobj)
1365 {
1366     return ICLRMetaHostPolicy_QueryInterface(&GlobalCLRMetaHostPolicy.ICLRMetaHostPolicy_iface, riid, ppobj);
1367 }
1368
1369 /*
1370  * Assembly search override settings:
1371  *
1372  * WINE_MONO_OVERRIDES=*,Gac=n
1373  *  Never search the GAC for libraries.
1374  *
1375  * WINE_MONO_OVERRIDES=*,PrivatePath=n
1376  *  Never search the AppDomain search path for libraries.
1377  *
1378  * WINE_MONO_OVERRIDES=Microsoft.Xna.Framework,Gac=n
1379  *  Never search the GAC for Microsoft.Xna.Framework
1380  *
1381  * WINE_MONO_OVERRIDES=Microsoft.Xna.Framework.*,Gac=n;Microsoft.Xna.Framework.GamerServices,Gac=y
1382  *  Never search the GAC for Microsoft.Xna.Framework, or any library starting
1383  *  with Microsoft.Xna.Framework, except for Microsoft.Xna.Framework.GamerServices
1384  */
1385
1386 /* assembly search override flags */
1387 #define ASSEMBLY_SEARCH_GAC 1
1388 #define ASSEMBLY_SEARCH_UNDEFINED 2
1389 #define ASSEMBLY_SEARCH_PRIVATEPATH 4
1390 #define ASSEMBLY_SEARCH_DEFAULT (ASSEMBLY_SEARCH_GAC|ASSEMBLY_SEARCH_PRIVATEPATH)
1391
1392 typedef struct override_entry {
1393     char *name;
1394     DWORD flags;
1395     struct list entry;
1396 } override_entry;
1397
1398 static struct list env_overrides = LIST_INIT(env_overrides);
1399
1400 #define IS_OPTION_TRUE(ch) \
1401     ((ch) == 'y' || (ch) == 'Y' || (ch) == 't' || (ch) == 'T' || (ch) == '1')
1402 #define IS_OPTION_FALSE(ch) \
1403     ((ch) == 'n' || (ch) == 'N' || (ch) == 'f' || (ch) == 'F' || (ch) == '0')
1404
1405 static void parse_override_entry(override_entry *entry, const char *string, int string_len)
1406 {
1407     const char *next_key, *equals, *value;
1408     UINT kvp_len, key_len;
1409
1410     entry->flags = ASSEMBLY_SEARCH_DEFAULT;
1411
1412     while (string && string_len > 0)
1413     {
1414         next_key = memchr(string, ',', string_len);
1415
1416         if (next_key)
1417         {
1418             kvp_len = next_key - string;
1419             next_key++;
1420         }
1421         else
1422             kvp_len = string_len;
1423
1424         equals = memchr(string, '=', kvp_len);
1425
1426         if (equals)
1427         {
1428             key_len = equals - string;
1429             value = equals + 1;
1430             switch (key_len) {
1431             case 3:
1432                 if (!_strnicmp(string, "gac", 3)) {
1433                     if (IS_OPTION_TRUE(*value))
1434                         entry->flags |= ASSEMBLY_SEARCH_GAC;
1435                     else if (IS_OPTION_FALSE(*value))
1436                         entry->flags &= ~ASSEMBLY_SEARCH_GAC;
1437                 }
1438                 break;
1439             case 11:
1440                 if (!_strnicmp(string, "privatepath", 11)) {
1441                     if (IS_OPTION_TRUE(*value))
1442                         entry->flags |= ASSEMBLY_SEARCH_PRIVATEPATH;
1443                     else if (IS_OPTION_FALSE(*value))
1444                         entry->flags &= ~ASSEMBLY_SEARCH_PRIVATEPATH;
1445                 }
1446                 break;
1447             default:
1448                 break;
1449             }
1450         }
1451
1452         string = next_key;
1453         string_len -= kvp_len + 1;
1454     }
1455 }
1456
1457 static BOOL WINAPI parse_env_overrides(INIT_ONCE *once, void *param, void **context)
1458 {
1459     const char *override_string = getenv("WINE_MONO_OVERRIDES");
1460     struct override_entry *entry;
1461
1462     if (override_string)
1463     {
1464         const char *entry_start;
1465
1466         entry_start = override_string;
1467
1468         while (entry_start && *entry_start)
1469         {
1470             const char *next_entry, *basename_end;
1471             UINT entry_len;
1472
1473             next_entry = strchr(entry_start, ';');
1474
1475             if (next_entry)
1476             {
1477                 entry_len = next_entry - entry_start;
1478                 next_entry++;
1479             }
1480             else
1481                 entry_len = strlen(entry_start);
1482
1483             basename_end = memchr(entry_start, ',', entry_len);
1484
1485             if (!basename_end)
1486             {
1487                 entry_start = next_entry;
1488                 continue;
1489             }
1490
1491             entry = heap_alloc_zero(sizeof(*entry));
1492             if (!entry)
1493             {
1494                 ERR("out of memory\n");
1495                 break;
1496             }
1497
1498             entry->name = heap_alloc_zero(basename_end - entry_start + 1);
1499             if (!entry->name)
1500             {
1501                 ERR("out of memory\n");
1502                 heap_free(entry);
1503                 break;
1504             }
1505
1506             memcpy(entry->name, entry_start, basename_end - entry_start);
1507
1508             entry_len -= basename_end - entry_start + 1;
1509             entry_start = basename_end + 1;
1510
1511             parse_override_entry(entry, entry_start, entry_len);
1512
1513             list_add_tail(&env_overrides, &entry->entry);
1514
1515             entry_start = next_entry;
1516         }
1517     }
1518
1519     return TRUE;
1520 }
1521
1522 static DWORD get_basename_search_flags(const char *basename, MonoAssemblyName *aname, HKEY userkey, HKEY appkey)
1523 {
1524     struct override_entry *entry;
1525     char buffer[256];
1526     DWORD buffer_size;
1527     static INIT_ONCE init_once = INIT_ONCE_STATIC_INIT;
1528
1529     InitOnceExecuteOnce(&init_once, parse_env_overrides, NULL, NULL);
1530
1531     LIST_FOR_EACH_ENTRY(entry, &env_overrides, override_entry, entry)
1532     {
1533         if (strcmp(basename, entry->name) == 0)
1534         {
1535             return entry->flags;
1536         }
1537     }
1538
1539     buffer_size = sizeof(buffer);
1540     if (appkey && !RegQueryValueExA(appkey, basename, 0, NULL, (LPBYTE)buffer, &buffer_size))
1541     {
1542         override_entry reg_entry;
1543
1544         memset(&reg_entry, 0, sizeof(reg_entry));
1545
1546         parse_override_entry(&reg_entry, buffer, strlen(buffer));
1547
1548         return reg_entry.flags;
1549     }
1550
1551     buffer_size = sizeof(buffer);
1552     if (userkey && !RegQueryValueExA(userkey, basename, 0, NULL, (LPBYTE)buffer, &buffer_size))
1553     {
1554         override_entry reg_entry;
1555
1556         memset(&reg_entry, 0, sizeof(reg_entry));
1557
1558         parse_override_entry(&reg_entry, buffer, strlen(buffer));
1559
1560         return reg_entry.flags;
1561     }
1562
1563     if (strcmp(basename, "Microsoft.Xna.Framework.*") == 0 &&
1564         mono_assembly_name_get_version(aname, NULL, NULL, NULL) == 4)
1565         /* Use FNA as a replacement for XNA4. */
1566         return 0;
1567
1568     return ASSEMBLY_SEARCH_UNDEFINED;
1569 }
1570
1571 static HKEY get_app_overrides_key(void)
1572 {
1573     static const WCHAR subkeyW[] = {'\\','M','o','n','o','\\','A','s','m','O','v','e','r','r','i','d','e','s',0};
1574     WCHAR bufferW[MAX_PATH+18];
1575     HKEY appkey = 0;
1576     DWORD len;
1577
1578     len = (GetModuleFileNameW( 0, bufferW, MAX_PATH ));
1579     if (len && len < MAX_PATH)
1580     {
1581         HKEY tmpkey;
1582         WCHAR *p, *appname = bufferW;
1583         if ((p = wcsrchr( appname, '/' ))) appname = p + 1;
1584         if ((p = wcsrchr( appname, '\\' ))) appname = p + 1;
1585         lstrcatW( appname, subkeyW );
1586         /* @@ Wine registry key: HKCU\Software\Wine\AppDefaults\app.exe\Mono\AsmOverrides */
1587         if (!RegOpenKeyA( HKEY_CURRENT_USER, "Software\\Wine\\AppDefaults", &tmpkey ))
1588         {
1589             if (RegOpenKeyW( tmpkey, appname, &appkey )) appkey = 0;
1590             RegCloseKey( tmpkey );
1591         }
1592     }
1593
1594     return appkey;
1595 }
1596
1597 static DWORD get_assembly_search_flags(MonoAssemblyName *aname)
1598 {
1599     const char *name = mono_assembly_name_get_name(aname);
1600     char *name_copy, *name_end;
1601     DWORD result;
1602     HKEY appkey = 0, userkey;
1603
1604     /* @@ Wine registry key: HKCU\Software\Wine\Mono\AsmOverrides */
1605     if (RegOpenKeyA( HKEY_CURRENT_USER, "Software\\Wine\\Mono\\AsmOverrides", &userkey )) userkey = 0;
1606
1607     appkey = get_app_overrides_key();
1608
1609     result = get_basename_search_flags(name, aname, userkey, appkey);
1610     if (result != ASSEMBLY_SEARCH_UNDEFINED)
1611     {
1612         if (userkey) RegCloseKey(userkey);
1613         if (appkey) RegCloseKey(appkey);
1614         return result;
1615     }
1616
1617     name_copy = heap_alloc((strlen(name) + 3) * sizeof(WCHAR));
1618     if (!name_copy)
1619     {
1620         ERR("out of memory\n");
1621         if (userkey) RegCloseKey(userkey);
1622         if (appkey) RegCloseKey(appkey);
1623         return ASSEMBLY_SEARCH_DEFAULT;
1624     }
1625
1626     strcpy(name_copy, name);
1627     name_end = name_copy + strlen(name);
1628
1629     do
1630     {
1631         strcpy(name_end, ".*");
1632         result = get_basename_search_flags(name_copy, aname, userkey, appkey);
1633         if (result != ASSEMBLY_SEARCH_UNDEFINED) break;
1634
1635         *name_end = 0;
1636         name_end = strrchr(name_copy, '.');
1637     } while (name_end != NULL);
1638
1639     /* default flags */
1640     if (result == ASSEMBLY_SEARCH_UNDEFINED)
1641     {
1642         result = get_basename_search_flags("*", aname, userkey, appkey);
1643         if (result == ASSEMBLY_SEARCH_UNDEFINED)
1644             result = ASSEMBLY_SEARCH_DEFAULT;
1645     }
1646
1647     heap_free(name_copy);
1648     if (appkey) RegCloseKey(appkey);
1649     if (userkey) RegCloseKey(userkey);
1650
1651     return result;
1652 }
1653
1654 HRESULT get_file_from_strongname(WCHAR* stringnameW, WCHAR* assemblies_path, int path_length)
1655 {
1656     HRESULT hr=S_OK;
1657     IAssemblyCache *asmcache;
1658     ASSEMBLY_INFO info;
1659     static const WCHAR fusiondll[] = {'f','u','s','i','o','n',0};
1660     HMODULE hfusion=NULL;
1661     static HRESULT (WINAPI *pCreateAssemblyCache)(IAssemblyCache**,DWORD);
1662
1663     if (!pCreateAssemblyCache)
1664     {
1665         hr = LoadLibraryShim(fusiondll, NULL, NULL, &hfusion);
1666
1667         if (SUCCEEDED(hr))
1668         {
1669             pCreateAssemblyCache = (void*)GetProcAddress(hfusion, "CreateAssemblyCache");
1670             if (!pCreateAssemblyCache)
1671                 hr = E_FAIL;
1672         }
1673     }
1674
1675     if (SUCCEEDED(hr))
1676         hr = pCreateAssemblyCache(&asmcache, 0);
1677
1678     if (SUCCEEDED(hr))
1679     {
1680         info.cbAssemblyInfo = sizeof(info);
1681         info.pszCurrentAssemblyPathBuf = assemblies_path;
1682         info.cchBuf = path_length;
1683         assemblies_path[0] = 0;
1684
1685         hr = IAssemblyCache_QueryAssemblyInfo(asmcache, 0, stringnameW, &info);
1686
1687         IAssemblyCache_Release(asmcache);
1688     }
1689
1690     return hr;
1691 }
1692
1693 static MonoAssembly* mono_assembly_try_load(WCHAR *path)
1694 {
1695     MonoAssembly *result = NULL;
1696     MonoImageOpenStatus stat;
1697     char *pathA;
1698
1699     if (!(pathA = WtoA(path))) return NULL;
1700
1701     result = mono_assembly_open(pathA, &stat);
1702     HeapFree(GetProcessHeap(), 0, pathA);
1703
1704     if (result) TRACE("found: %s\n", debugstr_w(path));
1705     return result;
1706 }
1707
1708 static MonoAssembly* CDECL mono_assembly_preload_hook_fn(MonoAssemblyName *aname, char **assemblies_path, void *user_data)
1709 {
1710     int dummy;
1711     return wine_mono_assembly_preload_hook_fn(aname, assemblies_path, &dummy, user_data);
1712 }
1713
1714 static MonoAssembly* CDECL wine_mono_assembly_preload_hook_fn(MonoAssemblyName *aname, char **assemblies_path, int *halt_search, void *user_data)
1715 {
1716     HRESULT hr;
1717     MonoAssembly *result=NULL;
1718     char *stringname=NULL;
1719     const char *assemblyname;
1720     const char *culture;
1721     LPWSTR stringnameW, cultureW;
1722     int stringnameW_size, cultureW_size;
1723     WCHAR path[MAX_PATH];
1724     char *pathA;
1725     MonoImageOpenStatus stat;
1726     DWORD search_flags;
1727     int i;
1728     static const WCHAR dotdllW[] = {'.','d','l','l',0};
1729     static const WCHAR dotexeW[] = {'.','e','x','e',0};
1730
1731     stringname = mono_stringify_assembly_name(aname);
1732     assemblyname = mono_assembly_name_get_name(aname);
1733     culture = mono_assembly_name_get_culture(aname);
1734     if (culture)
1735     {
1736         cultureW_size = MultiByteToWideChar(CP_UTF8, 0, culture, -1, NULL, 0);
1737         cultureW = HeapAlloc(GetProcessHeap(), 0, cultureW_size * sizeof(WCHAR));
1738         if (cultureW) MultiByteToWideChar(CP_UTF8, 0, culture, -1, cultureW, cultureW_size);
1739     }
1740     else cultureW = NULL;
1741
1742     TRACE("%s\n", debugstr_a(stringname));
1743
1744     if (!stringname || !assemblyname) return NULL;
1745
1746     search_flags = get_assembly_search_flags(aname);
1747     if (private_path && (search_flags & ASSEMBLY_SEARCH_PRIVATEPATH) != 0)
1748     {
1749         stringnameW_size = MultiByteToWideChar(CP_UTF8, 0, assemblyname, -1, NULL, 0);
1750         stringnameW = HeapAlloc(GetProcessHeap(), 0, stringnameW_size * sizeof(WCHAR));
1751         if (stringnameW)
1752         {
1753             MultiByteToWideChar(CP_UTF8, 0, assemblyname, -1, stringnameW, stringnameW_size);
1754             for (i = 0; private_path[i] != NULL; i++)
1755             {
1756                 /* This is the lookup order used in Mono */
1757                 /* 1st try: [culture]/[name].dll (culture may be empty) */
1758                 wcscpy(path, private_path[i]);
1759                 if (cultureW) PathAppendW(path, cultureW);
1760                 PathAppendW(path, stringnameW);
1761                 wcscat(path, dotdllW);
1762                 result = mono_assembly_try_load(path);
1763                 if (result) break;
1764
1765                 /* 2nd try: [culture]/[name].exe (culture may be empty) */
1766                 wcscpy(path + wcslen(path) - wcslen(dotdllW), dotexeW);
1767                 result = mono_assembly_try_load(path);
1768                 if (result) break;
1769
1770                 /* 3rd try: [culture]/[name]/[name].dll (culture may be empty) */
1771                 path[wcslen(path) - wcslen(dotexeW)] = 0;
1772                 PathAppendW(path, stringnameW);
1773                 wcscat(path, dotdllW);
1774                 result = mono_assembly_try_load(path);
1775                 if (result) break;
1776
1777                 /* 4th try: [culture]/[name]/[name].exe (culture may be empty) */
1778                 wcscpy(path + wcslen(path) - wcslen(dotdllW), dotexeW);
1779                 result = mono_assembly_try_load(path);
1780                 if (result) break;
1781             }
1782             HeapFree(GetProcessHeap(), 0, stringnameW);
1783             if (result) goto done;
1784         }
1785     }
1786
1787     /* FIXME: We should search the given paths before the GAC. */
1788
1789     if ((search_flags & ASSEMBLY_SEARCH_GAC) != 0)
1790     {
1791         stringnameW_size = MultiByteToWideChar(CP_UTF8, 0, stringname, -1, NULL, 0);
1792
1793         stringnameW = HeapAlloc(GetProcessHeap(), 0, stringnameW_size * sizeof(WCHAR));
1794         if (stringnameW)
1795         {
1796             MultiByteToWideChar(CP_UTF8, 0, stringname, -1, stringnameW, stringnameW_size);
1797
1798             hr = get_file_from_strongname(stringnameW, path, MAX_PATH);
1799
1800             HeapFree(GetProcessHeap(), 0, stringnameW);
1801         }
1802         else
1803             hr = E_OUTOFMEMORY;
1804
1805         if (SUCCEEDED(hr))
1806         {
1807             TRACE("found: %s\n", debugstr_w(path));
1808
1809             pathA = WtoA(path);
1810
1811             if (pathA)
1812             {
1813                 result = mono_assembly_open(pathA, &stat);
1814
1815                 if (!result)
1816                     ERR("Failed to load %s, status=%u\n", debugstr_w(path), stat);
1817
1818                 HeapFree(GetProcessHeap(), 0, pathA);
1819             }
1820         }
1821     }
1822     else
1823         TRACE("skipping Windows GAC search due to override setting\n");
1824
1825     if ((search_flags & ASSEMBLY_SEARCH_PRIVATEPATH) == 0)
1826     {
1827         TRACE("skipping AppDomain search path due to override setting\n");
1828         *halt_search = 1;
1829     }
1830
1831 done:
1832     HeapFree(GetProcessHeap(), 0, cultureW);
1833     mono_free(stringname);
1834
1835     return result;
1836 }
1837
1838 HRESULT get_runtime_info(LPCWSTR exefile, LPCWSTR version, LPCWSTR config_file,
1839     IStream *config_stream, DWORD startup_flags, DWORD runtimeinfo_flags,
1840     BOOL legacy, ICLRRuntimeInfo **result)
1841 {
1842     static const WCHAR dotconfig[] = {'.','c','o','n','f','i','g',0};
1843     static const DWORD supported_startup_flags = 0;
1844     static const DWORD supported_runtime_flags = RUNTIME_INFO_UPGRADE_VERSION;
1845     int i;
1846     WCHAR local_version[MAX_PATH];
1847     ULONG local_version_size = MAX_PATH;
1848     WCHAR local_config_file[MAX_PATH];
1849     HRESULT hr;
1850     parsed_config_file parsed_config;
1851
1852     if (startup_flags & ~supported_startup_flags)
1853         FIXME("unsupported startup flags %lx\n", startup_flags & ~supported_startup_flags);
1854
1855     if (runtimeinfo_flags & ~supported_runtime_flags)
1856         FIXME("unsupported runtimeinfo flags %lx\n", runtimeinfo_flags & ~supported_runtime_flags);
1857
1858     if (exefile && !exefile[0])
1859         exefile = NULL;
1860
1861     if (exefile && !config_file && !config_stream)
1862     {
1863         lstrcpyW(local_config_file, exefile);
1864         lstrcatW(local_config_file, dotconfig);
1865
1866         config_file = local_config_file;
1867     }
1868
1869     if (config_file || config_stream)
1870     {
1871         BOOL found = FALSE;
1872         if (config_file)
1873             hr = parse_config_file(config_file, &parsed_config);
1874         else
1875             hr = parse_config_stream(config_stream, &parsed_config);
1876
1877         if (SUCCEEDED(hr))
1878         {
1879             supported_runtime *entry;
1880             LIST_FOR_EACH_ENTRY(entry, &parsed_config.supported_runtimes, supported_runtime, entry)
1881             {
1882                 hr = get_runtime(entry->version, TRUE, &IID_ICLRRuntimeInfo, (void**)result);
1883                 if (SUCCEEDED(hr))
1884                 {
1885                     found = TRUE;
1886                     break;
1887                 }
1888             }
1889         }
1890         else
1891         {
1892             WARN("failed to parse config file %s, hr=%lx\n", debugstr_w(config_file), hr);
1893         }
1894
1895         free_parsed_config_file(&parsed_config);
1896
1897         if (found)
1898             return S_OK;
1899     }
1900
1901     if (exefile && !version)
1902     {
1903         DWORD major, minor, build;
1904
1905         hr = CLRMetaHost_GetVersionFromFile(0, exefile, local_version, &local_version_size);
1906
1907         version = local_version;
1908
1909         if (FAILED(hr)) return hr;
1910
1911         /* When running an executable, specifically when getting the version number from
1912          * the exe, native accepts a matching major.minor with build <= expected build. */
1913         if (!parse_runtime_version(version, &major, &minor, &build))
1914         {
1915             ERR("Cannot parse %s\n", debugstr_w(version));
1916             return CLR_E_SHIM_RUNTIME;
1917         }
1918
1919         if (legacy)
1920             i = 3;
1921         else
1922             i = NUM_RUNTIMES;
1923
1924         while (i--)
1925         {
1926             if (runtimes[i].major == major && runtimes[i].minor == minor && runtimes[i].build >= build)
1927             {
1928                 return ICLRRuntimeInfo_QueryInterface(&runtimes[i].ICLRRuntimeInfo_iface,
1929                         &IID_ICLRRuntimeInfo, (void **)result);
1930             }
1931         }
1932     }
1933
1934     if (version)
1935     {
1936         hr = CLRMetaHost_GetRuntime(0, version, &IID_ICLRRuntimeInfo, (void**)result);
1937         if(SUCCEEDED(hr))
1938             return hr;
1939     }
1940
1941     if (runtimeinfo_flags & RUNTIME_INFO_UPGRADE_VERSION)
1942     {
1943         DWORD major, minor, build;
1944
1945         if (version && !parse_runtime_version(version, &major, &minor, &build))
1946         {
1947             ERR("Cannot parse %s\n", debugstr_w(version));
1948             return CLR_E_SHIM_RUNTIME;
1949         }
1950
1951         if (legacy)
1952             i = 3;
1953         else
1954             i = NUM_RUNTIMES;
1955
1956         while (i--)
1957         {
1958             /* Must be greater or equal to the version passed in. */
1959             if (!version || ((runtimes[i].major >= major && runtimes[i].minor >= minor && runtimes[i].build >= build) ||
1960                  (runtimes[i].major >= major && runtimes[i].minor > minor) ||
1961                  (runtimes[i].major > major)))
1962             {
1963                 return ICLRRuntimeInfo_QueryInterface(&runtimes[i].ICLRRuntimeInfo_iface,
1964                         &IID_ICLRRuntimeInfo, (void **)result);
1965             }
1966         }
1967
1968         return CLR_E_SHIM_RUNTIME;
1969     }
1970
1971     return CLR_E_SHIM_RUNTIME;
1972 }