#include "mscoree_private.h"
#include <stdio.h>
#include <assert.h>
#include <wine/library.h>
#include <fusion.h>

Include dependency graph for metahost.c:

Go to the source code of this file.

Classes
struct	InstalledRuntimeEnum

struct	CLRMetaHost

Macros
#define	NUM_RUNTIMES 3

#define	NUM_ABI_VERSIONS 2

#define	LOAD_MONO_FUNCTION(x)

#define	LOAD_OPT_VOID_MONO_FUNCTION(x)

Functions
static BOOL	find_mono_dll (LPCWSTR path, LPWSTR dll_path, int abi_version)

static MonoAssembly *	mono_assembly_search_hook_fn (MonoAssemblyName aname, char assemblies_path, void user_data)

static void	mono_shutdown_callback_fn (MonoProfiler *prof)

static void	set_environment (LPCWSTR bin_path)

static void CDECL	do_nothing (void)

static void	missing_runtime_message (const CLRRuntimeInfo *This)

static HRESULT	load_mono (CLRRuntimeInfo This, loaded_mono *result)

static HRESULT	CLRRuntimeInfo_GetRuntimeHost (CLRRuntimeInfo This, RuntimeHost *result)

void	unload_all_runtimes (void)

void	expect_no_runtimes (void)

static CLRRuntimeInfo *	impl_from_ICLRRuntimeInfo (ICLRRuntimeInfo *iface)

static HRESULT WINAPI	CLRRuntimeInfo_QueryInterface (ICLRRuntimeInfo iface, REFIID riid, void *ppvObject)

static ULONG WINAPI	CLRRuntimeInfo_AddRef (ICLRRuntimeInfo *iface)

static ULONG WINAPI	CLRRuntimeInfo_Release (ICLRRuntimeInfo *iface)

static HRESULT WINAPI	CLRRuntimeInfo_GetVersionString (ICLRRuntimeInfo iface, LPWSTR pwzBuffer, DWORD pcchBuffer)

static BOOL	get_install_root (LPWSTR install_dir)

static HRESULT WINAPI	CLRRuntimeInfo_GetRuntimeDirectory (ICLRRuntimeInfo iface, LPWSTR pwzBuffer, DWORD pcchBuffer)

static HRESULT WINAPI	CLRRuntimeInfo_IsLoaded (ICLRRuntimeInfo iface, HANDLE hndProcess, BOOL pbLoaded)

static HRESULT WINAPI	CLRRuntimeInfo_LoadErrorString (ICLRRuntimeInfo iface, UINT iResourceID, LPWSTR pwzBuffer, DWORD pcchBuffer, LONG iLocaleid)

static HRESULT WINAPI	CLRRuntimeInfo_LoadLibrary (ICLRRuntimeInfo iface, LPCWSTR pwzDllName, HMODULE phndModule)

static HRESULT WINAPI	CLRRuntimeInfo_GetProcAddress (ICLRRuntimeInfo iface, LPCSTR pszProcName, LPVOID ppProc)

static HRESULT WINAPI	CLRRuntimeInfo_GetInterface (ICLRRuntimeInfo iface, REFCLSID rclsid, REFIID riid, LPVOID ppUnk)

static HRESULT WINAPI	CLRRuntimeInfo_IsLoadable (ICLRRuntimeInfo iface, BOOL pbLoadable)

static HRESULT WINAPI	CLRRuntimeInfo_SetDefaultStartupFlags (ICLRRuntimeInfo *iface, DWORD dwStartupFlags, LPCWSTR pwzHostConfigFile)

static HRESULT WINAPI	CLRRuntimeInfo_GetDefaultStartupFlags (ICLRRuntimeInfo iface, DWORD pdwStartupFlags, LPWSTR pwzHostConfigFile, DWORD *pcchHostConfigFile)

static HRESULT WINAPI	CLRRuntimeInfo_BindAsLegacyV2Runtime (ICLRRuntimeInfo *iface)

static HRESULT WINAPI	CLRRuntimeInfo_IsStarted (ICLRRuntimeInfo iface, BOOL pbStarted, DWORD *pdwStartupFlags)

HRESULT	ICLRRuntimeInfo_GetRuntimeHost (ICLRRuntimeInfo iface, RuntimeHost *result)

static BOOL	get_mono_path_from_registry (LPWSTR path, int abi_version)

static BOOL	get_mono_path_from_folder (LPCWSTR folder, LPWSTR mono_path, int abi_version)

static BOOL	get_mono_path (LPWSTR path, int abi_version)

static void	find_runtimes (void)

static struct InstalledRuntimeEnum *	impl_from_IEnumUnknown (IEnumUnknown *iface)

static HRESULT WINAPI	InstalledRuntimeEnum_QueryInterface (IEnumUnknown iface, REFIID riid, void *ppvObject)

static ULONG WINAPI	InstalledRuntimeEnum_AddRef (IEnumUnknown *iface)

static ULONG WINAPI	InstalledRuntimeEnum_Release (IEnumUnknown *iface)

static HRESULT WINAPI	InstalledRuntimeEnum_Next (IEnumUnknown iface, ULONG celt, IUnknown rgelt, ULONG pceltFetched)

static HRESULT WINAPI	InstalledRuntimeEnum_Skip (IEnumUnknown *iface, ULONG celt)

static HRESULT WINAPI	InstalledRuntimeEnum_Reset (IEnumUnknown *iface)

static HRESULT WINAPI	InstalledRuntimeEnum_Clone (IEnumUnknown iface, IEnumUnknown *ppenum)

static HRESULT WINAPI	CLRMetaHost_QueryInterface (ICLRMetaHost iface, REFIID riid, void *ppvObject)

static ULONG WINAPI	CLRMetaHost_AddRef (ICLRMetaHost *iface)

static ULONG WINAPI	CLRMetaHost_Release (ICLRMetaHost *iface)

static BOOL	parse_runtime_version (LPCWSTR version, DWORD major, DWORD minor, DWORD *build)

HRESULT WINAPI	CLRMetaHost_GetRuntime (ICLRMetaHost iface, LPCWSTR pwzVersion, REFIID iid, LPVOID ppRuntime)

HRESULT WINAPI	CLRMetaHost_GetVersionFromFile (ICLRMetaHost iface, LPCWSTR pwzFilePath, LPWSTR pwzBuffer, DWORD pcchBuffer)

static HRESULT WINAPI	CLRMetaHost_EnumerateInstalledRuntimes (ICLRMetaHost iface, IEnumUnknown *ppEnumerator)

static HRESULT WINAPI	CLRMetaHost_EnumerateLoadedRuntimes (ICLRMetaHost iface, HANDLE hndProcess, IEnumUnknown *ppEnumerator)

static HRESULT WINAPI	CLRMetaHost_RequestRuntimeLoadedNotification (ICLRMetaHost *iface, RuntimeLoadedCallbackFnPtr pCallbackFunction)

static HRESULT WINAPI	CLRMetaHost_QueryLegacyV2RuntimeBinding (ICLRMetaHost iface, REFIID riid, LPVOID ppUnk)

static HRESULT WINAPI	CLRMetaHost_ExitProcess (ICLRMetaHost *iface, INT32 iExitCode)

HRESULT	CLRMetaHost_CreateInstance (REFIID riid, void **ppobj)

HRESULT	get_runtime_info (LPCWSTR exefile, LPCWSTR version, LPCWSTR config_file, DWORD startup_flags, DWORD runtimeinfo_flags, BOOL legacy, ICLRRuntimeInfo **result)

Variables
static const WCHAR	net_11_subdir [] = {'1','.','0',0}

static const WCHAR	net_20_subdir [] = {'2','.','0',0}

static const WCHAR	net_40_subdir [] = {'4','.','0',0}

static const struct ICLRRuntimeInfoVtbl	CLRRuntimeInfoVtbl

static struct CLRRuntimeInfo	runtimes [NUM_RUNTIMES]

static int	runtimes_initialized

static CRITICAL_SECTION	runtime_list_cs = { &runtime_list_cs_debug, -1, 0, 0, 0, 0 }

static CRITICAL_SECTION_DEBUG	runtime_list_cs_debug

static loaded_mono	loaded_monos [NUM_ABI_VERSIONS]

static const WCHAR	libmono2_arch_dll [] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','.','d','l','l',0}

static const struct IEnumUnknownVtbl	InstalledRuntimeEnum_Vtbl

static struct CLRMetaHost	GlobalCLRMetaHost

static const struct ICLRMetaHostVtbl	CLRMetaHost_vtbl

