/* * 16 bit ole functions * * Copyright 1995 Martin von Loewis * Copyright 1998 Justin Bradford * Copyright 1999 Francis Beaudet * Copyright 1999 Sylvain St-Germain * Copyright 2002 Marcus Meissner * * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "config.h" #include <stdlib.h> #include <stdarg.h> #include <stdio.h> #include <string.h> #include <assert.h> #include "windef.h" #include "winbase.h" #include "winuser.h" #include "objbase.h" #include "ole2.h" #include "ole2ver.h" #include "rpc.h" #include "winerror.h" #include "winreg.h" #include "wownt32.h" #include "wtypes.h" #include "wine/unicode.h" #include "wine/winbase16.h" #include "compobj_private.h" #include "ifs.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(ole); static HTASK16 hETask = 0; static WORD Table_ETask[62]; static LPMALLOC16 currentMalloc16=NULL; /* --- IMalloc16 implementation */ typedef struct { /* IUnknown fields */ const IMalloc16Vtbl *lpVtbl; DWORD ref; /* IMalloc16 fields */ } IMalloc16Impl; /****************************************************************************** * IMalloc16_QueryInterface [COMPOBJ.500] */ HRESULT IMalloc16_fnQueryInterface(IMalloc16* iface,REFIID refiid,LPVOID *obj) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->QueryInterface(%s,%p)\n",This,debugstr_guid(refiid),obj); if ( !memcmp(&IID_IUnknown,refiid,sizeof(IID_IUnknown)) || !memcmp(&IID_IMalloc,refiid,sizeof(IID_IMalloc)) ) { *obj = This; return 0; } return OLE_E_ENUM_NOMORE; } /****************************************************************************** * IMalloc16_AddRef [COMPOBJ.501] */ ULONG IMalloc16_fnAddRef(IMalloc16* iface) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->AddRef()\n",This); return 1; /* cannot be freed */ } /****************************************************************************** * IMalloc16_Release [COMPOBJ.502] */ ULONG IMalloc16_fnRelease(IMalloc16* iface) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->Release()\n",This); return 1; /* cannot be freed */ } /****************************************************************************** * IMalloc16_Alloc [COMPOBJ.503] */ SEGPTR IMalloc16_fnAlloc(IMalloc16* iface,DWORD cb) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->Alloc(%ld)\n",This,cb); return MapLS( HeapAlloc( GetProcessHeap(), 0, cb ) ); } /****************************************************************************** * IMalloc16_Free [COMPOBJ.505] */ VOID IMalloc16_fnFree(IMalloc16* iface,SEGPTR pv) { void *ptr = MapSL(pv); IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->Free(%08lx)\n",This,pv); UnMapLS(pv); HeapFree( GetProcessHeap(), 0, ptr ); } /****************************************************************************** * IMalloc16_Realloc [COMPOBJ.504] */ SEGPTR IMalloc16_fnRealloc(IMalloc16* iface,SEGPTR pv,DWORD cb) { SEGPTR ret; IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->Realloc(%08lx,%ld)\n",This,pv,cb); if (!pv) ret = IMalloc16_fnAlloc(iface, cb); else if (cb) { ret = MapLS( HeapReAlloc( GetProcessHeap(), 0, MapSL(pv), cb ) ); UnMapLS(pv); } else { IMalloc16_fnFree(iface, pv); ret = 0; } return ret; } /****************************************************************************** * IMalloc16_GetSize [COMPOBJ.506] */ DWORD IMalloc16_fnGetSize(const IMalloc16* iface,SEGPTR pv) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->GetSize(%08lx)\n",This,pv); return HeapSize( GetProcessHeap(), 0, MapSL(pv) ); } /****************************************************************************** * IMalloc16_DidAlloc [COMPOBJ.507] */ INT16 IMalloc16_fnDidAlloc(const IMalloc16* iface,LPVOID pv) { IMalloc16 *This = (IMalloc16 *)iface; TRACE("(%p)->DidAlloc(%p)\n",This,pv); return (INT16)-1; } /****************************************************************************** * IMalloc16_HeapMinimize [COMPOBJ.508] */ LPVOID IMalloc16_fnHeapMinimize(IMalloc16* iface) { IMalloc16Impl *This = (IMalloc16Impl *)iface; TRACE("(%p)->HeapMinimize()\n",This); return NULL; } /****************************************************************************** * IMalloc16_Constructor [VTABLE] */ LPMALLOC16 IMalloc16_Constructor() { static IMalloc16Vtbl vt16; static SEGPTR msegvt16; IMalloc16Impl* This; HMODULE16 hcomp = GetModuleHandle16("COMPOBJ"); This = HeapAlloc( GetProcessHeap(), 0, sizeof(IMalloc16Impl) ); if (!msegvt16) { #define VTENT(x) vt16.x = (void*)GetProcAddress16(hcomp,"IMalloc16_"#x);assert(vt16.x) VTENT(QueryInterface); VTENT(AddRef); VTENT(Release); VTENT(Alloc); VTENT(Realloc); VTENT(Free); VTENT(GetSize); VTENT(DidAlloc); VTENT(HeapMinimize); #undef VTENT msegvt16 = MapLS( &vt16 ); } This->lpVtbl = (const IMalloc16Vtbl*)msegvt16; This->ref = 1; return (LPMALLOC16)MapLS( This ); } /*********************************************************************** * CoGetMalloc [COMPOBJ.4] * * Retrieve the current win16 IMalloc interface. * * RETURNS * The current win16 IMalloc */ HRESULT WINAPI CoGetMalloc16( DWORD dwMemContext, /* [in] unknown */ LPMALLOC16 * lpMalloc /* [out] current win16 malloc interface */ ) { if(!currentMalloc16) currentMalloc16 = IMalloc16_Constructor(); *lpMalloc = currentMalloc16; return S_OK; } /*********************************************************************** * CoCreateStandardMalloc [COMPOBJ.71] */ HRESULT WINAPI CoCreateStandardMalloc16(DWORD dwMemContext, LPMALLOC16 *lpMalloc) { /* FIXME: docu says we shouldn't return the same allocator as in * CoGetMalloc16 */ *lpMalloc = IMalloc16_Constructor(); return S_OK; } /****************************************************************************** * CoInitialize [COMPOBJ.2] * Set the win16 IMalloc used for memory management */ HRESULT WINAPI CoInitialize16( LPVOID lpReserved /* [in] pointer to win16 malloc interface */ ) { currentMalloc16 = (LPMALLOC16)lpReserved; return S_OK; } /*********************************************************************** * CoUninitialize [COMPOBJ.3] * Don't know what it does. * 3-Nov-98 -- this was originally misspelled, I changed it to what I * believe is the correct spelling */ void WINAPI CoUninitialize16(void) { TRACE("()\n"); CoFreeAllLibraries(); } /*********************************************************************** * IsEqualGUID [COMPOBJ.18] * * Compares two Unique Identifiers. * * RETURNS * TRUE if equal */ BOOL16 WINAPI IsEqualGUID16( GUID* g1, /* [in] unique id 1 */ GUID* g2) /* [in] unique id 2 */ { return !memcmp( g1, g2, sizeof(GUID) ); } /****************************************************************************** * CLSIDFromString [COMPOBJ.20] * Converts a unique identifier from its string representation into * the GUID struct. * * Class id: DWORD-WORD-WORD-BYTES[2]-BYTES[6] * * RETURNS * the converted GUID */ HRESULT WINAPI CLSIDFromString16( LPCOLESTR16 idstr, /* [in] string representation of guid */ CLSID *id) /* [out] GUID converted from string */ { return __CLSIDFromStringA(idstr,id); } /****************************************************************************** * _xmalloc16 [internal] * Allocates size bytes from the standard ole16 allocator. * * RETURNS * the allocated segmented pointer and a HRESULT */ static HRESULT _xmalloc16(DWORD size, SEGPTR *ptr) { LPMALLOC16 mllc; DWORD args[2]; if (CoGetMalloc16(0,&mllc)) return E_OUTOFMEMORY; args[0] = (DWORD)mllc; args[1] = size; /* No need for a Callback entry, we have WOWCallback16Ex which does * everything we need. */ if (!WOWCallback16Ex( (DWORD)((const IMalloc16Vtbl*)MapSL( (SEGPTR)((LPMALLOC16)MapSL((SEGPTR)mllc))->lpVtbl ) )->Alloc, WCB16_CDECL, 2*sizeof(DWORD), (LPVOID)args, (LPDWORD)ptr )) { ERR("CallTo16 IMalloc16 (%ld) failed\n",size); return E_FAIL; } return S_OK; } /****************************************************************************** * StringFromCLSID [COMPOBJ.19] * Converts a GUID into the respective string representation. * The target string is allocated using the OLE IMalloc. * * RETURNS * the string representation and HRESULT */ HRESULT WINAPI StringFromCLSID16( REFCLSID id, /* [in] the GUID to be converted */ LPOLESTR16 *idstr /* [out] a pointer to a to-be-allocated segmented pointer pointing to the resulting string */ ) { HRESULT ret; ret = _xmalloc16(40,(SEGPTR*)idstr); if (ret != S_OK) return ret; return WINE_StringFromCLSID(id,MapSL((SEGPTR)*idstr)); } /****************************************************************************** * ProgIDFromCLSID [COMPOBJ.62] * * Converts a class id into the respective Program ID. (By using a registry lookup) * * RETURNS * S_OK on success * riid associated with the progid */ HRESULT WINAPI ProgIDFromCLSID16( REFCLSID clsid, /* [in] class id as found in registry */ LPOLESTR16 *lplpszProgID/* [out] associated Prog ID */ ) { static const WCHAR wszProgID[] = {'P','r','o','g','I','D',0}; HKEY hkey; HRESULT ret; LONG len; char *buffer; ret = COM_OpenKeyForCLSID(clsid, wszProgID, KEY_READ, &hkey); if (FAILED(ret)) return ret; if (RegQueryValueA(hkey, NULL, NULL, &len)) ret = REGDB_E_READREGDB; if (ret == S_OK) { buffer = HeapAlloc(GetProcessHeap(), 0, len); if (RegQueryValueA(hkey, NULL, buffer, &len)) ret = REGDB_E_READREGDB; if (ret == S_OK) { ret = _xmalloc16(len, (SEGPTR*)lplpszProgID); if (ret == S_OK) strcpy(MapSL((SEGPTR)*lplpszProgID),buffer); } HeapFree(GetProcessHeap(), 0, buffer); } RegCloseKey(hkey); return ret; } /*********************************************************************** * LookupETask (COMPOBJ.94) */ HRESULT WINAPI LookupETask16(HTASK16 *hTask,LPVOID p) { FIXME("(%p,%p),stub!\n",hTask,p); if ((*hTask = GetCurrentTask()) == hETask) { memcpy(p, Table_ETask, sizeof(Table_ETask)); } return 0; } /*********************************************************************** * SetETask (COMPOBJ.95) */ HRESULT WINAPI SetETask16(HTASK16 hTask, LPVOID p) { FIXME("(%04x,%p),stub!\n",hTask,p); hETask = hTask; return 0; } /*********************************************************************** * CALLOBJECTINWOW (COMPOBJ.201) */ HRESULT WINAPI CallObjectInWOW(LPVOID p1,LPVOID p2) { FIXME("(%p,%p),stub!\n",p1,p2); return 0; } /****************************************************************************** * CoRegisterClassObject [COMPOBJ.5] * * Don't know where it registers it ... */ HRESULT WINAPI CoRegisterClassObject16( REFCLSID rclsid, LPUNKNOWN pUnk, DWORD dwClsContext, /* [in] CLSCTX flags indicating the context in which to run the executable */ DWORD flags, /* [in] REGCLS flags indicating how connections are made */ LPDWORD lpdwRegister ) { FIXME("(%s,%p,0x%08lx,0x%08lx,%p),stub\n", debugstr_guid(rclsid),pUnk,dwClsContext,flags,lpdwRegister ); return 0; } /****************************************************************************** * CoRevokeClassObject [COMPOBJ.6] * */ HRESULT WINAPI CoRevokeClassObject16(DWORD dwRegister) /* [in] token on class obj */ { FIXME("(0x%08lx),stub!\n", dwRegister); return 0; } /****************************************************************************** * CoFileTimeToDosDateTime [COMPOBJ.30] */ BOOL16 WINAPI CoFileTimeToDosDateTime16(const FILETIME *ft, LPWORD lpDosDate, LPWORD lpDosTime) { return FileTimeToDosDateTime(ft, lpDosDate, lpDosTime); } /****************************************************************************** * CoDosDateTimeToFileTime [COMPOBJ.31] */ BOOL16 WINAPI CoDosDateTimeToFileTime16(WORD wDosDate, WORD wDosTime, FILETIME *ft) { return DosDateTimeToFileTime(wDosDate, wDosTime, ft); } /****************************************************************************** * CoRegisterMessageFilter [COMPOBJ.27] */ HRESULT WINAPI CoRegisterMessageFilter16( LPMESSAGEFILTER lpMessageFilter, LPMESSAGEFILTER *lplpMessageFilter ) { FIXME("(%p,%p),stub!\n",lpMessageFilter,lplpMessageFilter); return 0; } /****************************************************************************** * CoLockObjectExternal [COMPOBJ.63] */ HRESULT WINAPI CoLockObjectExternal16( LPUNKNOWN pUnk, /* [in] object to be locked */ BOOL16 fLock, /* [in] do lock */ BOOL16 fLastUnlockReleases /* [in] ? */ ) { FIXME("(%p,%d,%d),stub!\n",pUnk,fLock,fLastUnlockReleases); return S_OK; } /*********************************************************************** * CoGetState [COMPOBJ.115] */ HRESULT WINAPI CoGetState16(LPDWORD state) { FIXME("(%p),stub!\n", state); *state = 0; return S_OK; } /*********************************************************************** * DllEntryPoint [COMPOBJ.116] * * Initialization code for the COMPOBJ DLL * * RETURNS: */ BOOL WINAPI COMPOBJ_DllEntryPoint(DWORD Reason, HINSTANCE16 hInst, WORD ds, WORD HeapSize, DWORD res1, WORD res2) { TRACE("(%08lx, %04x, %04x, %04x, %08lx, %04x)\n", Reason, hInst, ds, HeapSize, res1, res2); return TRUE; } /*********************************************************************** * CoMemAlloc [COMPOBJ.151] */ SEGPTR WINAPI CoMemAlloc(DWORD size, DWORD dwMemContext, DWORD x) { HRESULT hres; SEGPTR segptr; /* FIXME: check context handling */ TRACE("(%ld, 0x%08lx, 0x%08lx)\n", size, dwMemContext, x); hres = _xmalloc16(size, &segptr); if (hres != S_OK) return (SEGPTR)0; return segptr; } /****************************************************************************** * CLSIDFromProgID [COMPOBJ.61] * * Converts a program ID into the respective GUID. * * PARAMS * progid [I] program id as found in registry * riid [O] associated CLSID * * RETURNS * Success: S_OK * Failure: CO_E_CLASSSTRING - the given ProgID cannot be found. */ HRESULT WINAPI CLSIDFromProgID16(LPCOLESTR16 progid, LPCLSID riid) { char *buf,buf2[80]; LONG buf2len; HRESULT err; HKEY xhkey; buf = HeapAlloc(GetProcessHeap(),0,strlen(progid)+8); sprintf(buf,"%s\\CLSID",progid); if ((err=RegOpenKeyA(HKEY_CLASSES_ROOT,buf,&xhkey))) { HeapFree(GetProcessHeap(),0,buf); return CO_E_CLASSSTRING; } HeapFree(GetProcessHeap(),0,buf); buf2len = sizeof(buf2); if ((err=RegQueryValueA(xhkey,NULL,buf2,&buf2len))) { RegCloseKey(xhkey); return CO_E_CLASSSTRING; } RegCloseKey(xhkey); return __CLSIDFromStringA(buf2,riid); } /*********************************************************************** * CoGetClassObject [COMPOBJ.7] * */ HRESULT WINAPI CoGetClassObject16( REFCLSID rclsid, DWORD dwClsContext, COSERVERINFO *pServerInfo, REFIID iid, LPVOID *ppv) { FIXME(", stub!\n\tCLSID:\t%s,\n\tIID:\t%s\n", debugstr_guid(rclsid), debugstr_guid(iid)); if (pServerInfo) { FIXME("\tpServerInfo: name=%s\n",debugstr_w(pServerInfo->pwszName)); FIXME("\t\tpAuthInfo=%p\n",pServerInfo->pAuthInfo); } return E_NOTIMPL; } /*********************************************************************** * CoCreateInstance [COMPOBJ.13] */ HRESULT WINAPI CoCreateInstance16( REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv) { FIXME("(%s, %p, %lx, %s, %p), stub!\n", debugstr_guid(rclsid), pUnkOuter, dwClsContext, debugstr_guid(iid), ppv ); return E_NOTIMPL; } /*********************************************************************** * DllGetClassObject [OLE2.4] */ HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv) { FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv); return E_NOTIMPL; } /****************************************************************************** * GetRunningObjectTable (OLE2.30) */ HRESULT WINAPI GetRunningObjectTable16(DWORD reserved, LPRUNNINGOBJECTTABLE *pprot) { FIXME("(%ld,%p),stub!\n",reserved,pprot); return E_NOTIMPL; }