#include "mscoree_private.h"
#include <assert.h>
#include <shellapi.h>
#include <initguid.h>

Include dependency graph for corruntimehost.c:

Classes
struct	DomainEntry

struct	dll_fixup

struct	vtable_fixup_thunk

Macros
#define	CAN_FIXUP_VTABLE 0

#define	CHARS_IN_GUID 39

#define	ARRAYSIZE(array) (sizeof(array)/sizeof((array)[0]))

Functions
	DEFINE_GUID (IID__AppDomain, 0x05f696dc, 0x2b29, 0x3663, 0xad, 0x8b, 0xc4, 0x38, 0x9c, 0xf2, 0xa7, 0x13)

static HRESULT	RuntimeHost_AddDomain (RuntimeHost This, MonoDomain *result)

static HRESULT	RuntimeHost_GetDefaultDomain (RuntimeHost This, MonoDomain *result)

static void	RuntimeHost_DeleteDomain (RuntimeHost This, MonoDomain domain)

static HRESULT	RuntimeHost_GetIUnknownForDomain (RuntimeHost This, MonoDomain domain, IUnknown **punk)

static RuntimeHost *	impl_from_ICLRRuntimeHost (ICLRRuntimeHost *iface)

static RuntimeHost *	impl_from_ICorRuntimeHost (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_QueryInterface (ICorRuntimeHost iface, REFIID riid, void *ppvObject)

static ULONG WINAPI	corruntimehost_AddRef (ICorRuntimeHost *iface)

static ULONG WINAPI	corruntimehost_Release (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_CreateLogicalThreadState (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_DeleteLogicalThreadState (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_SwitchInLogicalThreadState (ICorRuntimeHost iface, DWORD fiberCookie)

static HRESULT WINAPI	corruntimehost_SwitchOutLogicalThreadState (ICorRuntimeHost iface, DWORD *fiberCookie)

static HRESULT WINAPI	corruntimehost_LocksHeldByLogicalThread (ICorRuntimeHost iface, DWORD pCount)

static HRESULT WINAPI	corruntimehost_MapFile (ICorRuntimeHost iface, HANDLE hFile, HMODULE mapAddress)

static HRESULT WINAPI	corruntimehost_GetConfiguration (ICorRuntimeHost iface, ICorConfiguration *pConfiguration)

static HRESULT WINAPI	corruntimehost_Start (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_Stop (ICorRuntimeHost *iface)

static HRESULT WINAPI	corruntimehost_CreateDomain (ICorRuntimeHost iface, LPCWSTR friendlyName, IUnknown identityArray, IUnknown **appDomain)

static HRESULT WINAPI	corruntimehost_GetDefaultDomain (ICorRuntimeHost iface, IUnknown *pAppDomain)

static HRESULT WINAPI	corruntimehost_EnumDomains (ICorRuntimeHost iface, HDOMAINENUM hEnum)

static HRESULT WINAPI	corruntimehost_NextDomain (ICorRuntimeHost iface, HDOMAINENUM hEnum, IUnknown *appDomain)

static HRESULT WINAPI	corruntimehost_CloseEnum (ICorRuntimeHost *iface, HDOMAINENUM hEnum)

static HRESULT WINAPI	corruntimehost_CreateDomainEx (ICorRuntimeHost iface, LPCWSTR friendlyName, IUnknown setup, IUnknown evidence, IUnknown *appDomain)

static HRESULT WINAPI	corruntimehost_CreateDomainSetup (ICorRuntimeHost iface, IUnknown *appDomainSetup)

static HRESULT WINAPI	corruntimehost_CreateEvidence (ICorRuntimeHost iface, IUnknown *evidence)

static HRESULT WINAPI	corruntimehost_UnloadDomain (ICorRuntimeHost iface, IUnknown appDomain)

static HRESULT WINAPI	corruntimehost_CurrentDomain (ICorRuntimeHost iface, IUnknown *appDomain)

static HRESULT WINAPI	CLRRuntimeHost_QueryInterface (ICLRRuntimeHost iface, REFIID riid, void *ppvObject)

static ULONG WINAPI	CLRRuntimeHost_AddRef (ICLRRuntimeHost *iface)

static ULONG WINAPI	CLRRuntimeHost_Release (ICLRRuntimeHost *iface)

static HRESULT WINAPI	CLRRuntimeHost_Start (ICLRRuntimeHost *iface)

static HRESULT WINAPI	CLRRuntimeHost_Stop (ICLRRuntimeHost *iface)

static HRESULT WINAPI	CLRRuntimeHost_SetHostControl (ICLRRuntimeHost iface, IHostControl pHostControl)

static HRESULT WINAPI	CLRRuntimeHost_GetCLRControl (ICLRRuntimeHost iface, ICLRControl *pCLRControl)

static HRESULT WINAPI	CLRRuntimeHost_UnloadAppDomain (ICLRRuntimeHost *iface, DWORD dwAppDomainId, BOOL fWaitUntilDone)

static HRESULT WINAPI	CLRRuntimeHost_ExecuteInAppDomain (ICLRRuntimeHost iface, DWORD dwAppDomainId, FExecuteInAppDomainCallback pCallback, void cookie)

static HRESULT WINAPI	CLRRuntimeHost_GetCurrentAppDomainId (ICLRRuntimeHost iface, DWORD pdwAppDomainId)

static HRESULT WINAPI	CLRRuntimeHost_ExecuteApplication (ICLRRuntimeHost iface, LPCWSTR pwzAppFullName, DWORD dwManifestPaths, LPCWSTR ppwzManifestPaths, DWORD dwActivationData, LPCWSTR ppwzActivationData, int pReturnValue)

static HRESULT WINAPI	CLRRuntimeHost_ExecuteInDefaultAppDomain (ICLRRuntimeHost iface, LPCWSTR pwzAssemblyPath, LPCWSTR pwzTypeName, LPCWSTR pwzMethodName, LPCWSTR pwzArgument, DWORD pReturnValue)

HRESULT	RuntimeHost_CreateManagedInstance (RuntimeHost This, LPCWSTR name, MonoDomain domain, MonoObject **result)

HRESULT	RuntimeHost_GetIUnknownForObject (RuntimeHost This, MonoObject obj, IUnknown **ppUnk)

static void	get_utf8_args (int argc, char **argv)

static void CDECL	ReallyFixupVTable (struct dll_fixup *fixup)

static void	FixupVTableEntry (HMODULE hmodule, VTableFixup *vtable_fixup)

static void	FixupVTable (HMODULE hmodule)

__int32 WINAPI	_CorExeMain (void)

BOOL WINAPI	_CorDllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)

void	runtimehost_init (void)

void	runtimehost_uninit (void)

HRESULT	RuntimeHost_Construct (const CLRRuntimeInfo runtime_version, loaded_mono loaded_mono, RuntimeHost **result)

HRESULT	RuntimeHost_GetInterface (RuntimeHost This, REFCLSID clsid, REFIID riid, void *ppv)

HRESULT	RuntimeHost_Destroy (RuntimeHost *This)

HRESULT	create_monodata (REFIID riid, LPVOID *ppObj)

Variables
static HANDLE	dll_fixup_heap

static struct list	dll_fixups

static const struct ICorRuntimeHostVtbl	corruntimehost_vtbl

static const struct ICLRRuntimeHostVtbl	CLRHostVtbl

static const struct vtable_fixup_thunk	thunk_template = {0}

Macro Definition Documentation

◆ ARRAYSIZE

#define ARRAYSIZE ( array ) (sizeof(array)/sizeof((array)[0]))

Definition at line 1209 of file corruntimehost.c.

◆ CAN_FIXUP_VTABLE

#define CAN_FIXUP_VTABLE 0

Definition at line 841 of file corruntimehost.c.

◆ CHARS_IN_GUID

#define CHARS_IN_GUID 39

Definition at line 1207 of file corruntimehost.c.

Function Documentation

◆ _CorDllMain()

BOOL WINAPI _CorDllMain	(	HINSTANCE	hinstDLL,
		DWORD	fdwReason,
		LPVOID	lpvReserved
	)

Definition at line 1083 of file corruntimehost.c.

 {
     TRACE("(%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 
     switch (fdwReason)
     {
     case DLL_PROCESS_ATTACH:
         DisableThreadLibraryCalls(hinstDLL);
         FixupVTable(hinstDLL);
         break;
     case DLL_PROCESS_DETACH:
         /* FIXME: clean up the vtables */
         break;
     }
     return TRUE;
 }

◆ _CorExeMain()

__int32 WINAPI _CorExeMain ( void )

Definition at line 1008 of file corruntimehost.c.

 {
     int exit_code;
     int argc;
     char **argv;
     MonoDomain *domain;
     MonoImage *image;
     MonoImageOpenStatus status;
     MonoAssembly *assembly=NULL;
     WCHAR filename[MAX_PATH];
     char *filenameA;
     ICLRRuntimeInfo *info;
     RuntimeHost *host;
     HRESULT hr;
     int i;
 
     get_utf8_args(&argc, &argv);
 
     GetModuleFileNameW(NULL, filename, MAX_PATH);
 
     TRACE("%s", debugstr_w(filename));
     for (i=0; i<argc; i++)
         TRACE(" %s", debugstr_a(argv[i]));
     TRACE("\n");
 
     filenameA = WtoA(filename);
     if (!filenameA)
         return -1;
 
     FixupVTable(GetModuleHandleW(NULL));
 
     hr = get_runtime_info(filename, NULL, NULL, 0, 0, FALSE, &info);
 
     if (SUCCEEDED(hr))
     {
         hr = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 
         if (SUCCEEDED(hr))
             hr = RuntimeHost_GetDefaultDomain(host, &domain);
 
         if (SUCCEEDED(hr))
         {
             image = host->mono->mono_image_open_from_module_handle(GetModuleHandleW(NULL),
                 filenameA, 1, &status);
 
             if (image)
                 assembly = host->mono->mono_assembly_load_from(image, filenameA, &status);
 
             if (assembly)
             {
                 exit_code = host->mono->mono_jit_exec(domain, assembly, argc, argv);
             }
             else
             {
                 ERR("couldn't load %s, status=%d\n", debugstr_w(filename), status);
                 exit_code = -1;
             }
 
             RuntimeHost_DeleteDomain(host, domain);
         }
         else
             exit_code = -1;
 
         ICLRRuntimeInfo_Release(info);
     }
     else
         exit_code = -1;
 
     HeapFree(GetProcessHeap(), 0, argv);
 
     unload_all_runtimes();
 
     return exit_code;
 }

◆ CLRRuntimeHost_AddRef()

static ULONG WINAPI CLRRuntimeHost_AddRef ( ICLRRuntimeHost * iface )

static

Definition at line 463 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICLRRuntimeHost( iface );
     return ICorRuntimeHost_AddRef(&This->ICorRuntimeHost_iface);
 }

◆ CLRRuntimeHost_ExecuteApplication()

static HRESULT WINAPI CLRRuntimeHost_ExecuteApplication	(	ICLRRuntimeHost *	iface,
		LPCWSTR	pwzAppFullName,
		DWORD	dwManifestPaths,
		LPCWSTR *	ppwzManifestPaths,
		DWORD	dwActivationData,
		LPCWSTR *	ppwzActivationData,
		int *	pReturnValue
	)

static

Definition at line 522 of file corruntimehost.c.

 {
     FIXME("(%p,%s,%u,%u)\n", iface, debugstr_w(pwzAppFullName), dwManifestPaths, dwActivationData);
     return E_NOTIMPL;
 }

◆ CLRRuntimeHost_ExecuteInAppDomain()

static HRESULT WINAPI CLRRuntimeHost_ExecuteInAppDomain	(	ICLRRuntimeHost *	iface,
		DWORD	dwAppDomainId,
		FExecuteInAppDomainCallback	pCallback,
		void *	cookie
	)

static

Definition at line 508 of file corruntimehost.c.

 {
     FIXME("(%p,%u,%p,%p)\n", iface, dwAppDomainId, pCallback, cookie);
     return E_NOTIMPL;
 }

◆ CLRRuntimeHost_ExecuteInDefaultAppDomain()

static HRESULT WINAPI CLRRuntimeHost_ExecuteInDefaultAppDomain	(	ICLRRuntimeHost *	iface,
		LPCWSTR	pwzAssemblyPath,
		LPCWSTR	pwzTypeName,
		LPCWSTR	pwzMethodName,
		LPCWSTR	pwzArgument,
		DWORD *	pReturnValue
	)

static

Definition at line 530 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICLRRuntimeHost( iface );
     HRESULT hr;
     MonoDomain *domain;
     MonoAssembly *assembly;
     MonoImage *image;
     MonoClass *klass;
     MonoMethod *method;
     MonoObject *result;
     MonoString *str;
     void *args[2];
     char *filenameA = NULL, *classA = NULL, *methodA = NULL;
     char *argsA = NULL, *ns;
 
     TRACE("(%p,%s,%s,%s,%s)\n", iface, debugstr_w(pwzAssemblyPath),
         debugstr_w(pwzTypeName), debugstr_w(pwzMethodName), debugstr_w(pwzArgument));
 
     hr = RuntimeHost_GetDefaultDomain(This, &domain);
     if(hr != S_OK)
     {
         ERR("Couldn't get Default Domain\n");
         return hr;
     }
 
     hr = E_FAIL;
 
     This->mono->mono_thread_attach(domain);
 
     filenameA = WtoA(pwzAssemblyPath);
     assembly = This->mono->mono_domain_assembly_open(domain, filenameA);
     if (!assembly)
     {
         ERR("Cannot open assembly %s\n", filenameA);
         goto cleanup;
     }
 
     image = This->mono->mono_assembly_get_image(assembly);
     if (!image)
     {
         ERR("Couldn't get assembly image\n");
         goto cleanup;
     }
 
     classA = WtoA(pwzTypeName);
     ns = strrchr(classA, '.');
     *ns = '\0';
     klass = This->mono->mono_class_from_name(image, classA, ns+1);
     if (!klass)
     {
         ERR("Couldn't get class from image\n");
         goto cleanup;
     }
 
     methodA = WtoA(pwzMethodName);
     method = This->mono->mono_class_get_method_from_name(klass, methodA, 1);
     if (!method)
     {
         ERR("Couldn't get method from class\n");
         goto cleanup;
     }
 
     /* The .NET function we are calling has the following declaration
      *   public static int functionName(String param)
      */
     argsA = WtoA(pwzArgument);
     str = This->mono->mono_string_new(domain, argsA);
     args[0] = str;
     args[1] = NULL;
     result = This->mono->mono_runtime_invoke(method, NULL, args, NULL);
     if (!result)
         ERR("Couldn't get result pointer\n");
     else
     {
         *pReturnValue = *(DWORD*)This->mono->mono_object_unbox(result);
         hr = S_OK;
     }
 
 cleanup:
     HeapFree(GetProcessHeap(), 0, filenameA);
     HeapFree(GetProcessHeap(), 0, classA);
     HeapFree(GetProcessHeap(), 0, argsA);
     HeapFree(GetProcessHeap(), 0, methodA);
 
     return hr;
 }

◆ CLRRuntimeHost_GetCLRControl()

static HRESULT WINAPI CLRRuntimeHost_GetCLRControl	(	ICLRRuntimeHost *	iface,
		ICLRControl **	pCLRControl
	)

static

Definition at line 494 of file corruntimehost.c.

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

◆ CLRRuntimeHost_GetCurrentAppDomainId()

static HRESULT WINAPI CLRRuntimeHost_GetCurrentAppDomainId	(	ICLRRuntimeHost *	iface,
		DWORD *	pdwAppDomainId
	)

static

Definition at line 515 of file corruntimehost.c.

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

◆ CLRRuntimeHost_QueryInterface()

static HRESULT WINAPI CLRRuntimeHost_QueryInterface	(	ICLRRuntimeHost *	iface,
		REFIID	riid,
		void **	ppvObject
	)

static

Definition at line 440 of file corruntimehost.c.

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

◆ CLRRuntimeHost_Release()

static ULONG WINAPI CLRRuntimeHost_Release ( ICLRRuntimeHost * iface )

static

Definition at line 469 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICLRRuntimeHost( iface );
     return ICorRuntimeHost_Release(&This->ICorRuntimeHost_iface);
 }

◆ CLRRuntimeHost_SetHostControl()

static HRESULT WINAPI CLRRuntimeHost_SetHostControl	(	ICLRRuntimeHost *	iface,
		IHostControl *	pHostControl
	)

static

Definition at line 487 of file corruntimehost.c.

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

◆ CLRRuntimeHost_Start()

static HRESULT WINAPI CLRRuntimeHost_Start ( ICLRRuntimeHost * iface )

static

Definition at line 475 of file corruntimehost.c.

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

◆ CLRRuntimeHost_Stop()

static HRESULT WINAPI CLRRuntimeHost_Stop ( ICLRRuntimeHost * iface )

static

Definition at line 481 of file corruntimehost.c.

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

◆ CLRRuntimeHost_UnloadAppDomain()

static HRESULT WINAPI CLRRuntimeHost_UnloadAppDomain	(	ICLRRuntimeHost *	iface,
		DWORD	dwAppDomainId,
		BOOL	fWaitUntilDone
	)

static

Definition at line 501 of file corruntimehost.c.

 {
     FIXME("(%p,%u,%i)\n", iface, dwAppDomainId, fWaitUntilDone);
     return E_NOTIMPL;
 }

◆ corruntimehost_AddRef()

static ULONG WINAPI corruntimehost_AddRef ( ICorRuntimeHost * iface )

static

Definition at line 229 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICorRuntimeHost( iface );
 
     return InterlockedIncrement( &This->ref );
 }

◆ corruntimehost_CloseEnum()

static HRESULT WINAPI corruntimehost_CloseEnum	(	ICorRuntimeHost *	iface,
		HDOMAINENUM	hEnum
	)

static

Definition at line 363 of file corruntimehost.c.

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

◆ corruntimehost_CreateDomain()

static HRESULT WINAPI corruntimehost_CreateDomain	(	ICorRuntimeHost *	iface,
		LPCWSTR	friendlyName,
		IUnknown *	identityArray,
		IUnknown **	appDomain
	)

static

Definition at line 316 of file corruntimehost.c.

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

◆ corruntimehost_CreateDomainEx()

static HRESULT WINAPI corruntimehost_CreateDomainEx	(	ICorRuntimeHost *	iface,
		LPCWSTR	friendlyName,
		IUnknown *	setup,
		IUnknown *	evidence,
		IUnknown **	appDomain
	)

static

Definition at line 371 of file corruntimehost.c.

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

◆ corruntimehost_CreateDomainSetup()

static HRESULT WINAPI corruntimehost_CreateDomainSetup	(	ICorRuntimeHost *	iface,
		IUnknown **	appDomainSetup
	)

static

Definition at line 382 of file corruntimehost.c.

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

◆ corruntimehost_CreateEvidence()

static HRESULT WINAPI corruntimehost_CreateEvidence	(	ICorRuntimeHost *	iface,
		IUnknown **	evidence
	)

static

Definition at line 390 of file corruntimehost.c.

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

◆ corruntimehost_CreateLogicalThreadState()

static HRESULT WINAPI corruntimehost_CreateLogicalThreadState ( ICorRuntimeHost * iface )

static

Definition at line 247 of file corruntimehost.c.

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

◆ corruntimehost_CurrentDomain()

static HRESULT WINAPI corruntimehost_CurrentDomain	(	ICorRuntimeHost *	iface,
		IUnknown **	appDomain
	)

static

Definition at line 406 of file corruntimehost.c.

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

◆ corruntimehost_DeleteLogicalThreadState()

static HRESULT WINAPI corruntimehost_DeleteLogicalThreadState ( ICorRuntimeHost * iface )

static

Definition at line 254 of file corruntimehost.c.

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

◆ corruntimehost_EnumDomains()

static HRESULT WINAPI corruntimehost_EnumDomains	(	ICorRuntimeHost *	iface,
		HDOMAINENUM *	hEnum
	)

static

Definition at line 346 of file corruntimehost.c.

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

◆ corruntimehost_GetConfiguration()

static HRESULT WINAPI corruntimehost_GetConfiguration	(	ICorRuntimeHost *	iface,
		ICorConfiguration **	pConfiguration
	)

static

Definition at line 294 of file corruntimehost.c.

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

◆ corruntimehost_GetDefaultDomain()

static HRESULT WINAPI corruntimehost_GetDefaultDomain	(	ICorRuntimeHost *	iface,
		IUnknown **	pAppDomain
	)

static

Definition at line 326 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICorRuntimeHost( iface );
     HRESULT hr;
     MonoDomain *domain;
 
     TRACE("(%p)\n", iface);
 
     hr = RuntimeHost_GetDefaultDomain(This, &domain);
 
     if (SUCCEEDED(hr))
     {
         hr = RuntimeHost_GetIUnknownForDomain(This, domain, pAppDomain);
     }
 
     return hr;
 }