Macro Definition Documentation

◆ LOAD_MONO_FUNCTION

#define LOAD_MONO_FUNCTION ( x )

Value:

    do { \
    (*result)->x = (void*)GetProcAddress((*result)->mono_handle, #x); \
    if (!(*result)->x) { \
        goto fail; \
    } \
} while (0);

◆ LOAD_OPT_VOID_MONO_FUNCTION

#define LOAD_OPT_VOID_MONO_FUNCTION ( x )

Value:

    do { \
    (*result)->x = (void*)GetProcAddress((*result)->mono_handle, #x); \
    if (!(*result)->x) { \
        (*result)->x = do_nothing; \
    } \
} while (0);

◆ NUM_ABI_VERSIONS

#define NUM_ABI_VERSIONS 2

Definition at line 56 of file metahost.c.

◆ NUM_RUNTIMES

#define NUM_RUNTIMES 3

Definition at line 36 of file metahost.c.

Function Documentation

◆ CLRMetaHost_AddRef()

static ULONG WINAPI CLRMetaHost_AddRef ( ICLRMetaHost * iface )

static

Definition at line 961 of file metahost.c.

{
    return 2;
}

◆ CLRMetaHost_CreateInstance()

HRESULT CLRMetaHost_CreateInstance	(	REFIID	riid,
		void **	ppobj
	)

Definition at line 1155 of file metahost.c.

{
    return ICLRMetaHost_QueryInterface(&GlobalCLRMetaHost.ICLRMetaHost_iface, riid, ppobj);
}

Referenced by CLRCreateInstance().

◆ CLRMetaHost_EnumerateInstalledRuntimes()

static HRESULT WINAPI CLRMetaHost_EnumerateInstalledRuntimes	(	ICLRMetaHost *	iface,
		IEnumUnknown **	ppEnumerator
	)

static

Definition at line 1084 of file metahost.c.

{
    struct InstalledRuntimeEnum *new_enum;
 
    TRACE("%p\n", ppEnumerator);
 
    find_runtimes();
 
    new_enum = HeapAlloc(GetProcessHeap(), 0, sizeof(*new_enum));
    if (!new_enum)
        return E_OUTOFMEMORY;
 
    new_enum->IEnumUnknown_iface.lpVtbl = &InstalledRuntimeEnum_Vtbl;
    new_enum->ref = 1;
    new_enum->pos = 0;
 
    *ppEnumerator = &new_enum->IEnumUnknown_iface;
 
    return S_OK;
}

◆ CLRMetaHost_EnumerateLoadedRuntimes()

static HRESULT WINAPI CLRMetaHost_EnumerateLoadedRuntimes	(	ICLRMetaHost *	iface,
		HANDLE	hndProcess,
		IEnumUnknown **	ppEnumerator
	)

static

Definition at line 1106 of file metahost.c.

{
    FIXME("%p %p\n", hndProcess, ppEnumerator);
 
    return E_NOTIMPL;
}

◆ CLRMetaHost_ExitProcess()

static HRESULT WINAPI CLRMetaHost_ExitProcess	(	ICLRMetaHost *	iface,
		INT32	iExitCode
	)

static

Definition at line 1130 of file metahost.c.

{
    FIXME("%i: stub\n", iExitCode);
 
    ExitProcess(iExitCode);
}

◆ CLRMetaHost_GetRuntime()

HRESULT WINAPI CLRMetaHost_GetRuntime	(	ICLRMetaHost *	iface,
		LPCWSTR	pwzVersion,
		REFIID	iid,
		LPVOID *	ppRuntime
	)

Definition at line 1010 of file metahost.c.

{
    int i;
    DWORD major, minor, build;
 
    TRACE("%s %s %p\n", debugstr_w(pwzVersion), debugstr_guid(iid), ppRuntime);
 
    if (!pwzVersion)
        return E_POINTER;
 
    if (!parse_runtime_version(pwzVersion, &major, &minor, &build))
    {
        ERR("Cannot parse %s\n", debugstr_w(pwzVersion));
        return CLR_E_SHIM_RUNTIME;
    }
 
    find_runtimes();
 
    for (i=0; i<NUM_RUNTIMES; i++)
    {
        if (runtimes[i].major == major && runtimes[i].minor == minor &&
            runtimes[i].build == build)
        {
            if (runtimes[i].mono_abi_version)
                return ICLRRuntimeInfo_QueryInterface(&runtimes[i].ICLRRuntimeInfo_iface, iid,
                        ppRuntime);
            else
            {
                missing_runtime_message(&runtimes[i]);
                return CLR_E_SHIM_RUNTIME;
            }
        }
    }
 
    FIXME("Unrecognized version %s\n", debugstr_w(pwzVersion));
    return CLR_E_SHIM_RUNTIME;
}

Referenced by CreateDebuggingInterfaceFromVersion(), and get_runtime_info().

◆ CLRMetaHost_GetVersionFromFile()

HRESULT WINAPI CLRMetaHost_GetVersionFromFile	(	ICLRMetaHost *	iface,
		LPCWSTR	pwzFilePath,
		LPWSTR	pwzBuffer,
		DWORD *	pcchBuffer
	)

Definition at line 1049 of file metahost.c.

{
    ASSEMBLY *assembly;
    HRESULT hr;
    LPSTR version;
    ULONG buffer_size=*pcchBuffer;
 
    TRACE("%s %p %p\n", debugstr_w(pwzFilePath), pwzBuffer, pcchBuffer);
 
    hr = assembly_create(&assembly, pwzFilePath);
 
    if (SUCCEEDED(hr))
    {
        hr = assembly_get_runtime_version(assembly, &version);
 
        if (SUCCEEDED(hr))
        {
            *pcchBuffer = MultiByteToWideChar(CP_UTF8, 0, version, -1, NULL, 0);
 
            if (pwzBuffer)
            {
                if (buffer_size >= *pcchBuffer)
                    MultiByteToWideChar(CP_UTF8, 0, version, -1, pwzBuffer, buffer_size);
                else
                    hr = HRESULT_FROM_WIN32(ERROR_INSUFFICIENT_BUFFER);
            }
        }
 
        assembly_release(assembly);
    }
 
    return hr;
}

Referenced by get_runtime_info(), and GetFileVersion().

◆ CLRMetaHost_QueryInterface()

static HRESULT WINAPI CLRMetaHost_QueryInterface	(	ICLRMetaHost *	iface,
		REFIID	riid,
		void **	ppvObject
	)

static

Definition at line 939 of file metahost.c.

{
    TRACE("%s %p\n", debugstr_guid(riid), ppvObject);
 
    if ( IsEqualGUID( riid, &IID_ICLRMetaHost ) ||
         IsEqualGUID( riid, &IID_IUnknown ) )
    {
        *ppvObject = iface;
    }
    else
    {
        FIXME("Unsupported interface %s\n", debugstr_guid(riid));
        return E_NOINTERFACE;
    }
 
    ICLRMetaHost_AddRef( iface );
 
    return S_OK;
}

◆ CLRMetaHost_QueryLegacyV2RuntimeBinding()

static HRESULT WINAPI CLRMetaHost_QueryLegacyV2RuntimeBinding	(	ICLRMetaHost *	iface,
		REFIID	riid,
		LPVOID *	ppUnk
	)

static

Definition at line 1122 of file metahost.c.

{
    FIXME("%s %p\n", debugstr_guid(riid), ppUnk);
 
    return E_NOTIMPL;
}

◆ CLRMetaHost_Release()

static ULONG WINAPI CLRMetaHost_Release ( ICLRMetaHost * iface )

static

Definition at line 966 of file metahost.c.

{
    return 1;
}

◆ CLRMetaHost_RequestRuntimeLoadedNotification()

static HRESULT WINAPI CLRMetaHost_RequestRuntimeLoadedNotification	(	ICLRMetaHost *	iface,
		RuntimeLoadedCallbackFnPtr	pCallbackFunction
	)

static

Definition at line 1114 of file metahost.c.

{
    FIXME("%p\n", pCallbackFunction);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_AddRef()

static ULONG WINAPI CLRRuntimeInfo_AddRef ( ICLRRuntimeInfo * iface )

static

Definition at line 331 of file metahost.c.

{
    return 2;
}

◆ CLRRuntimeInfo_BindAsLegacyV2Runtime()

static HRESULT WINAPI CLRRuntimeInfo_BindAsLegacyV2Runtime ( ICLRRuntimeInfo * iface )

static

Definition at line 511 of file metahost.c.

{
    FIXME("%p\n", iface);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_GetDefaultStartupFlags()

static HRESULT WINAPI CLRRuntimeInfo_GetDefaultStartupFlags	(	ICLRRuntimeInfo *	iface,
		DWORD *	pdwStartupFlags,
		LPWSTR	pwzHostConfigFile,
		DWORD *	pcchHostConfigFile
	)

static

Definition at line 503 of file metahost.c.

{
    FIXME("%p %p %p %p\n", iface, pdwStartupFlags, pwzHostConfigFile, pcchHostConfigFile);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_GetInterface()

static HRESULT WINAPI CLRRuntimeInfo_GetInterface	(	ICLRRuntimeInfo *	iface,
		REFCLSID	rclsid,
		REFIID	riid,
		LPVOID *	ppUnk
	)

static

Definition at line 470 of file metahost.c.

{
    struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
    RuntimeHost *host;
    HRESULT hr;
 
    TRACE("%p %s %s %p\n", iface, debugstr_guid(rclsid), debugstr_guid(riid), ppUnk);
 
    hr = CLRRuntimeInfo_GetRuntimeHost(This, &host);
 
    if (SUCCEEDED(hr))
        hr = RuntimeHost_GetInterface(host, rclsid, riid, ppUnk);
 
    return hr;
}

◆ CLRRuntimeInfo_GetProcAddress()

static HRESULT WINAPI CLRRuntimeInfo_GetProcAddress	(	ICLRRuntimeInfo *	iface,
		LPCSTR	pszProcName,
		LPVOID *	ppProc
	)

static

Definition at line 462 of file metahost.c.

{
    FIXME("%p %s %p\n", iface, debugstr_a(pszProcName), ppProc);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_GetRuntimeDirectory()

static HRESULT WINAPI CLRRuntimeInfo_GetRuntimeDirectory	(	ICLRRuntimeInfo *	iface,
		LPWSTR	pwzBuffer,
		DWORD *	pcchBuffer
	)

static

Definition at line 391 of file metahost.c.

{
    static const WCHAR slash[] = {'\\',0};
    DWORD buffer_size = *pcchBuffer;
    WCHAR system_dir[MAX_PATH];
    WCHAR version[MAX_PATH];
    DWORD version_size, size;
    HRESULT hr = S_OK;
 
    TRACE("%p %p %p\n", iface, pwzBuffer, pcchBuffer);
 
    if (!get_install_root(system_dir))
    {
        ERR("error reading registry key for installroot\n");
        return E_FAIL;
    }
    else
    {
        version_size = MAX_PATH;
        ICLRRuntimeInfo_GetVersionString(iface, version, &version_size);
        lstrcatW(system_dir, version);
        lstrcatW(system_dir, slash);
        size = lstrlenW(system_dir) + 1;
    }
 
    *pcchBuffer = size;
 
    if (pwzBuffer)
    {
        if (buffer_size >= size)
            strcpyW(pwzBuffer, system_dir);
        else
            hr = HRESULT_FROM_WIN32(ERROR_INSUFFICIENT_BUFFER);
    }
 
    return hr;
}

◆ CLRRuntimeInfo_GetRuntimeHost()

static HRESULT CLRRuntimeInfo_GetRuntimeHost	(	CLRRuntimeInfo *	This,
		RuntimeHost **	result
	)

static

Definition at line 240 of file metahost.c.

{
    HRESULT hr = S_OK;
    loaded_mono *ploaded_mono;
 
    if (This->loaded_runtime)
    {
        *result = This->loaded_runtime;
        return hr;
    }
 
    EnterCriticalSection(&runtime_list_cs);
 
    hr = load_mono(This, &ploaded_mono);
 
    if (SUCCEEDED(hr))
        hr = RuntimeHost_Construct(This, ploaded_mono, &This->loaded_runtime);
 
    LeaveCriticalSection(&runtime_list_cs);
 
    if (SUCCEEDED(hr))
        *result = This->loaded_runtime;
 
    return hr;
}

Referenced by CLRRuntimeInfo_GetInterface(), and ICLRRuntimeInfo_GetRuntimeHost().

◆ CLRRuntimeInfo_GetVersionString()

static HRESULT WINAPI CLRRuntimeInfo_GetVersionString	(	ICLRRuntimeInfo *	iface,
		LPWSTR	pwzBuffer,
		DWORD *	pcchBuffer
	)

static

Definition at line 341 of file metahost.c.

{
    struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
    DWORD buffer_size = *pcchBuffer;
    HRESULT hr = S_OK;
    char version[11];
    DWORD size;
 
    TRACE("%p %p %p\n", iface, pwzBuffer, pcchBuffer);
 
    size = snprintf(version, sizeof(version), "v%u.%u.%u", This->major, This->minor, This->build);
 
    assert(size <= sizeof(version));
 
    *pcchBuffer = MultiByteToWideChar(CP_UTF8, 0, version, -1, NULL, 0);
 
    if (pwzBuffer)
    {
        if (buffer_size >= *pcchBuffer)
            MultiByteToWideChar(CP_UTF8, 0, version, -1, pwzBuffer, buffer_size);
        else
            hr = HRESULT_FROM_WIN32(ERROR_INSUFFICIENT_BUFFER);
    }
 
    return hr;
}

◆ CLRRuntimeInfo_IsLoadable()

static HRESULT WINAPI CLRRuntimeInfo_IsLoadable	(	ICLRRuntimeInfo *	iface,
		BOOL *	pbLoadable
	)

static

Definition at line 487 of file metahost.c.

{
    FIXME("%p %p\n", iface, pbLoadable);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_IsLoaded()

static HRESULT WINAPI CLRRuntimeInfo_IsLoaded	(	ICLRRuntimeInfo *	iface,
		HANDLE	hndProcess,
		BOOL *	pbLoaded
	)

static

Definition at line 430 of file metahost.c.

{
    FIXME("%p %p %p\n", iface, hndProcess, pbLoaded);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_IsStarted()

static HRESULT WINAPI CLRRuntimeInfo_IsStarted	(	ICLRRuntimeInfo *	iface,
		BOOL *	pbStarted,
		DWORD *	pdwStartupFlags
	)

static

Definition at line 518 of file metahost.c.

{
    FIXME("%p %p %p\n", iface, pbStarted, pdwStartupFlags);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_LoadErrorString()

static HRESULT WINAPI CLRRuntimeInfo_LoadErrorString	(	ICLRRuntimeInfo *	iface,
		UINT	iResourceID,
		LPWSTR	pwzBuffer,
		DWORD *	pcchBuffer,
		LONG	iLocaleid
	)

static

Definition at line 438 of file metahost.c.

{
    FIXME("%p %u %p %p %x\n", iface, iResourceID, pwzBuffer, pcchBuffer, iLocaleid);
 
    return E_NOTIMPL;
}

◆ CLRRuntimeInfo_LoadLibrary()

static HRESULT WINAPI CLRRuntimeInfo_LoadLibrary	(	ICLRRuntimeInfo *	iface,
		LPCWSTR	pwzDllName,
		HMODULE *	phndModule
	)

static

Definition at line 446 of file metahost.c.

{
    WCHAR version[MAX_PATH];
    HRESULT hr;
    DWORD cchBuffer;
 
    TRACE("%p %s %p\n", iface, debugstr_w(pwzDllName), phndModule);
 
    cchBuffer = MAX_PATH;
    hr = ICLRRuntimeInfo_GetVersionString(iface, version, &cchBuffer);
    if (FAILED(hr)) return hr;
 
    return LoadLibraryShim(pwzDllName, version, NULL, phndModule);
}

◆ CLRRuntimeInfo_QueryInterface()

static HRESULT WINAPI CLRRuntimeInfo_QueryInterface	(	ICLRRuntimeInfo *	iface,
		REFIID	riid,
		void **	ppvObject
	)

static

Definition at line 309 of file metahost.c.

{
    TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
 
    if ( IsEqualGUID( riid, &IID_ICLRRuntimeInfo ) ||
         IsEqualGUID( riid, &IID_IUnknown ) )
    {
        *ppvObject = iface;
    }
    else
    {
        FIXME("Unsupported interface %s\n", debugstr_guid(riid));
        return E_NOINTERFACE;
    }
 
    ICLRRuntimeInfo_AddRef( iface );
 
    return S_OK;
}

◆ CLRRuntimeInfo_Release()

static ULONG WINAPI CLRRuntimeInfo_Release ( ICLRRuntimeInfo * iface )

static

Definition at line 336 of file metahost.c.

{
    return 1;
}

◆ CLRRuntimeInfo_SetDefaultStartupFlags()

static HRESULT WINAPI CLRRuntimeInfo_SetDefaultStartupFlags	(	ICLRRuntimeInfo *	iface,
		DWORD	dwStartupFlags,
		LPCWSTR	pwzHostConfigFile
	)

static

Definition at line 495 of file metahost.c.

{
    FIXME("%p %x %s\n", iface, dwStartupFlags, debugstr_w(pwzHostConfigFile));
 
    return E_NOTIMPL;
}

◆ do_nothing()

static void CDECL do_nothing ( void )

static

Definition at line 81 of file metahost.c.

82{

83}

◆ expect_no_runtimes()

void expect_no_runtimes ( void )

Definition at line 289 of file metahost.c.

{
    int i;
 
    for (i=0; i<NUM_ABI_VERSIONS; i++)
    {
        loaded_mono *mono = &loaded_monos[i];
        if (mono->mono_handle && mono->is_started && !mono->is_shutdown)
        {
            ERR("Process exited with a Mono runtime loaded.\n");
            return;
        }
    }
}

Referenced by DllMain().

◆ find_mono_dll()

static BOOL find_mono_dll	(	LPCWSTR	path,
		LPWSTR	dll_path,
		int	abi_version
	)

static

Definition at line 561 of file metahost.c.

{
    static const WCHAR mono_dll[] = {'\\','b','i','n','\\','m','o','n','o','.','d','l','l',0};
    static const WCHAR libmono_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','.','d','l','l',0};
    static const WCHAR mono2_dll[] = {'\\','b','i','n','\\','m','o','n','o','-','2','.','0','.','d','l','l',0};
    static const WCHAR libmono2_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','.','d','l','l',0};
    DWORD attributes=INVALID_FILE_ATTRIBUTES;
 
    if (abi_version == 1)
    {
        strcpyW(dll_path, path);
        strcatW(dll_path, mono_dll);
        attributes = GetFileAttributesW(dll_path);
 
        if (attributes == INVALID_FILE_ATTRIBUTES)
        {
            strcpyW(dll_path, path);
            strcatW(dll_path, libmono_dll);
            attributes = GetFileAttributesW(dll_path);
        }
    }
    else if (abi_version == 2)
    {
        strcpyW(dll_path, path);
        strcatW(dll_path, libmono2_arch_dll);
        attributes = GetFileAttributesW(dll_path);
 
        if (attributes == INVALID_FILE_ATTRIBUTES)
        {
            strcpyW(dll_path, path);
            strcatW(dll_path, mono2_dll);
            attributes = GetFileAttributesW(dll_path);
        }
 
        if (attributes == INVALID_FILE_ATTRIBUTES)
        {
            strcpyW(dll_path, path);
            strcatW(dll_path, libmono2_dll);
            attributes = GetFileAttributesW(dll_path);
        }
    }
 
    return (attributes != INVALID_FILE_ATTRIBUTES);
}

Referenced by get_mono_path_from_folder(), get_mono_path_from_registry(), and load_mono().

◆ find_runtimes()

static void find_runtimes ( void )

static

Definition at line 718 of file metahost.c.

{
    int abi_version, i;
    static const WCHAR libmono[] = {'\\','l','i','b','\\','m','o','n','o','\\',0};
    static const WCHAR mscorlib[] = {'\\','m','s','c','o','r','l','i','b','.','d','l','l',0};
    WCHAR mono_path[MAX_PATH], lib_path[MAX_PATH];
    BOOL any_runtimes_found = FALSE;
 
    if (runtimes_initialized) return;
 
    EnterCriticalSection(&runtime_list_cs);
 
    if (runtimes_initialized) goto end;
 
    for (abi_version=NUM_ABI_VERSIONS; abi_version>0; abi_version--)
    {
        if (!get_mono_path(mono_path, abi_version))
            continue;
 
        for (i=0; i<NUM_RUNTIMES; i++)
        {
            if (runtimes[i].mono_abi_version == 0)
            {
                strcpyW(lib_path, mono_path);
                strcatW(lib_path, libmono);
                strcatW(lib_path, runtimes[i].mono_libdir);
                strcatW(lib_path, mscorlib);
 
                if (GetFileAttributesW(lib_path) != INVALID_FILE_ATTRIBUTES)
                {
                    runtimes[i].mono_abi_version = abi_version;
 
                    strcpyW(runtimes[i].mono_path, mono_path);
                    strcpyW(runtimes[i].mscorlib_path, lib_path);
 
                    any_runtimes_found = TRUE;
                }
            }
        }
    }
 
    if (!any_runtimes_found)
    {
        /* Report all runtimes are available if Mono isn't installed.
         * FIXME: Remove this when Mono is properly packaged. */
        for (i=0; i<NUM_RUNTIMES; i++)
            runtimes[i].mono_abi_version = -1;
    }
 
    runtimes_initialized = 1;
 
end:
    LeaveCriticalSection(&runtime_list_cs);
}

Referenced by CLRMetaHost_EnumerateInstalledRuntimes(), CLRMetaHost_GetRuntime(), and get_runtime_info().

◆ get_install_root()

static BOOL get_install_root ( LPWSTR install_dir )

static

Definition at line 369 of file metahost.c.

{
    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};
    const WCHAR install_root[] = {'I','n','s','t','a','l','l','R','o','o','t',0};
 
    DWORD len;
    HKEY key;
 
    if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, dotnet_key, 0, KEY_READ, &key))
        return FALSE;
 
    len = MAX_PATH * sizeof(WCHAR);
    if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)install_dir, &len))
    {
        RegCloseKey(key);
        return FALSE;
    }
    RegCloseKey(key);
 
    return TRUE;
}

Referenced by CLRRuntimeInfo_GetRuntimeDirectory().

◆ get_mono_path()

static BOOL get_mono_path	(	LPWSTR	path,
		int	abi_version
	)

static

Definition at line 666 of file metahost.c.

{
    static const WCHAR subdir_mono[] = {'\\','m','o','n','o',0};
    static const WCHAR sibling_mono[] = {'\\','.','.','\\','m','o','n','o',0};
    WCHAR base_path[MAX_PATH];
    const char *unix_data_dir;
    WCHAR *dos_data_dir;
    int build_tree=0;
    static WCHAR* (CDECL *wine_get_dos_file_name)(const char*);
 
    /* First try c:\windows\mono */
    GetWindowsDirectoryW(base_path, MAX_PATH);
    strcatW(base_path, subdir_mono);
 
    if (get_mono_path_from_folder(base_path, path, abi_version))
        return TRUE;
 
    /* Next: /usr/share/wine/mono */
    unix_data_dir = wine_get_data_dir();
 
    if (!unix_data_dir)
    {
        unix_data_dir = wine_get_build_dir();
        build_tree = 1;
    }
 
    if (unix_data_dir)
    {
        if (!wine_get_dos_file_name)
            wine_get_dos_file_name = (void*)GetProcAddress(GetModuleHandleA("kernel32"), "wine_get_dos_file_name");
 
        if (wine_get_dos_file_name)
        {
            dos_data_dir = wine_get_dos_file_name(unix_data_dir);
 
            if (dos_data_dir)
            {
                strcpyW(base_path, dos_data_dir);
                strcatW(base_path, build_tree ? sibling_mono : subdir_mono);
 
                HeapFree(GetProcessHeap(), 0, dos_data_dir);
 
                if (get_mono_path_from_folder(base_path, path, abi_version))
                    return TRUE;
            }
        }
    }
 
    /* Last: the registry */
    return get_mono_path_from_registry(path, abi_version);
}

Referenced by find_runtimes().

◆ get_mono_path_from_folder()

static BOOL get_mono_path_from_folder	(	LPCWSTR	folder,
		LPWSTR	mono_path,
		int	abi_version
	)

static

Definition at line 647 of file metahost.c.

{
    static const WCHAR mono_one_dot_zero[] = {'\\','m','o','n','o','-','1','.','0', 0};
    static const WCHAR mono_two_dot_zero[] = {'\\','m','o','n','o','-','2','.','0', 0};
    WCHAR mono_dll_path[MAX_PATH];
    BOOL found = FALSE;
 
    strcpyW(mono_path, folder);
 
    if (abi_version == 1)
        strcatW(mono_path, mono_one_dot_zero);
    else if (abi_version == 2)
        strcatW(mono_path, mono_two_dot_zero);
 
    found = find_mono_dll(mono_path, mono_dll_path, abi_version);
 
    return found;
}

Referenced by get_mono_path().

◆ get_mono_path_from_registry()

static BOOL get_mono_path_from_registry	(	LPWSTR	path,
		int	abi_version
	)

static

Definition at line 606 of file metahost.c.

{
    static const WCHAR mono_key[] = {'S','o','f','t','w','a','r','e','\\','N','o','v','e','l','l','\\','M','o','n','o',0};
    static const WCHAR defaul_clr[] = {'D','e','f','a','u','l','t','C','L','R',0};
    static const WCHAR install_root[] = {'S','d','k','I','n','s','t','a','l','l','R','o','o','t',0};
    static const WCHAR slash[] = {'\\',0};
 
    WCHAR version[64], version_key[MAX_PATH];
    DWORD len;
    HKEY key;
    WCHAR dll_path[MAX_PATH];
 
    if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, mono_key, 0, KEY_READ, &key))
        return FALSE;
 
    len = sizeof(version);
    if (RegQueryValueExW(key, defaul_clr, 0, NULL, (LPBYTE)version, &len))
    {
        RegCloseKey(key);
        return FALSE;
    }
    RegCloseKey(key);
 
    lstrcpyW(version_key, mono_key);
    lstrcatW(version_key, slash);
    lstrcatW(version_key, version);
 
    if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, version_key, 0, KEY_READ, &key))
        return FALSE;
 
    len = sizeof(WCHAR) * MAX_PATH;
    if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)path, &len))
    {
        RegCloseKey(key);
        return FALSE;
    }
    RegCloseKey(key);
 
    return find_mono_dll(path, dll_path, abi_version);
}

