Assorted spelling fixes.
[wine] / dlls / ole32 / ole16.c
1 /*
2  * 16 bit ole functions
3  *
4  * Copyright 1995 Martin von Loewis
5  * Copyright 1998 Justin Bradford
6  * Copyright 1999 Francis Beaudet
7  * Copyright 1999 Sylvain St-Germain
8  * Copyright 2002 Marcus Meissner
9  *
10  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  */
24
25 #include "config.h"
26
27 #include <stdlib.h>
28 #include <stdarg.h>
29 #include <stdio.h>
30 #include <string.h>
31 #include <assert.h>
32
33 #include "windef.h"
34 #include "winbase.h"
35 #include "winuser.h"
36 #include "objbase.h"
37 #include "ole2.h"
38 #include "ole2ver.h"
39 #include "rpc.h"
40 #include "winerror.h"
41 #include "winreg.h"
42 #include "wownt32.h"
43 #include "wtypes.h"
44 #include "wine/unicode.h"
45 #include "wine/winbase16.h"
46 #include "compobj_private.h"
47 #include "ifs.h"
48
49 #include "wine/debug.h"
50
51 WINE_DEFAULT_DEBUG_CHANNEL(ole);
52
53 static HTASK16 hETask = 0;
54 static WORD Table_ETask[62];
55
56 static LPMALLOC16 currentMalloc16=NULL;
57
58 /* --- IMalloc16 implementation */
59
60
61 typedef struct
62 {
63         /* IUnknown fields */
64         const IMalloc16Vtbl    *lpVtbl;
65         DWORD                   ref;
66         /* IMalloc16 fields */
67 } IMalloc16Impl;
68
69 /******************************************************************************
70  *              IMalloc16_QueryInterface        [COMPOBJ.500]
71  */
72 HRESULT CDECL IMalloc16_fnQueryInterface(IMalloc16* iface,REFIID refiid,LPVOID *obj) {
73         IMalloc16Impl *This = (IMalloc16Impl *)iface;
74
75         TRACE("(%p)->QueryInterface(%s,%p)\n",This,debugstr_guid(refiid),obj);
76         if (    !memcmp(&IID_IUnknown,refiid,sizeof(IID_IUnknown)) ||
77                 !memcmp(&IID_IMalloc,refiid,sizeof(IID_IMalloc))
78         ) {
79                 *obj = This;
80                 return 0;
81         }
82         return OLE_E_ENUM_NOMORE;
83 }
84
85 /******************************************************************************
86  *              IMalloc16_AddRef        [COMPOBJ.501]
87  */
88 ULONG CDECL IMalloc16_fnAddRef(IMalloc16* iface) {
89         IMalloc16Impl *This = (IMalloc16Impl *)iface;
90         TRACE("(%p)->AddRef()\n",This);
91         return 1; /* cannot be freed */
92 }
93
94 /******************************************************************************
95  *              IMalloc16_Release       [COMPOBJ.502]
96  */
97 ULONG CDECL IMalloc16_fnRelease(IMalloc16* iface) {
98         IMalloc16Impl *This = (IMalloc16Impl *)iface;
99         TRACE("(%p)->Release()\n",This);
100         return 1; /* cannot be freed */
101 }
102
103 /******************************************************************************
104  * IMalloc16_Alloc [COMPOBJ.503]
105  */
106 SEGPTR CDECL IMalloc16_fnAlloc(IMalloc16* iface,DWORD cb) {
107         IMalloc16Impl *This = (IMalloc16Impl *)iface;
108         TRACE("(%p)->Alloc(%d)\n",This,cb);
109         return MapLS( HeapAlloc( GetProcessHeap(), 0, cb ) );
110 }
111
112 /******************************************************************************
113  * IMalloc16_Free [COMPOBJ.505]
114  */
115 VOID CDECL IMalloc16_fnFree(IMalloc16* iface,SEGPTR pv)
116 {
117     void *ptr = MapSL(pv);
118     IMalloc16Impl *This = (IMalloc16Impl *)iface;
119     TRACE("(%p)->Free(%08x)\n",This,pv);
120     UnMapLS(pv);
121     HeapFree( GetProcessHeap(), 0, ptr );
122 }
123
124 /******************************************************************************
125  * IMalloc16_Realloc [COMPOBJ.504]
126  */
127 SEGPTR CDECL IMalloc16_fnRealloc(IMalloc16* iface,SEGPTR pv,DWORD cb)
128 {
129     SEGPTR ret;
130     IMalloc16Impl *This = (IMalloc16Impl *)iface;
131     TRACE("(%p)->Realloc(%08x,%d)\n",This,pv,cb);
132     if (!pv) 
133         ret = IMalloc16_fnAlloc(iface, cb);
134     else if (cb) {
135         ret = MapLS( HeapReAlloc( GetProcessHeap(), 0, MapSL(pv), cb ) );
136         UnMapLS(pv);
137     } else {
138         IMalloc16_fnFree(iface, pv);
139         ret = 0;
140     }
141     return ret;
142 }
143
144 /******************************************************************************
145  * IMalloc16_GetSize [COMPOBJ.506]
146  */
147 DWORD CDECL IMalloc16_fnGetSize(IMalloc16* iface,SEGPTR pv)
148 {
149         IMalloc16Impl *This = (IMalloc16Impl *)iface;
150         TRACE("(%p)->GetSize(%08x)\n",This,pv);
151         return HeapSize( GetProcessHeap(), 0, MapSL(pv) );
152 }
153
154 /******************************************************************************
155  * IMalloc16_DidAlloc [COMPOBJ.507]
156  */
157 INT16 CDECL IMalloc16_fnDidAlloc(IMalloc16* iface,LPVOID pv) {
158         IMalloc16 *This = (IMalloc16 *)iface;
159         TRACE("(%p)->DidAlloc(%p)\n",This,pv);
160         return (INT16)-1;
161 }
162
163 /******************************************************************************
164  * IMalloc16_HeapMinimize [COMPOBJ.508]
165  */
166 LPVOID CDECL IMalloc16_fnHeapMinimize(IMalloc16* iface) {
167         IMalloc16Impl *This = (IMalloc16Impl *)iface;
168         TRACE("(%p)->HeapMinimize()\n",This);
169         return NULL;
170 }
171
172 /******************************************************************************
173  * IMalloc16_Constructor [VTABLE]
174  */
175 LPMALLOC16
176 IMalloc16_Constructor(void)
177 {
178     static IMalloc16Vtbl vt16;
179     static SEGPTR msegvt16;
180     IMalloc16Impl* This;
181     HMODULE16 hcomp = GetModuleHandle16("COMPOBJ");
182
183     This = HeapAlloc( GetProcessHeap(), 0, sizeof(IMalloc16Impl) );
184     if (!msegvt16)
185     {
186 #define VTENT(x) vt16.x = (void*)GetProcAddress16(hcomp,"IMalloc16_"#x);assert(vt16.x)
187         VTENT(QueryInterface);
188         VTENT(AddRef);
189         VTENT(Release);
190         VTENT(Alloc);
191         VTENT(Realloc);
192         VTENT(Free);
193         VTENT(GetSize);
194         VTENT(DidAlloc);
195         VTENT(HeapMinimize);
196 #undef VTENT
197         msegvt16 = MapLS( &vt16 );
198     }
199     This->lpVtbl = (const IMalloc16Vtbl*)msegvt16;
200     This->ref = 1;
201     return (LPMALLOC16)MapLS( This );
202 }
203
204
205 /***********************************************************************
206  *           CoGetMalloc    [COMPOBJ.4]
207  *
208  * Retrieve the current win16 IMalloc interface.
209  *
210  * RETURNS
211  *      The current win16 IMalloc
212  */
213 HRESULT WINAPI CoGetMalloc16(
214         DWORD dwMemContext,     /* [in] unknown */
215         LPMALLOC16 * lpMalloc   /* [out] current win16 malloc interface */
216 ) {
217     if(!currentMalloc16)
218         currentMalloc16 = IMalloc16_Constructor();
219     *lpMalloc = currentMalloc16;
220     return S_OK;
221 }
222
223 /***********************************************************************
224  *           CoCreateStandardMalloc [COMPOBJ.71]
225  */
226 HRESULT WINAPI CoCreateStandardMalloc16(DWORD dwMemContext,
227                                           LPMALLOC16 *lpMalloc)
228 {
229     /* FIXME: docu says we shouldn't return the same allocator as in
230      * CoGetMalloc16 */
231     *lpMalloc = IMalloc16_Constructor();
232     return S_OK;
233 }
234
235 /******************************************************************************
236  *              CoInitialize    [COMPOBJ.2]
237  * Set the win16 IMalloc used for memory management
238  */
239 HRESULT WINAPI CoInitialize16(
240         LPVOID lpReserved       /* [in] pointer to win16 malloc interface */
241 ) {
242     currentMalloc16 = (LPMALLOC16)lpReserved;
243     return S_OK;
244 }
245
246 /***********************************************************************
247  *           CoUninitialize   [COMPOBJ.3]
248  * Don't know what it does.
249  * 3-Nov-98 -- this was originally misspelled, I changed it to what I
250  *   believe is the correct spelling
251  */
252 void WINAPI CoUninitialize16(void)
253 {
254   TRACE("()\n");
255   CoFreeAllLibraries();
256 }
257
258 /***********************************************************************
259  *           IsEqualGUID [COMPOBJ.18]
260  *
261  * Compares two Unique Identifiers.
262  *
263  * RETURNS
264  *      TRUE if equal
265  */
266 BOOL16 WINAPI IsEqualGUID16(
267         GUID* g1,       /* [in] unique id 1 */
268         GUID* g2)       /* [in] unique id 2 */
269 {
270     return !memcmp( g1, g2, sizeof(GUID) );
271 }
272
273 /******************************************************************************
274  *              CLSIDFromString [COMPOBJ.20]
275  * Converts a unique identifier from its string representation into
276  * the GUID struct.
277  *
278  * Class id: DWORD-WORD-WORD-BYTES[2]-BYTES[6]
279  *
280  * RETURNS
281  *      the converted GUID
282  */
283 HRESULT WINAPI CLSIDFromString16(
284         LPCOLESTR16 idstr,      /* [in] string representation of guid */
285         CLSID *id)              /* [out] GUID converted from string */
286 {
287   const BYTE *s;
288   int   i;
289   BYTE table[256];
290
291   if (!idstr) {
292     memset( id, 0, sizeof (CLSID) );
293     return S_OK;
294   }
295
296   /* validate the CLSID string */
297   if (strlen(idstr) != 38)
298     return CO_E_CLASSSTRING;
299
300   s = (const BYTE *) idstr;
301   if ((s[0]!='{') || (s[9]!='-') || (s[14]!='-') || (s[19]!='-') || (s[24]!='-') || (s[37]!='}'))
302     return CO_E_CLASSSTRING;
303
304   for (i=1; i<37; i++) {
305     if ((i == 9)||(i == 14)||(i == 19)||(i == 24)) continue;
306     if (!(((s[i] >= '0') && (s[i] <= '9'))  ||
307           ((s[i] >= 'a') && (s[i] <= 'f'))  ||
308           ((s[i] >= 'A') && (s[i] <= 'F'))))
309        return CO_E_CLASSSTRING;
310   }
311
312   TRACE("%s -> %p\n", s, id);
313
314   /* quick lookup table */
315   memset(table, 0, 256);
316
317   for (i = 0; i < 10; i++) {
318     table['0' + i] = i;
319   }
320   for (i = 0; i < 6; i++) {
321     table['A' + i] = i+10;
322     table['a' + i] = i+10;
323   }
324
325   /* in form {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} */
326
327   id->Data1 = (table[s[1]] << 28 | table[s[2]] << 24 | table[s[3]] << 20 | table[s[4]] << 16 |
328                table[s[5]] << 12 | table[s[6]] << 8  | table[s[7]] << 4  | table[s[8]]);
329   id->Data2 = table[s[10]] << 12 | table[s[11]] << 8 | table[s[12]] << 4 | table[s[13]];
330   id->Data3 = table[s[15]] << 12 | table[s[16]] << 8 | table[s[17]] << 4 | table[s[18]];
331
332   /* these are just sequential bytes */
333   id->Data4[0] = table[s[20]] << 4 | table[s[21]];
334   id->Data4[1] = table[s[22]] << 4 | table[s[23]];
335   id->Data4[2] = table[s[25]] << 4 | table[s[26]];
336   id->Data4[3] = table[s[27]] << 4 | table[s[28]];
337   id->Data4[4] = table[s[29]] << 4 | table[s[30]];
338   id->Data4[5] = table[s[31]] << 4 | table[s[32]];
339   id->Data4[6] = table[s[33]] << 4 | table[s[34]];
340   id->Data4[7] = table[s[35]] << 4 | table[s[36]];
341
342   return S_OK;
343 }
344
345 /******************************************************************************
346  *              _xmalloc16      [internal]
347  * Allocates size bytes from the standard ole16 allocator.
348  *
349  * RETURNS
350  *      the allocated segmented pointer and a HRESULT
351  */
352 static HRESULT
353 _xmalloc16(DWORD size, SEGPTR *ptr) {
354   LPMALLOC16 mllc;
355   DWORD args[2];
356
357   if (CoGetMalloc16(0,&mllc))
358     return E_OUTOFMEMORY;
359
360   args[0] = (DWORD)mllc;
361   args[1] = size;
362   /* No need for a Callback entry, we have WOWCallback16Ex which does
363    * everything we need.
364    */
365   if (!WOWCallback16Ex(
366       (DWORD)((const IMalloc16Vtbl*)MapSL(
367           (SEGPTR)((LPMALLOC16)MapSL((SEGPTR)mllc))->lpVtbl  )
368       )->Alloc,
369       WCB16_CDECL,
370       2*sizeof(DWORD),
371       (LPVOID)args,
372       (LPDWORD)ptr
373   )) {
374       ERR("CallTo16 IMalloc16 (%d) failed\n",size);
375       return E_FAIL;
376   }
377   return S_OK;
378 }
379
380 /******************************************************************************
381  *              StringFromCLSID [COMPOBJ.19]
382  * Converts a GUID into the respective string representation.
383  * The target string is allocated using the OLE IMalloc.
384  *
385  * RETURNS
386  *      the string representation and HRESULT
387  */
388
389 HRESULT WINAPI StringFromCLSID16(
390   REFCLSID id,          /* [in] the GUID to be converted */
391   LPOLESTR16 *idstr     /* [out] a pointer to a to-be-allocated segmented pointer pointing to the resulting string */
392
393 ) {
394   HRESULT ret;
395
396   ret = _xmalloc16(40,(SEGPTR*)idstr);
397   if (ret != S_OK)
398     return ret;
399   return WINE_StringFromCLSID(id,MapSL((SEGPTR)*idstr));
400 }
401
402 /******************************************************************************
403  * ProgIDFromCLSID [COMPOBJ.62]
404  *
405  * Converts a class id into the respective Program ID. (By using a registry lookup)
406  *
407  * RETURNS
408  *  S_OK on success
409  *  riid associated with the progid
410  */
411 HRESULT WINAPI ProgIDFromCLSID16(
412   REFCLSID clsid, /* [in] class id as found in registry */
413   LPOLESTR16 *lplpszProgID/* [out] associated Prog ID */
414 ) {
415   static const WCHAR wszProgID[] = {'P','r','o','g','I','D',0};
416   HKEY     hkey;
417   HRESULT  ret;
418   LONG     len;
419   char    *buffer;
420
421   ret = COM_OpenKeyForCLSID(clsid, wszProgID, KEY_READ, &hkey);
422   if (FAILED(ret))
423     return ret;
424   
425   if (RegQueryValueA(hkey, NULL, NULL, &len))
426     ret = REGDB_E_READREGDB;
427
428   if (ret == S_OK)
429   {
430     buffer = HeapAlloc(GetProcessHeap(), 0, len);
431     if (RegQueryValueA(hkey, NULL, buffer, &len))
432       ret = REGDB_E_READREGDB;
433
434     if (ret == S_OK)
435     {
436       ret = _xmalloc16(len, (SEGPTR*)lplpszProgID);
437       if (ret == S_OK)
438         strcpy(MapSL((SEGPTR)*lplpszProgID),buffer);
439     }
440     HeapFree(GetProcessHeap(), 0, buffer);
441   }
442   RegCloseKey(hkey);
443   return ret;
444 }
445
446 /***********************************************************************
447  *           LookupETask (COMPOBJ.94)
448  */
449 HRESULT WINAPI LookupETask16(HTASK16 *hTask,LPVOID p) {
450         FIXME("(%p,%p),stub!\n",hTask,p);
451         if ((*hTask = GetCurrentTask()) == hETask) {
452                 memcpy(p, Table_ETask, sizeof(Table_ETask));
453         }
454         return 0;
455 }
456
457 /***********************************************************************
458  *           SetETask (COMPOBJ.95)
459  */
460 HRESULT WINAPI SetETask16(HTASK16 hTask, LPVOID p) {
461         FIXME("(%04x,%p),stub!\n",hTask,p);
462         hETask = hTask;
463         return 0;
464 }
465
466 /***********************************************************************
467  *           CALLOBJECTINWOW (COMPOBJ.201)
468  */
469 HRESULT WINAPI CallObjectInWOW(LPVOID p1,LPVOID p2) {
470         FIXME("(%p,%p),stub!\n",p1,p2);
471         return 0;
472 }
473
474 /******************************************************************************
475  *              CoRegisterClassObject   [COMPOBJ.5]
476  *
477  * Don't know where it registers it ...
478  */
479 HRESULT WINAPI CoRegisterClassObject16(
480         REFCLSID rclsid,
481         LPUNKNOWN pUnk,
482         DWORD dwClsContext, /* [in] CLSCTX flags indicating the context in which to run the executable */
483         DWORD flags,        /* [in] REGCLS flags indicating how connections are made */
484         LPDWORD lpdwRegister
485 ) {
486         FIXME("(%s,%p,0x%08x,0x%08x,%p),stub\n",
487                 debugstr_guid(rclsid),pUnk,dwClsContext,flags,lpdwRegister
488         );
489         return 0;
490 }
491
492 /******************************************************************************
493  *      CoRevokeClassObject [COMPOBJ.6]
494  *
495  */
496 HRESULT WINAPI CoRevokeClassObject16(DWORD dwRegister) /* [in] token on class obj */
497 {
498     FIXME("(0x%08x),stub!\n", dwRegister);
499     return 0;
500 }
501
502 /******************************************************************************
503  *      CoFileTimeToDosDateTime [COMPOBJ.30]
504  */
505 BOOL16 WINAPI CoFileTimeToDosDateTime16(const FILETIME *ft, LPWORD lpDosDate, LPWORD lpDosTime)
506 {
507     return FileTimeToDosDateTime(ft, lpDosDate, lpDosTime);
508 }
509
510 /******************************************************************************
511  *      CoDosDateTimeToFileTime [COMPOBJ.31]
512  */
513 BOOL16 WINAPI CoDosDateTimeToFileTime16(WORD wDosDate, WORD wDosTime, FILETIME *ft)
514 {
515     return DosDateTimeToFileTime(wDosDate, wDosTime, ft);
516 }
517
518 /******************************************************************************
519  *              CoRegisterMessageFilter [COMPOBJ.27]
520  */
521 HRESULT WINAPI CoRegisterMessageFilter16(
522         LPMESSAGEFILTER lpMessageFilter,
523         LPMESSAGEFILTER *lplpMessageFilter
524 ) {
525         FIXME("(%p,%p),stub!\n",lpMessageFilter,lplpMessageFilter);
526         return 0;
527 }
528
529 /******************************************************************************
530  *              CoLockObjectExternal    [COMPOBJ.63]
531  */
532 HRESULT WINAPI CoLockObjectExternal16(
533     LPUNKNOWN pUnk,             /* [in] object to be locked */
534     BOOL16 fLock,               /* [in] do lock */
535     BOOL16 fLastUnlockReleases  /* [in] ? */
536 ) {
537     FIXME("(%p,%d,%d),stub!\n",pUnk,fLock,fLastUnlockReleases);
538     return S_OK;
539 }
540
541 /***********************************************************************
542  *           CoGetState [COMPOBJ.115]
543  */
544 HRESULT WINAPI CoGetState16(LPDWORD state)
545 {
546     FIXME("(%p),stub!\n", state);
547
548     *state = 0;
549     return S_OK;
550 }
551
552 /***********************************************************************
553  *      DllEntryPoint                   [COMPOBJ.116]
554  *
555  *    Initialization code for the COMPOBJ DLL
556  *
557  * RETURNS:
558  */
559 BOOL WINAPI COMPOBJ_DllEntryPoint(DWORD Reason, HINSTANCE16 hInst, WORD ds, WORD HeapSize, DWORD res1, WORD res2)
560 {
561         TRACE("(%08x, %04x, %04x, %04x, %08x, %04x)\n", Reason, hInst, ds, HeapSize, res1, res2);
562         return TRUE;
563 }
564
565 /***********************************************************************
566  *           CoMemAlloc [COMPOBJ.151]
567  */
568 SEGPTR WINAPI CoMemAlloc(DWORD size, DWORD dwMemContext, DWORD x) {
569         HRESULT         hres;
570         SEGPTR          segptr;
571
572         /* FIXME: check context handling */
573         TRACE("(%d, 0x%08x, 0x%08x)\n", size, dwMemContext, x);
574         hres = _xmalloc16(size, &segptr);
575         if (hres != S_OK)
576                 return (SEGPTR)0;
577         return segptr;
578 }
579
580 /******************************************************************************
581  *              CLSIDFromProgID [COMPOBJ.61]
582  *
583  * Converts a program ID into the respective GUID.
584  *
585  * PARAMS
586  *  progid       [I] program id as found in registry
587  *  riid         [O] associated CLSID
588  *
589  * RETURNS
590  *      Success: S_OK
591  *  Failure: CO_E_CLASSSTRING - the given ProgID cannot be found.
592  */
593 HRESULT WINAPI CLSIDFromProgID16(LPCOLESTR16 progid, LPCLSID riid)
594 {
595         char    *buf,buf2[80];
596         LONG    buf2len;
597         HRESULT err;
598         HKEY    xhkey;
599
600         buf = HeapAlloc(GetProcessHeap(),0,strlen(progid)+8);
601         sprintf(buf,"%s\\CLSID",progid);
602         if ((err=RegOpenKeyA(HKEY_CLASSES_ROOT,buf,&xhkey))) {
603                 HeapFree(GetProcessHeap(),0,buf);
604                 return CO_E_CLASSSTRING;
605         }
606         HeapFree(GetProcessHeap(),0,buf);
607         buf2len = sizeof(buf2);
608         if ((err=RegQueryValueA(xhkey,NULL,buf2,&buf2len))) {
609                 RegCloseKey(xhkey);
610                 return CO_E_CLASSSTRING;
611         }
612         RegCloseKey(xhkey);
613         return CLSIDFromString16(buf2,riid);
614 }
615
616 /***********************************************************************
617  *           CoGetClassObject [COMPOBJ.7]
618  *
619  */
620 HRESULT WINAPI CoGetClassObject16(
621     REFCLSID rclsid, DWORD dwClsContext, COSERVERINFO *pServerInfo,
622     REFIID iid, LPVOID *ppv)
623 {
624     FIXME(", stub!\n\tCLSID:\t%s,\n\tIID:\t%s\n", debugstr_guid(rclsid), debugstr_guid(iid));
625
626     if (pServerInfo) {
627         FIXME("\tpServerInfo: name=%s\n",debugstr_w(pServerInfo->pwszName));
628         FIXME("\t\tpAuthInfo=%p\n",pServerInfo->pAuthInfo);
629     }
630     return E_NOTIMPL;
631 }
632
633 /***********************************************************************
634  *           CoCreateInstance [COMPOBJ.13]
635  */
636 HRESULT WINAPI CoCreateInstance16(
637         REFCLSID rclsid,
638         LPUNKNOWN pUnkOuter,
639         DWORD dwClsContext,
640         REFIID iid,
641         LPVOID *ppv)
642 {
643   FIXME("(%s, %p, %x, %s, %p), stub!\n",
644         debugstr_guid(rclsid), pUnkOuter, dwClsContext, debugstr_guid(iid),
645         ppv
646   );
647   return E_NOTIMPL;
648 }
649
650 /***********************************************************************
651  *           DllGetClassObject                          [OLE2.4]
652  */
653 HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
654 {
655   FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
656   return E_NOTIMPL;
657 }
658
659 /******************************************************************************
660  *              GetRunningObjectTable (OLE2.30)
661  */
662 HRESULT WINAPI
663 GetRunningObjectTable16(DWORD reserved, LPRUNNINGOBJECTTABLE *pprot)
664 {
665     FIXME("(%d,%p),stub!\n",reserved,pprot);
666     return E_NOTIMPL;
667 }