◆ corruntimehost_LocksHeldByLogicalThread()

static HRESULT WINAPI corruntimehost_LocksHeldByLogicalThread	(	ICorRuntimeHost *	iface,
		DWORD *	pCount
	)

static

Definition at line 277 of file corruntimehost.c.

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

◆ corruntimehost_MapFile()

static HRESULT WINAPI corruntimehost_MapFile	(	ICorRuntimeHost *	iface,
		HANDLE	hFile,
		HMODULE *	mapAddress
	)

static

Definition at line 285 of file corruntimehost.c.

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

◆ corruntimehost_NextDomain()

static HRESULT WINAPI corruntimehost_NextDomain	(	ICorRuntimeHost *	iface,
		HDOMAINENUM	hEnum,
		IUnknown **	appDomain
	)

static

Definition at line 354 of file corruntimehost.c.

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

◆ corruntimehost_QueryInterface()

static HRESULT WINAPI corruntimehost_QueryInterface	(	ICorRuntimeHost *	iface,
		REFIID	riid,
		void **	ppvObject
	)

static

Definition at line 206 of file corruntimehost.c.

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

◆ corruntimehost_Release()

static ULONG WINAPI corruntimehost_Release ( ICorRuntimeHost * iface )

static

Definition at line 236 of file corruntimehost.c.

 {
     RuntimeHost *This = impl_from_ICorRuntimeHost( iface );
     ULONG ref;
 
     ref = InterlockedDecrement( &This->ref );
 
     return ref;
 }