Referenced by get_mono_path().

◆ get_runtime_info()

HRESULT get_runtime_info	(	LPCWSTR	exefile,
		LPCWSTR	version,
		LPCWSTR	config_file,
		DWORD	startup_flags,
		DWORD	runtimeinfo_flags,
		BOOL	legacy,
		ICLRRuntimeInfo **	result
	)

Definition at line 1247 of file metahost.c.

{
    static const WCHAR dotconfig[] = {'.','c','o','n','f','i','g',0};
    static const DWORD supported_startup_flags = 0;
    static const DWORD supported_runtime_flags = RUNTIME_INFO_UPGRADE_VERSION;
    int i;
    WCHAR local_version[MAX_PATH];
    ULONG local_version_size = MAX_PATH;
    WCHAR local_config_file[MAX_PATH];
    HRESULT hr;
    parsed_config_file parsed_config;
 
    if (startup_flags & ~supported_startup_flags)
        FIXME("unsupported startup flags %x\n", startup_flags & ~supported_startup_flags);
 
    if (runtimeinfo_flags & ~supported_runtime_flags)
        FIXME("unsupported runtimeinfo flags %x\n", runtimeinfo_flags & ~supported_runtime_flags);
 
    if (exefile && !config_file)
    {
        strcpyW(local_config_file, exefile);
        strcatW(local_config_file, dotconfig);
 
        config_file = local_config_file;
    }
 
    if (config_file)
    {
        int found=0;
        hr = parse_config_file(config_file, &parsed_config);
 
        if (SUCCEEDED(hr))
        {
            supported_runtime *entry;
            LIST_FOR_EACH_ENTRY(entry, &parsed_config.supported_runtimes, supported_runtime, entry)
            {
                hr = CLRMetaHost_GetRuntime(0, entry->version, &IID_ICLRRuntimeInfo, (void**)result);
                if (SUCCEEDED(hr))
                {
                    found = 1;
                    break;
                }
            }
        }
        else
        {
            WARN("failed to parse config file %s, hr=%x\n", debugstr_w(config_file), hr);
        }
 
        free_parsed_config_file(&parsed_config);
 
        if (found)
            return S_OK;
    }
 
    if (exefile && !version)
    {
        hr = CLRMetaHost_GetVersionFromFile(0, exefile, local_version, &local_version_size);
 
        version = local_version;
 
        if (FAILED(hr)) return hr;
    }
 
    if (version)
    {
        hr = CLRMetaHost_GetRuntime(0, version, &IID_ICLRRuntimeInfo, (void**)result);
        if(SUCCEEDED(hr))
            return hr;
    }
 
    if (runtimeinfo_flags & RUNTIME_INFO_UPGRADE_VERSION)
    {
        DWORD major, minor, build;
 
        if (version && !parse_runtime_version(version, &major, &minor, &build))
        {
            ERR("Cannot parse %s\n", debugstr_w(version));
            return CLR_E_SHIM_RUNTIME;
        }
 
        find_runtimes();
 
        if (legacy)
            i = 2;
        else
            i = NUM_RUNTIMES;
 
        while (i--)
        {
            if (runtimes[i].mono_abi_version)
            {
                /* Must be greater or equal to the version passed in. */
                if (!version || ((runtimes[i].major >= major && runtimes[i].minor >= minor && runtimes[i].build >= build) ||
                     (runtimes[i].major >= major && runtimes[i].minor > minor) ||
                     (runtimes[i].major > major)))
                {
                    return ICLRRuntimeInfo_QueryInterface(&runtimes[i].ICLRRuntimeInfo_iface,
                            &IID_ICLRRuntimeInfo, (void **)result);
                }
            }
        }
 
        if (legacy)
            missing_runtime_message(&runtimes[1]);
        else
            missing_runtime_message(&runtimes[NUM_RUNTIMES-1]);
 
        return CLR_E_SHIM_RUNTIME;
    }
 
    return CLR_E_SHIM_RUNTIME;
}

