reactos/dll/win32/riched20/txtsrv.c

   1 /*
   2  * RichEdit - functions and interfaces around CreateTextServices
   3  *
   4  * Copyright 2005, 2006, Maarten Lankhorst
   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 #include "editor.h"
  22
  23
  24 #ifdef __i386__  /* thiscall functions are i386-specific */
  25
  26 #define THISCALL(func) __thiscall_ ## func
  27 #define DEFINE_THISCALL_WRAPPER(func,args) \
  28    extern typeof(func) THISCALL(func); \
  29    __ASM_STDCALL_FUNC(__thiscall_ ## func, args, \
  30                    "popl %eax\n\t" \
  31                    "pushl %ecx\n\t" \
  32                    "pushl %eax\n\t" \
  33                    "jmp " __ASM_NAME(#func) __ASM_STDCALL(args) )
  34 #else /* __i386__ */
  35
  36 #define THISCALL(func) func
  37 #define DEFINE_THISCALL_WRAPPER(func,args) /* nothing */
  38
  39 #endif /* __i386__ */
  40
  41 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
  42
  43 typedef struct ITextServicesImpl {
  44    IUnknown IUnknown_inner;
  45    ITextServices ITextServices_iface;
  46    IUnknown *outer_unk;
  47    LONG ref;
  48    ITextHost *pMyHost;
  49    CRITICAL_SECTION csTxtSrv;
  50    ME_TextEditor *editor;
  51    char spare[256];
  52 } ITextServicesImpl;
  53
  54 static inline ITextServicesImpl *impl_from_IUnknown(IUnknown *iface)
  55 {
  56    return CONTAINING_RECORD(iface, ITextServicesImpl, IUnknown_inner);
  57 }
  58
  59 static HRESULT WINAPI ITextServicesImpl_QueryInterface(IUnknown *iface, REFIID riid, void **ppv)
  60 {
  61    ITextServicesImpl *This = impl_from_IUnknown(iface);
  62
  63    TRACE("(%p)->(%s, %p)\n", iface, debugstr_guid(riid), ppv);
  64
  65    if (IsEqualIID(riid, &IID_IUnknown))
  66       *ppv = &This->IUnknown_inner;
  67    else if (IsEqualIID(riid, &IID_ITextServices))
  68       *ppv = &This->ITextServices_iface;
  69    else if (IsEqualIID(riid, &IID_IRichEditOle) || IsEqualIID(riid, &IID_ITextDocument)) {
  70       if (!This->editor->reOle)
  71          if (!CreateIRichEditOle(This->outer_unk, This->editor, (void **)(&This->editor->reOle)))
  72             return E_OUTOFMEMORY;
  73       if (IsEqualIID(riid, &IID_ITextDocument))
  74          ME_GetITextDocumentInterface(This->editor->reOle, ppv);
  75       else
  76          *ppv = This->editor->reOle;
  77    } else {
  78       *ppv = NULL;
  79       FIXME("Unknown interface: %s\n", debugstr_guid(riid));
  80       return E_NOINTERFACE;
  81    }
  82
  83    IUnknown_AddRef((IUnknown*)*ppv);
  84    return S_OK;
  85 }
  86
  87 static ULONG WINAPI ITextServicesImpl_AddRef(IUnknown *iface)
  88 {
  89    ITextServicesImpl *This = impl_from_IUnknown(iface);
  90    LONG ref = InterlockedIncrement(&This->ref);
  91
  92    TRACE("(%p) ref=%d\n", This, ref);
  93
  94    return ref;
  95 }
  96
  97 static ULONG WINAPI ITextServicesImpl_Release(IUnknown *iface)
  98 {
  99    ITextServicesImpl *This = impl_from_IUnknown(iface);
 100    LONG ref = InterlockedDecrement(&This->ref);
 101
 102    TRACE("(%p) ref=%d\n", This, ref);
 103
 104    if (!ref)
 105    {
 106       ME_DestroyEditor(This->editor);
 107       This->csTxtSrv.DebugInfo->Spare[0] = 0;
 108       DeleteCriticalSection(&This->csTxtSrv);
 109       CoTaskMemFree(This);
 110    }
 111    return ref;
 112 }
 113
 114 static const IUnknownVtbl textservices_inner_vtbl =
 115 {
 116    ITextServicesImpl_QueryInterface,
 117    ITextServicesImpl_AddRef,
 118    ITextServicesImpl_Release
 119 };
 120
 121 static inline ITextServicesImpl *impl_from_ITextServices(ITextServices *iface)
 122 {
 123    return CONTAINING_RECORD(iface, ITextServicesImpl, ITextServices_iface);
 124 }
 125
 126 static HRESULT WINAPI fnTextSrv_QueryInterface(ITextServices *iface, REFIID riid, void **ppv)
 127 {
 128    ITextServicesImpl *This = impl_from_ITextServices(iface);
 129    return IUnknown_QueryInterface(This->outer_unk, riid, ppv);
 130 }
 131
 132 static ULONG WINAPI fnTextSrv_AddRef(ITextServices *iface)
 133 {
 134    ITextServicesImpl *This = impl_from_ITextServices(iface);
 135    return IUnknown_AddRef(This->outer_unk);
 136 }
 137
 138 static ULONG WINAPI fnTextSrv_Release(ITextServices *iface)
 139 {
 140    ITextServicesImpl *This = impl_from_ITextServices(iface);
 141    return IUnknown_Release(This->outer_unk);
 142 }
 143
 144 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSendMessage(ITextServices *iface, UINT msg, WPARAM wparam,
 145                                        LPARAM lparam, LRESULT *plresult)
 146 {
 147    ITextServicesImpl *This = impl_from_ITextServices(iface);
 148    HRESULT hresult;
 149    LRESULT lresult;
 150
 151    lresult = ME_HandleMessage(This->editor, msg, wparam, lparam, TRUE, &hresult);
 152    if (plresult) *plresult = lresult;
 153    return hresult;
 154 }
 155
 156 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxDraw(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 157                                 void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw, HDC hdcTargetDev,
 158                                 LPCRECTL lprcBounds, LPCRECTL lprcWBounds, LPRECT lprcUpdate,
 159                                 BOOL (CALLBACK * pfnContinue)(DWORD), DWORD dwContinue,
 160                                 LONG lViewId)
 161 {
 162    ITextServicesImpl *This = impl_from_ITextServices(iface);
 163
 164    FIXME("%p: STUB\n", This);
 165    return E_NOTIMPL;
 166 }
 167
 168 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetHScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
 169                                       LONG *plPage, BOOL *pfEnabled)
 170 {
 171    ITextServicesImpl *This = impl_from_ITextServices(iface);
 172
 173    *plMin = This->editor->horz_si.nMin;
 174    *plMax = This->editor->horz_si.nMax;
 175    *plPos = This->editor->horz_si.nPos;
 176    *plPage = This->editor->horz_si.nPage;
 177    *pfEnabled = (This->editor->styleFlags & WS_HSCROLL) != 0;
 178    return S_OK;
 179 }
 180
 181 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetVScroll(ITextServices *iface, LONG *plMin, LONG *plMax, LONG *plPos,
 182                                       LONG *plPage, BOOL *pfEnabled)
 183 {
 184    ITextServicesImpl *This = impl_from_ITextServices(iface);
 185
 186    *plMin = This->editor->vert_si.nMin;
 187    *plMax = This->editor->vert_si.nMax;
 188    *plPos = This->editor->vert_si.nPos;
 189    *plPage = This->editor->vert_si.nPage;
 190    *pfEnabled = (This->editor->styleFlags & WS_VSCROLL) != 0;
 191    return S_OK;
 192 }
 193
 194 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxSetCursor(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 195                                        void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
 196                                        HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y)
 197 {
 198    ITextServicesImpl *This = impl_from_ITextServices(iface);
 199
 200    FIXME("%p: STUB\n", This);
 201    return E_NOTIMPL;
 202 }
 203
 204 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxQueryHitPoint(ITextServices *iface, DWORD dwDrawAspect, LONG lindex,
 205                                          void *pvAspect, DVTARGETDEVICE *ptd, HDC hdcDraw,
 206                                          HDC hicTargetDev, LPCRECT lprcClient, INT x, INT y,
 207                                          DWORD *pHitResult)
 208 {
 209    ITextServicesImpl *This = impl_from_ITextServices(iface);
 210
 211    FIXME("%p: STUB\n", This);
 212    return E_NOTIMPL;
 213 }
 214
 215 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceActivate(ITextServices *iface, LPCRECT prcClient)
 216 {
 217    ITextServicesImpl *This = impl_from_ITextServices(iface);
 218
 219    FIXME("%p: STUB\n", This);
 220    return E_NOTIMPL;
 221 }
 222
 223 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxInplaceDeactivate(ITextServices *iface)
 224 {
 225    ITextServicesImpl *This = impl_from_ITextServices(iface);
 226
 227    FIXME("%p: STUB\n", This);
 228    return E_NOTIMPL;
 229 }
 230
 231 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIActivate(ITextServices *iface)
 232 {
 233    ITextServicesImpl *This = impl_from_ITextServices(iface);
 234
 235    FIXME("%p: STUB\n", This);
 236    return E_NOTIMPL;
 237 }
 238
 239 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxUIDeactivate(ITextServices *iface)
 240 {
 241    ITextServicesImpl *This = impl_from_ITextServices(iface);
 242
 243    FIXME("%p: STUB\n", This);
 244    return E_NOTIMPL;
 245 }
 246
 247 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetText(ITextServices *iface, BSTR *pbstrText)
 248 {
 249    ITextServicesImpl *This = impl_from_ITextServices(iface);
 250    int length;
 251
 252    length = ME_GetTextLength(This->editor);
 253    if (length)
 254    {
 255       ME_Cursor start;
 256       BSTR bstr;
 257       bstr = SysAllocStringByteLen(NULL, length * sizeof(WCHAR));
 258       if (bstr == NULL)
 259          return E_OUTOFMEMORY;
 260
 261       ME_CursorFromCharOfs(This->editor, 0, &start);
 262       ME_GetTextW(This->editor, bstr, length, &start, INT_MAX, FALSE, FALSE);
 263       *pbstrText = bstr;
 264    } else {
 265       *pbstrText = NULL;
 266    }
 267
 268    return S_OK;
 269 }
 270
 271 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxSetText(ITextServices *iface, LPCWSTR pszText)
 272 {
 273    ITextServicesImpl *This = impl_from_ITextServices(iface);
 274    ME_Cursor cursor;
 275
 276    ME_SetCursorToStart(This->editor, &cursor);
 277    ME_InternalDeleteText(This->editor, &cursor, ME_GetTextLength(This->editor), FALSE);
 278    if(pszText)
 279        ME_InsertTextFromCursor(This->editor, 0, pszText, -1, This->editor->pBuffer->pDefaultStyle);
 280    ME_SetSelection(This->editor, 0, 0);
 281    This->editor->nModifyStep = 0;
 282    OleFlushClipboard();
 283    ME_EmptyUndoStack(This->editor);
 284    ME_UpdateRepaint(This->editor, FALSE);
 285
 286    return S_OK;
 287 }
 288
 289 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetCurTargetX(ITextServices *iface, LONG *x)
 290 {
 291    ITextServicesImpl *This = impl_from_ITextServices(iface);
 292
 293    FIXME("%p: STUB\n", This);
 294    return E_NOTIMPL;
 295 }
 296
 297 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetBaseLinePos(ITextServices *iface, LONG *x)
 298 {
 299    ITextServicesImpl *This = impl_from_ITextServices(iface);
 300
 301    FIXME("%p: STUB\n", This);
 302    return E_NOTIMPL;
 303 }
 304
 305 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetNaturalSize(ITextServices *iface, DWORD dwAspect, HDC hdcDraw,
 306                                           HDC hicTargetDev, DVTARGETDEVICE *ptd, DWORD dwMode,
 307                                           const SIZEL *psizelExtent, LONG *pwidth, LONG *pheight)
 308 {
 309    ITextServicesImpl *This = impl_from_ITextServices(iface);
 310
 311    FIXME("%p: STUB\n", This);
 312    return E_NOTIMPL;
 313 }
 314
 315 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetDropTarget(ITextServices *iface, IDropTarget **ppDropTarget)
 316 {
 317    ITextServicesImpl *This = impl_from_ITextServices(iface);
 318
 319    FIXME("%p: STUB\n", This);
 320    return E_NOTIMPL;
 321 }
 322
 323 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_OnTxPropertyBitsChange(ITextServices *iface, DWORD dwMask, DWORD dwBits)
 324 {
 325    ITextServicesImpl *This = impl_from_ITextServices(iface);
 326
 327    FIXME("%p: STUB\n", This);
 328    return E_NOTIMPL;
 329 }
 330
 331 DECLSPEC_HIDDEN HRESULT WINAPI fnTextSrv_TxGetCachedSize(ITextServices *iface, DWORD *pdwWidth, DWORD *pdwHeight)
 332 {
 333    ITextServicesImpl *This = impl_from_ITextServices(iface);
 334
 335    FIXME("%p: STUB\n", This);
 336    return E_NOTIMPL;
 337 }
 338
 339 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxSendMessage,20)
 340 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxDraw,52)
 341 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetHScroll,24)
 342 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetVScroll,24)
 343 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxSetCursor,40)
 344 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxQueryHitPoint,44)
 345 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceActivate,8)
 346 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxInplaceDeactivate,4)
 347 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIActivate,4)
 348 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxUIDeactivate,4)
 349 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetText,8)
 350 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxSetText,8)
 351 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCurTargetX,8)
 352 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetBaseLinePos,8)
 353 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetNaturalSize,36)
 354 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetDropTarget,8)
 355 DEFINE_THISCALL_WRAPPER(fnTextSrv_OnTxPropertyBitsChange,12)
 356 DEFINE_THISCALL_WRAPPER(fnTextSrv_TxGetCachedSize,12)
 357
 358 static const ITextServicesVtbl textservices_vtbl =
 359 {
 360    fnTextSrv_QueryInterface,
 361    fnTextSrv_AddRef,
 362    fnTextSrv_Release,
 363    THISCALL(fnTextSrv_TxSendMessage),
 364    THISCALL(fnTextSrv_TxDraw),
 365    THISCALL(fnTextSrv_TxGetHScroll),
 366    THISCALL(fnTextSrv_TxGetVScroll),
 367    THISCALL(fnTextSrv_OnTxSetCursor),
 368    THISCALL(fnTextSrv_TxQueryHitPoint),
 369    THISCALL(fnTextSrv_OnTxInplaceActivate),
 370    THISCALL(fnTextSrv_OnTxInplaceDeactivate),
 371    THISCALL(fnTextSrv_OnTxUIActivate),
 372    THISCALL(fnTextSrv_OnTxUIDeactivate),
 373    THISCALL(fnTextSrv_TxGetText),
 374    THISCALL(fnTextSrv_TxSetText),
 375    THISCALL(fnTextSrv_TxGetCurTargetX),
 376    THISCALL(fnTextSrv_TxGetBaseLinePos),
 377    THISCALL(fnTextSrv_TxGetNaturalSize),
 378    THISCALL(fnTextSrv_TxGetDropTarget),
 379    THISCALL(fnTextSrv_OnTxPropertyBitsChange),
 380    THISCALL(fnTextSrv_TxGetCachedSize)
 381 };
 382
 383 /******************************************************************
 384  *        CreateTextServices (RICHED20.4)
 385  */
 386 HRESULT WINAPI CreateTextServices(IUnknown  *pUnkOuter, ITextHost *pITextHost, IUnknown  **ppUnk)
 387 {
 388    ITextServicesImpl *ITextImpl;
 389
 390    TRACE("%p %p --> %p\n", pUnkOuter, pITextHost, ppUnk);
 391    if (pITextHost == NULL)
 392       return E_POINTER;
 393
 394    ITextImpl = CoTaskMemAlloc(sizeof(*ITextImpl));
 395    if (ITextImpl == NULL)
 396       return E_OUTOFMEMORY;
 397    InitializeCriticalSection(&ITextImpl->csTxtSrv);
 398    ITextImpl->csTxtSrv.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": ITextServicesImpl.csTxtSrv");
 399    ITextImpl->ref = 1;
 400    ITextHost_AddRef(pITextHost);
 401    ITextImpl->pMyHost = pITextHost;
 402    ITextImpl->IUnknown_inner.lpVtbl = &textservices_inner_vtbl;
 403    ITextImpl->ITextServices_iface.lpVtbl = &textservices_vtbl;
 404    ITextImpl->editor = ME_MakeEditor(pITextHost, FALSE, ES_LEFT);
 405    ITextImpl->editor->exStyleFlags = 0;
 406    SetRectEmpty(&ITextImpl->editor->rcFormat);
 407
 408    if (pUnkOuter)
 409       ITextImpl->outer_unk = pUnkOuter;
 410    else
 411       ITextImpl->outer_unk = &ITextImpl->IUnknown_inner;
 412
 413    *ppUnk = &ITextImpl->IUnknown_inner;
 414    return S_OK;
 415 }