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