Referenced by _CorExeMain(), ClrCreateManagedInstance(), CorBindToRuntimeEx(), CorBindToRuntimeHost(), create_monodata(), GetCORSystemDirectory(), GetCORVersion(), GetRequestedRuntimeInfo(), and ReallyFixupVTable().

◆ ICLRRuntimeInfo_GetRuntimeHost()

HRESULT ICLRRuntimeInfo_GetRuntimeHost	(	ICLRRuntimeInfo *	iface,
		RuntimeHost **	result
	)

Definition at line 544 of file metahost.c.

{
    struct CLRRuntimeInfo *This = impl_from_ICLRRuntimeInfo(iface);
 
    assert(This->ICLRRuntimeInfo_iface.lpVtbl == &CLRRuntimeInfoVtbl);
 
    return CLRRuntimeInfo_GetRuntimeHost(This, result);
}

Referenced by _CorExeMain(), ClrCreateManagedInstance(), create_monodata(), and ReallyFixupVTable().

◆ impl_from_ICLRRuntimeInfo()

static CLRRuntimeInfo * impl_from_ICLRRuntimeInfo ( ICLRRuntimeInfo * iface )

inlinestatic

Definition at line 304 of file metahost.c.

{
    return CONTAINING_RECORD(iface, CLRRuntimeInfo, ICLRRuntimeInfo_iface);
}

