dlls/atl/atl.c

   1 /*
   2  * Copyright 2012 Stefan Leichter
   3  * Copyright 2012 Jacek Caban for CodeWeavers
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  */
  19
  20 #define COBJMACROS
  21
  22 #include "atlbase.h"
  23 #include "atlcom.h"
  24
  25 #include "wine/debug.h"
  26 #include "wine/unicode.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(atl);
  29
  30 #define ATLVer1Size FIELD_OFFSET(_ATL_MODULEW, dwAtlBuildVer)
  31
  32 HINSTANCE atl_instance;
  33
  34 typedef unsigned char cpp_bool;
  35
  36 static inline void *heap_alloc(size_t len)
  37 {
  38     return HeapAlloc(GetProcessHeap(), 0, len);
  39 }
  40
  41 static inline BOOL heap_free(void *mem)
  42 {
  43     return HeapFree(GetProcessHeap(), 0, mem);
  44 }
  45
  46 static ICatRegister *catreg;
  47
  48 /***********************************************************************
  49  *           AtlAdvise         [atl100.@]
  50  */
  51 HRESULT WINAPI AtlAdvise(IUnknown *pUnkCP, IUnknown *pUnk, const IID *iid, DWORD *pdw)
  52 {
  53     IConnectionPointContainer *container;
  54     IConnectionPoint *cp;
  55     HRESULT hres;
  56
  57     TRACE("%p %p %p %p\n", pUnkCP, pUnk, iid, pdw);
  58
  59     if(!pUnkCP)
  60         return E_INVALIDARG;
  61
  62     hres = IUnknown_QueryInterface(pUnkCP, &IID_IConnectionPointContainer, (void**)&container);
  63     if(FAILED(hres))
  64         return hres;
  65
  66     hres = IConnectionPointContainer_FindConnectionPoint(container, iid, &cp);
  67     IConnectionPointContainer_Release(container);
  68     if(FAILED(hres))
  69         return hres;
  70
  71     hres = IConnectionPoint_Advise(cp, pUnk, pdw);
  72     IConnectionPoint_Release(cp);
  73     return hres;
  74 }
  75
  76 /***********************************************************************
  77  *           AtlUnadvise         [atl100.@]
  78  */
  79 HRESULT WINAPI AtlUnadvise(IUnknown *pUnkCP, const IID *iid, DWORD dw)
  80 {
  81     IConnectionPointContainer *container;
  82     IConnectionPoint *cp;
  83     HRESULT hres;
  84
  85     TRACE("%p %p %d\n", pUnkCP, iid, dw);
  86
  87     if(!pUnkCP)
  88         return E_INVALIDARG;
  89
  90     hres = IUnknown_QueryInterface(pUnkCP, &IID_IConnectionPointContainer, (void**)&container);
  91     if(FAILED(hres))
  92         return hres;
  93
  94     hres = IConnectionPointContainer_FindConnectionPoint(container, iid, &cp);
  95     IConnectionPointContainer_Release(container);
  96     if(FAILED(hres))
  97         return hres;
  98
  99     hres = IConnectionPoint_Unadvise(cp, dw);
 100     IConnectionPoint_Release(cp);
 101     return hres;
 102 }
 103
 104 /***********************************************************************
 105  *           AtlFreeMarshalStream         [atl100.@]
 106  */
 107 HRESULT WINAPI AtlFreeMarshalStream(IStream *stm)
 108 {
 109     FIXME("%p\n", stm);
 110     return S_OK;
 111 }
 112
 113 /***********************************************************************
 114  *           AtlMarshalPtrInProc         [atl100.@]
 115  */
 116 HRESULT WINAPI AtlMarshalPtrInProc(IUnknown *pUnk, const IID *iid, IStream **pstm)
 117 {
 118     FIXME("%p %p %p\n", pUnk, iid, pstm);
 119     return E_FAIL;
 120 }
 121
 122 /***********************************************************************
 123  *           AtlUnmarshalPtr              [atl100.@]
 124  */
 125 HRESULT WINAPI AtlUnmarshalPtr(IStream *stm, const IID *iid, IUnknown **ppUnk)
 126 {
 127     FIXME("%p %p %p\n", stm, iid, ppUnk);
 128     return E_FAIL;
 129 }
 130
 131 /***********************************************************************
 132  *           AtlCreateTargetDC         [atl100.@]
 133  */
 134 HDC WINAPI AtlCreateTargetDC( HDC hdc, DVTARGETDEVICE *dv )
 135 {
 136     static const WCHAR displayW[] = {'d','i','s','p','l','a','y',0};
 137     const WCHAR *driver = NULL, *device = NULL, *port = NULL;
 138     DEVMODEW *devmode = NULL;
 139
 140     TRACE( "(%p, %p)\n", hdc, dv );
 141
 142     if (dv)
 143     {
 144         if (dv->tdDriverNameOffset) driver  = (WCHAR *)((char *)dv + dv->tdDriverNameOffset);
 145         if (dv->tdDeviceNameOffset) device  = (WCHAR *)((char *)dv + dv->tdDeviceNameOffset);
 146         if (dv->tdPortNameOffset)   port    = (WCHAR *)((char *)dv + dv->tdPortNameOffset);
 147         if (dv->tdExtDevmodeOffset) devmode = (DEVMODEW *)((char *)dv + dv->tdExtDevmodeOffset);
 148     }
 149     else
 150     {
 151         if (hdc) return hdc;
 152         driver = displayW;
 153     }
 154     return CreateDCW( driver, device, port, devmode );
 155 }
 156
 157 /***********************************************************************
 158  *           AtlHiMetricToPixel              [atl100.@]
 159  */
 160 void WINAPI AtlHiMetricToPixel(const SIZEL* lpHiMetric, SIZEL* lpPix)
 161 {
 162     HDC dc = GetDC(NULL);
 163     lpPix->cx = lpHiMetric->cx * GetDeviceCaps( dc, LOGPIXELSX ) / 100;
 164     lpPix->cy = lpHiMetric->cy * GetDeviceCaps( dc, LOGPIXELSY ) / 100;
 165     ReleaseDC( NULL, dc );
 166 }
 167
 168 /***********************************************************************
 169  *           AtlPixelToHiMetric              [atl100.@]
 170  */
 171 void WINAPI AtlPixelToHiMetric(const SIZEL* lpPix, SIZEL* lpHiMetric)
 172 {
 173     HDC dc = GetDC(NULL);
 174     lpHiMetric->cx = 100 * lpPix->cx / GetDeviceCaps( dc, LOGPIXELSX );
 175     lpHiMetric->cy = 100 * lpPix->cy / GetDeviceCaps( dc, LOGPIXELSY );
 176     ReleaseDC( NULL, dc );
 177 }
 178
 179 /***********************************************************************
 180  *           AtlComPtrAssign              [atl100.@]
 181  */
 182 IUnknown* WINAPI AtlComPtrAssign(IUnknown** pp, IUnknown *p)
 183 {
 184     TRACE("(%p %p)\n", pp, p);
 185
 186     if (p) IUnknown_AddRef(p);
 187     if (*pp) IUnknown_Release(*pp);
 188     *pp = p;
 189     return p;
 190 }
 191
 192 /***********************************************************************
 193  *           AtlComQIPtrAssign              [atl100.@]
 194  */
 195 IUnknown* WINAPI AtlComQIPtrAssign(IUnknown** pp, IUnknown *p, REFIID riid)
 196 {
 197     IUnknown *new_p = NULL;
 198
 199     TRACE("(%p %p %s)\n", pp, p, debugstr_guid(riid));
 200
 201     if (p) IUnknown_QueryInterface(p, riid, (void **)&new_p);
 202     if (*pp) IUnknown_Release(*pp);
 203     *pp = new_p;
 204     return new_p;
 205 }
 206
 207 /***********************************************************************
 208  *           AtlInternalQueryInterface     [atl100.@]
 209  */
 210 HRESULT WINAPI AtlInternalQueryInterface(void* this, const _ATL_INTMAP_ENTRY* pEntries,  REFIID iid, void** ppvObject)
 211 {
 212     int i = 0;
 213     HRESULT rc = E_NOINTERFACE;
 214     TRACE("(%p, %p, %s, %p)\n",this, pEntries, debugstr_guid(iid), ppvObject);
 215
 216     if (IsEqualGUID(iid,&IID_IUnknown))
 217     {
 218         TRACE("Returning IUnknown\n");
 219         *ppvObject = ((LPSTR)this+pEntries[0].dw);
 220         IUnknown_AddRef((IUnknown*)*ppvObject);
 221         return S_OK;
 222     }
 223
 224     while (pEntries[i].pFunc != 0)
 225     {
 226         TRACE("Trying entry %i (%s %i %p)\n",i,debugstr_guid(pEntries[i].piid),
 227               pEntries[i].dw, pEntries[i].pFunc);
 228
 229         if (!pEntries[i].piid || IsEqualGUID(iid,pEntries[i].piid))
 230         {
 231             TRACE("MATCH\n");
 232             if (pEntries[i].pFunc == (_ATL_CREATORARGFUNC*)1)
 233             {
 234                 TRACE("Offset\n");
 235                 *ppvObject = ((LPSTR)this+pEntries[i].dw);
 236                 IUnknown_AddRef((IUnknown*)*ppvObject);
 237                 return S_OK;
 238             }
 239             else
 240             {
 241                 TRACE("Function\n");
 242                 rc = pEntries[i].pFunc(this, iid, ppvObject, pEntries[i].dw);
 243                 if(rc==S_OK || pEntries[i].piid)
 244                     return rc;
 245             }
 246         }
 247         i++;
 248     }
 249     TRACE("Done returning (0x%x)\n",rc);
 250     return rc;
 251 }
 252
 253 /***********************************************************************
 254  *           AtlIPersistStreamInit_Load      [atl100.@]
 255  */
 256 HRESULT WINAPI AtlIPersistStreamInit_Load( LPSTREAM pStm, ATL_PROPMAP_ENTRY *pMap,
 257                                            void *pThis, IUnknown *pUnk)
 258 {
 259     FIXME("(%p, %p, %p, %p)\n", pStm, pMap, pThis, pUnk);
 260
 261     return S_OK;
 262 }
 263
 264 /***********************************************************************
 265  *           AtlIPersistStreamInit_Save      [atl100.@]
 266  */
 267 HRESULT WINAPI AtlIPersistStreamInit_Save(LPSTREAM pStm, BOOL fClearDirty,
 268                                           ATL_PROPMAP_ENTRY *pMap, void *pThis,
 269                                           IUnknown *pUnk)
 270 {
 271     FIXME("(%p, %d, %p, %p, %p)\n", pStm, fClearDirty, pMap, pThis, pUnk);
 272
 273     return S_OK;
 274 }
 275
 276 /***********************************************************************
 277  *           AtlIPersistPropertyBag_Load      [atl100.@]
 278  */
 279 HRESULT WINAPI AtlIPersistPropertyBag_Load(LPPROPERTYBAG pPropBag, LPERRORLOG pErrorLog,
 280                                            ATL_PROPMAP_ENTRY *pMap, void *pThis,
 281                                            IUnknown *pUnk)
 282 {
 283     FIXME("(%p, %p, %p, %p, %p)\n", pPropBag, pErrorLog, pMap, pThis, pUnk);
 284
 285     return S_OK;
 286 }
 287
 288 /***********************************************************************
 289  *           AtlIPersistPropertyBag_Save     [atl100.@]
 290  */
 291 HRESULT WINAPI AtlIPersistPropertyBag_Save(LPPROPERTYBAG pPropBag, BOOL fClearDirty,
 292                                            BOOL fSaveAll, ATL_PROPMAP_ENTRY *pMap,
 293                                            void *pThis, IUnknown *pUnk)
 294 {
 295     FIXME("(%p, %d, %d, %p, %p, %p)\n", pPropBag, fClearDirty, fSaveAll, pMap, pThis, pUnk);
 296
 297     return S_OK;
 298 }
 299
 300 /***********************************************************************
 301  *           AtlModuleAddTermFunc            [atl100.@]
 302  */
 303 HRESULT WINAPI AtlModuleAddTermFunc(_ATL_MODULE *pM, _ATL_TERMFUNC *pFunc, DWORD_PTR dw)
 304 {
 305     _ATL_TERMFUNC_ELEM *termfunc_elem;
 306
 307     TRACE("version %04x (%p %p %ld)\n", _ATL_VER, pM, pFunc, dw);
 308
 309     if (_ATL_VER > _ATL_VER_30 || pM->cbSize > ATLVer1Size) {
 310         termfunc_elem = HeapAlloc(GetProcessHeap(), 0, sizeof(_ATL_TERMFUNC_ELEM));
 311         termfunc_elem->pFunc = pFunc;
 312         termfunc_elem->dw = dw;
 313         termfunc_elem->pNext = pM->m_pTermFuncs;
 314
 315         pM->m_pTermFuncs = termfunc_elem;
 316     }
 317
 318     return S_OK;
 319 }
 320
 321 #if _ATL_VER > _ATL_VER_30
 322
 323 /***********************************************************************
 324  *           AtlCallTermFunc              [atl100.@]
 325  */
 326 void WINAPI AtlCallTermFunc(_ATL_MODULE *pM)
 327 {
 328     _ATL_TERMFUNC_ELEM *iter = pM->m_pTermFuncs, *tmp;
 329
 330     TRACE("(%p)\n", pM);
 331
 332     while(iter) {
 333         iter->pFunc(iter->dw);
 334         tmp = iter;
 335         iter = iter->pNext;
 336         HeapFree(GetProcessHeap(), 0, tmp);
 337     }
 338
 339     pM->m_pTermFuncs = NULL;
 340 }
 341
 342 #endif
 343
 344 /***********************************************************************
 345  *           AtlLoadTypeLib             [atl100.56]
 346  */
 347 HRESULT WINAPI AtlLoadTypeLib(HINSTANCE inst, LPCOLESTR lpszIndex,
 348         BSTR *pbstrPath, ITypeLib **ppTypeLib)
 349 {
 350     size_t path_len, index_len;
 351     ITypeLib *typelib = NULL;
 352     WCHAR *path;
 353     HRESULT hres;
 354
 355     static const WCHAR tlb_extW[] = {'.','t','l','b',0};
 356
 357     TRACE("(%p %s %p %p)\n", inst, debugstr_w(lpszIndex), pbstrPath, ppTypeLib);
 358
 359     index_len = lpszIndex ? strlenW(lpszIndex) : 0;
 360     path = heap_alloc((MAX_PATH+index_len)*sizeof(WCHAR) + sizeof(tlb_extW));
 361     if(!path)
 362         return E_OUTOFMEMORY;
 363
 364     path_len = GetModuleFileNameW(inst, path, MAX_PATH);
 365     if(!path_len) {
 366         heap_free(path);
 367         return HRESULT_FROM_WIN32(GetLastError());
 368     }
 369
 370     if(index_len)
 371         memcpy(path+path_len, lpszIndex, (index_len+1)*sizeof(WCHAR));
 372
 373     hres = LoadTypeLib(path, &typelib);
 374     if(FAILED(hres)) {
 375         WCHAR *ptr;
 376
 377         for(ptr = path+path_len-1; ptr > path && *ptr != '\\' && *ptr != '.'; ptr--);
 378         if(*ptr != '.')
 379             ptr = path+path_len;
 380         memcpy(ptr, tlb_extW, sizeof(tlb_extW));
 381         hres = LoadTypeLib(path, &typelib);
 382     }
 383
 384     if(SUCCEEDED(hres)) {
 385         *pbstrPath = SysAllocString(path);
 386         if(!*pbstrPath) {
 387             ITypeLib_Release(typelib);
 388             hres = E_OUTOFMEMORY;
 389         }
 390     }
 391
 392     heap_free(path);
 393     if(FAILED(hres))
 394         return hres;
 395
 396     *ppTypeLib = typelib;
 397     return S_OK;
 398 }
 399
 400 #if _ATL_VER <= _ATL_VER_80
 401
 402 /***********************************************************************
 403  *           AtlRegisterTypeLib         [atl80.19]
 404  */
 405 HRESULT WINAPI AtlRegisterTypeLib(HINSTANCE inst, const WCHAR *index)
 406 {
 407     ITypeLib *typelib;
 408     BSTR path;
 409     HRESULT hres;
 410
 411     TRACE("(%p %s)\n", inst, debugstr_w(index));
 412
 413     hres = AtlLoadTypeLib(inst, index, &path, &typelib);
 414     if(FAILED(hres))
 415         return hres;
 416
 417     hres = RegisterTypeLib(typelib, path, NULL); /* FIXME: pass help directory */
 418     ITypeLib_Release(typelib);
 419     SysFreeString(path);
 420     return hres;
 421 }
 422
 423 #endif
 424
 425 #if _ATL_VER > _ATL_VER_30
 426
 427 /***********************************************************************
 428  *           AtlWinModuleInit                          [atl100.65]
 429  */
 430 HRESULT WINAPI AtlWinModuleInit(_ATL_WIN_MODULE *winmod)
 431 {
 432     TRACE("(%p)\n", winmod);
 433
 434     if(winmod->cbSize != sizeof(*winmod))
 435         return E_INVALIDARG;
 436
 437     InitializeCriticalSection(&winmod->m_csWindowCreate);
 438     winmod->m_pCreateWndList = NULL;
 439     return S_OK;
 440 }
 441
 442 /***********************************************************************
 443  *           AtlWinModuleAddCreateWndData              [atl100.43]
 444  */
 445 void WINAPI AtlWinModuleAddCreateWndData(_ATL_WIN_MODULE *pM, _AtlCreateWndData *pData, void *pvObject)
 446 {
 447     TRACE("(%p, %p, %p)\n", pM, pData, pvObject);
 448
 449     pData->m_pThis = pvObject;
 450     pData->m_dwThreadID = GetCurrentThreadId();
 451
 452     EnterCriticalSection(&pM->m_csWindowCreate);
 453     pData->m_pNext = pM->m_pCreateWndList;
 454     pM->m_pCreateWndList = pData;
 455     LeaveCriticalSection(&pM->m_csWindowCreate);
 456 }
 457
 458 /***********************************************************************
 459  *           AtlWinModuleExtractCreateWndData          [atl100.44]
 460  */
 461 void* WINAPI AtlWinModuleExtractCreateWndData(_ATL_WIN_MODULE *winmod)
 462 {
 463     _AtlCreateWndData *iter, *prev = NULL;
 464     DWORD thread_id;
 465
 466     TRACE("(%p)\n", winmod);
 467
 468     thread_id = GetCurrentThreadId();
 469
 470     EnterCriticalSection(&winmod->m_csWindowCreate);
 471
 472     for(iter = winmod->m_pCreateWndList; iter && iter->m_dwThreadID != thread_id; iter = iter->m_pNext)
 473         prev = iter;
 474     if(iter) {
 475         if(prev)
 476             prev->m_pNext = iter->m_pNext;
 477         else
 478             winmod->m_pCreateWndList = iter->m_pNext;
 479     }
 480
 481     LeaveCriticalSection(&winmod->m_csWindowCreate);
 482
 483     return iter ? iter->m_pThis : NULL;
 484 }
 485
 486 /***********************************************************************
 487  *           AtlComModuleGetClassObject                [atl100.15]
 488  */
 489 HRESULT WINAPI AtlComModuleGetClassObject(_ATL_COM_MODULE *pm, REFCLSID rclsid, REFIID riid, void **ppv)
 490 {
 491     _ATL_OBJMAP_ENTRY **iter;
 492     HRESULT hres;
 493
 494     TRACE("(%p %s %s %p)\n", pm, debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 495
 496     if(!pm)
 497         return E_INVALIDARG;
 498
 499     for(iter = pm->m_ppAutoObjMapFirst; iter < pm->m_ppAutoObjMapLast; iter++) {
 500         if(IsEqualCLSID((*iter)->pclsid, rclsid) && (*iter)->pfnGetClassObject) {
 501             if(!(*iter)->pCF)
 502                 hres = (*iter)->pfnGetClassObject((*iter)->pfnCreateInstance, &IID_IUnknown, (void**)&(*iter)->pCF);
 503             if((*iter)->pCF)
 504                 hres = IUnknown_QueryInterface((*iter)->pCF, riid, ppv);
 505             TRACE("returning %p (%08x)\n", *ppv, hres);
 506             return hres;
 507         }
 508     }
 509
 510     WARN("Class %s not found\n", debugstr_guid(rclsid));
 511     return CLASS_E_CLASSNOTAVAILABLE;
 512 }
 513
 514 /***********************************************************************
 515  *           AtlComModuleRegisterClassObjects   [atl100.17]
 516  */
 517 HRESULT WINAPI AtlComModuleRegisterClassObjects(_ATL_COM_MODULE *module, DWORD context, DWORD flags)
 518 {
 519     _ATL_OBJMAP_ENTRY **iter;
 520     IUnknown *unk;
 521     HRESULT hres;
 522
 523     TRACE("(%p %x %x)\n", module, context, flags);
 524
 525     if(!module)
 526         return E_INVALIDARG;
 527
 528     for(iter = module->m_ppAutoObjMapFirst; iter < module->m_ppAutoObjMapLast; iter++) {
 529         if(!(*iter)->pfnGetClassObject)
 530             continue;
 531
 532         hres = (*iter)->pfnGetClassObject((*iter)->pfnCreateInstance, &IID_IUnknown, (void**)&unk);
 533         if(FAILED(hres))
 534             return hres;
 535
 536         hres = CoRegisterClassObject((*iter)->pclsid, unk, context, flags, &(*iter)->dwRegister);
 537         IUnknown_Release(unk);
 538         if(FAILED(hres))
 539             return hres;
 540     }
 541
 542    return S_OK;
 543 }
 544
 545 /***********************************************************************
 546  *           AtlComModuleRevokeClassObjects   [atl100.20]
 547  */
 548 HRESULT WINAPI AtlComModuleRevokeClassObjects(_ATL_COM_MODULE *module)
 549 {
 550     _ATL_OBJMAP_ENTRY **iter;
 551     HRESULT hres;
 552
 553     TRACE("(%p)\n", module);
 554
 555     if(!module)
 556         return E_INVALIDARG;
 557
 558     for(iter = module->m_ppAutoObjMapFirst; iter < module->m_ppAutoObjMapLast; iter++) {
 559         hres = CoRevokeClassObject((*iter)->dwRegister);
 560         if(FAILED(hres))
 561             return hres;
 562     }
 563
 564     return S_OK;
 565 }
 566
 567 /***********************************************************************
 568  *           AtlComModuleUnregisterServer       [atl100.22]
 569  */
 570 HRESULT WINAPI AtlComModuleUnregisterServer(_ATL_COM_MODULE *mod, BOOL bRegTypeLib, const CLSID *clsid)
 571 {
 572     const struct _ATL_CATMAP_ENTRY *catmap;
 573     _ATL_OBJMAP_ENTRY **iter;
 574     HRESULT hres;
 575
 576     TRACE("(%p %x %s)\n", mod, bRegTypeLib, debugstr_guid(clsid));
 577
 578     for(iter = mod->m_ppAutoObjMapFirst; iter < mod->m_ppAutoObjMapLast; iter++) {
 579         if(!*iter || (clsid && !IsEqualCLSID((*iter)->pclsid, clsid)))
 580             continue;
 581
 582         TRACE("Unregistering clsid %s\n", debugstr_guid((*iter)->pclsid));
 583
 584         catmap = (*iter)->pfnGetCategoryMap();
 585         if(catmap) {
 586             hres = AtlRegisterClassCategoriesHelper((*iter)->pclsid, catmap, FALSE);
 587             if(FAILED(hres))
 588                 return hres;
 589         }
 590
 591         hres = (*iter)->pfnUpdateRegistry(FALSE);
 592         if(FAILED(hres))
 593             return hres;
 594     }
 595
 596     if(bRegTypeLib) {
 597         ITypeLib *typelib;
 598         TLIBATTR *attr;
 599         BSTR path;
 600
 601         hres = AtlLoadTypeLib(mod->m_hInstTypeLib, NULL, &path, &typelib);
 602         if(FAILED(hres))
 603             return hres;
 604
 605         SysFreeString(path);
 606         hres = ITypeLib_GetLibAttr(typelib, &attr);
 607         if(SUCCEEDED(hres)) {
 608             hres = UnRegisterTypeLib(&attr->guid, attr->wMajorVerNum, attr->wMinorVerNum, attr->lcid, attr->syskind);
 609             ITypeLib_ReleaseTLibAttr(typelib, attr);
 610         }
 611         ITypeLib_Release(typelib);
 612         if(FAILED(hres))
 613             return hres;
 614     }
 615
 616     return S_OK;
 617 }
 618
 619 #endif
 620
 621 /***********************************************************************
 622  *           AtlRegisterClassCategoriesHelper          [atl100.49]
 623  */
 624 HRESULT WINAPI AtlRegisterClassCategoriesHelper(REFCLSID clsid, const struct _ATL_CATMAP_ENTRY *catmap, BOOL reg)
 625 {
 626     const struct _ATL_CATMAP_ENTRY *iter;
 627     HRESULT hres;
 628
 629     TRACE("(%s %p %x)\n", debugstr_guid(clsid), catmap, reg);
 630
 631     if(!catmap)
 632         return S_OK;
 633
 634     if(!catreg) {
 635         ICatRegister *new_catreg;
 636
 637         hres = CoCreateInstance(&CLSID_StdComponentCategoriesMgr, NULL, CLSCTX_INPROC_SERVER,
 638                 &IID_ICatRegister, (void**)&new_catreg);
 639         if(FAILED(hres))
 640             return hres;
 641
 642         if(InterlockedCompareExchangePointer((void**)&catreg, new_catreg, NULL))
 643             ICatRegister_Release(new_catreg);
 644     }
 645
 646     for(iter = catmap; iter->iType != _ATL_CATMAP_ENTRY_END; iter++) {
 647         CATID catid = *iter->pcatid; /* For stupid lack of const in ICatRegister declaration. */
 648
 649         if(iter->iType == _ATL_CATMAP_ENTRY_IMPLEMENTED) {
 650             if(reg)
 651                 hres = ICatRegister_RegisterClassImplCategories(catreg, clsid, 1, &catid);
 652             else
 653                 hres = ICatRegister_UnRegisterClassImplCategories(catreg, clsid, 1, &catid);
 654         }else {
 655             if(reg)
 656                 hres = ICatRegister_RegisterClassReqCategories(catreg, clsid, 1, &catid);
 657             else
 658                 hres = ICatRegister_UnRegisterClassReqCategories(catreg, clsid, 1, &catid);
 659         }
 660         if(FAILED(hres))
 661             return hres;
 662     }
 663
 664     if(!reg) {
 665         WCHAR reg_path[256] = {'C','L','S','I','D','\\'}, *ptr = reg_path+6;
 666
 667         static const WCHAR implemented_catW[] =
 668             {'I','m','p','l','e','m','e','n','t','e','d',' ','C','a','t','e','g','o','r','i','e','s',0};
 669         static const WCHAR required_catW[] =
 670             {'R','e','q','u','i','r','e','d',' ','C','a','t','e','g','o','r','i','e','s',0};
 671
 672         ptr += StringFromGUID2(clsid, ptr, 64)-1;
 673         *ptr++ = '\\';
 674
 675         memcpy(ptr, implemented_catW, sizeof(implemented_catW));
 676         RegDeleteKeyW(HKEY_CLASSES_ROOT, reg_path);
 677
 678         memcpy(ptr, required_catW, sizeof(required_catW));
 679         RegDeleteKeyW(HKEY_CLASSES_ROOT, reg_path);
 680     }
 681
 682     return S_OK;
 683 }
 684
 685 /***********************************************************************
 686  *           AtlWaitWithMessageLoop     [atl100.24]
 687  */
 688 BOOL WINAPI AtlWaitWithMessageLoop(HANDLE handle)
 689 {
 690     MSG msg;
 691     DWORD res;
 692
 693     TRACE("(%p)\n", handle);
 694
 695     while(1) {
 696         res = MsgWaitForMultipleObjects(1, &handle, FALSE, INFINITE, QS_ALLINPUT);
 697         switch(res) {
 698         case WAIT_OBJECT_0:
 699             return TRUE;
 700         case WAIT_OBJECT_0+1:
 701             if(GetMessageW(&msg, NULL, 0, 0) < 0)
 702                 return FALSE;
 703
 704             TranslateMessage(&msg);
 705             DispatchMessageW(&msg);
 706             break;
 707         default:
 708             return FALSE;
 709         }
 710     }
 711 }
 712
 713 static HRESULT get_default_source(ITypeLib *typelib, const CLSID *clsid, IID *iid)
 714 {
 715     ITypeInfo *typeinfo, *src_typeinfo = NULL;
 716     TYPEATTR *attr;
 717     int type_flags;
 718     unsigned i;
 719     HRESULT hres;
 720
 721     hres = ITypeLib_GetTypeInfoOfGuid(typelib, clsid, &typeinfo);
 722     if(FAILED(hres))
 723         return hres;
 724
 725     hres = ITypeInfo_GetTypeAttr(typeinfo, &attr);
 726     if(FAILED(hres)) {
 727         ITypeInfo_Release(typeinfo);
 728         return hres;
 729     }
 730
 731     for(i=0; i < attr->cImplTypes; i++) {
 732         hres = ITypeInfo_GetImplTypeFlags(typeinfo, i, &type_flags);
 733         if(SUCCEEDED(hres) && type_flags == (IMPLTYPEFLAG_FSOURCE|IMPLTYPEFLAG_FDEFAULT)) {
 734             HREFTYPE ref;
 735
 736             hres = ITypeInfo_GetRefTypeOfImplType(typeinfo, i, &ref);
 737             if(SUCCEEDED(hres))
 738                 hres = ITypeInfo_GetRefTypeInfo(typeinfo, ref, &src_typeinfo);
 739             break;
 740         }
 741     }
 742
 743     ITypeInfo_ReleaseTypeAttr(typeinfo, attr);
 744     ITypeInfo_Release(typeinfo);
 745     if(FAILED(hres))
 746         return hres;
 747
 748     if(!src_typeinfo) {
 749         *iid = IID_NULL;
 750         return S_OK;
 751     }
 752
 753     hres = ITypeInfo_GetTypeAttr(src_typeinfo, &attr);
 754     if(SUCCEEDED(hres)) {
 755         *iid = attr->guid;
 756         ITypeInfo_ReleaseTypeAttr(src_typeinfo, attr);
 757     }
 758     ITypeInfo_Release(src_typeinfo);
 759     return hres;
 760 }
 761
 762 /***********************************************************************
 763  *           AtlGetObjectSourceInterface    [atl100.54]
 764  */
 765 HRESULT WINAPI AtlGetObjectSourceInterface(IUnknown *unk, GUID *libid, IID *iid, unsigned short *major, unsigned short *minor)
 766 {
 767     IProvideClassInfo2 *classinfo;
 768     ITypeInfo *typeinfo;
 769     ITypeLib *typelib;
 770     IPersist *persist;
 771     IDispatch *disp;
 772     HRESULT hres;
 773
 774     TRACE("(%p %p %p %p %p)\n", unk, libid, iid, major, minor);
 775
 776     hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
 777     if(FAILED(hres))
 778         return hres;
 779
 780     hres = IDispatch_GetTypeInfo(disp, 0, 0, &typeinfo);
 781     IDispatch_Release(disp);
 782     if(FAILED(hres))
 783         return hres;
 784
 785     hres = ITypeInfo_GetContainingTypeLib(typeinfo, &typelib, 0);
 786     ITypeInfo_Release(typeinfo);
 787     if(SUCCEEDED(hres)) {
 788         TLIBATTR *attr;
 789
 790         hres = ITypeLib_GetLibAttr(typelib, &attr);
 791         if(SUCCEEDED(hres)) {
 792             *libid = attr->guid;
 793             *major = attr->wMajorVerNum;
 794             *minor = attr->wMinorVerNum;
 795             ITypeLib_ReleaseTLibAttr(typelib, attr);
 796         }else {
 797             ITypeLib_Release(typelib);
 798         }
 799     }
 800     if(FAILED(hres))
 801         return hres;
 802
 803     hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo2, (void**)&classinfo);
 804     if(SUCCEEDED(hres)) {
 805         hres = IProvideClassInfo2_GetGUID(classinfo, GUIDKIND_DEFAULT_SOURCE_DISP_IID, iid);
 806         IProvideClassInfo2_Release(classinfo);
 807         ITypeLib_Release(typelib);
 808         return hres;
 809     }
 810
 811     hres = IUnknown_QueryInterface(unk, &IID_IPersist, (void**)&persist);
 812     if(SUCCEEDED(hres)) {
 813         CLSID clsid;
 814
 815         hres = IPersist_GetClassID(persist, &clsid);
 816         if(SUCCEEDED(hres))
 817             hres = get_default_source(typelib, &clsid, iid);
 818         IPersist_Release(persist);
 819     }
 820
 821     return hres;
 822 }
 823
 824 #if _ATL_VER >= _ATL_VER90
 825
 826 /***********************************************************************
 827  *           AtlSetPerUserRegistration [atl100.67]
 828  */
 829 HRESULT WINAPI AtlSetPerUserRegistration(cpp_bool bEnable)
 830 {
 831     FIXME("stub: bEnable: %d\n", bEnable);
 832     return E_NOTIMPL;
 833 }
 834
 835 /***********************************************************************
 836  *           AtlGetPerUserRegistration  [atl100.68]
 837  */
 838 HRESULT WINAPI AtlGetPerUserRegistration(cpp_bool *pbEnabled)
 839 {
 840     FIXME("stub: returning false\n");
 841     *pbEnabled = 0;
 842     return S_OK;
 843 }
 844
 845 #endif
 846
 847 /***********************************************************************
 848  *           AtlGetVersion              [atl100.@]
 849  */
 850 DWORD WINAPI AtlGetVersion(void *pReserved)
 851 {
 852     TRACE("version %04x (%p)\n", _ATL_VER, pReserved);
 853     return _ATL_VER;
 854 }
 855
 856 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 857 {
 858     TRACE("(0x%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 859
 860     switch(fdwReason) {
 861     case DLL_PROCESS_ATTACH:
 862         atl_instance = hinstDLL;
 863         DisableThreadLibraryCalls(hinstDLL);
 864         break;
 865     case DLL_PROCESS_DETACH:
 866         if (lpvReserved) break;
 867         if(catreg)
 868             ICatRegister_Release(catreg);
 869     }
 870
 871     return TRUE;
 872 }