◆ corruntimehost_Start()

static HRESULT WINAPI corruntimehost_Start ( ICorRuntimeHost * iface )

static

Definition at line 302 of file corruntimehost.c.

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

◆ corruntimehost_Stop()

static HRESULT WINAPI corruntimehost_Stop ( ICorRuntimeHost * iface )

static

Definition at line 309 of file corruntimehost.c.

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

◆ corruntimehost_SwitchInLogicalThreadState()

static HRESULT WINAPI corruntimehost_SwitchInLogicalThreadState	(	ICorRuntimeHost *	iface,
		DWORD *	fiberCookie
	)

static

Definition at line 261 of file corruntimehost.c.

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

◆ corruntimehost_SwitchOutLogicalThreadState()

static HRESULT WINAPI corruntimehost_SwitchOutLogicalThreadState	(	ICorRuntimeHost *	iface,
		DWORD **	fiberCookie
	)

static

Definition at line 269 of file corruntimehost.c.

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

◆ corruntimehost_UnloadDomain()

static HRESULT WINAPI corruntimehost_UnloadDomain	(	ICorRuntimeHost *	iface,
		IUnknown *	appDomain
	)

static

Definition at line 398 of file corruntimehost.c.

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

◆ create_monodata()

HRESULT create_monodata	(	REFIID	riid,
		LPVOID *	ppObj
	)