Referenced by CLRRuntimeInfo_GetInterface(), CLRRuntimeInfo_GetVersionString(), and ICLRRuntimeInfo_GetRuntimeHost().

◆ impl_from_IEnumUnknown()

static struct InstalledRuntimeEnum * impl_from_IEnumUnknown ( IEnumUnknown * iface )

inlinestatic

Definition at line 782 of file metahost.c.

{
    return CONTAINING_RECORD(iface, struct InstalledRuntimeEnum, IEnumUnknown_iface);
}

Referenced by InstalledRuntimeEnum_AddRef(), InstalledRuntimeEnum_Clone(), InstalledRuntimeEnum_Next(), InstalledRuntimeEnum_Release(), InstalledRuntimeEnum_Reset(), and InstalledRuntimeEnum_Skip().

◆ InstalledRuntimeEnum_AddRef()

static ULONG WINAPI InstalledRuntimeEnum_AddRef ( IEnumUnknown * iface )

static

Definition at line 808 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
    ULONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) refcount=%u\n", iface, ref);
 
    return ref;
}

◆ InstalledRuntimeEnum_Clone()

static HRESULT WINAPI InstalledRuntimeEnum_Clone	(	IEnumUnknown *	iface,
		IEnumUnknown **	ppenum
	)

static

Definition at line 902 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
    struct InstalledRuntimeEnum *new_enum;
 
    TRACE("(%p)\n", iface);
 
    new_enum = HeapAlloc(GetProcessHeap(), 0, sizeof(*new_enum));
    if (!new_enum)
        return E_OUTOFMEMORY;
 
    new_enum->IEnumUnknown_iface.lpVtbl = &InstalledRuntimeEnum_Vtbl;
    new_enum->ref = 1;
    new_enum->pos = This->pos;
 
    *ppenum = &new_enum->IEnumUnknown_iface;
 
    return S_OK;
}

