+++ /dev/null
-/*
- * 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 "mscoree_private.h"
-
-#include <rpcproxy.h>
-
-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);
- unload_all_runtimes();
- ExitProcess(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)
-{
- FIXME("(%s, %s, %s, %p): stub\n", debugstr_w(filename), debugstr_guid(rclsid), debugstr_guid(riid), ppv);
- return E_NOTIMPL;
-}
-
-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);
-
- FIXME("not implemented for class %s\n", debugstr_guid(clsid));
-
- return CLASS_E_CLASSNOTAVAILABLE;
-}
-
-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;
-}
-
-HRESULT WINAPI DllRegisterServer(void)
-{
- 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 );
-}