Definition at line 1211 of file corruntimehost.c.

 {
     static const WCHAR wszCodebase[] = {'C','o','d','e','B','a','s','e',0};
     static const WCHAR wszClass[] = {'C','l','a','s','s',0};
     static const WCHAR wszFileSlash[] = {'f','i','l','e',':','/','/','/',0};
     static const WCHAR wszCLSIDSlash[] = {'C','L','S','I','D','\\',0};
     static const WCHAR wszInprocServer32[] = {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
     WCHAR path[CHARS_IN_GUID + ARRAYSIZE(wszCLSIDSlash) + ARRAYSIZE(wszInprocServer32) - 1];
     MonoDomain *domain;
     MonoAssembly *assembly;
     ICLRRuntimeInfo *info = NULL;
     RuntimeHost *host;
     HRESULT hr;
     HKEY key;
     LONG res;
     int offset = 0;
     WCHAR codebase[MAX_PATH + 8];
     WCHAR classname[350];
     WCHAR filename[MAX_PATH];
 
     DWORD dwBufLen = 350;
 
     lstrcpyW(path, wszCLSIDSlash);
     StringFromGUID2(riid, path + lstrlenW(wszCLSIDSlash), CHARS_IN_GUID);
     lstrcatW(path, wszInprocServer32);
 
     TRACE("Registry key: %s\n", debugstr_w(path));
 
     res = RegOpenKeyExW(HKEY_CLASSES_ROOT, path, 0, KEY_READ, &key);
     if (res == ERROR_FILE_NOT_FOUND)
         return CLASS_E_CLASSNOTAVAILABLE;
 
     res = RegGetValueW( key, NULL, wszClass, RRF_RT_REG_SZ, NULL, classname, &dwBufLen);
     if(res != ERROR_SUCCESS)
     {
         WARN("Class value cannot be found.\n");
         hr = CLASS_E_CLASSNOTAVAILABLE;
         goto cleanup;
     }
 
     TRACE("classname (%s)\n", debugstr_w(classname));
 
     dwBufLen = MAX_PATH + 8;
     res = RegGetValueW( key, NULL, wszCodebase, RRF_RT_REG_SZ, NULL, codebase, &dwBufLen);
     if(res != ERROR_SUCCESS)
     {
         WARN("CodeBase value cannot be found.\n");
         hr = CLASS_E_CLASSNOTAVAILABLE;
         goto cleanup;
     }
 
     /* Strip file:/// */
     if(strncmpW(codebase, wszFileSlash, strlenW(wszFileSlash)) == 0)
         offset = strlenW(wszFileSlash);
 
     strcpyW(filename, codebase + offset);
 
     TRACE("codebase (%s)\n", debugstr_w(filename));
 
     *ppObj = NULL;
 
 
     hr = get_runtime_info(filename, NULL, NULL, 0, 0, FALSE, &info);
     if (SUCCEEDED(hr))
     {
         hr = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 
         if (SUCCEEDED(hr))
             hr = RuntimeHost_GetDefaultDomain(host, &domain);
 
         if (SUCCEEDED(hr))
         {
             MonoImage *image;
             MonoClass *klass;
             MonoObject *result;
             IUnknown *unk = NULL;
             char *filenameA, *ns;
             char *classA;
 
             hr = CLASS_E_CLASSNOTAVAILABLE;
 
             host->mono->mono_thread_attach(domain);
 
             filenameA = WtoA(filename);
             assembly = host->mono->mono_domain_assembly_open(domain, filenameA);
             HeapFree(GetProcessHeap(), 0, filenameA);
             if (!assembly)
             {
                 ERR("Cannot open assembly %s\n", filenameA);
                 goto cleanup;
             }
 
             image = host->mono->mono_assembly_get_image(assembly);
             if (!image)
             {
                 ERR("Couldn't get assembly image\n");
                 goto cleanup;
             }
 
             classA = WtoA(classname);
             ns = strrchr(classA, '.');
             *ns = '\0';
 
             klass = host->mono->mono_class_from_name(image, classA, ns+1);
             HeapFree(GetProcessHeap(), 0, classA);
             if (!klass)
             {
                 ERR("Couldn't get class from image\n");
                 goto cleanup;
             }
 
             /*
              * Use the default constructor for the .NET class.
              */
             result = host->mono->mono_object_new(domain, klass);
             host->mono->mono_runtime_object_init(result);
 
             hr = RuntimeHost_GetIUnknownForObject(host, result, &unk);
             if (SUCCEEDED(hr))
             {
                 hr = IUnknown_QueryInterface(unk, &IID_IUnknown, ppObj);
 
                 IUnknown_Release(unk);
             }
             else
                 hr = CLASS_E_CLASSNOTAVAILABLE;
         }
         else
             hr = CLASS_E_CLASSNOTAVAILABLE;
     }
     else
         hr = CLASS_E_CLASSNOTAVAILABLE;
 
 cleanup:
     if(info)
         ICLRRuntimeInfo_Release(info);
 
     RegCloseKey(key);
 
     return hr;
 }

Referenced by DllGetClassObject().

◆ DEFINE_GUID()

DEFINE_GUID	(	IID__AppDomain	,
		0x05f696dc	,
		0x2b29	,
		0x3663	,
		0xad	,
		0x8b	,
		0xc4	,
		0x38	,
		0x9c	,
		0xf2	,
		0xa7	,
		0x13
	)

◆ FixupVTable()

static void FixupVTable ( HMODULE hmodule )

static

Definition at line 985 of file corruntimehost.c.

 {
     ASSEMBLY *assembly;
     HRESULT hr;
     VTableFixup *vtable_fixups;
     ULONG vtable_fixup_count, i;
 
     hr = assembly_from_hmodule(&assembly, hmodule);
     if (SUCCEEDED(hr))
     {
         hr = assembly_get_vtable_fixups(assembly, &vtable_fixups, &vtable_fixup_count);
         if (CAN_FIXUP_VTABLE)
             for (i=0; i<vtable_fixup_count; i++)
                 FixupVTableEntry(hmodule, &vtable_fixups[i]);
         else if (vtable_fixup_count)
             FIXME("cannot fixup vtable; expect a crash\n");
 
         assembly_release(assembly);
     }
     else
         ERR("failed to read CLR headers, hr=%x\n", hr);
 }

Referenced by _CorDllMain(), and _CorExeMain().

◆ FixupVTableEntry()

static void FixupVTableEntry	(	HMODULE	hmodule,
		VTableFixup *	vtable_fixup
	)

static

Definition at line 934 of file corruntimehost.c.

 {
     /* We can't actually generate code for the functions without loading mono,
      * and loading mono inside DllMain is a terrible idea. So we make thunks
      * that call ReallyFixupVTable, which will load the runtime and fill in the
      * vtable, then do an indirect jump using the (now filled in) vtable. Note
      * that we have to keep the thunks around forever, as one of them may get
      * called while we're filling in the table, and we can never be sure all
      * threads are clear. */
     struct dll_fixup *fixup;
 
     fixup = HeapAlloc(GetProcessHeap(), 0, sizeof(*fixup));
 
     fixup->dll = hmodule;
     fixup->thunk_code = HeapAlloc(dll_fixup_heap, 0, sizeof(struct vtable_fixup_thunk) * vtable_fixup->count);
     fixup->fixup = vtable_fixup;
     fixup->vtable = (BYTE*)hmodule + vtable_fixup->rva;
     fixup->done = 0;
 
     if (vtable_fixup->type & COR_VTABLE_32BIT)
     {
         DWORD *vtable = fixup->vtable;
         DWORD *tokens;
         int i;
         struct vtable_fixup_thunk *thunks = fixup->thunk_code;
 
         if (sizeof(void*) > 4)
             ERR("32-bit fixup in 64-bit mode; broken image?\n");
 
         tokens = fixup->tokens = HeapAlloc(GetProcessHeap(), 0, sizeof(*tokens) * vtable_fixup->count);
         memcpy(tokens, vtable, sizeof(*tokens) * vtable_fixup->count);
         for (i=0; i<vtable_fixup->count; i++)
         {
             memcpy(&thunks[i], &thunk_template, sizeof(thunk_template));
             thunks[i].fixup = fixup;
             thunks[i].function = ReallyFixupVTable;
             thunks[i].vtable_entry = &vtable[i];
             vtable[i] = PtrToUint(&thunks[i]);
         }
     }
     else
     {
         ERR("unsupported vtable fixup flags %x\n", vtable_fixup->type);
         HeapFree(dll_fixup_heap, 0, fixup->thunk_code);
         HeapFree(GetProcessHeap(), 0, fixup);
         return;
     }
 
     list_add_tail(&dll_fixups, &fixup->entry);
 }

Referenced by FixupVTable().

◆ get_utf8_args()

static void get_utf8_args	(	int *	argc,
		char ***	argv
	)

static

Definition at line 771 of file corruntimehost.c.

 {
     WCHAR **argvw;
     int size=0, i;
     char *current_arg;
 
     argvw = CommandLineToArgvW(GetCommandLineW(), argc);
 
     for (i=0; i<*argc; i++)
     {
         size += sizeof(char*);
         size += WideCharToMultiByte(CP_UTF8, 0, argvw[i], -1, NULL, 0, NULL, NULL);
     }
     size += sizeof(char*);
 
     *argv = HeapAlloc(GetProcessHeap(), 0, size);
     current_arg = (char*)(*argv + *argc + 1);
 
     for (i=0; i<*argc; i++)
     {
         (*argv)[i] = current_arg;
         current_arg += WideCharToMultiByte(CP_UTF8, 0, argvw[i], -1, current_arg, size, NULL, NULL);
     }
 
     (*argv)[*argc] = NULL;
 
     HeapFree(GetProcessHeap(), 0, argvw);
 }

Referenced by _CorExeMain().

◆ impl_from_ICLRRuntimeHost()

static RuntimeHost* impl_from_ICLRRuntimeHost ( ICLRRuntimeHost * iface )

inlinestatic

Definition at line 195 of file corruntimehost.c.

 {
     return CONTAINING_RECORD(iface, RuntimeHost, ICLRRuntimeHost_iface);
 }

Referenced by CLRRuntimeHost_AddRef(), CLRRuntimeHost_ExecuteInDefaultAppDomain(), CLRRuntimeHost_QueryInterface(), and CLRRuntimeHost_Release().

◆ impl_from_ICorRuntimeHost()

static RuntimeHost* impl_from_ICorRuntimeHost ( ICorRuntimeHost * iface )

inlinestatic

Definition at line 200 of file corruntimehost.c.

 {
     return CONTAINING_RECORD(iface, RuntimeHost, ICorRuntimeHost_iface);
 }

Referenced by corruntimehost_AddRef(), corruntimehost_GetDefaultDomain(), corruntimehost_QueryInterface(), and corruntimehost_Release().

◆ ReallyFixupVTable()

static void CDECL ReallyFixupVTable ( struct dll_fixup * fixup )

static

Definition at line 854 of file corruntimehost.c.

 {
     HRESULT hr=S_OK;
     WCHAR filename[MAX_PATH];
     ICLRRuntimeInfo *info=NULL;
     RuntimeHost *host;
     char *filenameA;
     MonoImage *image=NULL;
     MonoAssembly *assembly=NULL;
     MonoImageOpenStatus status=0;
     MonoDomain *domain;
 
     if (fixup->done) return;
 
     /* It's possible we'll have two threads doing this at once. This is
      * considered preferable to the potential deadlock if we use a mutex. */
 
     GetModuleFileNameW(fixup->dll, filename, MAX_PATH);
 
     TRACE("%p,%p,%s\n", fixup, fixup->dll, debugstr_w(filename));
 
     filenameA = WtoA(filename);
     if (!filenameA)
         hr = E_OUTOFMEMORY;
 
     if (SUCCEEDED(hr))
         hr = get_runtime_info(filename, NULL, NULL, 0, 0, FALSE, &info);
 
     if (SUCCEEDED(hr))
         hr = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 
     if (SUCCEEDED(hr))
         hr = RuntimeHost_GetDefaultDomain(host, &domain);
 
     if (SUCCEEDED(hr))
     {
         host->mono->mono_thread_attach(domain);
 
         image = host->mono->mono_image_open_from_module_handle(fixup->dll,
             filenameA, 1, &status);
     }
 
     if (image)
         assembly = host->mono->mono_assembly_load_from(image, filenameA, &status);
 
     if (assembly)
     {
         int i;
 
         /* Mono needs an image that belongs to an assembly. */
         image = host->mono->mono_assembly_get_image(assembly);
 
         if (fixup->fixup->type & COR_VTABLE_32BIT)
         {
             DWORD *vtable = fixup->vtable;
             DWORD *tokens = fixup->tokens;
             for (i=0; i<fixup->fixup->count; i++)
             {
                 TRACE("%x\n", tokens[i]);
                 vtable[i] = PtrToUint(host->mono->mono_marshal_get_vtfixup_ftnptr(
                     image, tokens[i], fixup->fixup->type));
             }
         }
 
         fixup->done = 1;
     }
 
     if (info != NULL)
         ICLRRuntimeInfo_Release(info);
 
     HeapFree(GetProcessHeap(), 0, filenameA);
 
     if (!fixup->done)
     {
         ERR("unable to fixup vtable, hr=%x, status=%d\n", hr, status);
         /* If we returned now, we'd get an infinite loop. */
         assert(0);
     }
 }

Referenced by FixupVTableEntry().

◆ RuntimeHost_AddDomain()

static HRESULT RuntimeHost_AddDomain	(	RuntimeHost *	This,
		MonoDomain **	result
	)

static

Definition at line 49 of file corruntimehost.c.

 {
     struct DomainEntry *entry;
     char *mscorlib_path;
     HRESULT res=S_OK;
 
     EnterCriticalSection(&This->lock);
 
     entry = HeapAlloc(GetProcessHeap(), 0, sizeof(*entry));
     if (!entry)
     {
         res = E_OUTOFMEMORY;
         goto end;
     }
 
     mscorlib_path = WtoA(This->version->mscorlib_path);
     if (!mscorlib_path)
     {
         HeapFree(GetProcessHeap(), 0, entry);
         res = E_OUTOFMEMORY;
         goto end;
     }
 
     entry->domain = This->mono->mono_jit_init(mscorlib_path);
 
     HeapFree(GetProcessHeap(), 0, mscorlib_path);
 
     if (!entry->domain)
     {
         HeapFree(GetProcessHeap(), 0, entry);
         res = E_FAIL;
         goto end;
     }
 
     This->mono->is_started = TRUE;
 
     list_add_tail(&This->domains, &entry->entry);
 
     *result = entry->domain;
 
 end:
     LeaveCriticalSection(&This->lock);
 
     return res;
 }

Referenced by RuntimeHost_GetDefaultDomain().

◆ RuntimeHost_Construct()

HRESULT RuntimeHost_Construct	(	const CLRRuntimeInfo *	runtime_version,
		loaded_mono *	loaded_mono,
		RuntimeHost **	result
	)

Definition at line 1120 of file corruntimehost.c.

 {
     RuntimeHost *This;
 
     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
     if ( !This )
         return E_OUTOFMEMORY;
 
     This->ICorRuntimeHost_iface.lpVtbl = &corruntimehost_vtbl;
     This->ICLRRuntimeHost_iface.lpVtbl = &CLRHostVtbl;
 
     This->ref = 1;
     This->version = runtime_version;
     This->mono = loaded_mono;
     list_init(&This->domains);
     This->default_domain = NULL;
     InitializeCriticalSection(&This->lock);
     This->lock.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": RuntimeHost.lock");
 
     *result = This;
 
     return S_OK;
 }