◆ InstalledRuntimeEnum_Next()

static HRESULT WINAPI InstalledRuntimeEnum_Next	(	IEnumUnknown *	iface,
		ULONG	celt,
		IUnknown **	rgelt,
		ULONG *	pceltFetched
	)

static

Definition at line 833 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
    int num_fetched = 0;
    HRESULT hr=S_OK;
    IUnknown *item;
 
    TRACE("(%p,%u,%p,%p)\n", iface, celt, rgelt, pceltFetched);
 
    while (num_fetched < celt)
    {
        if (This->pos >= NUM_RUNTIMES)
        {
            hr = S_FALSE;
            break;
        }
        if (runtimes[This->pos].mono_abi_version)
        {
            item = (IUnknown*)&runtimes[This->pos].ICLRRuntimeInfo_iface;
            IUnknown_AddRef(item);
            rgelt[num_fetched] = item;
            num_fetched++;
        }
        This->pos++;
    }
 
    if (pceltFetched)
        *pceltFetched = num_fetched;
 
    return hr;
}

◆ InstalledRuntimeEnum_QueryInterface()

static HRESULT WINAPI InstalledRuntimeEnum_QueryInterface	(	IEnumUnknown *	iface,
		REFIID	riid,
		void **	ppvObject
	)

static

Definition at line 787 of file metahost.c.

{
    TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
 
    if ( IsEqualGUID( riid, &IID_IEnumUnknown ) ||
         IsEqualGUID( riid, &IID_IUnknown ) )
    {
        *ppvObject = iface;
    }
    else
    {
        FIXME("Unsupported interface %s\n", debugstr_guid(riid));
        return E_NOINTERFACE;
    }
 
    IEnumUnknown_AddRef( iface );
 
    return S_OK;
}

◆ InstalledRuntimeEnum_Release()

static ULONG WINAPI InstalledRuntimeEnum_Release ( IEnumUnknown * iface )

static

Definition at line 818 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
    ULONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) refcount=%u\n", iface, ref);
 
    if (ref == 0)
    {
        HeapFree(GetProcessHeap(), 0, This);
    }
 
    return ref;
}

◆ InstalledRuntimeEnum_Reset()

static HRESULT WINAPI InstalledRuntimeEnum_Reset ( IEnumUnknown * iface )

static

Definition at line 891 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
 
    TRACE("(%p)\n", iface);
 
    This->pos = 0;
 
    return S_OK;
}

◆ InstalledRuntimeEnum_Skip()

static HRESULT WINAPI InstalledRuntimeEnum_Skip	(	IEnumUnknown *	iface,
		ULONG	celt
	)

static

Definition at line 866 of file metahost.c.

{
    struct InstalledRuntimeEnum *This = impl_from_IEnumUnknown(iface);
    int num_fetched = 0;
    HRESULT hr=S_OK;
 
    TRACE("(%p,%u)\n", iface, celt);
 
    while (num_fetched < celt)
    {
        if (This->pos >= NUM_RUNTIMES)
        {
            hr = S_FALSE;
            break;
        }
        if (runtimes[This->pos].mono_abi_version)
        {
            num_fetched++;
        }
        This->pos++;
    }
 
    return hr;
}

◆ load_mono()

static HRESULT load_mono	(	CLRRuntimeInfo *	This,
		loaded_mono **	result
	)

static

Definition at line 95 of file metahost.c.

{
    static const WCHAR bin[] = {'\\','b','i','n',0};
    static const WCHAR lib[] = {'\\','l','i','b',0};
    static const WCHAR etc[] = {'\\','e','t','c',0};
    static const WCHAR glibdll[] = {'l','i','b','g','l','i','b','-','2','.','0','-','0','.','d','l','l',0};
    WCHAR mono_dll_path[MAX_PATH+16], mono_bin_path[MAX_PATH+4];
    WCHAR mono_lib_path[MAX_PATH+4], mono_etc_path[MAX_PATH+4];
    char mono_lib_path_a[MAX_PATH], mono_etc_path_a[MAX_PATH];
    int trace_size;
    char trace_setting[256];
 
    if (This->mono_abi_version <= 0 || This->mono_abi_version > NUM_ABI_VERSIONS)
    {
        missing_runtime_message(This);
        return E_FAIL;
    }
 
    *result = &loaded_monos[This->mono_abi_version-1];
 
    if ((*result)->is_shutdown)
    {
        ERR("Cannot load Mono after it has been shut down.\n");
        *result = NULL;
        return E_FAIL;
    }
 
    if (!(*result)->mono_handle)
    {
        strcpyW(mono_bin_path, This->mono_path);
        strcatW(mono_bin_path, bin);
        set_environment(mono_bin_path);
 
        strcpyW(mono_lib_path, This->mono_path);
        strcatW(mono_lib_path, lib);
        WideCharToMultiByte(CP_UTF8, 0, mono_lib_path, -1, mono_lib_path_a, MAX_PATH, NULL, NULL);
 
        strcpyW(mono_etc_path, This->mono_path);
        strcatW(mono_etc_path, etc);
        WideCharToMultiByte(CP_UTF8, 0, mono_etc_path, -1, mono_etc_path_a, MAX_PATH, NULL, NULL);
 
        if (!find_mono_dll(This->mono_path, mono_dll_path, This->mono_abi_version)) goto fail;
 
        (*result)->mono_handle = LoadLibraryW(mono_dll_path);
 
        if (!(*result)->mono_handle) goto fail;
 
#define LOAD_MONO_FUNCTION(x) do { \
    (*result)->x = (void*)GetProcAddress((*result)->mono_handle, #x); \
    if (!(*result)->x) { \
        goto fail; \
    } \
} while (0);
 
        LOAD_MONO_FUNCTION(mono_assembly_get_image);
        LOAD_MONO_FUNCTION(mono_assembly_load_from);
        LOAD_MONO_FUNCTION(mono_assembly_open);
        LOAD_MONO_FUNCTION(mono_config_parse);
        LOAD_MONO_FUNCTION(mono_class_from_mono_type);
        LOAD_MONO_FUNCTION(mono_class_from_name);
        LOAD_MONO_FUNCTION(mono_class_get_method_from_name);
        LOAD_MONO_FUNCTION(mono_domain_assembly_open);
        LOAD_MONO_FUNCTION(mono_image_open_from_module_handle);
        LOAD_MONO_FUNCTION(mono_install_assembly_preload_hook);
        LOAD_MONO_FUNCTION(mono_jit_exec);
        LOAD_MONO_FUNCTION(mono_jit_init);
        LOAD_MONO_FUNCTION(mono_jit_set_trace_options);
        LOAD_MONO_FUNCTION(mono_marshal_get_vtfixup_ftnptr);
        LOAD_MONO_FUNCTION(mono_object_get_domain);
        LOAD_MONO_FUNCTION(mono_object_new);
        LOAD_MONO_FUNCTION(mono_object_unbox);
        LOAD_MONO_FUNCTION(mono_profiler_install);
        LOAD_MONO_FUNCTION(mono_reflection_type_from_name);
        LOAD_MONO_FUNCTION(mono_runtime_invoke);
        LOAD_MONO_FUNCTION(mono_runtime_object_init);
        LOAD_MONO_FUNCTION(mono_runtime_quit);
        LOAD_MONO_FUNCTION(mono_set_dirs);
        LOAD_MONO_FUNCTION(mono_stringify_assembly_name);
        LOAD_MONO_FUNCTION(mono_string_new);
        LOAD_MONO_FUNCTION(mono_thread_attach);
 
        /* GLib imports obsoleted by the 2.0 ABI */
        if (This->mono_abi_version == 1)
        {
            (*result)->glib_handle = LoadLibraryW(glibdll);
            if (!(*result)->glib_handle) goto fail;
 
            (*result)->mono_free = (void*)GetProcAddress((*result)->glib_handle, "g_free");
            if (!(*result)->mono_free) goto fail;
        }
        else
        {
            LOAD_MONO_FUNCTION(mono_free);
        }
 
#undef LOAD_MONO_FUNCTION
 
#define LOAD_OPT_VOID_MONO_FUNCTION(x) do { \
    (*result)->x = (void*)GetProcAddress((*result)->mono_handle, #x); \
    if (!(*result)->x) { \
        (*result)->x = do_nothing; \
    } \
} while (0);
 
        LOAD_OPT_VOID_MONO_FUNCTION(mono_runtime_set_shutting_down);
        LOAD_OPT_VOID_MONO_FUNCTION(mono_thread_pool_cleanup);
        LOAD_OPT_VOID_MONO_FUNCTION(mono_thread_suspend_all_other_threads);
        LOAD_OPT_VOID_MONO_FUNCTION(mono_threads_set_shutting_down);
 
#undef LOAD_OPT_VOID_MONO_FUNCTION
 
        (*result)->mono_profiler_install((MonoProfiler*)*result, mono_shutdown_callback_fn);
 
        (*result)->mono_set_dirs(mono_lib_path_a, mono_etc_path_a);
 
        (*result)->mono_config_parse(NULL);
 
        (*result)->mono_install_assembly_preload_hook(mono_assembly_search_hook_fn, *result);
 
        trace_size = GetEnvironmentVariableA("WINE_MONO_TRACE", trace_setting, sizeof(trace_setting));
 
        if (trace_size)
        {
            (*result)->mono_jit_set_trace_options(trace_setting);
        }
    }
 
    return S_OK;
 
fail:
    ERR("Could not load Mono into this process\n");
    FreeLibrary((*result)->mono_handle);
    FreeLibrary((*result)->glib_handle);
    (*result)->mono_handle = NULL;
    (*result)->glib_handle = NULL;
    return E_FAIL;
}

