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