Referenced by CLRRuntimeInfo_GetRuntimeHost().

◆ RuntimeHost_CreateManagedInstance()

HRESULT RuntimeHost_CreateManagedInstance	(	RuntimeHost *	This,
		LPCWSTR	name,
		MonoDomain *	domain,
		MonoObject **	result
	)

Definition at line 638 of file corruntimehost.c.

 {
     HRESULT hr=S_OK;
     char *nameA=NULL;
     MonoType *type;
     MonoClass *klass;
     MonoObject *obj;
 
     if (!domain)
         hr = RuntimeHost_GetDefaultDomain(This, &domain);
 
     if (SUCCEEDED(hr))
     {
         nameA = WtoA(name);
         if (!nameA)
             hr = E_OUTOFMEMORY;
     }
 
     if (SUCCEEDED(hr))
     {
         This->mono->mono_thread_attach(domain);
 
         type = This->mono->mono_reflection_type_from_name(nameA, NULL);
         if (!type)
         {
             ERR("Cannot find type %s\n", debugstr_w(name));
             hr = E_FAIL;
         }
     }
 
     if (SUCCEEDED(hr))
     {
         klass = This->mono->mono_class_from_mono_type(type);
         if (!klass)
         {
             ERR("Cannot convert type %s to a class\n", debugstr_w(name));
             hr = E_FAIL;
         }
     }
 
     if (SUCCEEDED(hr))
     {
         obj = This->mono->mono_object_new(domain, klass);
         if (!obj)
         {
             ERR("Cannot allocate object of type %s\n", debugstr_w(name));
             hr = E_FAIL;
         }
     }
 
     if (SUCCEEDED(hr))
     {
         /* FIXME: Detect exceptions from the constructor? */
         This->mono->mono_runtime_object_init(obj);
         *result = obj;
     }
 
     HeapFree(GetProcessHeap(), 0, nameA);
 
     return hr;
 }

