dlls/riched20/clipboard.c

   1 /*
   2  * Richedit clipboard handling
   3  *
   4  * Copyright (C) 2006 Kevin Koltzau
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #define NONAMELESSUNION
  22
  23 #include "editor.h"
  24
  25 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
  26
  27 static UINT cfRTF = 0;
  28
  29 typedef struct DataObjectImpl {
  30     IDataObject IDataObject_iface;
  31     LONG ref;
  32
  33     FORMATETC *fmtetc;
  34     UINT fmtetc_cnt;
  35
  36     HANDLE unicode;
  37     HANDLE rtf;
  38 } DataObjectImpl;
  39
  40 typedef struct EnumFormatImpl {
  41     IEnumFORMATETC IEnumFORMATETC_iface;
  42     LONG ref;
  43
  44     FORMATETC *fmtetc;
  45     UINT fmtetc_cnt;
  46
  47     UINT cur;
  48 } EnumFormatImpl;
  49
  50 static HRESULT EnumFormatImpl_Create(const FORMATETC *fmtetc, UINT size, LPENUMFORMATETC *lplpformatetc);
  51
  52 static inline DataObjectImpl *impl_from_IDataObject(IDataObject *iface)
  53 {
  54     return CONTAINING_RECORD(iface, DataObjectImpl, IDataObject_iface);
  55 }
  56
  57 static inline EnumFormatImpl *impl_from_IEnumFORMATETC(IEnumFORMATETC *iface)
  58 {
  59     return CONTAINING_RECORD(iface, EnumFormatImpl, IEnumFORMATETC_iface);
  60 }
  61
  62 static HRESULT WINAPI EnumFormatImpl_QueryInterface(IEnumFORMATETC *iface, REFIID riid, LPVOID *ppvObj)
  63 {
  64     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
  65     TRACE("%p %s\n", This, debugstr_guid(riid));
  66
  67     if (IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IEnumFORMATETC)) {
  68         IEnumFORMATETC_AddRef(iface);
  69         *ppvObj = This;
  70         return S_OK;
  71     }
  72     *ppvObj = NULL;
  73     return E_NOINTERFACE;
  74 }
  75
  76 static ULONG WINAPI EnumFormatImpl_AddRef(IEnumFORMATETC *iface)
  77 {
  78     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
  79     LONG ref = InterlockedIncrement(&This->ref);
  80     TRACE("(%p) ref=%d\n", This, ref);
  81     return ref;
  82 }
  83
  84 static ULONG WINAPI EnumFormatImpl_Release(IEnumFORMATETC *iface)
  85 {
  86     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
  87     ULONG ref = InterlockedDecrement(&This->ref);
  88     TRACE("(%p) ref=%d\n", This, ref);
  89
  90     if(!ref) {
  91         GlobalFree(This->fmtetc);
  92         heap_free(This);
  93     }
  94
  95     return ref;
  96 }
  97
  98 static HRESULT WINAPI EnumFormatImpl_Next(IEnumFORMATETC *iface, ULONG celt,
  99                                           FORMATETC *rgelt, ULONG *pceltFetched)
 100 {
 101     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
 102     ULONG count = 0;
 103     TRACE("(%p)->(%d %p %p)\n", This, celt, rgelt, pceltFetched);
 104
 105     if(!rgelt)
 106         return E_INVALIDARG;
 107
 108     count = min(celt, This->fmtetc_cnt-This->cur);
 109     if(count > 0) {
 110         memcpy(rgelt, This->fmtetc+This->cur, count*sizeof(FORMATETC));
 111         This->cur += count;
 112     }
 113     if(pceltFetched)
 114         *pceltFetched = count;
 115     return count == celt ? S_OK : S_FALSE;
 116 }
 117
 118 static HRESULT WINAPI EnumFormatImpl_Skip(IEnumFORMATETC *iface, ULONG celt)
 119 {
 120     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
 121     ULONG count = 0;
 122     TRACE("(%p)->(%d)\n", This, celt);
 123
 124     count = min(celt, This->fmtetc_cnt-This->cur);
 125     This->cur += count;
 126     return count == celt ? S_OK : S_FALSE;
 127 }
 128
 129 static HRESULT WINAPI EnumFormatImpl_Reset(IEnumFORMATETC *iface)
 130 {
 131     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
 132     TRACE("(%p)\n", This);
 133
 134     This->cur = 0;
 135     return S_OK;
 136 }
 137
 138 static HRESULT WINAPI EnumFormatImpl_Clone(IEnumFORMATETC *iface, IEnumFORMATETC **ppenum)
 139 {
 140     EnumFormatImpl *This = impl_from_IEnumFORMATETC(iface);
 141     HRESULT hr;
 142     TRACE("(%p)->(%p)\n", This, ppenum);
 143
 144     if(!ppenum)
 145         return E_INVALIDARG;
 146     hr = EnumFormatImpl_Create(This->fmtetc, This->fmtetc_cnt, ppenum);
 147     if(SUCCEEDED(hr))
 148         hr = IEnumFORMATETC_Skip(*ppenum, This->cur);
 149     return hr;
 150 }
 151
 152 static const IEnumFORMATETCVtbl VT_EnumFormatImpl = {
 153     EnumFormatImpl_QueryInterface,
 154     EnumFormatImpl_AddRef,
 155     EnumFormatImpl_Release,
 156     EnumFormatImpl_Next,
 157     EnumFormatImpl_Skip,
 158     EnumFormatImpl_Reset,
 159     EnumFormatImpl_Clone
 160 };
 161
 162 static HRESULT EnumFormatImpl_Create(const FORMATETC *fmtetc, UINT fmtetc_cnt, IEnumFORMATETC **lplpformatetc)
 163 {
 164     EnumFormatImpl *ret;
 165     TRACE("\n");
 166
 167     ret = heap_alloc(sizeof(EnumFormatImpl));
 168     ret->IEnumFORMATETC_iface.lpVtbl = &VT_EnumFormatImpl;
 169     ret->ref = 1;
 170     ret->cur = 0;
 171     ret->fmtetc_cnt = fmtetc_cnt;
 172     ret->fmtetc = GlobalAlloc(GMEM_ZEROINIT, fmtetc_cnt*sizeof(FORMATETC));
 173     memcpy(ret->fmtetc, fmtetc, fmtetc_cnt*sizeof(FORMATETC));
 174     *lplpformatetc = (LPENUMFORMATETC)ret;
 175     return S_OK;
 176 }
 177
 178 static HRESULT WINAPI DataObjectImpl_QueryInterface(IDataObject *iface, REFIID riid, LPVOID *ppvObj)
 179 {
 180     DataObjectImpl *This = impl_from_IDataObject(iface);
 181     TRACE("(%p)->(%s)\n", This, debugstr_guid(riid));
 182
 183     if (IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDataObject)) {
 184         IDataObject_AddRef(iface);
 185         *ppvObj = This;
 186         return S_OK;
 187     }
 188     *ppvObj = NULL;
 189     return E_NOINTERFACE;
 190 }
 191
 192 static ULONG WINAPI DataObjectImpl_AddRef(IDataObject* iface)
 193 {
 194     DataObjectImpl *This = impl_from_IDataObject(iface);
 195     ULONG ref = InterlockedIncrement(&This->ref);
 196     TRACE("(%p) ref=%d\n", This, ref);
 197     return ref;
 198 }
 199
 200 static ULONG WINAPI DataObjectImpl_Release(IDataObject* iface)
 201 {
 202     DataObjectImpl *This = impl_from_IDataObject(iface);
 203     ULONG ref = InterlockedDecrement(&This->ref);
 204     TRACE("(%p) ref=%d\n",This, ref);
 205
 206     if(!ref) {
 207         if(This->unicode) GlobalFree(This->unicode);
 208         if(This->rtf) GlobalFree(This->rtf);
 209         if(This->fmtetc) GlobalFree(This->fmtetc);
 210         heap_free(This);
 211     }
 212
 213     return ref;
 214 }
 215
 216 static HRESULT WINAPI DataObjectImpl_GetData(IDataObject* iface, FORMATETC *pformatetc, STGMEDIUM *pmedium)
 217 {
 218     DataObjectImpl *This = impl_from_IDataObject(iface);
 219     TRACE("(%p)->(fmt=0x%08x tym=0x%08x)\n", This, pformatetc->cfFormat, pformatetc->tymed);
 220
 221     if(pformatetc->lindex != -1)
 222         return DV_E_LINDEX;
 223
 224     if(!(pformatetc->tymed & TYMED_HGLOBAL))
 225         return DV_E_TYMED;
 226
 227     if(This->unicode && pformatetc->cfFormat == CF_UNICODETEXT)
 228         pmedium->u.hGlobal = This->unicode;
 229     else if(This->rtf && pformatetc->cfFormat == cfRTF)
 230         pmedium->u.hGlobal = This->rtf;
 231     else
 232         return DV_E_FORMATETC;
 233
 234     pmedium->tymed = TYMED_HGLOBAL;
 235     pmedium->pUnkForRelease = (LPUNKNOWN)iface;
 236     IUnknown_AddRef(pmedium->pUnkForRelease);
 237     return S_OK;
 238 }
 239
 240 static HRESULT WINAPI DataObjectImpl_GetDataHere(IDataObject* iface, FORMATETC *pformatetc, STGMEDIUM *pmedium)
 241 {
 242     DataObjectImpl *This = impl_from_IDataObject(iface);
 243     FIXME("(%p): stub\n", This);
 244     return E_NOTIMPL;
 245 }
 246
 247 static HRESULT WINAPI DataObjectImpl_QueryGetData(IDataObject* iface, FORMATETC *pformatetc)
 248 {
 249     DataObjectImpl *This = impl_from_IDataObject(iface);
 250     UINT i;
 251     BOOL foundFormat = FALSE;
 252     TRACE("(%p)->(fmt=0x%08x tym=0x%08x)\n", This, pformatetc->cfFormat, pformatetc->tymed);
 253
 254     if(pformatetc->lindex != -1)
 255         return DV_E_LINDEX;
 256
 257     for(i=0; i<This->fmtetc_cnt; i++) {
 258         if(This->fmtetc[i].cfFormat == pformatetc->cfFormat) {
 259             foundFormat = TRUE;
 260             if(This->fmtetc[i].tymed == pformatetc->tymed)
 261                 return S_OK;
 262         }
 263     }
 264     return foundFormat?DV_E_FORMATETC:DV_E_TYMED;
 265 }
 266
 267 static HRESULT WINAPI DataObjectImpl_GetCanonicalFormatEtc(IDataObject* iface, FORMATETC *pformatetcIn,
 268                                                            FORMATETC *pformatetcOut)
 269 {
 270     DataObjectImpl *This = impl_from_IDataObject(iface);
 271     TRACE("(%p)->(%p,%p)\n", This, pformatetcIn, pformatetcOut);
 272
 273     if(pformatetcOut) {
 274         *pformatetcOut = *pformatetcIn;
 275         pformatetcOut->ptd = NULL;
 276     }
 277     return DATA_S_SAMEFORMATETC;
 278 }
 279
 280 static HRESULT WINAPI DataObjectImpl_SetData(IDataObject* iface, FORMATETC *pformatetc,
 281                                              STGMEDIUM *pmedium, BOOL fRelease)
 282 {
 283     DataObjectImpl *This = impl_from_IDataObject(iface);
 284     FIXME("(%p): stub\n", This);
 285     return E_NOTIMPL;
 286 }
 287
 288 static HRESULT WINAPI DataObjectImpl_EnumFormatEtc(IDataObject* iface, DWORD dwDirection,
 289                                                    IEnumFORMATETC **ppenumFormatEtc)
 290 {
 291     DataObjectImpl *This = impl_from_IDataObject(iface);
 292     TRACE("(%p)->(%d)\n", This, dwDirection);
 293
 294     if(dwDirection != DATADIR_GET) {
 295         FIXME("Unsupported direction: %d\n", dwDirection);
 296         /* WinXP riched20 also returns E_NOTIMPL in this case */
 297         *ppenumFormatEtc = NULL;
 298         return E_NOTIMPL;
 299     }
 300     return EnumFormatImpl_Create(This->fmtetc, This->fmtetc_cnt, ppenumFormatEtc);
 301 }
 302
 303 static HRESULT WINAPI DataObjectImpl_DAdvise(IDataObject* iface, FORMATETC *pformatetc, DWORD advf,
 304                                              IAdviseSink *pAdvSink, DWORD *pdwConnection)
 305 {
 306     DataObjectImpl *This = impl_from_IDataObject(iface);
 307     FIXME("(%p): stub\n", This);
 308     return E_NOTIMPL;
 309 }
 310
 311 static HRESULT WINAPI DataObjectImpl_DUnadvise(IDataObject* iface, DWORD dwConnection)
 312 {
 313     DataObjectImpl *This = impl_from_IDataObject(iface);
 314     FIXME("(%p): stub\n", This);
 315     return E_NOTIMPL;
 316 }
 317
 318 static HRESULT WINAPI DataObjectImpl_EnumDAdvise(IDataObject* iface, IEnumSTATDATA **ppenumAdvise)
 319 {
 320     DataObjectImpl *This = impl_from_IDataObject(iface);
 321     FIXME("(%p): stub\n", This);
 322     return E_NOTIMPL;
 323 }
 324
 325 static const IDataObjectVtbl VT_DataObjectImpl =
 326 {
 327     DataObjectImpl_QueryInterface,
 328     DataObjectImpl_AddRef,
 329     DataObjectImpl_Release,
 330     DataObjectImpl_GetData,
 331     DataObjectImpl_GetDataHere,
 332     DataObjectImpl_QueryGetData,
 333     DataObjectImpl_GetCanonicalFormatEtc,
 334     DataObjectImpl_SetData,
 335     DataObjectImpl_EnumFormatEtc,
 336     DataObjectImpl_DAdvise,
 337     DataObjectImpl_DUnadvise,
 338     DataObjectImpl_EnumDAdvise
 339 };
 340
 341 static HGLOBAL get_unicode_text(ME_TextEditor *editor, const ME_Cursor *start, int nChars)
 342 {
 343     int pars = 0;
 344     WCHAR *data;
 345     HANDLE ret;
 346     ME_DisplayItem *para;
 347     int nEnd = ME_GetCursorOfs(start) + nChars;
 348
 349     /* count paragraphs in range */
 350     para = start->pPara;
 351     while((para = para->member.para.next_para) &&
 352           para->member.para.nCharOfs <= nEnd)
 353         pars++;
 354
 355     ret = GlobalAlloc(GMEM_MOVEABLE, sizeof(WCHAR) * (nChars + pars + 1));
 356     data = GlobalLock(ret);
 357     ME_GetTextW(editor, data, nChars + pars, start, nChars, TRUE, FALSE);
 358     GlobalUnlock(ret);
 359     return ret;
 360 }
 361
 362 typedef struct tagME_GlobalDestStruct
 363 {
 364   HGLOBAL hData;
 365   int nLength;
 366 } ME_GlobalDestStruct;
 367
 368 static DWORD CALLBACK ME_AppendToHGLOBAL(DWORD_PTR dwCookie, LPBYTE lpBuff, LONG cb, LONG *pcb)
 369 {
 370     ME_GlobalDestStruct *pData = (ME_GlobalDestStruct *)dwCookie;
 371     int nMaxSize;
 372     BYTE *pDest;
 373
 374     nMaxSize = GlobalSize(pData->hData);
 375     if (pData->nLength+cb+1 >= cb) {
 376         /* round up to 2^17 */
 377         int nNewSize = (((nMaxSize+cb+1)|0x1FFFF)+1) & 0xFFFE0000;
 378         pData->hData = GlobalReAlloc(pData->hData, nNewSize, 0);
 379     }
 380     pDest = GlobalLock(pData->hData);
 381     memcpy(pDest + pData->nLength, lpBuff, cb);
 382     pData->nLength += cb;
 383     pDest[pData->nLength] = '\0';
 384     GlobalUnlock(pData->hData);
 385     *pcb = cb;
 386
 387     return 0;
 388 }
 389
 390 static HGLOBAL get_rtf_text(ME_TextEditor *editor, const ME_Cursor *start, int nChars)
 391 {
 392     EDITSTREAM es;
 393     ME_GlobalDestStruct gds;
 394
 395     gds.hData = GlobalAlloc(GMEM_MOVEABLE, 0);
 396     gds.nLength = 0;
 397     es.dwCookie = (DWORD_PTR)&gds;
 398     es.pfnCallback = ME_AppendToHGLOBAL;
 399     ME_StreamOutRange(editor, SF_RTF, start, nChars, &es);
 400     GlobalReAlloc(gds.hData, gds.nLength+1, 0);
 401     return gds.hData;
 402 }
 403
 404 HRESULT ME_GetDataObject(ME_TextEditor *editor, const ME_Cursor *start,
 405                          int nChars, LPDATAOBJECT *lplpdataobj)
 406 {
 407     DataObjectImpl *obj;
 408     TRACE("(%p,%d,%d)\n", editor, ME_GetCursorOfs(start), nChars);
 409
 410     obj = heap_alloc(sizeof(DataObjectImpl));
 411     if(cfRTF == 0)
 412         cfRTF = RegisterClipboardFormatA("Rich Text Format");
 413
 414     obj->IDataObject_iface.lpVtbl = &VT_DataObjectImpl;
 415     obj->ref = 1;
 416     obj->unicode = get_unicode_text(editor, start, nChars);
 417     obj->rtf = NULL;
 418
 419     obj->fmtetc_cnt = 1;
 420     if(editor->mode & TM_RICHTEXT)
 421         obj->fmtetc_cnt++;
 422     obj->fmtetc = GlobalAlloc(GMEM_ZEROINIT, obj->fmtetc_cnt*sizeof(FORMATETC));
 423     InitFormatEtc(obj->fmtetc[0], CF_UNICODETEXT, TYMED_HGLOBAL);
 424     if(editor->mode & TM_RICHTEXT) {
 425         obj->rtf = get_rtf_text(editor, start, nChars);
 426         InitFormatEtc(obj->fmtetc[1], cfRTF, TYMED_HGLOBAL);
 427     }
 428
 429     *lplpdataobj = (LPDATAOBJECT)obj;
 430     return S_OK;
 431 }