dlls/packager/packager_main.c

   1 /*
   2  * Copyright 2014 Andrew Eikum for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22
  23 #define COBJMACROS
  24 #include "initguid.h"
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "ole2.h"
  28 #include "rpcproxy.h"
  29 #include "shellapi.h"
  30 #include "shlwapi.h"
  31
  32 #include "wine/debug.h"
  33
  34 #include "packager_classes.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(packager);
  37
  38 static HINSTANCE g_instance;
  39
  40 struct Package {
  41     IOleObject IOleObject_iface;
  42     IPersistStorage IPersistStorage_iface;
  43
  44     LONG ref;
  45
  46     WCHAR filename[MAX_PATH];
  47
  48     IOleClientSite *clientsite;
  49 };
  50
  51 static inline struct Package *impl_from_IOleObject(IOleObject *iface)
  52 {
  53     return CONTAINING_RECORD(iface, struct Package, IOleObject_iface);
  54 }
  55
  56 static inline struct Package *impl_from_IPersistStorage(IPersistStorage *iface)
  57 {
  58     return CONTAINING_RECORD(iface, struct Package, IPersistStorage_iface);
  59 }
  60
  61 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **obj)
  62 {
  63     struct Package *This = impl_from_IOleObject(iface);
  64
  65     if(IsEqualGUID(riid, &IID_IUnknown) ||
  66             IsEqualGUID(riid, &IID_IOleObject)) {
  67         TRACE("(%p)->(IID_IOleObject, %p)\n", This, obj);
  68         *obj = &This->IOleObject_iface;
  69     }else if(IsEqualGUID(riid, &IID_IPersistStorage)){
  70         TRACE("(%p)->(IID_IPersistStorage, %p)\n", This, obj);
  71         *obj = &This->IPersistStorage_iface;
  72     }else {
  73         FIXME("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);
  74         *obj = NULL;
  75         return E_NOINTERFACE;
  76     }
  77
  78     IUnknown_AddRef((IUnknown*)*obj);
  79     return S_OK;
  80 }
  81
  82 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
  83 {
  84     struct Package *This = impl_from_IOleObject(iface);
  85     LONG ref = InterlockedIncrement(&This->ref);
  86
  87     TRACE("(%p) ref=%d\n", This, ref);
  88
  89     return ref;
  90 }
  91
  92 static ULONG WINAPI OleObject_Release(IOleObject *iface)
  93 {
  94     struct Package *This = impl_from_IOleObject(iface);
  95     LONG ref = InterlockedDecrement(&This->ref);
  96
  97     TRACE("(%p) ref=%d\n", This, ref);
  98
  99     if(!ref){
 100         if(This->clientsite)
 101             IOleClientSite_Release(This->clientsite);
 102
 103         if(*This->filename)
 104             DeleteFileW(This->filename);
 105
 106         HeapFree(GetProcessHeap(), 0, This);
 107     }
 108
 109     return ref;
 110 }
 111
 112 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *pClientSite)
 113 {
 114     struct Package *This = impl_from_IOleObject(iface);
 115
 116     TRACE("(%p)->(%p)\n", This, pClientSite);
 117
 118     if(This->clientsite)
 119         IOleClientSite_Release(This->clientsite);
 120
 121     This->clientsite = pClientSite;
 122     if(pClientSite)
 123         IOleClientSite_AddRef(pClientSite);
 124
 125     return S_OK;
 126 }
 127
 128 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **ppClientSite)
 129 {
 130     struct Package *This = impl_from_IOleObject(iface);
 131     FIXME("(%p)->(%p)\n", This, ppClientSite);
 132     return E_NOTIMPL;
 133 }
 134
 135 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
 136 {
 137     struct Package *This = impl_from_IOleObject(iface);
 138     FIXME("(%p)->(%s, %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
 139     return E_NOTIMPL;
 140 }
 141
 142 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
 143 {
 144     struct Package *This = impl_from_IOleObject(iface);
 145
 146     TRACE("(%p)->(0x%x)\n", This, dwSaveOption);
 147
 148     if(dwSaveOption == OLECLOSE_SAVEIFDIRTY ||
 149             dwSaveOption == OLECLOSE_PROMPTSAVE)
 150         WARN("Saving unsupported\n");
 151
 152     return S_OK;
 153 }
 154
 155 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker *pmk)
 156 {
 157     struct Package *This = impl_from_IOleObject(iface);
 158     FIXME("(%p)->(%d, %p)\n", This, dwWhichMoniker, pmk);
 159     return E_NOTIMPL;
 160 }
 161
 162 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
 163 {
 164     struct Package *This = impl_from_IOleObject(iface);
 165     FIXME("(%p)->(%d, %d, %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 166     return E_NOTIMPL;
 167 }
 168
 169 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *pDataObject, BOOL fCreation,
 170                                         DWORD dwReserved)
 171 {
 172     struct Package *This = impl_from_IOleObject(iface);
 173     FIXME("(%p)->(%p, 0x%x, %d)\n", This, pDataObject, fCreation, dwReserved);
 174     return E_NOTIMPL;
 175 }
 176
 177 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, IDataObject **ppDataObject)
 178 {
 179     struct Package *This = impl_from_IOleObject(iface);
 180     FIXME("(%p)->(%d, %p)\n", This, dwReserved, ppDataObject);
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT do_activate_object(struct Package *This, HWND parent)
 185 {
 186     static const WCHAR openW[] = {'o','p','e','n',0};
 187     ShellExecuteW(parent, openW, This->filename, NULL, NULL, SW_SHOW);
 188     return S_OK;
 189 }
 190
 191 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, LPMSG lpmsg, IOleClientSite *pActiveSite,
 192                                         LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
 193 {
 194     struct Package *This = impl_from_IOleObject(iface);
 195
 196     TRACE("(%p)->(%d)\n", This, iVerb);
 197
 198     switch(iVerb){
 199     case 0:
 200         return do_activate_object(This, hwndParent);
 201     }
 202
 203     return E_INVALIDARG;
 204 }
 205
 206 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
 207 {
 208     struct Package *This = impl_from_IOleObject(iface);
 209     FIXME("(%p)->(%p)\n", This, ppEnumOleVerb);
 210     return E_NOTIMPL;
 211 }
 212
 213 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
 214 {
 215     struct Package *This = impl_from_IOleObject(iface);
 216     FIXME("(%p)\n", This);
 217     return E_NOTIMPL;
 218 }
 219
 220 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
 221 {
 222     struct Package *This = impl_from_IOleObject(iface);
 223     FIXME("(%p)\n", This);
 224     return E_NOTIMPL;
 225 }
 226
 227 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *pClsid)
 228 {
 229     struct Package *This = impl_from_IOleObject(iface);
 230     FIXME("(%p)->(%p)\n", This, pClsid);
 231     return E_NOTIMPL;
 232 }
 233
 234 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, LPOLESTR *pszUserType)
 235 {
 236     struct Package *This = impl_from_IOleObject(iface);
 237     FIXME("(%p)->(%d, %p)\n", This, dwFormOfType, pszUserType);
 238     return E_NOTIMPL;
 239 }
 240
 241 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 242 {
 243     struct Package *This = impl_from_IOleObject(iface);
 244     FIXME("(%p)->(%d, %p)\n", This, dwDrawAspect, psizel);
 245     return E_NOTIMPL;
 246 }
 247
 248 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 249 {
 250     struct Package *This = impl_from_IOleObject(iface);
 251     FIXME("(%p)->(%d, %p)\n", This, dwDrawAspect, psizel);
 252     return E_NOTIMPL;
 253 }
 254
 255 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 256 {
 257     struct Package *This = impl_from_IOleObject(iface);
 258     FIXME("(%p)->(%p, %p)\n", This, pAdvSink, pdwConnection);
 259     return E_NOTIMPL;
 260 }
 261
 262 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
 263 {
 264     struct Package *This = impl_from_IOleObject(iface);
 265     FIXME("(%p)->(%d)\n", This, dwConnection);
 266     return E_NOTIMPL;
 267 }
 268
 269 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
 270 {
 271     struct Package *This = impl_from_IOleObject(iface);
 272     FIXME("(%p)->(%p)\n", This, ppenumAdvise);
 273     return E_NOTIMPL;
 274 }
 275
 276 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
 277 {
 278     struct Package *This = impl_from_IOleObject(iface);
 279
 280     TRACE("(%p)->(%d, %p)\n", This, dwAspect, pdwStatus);
 281
 282     if(!pdwStatus)
 283         return E_INVALIDARG;
 284
 285     *pdwStatus = OLEMISC_ONLYICONIC;
 286
 287     return S_OK;
 288 }
 289
 290 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *pLogpal)
 291 {
 292     struct Package *This = impl_from_IOleObject(iface);
 293     FIXME("(%p)->(%p)\n", This, pLogpal);
 294     return E_NOTIMPL;
 295 }
 296
 297 static const IOleObjectVtbl OleObject_Vtbl = {
 298     OleObject_QueryInterface,
 299     OleObject_AddRef,
 300     OleObject_Release,
 301     OleObject_SetClientSite,
 302     OleObject_GetClientSite,
 303     OleObject_SetHostNames,
 304     OleObject_Close,
 305     OleObject_SetMoniker,
 306     OleObject_GetMoniker,
 307     OleObject_InitFromData,
 308     OleObject_GetClipboardData,
 309     OleObject_DoVerb,
 310     OleObject_EnumVerbs,
 311     OleObject_Update,
 312     OleObject_IsUpToDate,
 313     OleObject_GetUserClassID,
 314     OleObject_GetUserType,
 315     OleObject_SetExtent,
 316     OleObject_GetExtent,
 317     OleObject_Advise,
 318     OleObject_Unadvise,
 319     OleObject_EnumAdvise,
 320     OleObject_GetMiscStatus,
 321     OleObject_SetColorScheme
 322 };
 323
 324 static HRESULT WINAPI PersistStorage_QueryInterface(IPersistStorage* iface,
 325         REFIID riid, void **ppvObject)
 326 {
 327     struct Package *This = impl_from_IPersistStorage(iface);
 328
 329     return OleObject_QueryInterface(&This->IOleObject_iface, riid, ppvObject);
 330 }
 331
 332 static ULONG WINAPI PersistStorage_AddRef(IPersistStorage* iface)
 333 {
 334     struct Package *This = impl_from_IPersistStorage(iface);
 335
 336     return OleObject_AddRef(&This->IOleObject_iface);
 337 }
 338
 339 static ULONG WINAPI PersistStorage_Release(IPersistStorage* iface)
 340 {
 341     struct Package *This = impl_from_IPersistStorage(iface);
 342
 343     return OleObject_Release(&This->IOleObject_iface);
 344 }
 345
 346 static HRESULT WINAPI PersistStorage_GetClassID(IPersistStorage* iface,
 347         CLSID *pClassID)
 348 {
 349     struct Package *This = impl_from_IPersistStorage(iface);
 350     FIXME("(%p)->(%p)\n", This, pClassID);
 351     return E_NOTIMPL;
 352 }
 353
 354 static HRESULT WINAPI PersistStorage_IsDirty(IPersistStorage* iface)
 355 {
 356     struct Package *This = impl_from_IPersistStorage(iface);
 357     FIXME("(%p)\n", This);
 358     return E_NOTIMPL;
 359 }
 360
 361 static HRESULT WINAPI PersistStorage_InitNew(IPersistStorage* iface,
 362         IStorage *pStg)
 363 {
 364     struct Package *This = impl_from_IPersistStorage(iface);
 365     FIXME("(%p)->(%p)\n", This, pStg);
 366     return E_NOTIMPL;
 367 }
 368
 369 static HRESULT discard_string(struct Package *This, IStream *stream)
 370 {
 371     ULONG nbytes;
 372     HRESULT hr;
 373     char chr = 0;
 374
 375     do{
 376         hr = IStream_Read(stream, &chr, 1, &nbytes);
 377         if(FAILED(hr) || !nbytes){
 378             TRACE("Unexpected end of stream or Read failed with %08x\n", hr);
 379             return (hr == S_OK || hr == S_FALSE) ? E_FAIL : hr;
 380         }
 381     }while(chr);
 382
 383     return S_OK;
 384 }
 385
 386 static HRESULT WINAPI PersistStorage_Load(IPersistStorage* iface,
 387         IStorage *pStg)
 388 {
 389     struct Package *This = impl_from_IPersistStorage(iface);
 390     IStream *stream;
 391     DWORD payload_size, len, stream_filename_len, filenameA_len, i, bytes_read;
 392     ULARGE_INTEGER payload_pos;
 393     LARGE_INTEGER seek;
 394     HRESULT hr;
 395     HANDLE file = INVALID_HANDLE_VALUE;
 396     WCHAR filenameW[MAX_PATH];
 397     char filenameA[MAX_PATH];
 398     WCHAR *stream_filename;
 399     WCHAR *base_end, extension[MAX_PATH];
 400
 401     static const WCHAR ole10nativeW[] = {0x0001,'O','l','e','1','0','N','a','t','i','v','e',0};
 402
 403     TRACE("(%p)->(%p)\n", This, pStg);
 404
 405     hr = IStorage_OpenStream(pStg, ole10nativeW, NULL,
 406             STGM_READ | STGM_SHARE_EXCLUSIVE, 0, &stream);
 407     if(FAILED(hr)){
 408         TRACE("OpenStream gave: %08x\n", hr);
 409         return hr;
 410     }
 411
 412     /* skip stream size & two unknown bytes */
 413     seek.QuadPart = 6;
 414     hr = IStream_Seek(stream, seek, STREAM_SEEK_SET, NULL);
 415     if(FAILED(hr))
 416         goto exit;
 417
 418     /* read and discard label */
 419     hr = discard_string(This, stream);
 420     if(FAILED(hr))
 421         goto exit;
 422
 423     /* read and discard filename */
 424     hr = discard_string(This, stream);
 425     if(FAILED(hr))
 426         goto exit;
 427
 428     /* skip more unknown data */
 429     seek.QuadPart = 4;
 430     hr = IStream_Seek(stream, seek, STREAM_SEEK_CUR, NULL);
 431     if(FAILED(hr))
 432         goto exit;
 433
 434     /* ASCIIZ filename */
 435     hr = IStream_Read(stream, &filenameA_len, 4, NULL);
 436     if(FAILED(hr))
 437         goto exit;
 438
 439     hr = IStream_Read(stream, filenameA, filenameA_len, NULL);
 440     if(FAILED(hr))
 441         goto exit;
 442
 443     /* skip payload for now */
 444     hr = IStream_Read(stream, &payload_size, 4, NULL);
 445     if(FAILED(hr))
 446         goto exit;
 447
 448     seek.QuadPart = 0;
 449     hr = IStream_Seek(stream, seek, STREAM_SEEK_CUR, &payload_pos);
 450     if(FAILED(hr))
 451         goto exit;
 452
 453     seek.QuadPart = payload_size;
 454     hr = IStream_Seek(stream, seek, STREAM_SEEK_CUR, NULL);
 455     if(FAILED(hr))
 456         goto exit;
 457
 458     /* read WCHAR filename, if present */
 459     hr = IStream_Read(stream, &len, 4, &bytes_read);
 460     if(SUCCEEDED(hr) && bytes_read == 4 && len > 0){
 461         hr = IStream_Read(stream, filenameW, len * sizeof(WCHAR), NULL);
 462         if(FAILED(hr))
 463             goto exit;
 464     }else{
 465         len = MultiByteToWideChar(CP_ACP, 0, filenameA, filenameA_len,
 466                 filenameW, sizeof(filenameW) / sizeof(*filenameW));
 467     }
 468
 469     stream_filename = filenameW + len - 1;
 470     while(stream_filename != filenameW &&
 471             *stream_filename != '\\')
 472         --stream_filename;
 473     if(*stream_filename == '\\')
 474         ++stream_filename;
 475     stream_filename_len = len - (stream_filename - filenameW);
 476
 477     len = GetTempPathW(sizeof(This->filename)/sizeof(WCHAR), This->filename);
 478     memcpy(This->filename + len, stream_filename, stream_filename_len * sizeof(WCHAR));
 479     This->filename[len + stream_filename_len] = 0;
 480
 481     /* read & write payload */
 482     memcpy(&seek, &payload_pos, sizeof(seek)); /* STREAM_SEEK_SET treats as ULARGE_INTEGER */
 483     hr = IStream_Seek(stream, seek, STREAM_SEEK_SET, NULL);
 484     if(FAILED(hr))
 485         goto exit;
 486
 487     base_end = PathFindExtensionW(This->filename);
 488     lstrcpyW(extension, base_end);
 489     i = 1;
 490
 491     file = CreateFileW(This->filename, GENERIC_WRITE, FILE_SHARE_READ, NULL,
 492             CREATE_NEW, FILE_ATTRIBUTE_NORMAL, NULL);
 493     while(file == INVALID_HANDLE_VALUE){
 494         static const WCHAR fmtW[] = {' ','(','%','u',')',0};
 495
 496         if(GetLastError() != ERROR_FILE_EXISTS){
 497             WARN("CreateFile failed: %u\n", GetLastError());
 498             hr = E_FAIL;
 499             goto exit;
 500         }
 501
 502         /* file exists, so increment file name and try again */
 503         ++i;
 504         wsprintfW(base_end, fmtW, i);
 505         lstrcatW(base_end, extension);
 506
 507         file = CreateFileW(This->filename, GENERIC_WRITE, FILE_SHARE_READ, NULL,
 508                 CREATE_NEW, FILE_ATTRIBUTE_NORMAL, NULL);
 509     }
 510     TRACE("Final filename: %s\n", wine_dbgstr_w(This->filename));
 511
 512     while(payload_size){
 513         ULONG nbytes;
 514         BYTE data[4096];
 515         DWORD written;
 516
 517         hr = IStream_Read(stream, data, min(sizeof(data), payload_size), &nbytes);
 518         if(FAILED(hr) || nbytes == 0){
 519             TRACE("Unexpected end of file, or Read failed with %08x\n", hr);
 520             if(hr == S_OK || hr == S_FALSE)
 521                 hr = E_FAIL;
 522             goto exit;
 523         }
 524
 525         payload_size -= nbytes;
 526
 527         WriteFile(file, data, nbytes, &written, NULL);
 528     }
 529
 530     hr = S_OK;
 531
 532 exit:
 533     if(file != INVALID_HANDLE_VALUE){
 534         CloseHandle(file);
 535         if(FAILED(hr))
 536             DeleteFileW(This->filename);
 537     }
 538     IStream_Release(stream);
 539
 540     TRACE("Returning: %08x\n", hr);
 541     return hr;
 542 }
 543
 544 static HRESULT WINAPI PersistStorage_Save(IPersistStorage* iface,
 545         IStorage *pStgSave, BOOL fSameAsLoad)
 546 {
 547     struct Package *This = impl_from_IPersistStorage(iface);
 548     FIXME("(%p)->(%p, %u)\n", This, pStgSave, fSameAsLoad);
 549     return E_NOTIMPL;
 550 }
 551
 552 static HRESULT WINAPI PersistStorage_SaveCompleted(IPersistStorage* iface,
 553         IStorage *pStgNew)
 554 {
 555     struct Package *This = impl_from_IPersistStorage(iface);
 556     FIXME("(%p)->(%p)\n", This, pStgNew);
 557     return E_NOTIMPL;
 558 }
 559
 560 static HRESULT WINAPI PersistStorage_HandsOffStorage(IPersistStorage* iface)
 561 {
 562     struct Package *This = impl_from_IPersistStorage(iface);
 563     FIXME("(%p)\n", This);
 564     return E_NOTIMPL;
 565 }
 566
 567 static IPersistStorageVtbl PersistStorage_Vtbl = {
 568     PersistStorage_QueryInterface,
 569     PersistStorage_AddRef,
 570     PersistStorage_Release,
 571     PersistStorage_GetClassID,
 572     PersistStorage_IsDirty,
 573     PersistStorage_InitNew,
 574     PersistStorage_Load,
 575     PersistStorage_Save,
 576     PersistStorage_SaveCompleted,
 577     PersistStorage_HandsOffStorage
 578 };
 579
 580 static HRESULT WINAPI PackageCF_QueryInterface(IClassFactory *iface, REFIID riid, void **obj)
 581 {
 582     TRACE("(static)->(%s, %p)\n", debugstr_guid(riid), obj);
 583
 584     if(IsEqualGUID(&IID_IUnknown, riid) ||
 585             IsEqualGUID(&IID_IClassFactory, riid))
 586         *obj = iface;
 587     else
 588         *obj = NULL;
 589
 590     if(*obj){
 591         IUnknown_AddRef((IUnknown*)*obj);
 592         return S_OK;
 593     }
 594
 595     FIXME("Unknown interface: %s\n", debugstr_guid(riid));
 596     return E_NOINTERFACE;
 597 }
 598
 599 static ULONG WINAPI PackageCF_AddRef(IClassFactory *iface)
 600 {
 601     TRACE("(static)\n");
 602     return 2;
 603 }
 604
 605 static ULONG WINAPI PackageCF_Release(IClassFactory *iface)
 606 {
 607     TRACE("(static)\n");
 608     return 1;
 609 }
 610
 611 static HRESULT WINAPI PackageCF_CreateInstance(IClassFactory *iface, IUnknown *outer,
 612         REFIID iid, void **obj)
 613 {
 614     struct Package *package;
 615
 616     TRACE("(static)->(%p, %s, %p)\n", outer, wine_dbgstr_guid(iid), obj);
 617
 618     package = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*package));
 619     if(!package)
 620         return E_OUTOFMEMORY;
 621
 622     package->IOleObject_iface.lpVtbl = &OleObject_Vtbl;
 623     package->IPersistStorage_iface.lpVtbl = &PersistStorage_Vtbl;
 624
 625     return IOleObject_QueryInterface(&package->IOleObject_iface, iid, obj);
 626 }
 627
 628 static HRESULT WINAPI PackageCF_LockServer(IClassFactory *iface, BOOL fLock)
 629 {
 630     TRACE("(%p)->(%x)\n", iface, fLock);
 631     return S_OK;
 632 }
 633
 634 static const IClassFactoryVtbl PackageCF_Vtbl = {
 635     PackageCF_QueryInterface,
 636     PackageCF_AddRef,
 637     PackageCF_Release,
 638     PackageCF_CreateInstance,
 639     PackageCF_LockServer
 640 };
 641
 642 static IClassFactory PackageCF = {
 643     &PackageCF_Vtbl
 644 };
 645
 646 HRESULT WINAPI DllGetClassObject(REFCLSID clsid, REFIID iid, void **obj)
 647 {
 648     TRACE("(%s, %s, %p)\n", wine_dbgstr_guid(clsid), wine_dbgstr_guid(iid), obj);
 649
 650     if(IsEqualGUID(clsid, &CLSID_Package))
 651         return IClassFactory_QueryInterface(&PackageCF, iid, obj);
 652
 653     FIXME("Unknown CLSID: %s\n", wine_dbgstr_guid(clsid));
 654
 655     return CLASS_E_CLASSNOTAVAILABLE;
 656 }
 657
 658 HRESULT WINAPI DllCanUnloadNow(void)
 659 {
 660     return S_OK;
 661 }
 662
 663 HRESULT WINAPI DllRegisterServer(void)
 664 {
 665     return __wine_register_resources(g_instance);
 666 }
 667
 668 HRESULT WINAPI DllUnregisterServer(void)
 669 {
 670     return __wine_unregister_resources(g_instance);
 671 }
 672
 673 BOOL WINAPI DllMain(HINSTANCE instance, DWORD reason, void *reserved)
 674 {
 675     TRACE("(%p, %u, %p)\n", instance, reason, reserved);
 676
 677     switch(reason){
 678         case DLL_PROCESS_ATTACH:
 679             g_instance = instance;
 680             DisableThreadLibraryCalls(instance);
 681             break;
 682     }
 683
 684     return TRUE;
 685 }