Referenced by ClrCreateManagedInstance().

◆ RuntimeHost_DeleteDomain()

static void RuntimeHost_DeleteDomain	(	RuntimeHost *	This,
		MonoDomain *	domain
	)

static

Definition at line 113 of file corruntimehost.c.

 {
     struct DomainEntry *entry;
 
     EnterCriticalSection(&This->lock);
 
     LIST_FOR_EACH_ENTRY(entry, &This->domains, struct DomainEntry, entry)
     {
         if (entry->domain == domain)
         {
             list_remove(&entry->entry);
             if (This->default_domain == domain)
                 This->default_domain = NULL;
             HeapFree(GetProcessHeap(), 0, entry);
             break;
         }
     }
 
     LeaveCriticalSection(&This->lock);
 }

Referenced by _CorExeMain().

◆ RuntimeHost_Destroy()

HRESULT RuntimeHost_Destroy ( RuntimeHost * This )

Definition at line 1190 of file corruntimehost.c.

 {
     struct DomainEntry *cursor, *cursor2;
 
     This->lock.DebugInfo->Spare[0] = 0;
     DeleteCriticalSection(&This->lock);
 
     LIST_FOR_EACH_ENTRY_SAFE(cursor, cursor2, &This->domains, struct DomainEntry, entry)
     {
         list_remove(&cursor->entry);
         HeapFree(GetProcessHeap(), 0, cursor);
     }
 
     HeapFree( GetProcessHeap(), 0, This );
     return S_OK;
 }