Referenced by CLRRuntimeInfo_GetRuntimeHost().

◆ missing_runtime_message()

static void missing_runtime_message ( const CLRRuntimeInfo * This )

static

Definition at line 85 of file metahost.c.

{
    if (This->major == 1)
        MESSAGE("wine: Install Mono 2.6 for Windows to run .NET 1.1 applications.\n");
    else if (This->major == 2)
        MESSAGE("wine: Install Mono for Windows to run .NET 2.0 applications.\n");
    else if (This->major == 4)
        MESSAGE("wine: Install Mono 2.8 or greater for Windows to run .NET 4.0 applications.\n");
}

Referenced by CLRMetaHost_GetRuntime(), get_runtime_info(), and load_mono().

◆ mono_assembly_search_hook_fn()

static MonoAssembly * mono_assembly_search_hook_fn	(	MonoAssemblyName *	aname,
		char **	assemblies_path,
		void *	user_data
	)

static

Definition at line 1160 of file metahost.c.

{
    loaded_mono *mono = user_data;
    HRESULT hr=S_OK;
    MonoAssembly *result=NULL;
    char *stringname=NULL;
    LPWSTR stringnameW;
    int stringnameW_size;
    IAssemblyCache *asmcache;
    ASSEMBLY_INFO info;
    WCHAR path[MAX_PATH];
    char *pathA;
    MonoImageOpenStatus stat;
    static WCHAR fusiondll[] = {'f','u','s','i','o','n',0};
    HMODULE hfusion=NULL;
    static HRESULT (WINAPI *pCreateAssemblyCache)(IAssemblyCache**,DWORD);
 
    stringname = mono->mono_stringify_assembly_name(aname);
 
    TRACE("%s\n", debugstr_a(stringname));
 
    if (!stringname) return NULL;
 
    /* FIXME: We should search the given paths before the GAC. */
 
    if (!pCreateAssemblyCache)
    {
        hr = LoadLibraryShim(fusiondll, NULL, NULL, &hfusion);
 
        if (SUCCEEDED(hr))
        {
            pCreateAssemblyCache = (void*)GetProcAddress(hfusion, "CreateAssemblyCache");
            if (!pCreateAssemblyCache)
                hr = E_FAIL;
        }
    }
 
    if (SUCCEEDED(hr))
        hr = pCreateAssemblyCache(&asmcache, 0);
 
    if (SUCCEEDED(hr))
    {
        stringnameW_size = MultiByteToWideChar(CP_UTF8, 0, stringname, -1, NULL, 0);
 
        stringnameW = HeapAlloc(GetProcessHeap(), 0, stringnameW_size * sizeof(WCHAR));
        if (stringnameW)
            MultiByteToWideChar(CP_UTF8, 0, stringname, -1, stringnameW, stringnameW_size);
        else
            hr = E_OUTOFMEMORY;
 
        if (SUCCEEDED(hr))
        {
            info.cbAssemblyInfo = sizeof(info);
            info.pszCurrentAssemblyPathBuf = path;
            info.cchBuf = MAX_PATH;
            path[0] = 0;
 
            hr = IAssemblyCache_QueryAssemblyInfo(asmcache, 0, stringnameW, &info);
        }
 
        HeapFree(GetProcessHeap(), 0, stringnameW);
 
        IAssemblyCache_Release(asmcache);
    }
 
    if (SUCCEEDED(hr))
    {
        TRACE("found: %s\n", debugstr_w(path));
 
        pathA = WtoA(path);
 
        if (pathA)
        {
            result = mono->mono_assembly_open(pathA, &stat);
 
            if (!result)
                ERR("Failed to load %s, status=%u\n", debugstr_w(path), stat);
 
            HeapFree(GetProcessHeap(), 0, pathA);
        }
    }
 
    mono->mono_free(stringname);
 
    return result;
}

Referenced by load_mono().

◆ mono_shutdown_callback_fn()

static void mono_shutdown_callback_fn ( MonoProfiler * prof )

static

Definition at line 233 of file metahost.c.

{
    loaded_mono *mono = (loaded_mono*)prof;
 
    mono->is_shutdown = TRUE;
}

Referenced by load_mono().

◆ parse_runtime_version()

static BOOL parse_runtime_version	(	LPCWSTR	version,
		DWORD *	major,
		DWORD *	minor,
		DWORD *	build
	)

static

Definition at line 971 of file metahost.c.

{
    *major = 0;
    *minor = 0;
    *build = 0;
 
    if (version[0] == 'v' || version[0] == 'V')
    {
        version++;
        if (!isdigit(*version))
            return FALSE;
 
        while (isdigit(*version))
            *major = *major * 10 + (*version++ - '0');
 
        if (*version == 0)
            return TRUE;
 
        if (*version++ != '.' || !isdigit(*version))
            return FALSE;
 
        while (isdigit(*version))
            *minor = *minor * 10 + (*version++ - '0');
 
        if (*version == 0)
            return TRUE;
 
        if (*version++ != '.' || !isdigit(*version))
            return FALSE;
 
        while (isdigit(*version))
            *build = *build * 10 + (*version++ - '0');
 
        return *version == 0;
    }
    else
        return FALSE;
}

Referenced by CLRMetaHost_GetRuntime(), and get_runtime_info().

◆ set_environment()

static void set_environment ( LPCWSTR bin_path )

static

Definition at line 66 of file metahost.c.

{
    WCHAR path_env[MAX_PATH];
    int len;
 
    static const WCHAR pathW[] = {'P','A','T','H',0};
 
    /* We have to modify PATH as Mono loads other DLLs from this directory. */
    GetEnvironmentVariableW(pathW, path_env, sizeof(path_env)/sizeof(WCHAR));
    len = strlenW(path_env);
    path_env[len++] = ';';
    strcpyW(path_env+len, bin_path);
    SetEnvironmentVariableW(pathW, path_env);
}

Referenced by load_mono().

◆ unload_all_runtimes()

void unload_all_runtimes ( void )

Definition at line 266 of file metahost.c.

{
    int i;
 
    for (i=0; i<NUM_ABI_VERSIONS; i++)
    {
        loaded_mono *mono = &loaded_monos[i];
        if (mono->mono_handle && mono->is_started && !mono->is_shutdown)
        {
            /* Copied from Mono's ves_icall_System_Environment_Exit */
        mono->mono_threads_set_shutting_down();
        mono->mono_runtime_set_shutting_down();
        mono->mono_thread_pool_cleanup();
        mono->mono_thread_suspend_all_other_threads();
        mono->mono_runtime_quit();
        }
    }
 
    for (i=0; i<NUM_RUNTIMES; i++)
        if (runtimes[i].loaded_runtime)
            RuntimeHost_Destroy(runtimes[i].loaded_runtime);
}

Referenced by _CorExeMain(), and CorExitProcess().

Variable Documentation

◆ CLRMetaHost_vtbl

const struct ICLRMetaHostVtbl CLRMetaHost_vtbl

static

Initial value:

