Release 1.1.37.
[wine/gsoc-2012-control.git] / dlls / msctf / msctf.c
blob24b3b647ed73eabf1ee51642c91c88762ca61112
1 /*
2 * MSCTF Server DLL
4 * Copyright 2008 Aric Stewart, CodeWeavers
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.
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.
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
21 #include "config.h"
23 #include <stdarg.h>
24 #include <stdio.h>
26 #define COBJMACROS
28 #include "wine/debug.h"
29 #include "wine/list.h"
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winreg.h"
33 #include "shlwapi.h"
34 #include "shlguid.h"
35 #include "comcat.h"
36 #include "msctf.h"
38 #include "msctf_internal.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(msctf);
42 static LONG MSCTF_refCount;
44 static HINSTANCE MSCTF_hinstance;
46 typedef struct
48 DWORD id;
49 DWORD magic;
50 LPVOID data;
51 } CookieInternal;
53 typedef struct {
54 TF_LANGUAGEPROFILE LanguageProfile;
55 ITfTextInputProcessor *pITfTextInputProcessor;
56 ITfThreadMgr *pITfThreadMgr;
57 ITfKeyEventSink *pITfKeyEventSink;
58 TfClientId tid;
59 } ActivatedTextService;
61 typedef struct
63 struct list entry;
64 ActivatedTextService *ats;
65 } AtsEntry;
67 static CookieInternal *cookies;
68 static UINT id_last;
69 static UINT array_size;
71 static struct list AtsList = LIST_INIT(AtsList);
72 static UINT activated = 0;
74 DWORD tlsIndex = 0;
75 TfClientId processId = 0;
76 ITfCompartmentMgr *globalCompartmentMgr = NULL;
78 const WCHAR szwSystemTIPKey[] = {'S','O','F','T','W','A','R','E','\\','M','i','c','r','o','s','o','f','t','\\','C','T','F','\\','T','I','P',0};
79 const WCHAR szwSystemCTFKey[] = {'S','O','F','T','W','A','R','E','\\','M','i','c','r','o','s','o','f','t','\\','C','T','F',0};
81 typedef HRESULT (*LPFNCONSTRUCTOR)(IUnknown *pUnkOuter, IUnknown **ppvOut);
83 static const struct {
84 REFCLSID clsid;
85 LPFNCONSTRUCTOR ctor;
86 } ClassesTable[] = {
87 {&CLSID_TF_ThreadMgr, ThreadMgr_Constructor},
88 {&CLSID_TF_InputProcessorProfiles, InputProcessorProfiles_Constructor},
89 {&CLSID_TF_CategoryMgr, CategoryMgr_Constructor},
90 {NULL, NULL}
93 typedef struct tagClassFactory
95 const IClassFactoryVtbl *vtbl;
96 LONG ref;
97 LPFNCONSTRUCTOR ctor;
98 } ClassFactory;
100 static void ClassFactory_Destructor(ClassFactory *This)
102 TRACE("Destroying class factory %p\n", This);
103 HeapFree(GetProcessHeap(),0,This);
104 MSCTF_refCount--;
107 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, LPVOID *ppvOut)
109 *ppvOut = NULL;
110 if (IsEqualIID(riid, &IID_IClassFactory) || IsEqualIID(riid, &IID_IUnknown)) {
111 IClassFactory_AddRef(iface);
112 *ppvOut = iface;
113 return S_OK;
116 WARN("Unknown interface %s\n", debugstr_guid(riid));
117 return E_NOINTERFACE;
120 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
122 ClassFactory *This = (ClassFactory *)iface;
123 return InterlockedIncrement(&This->ref);
126 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
128 ClassFactory *This = (ClassFactory *)iface;
129 ULONG ret = InterlockedDecrement(&This->ref);
131 if (ret == 0)
132 ClassFactory_Destructor(This);
133 return ret;
136 static HRESULT WINAPI ClassFactory_CreateInstance(IClassFactory *iface, IUnknown *punkOuter, REFIID iid, LPVOID *ppvOut)
138 ClassFactory *This = (ClassFactory *)iface;
139 HRESULT ret;
140 IUnknown *obj;
142 TRACE("(%p, %p, %s, %p)\n", iface, punkOuter, debugstr_guid(iid), ppvOut);
143 ret = This->ctor(punkOuter, &obj);
144 if (FAILED(ret))
145 return ret;
146 ret = IUnknown_QueryInterface(obj, iid, ppvOut);
147 IUnknown_Release(obj);
148 return ret;
151 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
153 ClassFactory *This = (ClassFactory *)iface;
155 TRACE("(%p)->(%x)\n", This, fLock);
157 if(fLock)
158 InterlockedIncrement(&MSCTF_refCount);
159 else
160 InterlockedDecrement(&MSCTF_refCount);
162 return S_OK;
165 static const IClassFactoryVtbl ClassFactoryVtbl = {
166 /* IUnknown */
167 ClassFactory_QueryInterface,
168 ClassFactory_AddRef,
169 ClassFactory_Release,
171 /* IClassFactory*/
172 ClassFactory_CreateInstance,
173 ClassFactory_LockServer
176 static HRESULT ClassFactory_Constructor(LPFNCONSTRUCTOR ctor, LPVOID *ppvOut)
178 ClassFactory *This = HeapAlloc(GetProcessHeap(),0,sizeof(ClassFactory));
179 This->vtbl = &ClassFactoryVtbl;
180 This->ref = 1;
181 This->ctor = ctor;
182 *ppvOut = This;
183 TRACE("Created class factory %p\n", This);
184 MSCTF_refCount++;
185 return S_OK;
188 /*************************************************************************
189 * DWORD Cookie Management
191 DWORD generate_Cookie(DWORD magic, LPVOID data)
193 int i;
195 /* try to reuse IDs if possible */
196 for (i = 0; i < id_last; i++)
197 if (cookies[i].id == 0) break;
199 if (i == array_size)
201 if (!array_size)
203 cookies = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(CookieInternal) * 10);
204 if (!cookies)
206 ERR("Out of memory, Unable to alloc cookies array\n");
207 return 0;
209 array_size = 10;
211 else
213 CookieInternal *new_cookies = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, cookies,
214 sizeof(CookieInternal) * (array_size * 2));
215 if (!new_cookies)
217 ERR("Out of memory, Unable to realloc cookies array\n");
218 return 0;
220 cookies = new_cookies;
221 array_size *= 2;
225 cookies[i].id = i + 1; /* a return of 0 is used for failure */
226 cookies[i].magic = magic;
227 cookies[i].data = data;
229 if (i == id_last)
230 id_last++;
232 return cookies[i].id;
235 DWORD get_Cookie_magic(DWORD id)
237 UINT index = id - 1;
239 if (index >= id_last)
240 return 0;
242 if (cookies[index].id == 0)
243 return 0;
245 return cookies[index].magic;
248 LPVOID get_Cookie_data(DWORD id)
250 UINT index = id - 1;
252 if (index >= id_last)
253 return NULL;
255 if (cookies[index].id == 0)
256 return NULL;
258 return cookies[index].data;
261 LPVOID remove_Cookie(DWORD id)
263 UINT index = id - 1;
265 if (index >= id_last)
266 return NULL;
268 if (cookies[index].id == 0)
269 return NULL;
271 cookies[index].id = 0;
272 return cookies[index].data;
275 DWORD enumerate_Cookie(DWORD magic, DWORD *index)
277 int i;
278 for (i = *index; i < id_last; i++)
279 if (cookies[i].id != 0 && cookies[i].magic == magic)
281 *index = (i+1);
282 return cookies[i].id;
284 return 0x0;
287 /*****************************************************************************
288 * Active Text Service Management
289 *****************************************************************************/
290 static HRESULT activate_given_ts(ActivatedTextService *actsvr, ITfThreadMgr* tm)
292 HRESULT hr;
294 /* Already Active? */
295 if (actsvr->pITfTextInputProcessor)
296 return S_OK;
298 hr = CoCreateInstance (&actsvr->LanguageProfile.clsid, NULL, CLSCTX_INPROC_SERVER,
299 &IID_ITfTextInputProcessor, (void**)&actsvr->pITfTextInputProcessor);
300 if (FAILED(hr)) return hr;
302 hr = ITfTextInputProcessor_Activate(actsvr->pITfTextInputProcessor, tm, actsvr->tid);
303 if (FAILED(hr))
305 ITfTextInputProcessor_Release(actsvr->pITfTextInputProcessor);
306 actsvr->pITfTextInputProcessor = NULL;
307 return hr;
310 actsvr->pITfThreadMgr = tm;
311 ITfThreadMgr_AddRef(tm);
312 return hr;
315 static HRESULT deactivate_given_ts(ActivatedTextService *actsvr)
317 HRESULT hr = S_OK;
319 if (actsvr->pITfTextInputProcessor)
321 hr = ITfTextInputProcessor_Deactivate(actsvr->pITfTextInputProcessor);
322 ITfTextInputProcessor_Release(actsvr->pITfTextInputProcessor);
323 ITfThreadMgr_Release(actsvr->pITfThreadMgr);
324 actsvr->pITfTextInputProcessor = NULL;
325 actsvr->pITfThreadMgr = NULL;
328 return hr;
331 static void deactivate_remove_conflicting_ts(REFCLSID catid)
333 AtsEntry *ats, *cursor2;
335 LIST_FOR_EACH_ENTRY_SAFE(ats, cursor2, &AtsList, AtsEntry, entry)
337 if (IsEqualCLSID(catid,&ats->ats->LanguageProfile.catid))
339 deactivate_given_ts(ats->ats);
340 list_remove(&ats->entry);
341 HeapFree(GetProcessHeap(),0,ats->ats);
342 HeapFree(GetProcessHeap(),0,ats);
343 /* we are guarenteeing there is only 1 */
344 break;
349 HRESULT add_active_textservice(TF_LANGUAGEPROFILE *lp)
351 ActivatedTextService *actsvr;
352 ITfCategoryMgr *catmgr;
353 AtsEntry *entry;
354 ITfThreadMgr *tm = TlsGetValue(tlsIndex);
355 ITfClientId *clientid;
357 if (!tm) return E_UNEXPECTED;
359 actsvr = HeapAlloc(GetProcessHeap(),0,sizeof(ActivatedTextService));
360 if (!actsvr) return E_OUTOFMEMORY;
362 ITfThreadMgr_QueryInterface(tm,&IID_ITfClientId,(LPVOID)&clientid);
363 ITfClientId_GetClientId(clientid, &lp->clsid, &actsvr->tid);
364 ITfClientId_Release(clientid);
366 if (!actsvr->tid)
368 HeapFree(GetProcessHeap(),0,actsvr);
369 return E_OUTOFMEMORY;
372 actsvr->pITfTextInputProcessor = NULL;
373 actsvr->LanguageProfile = *lp;
374 actsvr->LanguageProfile.fActive = TRUE;
375 actsvr->pITfKeyEventSink = NULL;
377 /* get TIP category */
378 if (SUCCEEDED(CategoryMgr_Constructor(NULL,(IUnknown**)&catmgr)))
380 static const GUID *list[3] = {&GUID_TFCAT_TIP_SPEECH, &GUID_TFCAT_TIP_KEYBOARD, &GUID_TFCAT_TIP_HANDWRITING};
382 ITfCategoryMgr_FindClosestCategory(catmgr,
383 &actsvr->LanguageProfile.clsid, &actsvr->LanguageProfile.catid,
384 list, 3);
386 ITfCategoryMgr_Release(catmgr);
388 else
390 ERR("CategoryMgr construction failed\n");
391 actsvr->LanguageProfile.catid = GUID_NULL;
394 if (!IsEqualGUID(&actsvr->LanguageProfile.catid,&GUID_NULL))
395 deactivate_remove_conflicting_ts(&actsvr->LanguageProfile.catid);
397 if (activated > 0)
398 activate_given_ts(actsvr, tm);
400 entry = HeapAlloc(GetProcessHeap(),0,sizeof(AtsEntry));
402 if (!entry)
404 HeapFree(GetProcessHeap(),0,actsvr);
405 return E_OUTOFMEMORY;
408 entry->ats = actsvr;
409 list_add_head(&AtsList, &entry->entry);
411 return S_OK;
414 BOOL get_active_textservice(REFCLSID rclsid, TF_LANGUAGEPROFILE *profile)
416 AtsEntry *ats;
418 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
420 if (IsEqualCLSID(rclsid,&ats->ats->LanguageProfile.clsid))
422 if (profile)
423 *profile = ats->ats->LanguageProfile;
424 return TRUE;
427 return FALSE;
430 HRESULT activate_textservices(ITfThreadMgr *tm)
432 HRESULT hr = S_OK;
433 AtsEntry *ats;
435 activated ++;
436 if (activated > 1)
437 return S_OK;
439 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
441 hr = activate_given_ts(ats->ats, tm);
442 if (FAILED(hr))
443 FIXME("Failed to activate text service\n");
445 return hr;
448 HRESULT deactivate_textservices(void)
450 AtsEntry *ats;
452 if (activated > 0)
453 activated --;
455 if (activated == 0)
456 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
457 deactivate_given_ts(ats->ats);
459 return S_OK;
462 CLSID get_textservice_clsid(TfClientId tid)
464 AtsEntry *ats;
466 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
467 if (ats->ats->tid == tid)
468 return ats->ats->LanguageProfile.clsid;
469 return GUID_NULL;
472 HRESULT get_textservice_sink(TfClientId tid, REFCLSID iid, IUnknown **sink)
474 AtsEntry *ats;
476 if (!IsEqualCLSID(iid,&IID_ITfKeyEventSink))
477 return E_NOINTERFACE;
479 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
480 if (ats->ats->tid == tid)
482 *sink = (IUnknown*)ats->ats->pITfKeyEventSink;
483 return S_OK;
486 return E_FAIL;
489 HRESULT set_textservice_sink(TfClientId tid, REFCLSID iid, IUnknown* sink)
491 AtsEntry *ats;
493 if (!IsEqualCLSID(iid,&IID_ITfKeyEventSink))
494 return E_NOINTERFACE;
496 LIST_FOR_EACH_ENTRY(ats, &AtsList, AtsEntry, entry)
497 if (ats->ats->tid == tid)
499 ats->ats->pITfKeyEventSink = (ITfKeyEventSink*)sink;
500 return S_OK;
503 return E_FAIL;
506 /*************************************************************************
507 * MSCTF DllMain
509 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
511 TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
512 switch (fdwReason)
514 case DLL_WINE_PREATTACH:
515 return FALSE; /* prefer native version */
516 case DLL_PROCESS_ATTACH:
517 MSCTF_hinstance = hinst;
518 tlsIndex = TlsAlloc();
519 break;
520 case DLL_PROCESS_DETACH:
521 TlsFree(tlsIndex);
522 break;
524 return TRUE;
527 /*************************************************************************
528 * DllCanUnloadNow (MSCTF.@)
530 HRESULT WINAPI DllCanUnloadNow(void)
532 return MSCTF_refCount ? S_FALSE : S_OK;
535 /***********************************************************************
536 * DllGetClassObject (MSCTF.@)
538 HRESULT WINAPI DllGetClassObject(REFCLSID clsid, REFIID iid, LPVOID *ppvOut)
540 int i;
542 *ppvOut = NULL;
543 if (!IsEqualIID(iid, &IID_IUnknown) && !IsEqualIID(iid, &IID_IClassFactory))
544 return E_NOINTERFACE;
546 for (i = 0; ClassesTable[i].clsid != NULL; i++)
547 if (IsEqualCLSID(ClassesTable[i].clsid, clsid)) {
548 return ClassFactory_Constructor(ClassesTable[i].ctor, ppvOut);
550 FIXME("CLSID %s not supported\n", debugstr_guid(clsid));
551 return CLASS_E_CLASSNOTAVAILABLE;
554 /***********************************************************************
555 * TF_CreateThreadMgr (MSCTF.@)
557 HRESULT WINAPI TF_CreateThreadMgr(ITfThreadMgr **pptim)
559 TRACE("\n");
560 return ThreadMgr_Constructor(NULL,(IUnknown**)pptim);
563 /***********************************************************************
564 * TF_GetThreadMgr (MSCTF.@)
566 HRESULT WINAPI TF_GetThreadMgr(ITfThreadMgr **pptim)
568 TRACE("\n");
569 *pptim = TlsGetValue(tlsIndex);
571 if (*pptim)
572 ITfThreadMgr_AddRef(*pptim);
574 return S_OK;
577 /***********************************************************************
578 * SetInputScope(MSCTF.@)
580 HRESULT WINAPI SetInputScope(HWND hwnd, INT inputscope)
582 FIXME("STUB: %p %i\n",hwnd,inputscope);
583 return S_OK;
586 /***********************************************************************
587 * SetInputScopes(MSCTF.@)
589 HRESULT WINAPI SetInputScopes(HWND hwnd, const INT *pInputScopes,
590 UINT cInputScopes, WCHAR **ppszPhraseList,
591 UINT cPhrases, WCHAR *pszRegExp, WCHAR *pszSRGS)
593 int i;
594 FIXME("STUB: %p ... %s %s\n",hwnd, debugstr_w(pszRegExp), debugstr_w(pszSRGS));
595 for (i = 0; i < cInputScopes; i++)
596 TRACE("\tScope[%i] = %i\n",i,pInputScopes[i]);
597 for (i = 0; i < cPhrases; i++)
598 TRACE("\tPhrase[%i] = %s\n",i,debugstr_w(ppszPhraseList[i]));
600 return S_OK;
603 /***********************************************************************
604 * TF_CreateInputProcessorProfiles(MSCTF.@)
606 HRESULT WINAPI TF_CreateInputProcessorProfiles(
607 ITfInputProcessorProfiles **ppipr)
609 return InputProcessorProfiles_Constructor(NULL,(IUnknown**)ppipr);
612 /***********************************************************************
613 * TF_InvalidAssemblyListCacheIfExist(MSCTF.@)
615 HRESULT WINAPI TF_InvalidAssemblyListCacheIfExist(void)
617 FIXME("Stub\n");
618 return S_OK;