Referenced by unload_all_runtimes().

◆ RuntimeHost_GetDefaultDomain()

static HRESULT RuntimeHost_GetDefaultDomain	(	RuntimeHost *	This,
		MonoDomain **	result
	)

static

Definition at line 95 of file corruntimehost.c.

 {
     HRESULT res=S_OK;
 
     EnterCriticalSection(&This->lock);
 
     if (This->default_domain) goto end;
 
     res = RuntimeHost_AddDomain(This, &This->default_domain);
 
 end:
     *result = This->default_domain;
 
     LeaveCriticalSection(&This->lock);
 
     return res;
 }

Referenced by _CorExeMain(), CLRRuntimeHost_ExecuteInDefaultAppDomain(), corruntimehost_GetDefaultDomain(), create_monodata(), ReallyFixupVTable(), and RuntimeHost_CreateManagedInstance().

◆ RuntimeHost_GetInterface()

HRESULT RuntimeHost_GetInterface	(	RuntimeHost *	This,
		REFCLSID	clsid,
		REFIID	riid,
		void **	ppv
	)

Definition at line 1145 of file corruntimehost.c.

 {
     IUnknown *unk;
     HRESULT hr;
 
     if (IsEqualGUID(clsid, &CLSID_CorRuntimeHost))
     {
         unk = (IUnknown*)&This->ICorRuntimeHost_iface;
         IUnknown_AddRef(unk);
     }
     else if (IsEqualGUID(clsid, &CLSID_CLRRuntimeHost))
     {
         unk = (IUnknown*)&This->ICLRRuntimeHost_iface;
         IUnknown_AddRef(unk);
     }
     else if (IsEqualGUID(clsid, &CLSID_CorMetaDataDispenser) ||
              IsEqualGUID(clsid, &CLSID_CorMetaDataDispenserRuntime))
     {
         hr = MetaDataDispenser_CreateInstance(&unk);
         if (FAILED(hr))
             return hr;
     }
     else if (IsEqualGUID(clsid, &CLSID_CLRDebuggingLegacy))
     {
         hr = CorDebug_Create(&This->ICLRRuntimeHost_iface, &unk);
         if (FAILED(hr))
             return hr;
     }
     else
         unk = NULL;
 
     if (unk)
     {
         hr = IUnknown_QueryInterface(unk, riid, ppv);
 
         IUnknown_Release(unk);
 
         return hr;
     }
     else
         FIXME("not implemented for class %s\n", debugstr_guid(clsid));
 
     return CLASS_E_CLASSNOTAVAILABLE;
 }

Referenced by CLRRuntimeInfo_GetInterface().

◆ RuntimeHost_GetIUnknownForDomain()

static HRESULT RuntimeHost_GetIUnknownForDomain	(	RuntimeHost *	This,
		MonoDomain *	domain,
		IUnknown **	punk
	)

static

Definition at line 134 of file corruntimehost.c.

 {
     HRESULT hr;
     void *args[1];
     MonoAssembly *assembly;
     MonoImage *image;
     MonoClass *klass;
     MonoMethod *method;
     MonoObject *appdomain_object;
     IUnknown *unk;
 
     This->mono->mono_thread_attach(domain);
 
     assembly = This->mono->mono_domain_assembly_open(domain, "mscorlib");
     if (!assembly)
     {
         ERR("Cannot load mscorlib\n");
         return E_FAIL;
     }
 
     image = This->mono->mono_assembly_get_image(assembly);
     if (!image)
     {
         ERR("Couldn't get assembly image\n");
         return E_FAIL;
     }
 
     klass = This->mono->mono_class_from_name(image, "System", "AppDomain");
     if (!klass)
     {
         ERR("Couldn't get class from image\n");
         return E_FAIL;
     }
 
     method = This->mono->mono_class_get_method_from_name(klass, "get_CurrentDomain", 0);
     if (!method)
     {
         ERR("Couldn't get method from class\n");
         return E_FAIL;
     }
 
     args[0] = NULL;
     appdomain_object = This->mono->mono_runtime_invoke(method, NULL, args, NULL);
     if (!appdomain_object)
     {
         ERR("Couldn't get result pointer\n");
         return E_FAIL;
     }
 
     hr = RuntimeHost_GetIUnknownForObject(This, appdomain_object, &unk);
 
     if (SUCCEEDED(hr))
     {
         hr = IUnknown_QueryInterface(unk, &IID__AppDomain, (void**)punk);
 
         IUnknown_Release(unk);
     }
 
     return hr;
 }

Referenced by corruntimehost_GetDefaultDomain().

◆ RuntimeHost_GetIUnknownForObject()

HRESULT RuntimeHost_GetIUnknownForObject	(	RuntimeHost *	This,
		MonoObject *	obj,
		IUnknown **	ppUnk
	)

Definition at line 711 of file corruntimehost.c.

 {
     MonoDomain *domain;
     MonoAssembly *assembly;
     MonoImage *image;
     MonoClass *klass;
     MonoMethod *method;
     MonoObject *result;
     void *args[2];
 
     domain = This->mono->mono_object_get_domain(obj);
 
     assembly = This->mono->mono_domain_assembly_open(domain, "mscorlib");
     if (!assembly)
     {
         ERR("Cannot load mscorlib\n");
         return E_FAIL;
     }
 
     image = This->mono->mono_assembly_get_image(assembly);
     if (!image)
     {
         ERR("Couldn't get assembly image\n");
         return E_FAIL;
     }
 
     klass = This->mono->mono_class_from_name(image, "System.Runtime.InteropServices", "Marshal");
     if (!klass)
     {
         ERR("Couldn't get class from image\n");
         return E_FAIL;
     }
 
     method = This->mono->mono_class_get_method_from_name(klass, "GetIUnknownForObject", 1);
     if (!method)
     {
         ERR("Couldn't get method from class\n");
         return E_FAIL;
     }
 
     args[0] = obj;
     args[1] = NULL;
     result = This->mono->mono_runtime_invoke(method, NULL, args, NULL);
     if (!result)
     {
         ERR("Couldn't get result pointer\n");
         return E_FAIL;
     }
 
     *ppUnk = *(IUnknown**)This->mono->mono_object_unbox(result);
     if (!*ppUnk)
     {
         ERR("GetIUnknownForObject returned 0\n");
         return E_FAIL;
     }
 
     return S_OK;
 }

