mscoree_main.c File Reference

#include <stdarg.h>
#include "windef.h"
#include "winbase.h"
#include "winuser.h"
#include "winnls.h"
#include "winreg.h"
#include "ole2.h"
#include "ocidl.h"
#include "shellapi.h"
#include "strongname.h"
#include "initguid.h"
#include "msxml2.h"
#include "corerror.h"
#include "cor.h"
#include "mscoree.h"
#include "corhdr.h"
#include "cordebug.h"
#include "metahost.h"
#include "fusion.h"
#include "wine/list.h"
#include "mscoree_private.h"
#include "rpcproxy.h"
#include "wine/debug.h"

Include dependency graph for mscoree_main.c:

Go to the source code of this file.

Classes
struct	print_handler_tls
struct	mscorecf

Macros
#define	COBJMACROS

Typedefs
typedef HRESULT(*	fnCreateInstance) (REFIID riid, LPVOID *ppObj)
typedef struct mscorecf	mscorecf

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (mscoree)
	WINE_DECLARE_DEBUG_CHANNEL (winediag)
char *	WtoA (LPCWSTR wstr)
static BOOL	get_install_root (LPWSTR install_dir)
static mscorecf *	impl_from_IClassFactory (IClassFactory *iface)
static HRESULT WINAPI	mscorecf_QueryInterface (IClassFactory *iface, REFIID riid, LPVOID *ppobj)
static ULONG WINAPI	mscorecf_AddRef (IClassFactory *iface)
static ULONG WINAPI	mscorecf_Release (IClassFactory *iface)
static HRESULT WINAPI	mscorecf_CreateInstance (IClassFactory *iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj)
static HRESULT WINAPI	mscorecf_LockServer (IClassFactory *iface, BOOL dolock)
HRESULT WINAPI	CorBindToRuntimeHost (LPCWSTR pwszVersion, LPCWSTR pwszBuildFlavor, LPCWSTR pwszHostConfigFile, VOID *pReserved, DWORD startupFlags, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
void CDECL	mono_print_handler_fn (const char *string, INT is_stdout)
void CDECL	mono_log_handler_fn (const char *log_domain, const char *log_level, const char *message, INT fatal, void *user_data)
BOOL WINAPI	DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
__int32 WINAPI	_CorExeMain2 (PBYTE ptrMemory, DWORD cntMemory, LPWSTR imageName, LPWSTR loaderName, LPWSTR cmdLine)
void WINAPI	CorExitProcess (int exitCode)
VOID WINAPI	_CorImageUnloading (PVOID imageBase)
HRESULT WINAPI	_CorValidateImage (PVOID *imageBase, LPCWSTR imageName)
HRESULT WINAPI	GetCORSystemDirectory (LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
HRESULT WINAPI	GetCORVersion (LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
HRESULT WINAPI	CorIsLatestSvc (int *unk1, int *unk2)
HRESULT WINAPI	CorGetSvc (void *unk)
HRESULT WINAPI	GetRequestedRuntimeInfo (LPCWSTR pExe, LPCWSTR pwszVersion, LPCWSTR pConfigurationFile, DWORD startupFlags, DWORD runtimeInfoFlags, LPWSTR pDirectory, DWORD dwDirectory, DWORD *dwDirectoryLength, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
HRESULT WINAPI	GetRequestedRuntimeVersion (LPWSTR pExe, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
HRESULT WINAPI	GetRealProcAddress (LPCSTR procname, void **ppv)
HRESULT WINAPI	GetFileVersion (LPCWSTR szFilename, LPWSTR szBuffer, DWORD cchBuffer, DWORD *dwLength)
HRESULT WINAPI	LoadLibraryShim (LPCWSTR szDllName, LPCWSTR szVersion, LPVOID pvReserved, HMODULE *phModDll)
HRESULT WINAPI	LockClrVersion (FLockClrVersionCallback hostCallback, FLockClrVersionCallback *pBeginHostSetup, FLockClrVersionCallback *pEndHostSetup)
HRESULT WINAPI	CoInitializeCor (DWORD fFlags)
HRESULT WINAPI	GetAssemblyMDImport (LPCWSTR szFileName, REFIID riid, IUnknown **ppIUnk)
HRESULT WINAPI	GetVersionFromProcess (HANDLE hProcess, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwLength)
HRESULT WINAPI	LoadStringRCEx (LCID culture, UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet, int *pBufLen)
HRESULT WINAPI	LoadStringRC (UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet)
HRESULT WINAPI	CorBindToRuntimeEx (LPWSTR szVersion, LPWSTR szBuildFlavor, DWORD nflags, REFCLSID rslsid, REFIID riid, LPVOID *ppv)
HRESULT WINAPI	CorBindToCurrentRuntime (LPCWSTR filename, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
STDAPI	ClrCreateManagedInstance (LPCWSTR pTypeName, REFIID riid, void **ppObject)
BOOLEAN WINAPI	StrongNameSignatureVerification (LPCWSTR filename, DWORD inFlags, DWORD *pOutFlags)
BOOLEAN WINAPI	StrongNameSignatureVerificationEx (LPCWSTR filename, BOOLEAN forceVerification, BOOLEAN *pVerified)
BOOLEAN WINAPI	StrongNameTokenFromAssembly (LPCWSTR path, BYTE **token, ULONG *size)
HRESULT WINAPI	CreateDebuggingInterfaceFromVersion (int nDebugVersion, LPCWSTR version, IUnknown **ppv)
HRESULT WINAPI	CLRCreateInstance (REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
HRESULT WINAPI	CreateInterface (REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
HRESULT WINAPI	DllGetClassObject (REFCLSID rclsid, REFIID riid, LPVOID *ppv)
static void	parse_msi_version_string (const char *version, int *parts)
static int	compare_versions (const char *a, const char *b)
static BOOL	invoke_appwiz (void)
static BOOL	get_support_msi (LPCWSTR mono_path, LPWSTR msi_path)
static BOOL	install_wine_mono (void)
HRESULT WINAPI	DllRegisterServer (void)
HRESULT WINAPI	DllUnregisterServer (void)
void WINAPI	CoEEShutDownCOM (void)
INT WINAPI	ND_RU1 (const void *ptr, INT offset)
INT WINAPI	ND_RI2 (const void *ptr, INT offset)
INT WINAPI	ND_RI4 (const void *ptr, INT offset)
INT64 WINAPI	ND_RI8 (const void *ptr, INT offset)
void WINAPI	ND_WU1 (void *ptr, INT offset, BYTE val)
void WINAPI	ND_WI2 (void *ptr, INT offset, SHORT val)
void WINAPI	ND_WI4 (void *ptr, INT offset, INT val)
void WINAPI	ND_WI8 (void *ptr, INT offset, INT64 val)
void WINAPI	ND_CopyObjDst (const void *src, void *dst, INT offset, INT size)
void WINAPI	ND_CopyObjSrc (const void *src, INT offset, void *dst, INT size)

Variables
static DWORD	print_tls_index = TLS_OUT_OF_INDEXES
static const struct IClassFactoryVtbl	mscorecf_vtbl

Macro Definition Documentation

COBJMACROS

#define COBJMACROS

Definition at line 24 of file mscoree_main.c.

Typedef Documentation

fnCreateInstance

typedef HRESULT(* fnCreateInstance) (REFIID riid, LPVOID *ppObj)

Definition at line 61 of file mscoree_main.c.

mscorecf

typedef struct mscorecf mscorecf

Function Documentation

_CorExeMain2()

__int32 WINAPI _CorExeMain2	(	PBYTE	ptrMemory,
		DWORD	cntMemory,
		LPWSTR	imageName,
		LPWSTR	loaderName,
		LPWSTR	cmdLine
	)

Definition at line 312 of file mscoree_main.c.

{
    TRACE("(%p, %lu, %s, %s, %s)\n", ptrMemory, cntMemory, debugstr_w(imageName), debugstr_w(loaderName), debugstr_w(cmdLine));
    FIXME("Directly running .NET applications not supported.\n");
    return -1;
}

_CorImageUnloading()

VOID WINAPI _CorImageUnloading

(

PVOID

imageBase

)

Definition at line 325 of file mscoree_main.c.

{
    TRACE("(%p): stub\n", imageBase);
}

_CorValidateImage()

HRESULT WINAPI _CorValidateImage	(	PVOID *	imageBase,
		LPCWSTR	imageName
	)

Definition at line 330 of file mscoree_main.c.

{
    TRACE("(%p, %s): stub\n", imageBase, debugstr_w(imageName));
    return E_FAIL;
}

CLRCreateInstance()

HRESULT WINAPI CLRCreateInstance	(	REFCLSID	clsid,
		REFIID	riid,
		LPVOID *	ppInterface
	)

Definition at line 687 of file mscoree_main.c.

{
    TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
 
    if (IsEqualGUID(clsid, &CLSID_CLRMetaHost))
        return CLRMetaHost_CreateInstance(riid, ppInterface);
    if (IsEqualGUID(clsid, &CLSID_CLRMetaHostPolicy))
        return CLRMetaHostPolicy_CreateInstance(riid, ppInterface);
 
    FIXME("not implemented for class %s\n", debugstr_guid(clsid));
 
    return CLASS_E_CLASSNOTAVAILABLE;
}

Referenced by CreateInterface().

ClrCreateManagedInstance()

STDAPI ClrCreateManagedInstance	(	LPCWSTR	pTypeName,
		REFIID	riid,
		void **	ppObject
	)

Definition at line 594 of file mscoree_main.c.

{
    HRESULT ret;
    ICLRRuntimeInfo *info;
    RuntimeHost *host;
    MonoObject *obj;
    IUnknown *unk;
 
    TRACE("(%s,%s,%p)\n", debugstr_w(pTypeName), debugstr_guid(riid), ppObject);
 
    /* FIXME: How to determine which runtime version to use? */
    ret = get_runtime_info(NULL, NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        ret = ICLRRuntimeInfo_GetRuntimeHost(info, &host);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    if (SUCCEEDED(ret))
        ret = RuntimeHost_CreateManagedInstance(host, pTypeName, NULL, &obj);
 
    if (SUCCEEDED(ret))
        ret = RuntimeHost_GetIUnknownForObject(host, obj, &unk);
 
    if (SUCCEEDED(ret))
    {
        ret = IUnknown_QueryInterface(unk, riid, ppObject);
        IUnknown_Release(unk);
    }
 
    return ret;
}

CoEEShutDownCOM()

void WINAPI CoEEShutDownCOM

(

void

)

Definition at line 972 of file mscoree_main.c.

{
    FIXME("stub.\n");
}

CoInitializeCor()

HRESULT WINAPI CoInitializeCor

(

DWORD

fFlags

)

Definition at line 510 of file mscoree_main.c.

{
    FIXME("(0x%08lx): stub\n", fFlags);
    return S_OK;
}

compare_versions()

static int compare_versions ( const char *  a, const char *  b  )

static

Definition at line 751 of file mscoree_main.c.

{
    int a_parts[3], b_parts[3], i;
 
    parse_msi_version_string(a, a_parts);
    parse_msi_version_string(b, b_parts);
 
    for (i=0; i<3; i++)
        if (a_parts[i] != b_parts[i])
            return a_parts[i] - b_parts[i];
 
    return 0;
}

Referenced by get_support_msi(), and install_wine_mono().

CorBindToCurrentRuntime()

HRESULT WINAPI CorBindToCurrentRuntime	(	LPCWSTR	filename,
		REFCLSID	rclsid,
		REFIID	riid,
		LPVOID *	ppv
	)

Definition at line 573 of file mscoree_main.c.

{
    HRESULT ret;
    ICLRRuntimeInfo *info;
 
    TRACE("(%s, %s, %s, %p)\n", debugstr_w(filename), debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 
    *ppv = NULL;
 
    ret = get_runtime_info(NULL, NULL, filename, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

CorBindToRuntimeEx()

HRESULT WINAPI CorBindToRuntimeEx	(	LPWSTR	szVersion,
		LPWSTR	szBuildFlavor,
		DWORD	nflags,
		REFCLSID	rslsid,
		REFIID	riid,
		LPVOID *	ppv
	)

Definition at line 550 of file mscoree_main.c.

{
    HRESULT ret;
    ICLRRuntimeInfo *info;
 
    TRACE("%s %s %ld %s %s %p\n", debugstr_w(szVersion), debugstr_w(szBuildFlavor), nflags, debugstr_guid( rslsid ),
          debugstr_guid( riid ), ppv);
 
    *ppv = NULL;
 
    ret = get_runtime_info(NULL, szVersion, NULL, NULL, nflags, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        ret = ICLRRuntimeInfo_GetInterface(info, rslsid, riid, ppv);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

CorBindToRuntimeHost()

HRESULT WINAPI CorBindToRuntimeHost	(	LPCWSTR	pwszVersion,
		LPCWSTR	pwszBuildFlavor,
		LPCWSTR	pwszHostConfigFile,
		VOID *	pReserved,
		DWORD	startupFlags,
		REFCLSID	rclsid,
		REFIID	riid,
		LPVOID *	ppv
	)

Definition at line 199 of file mscoree_main.c.

{
    HRESULT ret;
    ICLRRuntimeInfo *info;
 
    TRACE("(%s, %s, %s, %p, %ld, %s, %s, %p)\n", debugstr_w(pwszVersion),
          debugstr_w(pwszBuildFlavor), debugstr_w(pwszHostConfigFile), pReserved,
          startupFlags, debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 
    *ppv = NULL;
 
    ret = get_runtime_info(NULL, pwszVersion, pwszHostConfigFile, NULL, startupFlags, 0, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

CorExitProcess()

void WINAPI CorExitProcess

(

int

exitCode

)

Definition at line 319 of file mscoree_main.c.

{
    TRACE("(%x)\n", exitCode);
    CLRMetaHost_ExitProcess(0, exitCode);
}

CorGetSvc()

HRESULT WINAPI CorGetSvc

(

void *

unk

)

Definition at line 392 of file mscoree_main.c.

{
    ERR_(winediag)("If this function is called, it is likely the result of a broken .NET installation\n");
 
    return E_NOTIMPL;
}

CorIsLatestSvc()

HRESULT WINAPI CorIsLatestSvc	(	int *	unk1,
		int *	unk2
	)

Definition at line 382 of file mscoree_main.c.

{
    ERR_(winediag)("If this function is called, it is likely the result of a broken .NET installation\n");
 
    if (!unk1 || !unk2)
        return E_POINTER;
 
    return S_OK;
}

CreateDebuggingInterfaceFromVersion()

HRESULT WINAPI CreateDebuggingInterfaceFromVersion	(	int	nDebugVersion,
		LPCWSTR	version,
		IUnknown **	ppv
	)

Definition at line 648 of file mscoree_main.c.

{
    static const WCHAR v2_0[] = {'v','2','.','0','.','5','0','7','2','7',0};
    HRESULT hr = E_FAIL;
    ICLRRuntimeInfo *runtimeinfo;
 
    if(nDebugVersion < 1 || nDebugVersion > 4)
        return E_INVALIDARG;
 
    TRACE("(%d %s, %p): stub\n", nDebugVersion, debugstr_w(version), ppv);
 
    if(!ppv)
        return E_INVALIDARG;
 
    *ppv = NULL;
 
    if(wcscmp(version, v2_0) != 0)
    {
        FIXME("Currently .NET Version '%s' not support.\n", debugstr_w(version));
        return E_INVALIDARG;
    }
 
    if(nDebugVersion != 3)
        return E_INVALIDARG;
 
    hr = CLRMetaHost_GetRuntime(0, version, &IID_ICLRRuntimeInfo, (void**)&runtimeinfo);
    if(hr == S_OK)
    {
        hr = ICLRRuntimeInfo_GetInterface(runtimeinfo, &CLSID_CLRDebuggingLegacy, &IID_ICorDebug, (void**)ppv);
 
        ICLRRuntimeInfo_Release(runtimeinfo);
    }
 
    if(!*ppv)
        return E_FAIL;
 
    return hr;
}

CreateInterface()

HRESULT WINAPI CreateInterface	(	REFCLSID	clsid,
		REFIID	riid,
		LPVOID *	ppInterface
	)

Definition at line 701 of file mscoree_main.c.

{
    TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
 
    return CLRCreateInstance(clsid, riid, ppInterface);
}

DllGetClassObject()

HRESULT WINAPI DllGetClassObject	(	REFCLSID	rclsid,
		REFIID	riid,
		LPVOID *	ppv
	)

Definition at line 708 of file mscoree_main.c.

{
    mscorecf *This;
    HRESULT hr;
 
    TRACE("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 
    if(!ppv)
        return E_INVALIDARG;
 
    This = malloc(sizeof(mscorecf));
 
    This->IClassFactory_iface.lpVtbl = &mscorecf_vtbl;
    This->pfnCreateInstance = create_monodata;
    This->ref = 1;
    This->clsid = *rclsid;
 
    hr = IClassFactory_QueryInterface( &This->IClassFactory_iface, riid, ppv );
    IClassFactory_Release(&This->IClassFactory_iface);
 
    return hr;
}

DllMain()

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

Definition at line 279 of file mscoree_main.c.

{
    TRACE("(%p, %ld, %p)\n", hinstDLL, fdwReason, lpvReserved);
 
    switch (fdwReason)
    {
    case DLL_PROCESS_ATTACH:
        runtimehost_init();
 
        print_tls_index = TlsAlloc();
 
        if (print_tls_index == TLS_OUT_OF_INDEXES)
            return FALSE;
 
        break;
    case DLL_THREAD_DETACH:
        if (print_tls_index != TLS_OUT_OF_INDEXES)
            free(TlsGetValue(print_tls_index));
        break;
    case DLL_PROCESS_DETACH:
        expect_no_runtimes();
        if (lpvReserved) break; /* process is terminating */
        runtimehost_uninit();
        if (print_tls_index != TLS_OUT_OF_INDEXES)
        {
            free(TlsGetValue(print_tls_index));
            TlsFree(print_tls_index);
        }
        break;
    }
    return TRUE;
}

DllRegisterServer()

HRESULT WINAPI DllRegisterServer

(

void

)

Definition at line 960 of file mscoree_main.c.

{
    install_wine_mono();
 
    return __wine_register_resources();
}

DllUnregisterServer()

HRESULT WINAPI DllUnregisterServer

(

void

)

Definition at line 967 of file mscoree_main.c.

{
    return __wine_unregister_resources();
}

get_install_root()

static BOOL get_install_root ( LPWSTR  install_dir )

static

Definition at line 78 of file mscoree_main.c.

{
    static const WCHAR dotnet_key[] = {'S','O','F','T','W','A','R','E','\\','M','i','c','r','o','s','o','f','t','\\','.','N','E','T','F','r','a','m','e','w','o','r','k','\\',0};
    static 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 LoadLibraryShim().

get_support_msi()

static BOOL get_support_msi ( LPCWSTR  mono_path, LPWSTR  msi_path  )

static

Definition at line 803 of file mscoree_main.c.

{
    static const WCHAR support_msi_relative[] = {'\\','s','u','p','p','o','r','t','\\','w','i','n','e','m','o','n','o','-','s','u','p','p','o','r','t','.','m','s','i',0};
    UINT (WINAPI *pMsiOpenPackageW)(LPCWSTR,ULONG*);
    UINT (WINAPI *pMsiGetProductPropertyA)(ULONG,LPCSTR,LPSTR,LPDWORD);
    UINT (WINAPI *pMsiCloseHandle)(ULONG);
    HMODULE hmsi = NULL;
    char versionstringbuf[15];
    UINT res;
    DWORD buffer_size;
    ULONG msiproduct;
    BOOL ret=FALSE;
 
    hmsi = GetModuleHandleA("msi");
 
    lstrcpyW(msi_path, mono_path);
    lstrcatW(msi_path, support_msi_relative);
 
    pMsiOpenPackageW = (void*)GetProcAddress(hmsi, "MsiOpenPackageW");
 
    res = pMsiOpenPackageW(msi_path, &msiproduct);
 
    if (res == ERROR_SUCCESS)
    {
        buffer_size = sizeof(versionstringbuf);
 
        pMsiGetProductPropertyA = (void*)GetProcAddress(hmsi, "MsiGetProductPropertyA");
 
        res = pMsiGetProductPropertyA(msiproduct, "ProductVersion", versionstringbuf, &buffer_size);
 
        pMsiCloseHandle = (void*)GetProcAddress(hmsi, "MsiCloseHandle");
 
        pMsiCloseHandle(msiproduct);
    }
 
    if (res == ERROR_SUCCESS) {
        TRACE("found support msi version %s at %s\n", versionstringbuf, debugstr_w(msi_path));
 
        if (compare_versions(WINE_MONO_VERSION, versionstringbuf) <= 0)
        {
            ret = TRUE;
        }
    }
 
    return ret;
}

Referenced by install_wine_mono().

GetAssemblyMDImport()

HRESULT WINAPI GetAssemblyMDImport	(	LPCWSTR	szFileName,
		REFIID	riid,
		IUnknown **	ppIUnk
	)

Definition at line 516 of file mscoree_main.c.

{
    FIXME("(%p %s, %s, %p): stub\n", szFileName, debugstr_w(szFileName), debugstr_guid(riid), *ppIUnk);
    return ERROR_CALL_NOT_IMPLEMENTED;
}

GetCORSystemDirectory()

HRESULT WINAPI GetCORSystemDirectory	(	LPWSTR	pbuffer,
		DWORD	cchBuffer,
		DWORD *	dwLength
	)

Definition at line 336 of file mscoree_main.c.

{
    ICLRRuntimeInfo *info;
    HRESULT ret;
 
    TRACE("(%p, %ld, %p)!\n", pbuffer, cchBuffer, dwLength);
 
    if (!dwLength || !pbuffer)
        return E_POINTER;
 
    ret = get_runtime_info(NULL, NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        *dwLength = cchBuffer;
        ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pbuffer, dwLength);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

GetCORVersion()

HRESULT WINAPI GetCORVersion	(	LPWSTR	pbuffer,
		DWORD	cchBuffer,
		DWORD *	dwLength
	)

Definition at line 359 of file mscoree_main.c.

{
    ICLRRuntimeInfo *info;
    HRESULT ret;
 
    TRACE("(%p, %ld, %p)!\n", pbuffer, cchBuffer, dwLength);
 
    if (!dwLength || !pbuffer)
        return E_POINTER;
 
    ret = get_runtime_info(NULL, NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        *dwLength = cchBuffer;
        ret = ICLRRuntimeInfo_GetVersionString(info, pbuffer, dwLength);
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

Referenced by LoadLibraryShim().

GetFileVersion()

HRESULT WINAPI GetFileVersion	(	LPCWSTR	szFilename,
		LPWSTR	szBuffer,
		DWORD	cchBuffer,
		DWORD *	dwLength
	)

Definition at line 453 of file mscoree_main.c.

{
    TRACE("(%s, %p, %ld, %p)\n", debugstr_w(szFilename), szBuffer, cchBuffer, dwLength);
 
    if (!szFilename || !dwLength)
        return E_POINTER;
 
    *dwLength = cchBuffer;
    return CLRMetaHost_GetVersionFromFile(0, szFilename, szBuffer, dwLength);
}

GetRealProcAddress()

HRESULT WINAPI GetRealProcAddress	(	LPCSTR	procname,
		void **	ppv
	)

Definition at line 447 of file mscoree_main.c.

{
    FIXME("(%s, %p)\n", debugstr_a(procname), ppv);
    return CLR_E_SHIM_RUNTIMEEXPORT;
}

GetRequestedRuntimeInfo()

HRESULT WINAPI GetRequestedRuntimeInfo	(	LPCWSTR	pExe,
		LPCWSTR	pwszVersion,
		LPCWSTR	pConfigurationFile,
		DWORD	startupFlags,
		DWORD	runtimeInfoFlags,
		LPWSTR	pDirectory,
		DWORD	dwDirectory,
		DWORD *	dwDirectoryLength,
		LPWSTR	pVersion,
		DWORD	cchBuffer,
		DWORD *	dwlength
	)

Definition at line 399 of file mscoree_main.c.

{
    HRESULT ret;
    ICLRRuntimeInfo *info;
    DWORD length_dummy;
 
    TRACE("(%s, %s, %s, 0x%08lx, 0x%08lx, %p, 0x%08lx, %p, %p, 0x%08lx, %p)\n", debugstr_w(pExe),
          debugstr_w(pwszVersion), debugstr_w(pConfigurationFile), startupFlags, runtimeInfoFlags, pDirectory,
          dwDirectory, dwDirectoryLength, pVersion, cchBuffer, dwlength);
 
    if (!dwDirectoryLength) dwDirectoryLength = &length_dummy;
 
    if (!dwlength) dwlength = &length_dummy;
 
    ret = get_runtime_info(pExe, pwszVersion, pConfigurationFile, NULL, startupFlags, runtimeInfoFlags, TRUE, &info);
 
    if (SUCCEEDED(ret))
    {
        *dwlength = cchBuffer;
        ret = ICLRRuntimeInfo_GetVersionString(info, pVersion, dwlength);
 
        if (SUCCEEDED(ret))
        {
            if(pwszVersion)
                pVersion[0] = pwszVersion[0];
 
            *dwDirectoryLength = dwDirectory;
            ret = ICLRRuntimeInfo_GetRuntimeDirectory(info, pDirectory, dwDirectoryLength);
        }
 
        ICLRRuntimeInfo_Release(info);
    }
 
    return ret;
}

Referenced by GetRequestedRuntimeVersion().

GetRequestedRuntimeVersion()

HRESULT WINAPI GetRequestedRuntimeVersion	(	LPWSTR	pExe,
		LPWSTR	pVersion,
		DWORD	cchBuffer,
		DWORD *	dwlength
	)

Definition at line 437 of file mscoree_main.c.

{
    TRACE("(%s, %p, %ld, %p)\n", debugstr_w(pExe), pVersion, cchBuffer, dwlength);
 
    if(!dwlength)
        return E_POINTER;
 
    return GetRequestedRuntimeInfo(pExe, NULL, NULL, 0, 0, NULL, 0, NULL, pVersion, cchBuffer, dwlength);
}

GetVersionFromProcess()

HRESULT WINAPI GetVersionFromProcess	(	HANDLE	hProcess,
		LPWSTR	pVersion,
		DWORD	cchBuffer,
		DWORD *	dwLength
	)

Definition at line 522 of file mscoree_main.c.

{
    FIXME("(%p, %p, %ld, %p): stub\n", hProcess, pVersion, cchBuffer, dwLength);
    return E_NOTIMPL;
}

impl_from_IClassFactory()

static mscorecf * impl_from_IClassFactory ( IClassFactory *  iface )

inlinestatic

Definition at line 110 of file mscoree_main.c.

{
    return CONTAINING_RECORD(iface, mscorecf, IClassFactory_iface);
}

Referenced by mscorecf_AddRef(), mscorecf_CreateInstance(), and mscorecf_Release().

install_wine_mono()

static BOOL install_wine_mono ( void  )

static

Definition at line 850 of file mscoree_main.c.

{
    BOOL is_wow64 = FALSE;
    HMODULE hmsi = NULL;
    HRESULT initresult = E_FAIL;
    UINT (WINAPI *pMsiEnumRelatedProductsA)(LPCSTR,DWORD,DWORD,LPSTR);
    UINT (WINAPI *pMsiGetProductInfoA)(LPCSTR,LPCSTR,LPSTR,DWORD*);
    UINT (WINAPI *pMsiInstallProductW)(LPCWSTR,LPCWSTR);
    char versionstringbuf[15];
    char productcodebuf[39];
    UINT res;
    DWORD buffer_size;
    BOOL ret;
    WCHAR mono_path[MAX_PATH];
    WCHAR support_msi_path[MAX_PATH];
 
    static const char* mono_upgrade_code = "{DE624609-C6B5-486A-9274-EF0B854F6BC5}";
 
    IsWow64Process(GetCurrentProcess(), &is_wow64);
 
    if (is_wow64)
    {
        TRACE("not installing mono in wow64 process\n");
        return TRUE;
    }
 
    TRACE("searching for mono runtime\n");
 
    if (!get_mono_path(mono_path, FALSE))
    {
        TRACE("mono runtime not found\n");
        return invoke_appwiz();
    }
 
    TRACE("mono runtime is at %s\n", debugstr_w(mono_path));
 
    hmsi = LoadLibraryA("msi");
 
    if (!hmsi)
    {
        ERR("couldn't load msi.dll\n");
        return FALSE;
    }
 
    pMsiEnumRelatedProductsA = (void*)GetProcAddress(hmsi, "MsiEnumRelatedProductsA");
 
    res = pMsiEnumRelatedProductsA(mono_upgrade_code, 0, 0, productcodebuf);
 
    if (res == ERROR_SUCCESS)
    {
        pMsiGetProductInfoA = (void*)GetProcAddress(hmsi, "MsiGetProductInfoA");
 
        buffer_size = sizeof(versionstringbuf);
 
        res = pMsiGetProductInfoA(productcodebuf, "VersionString", versionstringbuf, &buffer_size);
    }
    else if (res != ERROR_NO_MORE_ITEMS)
    {
        ERR("MsiEnumRelatedProducts failed, err=%u\n", res);
    }
 
    if (res == ERROR_SUCCESS)
    {
        TRACE("found installed support package %s\n", versionstringbuf);
 
        if (compare_versions(WINE_MONO_VERSION, versionstringbuf) <= 0)
        {
            TRACE("support package is at least %s, quitting\n", WINE_MONO_VERSION);
            ret = TRUE;
            goto end;
        }
    }
 
    initresult = CoInitialize(NULL);
 
    ret = get_support_msi(mono_path, support_msi_path);
    if (!ret)
    {
        /* Try looking outside c:\windows\mono */
        ret = (get_mono_path(mono_path, TRUE) &&
            get_support_msi(mono_path, support_msi_path));
    }
 
    if (ret)
    {
        TRACE("installing support msi\n");
 
        pMsiInstallProductW = (void*)GetProcAddress(hmsi, "MsiInstallProductW");
 
        res = pMsiInstallProductW(support_msi_path, NULL);
 
        if (res == ERROR_SUCCESS)
        {
            ret = TRUE;
            goto end;
        }
        else
            ERR("MsiInstallProduct failed, err=%i\n", res);
    }
 
    ret = invoke_appwiz();
 
end:
    if (hmsi)
        FreeLibrary(hmsi);
    if (SUCCEEDED(initresult))
        CoUninitialize();
    return ret;
}

Referenced by DllRegisterServer().

invoke_appwiz()

static BOOL invoke_appwiz ( void  )

static

Definition at line 765 of file mscoree_main.c.

{
    PROCESS_INFORMATION pi;
    STARTUPINFOW si;
    WCHAR app[MAX_PATH];
    WCHAR *args;
    LONG len;
    BOOL ret;
 
    static const WCHAR controlW[] = {'\\','c','o','n','t','r','o','l','.','e','x','e',0};
    static const WCHAR argsW[] =
        {' ','a','p','p','w','i','z','.','c','p','l',' ','i','n','s','t','a','l','l','_','m','o','n','o',0};
 
    len = GetSystemDirectoryW(app, MAX_PATH - ARRAY_SIZE(controlW));
    memcpy(app+len, controlW, sizeof(controlW));
 
    args = malloc(len * sizeof(WCHAR) + sizeof(controlW) + sizeof(argsW));
    if(!args)
        return FALSE;
 
    memcpy(args, app, len*sizeof(WCHAR) + sizeof(controlW));
    memcpy(args + len + ARRAY_SIZE(controlW) - 1, argsW, sizeof(argsW));
 
    TRACE("starting %s\n", debugstr_w(args));
 
    memset(&si, 0, sizeof(si));
    si.cb = sizeof(si);
    ret = CreateProcessW(app, args, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
    free(args);
    if (ret) {
        CloseHandle(pi.hThread);
        WaitForSingleObject(pi.hProcess, INFINITE);
        CloseHandle(pi.hProcess);
    }
 
    return ret;
}

Referenced by install_wine_mono().

LoadLibraryShim()

HRESULT WINAPI LoadLibraryShim	(	LPCWSTR	szDllName,
		LPCWSTR	szVersion,
		LPVOID	pvReserved,
		HMODULE *	phModDll
	)

Definition at line 464 of file mscoree_main.c.

{
    HRESULT ret=S_OK;
    WCHAR dll_filename[MAX_PATH];
    WCHAR version[MAX_PATH];
    static const WCHAR default_version[] = {'v','1','.','1','.','4','3','2','2',0};
    static const WCHAR slash[] = {'\\',0};
    DWORD dummy;
 
    TRACE("(%p %s, %p, %p, %p)\n", szDllName, debugstr_w(szDllName), szVersion, pvReserved, phModDll);
 
    if (!szDllName || !phModDll)
        return E_POINTER;
 
    if (!get_install_root(dll_filename))
    {
        ERR("error reading registry key for installroot\n");
        dll_filename[0] = 0;
    }
    else
    {
        if (!szVersion)
        {
            ret = GetCORVersion(version, MAX_PATH, &dummy);
            if (SUCCEEDED(ret))
                szVersion = version;
            else
                szVersion = default_version;
        }
        lstrcatW(dll_filename, szVersion);
        lstrcatW(dll_filename, slash);
    }
 
    lstrcatW(dll_filename, szDllName);
 
    *phModDll = LoadLibraryW(dll_filename);
 
    return *phModDll ? S_OK : E_HANDLE;
}

Referenced by CLRRuntimeInfo_LoadLibrary(), create_monodata(), and get_file_from_strongname().

LoadStringRC()

HRESULT WINAPI LoadStringRC	(	UINT	resId,
		LPWSTR	pBuffer,
		int	iBufLen,
		int	bQuiet
	)

Definition at line 545 of file mscoree_main.c.

{
    return LoadStringRCEx(-1, resId, pBuffer, iBufLen, bQuiet, NULL);
}

LoadStringRCEx()

HRESULT WINAPI LoadStringRCEx	(	LCID	culture,
		UINT	resId,
		LPWSTR	pBuffer,
		int	iBufLen,
		int	bQuiet,
		int *	pBufLen
	)

Definition at line 528 of file mscoree_main.c.

{
    HRESULT res = S_OK;
    if ((iBufLen <= 0) || !pBuffer)
        return E_INVALIDARG;
    pBuffer[0] = 0;
    if (resId) {
        FIXME("(%ld, %x, %p, %d, %d, %p): semi-stub\n", culture, resId, pBuffer, iBufLen, bQuiet, pBufLen);
        res = E_NOTIMPL;
    }
    else
        res = E_FAIL;
    if (pBufLen)
        *pBufLen = lstrlenW(pBuffer);
    return res;
}

Referenced by LoadStringRC().

LockClrVersion()

HRESULT WINAPI LockClrVersion	(	FLockClrVersionCallback	hostCallback,
		FLockClrVersionCallback *	pBeginHostSetup,
		FLockClrVersionCallback *	pEndHostSetup
	)

Definition at line 504 of file mscoree_main.c.

{
    FIXME("(%p %p %p): stub\n", hostCallback, pBeginHostSetup, pEndHostSetup);
    return S_OK;
}

mono_log_handler_fn()

void CDECL mono_log_handler_fn	(	const char *	log_domain,
		const char *	log_level,
		const char *	message,
		INT	fatal,
		void *	user_data
	)

Definition at line 265 of file mscoree_main.c.

{
    SIZE_T len = (log_domain ? strlen(log_domain) + 2 : 0) + strlen(message) + strlen("\n") + 1;
    char *msg = calloc(len, sizeof(char));
 
    if (msg)
    {
        sprintf(msg, "%s%s%s\n", log_domain ? log_domain : "", log_domain ? ": " : "", message);
        mono_print_handler_fn(msg, 0);
    }
 
    free(msg);
}

Referenced by load_mono().

mono_print_handler_fn()

void CDECL mono_print_handler_fn	(	const char *	string,
		INT	is_stdout
	)

Definition at line 225 of file mscoree_main.c.

{
    struct print_handler_tls *tls = TlsGetValue(print_tls_index);
 
    if (!tls)
    {
        tls = malloc(sizeof(*tls));
        tls->length = 0;
        TlsSetValue(print_tls_index, tls);
    }
 
    while (*string)
    {
        int remaining_buffer = sizeof(tls->buffer) - tls->length;
        int length = strlen(string);
        const char *newline = memchr(string, '\n', min(length, remaining_buffer));
 
        if (newline)
        {
            length = newline - string + 1;
            wine_dbg_printf("%.*s%.*s", tls->length, tls->buffer, length, string);
            tls->length = 0;
            string += length;
        }
        else if (length > remaining_buffer)
        {
            /* this would overflow Wine's debug buffer */
            wine_dbg_printf("%.*s%.*s\n", tls->length, tls->buffer, remaining_buffer, string);
            tls->length = 0;
            string += remaining_buffer;
        }
        else
        {
            memcpy(tls->buffer + tls->length, string, length);
            tls->length += length;
            break;
        }
    }
}

Referenced by load_mono(), and mono_log_handler_fn().

mscorecf_AddRef()

static ULONG WINAPI mscorecf_AddRef ( IClassFactory *  iface )

static

Definition at line 131 of file mscoree_main.c.

{
    mscorecf *This = impl_from_IClassFactory(iface);
    ULONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("%p ref=%lu\n", This, ref);
 
    return ref;
}

mscorecf_CreateInstance()

static HRESULT WINAPI mscorecf_CreateInstance ( IClassFactory *  iface, LPUNKNOWN  pOuter, REFIID  riid, LPVOID *  ppobj  )

static

Definition at line 156 of file mscoree_main.c.

{
    mscorecf *This = impl_from_IClassFactory( iface );
    HRESULT hr;
    IUnknown *punk;
 
    TRACE("%p %s %p\n", pOuter, debugstr_guid(riid), ppobj );
 
    *ppobj = NULL;
 
    if (pOuter)
        return CLASS_E_NOAGGREGATION;
 
    hr = This->pfnCreateInstance( &This->clsid, (LPVOID*) &punk );
    if (SUCCEEDED(hr))
    {
        hr = IUnknown_QueryInterface( punk, riid, ppobj );
 
        IUnknown_Release( punk );
    }
    else
    {
        WARN("Cannot create an instance object. 0x%08lx\n", hr);
    }
    return hr;
}

mscorecf_LockServer()

static HRESULT WINAPI mscorecf_LockServer ( IClassFactory *  iface, BOOL  dolock  )

static

Definition at line 184 of file mscoree_main.c.

{
    FIXME("(%p)->(%d),stub!\n",iface,dolock);
    return S_OK;
}

mscorecf_QueryInterface()

static HRESULT WINAPI mscorecf_QueryInterface ( IClassFactory *  iface, REFIID  riid, LPVOID *  ppobj  )

static

Definition at line 115 of file mscoree_main.c.

{
    TRACE("%s %p\n", debugstr_guid(riid), ppobj);
 
    if (IsEqualGUID(riid, &IID_IUnknown) ||
        IsEqualGUID(riid, &IID_IClassFactory))
    {
        IClassFactory_AddRef( iface );
        *ppobj = iface;
        return S_OK;
    }
 
    ERR("interface %s not implemented\n", debugstr_guid(riid));
    return E_NOINTERFACE;
}

mscorecf_Release()

static ULONG WINAPI mscorecf_Release ( IClassFactory *  iface )

static

Definition at line 141 of file mscoree_main.c.

{
    mscorecf *This = impl_from_IClassFactory(iface);
    ULONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("%p ref=%lu\n", This, ref);
 
    if (ref == 0)
    {
        free(This);
    }
 
    return ref;
}

ND_CopyObjDst()

void WINAPI ND_CopyObjDst	(	const void *	src,
		void *	dst,
		INT	offset,
		INT	size
	)

Definition at line 1017 of file mscoree_main.c.

{
    memcpy( (BYTE *)dst + offset, src, size );
}

ND_CopyObjSrc()

void WINAPI ND_CopyObjSrc	(	const void *	src,
		INT	offset,
		void *	dst,
		INT	size
	)

Definition at line 1022 of file mscoree_main.c.

{
    memcpy( dst, (const BYTE *)src + offset, size );
}

ND_RI2()

INT WINAPI ND_RI2	(	const void *	ptr,
		INT	offset
	)

Definition at line 982 of file mscoree_main.c.

{
    return *(const SHORT *)((const BYTE *)ptr + offset);
}

ND_RI4()

INT WINAPI ND_RI4	(	const void *	ptr,
		INT	offset
	)

Definition at line 987 of file mscoree_main.c.

{
    return *(const INT *)((const BYTE *)ptr + offset);
}

ND_RI8()

INT64 WINAPI ND_RI8	(	const void *	ptr,
		INT	offset
	)

Definition at line 992 of file mscoree_main.c.

{
    return *(const INT64 *)((const BYTE *)ptr + offset);
}

ND_RU1()

INT WINAPI ND_RU1	(	const void *	ptr,
		INT	offset
	)

Definition at line 977 of file mscoree_main.c.

{
    return *((const BYTE *)ptr + offset);
}

ND_WI2()

void WINAPI ND_WI2	(	void *	ptr,
		INT	offset,
		SHORT	val
	)

Definition at line 1002 of file mscoree_main.c.

{
    *(SHORT *)((BYTE *)ptr + offset) = val;
}

ND_WI4()

void WINAPI ND_WI4	(	void *	ptr,
		INT	offset,
		INT	val
	)

Definition at line 1007 of file mscoree_main.c.

{
    *(INT *)((BYTE *)ptr + offset) = val;
}

ND_WI8()

void WINAPI ND_WI8	(	void *	ptr,
		INT	offset,
		INT64	val
	)

Definition at line 1012 of file mscoree_main.c.

{
    *(INT64 *)((BYTE *)ptr + offset) = val;
}

ND_WU1()

void WINAPI ND_WU1	(	void *	ptr,
		INT	offset,
		BYTE	val
	)

Definition at line 997 of file mscoree_main.c.

{
    *((BYTE *)ptr + offset) = val;
}

parse_msi_version_string()

static void parse_msi_version_string ( const char *  version, int *  parts  )

static

Definition at line 731 of file mscoree_main.c.

{
    const char *minor_start, *build_start;
 
    parts[0] = atoi(version);
 
    parts[1] = parts[2] = 0;
 
    minor_start = strchr(version, '.');
    if (minor_start)
    {
        minor_start++;
        parts[1] = atoi(minor_start);
 
        build_start = strchr(minor_start, '.');
        if (build_start)
            parts[2] = atoi(build_start+1);
    }
}

Referenced by compare_versions().

StrongNameSignatureVerification()

BOOLEAN WINAPI StrongNameSignatureVerification	(	LPCWSTR	filename,
		DWORD	inFlags,
		DWORD *	pOutFlags
	)

Definition at line 629 of file mscoree_main.c.

{
    FIXME("(%s, 0x%lX, %p): stub\n", debugstr_w(filename), inFlags, pOutFlags);
    return FALSE;
}

StrongNameSignatureVerificationEx()

BOOLEAN WINAPI StrongNameSignatureVerificationEx	(	LPCWSTR	filename,
		BOOLEAN	forceVerification,
		BOOLEAN *	pVerified
	)

Definition at line 635 of file mscoree_main.c.

{
    FIXME("(%s, %u, %p): stub\n", debugstr_w(filename), forceVerification, pVerified);
    *pVerified = TRUE;
    return TRUE;
}

StrongNameTokenFromAssembly()

BOOLEAN WINAPI StrongNameTokenFromAssembly	(	LPCWSTR	path,
		BYTE **	token,
		ULONG *	size
	)

Definition at line 642 of file mscoree_main.c.

{
    FIXME("(%s, %p, %p): stub\n", debugstr_w(path), token, size);
    return FALSE;
}

WINE_DECLARE_DEBUG_CHANNEL()

WINE_DECLARE_DEBUG_CHANNEL

(

winediag

)

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

mscoree

)

WtoA()

char * WtoA

(

LPCWSTR

wstr

)

Definition at line 63 of file mscoree_main.c.

{
    int length;
    char *result;
 
    length = WideCharToMultiByte(CP_UTF8, 0, wstr, -1, NULL, 0, NULL, NULL);
 
    result = malloc(length);
 
    if (result)
        WideCharToMultiByte(CP_UTF8, 0, wstr, -1, result, length, NULL, NULL);
 
    return result;
}

Referenced by _CorExeMain(), CLRRuntimeHost_ExecuteInDefaultAppDomain(), create_monodata(), get_exe_basename_utf8(), mono_assembly_try_load(), ReallyFixupVTable(), RuntimeHost_AddDomain(), RuntimeHost_CreateManagedInstance(), RuntimeHost_GetDefaultDomain(), and wine_mono_assembly_preload_hook_v2_fn().

Variable Documentation

mscorecf_vtbl

const struct IClassFactoryVtbl mscorecf_vtbl

static

Initial value:

=
{
    mscorecf_QueryInterface,
    mscorecf_AddRef,
    mscorecf_Release,
    mscorecf_CreateInstance,
    mscorecf_LockServer
}

Definition at line 190 of file mscoree_main.c.

Referenced by DllGetClassObject().

print_tls_index

DWORD print_tls_index = TLS_OUT_OF_INDEXES

static

Definition at line 59 of file mscoree_main.c.

Referenced by DllMain(), and mono_print_handler_fn().