832 lines
22 KiB
C
832 lines
22 KiB
C
/*
|
|
* Implementation of mscoree.dll
|
|
* Microsoft Component Object Runtime Execution Engine
|
|
*
|
|
* Copyright 2006 Paul Chitescu
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include <stdarg.h>
|
|
|
|
#define COBJMACROS
|
|
#include "wine/unicode.h"
|
|
#include "wine/library.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 "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"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL( mscoree );
|
|
|
|
static HINSTANCE MSCOREE_hInstance;
|
|
|
|
typedef HRESULT (*fnCreateInstance)(REFIID riid, LPVOID *ppObj);
|
|
|
|
char *WtoA(LPCWSTR wstr)
|
|
{
|
|
int length;
|
|
char *result;
|
|
|
|
length = WideCharToMultiByte(CP_UTF8, 0, wstr, -1, NULL, 0, NULL, NULL);
|
|
|
|
result = HeapAlloc(GetProcessHeap(), 0, length);
|
|
|
|
if (result)
|
|
WideCharToMultiByte(CP_UTF8, 0, wstr, -1, result, length, NULL, NULL);
|
|
|
|
return result;
|
|
}
|
|
|
|
static BOOL get_install_root(LPWSTR install_dir)
|
|
{
|
|
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;
|
|
if (RegQueryValueExW(key, install_root, 0, NULL, (LPBYTE)install_dir, &len))
|
|
{
|
|
RegCloseKey(key);
|
|
return FALSE;
|
|
}
|
|
RegCloseKey(key);
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
typedef struct mscorecf
|
|
{
|
|
IClassFactory IClassFactory_iface;
|
|
LONG ref;
|
|
|
|
fnCreateInstance pfnCreateInstance;
|
|
|
|
CLSID clsid;
|
|
} mscorecf;
|
|
|
|
static inline mscorecf *impl_from_IClassFactory( IClassFactory *iface )
|
|
{
|
|
return CONTAINING_RECORD(iface, mscorecf, IClassFactory_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI mscorecf_QueryInterface(IClassFactory *iface, REFIID riid, LPVOID *ppobj )
|
|
{
|
|
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;
|
|
}
|
|
|
|
static ULONG WINAPI mscorecf_AddRef(IClassFactory *iface )
|
|
{
|
|
mscorecf *This = impl_from_IClassFactory(iface);
|
|
ULONG ref = InterlockedIncrement(&This->ref);
|
|
|
|
TRACE("%p ref=%u\n", This, ref);
|
|
|
|
return ref;
|
|
}
|
|
|
|
static ULONG WINAPI mscorecf_Release(IClassFactory *iface )
|
|
{
|
|
mscorecf *This = impl_from_IClassFactory(iface);
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("%p ref=%u\n", This, ref);
|
|
|
|
if (ref == 0)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI mscorecf_CreateInstance(IClassFactory *iface,LPUNKNOWN pOuter,
|
|
REFIID riid, LPVOID *ppobj )
|
|
{
|
|
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%08x\n", hr);
|
|
}
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI mscorecf_LockServer(IClassFactory *iface, BOOL dolock)
|
|
{
|
|
FIXME("(%p)->(%d),stub!\n",iface,dolock);
|
|
return S_OK;
|
|
}
|
|
|
|
static const struct IClassFactoryVtbl mscorecf_vtbl =
|
|
{
|
|
mscorecf_QueryInterface,
|
|
mscorecf_AddRef,
|
|
mscorecf_Release,
|
|
mscorecf_CreateInstance,
|
|
mscorecf_LockServer
|
|
};
|
|
|
|
HRESULT WINAPI CorBindToRuntimeHost(LPCWSTR pwszVersion, LPCWSTR pwszBuildFlavor,
|
|
LPCWSTR pwszHostConfigFile, VOID *pReserved,
|
|
DWORD startupFlags, REFCLSID rclsid,
|
|
REFIID riid, LPVOID *ppv)
|
|
{
|
|
HRESULT ret;
|
|
ICLRRuntimeInfo *info;
|
|
|
|
TRACE("(%s, %s, %s, %p, %d, %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, startupFlags, 0, TRUE, &info);
|
|
|
|
if (SUCCEEDED(ret))
|
|
{
|
|
ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
|
|
|
|
ICLRRuntimeInfo_Release(info);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
|
|
{
|
|
TRACE("(%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
|
|
|
|
MSCOREE_hInstance = hinstDLL;
|
|
|
|
switch (fdwReason)
|
|
{
|
|
case DLL_WINE_PREATTACH:
|
|
return FALSE; /* prefer native version */
|
|
case DLL_PROCESS_ATTACH:
|
|
runtimehost_init();
|
|
DisableThreadLibraryCalls(hinstDLL);
|
|
break;
|
|
case DLL_PROCESS_DETACH:
|
|
expect_no_runtimes();
|
|
if (lpvReserved) break; /* process is terminating */
|
|
runtimehost_uninit();
|
|
break;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
__int32 WINAPI _CorExeMain2(PBYTE ptrMemory, DWORD cntMemory, LPWSTR imageName, LPWSTR loaderName, LPWSTR cmdLine)
|
|
{
|
|
TRACE("(%p, %u, %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;
|
|
}
|
|
|
|
void WINAPI CorExitProcess(int exitCode)
|
|
{
|
|
TRACE("(%x)\n", exitCode);
|
|
CLRMetaHost_ExitProcess(0, exitCode);
|
|
}
|
|
|
|
VOID WINAPI _CorImageUnloading(PVOID imageBase)
|
|
{
|
|
TRACE("(%p): stub\n", imageBase);
|
|
}
|
|
|
|
HRESULT WINAPI _CorValidateImage(PVOID* imageBase, LPCWSTR imageName)
|
|
{
|
|
TRACE("(%p, %s): stub\n", imageBase, debugstr_w(imageName));
|
|
return E_FAIL;
|
|
}
|
|
|
|
HRESULT WINAPI GetCORSystemDirectory(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
|
|
{
|
|
ICLRRuntimeInfo *info;
|
|
HRESULT ret;
|
|
|
|
TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
|
|
|
|
if (!dwLength || !pbuffer)
|
|
return E_POINTER;
|
|
|
|
ret = get_runtime_info(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;
|
|
}
|
|
|
|
HRESULT WINAPI GetCORVersion(LPWSTR pbuffer, DWORD cchBuffer, DWORD *dwLength)
|
|
{
|
|
ICLRRuntimeInfo *info;
|
|
HRESULT ret;
|
|
|
|
TRACE("(%p, %d, %p)!\n", pbuffer, cchBuffer, dwLength);
|
|
|
|
if (!dwLength || !pbuffer)
|
|
return E_POINTER;
|
|
|
|
ret = get_runtime_info(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;
|
|
}
|
|
|
|
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 ret;
|
|
ICLRRuntimeInfo *info;
|
|
DWORD length_dummy;
|
|
|
|
TRACE("(%s, %s, %s, 0x%08x, 0x%08x, %p, 0x%08x, %p, %p, 0x%08x, %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, 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;
|
|
}
|
|
|
|
HRESULT WINAPI GetRequestedRuntimeVersion(LPWSTR pExe, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwlength)
|
|
{
|
|
TRACE("(%s, %p, %d, %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);
|
|
}
|
|
|
|
HRESULT WINAPI GetRealProcAddress(LPCSTR procname, void **ppv)
|
|
{
|
|
FIXME("(%s, %p)\n", debugstr_a(procname), ppv);
|
|
return CLR_E_SHIM_RUNTIMEEXPORT;
|
|
}
|
|
|
|
HRESULT WINAPI GetFileVersion(LPCWSTR szFilename, LPWSTR szBuffer, DWORD cchBuffer, DWORD *dwLength)
|
|
{
|
|
TRACE("(%s, %p, %d, %p)\n", debugstr_w(szFilename), szBuffer, cchBuffer, dwLength);
|
|
|
|
if (!szFilename || !dwLength)
|
|
return E_POINTER;
|
|
|
|
*dwLength = cchBuffer;
|
|
return CLRMetaHost_GetVersionFromFile(0, szFilename, szBuffer, dwLength);
|
|
}
|
|
|
|
HRESULT WINAPI LoadLibraryShim( LPCWSTR szDllName, LPCWSTR szVersion, LPVOID pvReserved, HMODULE * phModDll)
|
|
{
|
|
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;
|
|
}
|
|
strcatW(dll_filename, szVersion);
|
|
strcatW(dll_filename, slash);
|
|
}
|
|
|
|
strcatW(dll_filename, szDllName);
|
|
|
|
*phModDll = LoadLibraryW(dll_filename);
|
|
|
|
return *phModDll ? S_OK : E_HANDLE;
|
|
}
|
|
|
|
HRESULT WINAPI LockClrVersion(FLockClrVersionCallback hostCallback, FLockClrVersionCallback *pBeginHostSetup, FLockClrVersionCallback *pEndHostSetup)
|
|
{
|
|
FIXME("(%p %p %p): stub\n", hostCallback, pBeginHostSetup, pEndHostSetup);
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT WINAPI CoInitializeCor(DWORD fFlags)
|
|
{
|
|
FIXME("(0x%08x): stub\n", fFlags);
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT WINAPI GetAssemblyMDImport(LPCWSTR szFileName, REFIID riid, IUnknown **ppIUnk)
|
|
{
|
|
FIXME("(%p %s, %s, %p): stub\n", szFileName, debugstr_w(szFileName), debugstr_guid(riid), *ppIUnk);
|
|
return ERROR_CALL_NOT_IMPLEMENTED;
|
|
}
|
|
|
|
HRESULT WINAPI GetVersionFromProcess(HANDLE hProcess, LPWSTR pVersion, DWORD cchBuffer, DWORD *dwLength)
|
|
{
|
|
FIXME("(%p, %p, %d, %p): stub\n", hProcess, pVersion, cchBuffer, dwLength);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
HRESULT WINAPI LoadStringRCEx(LCID culture, UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet, int* pBufLen)
|
|
{
|
|
HRESULT res = S_OK;
|
|
if ((iBufLen <= 0) || !pBuffer)
|
|
return E_INVALIDARG;
|
|
pBuffer[0] = 0;
|
|
if (resId) {
|
|
FIXME("(%d, %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;
|
|
}
|
|
|
|
HRESULT WINAPI LoadStringRC(UINT resId, LPWSTR pBuffer, int iBufLen, int bQuiet)
|
|
{
|
|
return LoadStringRCEx(-1, resId, pBuffer, iBufLen, bQuiet, NULL);
|
|
}
|
|
|
|
HRESULT WINAPI CorBindToRuntimeEx(LPWSTR szVersion, LPWSTR szBuildFlavor, DWORD nflags, REFCLSID rslsid,
|
|
REFIID riid, LPVOID *ppv)
|
|
{
|
|
HRESULT ret;
|
|
ICLRRuntimeInfo *info;
|
|
|
|
TRACE("%s %s %d %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, nflags, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
|
|
|
|
if (SUCCEEDED(ret))
|
|
{
|
|
ret = ICLRRuntimeInfo_GetInterface(info, rslsid, riid, ppv);
|
|
|
|
ICLRRuntimeInfo_Release(info);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
HRESULT WINAPI CorBindToCurrentRuntime(LPCWSTR filename, REFCLSID rclsid, REFIID riid, LPVOID *ppv)
|
|
{
|
|
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, 0, RUNTIME_INFO_UPGRADE_VERSION, TRUE, &info);
|
|
|
|
if (SUCCEEDED(ret))
|
|
{
|
|
ret = ICLRRuntimeInfo_GetInterface(info, rclsid, riid, ppv);
|
|
|
|
ICLRRuntimeInfo_Release(info);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
STDAPI ClrCreateManagedInstance(LPCWSTR pTypeName, REFIID riid, void **ppObject)
|
|
{
|
|
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, 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;
|
|
}
|
|
|
|
BOOL WINAPI StrongNameSignatureVerification(LPCWSTR filename, DWORD inFlags, DWORD* pOutFlags)
|
|
{
|
|
FIXME("(%s, 0x%X, %p): stub\n", debugstr_w(filename), inFlags, pOutFlags);
|
|
return FALSE;
|
|
}
|
|
|
|
BOOL WINAPI StrongNameSignatureVerificationEx(LPCWSTR filename, BOOL forceVerification, BOOL* pVerified)
|
|
{
|
|
FIXME("(%s, %u, %p): stub\n", debugstr_w(filename), forceVerification, pVerified);
|
|
return FALSE;
|
|
}
|
|
|
|
HRESULT WINAPI CreateConfigStream(LPCWSTR filename, IStream **stream)
|
|
{
|
|
FIXME("(%s, %p): stub\n", debugstr_w(filename), stream);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
HRESULT WINAPI CreateDebuggingInterfaceFromVersion(int nDebugVersion, LPCWSTR version, IUnknown **ppv)
|
|
{
|
|
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(strcmpW(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;
|
|
}
|
|
|
|
HRESULT WINAPI CLRCreateInstance(REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
|
|
{
|
|
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;
|
|
}
|
|
|
|
HRESULT WINAPI CreateInterface(REFCLSID clsid, REFIID riid, LPVOID *ppInterface)
|
|
{
|
|
TRACE("(%s,%s,%p)\n", debugstr_guid(clsid), debugstr_guid(riid), ppInterface);
|
|
|
|
return CLRCreateInstance(clsid, riid, ppInterface);
|
|
}
|
|
|
|
HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
|
|
{
|
|
mscorecf *This;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
|
|
|
|
if(!ppv)
|
|
return E_INVALIDARG;
|
|
|
|
This = HeapAlloc(GetProcessHeap(), 0, 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;
|
|
}
|
|
|
|
static void parse_msi_version_string(const char *version, int *parts)
|
|
{
|
|
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);
|
|
}
|
|
}
|
|
|
|
static BOOL install_wine_mono(void)
|
|
{
|
|
BOOL is_wow64 = FALSE;
|
|
HMODULE hmsi;
|
|
UINT (WINAPI *pMsiGetProductInfoA)(LPCSTR,LPCSTR,LPSTR,DWORD*);
|
|
char versionstringbuf[15];
|
|
UINT res;
|
|
DWORD buffer_size;
|
|
PROCESS_INFORMATION pi;
|
|
STARTUPINFOW si;
|
|
WCHAR app[MAX_PATH];
|
|
WCHAR *args;
|
|
LONG len;
|
|
BOOL ret;
|
|
|
|
static const char* mono_version = "4.6.2";
|
|
static const char* mono_product_code = "{E45D8920-A758-4088-B6C6-31DBB276992E}";
|
|
|
|
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};
|
|
|
|
IsWow64Process(GetCurrentProcess(), &is_wow64);
|
|
|
|
if (is_wow64)
|
|
{
|
|
TRACE("not installing mono in wow64 process\n");
|
|
return TRUE;
|
|
}
|
|
|
|
hmsi = LoadLibraryA("msi");
|
|
|
|
if (!hmsi)
|
|
{
|
|
ERR("couldn't load msi.dll\n");
|
|
return FALSE;
|
|
}
|
|
|
|
pMsiGetProductInfoA = (void*)GetProcAddress(hmsi, "MsiGetProductInfoA");
|
|
|
|
buffer_size = sizeof(versionstringbuf);
|
|
|
|
res = pMsiGetProductInfoA(mono_product_code, "VersionString", versionstringbuf, &buffer_size);
|
|
|
|
FreeLibrary(hmsi);
|
|
|
|
if (res == ERROR_SUCCESS)
|
|
{
|
|
int current_version[3], wanted_version[3], i;
|
|
|
|
TRACE("found installed version %s\n", versionstringbuf);
|
|
|
|
parse_msi_version_string(versionstringbuf, current_version);
|
|
parse_msi_version_string(mono_version, wanted_version);
|
|
|
|
for (i=0; i<3; i++)
|
|
{
|
|
if (current_version[i] < wanted_version[i])
|
|
break;
|
|
else if (current_version[i] > wanted_version[i])
|
|
{
|
|
TRACE("installed version is newer than %s, quitting\n", mono_version);
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
if (i == 3)
|
|
{
|
|
TRACE("version %s is already installed, quitting\n", mono_version);
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
len = GetSystemDirectoryW(app, MAX_PATH-sizeof(controlW)/sizeof(WCHAR));
|
|
memcpy(app+len, controlW, sizeof(controlW));
|
|
|
|
args = HeapAlloc(GetProcessHeap(), 0, (len*sizeof(WCHAR) + sizeof(controlW) + sizeof(argsW)));
|
|
if(!args)
|
|
return FALSE;
|
|
|
|
memcpy(args, app, len*sizeof(WCHAR) + sizeof(controlW));
|
|
memcpy(args + len + sizeof(controlW)/sizeof(WCHAR)-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);
|
|
HeapFree(GetProcessHeap(), 0, args);
|
|
if (ret) {
|
|
CloseHandle(pi.hThread);
|
|
WaitForSingleObject(pi.hProcess, INFINITE);
|
|
CloseHandle(pi.hProcess);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
HRESULT WINAPI DllRegisterServer(void)
|
|
{
|
|
install_wine_mono();
|
|
|
|
return __wine_register_resources( MSCOREE_hInstance );
|
|
}
|
|
|
|
HRESULT WINAPI DllUnregisterServer(void)
|
|
{
|
|
return __wine_unregister_resources( MSCOREE_hInstance );
|
|
}
|
|
|
|
HRESULT WINAPI DllCanUnloadNow(VOID)
|
|
{
|
|
return S_FALSE;
|
|
}
|
|
|
|
void WINAPI CoEEShutDownCOM(void)
|
|
{
|
|
FIXME("stub.\n");
|
|
}
|
|
|
|
INT WINAPI ND_RU1( const void *ptr, INT offset )
|
|
{
|
|
return *((const BYTE *)ptr + offset);
|
|
}
|
|
|
|
INT WINAPI ND_RI2( const void *ptr, INT offset )
|
|
{
|
|
return *(const SHORT *)((const BYTE *)ptr + offset);
|
|
}
|
|
|
|
INT WINAPI ND_RI4( const void *ptr, INT offset )
|
|
{
|
|
return *(const INT *)((const BYTE *)ptr + offset);
|
|
}
|
|
|
|
INT64 WINAPI ND_RI8( const void *ptr, INT offset )
|
|
{
|
|
return *(const INT64 *)((const BYTE *)ptr + offset);
|
|
}
|
|
|
|
void WINAPI ND_WU1( void *ptr, INT offset, BYTE val )
|
|
{
|
|
*((BYTE *)ptr + offset) = val;
|
|
}
|
|
|
|
void WINAPI ND_WI2( void *ptr, INT offset, SHORT val )
|
|
{
|
|
*(SHORT *)((BYTE *)ptr + offset) = val;
|
|
}
|
|
|
|
void WINAPI ND_WI4( void *ptr, INT offset, INT val )
|
|
{
|
|
*(INT *)((BYTE *)ptr + offset) = val;
|
|
}
|
|
|
|
void WINAPI ND_WI8( void *ptr, INT offset, INT64 val )
|
|
{
|
|
*(INT64 *)((BYTE *)ptr + offset) = val;
|
|
}
|
|
|
|
void WINAPI ND_CopyObjDst( const void *src, void *dst, INT offset, INT size )
|
|
{
|
|
memcpy( (BYTE *)dst + offset, src, size );
|
|
}
|
|
|
|
void WINAPI ND_CopyObjSrc( const void *src, INT offset, void *dst, INT size )
|
|
{
|
|
memcpy( dst, (const BYTE *)src + offset, size );
|
|
}
|