Referenced by ClrCreateManagedInstance(), create_monodata(), and RuntimeHost_GetIUnknownForDomain().

◆ runtimehost_init()

void runtimehost_init ( void )

Definition at line 1101 of file corruntimehost.c.

 {
     dll_fixup_heap = HeapCreate(HEAP_CREATE_ENABLE_EXECUTE, 0, 0);
     list_init(&dll_fixups);
 }

Referenced by DllMain().

◆ runtimehost_uninit()

void runtimehost_uninit ( void )

Definition at line 1108 of file corruntimehost.c.

 {
     struct dll_fixup *fixup, *fixup2;
 
     HeapDestroy(dll_fixup_heap);
     LIST_FOR_EACH_ENTRY_SAFE(fixup, fixup2, &dll_fixups, struct dll_fixup, entry)
     {
         HeapFree(GetProcessHeap(), 0, fixup->tokens);
         HeapFree(GetProcessHeap(), 0, fixup);
     }
 }

Referenced by DllMain().

Variable Documentation

◆ CLRHostVtbl

const struct ICLRRuntimeHostVtbl CLRHostVtbl

static

Initial value:

=
{
    CLRRuntimeHost_QueryInterface,
    CLRRuntimeHost_AddRef,
    CLRRuntimeHost_Release,
    CLRRuntimeHost_Start,
    CLRRuntimeHost_Stop,
    CLRRuntimeHost_SetHostControl,
    CLRRuntimeHost_GetCLRControl,
    CLRRuntimeHost_UnloadAppDomain,
    CLRRuntimeHost_ExecuteInAppDomain,
    CLRRuntimeHost_GetCurrentAppDomainId,
    CLRRuntimeHost_ExecuteApplication,
    CLRRuntimeHost_ExecuteInDefaultAppDomain
}

Definition at line 619 of file corruntimehost.c.

Referenced by RuntimeHost_Construct().

◆ corruntimehost_vtbl

const struct ICorRuntimeHostVtbl corruntimehost_vtbl

static

Initial value:

=
{
    corruntimehost_QueryInterface,
    corruntimehost_AddRef,
    corruntimehost_Release,
    corruntimehost_CreateLogicalThreadState,
    corruntimehost_DeleteLogicalThreadState,
    corruntimehost_SwitchInLogicalThreadState,
    corruntimehost_SwitchOutLogicalThreadState,
    corruntimehost_LocksHeldByLogicalThread,
    corruntimehost_MapFile,
    corruntimehost_GetConfiguration,
    corruntimehost_Start,
    corruntimehost_Stop,
    corruntimehost_CreateDomain,
    corruntimehost_GetDefaultDomain,
    corruntimehost_EnumDomains,
    corruntimehost_NextDomain,
    corruntimehost_CloseEnum,
    corruntimehost_CreateDomainEx,
    corruntimehost_CreateDomainSetup,
    corruntimehost_CreateEvidence,
    corruntimehost_UnloadDomain,
    corruntimehost_CurrentDomain
}

Definition at line 414 of file corruntimehost.c.

Referenced by RuntimeHost_Construct().

◆ dll_fixup_heap

HANDLE dll_fixup_heap

static

Definition at line 34 of file corruntimehost.c.

Referenced by FixupVTableEntry(), runtimehost_init(), and runtimehost_uninit().

◆ dll_fixups

struct list dll_fixups

static

Definition at line 36 of file corruntimehost.c.

Referenced by FixupVTableEntry(), runtimehost_init(), and runtimehost_uninit().

◆ thunk_template

const struct vtable_fixup_thunk thunk_template = {0}

static

Definition at line 850 of file corruntimehost.c.

Referenced by FixupVTableEntry().

Classes

Macros

Functions

Variables

Macro Definition Documentation

◆ ARRAYSIZE

◆ CAN_FIXUP_VTABLE

◆ CHARS_IN_GUID

Function Documentation

◆ _CorDllMain()

◆ _CorExeMain()

◆ CLRRuntimeHost_AddRef()

◆ CLRRuntimeHost_ExecuteApplication()

◆ CLRRuntimeHost_ExecuteInAppDomain()

◆ CLRRuntimeHost_ExecuteInDefaultAppDomain()

◆ CLRRuntimeHost_GetCLRControl()

◆ CLRRuntimeHost_GetCurrentAppDomainId()

◆ CLRRuntimeHost_QueryInterface()

◆ CLRRuntimeHost_Release()

◆ CLRRuntimeHost_SetHostControl()

◆ CLRRuntimeHost_Start()

◆ CLRRuntimeHost_Stop()

◆ CLRRuntimeHost_UnloadAppDomain()

◆ corruntimehost_AddRef()

◆ corruntimehost_CloseEnum()

◆ corruntimehost_CreateDomain()

◆ corruntimehost_CreateDomainEx()

◆ corruntimehost_CreateDomainSetup()

◆ corruntimehost_CreateEvidence()

◆ corruntimehost_CreateLogicalThreadState()

◆ corruntimehost_CurrentDomain()

◆ corruntimehost_DeleteLogicalThreadState()

◆ corruntimehost_EnumDomains()

◆ corruntimehost_GetConfiguration()

◆ corruntimehost_GetDefaultDomain()

◆ corruntimehost_LocksHeldByLogicalThread()

◆ corruntimehost_MapFile()

◆ corruntimehost_NextDomain()

◆ corruntimehost_QueryInterface()

◆ corruntimehost_Release()

◆ corruntimehost_Start()

◆ corruntimehost_Stop()

◆ corruntimehost_SwitchInLogicalThreadState()

◆ corruntimehost_SwitchOutLogicalThreadState()

◆ corruntimehost_UnloadDomain()

◆ create_monodata()

◆ DEFINE_GUID()

◆ FixupVTable()

◆ FixupVTableEntry()

◆ get_utf8_args()

◆ impl_from_ICLRRuntimeHost()

◆ impl_from_ICorRuntimeHost()

◆ ReallyFixupVTable()

◆ RuntimeHost_AddDomain()

◆ RuntimeHost_Construct()

◆ RuntimeHost_CreateManagedInstance()

◆ RuntimeHost_DeleteDomain()

◆ RuntimeHost_Destroy()

◆ RuntimeHost_GetDefaultDomain()

◆ RuntimeHost_GetInterface()

◆ RuntimeHost_GetIUnknownForDomain()

◆ RuntimeHost_GetIUnknownForObject()

◆ runtimehost_init()

◆ runtimehost_uninit()

Variable Documentation

◆ CLRHostVtbl

◆ corruntimehost_vtbl

◆ dll_fixup_heap

◆ dll_fixups

◆ thunk_template