mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-14 18:35:39 +00:00
c7c217b31c
Sun Apr 12 12:22:23 1997 Andreas Mohr <100.30936@germany.net> * [files/drive.c] Fixed "no free space" problem with partition sizes between 1 and 2 GB (cluster_sectors may not exceed 0x40). * [windows/msgbox.c] [if1632/user.spec] [include/windows.h] Implemented MessageBoxIndirect16, corrected MSGBOXPARAMS16. * [loader/task.c] DOS environment strings may never exceed 127 chars -> truncate Unix environment strings if necessary. Sun Apr 12 02:51:44 1998 Dimitrie O. Paun <dimi@mail.cs.toronto.edu> * [files/*.c] All fprintf statements were converted to appropriate debug messages. * [tools/find_debug_channels] Updated comments at the beginning of the file. Sat Apr 11 15:27:21 1998 Alexandre Julliard <julliard@lrc.epfl.ch> * [loader/module.c] [loader/task.c] [scheduler/process.c] Moved some code around to prepare the ground for CreateProcess(). * [memory/environ.c] [loader/task.c] Moved Win32 environment strings functions to environ.c. Unified Win16 and Win32 environment management. * [scheduler/handle.c] [scheduler/k32obj.c] [scheduler/*.c] Implemented handle inheritance and DuplicateHandle(). * [scheduler/thread.c] Create a 16-bit stack for all threads. * [windows/dialog.c] Implemented DIALOGEX resource format. Fri Apr 10 20:21:51 1998 Marcus Meissner <marcus@mud.de> * [configure.in][include/acconfig.h][*/*][multimedia/*] Cleaned up the OSS detection stuff, added some more checks for headerfiles/functions. Removed a lot of OS specific #ifdefs. Lots of dependend multimedia cleanups. * [loader/pe_image.c] Enhanced comment, added missing reference count increase. * [ole/compobj.c] Replaced broken StringFromGUID2 by working one. * [misc/winsock.c] SO_LINGER uses unsigned 16 bit in Win16 and Win32, but unsigned int (32bit) for UNIX. * [memory/global.c] Allow realloc for lockcount 1 too. Fri Apr 10 15:27:34 1998 Morten Welinder <terra@diku.dk> * [graphics/x11drv/text.c] Handle control characters in trace. Ignore terminating newline. * [multimedia/init.c] (MULTIMEDIA_Init): Correct allocations. * [tools/examine-relay] Tidy up. * [windows/syscolor.c] Change highlight colour from lightblue to lightgray. This looks correct for menus. Fri Apr 10 01:49:58 1998 Douglas Ridgway <ridgway@winehq.com> * [configure.in] [Make.rules.in] Add check for c2man before using it. Fri Apr 10 02:59:21 1998 Douglas Ridgway <ridgway@winehq.com> * [DEVELOPERS-HINTS] Simple description of adding API calls. * [include/wintypes.h] [include/windows.h] Get rid of Winelib16, avoid declaring some illegal functions in Winelib, add prototypes for some enhanced metafile functions, fix GetTextExtentPoint32 declarations. * [relay32/gdi32.spec] [objects/enhmetafile.c] Cosmetic and functional improvements. * [include/wincon.h] [programs/view/*] Fixes, improved compatibility with native compilers. Thu Apr 9 15:48:49 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de> * [win32/kernel32.c] Implemented FT_Thunk / FT_Prolog / FT_Exit / FT_PrologPrime. Fixed Common32ThkLS thunk function. * [tools/build.c] [relay32/relay386.c] [if1632/relay.c] Changed relay code to allow register functions to modify stack layout. * [memory/selector.c] Implemented AllocMappedBuffer / FreeMappedBuffer. * [relay32/kernel32.spec] [if1632/kernel.spec] [win32/ordinals.c] Added names for undocumented functions. * [loader/module.c] Bugfix: LoadLibrary16 should *not* silently load 32-bit DLL. Thu Apr 9 03:54:58 1998 Jim Peterson <jspeter@birch.ee.vt.edu> * [windows/keyboard.c] Fix an erroneous test in TranslateAccelerator{16,32} for the end of the accelerator table. Thu Apr 8 20:36:28 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [misc/crtdll.c] Implement getenv. * [misc/commdlg.c] Make Get[Save/Open]FileName work in most situations. * [misc/lstr.c] Use wvsprintf32A instead of vsprintf in FormatMessage32X * [misc/version] Make NT3.50 a recognised version * [graphics/x11drv/graphics.c] Change the algorithme to draw arcs * [loader/resource.c] Return an empty buffer in LoadString32A if no resource found. * [win32/code_page.c] Try harder to get the right size in MultiByteToWideChar. * [win32/process.c] Call WinExec32 for CreateProcess32A. * [windows/user.c] Install default Int0 Handler in InitApp(). Thu Apr 8 19:29:48 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de> * [misc/imagelist.c] Preliminary fix for drawing selected images. Various improvements. * [controls/progress.c][include/progress.c][include/commctrl.h] Added progress bar messages and styles for IE4.01 (dll version 4.72) compatibility. Fixed led size problem. * [controls/updown.c][include/commctrl.h] Added UDM_GETRANGE32 and UDM_SETRANGE32. * [objects/oembitmaps.c][include/windows.h][include/bitmaps/*] Added Win95 icons and fixed Win95 cursor and restore button bug. Now they should be visible. Sorry!!! * [relay32/comctl32.spec] Added most missing function names. Tue Apr 6 18:48:36 1998 Matthew Becker <mbecker@glasscity.net> * [objects/font.c] [if1632/gdi.spec] GetOutlineTextMetrics: stub * [objects/text.c] GetTextCharset should just call GetTextCharsetInfo. * [misc/mpr.c] [relay32/mpr.spec] WNetCachePassword: stub * [scheduler/thread.c] [relay32/user32.spec] AttachThreadInput: stub Updated documentation. * [objects/palette.c] Updated documentation. Tue Mar 31 17:06:30 1998 James Juran <jrj120@psu.edu> * [*/*.c] Finished fixing USER32 ordinal numbers in function documentation. Mon Mar 30 20:27:38 1998 Morten Welinder <terra@diku.dk> * [misc/debugstr.c] [include/debugstr.h] Moved _dumpstr from relay32/relay386.c. Improved control character handling. * [msdos/int21.c] Implement 215E00 -- get machine name. * [windows/winpos.c] SetWindowPos32: Make an extra sync when mapping managed windows. This makes sure the reconfigure event has been handled. See Mshearts' what's-your-name window. Mon Mar 30 01:13:50 1998 Alexander V. Lukyanov <lav@long.yar.ru> * [Makefile.in] Install includes from TOPSRCDIR.
557 lines
14 KiB
C
557 lines
14 KiB
C
/*
|
|
* COMPOBJ library
|
|
*
|
|
* Copyright 1995 Martin von Loewis
|
|
*/
|
|
|
|
#define INITGUID
|
|
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
#include "ole.h"
|
|
#include "ole2.h"
|
|
#include "winerror.h"
|
|
#include "debug.h"
|
|
#include "file.h"
|
|
#include "compobj.h"
|
|
#include "heap.h"
|
|
#include "ldt.h"
|
|
#include "interfaces.h"
|
|
#include "shlobj.h"
|
|
#include "ddraw.h"
|
|
#include "dsound.h"
|
|
#include "dinput.h"
|
|
#include "d3d.h"
|
|
|
|
LPMALLOC16 currentMalloc16=NULL;
|
|
LPMALLOC32 currentMalloc32=NULL;
|
|
|
|
/***********************************************************************
|
|
* CoBuildVersion [COMPOBJ.1]
|
|
*
|
|
* RETURNS
|
|
* Current built version, hiword is majornumber, loword is minornumber
|
|
*/
|
|
DWORD WINAPI CoBuildVersion()
|
|
{
|
|
TRACE(ole,"(void)\n");
|
|
return (rmm<<16)+rup;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoInitialize [COMPOBJ.2]
|
|
* Set the win16 IMalloc used for memory management
|
|
*/
|
|
HRESULT WINAPI CoInitialize16(
|
|
LPMALLOC16 lpReserved /* [in] pointer to win16 malloc interface */
|
|
) {
|
|
currentMalloc16 = lpReserved;
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoInitialize (OLE32.26)
|
|
* Set the win32 IMalloc used for memorymanagement
|
|
*/
|
|
HRESULT WINAPI CoInitialize32(
|
|
LPMALLOC32 lpReserved /* [in] pointer to win32 malloc interface */
|
|
) {
|
|
currentMalloc32 = lpReserved;
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoUnitialize [COMPOBJ.3]
|
|
* Don't know what it does.
|
|
*/
|
|
void WINAPI CoUnitialize()
|
|
{
|
|
TRACE(ole,"(void)\n");
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoGetMalloc [COMPOBJ.4]
|
|
* 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;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoGetMalloc (OLE32.4]
|
|
* RETURNS
|
|
* The current win32 IMalloc
|
|
*/
|
|
HRESULT WINAPI CoGetMalloc32(
|
|
DWORD dwMemContext, /* [in] unknown */
|
|
LPMALLOC32 *lpMalloc /* [out] current win32 malloc interface */
|
|
) {
|
|
if(!currentMalloc32)
|
|
currentMalloc32 = IMalloc32_Constructor();
|
|
*lpMalloc = currentMalloc32;
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoDisconnectObject
|
|
*/
|
|
OLESTATUS WINAPI CoDisconnectObject( LPUNKNOWN lpUnk, DWORD reserved )
|
|
{
|
|
TRACE(ole,"%p %lx\n",lpUnk,reserved);
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsEqualGUID [COMPOBJ.18]
|
|
* Compares two Unique Identifiers
|
|
* RETURNS
|
|
* TRUE if equal
|
|
*/
|
|
BOOL16 WINAPI IsEqualGUID(
|
|
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 it's string representation into
|
|
* the GUID struct.
|
|
* RETURNS
|
|
* the converted GUID
|
|
*/
|
|
|
|
/* Class id: DWORD-WORD-WORD-BYTES[2]-BYTES[6] */
|
|
|
|
OLESTATUS WINAPI CLSIDFromString16(
|
|
LPCOLESTR16 idstr, /* [in] string representation of guid */
|
|
CLSID *id /* [out] GUID converted from string */
|
|
) {
|
|
BYTE *s = (BYTE *) idstr;
|
|
BYTE *p;
|
|
int i;
|
|
BYTE table[256];
|
|
|
|
TRACE(ole,"%s -> %p\n", idstr, id);
|
|
|
|
/* quick lookup table */
|
|
memset(table, 0, 256);
|
|
|
|
for (i = 0; i < 10; i++) {
|
|
table['0' + i] = i;
|
|
}
|
|
for (i = 0; i < 6; i++) {
|
|
table['A' + i] = i+10;
|
|
table['a' + i] = i+10;
|
|
}
|
|
|
|
/* in form {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} */
|
|
|
|
if (strlen(idstr) != 38)
|
|
return OLE_ERROR_OBJECT;
|
|
|
|
p = (BYTE *) id;
|
|
|
|
s++; /* skip leading brace */
|
|
for (i = 0; i < 4; i++) {
|
|
p[3 - i] = table[*s]<<4 | table[*(s+1)];
|
|
s += 2;
|
|
}
|
|
p += 4;
|
|
s++; /* skip - */
|
|
|
|
for (i = 0; i < 2; i++) {
|
|
p[1-i] = table[*s]<<4 | table[*(s+1)];
|
|
s += 2;
|
|
}
|
|
p += 2;
|
|
s++; /* skip - */
|
|
|
|
for (i = 0; i < 2; i++) {
|
|
p[1-i] = table[*s]<<4 | table[*(s+1)];
|
|
s += 2;
|
|
}
|
|
p += 2;
|
|
s++; /* skip - */
|
|
|
|
/* these are just sequential bytes */
|
|
for (i = 0; i < 2; i++) {
|
|
*p++ = table[*s]<<4 | table[*(s+1)];
|
|
s += 2;
|
|
}
|
|
s++; /* skip - */
|
|
|
|
for (i = 0; i < 6; i++) {
|
|
*p++ = table[*s]<<4 | table[*(s+1)];
|
|
s += 2;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CLSIDFromString (OLE32.3)
|
|
* Converts a unique identifier from it's string representation into
|
|
* the GUID struct.
|
|
* RETURNS
|
|
* the converted GUID
|
|
*/
|
|
OLESTATUS WINAPI CLSIDFromString32(
|
|
LPCOLESTR32 idstr, /* [in] string representation of GUID */
|
|
CLSID *id /* [out] GUID represented by above string */
|
|
) {
|
|
LPOLESTR16 xid = HEAP_strdupWtoA(GetProcessHeap(),0,idstr);
|
|
OLESTATUS ret = CLSIDFromString16(xid,id);
|
|
|
|
HeapFree(GetProcessHeap(),0,xid);
|
|
return ret;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* WINE_StringFromCLSID [internal]
|
|
* Converts a GUID into the respective string representation.
|
|
* RETURNS
|
|
* the string representation and OLESTATUS
|
|
*/
|
|
OLESTATUS WINAPI WINE_StringFromCLSID(
|
|
const CLSID *id, /* [in] GUID to be converted */
|
|
LPSTR idstr /* [out] pointer to buffer to contain converted guid */
|
|
) {
|
|
static const char *hex = "0123456789ABCDEF";
|
|
char *s;
|
|
int i;
|
|
|
|
sprintf(idstr, "{%08lx-%04x-%04x-%02x%02x-",
|
|
id->Data1, id->Data2, id->Data3,
|
|
id->Data4[0], id->Data4[1]);
|
|
s = &idstr[25];
|
|
|
|
/* 6 hex bytes */
|
|
for (i = 2; i < 8; i++) {
|
|
*s++ = hex[id->Data4[i]>>4];
|
|
*s++ = hex[id->Data4[i] & 0xf];
|
|
}
|
|
|
|
*s++ = '}';
|
|
*s++ = '\0';
|
|
|
|
for (i = strlen(idstr)-1; i >= 0; i--) {
|
|
idstr[i] = toupper(idstr[i]);
|
|
}
|
|
|
|
TRACE(ole,"%p->%s\n", id, idstr);
|
|
|
|
return OLE_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 OLESTATUS
|
|
*/
|
|
OLESTATUS WINAPI StringFromCLSID16(
|
|
const CLSID *id, /* [in] the GUID to be converted */
|
|
LPOLESTR16 *idstr /* [out] a pointer to a to-be-allocated segmented pointer pointing to the resulting string */
|
|
|
|
) {
|
|
LPMALLOC16 mllc;
|
|
OLESTATUS ret;
|
|
DWORD args[2];
|
|
|
|
ret = CoGetMalloc16(0,&mllc);
|
|
if (ret) return ret;
|
|
|
|
args[0] = (DWORD)mllc;
|
|
args[1] = 40;
|
|
|
|
/* No need for a Callback entry, we have WOWCallback16Ex which does
|
|
* everything we need.
|
|
*/
|
|
if (!WOWCallback16Ex(
|
|
(FARPROC16)((LPMALLOC16_VTABLE)PTR_SEG_TO_LIN(
|
|
((LPMALLOC16)PTR_SEG_TO_LIN(mllc))->lpvtbl)
|
|
)->fnAlloc,
|
|
WCB16_CDECL,
|
|
2,
|
|
(LPVOID)args,
|
|
(LPDWORD)idstr
|
|
)) {
|
|
fprintf(stderr,"CallTo16 IMalloc16 failed\n");
|
|
return E_FAIL;
|
|
}
|
|
return WINE_StringFromCLSID(id,PTR_SEG_TO_LIN(*idstr));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* StringFromCLSID [OLE32.151]
|
|
* Converts a GUID into the respective string representation.
|
|
* The target string is allocated using the OLE IMalloc.
|
|
* RETURNS
|
|
* the string representation and OLESTATUS
|
|
*/
|
|
OLESTATUS WINAPI StringFromCLSID32(
|
|
const CLSID *id, /* [in] the GUID to be converted */
|
|
LPOLESTR32 *idstr /* [out] a pointer to a to-be-allocated pointer pointing to the resulting string */
|
|
) {
|
|
char buf[80];
|
|
OLESTATUS ret;
|
|
LPMALLOC32 mllc;
|
|
|
|
if ((ret=CoGetMalloc32(0,&mllc)))
|
|
return ret;
|
|
|
|
ret=WINE_StringFromCLSID(id,buf);
|
|
if (!ret) {
|
|
*idstr = mllc->lpvtbl->fnAlloc(mllc,strlen(buf)*2+2);
|
|
lstrcpyAtoW(*idstr,buf);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* StringFromGUID2 (OLE32.152)
|
|
*
|
|
* Converts a global unique identifier into a string of an API-
|
|
* specified fixed format. (The usual {.....} stuff.)
|
|
*
|
|
* RETURNS
|
|
* The (UNICODE) string representation of the GUID in 'str'
|
|
* The length of the resulting string, 0 if there was any problem.
|
|
*/
|
|
INT32 WINAPI
|
|
StringFromGUID2(REFGUID id, LPOLESTR32 str, INT32 cmax)
|
|
{
|
|
char xguid[80];
|
|
|
|
if (WINE_StringFromCLSID(id,xguid))
|
|
return 0;
|
|
if (strlen(xguid)>=cmax)
|
|
return 0;
|
|
lstrcpyAtoW(str,xguid);
|
|
return strlen(xguid);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CLSIDFromProgID [COMPOBJ.61]
|
|
* Converts a program id into the respective GUID. (By using a registry lookup)
|
|
* RETURNS
|
|
* riid associated with the progid
|
|
*/
|
|
OLESTATUS WINAPI CLSIDFromProgID16(
|
|
LPCOLESTR16 progid, /* [in] program id as found in registry */
|
|
LPCLSID riid /* [out] associated CLSID */
|
|
) {
|
|
char *buf,buf2[80];
|
|
DWORD buf2len;
|
|
HRESULT err;
|
|
HKEY xhkey;
|
|
|
|
buf = HeapAlloc(GetProcessHeap(),0,strlen(progid)+8);
|
|
sprintf(buf,"%s\\CLSID",progid);
|
|
if ((err=RegOpenKey32A(HKEY_CLASSES_ROOT,buf,&xhkey))) {
|
|
HeapFree(GetProcessHeap(),0,buf);
|
|
return OLE_ERROR_GENERIC;
|
|
}
|
|
HeapFree(GetProcessHeap(),0,buf);
|
|
buf2len = sizeof(buf2);
|
|
if ((err=RegQueryValue32A(xhkey,NULL,buf2,&buf2len))) {
|
|
RegCloseKey(xhkey);
|
|
return OLE_ERROR_GENERIC;
|
|
}
|
|
RegCloseKey(xhkey);
|
|
return CLSIDFromString16(buf2,riid);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CLSIDFromProgID (OLE32.2)
|
|
* Converts a program id into the respective GUID. (By using a registry lookup)
|
|
* RETURNS
|
|
* riid associated with the progid
|
|
*/
|
|
OLESTATUS WINAPI CLSIDFromProgID32(
|
|
LPCOLESTR32 progid, /* [in] program id as found in registry */
|
|
LPCLSID riid /* [out] associated CLSID */
|
|
) {
|
|
LPOLESTR16 pid = HEAP_strdupWtoA(GetProcessHeap(),0,progid);
|
|
OLESTATUS ret = CLSIDFromProgID16(pid,riid);
|
|
|
|
HeapFree(GetProcessHeap(),0,pid);
|
|
return ret;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* LookupETask (COMPOBJ.94)
|
|
*/
|
|
OLESTATUS WINAPI LookupETask(LPVOID p1,LPVOID p2) {
|
|
fprintf(stderr,"LookupETask(%p,%p),stub!\n",p1,p2);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* LookupETask (COMPOBJ.201)
|
|
*/
|
|
OLESTATUS WINAPI CallObjectInWOW(LPVOID p1,LPVOID p2) {
|
|
fprintf(stderr,"CallObjectInWOW(%p,%p),stub!\n",p1,p2);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoRegisterClassObject [COMPOBJ.5]
|
|
* Don't know where it registers it ...
|
|
*/
|
|
OLESTATUS WINAPI CoRegisterClassObject16(
|
|
REFCLSID rclsid,
|
|
LPUNKNOWN pUnk,
|
|
DWORD dwClsContext,
|
|
DWORD flags,
|
|
LPDWORD lpdwRegister
|
|
) {
|
|
char buf[80];
|
|
|
|
WINE_StringFromCLSID(rclsid,buf);
|
|
|
|
FIXME(ole,"(%s,%p,0x%08lx,0x%08lx,%p),stub\n",
|
|
buf,pUnk,dwClsContext,flags,lpdwRegister
|
|
);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoRegisterClassObject (OLE32.36)
|
|
* Don't know where it registers it ...
|
|
*/
|
|
OLESTATUS WINAPI CoRegisterClassObject32(
|
|
REFCLSID rclsid,
|
|
LPUNKNOWN pUnk,
|
|
DWORD dwClsContext,
|
|
DWORD flags,
|
|
LPDWORD lpdwRegister
|
|
) {
|
|
char buf[80];
|
|
|
|
WINE_StringFromCLSID(rclsid,buf);
|
|
|
|
FIXME(ole,"(%s,%p,0x%08lx,0x%08lx,%p),stub\n",
|
|
buf,pUnk,dwClsContext,flags,lpdwRegister
|
|
);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoRegisterMessageFilter [COMPOBJ.27]
|
|
*/
|
|
OLESTATUS WINAPI CoRegisterMessageFilter16(
|
|
LPMESSAGEFILTER lpMessageFilter,
|
|
LPMESSAGEFILTER *lplpMessageFilter
|
|
) {
|
|
FIXME(ole,"(%p,%p),stub!\n",lpMessageFilter,lplpMessageFilter);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoCreateInstance [COMPOBJ.13, OLE32.7]
|
|
*/
|
|
HRESULT WINAPI CoCreateInstance(
|
|
REFCLSID rclsid,
|
|
LPUNKNOWN pUnkOuter,
|
|
DWORD dwClsContext,
|
|
REFIID riid,
|
|
LPVOID *ppv
|
|
) {
|
|
char buf[80],xbuf[80];
|
|
|
|
if (rclsid)
|
|
WINE_StringFromCLSID(rclsid,buf);
|
|
else
|
|
sprintf(buf,"<rclsid-0x%08lx>",(DWORD)rclsid);
|
|
if (riid)
|
|
WINE_StringFromCLSID(riid,xbuf);
|
|
else
|
|
sprintf(xbuf,"<riid-0x%08lx>",(DWORD)riid);
|
|
|
|
FIXME(ole,"(%s,%p,0x%08lx,%s,%p): stub !\n",buf,pUnkOuter,dwClsContext,xbuf,ppv);
|
|
*ppv = NULL;
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoFreeUnusedLibraries [COMPOBJ.17]
|
|
*/
|
|
void WINAPI CoFreeUnusedLibraries()
|
|
{
|
|
FIXME(ole,"(), stub !\n");
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoFileTimeNow [COMPOBJ.82, OLE32.10]
|
|
* RETURNS
|
|
* the current system time in lpFileTime
|
|
*/
|
|
HRESULT WINAPI CoFileTimeNow(
|
|
FILETIME *lpFileTime /* [out] the current time */
|
|
) {
|
|
DOSFS_UnixTimeToFileTime(time(NULL), lpFileTime, 0);
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoTaskMemAlloc (OLE32.43)
|
|
* RETURNS
|
|
* pointer to newly allocated block
|
|
*/
|
|
LPVOID WINAPI CoTaskMemAlloc(
|
|
ULONG size /* [in] size of memoryblock to be allocated */
|
|
) {
|
|
LPMALLOC32 lpmalloc;
|
|
HRESULT ret = CoGetMalloc32(0,&lpmalloc);
|
|
|
|
if (ret)
|
|
return NULL;
|
|
return lpmalloc->lpvtbl->fnAlloc(lpmalloc,size);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoTaskMemFree (OLE32.44)
|
|
*/
|
|
VOID WINAPI CoTaskMemFree(
|
|
LPVOID ptr /* [in] pointer to be freed */
|
|
) {
|
|
LPMALLOC32 lpmalloc;
|
|
HRESULT ret = CoGetMalloc32(0,&lpmalloc);
|
|
|
|
if (ret) return;
|
|
return lpmalloc->lpvtbl->fnFree(lpmalloc,ptr);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoInitializeWOW (OLE32.27)
|
|
*/
|
|
HRESULT WINAPI CoInitializeWOW(DWORD x,DWORD y) {
|
|
fprintf(stderr,"CoInitializeWOW(0x%08lx,0x%08lx),stub!\n",x,y);
|
|
return 0;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoLockObjectExternal (COMPOBJ.63)
|
|
*/
|
|
HRESULT WINAPI CoLockObjectExternal16(
|
|
LPUNKNOWN pUnk, /* [in] object to be locked */
|
|
BOOL16 fLock, /* [in] do lock */
|
|
BOOL16 fLastUnlockReleases /* [in] ? */
|
|
) {
|
|
fprintf(stderr,"CoLockObjectExternal(%p,%d,%d),stub!\n",pUnk,fLock,fLastUnlockReleases);
|
|
return S_OK;
|
|
}
|