ole32: Use a helper function to access the enum format implementation.
[wine] / 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 };