dlls/ole32/marshal.c

   1 /*
   2  *      Marshalling library
   3  *
   4  * Copyright 2002 Marcus Meissner
   5  * Copyright 2004 Mike Hearn, for CodeWeavers
   6  * Copyright 2004 Rob Shearman, for CodeWeavers
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  21  */
  22
  23 #include <stdarg.h>
  24 #include <string.h>
  25 #include <assert.h>
  26
  27 #define COBJMACROS
  28
  29 #include "windef.h"
  30 #include "winbase.h"
  31 #include "winuser.h"
  32 #include "objbase.h"
  33 #include "ole2.h"
  34 #include "winerror.h"
  35
  36 #include "compobj_private.h"
  37
  38 #include "wine/debug.h"
  39
  40 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  41
  42 HRESULT WINAPI InternalCoStdMarshalObject(REFIID riid, DWORD dest_context, void *dest_context_data, void **ppvObject);
  43
  44 static HRESULT WINAPI StdMarshalCF_QueryInterface(LPCLASSFACTORY iface,
  45                                                   REFIID riid, LPVOID *ppv)
  46 {
  47     *ppv = NULL;
  48     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IClassFactory))
  49     {
  50         *ppv = iface;
  51         return S_OK;
  52     }
  53     return E_NOINTERFACE;
  54 }
  55
  56 static ULONG WINAPI StdMarshalCF_AddRef(LPCLASSFACTORY iface)
  57 {
  58     return 2; /* non-heap based object */
  59 }
  60
  61 static ULONG WINAPI StdMarshalCF_Release(LPCLASSFACTORY iface)
  62 {
  63     return 1; /* non-heap based object */
  64 }
  65
  66 static HRESULT WINAPI StdMarshalCF_CreateInstance(LPCLASSFACTORY iface,
  67     LPUNKNOWN pUnk, REFIID riid, LPVOID *ppv)
  68 {
  69     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IMarshal))
  70         return InternalCoStdMarshalObject(riid, 0, NULL, ppv);
  71
  72     FIXME("(%s), not supported.\n",debugstr_guid(riid));
  73     return E_NOINTERFACE;
  74 }
  75
  76 static HRESULT WINAPI StdMarshalCF_LockServer(LPCLASSFACTORY iface, BOOL fLock)
  77 {
  78     FIXME("(%d), stub!\n",fLock);
  79     return S_OK;
  80 }
  81
  82 static const IClassFactoryVtbl StdMarshalCFVtbl =
  83 {
  84     StdMarshalCF_QueryInterface,
  85     StdMarshalCF_AddRef,
  86     StdMarshalCF_Release,
  87     StdMarshalCF_CreateInstance,
  88     StdMarshalCF_LockServer
  89 };
  90 static const IClassFactoryVtbl *StdMarshalCF = &StdMarshalCFVtbl;
  91
  92 HRESULT MARSHAL_GetStandardMarshalCF(LPVOID *ppv)
  93 {
  94     *ppv = &StdMarshalCF;
  95     return S_OK;
  96 }