dll/win32/urlmon/format.c

   1 /*
   2  * Copyright 2005 Jacek Caban
   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 "urlmon_main.h"
  20 #include "wine/debug.h"
  21
  22 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
  23
  24 static WCHAR wszEnumFORMATETC[] = {'_','E','n','u','m','F','O','R','M','A','T','E','T','C','_',0};
  25
  26 typedef struct {
  27     const IEnumFORMATETCVtbl *lpEnumFORMATETCVtbl;
  28
  29     FORMATETC *fetc;
  30     UINT fetc_cnt;
  31     UINT it;
  32
  33     LONG ref;
  34 } EnumFORMATETC;
  35
  36 static IEnumFORMATETC *EnumFORMATETC_Create(UINT cfmtetc, const FORMATETC *rgfmtetc, UINT it);
  37
  38 #define ENUMF_THIS(iface) ICOM_THIS_MULTI(EnumFORMATETC, lpEnumFORMATETCVtbl, iface)
  39
  40 static HRESULT WINAPI EnumFORMATETC_QueryInterface(IEnumFORMATETC *iface, REFIID riid, void **ppv)
  41 {
  42     TRACE("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
  43
  44     *ppv = NULL;
  45
  46     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IEnumFORMATETC, riid)) {
  47         IEnumFORMATETC_AddRef(iface);
  48         *ppv = iface;
  49         return S_OK;
  50     }
  51
  52     WARN("not supported interface %s\n", debugstr_guid(riid));
  53     return E_NOINTERFACE;
  54 }
  55
  56 static ULONG WINAPI EnumFORMATETC_AddRef(IEnumFORMATETC *iface)
  57 {
  58     ENUMF_THIS(iface);
  59     LONG ref = InterlockedIncrement(&This->ref);
  60     TRACE("(%p) ref=%d\n", This, ref);
  61     return ref;
  62 }
  63
  64 static ULONG WINAPI EnumFORMATETC_Release(IEnumFORMATETC *iface)
  65 {
  66     ENUMF_THIS(iface);
  67     LONG ref = InterlockedDecrement(&This->ref);
  68
  69     TRACE("(%p) ref=%d\n", This, ref);
  70
  71     if(!ref) {
  72         heap_free(This->fetc);
  73         heap_free(This);
  74
  75         URLMON_UnlockModule();
  76     }
  77
  78     return ref;
  79 }
  80
  81 static HRESULT WINAPI EnumFORMATETC_Next(IEnumFORMATETC *iface, ULONG celt,
  82         FORMATETC *rgelt, ULONG *pceltFetched)
  83 {
  84     ENUMF_THIS(iface);
  85     ULONG cnt;
  86
  87     TRACE("(%p)->(%d %p %p)\n", This, celt, rgelt, pceltFetched);
  88
  89     if(!rgelt)
  90         return E_INVALIDARG;
  91
  92     if(This->it >= This->fetc_cnt || !celt) {
  93         if(pceltFetched)
  94             *pceltFetched = 0;
  95         return celt ? S_FALSE : S_OK;
  96     }
  97
  98     cnt = This->fetc_cnt-This->it > celt ? celt : This->fetc_cnt-This->it;
  99
 100     memcpy(rgelt, This->fetc+This->it, cnt*sizeof(FORMATETC));
 101     This->it += cnt;
 102
 103     if(pceltFetched)
 104         *pceltFetched = cnt;
 105
 106     return cnt == celt ? S_OK : S_FALSE;
 107 }
 108
 109 static HRESULT WINAPI EnumFORMATETC_Skip(IEnumFORMATETC *iface, ULONG celt)
 110 {
 111     ENUMF_THIS(iface);
 112
 113     TRACE("(%p)->(%d)\n", This, celt);
 114
 115     This->it += celt;
 116     return This->it > This->fetc_cnt ? S_FALSE : S_OK;
 117 }
 118
 119 static HRESULT WINAPI EnumFORMATETC_Reset(IEnumFORMATETC *iface)
 120 {
 121     ENUMF_THIS(iface);
 122
 123     TRACE("(%p)\n", This);
 124
 125     This->it = 0;
 126     return S_OK;
 127 }
 128
 129 static HRESULT WINAPI EnumFORMATETC_Clone(IEnumFORMATETC *iface, IEnumFORMATETC **ppenum)
 130 {
 131     ENUMF_THIS(iface);
 132
 133     TRACE("(%p)->(%p)\n", This, ppenum);
 134
 135     if(!ppenum)
 136         return E_INVALIDARG;
 137
 138     *ppenum = EnumFORMATETC_Create(This->fetc_cnt, This->fetc, This->it);
 139     return S_OK;
 140 }
 141
 142 static const IEnumFORMATETCVtbl EnumFORMATETCVtbl = {
 143     EnumFORMATETC_QueryInterface,
 144     EnumFORMATETC_AddRef,
 145     EnumFORMATETC_Release,
 146     EnumFORMATETC_Next,
 147     EnumFORMATETC_Skip,
 148     EnumFORMATETC_Reset,
 149     EnumFORMATETC_Clone
 150 };
 151
 152 static IEnumFORMATETC *EnumFORMATETC_Create(UINT cfmtetc, const FORMATETC *rgfmtetc, UINT it)
 153 {
 154     EnumFORMATETC *ret = heap_alloc(sizeof(EnumFORMATETC));
 155
 156     URLMON_LockModule();
 157
 158     ret->lpEnumFORMATETCVtbl = &EnumFORMATETCVtbl;
 159     ret->ref = 1;
 160     ret->it = it;
 161     ret->fetc_cnt = cfmtetc;
 162
 163     ret->fetc = heap_alloc(cfmtetc*sizeof(FORMATETC));
 164     memcpy(ret->fetc, rgfmtetc, cfmtetc*sizeof(FORMATETC));
 165
 166     return (IEnumFORMATETC*)ret;
 167 }
 168
 169 /**********************************************************
 170  *      CreateFormatEnumerator (urlmon.@)
 171  */
 172 HRESULT WINAPI CreateFormatEnumerator(UINT cfmtetc, FORMATETC *rgfmtetc,
 173         IEnumFORMATETC** ppenumfmtetc)
 174 {
 175     TRACE("(%d %p %p)\n", cfmtetc, rgfmtetc, ppenumfmtetc);
 176
 177     if(!ppenumfmtetc)
 178         return E_INVALIDARG;
 179     if(!cfmtetc)
 180         return E_FAIL;
 181
 182     *ppenumfmtetc = EnumFORMATETC_Create(cfmtetc, rgfmtetc, 0);
 183     return S_OK;
 184 }
 185
 186 /**********************************************************
 187  *      RegisterFormatEnumerator (urlmon.@)
 188  */
 189 HRESULT WINAPI RegisterFormatEnumerator(LPBC pBC, IEnumFORMATETC *pEFetc, DWORD reserved)
 190 {
 191     TRACE("(%p %p %d)\n", pBC, pEFetc, reserved);
 192
 193     if(reserved)
 194         WARN("reserved != 0\n");
 195
 196     if(!pBC || !pEFetc)
 197         return E_INVALIDARG;
 198
 199     return IBindCtx_RegisterObjectParam(pBC, wszEnumFORMATETC, (IUnknown*)pEFetc);
 200 }
 201
 202 /**********************************************************
 203  *      RevokeFormatEnumerator (urlmon.@)
 204  */
 205 HRESULT WINAPI RevokeFormatEnumerator(LPBC pbc, IEnumFORMATETC *pEFetc)
 206 {
 207     TRACE("(%p %p)\n", pbc, pEFetc);
 208
 209     if(!pbc)
 210         return E_INVALIDARG;
 211
 212     return IBindCtx_RevokeObjectParam(pbc, wszEnumFORMATETC);
 213 }