=
{
    CLRMetaHost_QueryInterface,
    CLRMetaHost_AddRef,
    CLRMetaHost_Release,
    CLRMetaHost_GetRuntime,
    CLRMetaHost_GetVersionFromFile,
    CLRMetaHost_EnumerateInstalledRuntimes,
    CLRMetaHost_EnumerateLoadedRuntimes,
    CLRMetaHost_RequestRuntimeLoadedNotification,
    CLRMetaHost_QueryLegacyV2RuntimeBinding,
    CLRMetaHost_ExitProcess
}

Definition at line 1137 of file metahost.c.

◆ CLRRuntimeInfoVtbl

static const struct ICLRRuntimeInfoVtbl CLRRuntimeInfoVtbl

static

Initial value:

= {
    CLRRuntimeInfo_QueryInterface,
    CLRRuntimeInfo_AddRef,
    CLRRuntimeInfo_Release,
    CLRRuntimeInfo_GetVersionString,
    CLRRuntimeInfo_GetRuntimeDirectory,
    CLRRuntimeInfo_IsLoaded,
    CLRRuntimeInfo_LoadErrorString,
    CLRRuntimeInfo_LoadLibrary,
    CLRRuntimeInfo_GetProcAddress,
    CLRRuntimeInfo_GetInterface,
    CLRRuntimeInfo_IsLoadable,
    CLRRuntimeInfo_SetDefaultStartupFlags,
    CLRRuntimeInfo_GetDefaultStartupFlags,
    CLRRuntimeInfo_BindAsLegacyV2Runtime,
    CLRRuntimeInfo_IsStarted
}

Definition at line 34 of file metahost.c.

Referenced by ICLRRuntimeInfo_GetRuntimeHost().

◆ GlobalCLRMetaHost

static struct CLRMetaHost GlobalCLRMetaHost

static

Initial value:

= {
    { &CLRMetaHost_vtbl }
}

Definition at line 937 of file metahost.c.

Referenced by CLRMetaHost_CreateInstance().

◆ InstalledRuntimeEnum_Vtbl

static const struct IEnumUnknownVtbl InstalledRuntimeEnum_Vtbl

static

Initial value:

= {
    InstalledRuntimeEnum_QueryInterface,
    InstalledRuntimeEnum_AddRef,
    InstalledRuntimeEnum_Release,
    InstalledRuntimeEnum_Next,
    InstalledRuntimeEnum_Skip,
    InstalledRuntimeEnum_Reset,
    InstalledRuntimeEnum_Clone
}

Definition at line 780 of file metahost.c.

Referenced by CLRMetaHost_EnumerateInstalledRuntimes(), and InstalledRuntimeEnum_Clone().

◆ libmono2_arch_dll

const WCHAR libmono2_arch_dll[] = {'\\','b','i','n','\\','l','i','b','m','o','n','o','-','2','.','0','.','d','l','l',0}

static

Definition at line 558 of file metahost.c.

Referenced by find_mono_dll().

◆ loaded_monos

loaded_mono loaded_monos[NUM_ABI_VERSIONS]

static

Definition at line 58 of file metahost.c.

Referenced by expect_no_runtimes(), load_mono(), and unload_all_runtimes().

◆ net_11_subdir

const WCHAR net_11_subdir[] = {'1','.','0',0}

static

Definition at line 30 of file metahost.c.

◆ net_20_subdir

const WCHAR net_20_subdir[] = {'2','.','0',0}

static

Definition at line 31 of file metahost.c.

◆ net_40_subdir

const WCHAR net_40_subdir[] = {'4','.','0',0}

static

Definition at line 32 of file metahost.c.

◆ runtime_list_cs

static CRITICAL_SECTION runtime_list_cs = { &runtime_list_cs_debug, -1, 0, 0, 0, 0 }

static

Definition at line 46 of file metahost.c.

Referenced by CLRRuntimeInfo_GetRuntimeHost(), and find_runtimes().

◆ runtime_list_cs_debug

CRITICAL_SECTION_DEBUG runtime_list_cs_debug

static

Initial value:

=
{
    0, 0, &runtime_list_cs,
    { &runtime_list_cs_debug.ProcessLocksList,
      &runtime_list_cs_debug.ProcessLocksList },
      0, 0, { (DWORD_PTR)(__FILE__ ": runtime_list_cs") }
}

Definition at line 47 of file metahost.c.

◆ runtimes

struct CLRRuntimeInfo runtimes[NUM_RUNTIMES]

static

Initial value:

= {
    {{&CLRRuntimeInfoVtbl}, net_11_subdir, 1, 1, 4322, 0},
    {{&CLRRuntimeInfoVtbl}, net_20_subdir, 2, 0, 50727, 0},
    {{&CLRRuntimeInfoVtbl}, net_40_subdir, 4, 0, 30319, 0}
}

Definition at line 38 of file metahost.c.

Referenced by CLRMetaHost_GetRuntime(), find_runtimes(), get_runtime_info(), InstalledRuntimeEnum_Next(), InstalledRuntimeEnum_Skip(), and unload_all_runtimes().

◆ runtimes_initialized

int runtimes_initialized

static

Definition at line 44 of file metahost.c.

Referenced by find_runtimes().

Classes

Macros

Functions

Variables

Macro Definition Documentation

◆ LOAD_MONO_FUNCTION

◆ LOAD_OPT_VOID_MONO_FUNCTION

◆ NUM_ABI_VERSIONS

◆ NUM_RUNTIMES

Function Documentation

◆ CLRMetaHost_AddRef()

◆ CLRMetaHost_CreateInstance()

◆ CLRMetaHost_EnumerateInstalledRuntimes()

◆ CLRMetaHost_EnumerateLoadedRuntimes()

◆ CLRMetaHost_ExitProcess()

◆ CLRMetaHost_GetRuntime()

◆ CLRMetaHost_GetVersionFromFile()

◆ CLRMetaHost_QueryInterface()

◆ CLRMetaHost_QueryLegacyV2RuntimeBinding()

◆ CLRMetaHost_Release()

◆ CLRMetaHost_RequestRuntimeLoadedNotification()

◆ CLRRuntimeInfo_AddRef()

◆ CLRRuntimeInfo_BindAsLegacyV2Runtime()

◆ CLRRuntimeInfo_GetDefaultStartupFlags()

◆ CLRRuntimeInfo_GetInterface()

◆ CLRRuntimeInfo_GetProcAddress()

◆ CLRRuntimeInfo_GetRuntimeDirectory()

◆ CLRRuntimeInfo_GetRuntimeHost()

◆ CLRRuntimeInfo_GetVersionString()

◆ CLRRuntimeInfo_IsLoadable()

◆ CLRRuntimeInfo_IsLoaded()

◆ CLRRuntimeInfo_IsStarted()

◆ CLRRuntimeInfo_LoadErrorString()

◆ CLRRuntimeInfo_LoadLibrary()

◆ CLRRuntimeInfo_QueryInterface()

◆ CLRRuntimeInfo_Release()

◆ CLRRuntimeInfo_SetDefaultStartupFlags()

◆ do_nothing()

◆ expect_no_runtimes()

◆ find_mono_dll()

◆ find_runtimes()

◆ get_install_root()

◆ get_mono_path()

◆ get_mono_path_from_folder()

◆ get_mono_path_from_registry()

◆ get_runtime_info()

◆ ICLRRuntimeInfo_GetRuntimeHost()

◆ impl_from_ICLRRuntimeInfo()

◆ impl_from_IEnumUnknown()

◆ InstalledRuntimeEnum_AddRef()

◆ InstalledRuntimeEnum_Clone()

◆ InstalledRuntimeEnum_Next()

◆ InstalledRuntimeEnum_QueryInterface()

◆ InstalledRuntimeEnum_Release()

◆ InstalledRuntimeEnum_Reset()

◆ InstalledRuntimeEnum_Skip()

◆ load_mono()

◆ missing_runtime_message()

◆ mono_assembly_search_hook_fn()

◆ mono_shutdown_callback_fn()

◆ parse_runtime_version()

◆ set_environment()

◆ unload_all_runtimes()

Variable Documentation

◆ CLRMetaHost_vtbl

◆ CLRRuntimeInfoVtbl

◆ GlobalCLRMetaHost

◆ InstalledRuntimeEnum_Vtbl

◆ libmono2_arch_dll

◆ loaded_monos

◆ net_11_subdir

◆ net_20_subdir

◆ net_40_subdir

◆ runtime_list_cs

◆ runtime_list_cs_debug

◆ runtimes

◆ runtimes_initialized