2 * ITfInputProcessorProfiles implementation
4 * Copyright 2009 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
27 #include "wine/debug.h"
37 #include "wine/unicode.h"
38 #include "wine/list.h"
41 #include "msctf_internal.h"
43 WINE_DEFAULT_DEBUG_CHANNEL(msctf
);
45 static const WCHAR szwLngp
[] = {'L','a','n','g','u','a','g','e','P','r','o','f','i','l','e',0};
46 static const WCHAR szwEnable
[] = {'E','n','a','b','l','e',0};
47 static const WCHAR szwTipfmt
[] = {'%','s','\\','%','s',0};
48 static const WCHAR szwFullLangfmt
[] = {'%','s','\\','%','s','\\','%','s','\\','0','x','%','0','8','x','\\','%','s',0};
50 static const WCHAR szwAssemblies
[] = {'A','s','s','e','m','b','l','i','e','s',0};
51 static const WCHAR szwDefault
[] = {'D','e','f','a','u','l','t',0};
52 static const WCHAR szwProfile
[] = {'P','r','o','f','i','l','e',0};
53 static const WCHAR szwDefaultFmt
[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x','\\','%','s',0};
55 typedef struct tagInputProcessorProfilesSink
{
58 /* InputProcessorProfile Sinks */
60 ITfLanguageProfileNotifySink
*pITfLanguageProfileNotifySink
;
62 } InputProcessorProfilesSink
;
64 typedef struct tagInputProcessorProfiles
{
65 const ITfInputProcessorProfilesVtbl
*InputProcessorProfilesVtbl
;
66 const ITfSourceVtbl
*SourceVtbl
;
67 /* const ITfInputProcessorProfileMgrVtbl *InputProcessorProfileMgrVtbl; */
68 /* const ITfInputProcessorProfilesExVtbl *InputProcessorProfilesExVtbl; */
69 /* const ITfInputProcessorProfileSubstituteLayoutVtbl *InputProcessorProfileSubstituteLayoutVtbl; */
72 LANGID currentLanguage
;
74 struct list LanguageProfileNotifySink
;
75 } InputProcessorProfiles
;
77 typedef struct tagProfilesEnumGuid
{
78 const IEnumGUIDVtbl
*Vtbl
;
85 typedef struct tagEnumTfLanguageProfiles
{
86 const IEnumTfLanguageProfilesVtbl
*Vtbl
;
91 WCHAR szwCurrentClsid
[39];
97 ITfCategoryMgr
*catmgr
;
98 } EnumTfLanguageProfiles
;
100 static HRESULT
ProfilesEnumGuid_Constructor(IEnumGUID
**ppOut
);
101 static HRESULT
EnumTfLanguageProfiles_Constructor(LANGID langid
, IEnumTfLanguageProfiles
**ppOut
);
103 static inline InputProcessorProfiles
*impl_from_ITfSourceVtbl(ITfSource
*iface
)
105 return (InputProcessorProfiles
*)((char *)iface
- FIELD_OFFSET(InputProcessorProfiles
,SourceVtbl
));
108 static void free_sink(InputProcessorProfilesSink
*sink
)
110 IUnknown_Release(sink
->interfaces
.pIUnknown
);
111 HeapFree(GetProcessHeap(),0,sink
);
114 static void InputProcessorProfiles_Destructor(InputProcessorProfiles
*This
)
116 struct list
*cursor
, *cursor2
;
117 TRACE("destroying %p\n", This
);
120 LIST_FOR_EACH_SAFE(cursor
, cursor2
, &This
->LanguageProfileNotifySink
)
122 InputProcessorProfilesSink
* sink
= LIST_ENTRY(cursor
,InputProcessorProfilesSink
,entry
);
127 HeapFree(GetProcessHeap(),0,This
);
130 static void add_userkey( REFCLSID rclsid
, LANGID langid
,
137 DWORD disposition
= 0;
142 StringFromGUID2(rclsid
, buf
, 39);
143 StringFromGUID2(guidProfile
, buf2
, 39);
144 sprintfW(fullkey
,szwFullLangfmt
,szwSystemTIPKey
,buf
,szwLngp
,langid
,buf2
);
146 res
= RegCreateKeyExW(HKEY_CURRENT_USER
,fullkey
, 0, NULL
, 0,
147 KEY_READ
| KEY_WRITE
, NULL
, &key
, &disposition
);
149 if (!res
&& disposition
== REG_CREATED_NEW_KEY
)
152 RegSetValueExW(key
, szwEnable
, 0, REG_DWORD
, (LPBYTE
)&zero
, sizeof(DWORD
));
159 static HRESULT WINAPI
InputProcessorProfiles_QueryInterface(ITfInputProcessorProfiles
*iface
, REFIID iid
, LPVOID
*ppvOut
)
161 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
164 if (IsEqualIID(iid
, &IID_IUnknown
) || IsEqualIID(iid
, &IID_ITfInputProcessorProfiles
))
168 else if (IsEqualIID(iid
, &IID_ITfSource
))
170 *ppvOut
= &This
->SourceVtbl
;
175 IUnknown_AddRef(iface
);
179 WARN("unsupported interface: %s\n", debugstr_guid(iid
));
180 return E_NOINTERFACE
;
183 static ULONG WINAPI
InputProcessorProfiles_AddRef(ITfInputProcessorProfiles
*iface
)
185 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
186 return InterlockedIncrement(&This
->refCount
);
189 static ULONG WINAPI
InputProcessorProfiles_Release(ITfInputProcessorProfiles
*iface
)
191 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
194 ret
= InterlockedDecrement(&This
->refCount
);
196 InputProcessorProfiles_Destructor(This
);
200 /*****************************************************
201 * ITfInputProcessorProfiles functions
202 *****************************************************/
203 static HRESULT WINAPI
InputProcessorProfiles_Register(
204 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
)
206 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
211 TRACE("(%p) %s\n",This
,debugstr_guid(rclsid
));
213 StringFromGUID2(rclsid
, buf
, 39);
214 sprintfW(fullkey
,szwTipfmt
,szwSystemTIPKey
,buf
);
216 if (RegCreateKeyExW(HKEY_LOCAL_MACHINE
,fullkey
, 0, NULL
, 0,
217 KEY_READ
| KEY_WRITE
, NULL
, &tipkey
, NULL
) != ERROR_SUCCESS
)
225 static HRESULT WINAPI
InputProcessorProfiles_Unregister(
226 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
)
230 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
232 TRACE("(%p) %s\n",This
,debugstr_guid(rclsid
));
234 StringFromGUID2(rclsid
, buf
, 39);
235 sprintfW(fullkey
,szwTipfmt
,szwSystemTIPKey
,buf
);
237 RegDeleteTreeW(HKEY_LOCAL_MACHINE
, fullkey
);
238 RegDeleteTreeW(HKEY_CURRENT_USER
, fullkey
);
243 static HRESULT WINAPI
InputProcessorProfiles_AddLanguageProfile(
244 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
,
245 LANGID langid
, REFGUID guidProfile
, const WCHAR
*pchDesc
,
246 ULONG cchDesc
, const WCHAR
*pchIconFile
, ULONG cchFile
,
253 DWORD disposition
= 0;
255 static const WCHAR fmt2
[] = {'%','s','\\','0','x','%','0','8','x','\\','%','s',0};
256 static const WCHAR desc
[] = {'D','e','s','c','r','i','p','t','i','o','n',0};
257 static const WCHAR icnf
[] = {'I','c','o','n','F','i','l','e',0};
258 static const WCHAR icni
[] = {'I','c','o','n','I','n','d','e','x',0};
260 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
262 TRACE("(%p) %s %x %s %s %s %i\n",This
,debugstr_guid(rclsid
), langid
,
263 debugstr_guid(guidProfile
), debugstr_wn(pchDesc
,cchDesc
),
264 debugstr_wn(pchIconFile
,cchFile
),uIconIndex
);
266 StringFromGUID2(rclsid
, buf
, 39);
267 sprintfW(fullkey
,szwTipfmt
,szwSystemTIPKey
,buf
);
269 if (RegOpenKeyExW(HKEY_LOCAL_MACHINE
,fullkey
, 0, KEY_READ
| KEY_WRITE
,
270 &tipkey
) != ERROR_SUCCESS
)
273 StringFromGUID2(guidProfile
, buf
, 39);
274 sprintfW(fullkey
,fmt2
,szwLngp
,langid
,buf
);
276 res
= RegCreateKeyExW(tipkey
,fullkey
, 0, NULL
, 0, KEY_READ
| KEY_WRITE
,
277 NULL
, &fmtkey
, &disposition
);
282 RegSetValueExW(fmtkey
, desc
, 0, REG_SZ
, (LPBYTE
)pchDesc
, cchDesc
* sizeof(WCHAR
));
283 RegSetValueExW(fmtkey
, icnf
, 0, REG_SZ
, (LPBYTE
)pchIconFile
, cchFile
* sizeof(WCHAR
));
284 RegSetValueExW(fmtkey
, icni
, 0, REG_DWORD
, (LPBYTE
)&uIconIndex
, sizeof(DWORD
));
285 if (disposition
== REG_CREATED_NEW_KEY
)
286 RegSetValueExW(fmtkey
, szwEnable
, 0, REG_DWORD
, (LPBYTE
)&zero
, sizeof(DWORD
));
289 add_userkey(rclsid
, langid
, guidProfile
);
299 static HRESULT WINAPI
InputProcessorProfiles_RemoveLanguageProfile(
300 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
303 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
304 FIXME("STUB:(%p)\n",This
);
308 static HRESULT WINAPI
InputProcessorProfiles_EnumInputProcessorInfo(
309 ITfInputProcessorProfiles
*iface
, IEnumGUID
**ppEnum
)
311 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
312 TRACE("(%p) %p\n",This
,ppEnum
);
313 return ProfilesEnumGuid_Constructor(ppEnum
);
316 static HRESULT WINAPI
InputProcessorProfiles_GetDefaultLanguageProfile(
317 ITfInputProcessorProfiles
*iface
, LANGID langid
, REFGUID catid
,
318 CLSID
*pclsid
, GUID
*pguidProfile
)
325 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
327 TRACE("%p) %x %s %p %p\n",This
, langid
, debugstr_guid(catid
),pclsid
,pguidProfile
);
329 if (!catid
|| !pclsid
|| !pguidProfile
)
332 StringFromGUID2(catid
, buf
, 39);
333 sprintfW(fullkey
, szwDefaultFmt
, szwSystemCTFKey
, szwAssemblies
, langid
, buf
);
335 if (RegOpenKeyExW(HKEY_CURRENT_USER
, fullkey
, 0, KEY_READ
| KEY_WRITE
,
336 &hkey
) != ERROR_SUCCESS
)
340 res
= RegQueryValueExW(hkey
, szwDefault
, 0, NULL
, (LPBYTE
)buf
, &count
);
341 if (res
!= ERROR_SUCCESS
)
346 CLSIDFromString(buf
,pclsid
);
348 res
= RegQueryValueExW(hkey
, szwProfile
, 0, NULL
, (LPBYTE
)buf
, &count
);
349 if (res
== ERROR_SUCCESS
)
350 CLSIDFromString(buf
,pguidProfile
);
357 static HRESULT WINAPI
InputProcessorProfiles_SetDefaultLanguageProfile(
358 ITfInputProcessorProfiles
*iface
, LANGID langid
, REFCLSID rclsid
,
359 REFGUID guidProfiles
)
366 ITfCategoryMgr
*catmgr
;
367 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
368 static const GUID
* tipcats
[3] = { &GUID_TFCAT_TIP_KEYBOARD
,
369 &GUID_TFCAT_TIP_SPEECH
,
370 &GUID_TFCAT_TIP_HANDWRITING
};
372 TRACE("%p) %x %s %s\n",This
, langid
, debugstr_guid(rclsid
),debugstr_guid(guidProfiles
));
374 if (!rclsid
|| !guidProfiles
)
377 hr
= CategoryMgr_Constructor(NULL
,(IUnknown
**)&catmgr
);
382 if (ITfCategoryMgr_FindClosestCategory(catmgr
, rclsid
,
383 &catid
, tipcats
, 3) != S_OK
)
384 hr
= ITfCategoryMgr_FindClosestCategory(catmgr
, rclsid
,
386 ITfCategoryMgr_Release(catmgr
);
391 StringFromGUID2(&catid
, buf
, 39);
392 sprintfW(fullkey
, szwDefaultFmt
, szwSystemCTFKey
, szwAssemblies
, langid
, buf
);
394 if (RegCreateKeyExW(HKEY_CURRENT_USER
, fullkey
, 0, NULL
, 0, KEY_READ
| KEY_WRITE
,
395 NULL
, &hkey
, NULL
) != ERROR_SUCCESS
)
398 StringFromGUID2(rclsid
, buf
, 39);
399 RegSetValueExW(hkey
, szwDefault
, 0, REG_SZ
, (LPBYTE
)buf
, sizeof(buf
));
400 StringFromGUID2(guidProfiles
, buf
, 39);
401 RegSetValueExW(hkey
, szwProfile
, 0, REG_SZ
, (LPBYTE
)buf
, sizeof(buf
));
407 static HRESULT WINAPI
InputProcessorProfiles_ActivateLanguageProfile(
408 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
409 REFGUID guidProfiles
)
413 TF_LANGUAGEPROFILE LanguageProfile
;
414 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
416 TRACE("(%p) %s %x %s\n",This
,debugstr_guid(rclsid
),langid
,debugstr_guid(guidProfiles
));
418 if (langid
!= This
->currentLanguage
) return E_INVALIDARG
;
420 if (get_active_textservice(rclsid
,NULL
))
422 TRACE("Already Active\n");
426 hr
= ITfInputProcessorProfiles_IsEnabledLanguageProfile(iface
, rclsid
,
427 langid
, guidProfiles
, &enabled
);
428 if (FAILED(hr
) || !enabled
)
430 TRACE("Not Enabled\n");
434 LanguageProfile
.clsid
= *rclsid
;
435 LanguageProfile
.langid
= langid
;
436 LanguageProfile
.guidProfile
= *guidProfiles
;
438 hr
= add_active_textservice(&LanguageProfile
);
443 static HRESULT WINAPI
InputProcessorProfiles_GetActiveLanguageProfile(
444 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID
*plangid
,
447 TF_LANGUAGEPROFILE profile
;
448 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
450 TRACE("(%p) %s %p %p\n",This
,debugstr_guid(rclsid
),plangid
,pguidProfile
);
452 if (!rclsid
|| !plangid
|| !pguidProfile
)
455 if (get_active_textservice(rclsid
, &profile
))
457 *plangid
= profile
.langid
;
458 *pguidProfile
= profile
.guidProfile
;
463 *pguidProfile
= GUID_NULL
;
468 static HRESULT WINAPI
InputProcessorProfiles_GetLanguageProfileDescription(
469 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
470 REFGUID guidProfile
, BSTR
*pbstrProfile
)
472 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
473 FIXME("STUB:(%p)\n",This
);
477 static HRESULT WINAPI
InputProcessorProfiles_GetCurrentLanguage(
478 ITfInputProcessorProfiles
*iface
, LANGID
*plangid
)
480 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
481 TRACE("(%p) 0x%x\n",This
,This
->currentLanguage
);
486 *plangid
= This
->currentLanguage
;
491 static HRESULT WINAPI
InputProcessorProfiles_ChangeCurrentLanguage(
492 ITfInputProcessorProfiles
*iface
, LANGID langid
)
494 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
495 FIXME("STUB:(%p)\n",This
);
499 static HRESULT WINAPI
InputProcessorProfiles_GetLanguageList(
500 ITfInputProcessorProfiles
*iface
, LANGID
**ppLangId
, ULONG
*pulCount
)
502 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
503 FIXME("Semi-STUB:(%p)\n",This
);
504 *ppLangId
= CoTaskMemAlloc(sizeof(LANGID
));
505 **ppLangId
= This
->currentLanguage
;
510 static HRESULT WINAPI
InputProcessorProfiles_EnumLanguageProfiles(
511 ITfInputProcessorProfiles
*iface
, LANGID langid
,
512 IEnumTfLanguageProfiles
**ppEnum
)
514 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
515 TRACE("(%p) %x %p\n",This
,langid
,ppEnum
);
516 return EnumTfLanguageProfiles_Constructor(langid
, ppEnum
);
519 static HRESULT WINAPI
InputProcessorProfiles_EnableLanguageProfile(
520 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
521 REFGUID guidProfile
, BOOL fEnable
)
529 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
530 TRACE("(%p) %s %x %s %i\n",This
, debugstr_guid(rclsid
), langid
, debugstr_guid(guidProfile
), fEnable
);
532 StringFromGUID2(rclsid
, buf
, 39);
533 StringFromGUID2(guidProfile
, buf2
, 39);
534 sprintfW(fullkey
,szwFullLangfmt
,szwSystemTIPKey
,buf
,szwLngp
,langid
,buf2
);
536 res
= RegOpenKeyExW(HKEY_CURRENT_USER
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &key
);
540 RegSetValueExW(key
, szwEnable
, 0, REG_DWORD
, (LPBYTE
)&fEnable
, sizeof(DWORD
));
549 static HRESULT WINAPI
InputProcessorProfiles_IsEnabledLanguageProfile(
550 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
551 REFGUID guidProfile
, BOOL
*pfEnable
)
559 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
560 TRACE("(%p) %s, %i, %s, %p\n",This
,debugstr_guid(rclsid
),langid
,debugstr_guid(guidProfile
),pfEnable
);
565 StringFromGUID2(rclsid
, buf
, 39);
566 StringFromGUID2(guidProfile
, buf2
, 39);
567 sprintfW(fullkey
,szwFullLangfmt
,szwSystemTIPKey
,buf
,szwLngp
,langid
,buf2
);
569 res
= RegOpenKeyExW(HKEY_CURRENT_USER
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &key
);
573 DWORD count
= sizeof(DWORD
);
574 res
= RegQueryValueExW(key
, szwEnable
, 0, NULL
, (LPBYTE
)pfEnable
, &count
);
578 if (res
) /* Try Default */
580 res
= RegOpenKeyExW(HKEY_LOCAL_MACHINE
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &key
);
584 DWORD count
= sizeof(DWORD
);
585 res
= RegQueryValueExW(key
, szwEnable
, 0, NULL
, (LPBYTE
)pfEnable
, &count
);
596 static HRESULT WINAPI
InputProcessorProfiles_EnableLanguageProfileByDefault(
597 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
598 REFGUID guidProfile
, BOOL fEnable
)
606 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
607 TRACE("(%p) %s %x %s %i\n",This
,debugstr_guid(rclsid
),langid
,debugstr_guid(guidProfile
),fEnable
);
609 StringFromGUID2(rclsid
, buf
, 39);
610 StringFromGUID2(guidProfile
, buf2
, 39);
611 sprintfW(fullkey
,szwFullLangfmt
,szwSystemTIPKey
,buf
,szwLngp
,langid
,buf2
);
613 res
= RegOpenKeyExW(HKEY_LOCAL_MACHINE
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &key
);
617 RegSetValueExW(key
, szwEnable
, 0, REG_DWORD
, (LPBYTE
)&fEnable
, sizeof(DWORD
));
626 static HRESULT WINAPI
InputProcessorProfiles_SubstituteKeyboardLayout(
627 ITfInputProcessorProfiles
*iface
, REFCLSID rclsid
, LANGID langid
,
628 REFGUID guidProfile
, HKL hKL
)
630 InputProcessorProfiles
*This
= (InputProcessorProfiles
*)iface
;
631 FIXME("STUB:(%p)\n",This
);
636 static const ITfInputProcessorProfilesVtbl InputProcessorProfiles_InputProcessorProfilesVtbl
=
638 InputProcessorProfiles_QueryInterface
,
639 InputProcessorProfiles_AddRef
,
640 InputProcessorProfiles_Release
,
642 InputProcessorProfiles_Register
,
643 InputProcessorProfiles_Unregister
,
644 InputProcessorProfiles_AddLanguageProfile
,
645 InputProcessorProfiles_RemoveLanguageProfile
,
646 InputProcessorProfiles_EnumInputProcessorInfo
,
647 InputProcessorProfiles_GetDefaultLanguageProfile
,
648 InputProcessorProfiles_SetDefaultLanguageProfile
,
649 InputProcessorProfiles_ActivateLanguageProfile
,
650 InputProcessorProfiles_GetActiveLanguageProfile
,
651 InputProcessorProfiles_GetLanguageProfileDescription
,
652 InputProcessorProfiles_GetCurrentLanguage
,
653 InputProcessorProfiles_ChangeCurrentLanguage
,
654 InputProcessorProfiles_GetLanguageList
,
655 InputProcessorProfiles_EnumLanguageProfiles
,
656 InputProcessorProfiles_EnableLanguageProfile
,
657 InputProcessorProfiles_IsEnabledLanguageProfile
,
658 InputProcessorProfiles_EnableLanguageProfileByDefault
,
659 InputProcessorProfiles_SubstituteKeyboardLayout
662 /*****************************************************
663 * ITfSource functions
664 *****************************************************/
665 static HRESULT WINAPI
IPPSource_QueryInterface(ITfSource
*iface
, REFIID iid
, LPVOID
*ppvOut
)
667 InputProcessorProfiles
*This
= impl_from_ITfSourceVtbl(iface
);
668 return InputProcessorProfiles_QueryInterface((ITfInputProcessorProfiles
*)This
, iid
, *ppvOut
);
671 static ULONG WINAPI
IPPSource_AddRef(ITfSource
*iface
)
673 InputProcessorProfiles
*This
= impl_from_ITfSourceVtbl(iface
);
674 return InputProcessorProfiles_AddRef((ITfInputProcessorProfiles
*)This
);
677 static ULONG WINAPI
IPPSource_Release(ITfSource
*iface
)
679 InputProcessorProfiles
*This
= impl_from_ITfSourceVtbl(iface
);
680 return InputProcessorProfiles_Release((ITfInputProcessorProfiles
*)This
);
683 static WINAPI HRESULT
IPPSource_AdviseSink(ITfSource
*iface
,
684 REFIID riid
, IUnknown
*punk
, DWORD
*pdwCookie
)
686 InputProcessorProfilesSink
*ipps
;
687 InputProcessorProfiles
*This
= impl_from_ITfSourceVtbl(iface
);
689 TRACE("(%p) %s %p %p\n",This
,debugstr_guid(riid
),punk
,pdwCookie
);
691 if (!riid
|| !punk
|| !pdwCookie
)
694 if (IsEqualIID(riid
, &IID_ITfLanguageProfileNotifySink
))
696 ipps
= HeapAlloc(GetProcessHeap(),0,sizeof(InputProcessorProfilesSink
));
698 return E_OUTOFMEMORY
;
699 if (FAILED(IUnknown_QueryInterface(punk
, riid
, (LPVOID
*)&ipps
->interfaces
.pITfLanguageProfileNotifySink
)))
701 HeapFree(GetProcessHeap(),0,ipps
);
702 return CONNECT_E_CANNOTCONNECT
;
704 list_add_head(&This
->LanguageProfileNotifySink
,&ipps
->entry
);
705 *pdwCookie
= generate_Cookie(COOKIE_MAGIC_IPPSINK
, ipps
);
709 FIXME("(%p) Unhandled Sink: %s\n",This
,debugstr_guid(riid
));
713 TRACE("cookie %x\n",*pdwCookie
);
718 static WINAPI HRESULT
IPPSource_UnadviseSink(ITfSource
*iface
, DWORD pdwCookie
)
720 InputProcessorProfilesSink
*sink
;
721 InputProcessorProfiles
*This
= impl_from_ITfSourceVtbl(iface
);
723 TRACE("(%p) %x\n",This
,pdwCookie
);
725 if (get_Cookie_magic(pdwCookie
)!=COOKIE_MAGIC_IPPSINK
)
728 sink
= (InputProcessorProfilesSink
*)remove_Cookie(pdwCookie
);
730 return CONNECT_E_NOCONNECTION
;
732 list_remove(&sink
->entry
);
738 static const ITfSourceVtbl InputProcessorProfiles_SourceVtbl
=
740 IPPSource_QueryInterface
,
744 IPPSource_AdviseSink
,
745 IPPSource_UnadviseSink
,
748 HRESULT
InputProcessorProfiles_Constructor(IUnknown
*pUnkOuter
, IUnknown
**ppOut
)
750 InputProcessorProfiles
*This
;
752 return CLASS_E_NOAGGREGATION
;
754 This
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(InputProcessorProfiles
));
756 return E_OUTOFMEMORY
;
758 This
->InputProcessorProfilesVtbl
= &InputProcessorProfiles_InputProcessorProfilesVtbl
;
759 This
->SourceVtbl
= &InputProcessorProfiles_SourceVtbl
;
761 This
->currentLanguage
= GetUserDefaultLCID();
763 list_init(&This
->LanguageProfileNotifySink
);
765 TRACE("returning %p\n", This
);
766 *ppOut
= (IUnknown
*)This
;
770 /**************************************************
771 * IEnumGUID implementaion for ITfInputProcessorProfiles::EnumInputProcessorInfo
772 **************************************************/
773 static void ProfilesEnumGuid_Destructor(ProfilesEnumGuid
*This
)
775 TRACE("destroying %p\n", This
);
776 RegCloseKey(This
->key
);
777 HeapFree(GetProcessHeap(),0,This
);
780 static HRESULT WINAPI
ProfilesEnumGuid_QueryInterface(IEnumGUID
*iface
, REFIID iid
, LPVOID
*ppvOut
)
782 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
785 if (IsEqualIID(iid
, &IID_IUnknown
) || IsEqualIID(iid
, &IID_IEnumGUID
))
792 IUnknown_AddRef(iface
);
796 WARN("unsupported interface: %s\n", debugstr_guid(iid
));
797 return E_NOINTERFACE
;
800 static ULONG WINAPI
ProfilesEnumGuid_AddRef(IEnumGUID
*iface
)
802 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
803 return InterlockedIncrement(&This
->refCount
);
806 static ULONG WINAPI
ProfilesEnumGuid_Release(IEnumGUID
*iface
)
808 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
811 ret
= InterlockedDecrement(&This
->refCount
);
813 ProfilesEnumGuid_Destructor(This
);
817 /*****************************************************
818 * IEnumGuid functions
819 *****************************************************/
820 static HRESULT WINAPI
ProfilesEnumGuid_Next( LPENUMGUID iface
,
821 ULONG celt
, GUID
*rgelt
, ULONG
*pceltFetched
)
823 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
826 TRACE("(%p)\n",This
);
828 if (rgelt
== NULL
) return E_POINTER
;
830 if (This
->key
) while (fetched
< celt
)
837 res
= RegEnumKeyExW(This
->key
, This
->next_index
, catid
, &cName
,
838 NULL
, NULL
, NULL
, NULL
);
839 if (res
!= ERROR_SUCCESS
&& res
!= ERROR_MORE_DATA
) break;
840 ++(This
->next_index
);
842 hr
= CLSIDFromString(catid
, rgelt
);
843 if (FAILED(hr
)) continue;
849 if (pceltFetched
) *pceltFetched
= fetched
;
850 return fetched
== celt
? S_OK
: S_FALSE
;
853 static HRESULT WINAPI
ProfilesEnumGuid_Skip( LPENUMGUID iface
, ULONG celt
)
855 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
856 TRACE("(%p)\n",This
);
858 This
->next_index
+= celt
;
862 static HRESULT WINAPI
ProfilesEnumGuid_Reset( LPENUMGUID iface
)
864 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
865 TRACE("(%p)\n",This
);
866 This
->next_index
= 0;
870 static HRESULT WINAPI
ProfilesEnumGuid_Clone( LPENUMGUID iface
,
873 ProfilesEnumGuid
*This
= (ProfilesEnumGuid
*)iface
;
876 TRACE("(%p)\n",This
);
878 if (ppenum
== NULL
) return E_POINTER
;
880 res
= ProfilesEnumGuid_Constructor(ppenum
);
883 ProfilesEnumGuid
*new_This
= (ProfilesEnumGuid
*)*ppenum
;
884 new_This
->next_index
= This
->next_index
;
889 static const IEnumGUIDVtbl IEnumGUID_Vtbl
={
890 ProfilesEnumGuid_QueryInterface
,
891 ProfilesEnumGuid_AddRef
,
892 ProfilesEnumGuid_Release
,
894 ProfilesEnumGuid_Next
,
895 ProfilesEnumGuid_Skip
,
896 ProfilesEnumGuid_Reset
,
897 ProfilesEnumGuid_Clone
900 static HRESULT
ProfilesEnumGuid_Constructor(IEnumGUID
**ppOut
)
902 ProfilesEnumGuid
*This
;
904 This
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(ProfilesEnumGuid
));
906 return E_OUTOFMEMORY
;
908 This
->Vtbl
= &IEnumGUID_Vtbl
;
911 if (RegCreateKeyExW(HKEY_LOCAL_MACHINE
, szwSystemTIPKey
, 0, NULL
, 0,
912 KEY_READ
| KEY_WRITE
, NULL
, &This
->key
, NULL
) != ERROR_SUCCESS
)
915 TRACE("returning %p\n", This
);
916 *ppOut
= (IEnumGUID
*)This
;
920 /**************************************************
921 * IEnumTfLanguageProfiles implementaion
922 **************************************************/
923 static void EnumTfLanguageProfiles_Destructor(EnumTfLanguageProfiles
*This
)
925 TRACE("destroying %p\n", This
);
926 RegCloseKey(This
->tipkey
);
928 RegCloseKey(This
->langkey
);
929 ITfCategoryMgr_Release(This
->catmgr
);
930 HeapFree(GetProcessHeap(),0,This
);
933 static HRESULT WINAPI
EnumTfLanguageProfiles_QueryInterface(IEnumTfLanguageProfiles
*iface
, REFIID iid
, LPVOID
*ppvOut
)
935 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
938 if (IsEqualIID(iid
, &IID_IUnknown
) || IsEqualIID(iid
, &IID_IEnumTfLanguageProfiles
))
945 IUnknown_AddRef(iface
);
949 WARN("unsupported interface: %s\n", debugstr_guid(iid
));
950 return E_NOINTERFACE
;
953 static ULONG WINAPI
EnumTfLanguageProfiles_AddRef(IEnumTfLanguageProfiles
*iface
)
955 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
956 return InterlockedIncrement(&This
->refCount
);
959 static ULONG WINAPI
EnumTfLanguageProfiles_Release(IEnumTfLanguageProfiles
*iface
)
961 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
964 ret
= InterlockedDecrement(&This
->refCount
);
966 EnumTfLanguageProfiles_Destructor(This
);
970 /*****************************************************
971 * IEnumGuid functions
972 *****************************************************/
973 static INT
next_LanguageProfile(EnumTfLanguageProfiles
*This
, CLSID clsid
, TF_LANGUAGEPROFILE
*tflp
)
981 static const WCHAR fmt
[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x',0};
983 if (This
->langkey
== NULL
)
985 sprintfW(fullkey
,fmt
,This
->szwCurrentClsid
,szwLngp
,This
->langid
);
986 res
= RegOpenKeyExW(This
->tipkey
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &This
->langkey
);
989 This
->langkey
= NULL
;
992 This
->lang_index
= 0;
994 res
= RegEnumKeyExW(This
->langkey
, This
->lang_index
, profileid
, &cName
,
995 NULL
, NULL
, NULL
, NULL
);
996 if (res
!= ERROR_SUCCESS
&& res
!= ERROR_MORE_DATA
)
998 RegCloseKey(This
->langkey
);
999 This
->langkey
= NULL
;
1002 ++(This
->lang_index
);
1006 static const GUID
* tipcats
[3] = { &GUID_TFCAT_TIP_KEYBOARD
,
1007 &GUID_TFCAT_TIP_SPEECH
,
1008 &GUID_TFCAT_TIP_HANDWRITING
};
1009 res
= CLSIDFromString(profileid
, &profile
);
1010 if (FAILED(res
)) return 0;
1012 tflp
->clsid
= clsid
;
1013 tflp
->langid
= This
->langid
;
1014 tflp
->fActive
= get_active_textservice(&clsid
, NULL
);
1015 tflp
->guidProfile
= profile
;
1016 if (ITfCategoryMgr_FindClosestCategory(This
->catmgr
, &clsid
,
1017 &tflp
->catid
, tipcats
, 3) != S_OK
)
1018 ITfCategoryMgr_FindClosestCategory(This
->catmgr
, &clsid
,
1019 &tflp
->catid
, NULL
, 0);
1025 static HRESULT WINAPI
EnumTfLanguageProfiles_Next(IEnumTfLanguageProfiles
*iface
,
1026 ULONG ulCount
, TF_LANGUAGEPROFILE
*pProfile
, ULONG
*pcFetch
)
1028 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
1031 TRACE("(%p)\n",This
);
1033 if (pProfile
== NULL
) return E_POINTER
;
1035 if (This
->tipkey
) while (fetched
< ulCount
)
1042 res
= RegEnumKeyExW(This
->tipkey
, This
->tip_index
,
1043 This
->szwCurrentClsid
, &cName
, NULL
, NULL
, NULL
, NULL
);
1044 if (res
!= ERROR_SUCCESS
&& res
!= ERROR_MORE_DATA
) break;
1045 ++(This
->tip_index
);
1046 hr
= CLSIDFromString(This
->szwCurrentClsid
, &clsid
);
1047 if (FAILED(hr
)) continue;
1049 while ( fetched
< ulCount
)
1051 INT res
= next_LanguageProfile(This
, clsid
, pProfile
);
1064 if (pcFetch
) *pcFetch
= fetched
;
1065 return fetched
== ulCount
? S_OK
: S_FALSE
;
1068 static HRESULT WINAPI
EnumTfLanguageProfiles_Skip( IEnumTfLanguageProfiles
* iface
, ULONG celt
)
1070 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
1071 FIXME("STUB (%p)\n",This
);
1075 static HRESULT WINAPI
EnumTfLanguageProfiles_Reset( IEnumTfLanguageProfiles
* iface
)
1077 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
1078 TRACE("(%p)\n",This
);
1079 This
->tip_index
= 0;
1081 RegCloseKey(This
->langkey
);
1082 This
->langkey
= NULL
;
1083 This
->lang_index
= 0;
1087 static HRESULT WINAPI
EnumTfLanguageProfiles_Clone( IEnumTfLanguageProfiles
*iface
,
1088 IEnumTfLanguageProfiles
**ppenum
)
1090 EnumTfLanguageProfiles
*This
= (EnumTfLanguageProfiles
*)iface
;
1093 TRACE("(%p)\n",This
);
1095 if (ppenum
== NULL
) return E_POINTER
;
1097 res
= EnumTfLanguageProfiles_Constructor(This
->langid
, ppenum
);
1100 EnumTfLanguageProfiles
*new_This
= (EnumTfLanguageProfiles
*)*ppenum
;
1101 new_This
->tip_index
= This
->tip_index
;
1102 lstrcpynW(new_This
->szwCurrentClsid
,This
->szwCurrentClsid
,39);
1107 static const WCHAR fmt
[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x',0};
1109 sprintfW(fullkey
,fmt
,This
->szwCurrentClsid
,szwLngp
,This
->langid
);
1110 res
= RegOpenKeyExW(new_This
->tipkey
, fullkey
, 0, KEY_READ
| KEY_WRITE
, &This
->langkey
);
1111 new_This
->lang_index
= This
->lang_index
;
1117 static const IEnumTfLanguageProfilesVtbl IEnumTfLanguageProfiles_Vtbl
={
1118 EnumTfLanguageProfiles_QueryInterface
,
1119 EnumTfLanguageProfiles_AddRef
,
1120 EnumTfLanguageProfiles_Release
,
1122 EnumTfLanguageProfiles_Clone
,
1123 EnumTfLanguageProfiles_Next
,
1124 EnumTfLanguageProfiles_Reset
,
1125 EnumTfLanguageProfiles_Skip
1128 static HRESULT
EnumTfLanguageProfiles_Constructor(LANGID langid
, IEnumTfLanguageProfiles
**ppOut
)
1131 EnumTfLanguageProfiles
*This
;
1133 This
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(EnumTfLanguageProfiles
));
1135 return E_OUTOFMEMORY
;
1137 This
->Vtbl
= &IEnumTfLanguageProfiles_Vtbl
;
1139 This
->langid
= langid
;
1141 hr
= CategoryMgr_Constructor(NULL
,(IUnknown
**)&This
->catmgr
);
1144 HeapFree(GetProcessHeap(),0,This
);
1148 if (RegCreateKeyExW(HKEY_LOCAL_MACHINE
, szwSystemTIPKey
, 0, NULL
, 0,
1149 KEY_READ
| KEY_WRITE
, NULL
, &This
->tipkey
, NULL
) != ERROR_SUCCESS
)
1152 TRACE("returning %p\n", This
);
1153 *ppOut
= (IEnumTfLanguageProfiles
*)This
;