dlls/msctf/inputprocessor.c

   1 /*
   2  *  ITfInputProcessorProfiles implementation
   3  *
   4  *  Copyright 2009 Aric Stewart, CodeWeavers
   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
  23 #include <stdarg.h>
  24
  25 #define COBJMACROS
  26
  27 #include "wine/debug.h"
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "winreg.h"
  31 #include "winuser.h"
  32 #include "shlwapi.h"
  33 #include "winerror.h"
  34 #include "objbase.h"
  35 #include "olectl.h"
  36
  37 #include "wine/unicode.h"
  38
  39 #include "msctf.h"
  40 #include "msctf_internal.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(msctf);
  43
  44 static const WCHAR szwLngp[] = {'L','a','n','g','u','a','g','e','P','r','o','f','i','l','e',0};
  45 static const WCHAR szwEnable[] = {'E','n','a','b','l','e',0};
  46 static const WCHAR szwTipfmt[] = {'%','s','\\','%','s',0};
  47 static const WCHAR szwFullLangfmt[] = {'%','s','\\','%','s','\\','%','s','\\','0','x','%','0','8','x','\\','%','s',0};
  48
  49 static const WCHAR szwAssemblies[] = {'A','s','s','e','m','b','l','i','e','s',0};
  50 static const WCHAR szwDefault[] = {'D','e','f','a','u','l','t',0};
  51 static const WCHAR szwProfile[] = {'P','r','o','f','i','l','e',0};
  52 static const WCHAR szwDefaultFmt[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x','\\','%','s',0};
  53
  54 typedef struct tagInputProcessorProfiles {
  55     ITfInputProcessorProfiles ITfInputProcessorProfiles_iface;
  56     ITfSource ITfSource_iface;
  57     ITfInputProcessorProfileMgr ITfInputProcessorProfileMgr_iface;
  58     /* const ITfInputProcessorProfilesExVtbl *InputProcessorProfilesExVtbl; */
  59     /* const ITfInputProcessorProfileSubstituteLayoutVtbl *InputProcessorProfileSubstituteLayoutVtbl; */
  60     LONG refCount;
  61
  62     LANGID  currentLanguage;
  63
  64     struct list     LanguageProfileNotifySink;
  65 } InputProcessorProfiles;
  66
  67 typedef struct tagProfilesEnumGuid {
  68     IEnumGUID IEnumGUID_iface;
  69     LONG refCount;
  70
  71     HKEY key;
  72     DWORD next_index;
  73 } ProfilesEnumGuid;
  74
  75 typedef struct tagEnumTfLanguageProfiles {
  76     IEnumTfLanguageProfiles IEnumTfLanguageProfiles_iface;
  77     LONG refCount;
  78
  79     HKEY    tipkey;
  80     DWORD   tip_index;
  81     WCHAR   szwCurrentClsid[39];
  82
  83     HKEY    langkey;
  84     DWORD   lang_index;
  85
  86     LANGID  langid;
  87     ITfCategoryMgr *catmgr;
  88 } EnumTfLanguageProfiles;
  89
  90 typedef struct {
  91     IEnumTfInputProcessorProfiles IEnumTfInputProcessorProfiles_iface;
  92     LONG ref;
  93 } EnumTfInputProcessorProfiles;
  94
  95 static HRESULT ProfilesEnumGuid_Constructor(IEnumGUID **ppOut);
  96 static HRESULT EnumTfLanguageProfiles_Constructor(LANGID langid, IEnumTfLanguageProfiles **ppOut);
  97
  98 static inline EnumTfInputProcessorProfiles *impl_from_IEnumTfInputProcessorProfiles(IEnumTfInputProcessorProfiles *iface)
  99 {
 100     return CONTAINING_RECORD(iface, EnumTfInputProcessorProfiles, IEnumTfInputProcessorProfiles_iface);
 101 }
 102
 103 static HRESULT WINAPI EnumTfInputProcessorProfiles_QueryInterface(IEnumTfInputProcessorProfiles *iface,
 104         REFIID riid, void **ppv)
 105 {
 106     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 107
 108     if(IsEqualGUID(riid, &IID_IUnknown)) {
 109         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 110         *ppv = &This->IEnumTfInputProcessorProfiles_iface;
 111     }else if(IsEqualGUID(riid, &IID_IEnumTfInputProcessorProfiles)) {
 112         TRACE("(%p)->(IID_IEnumTfInputProcessorProfiles %p)\n", This, ppv);
 113         *ppv = &This->IEnumTfInputProcessorProfiles_iface;
 114     }else {
 115         *ppv = NULL;
 116         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 117         return E_NOINTERFACE;
 118     }
 119
 120     IUnknown_AddRef((IUnknown*)*ppv);
 121     return S_OK;
 122 }
 123
 124 static ULONG WINAPI EnumTfInputProcessorProfiles_AddRef(IEnumTfInputProcessorProfiles *iface)
 125 {
 126     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 127     LONG ref = InterlockedIncrement(&This->ref);
 128
 129     TRACE("(%p) ref=%d\n", This, ref);
 130
 131     return ref;
 132 }
 133
 134 static ULONG WINAPI EnumTfInputProcessorProfiles_Release(IEnumTfInputProcessorProfiles *iface)
 135 {
 136     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 137     LONG ref = InterlockedDecrement(&This->ref);
 138
 139     TRACE("(%p) ref=%d\n", This, ref);
 140
 141     if(!ref)
 142         HeapFree(GetProcessHeap(), 0, This);
 143
 144     return ref;
 145 }
 146
 147 static HRESULT WINAPI EnumTfInputProcessorProfiles_Clone(IEnumTfInputProcessorProfiles *iface,
 148         IEnumTfInputProcessorProfiles **ret)
 149 {
 150     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 151     FIXME("(%p)->(%p)\n", This, ret);
 152     return E_NOTIMPL;
 153 }
 154
 155 static HRESULT WINAPI EnumTfInputProcessorProfiles_Next(IEnumTfInputProcessorProfiles *iface, ULONG count,
 156         TF_INPUTPROCESSORPROFILE *profile, ULONG *fetch)
 157 {
 158     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 159
 160     FIXME("(%p)->(%u %p %p)\n", This, count, profile, fetch);
 161
 162     if(fetch)
 163         *fetch = 0;
 164     return S_FALSE;
 165 }
 166
 167 static HRESULT WINAPI EnumTfInputProcessorProfiles_Reset(IEnumTfInputProcessorProfiles *iface)
 168 {
 169     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 170     FIXME("(%p)\n", This);
 171     return E_NOTIMPL;
 172 }
 173
 174 static HRESULT WINAPI EnumTfInputProcessorProfiles_Skip(IEnumTfInputProcessorProfiles *iface, ULONG count)
 175 {
 176     EnumTfInputProcessorProfiles *This = impl_from_IEnumTfInputProcessorProfiles(iface);
 177     FIXME("(%p)->(%u)\n", This, count);
 178     return E_NOTIMPL;
 179 }
 180
 181 static const IEnumTfInputProcessorProfilesVtbl EnumTfInputProcessorProfilesVtbl = {
 182     EnumTfInputProcessorProfiles_QueryInterface,
 183     EnumTfInputProcessorProfiles_AddRef,
 184     EnumTfInputProcessorProfiles_Release,
 185     EnumTfInputProcessorProfiles_Clone,
 186     EnumTfInputProcessorProfiles_Next,
 187     EnumTfInputProcessorProfiles_Reset,
 188     EnumTfInputProcessorProfiles_Skip
 189 };
 190
 191 static inline InputProcessorProfiles *impl_from_ITfInputProcessorProfiles(ITfInputProcessorProfiles *iface)
 192 {
 193     return CONTAINING_RECORD(iface, InputProcessorProfiles, ITfInputProcessorProfiles_iface);
 194 }
 195
 196 static inline InputProcessorProfiles *impl_from_ITfSource(ITfSource *iface)
 197 {
 198     return CONTAINING_RECORD(iface, InputProcessorProfiles, ITfSource_iface);
 199 }
 200
 201 static inline ProfilesEnumGuid *impl_from_IEnumGUID(IEnumGUID *iface)
 202 {
 203     return CONTAINING_RECORD(iface, ProfilesEnumGuid, IEnumGUID_iface);
 204 }
 205
 206 static inline EnumTfLanguageProfiles *impl_from_IEnumTfLanguageProfiles(IEnumTfLanguageProfiles *iface)
 207 {
 208     return CONTAINING_RECORD(iface, EnumTfLanguageProfiles, IEnumTfLanguageProfiles_iface);
 209 }
 210
 211 static void InputProcessorProfiles_Destructor(InputProcessorProfiles *This)
 212 {
 213     TRACE("destroying %p\n", This);
 214
 215     free_sinks(&This->LanguageProfileNotifySink);
 216     HeapFree(GetProcessHeap(),0,This);
 217 }
 218
 219 static void add_userkey( REFCLSID rclsid, LANGID langid,
 220                                 REFGUID guidProfile)
 221 {
 222     HKEY key;
 223     WCHAR buf[39];
 224     WCHAR buf2[39];
 225     WCHAR fullkey[168];
 226     DWORD disposition = 0;
 227     ULONG res;
 228
 229     TRACE("\n");
 230
 231     StringFromGUID2(rclsid, buf, 39);
 232     StringFromGUID2(guidProfile, buf2, 39);
 233     sprintfW(fullkey,szwFullLangfmt,szwSystemTIPKey,buf,szwLngp,langid,buf2);
 234
 235     res = RegCreateKeyExW(HKEY_CURRENT_USER,fullkey, 0, NULL, 0,
 236                    KEY_READ | KEY_WRITE, NULL, &key, &disposition);
 237
 238     if (!res && disposition == REG_CREATED_NEW_KEY)
 239     {
 240         DWORD zero = 0x0;
 241         RegSetValueExW(key, szwEnable, 0, REG_DWORD, (LPBYTE)&zero, sizeof(DWORD));
 242     }
 243
 244     if (!res)
 245         RegCloseKey(key);
 246 }
 247
 248 static HRESULT WINAPI InputProcessorProfiles_QueryInterface(ITfInputProcessorProfiles *iface, REFIID iid, void **ppv)
 249 {
 250     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 251
 252     if (IsEqualIID(iid, &IID_IUnknown) || IsEqualIID(iid, &IID_ITfInputProcessorProfiles))
 253     {
 254         *ppv = &This->ITfInputProcessorProfiles_iface;
 255     }
 256     else if (IsEqualIID(iid, &IID_ITfInputProcessorProfileMgr))
 257     {
 258         *ppv = &This->ITfInputProcessorProfileMgr_iface;
 259     }
 260     else if (IsEqualIID(iid, &IID_ITfSource))
 261     {
 262         *ppv = &This->ITfSource_iface;
 263     }
 264     else
 265     {
 266         *ppv = NULL;
 267         WARN("unsupported interface: %s\n", debugstr_guid(iid));
 268         return E_NOINTERFACE;
 269     }
 270
 271     ITfInputProcessorProfiles_AddRef(iface);
 272     return S_OK;
 273 }
 274
 275 static ULONG WINAPI InputProcessorProfiles_AddRef(ITfInputProcessorProfiles *iface)
 276 {
 277     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 278     return InterlockedIncrement(&This->refCount);
 279 }
 280
 281 static ULONG WINAPI InputProcessorProfiles_Release(ITfInputProcessorProfiles *iface)
 282 {
 283     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 284     ULONG ret;
 285
 286     ret = InterlockedDecrement(&This->refCount);
 287     if (ret == 0)
 288         InputProcessorProfiles_Destructor(This);
 289     return ret;
 290 }
 291
 292 /*****************************************************
 293  * ITfInputProcessorProfiles functions
 294  *****************************************************/
 295 static HRESULT WINAPI InputProcessorProfiles_Register(
 296         ITfInputProcessorProfiles *iface, REFCLSID rclsid)
 297 {
 298     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 299     HKEY tipkey;
 300     WCHAR buf[39];
 301     WCHAR fullkey[68];
 302
 303     TRACE("(%p) %s\n",This,debugstr_guid(rclsid));
 304
 305     StringFromGUID2(rclsid, buf, 39);
 306     sprintfW(fullkey,szwTipfmt,szwSystemTIPKey,buf);
 307
 308     if (RegCreateKeyExW(HKEY_LOCAL_MACHINE,fullkey, 0, NULL, 0,
 309                     KEY_READ | KEY_WRITE, NULL, &tipkey, NULL) != ERROR_SUCCESS)
 310         return E_FAIL;
 311
 312     RegCloseKey(tipkey);
 313
 314     return S_OK;
 315 }
 316
 317 static HRESULT WINAPI InputProcessorProfiles_Unregister(
 318         ITfInputProcessorProfiles *iface, REFCLSID rclsid)
 319 {
 320     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 321     WCHAR buf[39];
 322     WCHAR fullkey[68];
 323
 324     TRACE("(%p) %s\n",This,debugstr_guid(rclsid));
 325
 326     StringFromGUID2(rclsid, buf, 39);
 327     sprintfW(fullkey,szwTipfmt,szwSystemTIPKey,buf);
 328
 329     RegDeleteTreeW(HKEY_LOCAL_MACHINE, fullkey);
 330     RegDeleteTreeW(HKEY_CURRENT_USER, fullkey);
 331
 332     return S_OK;
 333 }
 334
 335 static HRESULT WINAPI InputProcessorProfiles_AddLanguageProfile(
 336         ITfInputProcessorProfiles *iface, REFCLSID rclsid,
 337         LANGID langid, REFGUID guidProfile, const WCHAR *pchDesc,
 338         ULONG cchDesc, const WCHAR *pchIconFile, ULONG cchFile,
 339         ULONG uIconIndex)
 340 {
 341     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 342     HKEY tipkey,fmtkey;
 343     WCHAR buf[39];
 344     WCHAR fullkey[100];
 345     ULONG res;
 346     DWORD disposition = 0;
 347
 348     static const WCHAR fmt2[] = {'%','s','\\','0','x','%','0','8','x','\\','%','s',0};
 349     static const WCHAR desc[] = {'D','e','s','c','r','i','p','t','i','o','n',0};
 350     static const WCHAR icnf[] = {'I','c','o','n','F','i','l','e',0};
 351     static const WCHAR icni[] = {'I','c','o','n','I','n','d','e','x',0};
 352
 353     TRACE("(%p) %s %x %s %s %s %i\n",This,debugstr_guid(rclsid), langid,
 354             debugstr_guid(guidProfile), debugstr_wn(pchDesc,cchDesc),
 355             debugstr_wn(pchIconFile,cchFile),uIconIndex);
 356
 357     StringFromGUID2(rclsid, buf, 39);
 358     sprintfW(fullkey,szwTipfmt,szwSystemTIPKey,buf);
 359
 360     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE,fullkey, 0, KEY_READ | KEY_WRITE,
 361                 &tipkey ) != ERROR_SUCCESS)
 362         return E_FAIL;
 363
 364     StringFromGUID2(guidProfile, buf, 39);
 365     sprintfW(fullkey,fmt2,szwLngp,langid,buf);
 366
 367     res = RegCreateKeyExW(tipkey,fullkey, 0, NULL, 0, KEY_READ | KEY_WRITE,
 368             NULL, &fmtkey, &disposition);
 369
 370     if (!res)
 371     {
 372         DWORD zero = 0x0;
 373         RegSetValueExW(fmtkey, desc, 0, REG_SZ, (const BYTE*)pchDesc, cchDesc * sizeof(WCHAR));
 374         RegSetValueExW(fmtkey, icnf, 0, REG_SZ, (const BYTE*)pchIconFile, cchFile * sizeof(WCHAR));
 375         RegSetValueExW(fmtkey, icni, 0, REG_DWORD, (LPBYTE)&uIconIndex, sizeof(DWORD));
 376         if (disposition == REG_CREATED_NEW_KEY)
 377             RegSetValueExW(fmtkey, szwEnable, 0, REG_DWORD, (LPBYTE)&zero, sizeof(DWORD));
 378         RegCloseKey(fmtkey);
 379
 380         add_userkey(rclsid, langid, guidProfile);
 381     }
 382     RegCloseKey(tipkey);
 383
 384     if (!res)
 385         return S_OK;
 386     else
 387         return E_FAIL;
 388 }
 389
 390 static HRESULT WINAPI InputProcessorProfiles_RemoveLanguageProfile(
 391         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 392         REFGUID guidProfile)
 393 {
 394     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 395     FIXME("STUB:(%p)\n",This);
 396     return E_NOTIMPL;
 397 }
 398
 399 static HRESULT WINAPI InputProcessorProfiles_EnumInputProcessorInfo(
 400         ITfInputProcessorProfiles *iface, IEnumGUID **ppEnum)
 401 {
 402     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 403     TRACE("(%p) %p\n",This,ppEnum);
 404     return ProfilesEnumGuid_Constructor(ppEnum);
 405 }
 406
 407 static HRESULT WINAPI InputProcessorProfiles_GetDefaultLanguageProfile(
 408         ITfInputProcessorProfiles *iface, LANGID langid, REFGUID catid,
 409         CLSID *pclsid, GUID *pguidProfile)
 410 {
 411     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 412     WCHAR fullkey[168];
 413     WCHAR buf[39];
 414     HKEY hkey;
 415     DWORD count;
 416     ULONG res;
 417
 418     TRACE("%p) %x %s %p %p\n",This, langid, debugstr_guid(catid),pclsid,pguidProfile);
 419
 420     if (!catid || !pclsid || !pguidProfile)
 421         return E_INVALIDARG;
 422
 423     StringFromGUID2(catid, buf, 39);
 424     sprintfW(fullkey, szwDefaultFmt, szwSystemCTFKey, szwAssemblies, langid, buf);
 425
 426     if (RegOpenKeyExW(HKEY_CURRENT_USER, fullkey, 0, KEY_READ | KEY_WRITE,
 427                 &hkey ) != ERROR_SUCCESS)
 428         return S_FALSE;
 429
 430     count = sizeof(buf);
 431     res = RegQueryValueExW(hkey, szwDefault, 0, NULL, (LPBYTE)buf, &count);
 432     if (res != ERROR_SUCCESS)
 433     {
 434         RegCloseKey(hkey);
 435         return S_FALSE;
 436     }
 437     CLSIDFromString(buf,pclsid);
 438
 439     res = RegQueryValueExW(hkey, szwProfile, 0, NULL, (LPBYTE)buf, &count);
 440     if (res == ERROR_SUCCESS)
 441         CLSIDFromString(buf,pguidProfile);
 442
 443     RegCloseKey(hkey);
 444
 445     return S_OK;
 446 }
 447
 448 static HRESULT WINAPI InputProcessorProfiles_SetDefaultLanguageProfile(
 449         ITfInputProcessorProfiles *iface, LANGID langid, REFCLSID rclsid,
 450         REFGUID guidProfiles)
 451 {
 452     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 453     WCHAR fullkey[168];
 454     WCHAR buf[39];
 455     HKEY hkey;
 456     GUID catid;
 457     HRESULT hr;
 458     ITfCategoryMgr *catmgr;
 459     static const GUID * tipcats[3] = { &GUID_TFCAT_TIP_KEYBOARD,
 460                                        &GUID_TFCAT_TIP_SPEECH,
 461                                        &GUID_TFCAT_TIP_HANDWRITING };
 462
 463     TRACE("%p) %x %s %s\n",This, langid, debugstr_guid(rclsid),debugstr_guid(guidProfiles));
 464
 465     if (!rclsid || !guidProfiles)
 466         return E_INVALIDARG;
 467
 468     hr = CategoryMgr_Constructor(NULL,(IUnknown**)&catmgr);
 469
 470     if (FAILED(hr))
 471         return hr;
 472
 473     if (ITfCategoryMgr_FindClosestCategory(catmgr, rclsid,
 474             &catid, tipcats, 3) != S_OK)
 475         hr = ITfCategoryMgr_FindClosestCategory(catmgr, rclsid,
 476                 &catid, NULL, 0);
 477     ITfCategoryMgr_Release(catmgr);
 478
 479     if (FAILED(hr))
 480         return E_FAIL;
 481
 482     StringFromGUID2(&catid, buf, 39);
 483     sprintfW(fullkey, szwDefaultFmt, szwSystemCTFKey, szwAssemblies, langid, buf);
 484
 485     if (RegCreateKeyExW(HKEY_CURRENT_USER, fullkey, 0, NULL, 0, KEY_READ | KEY_WRITE,
 486                 NULL, &hkey, NULL ) != ERROR_SUCCESS)
 487         return E_FAIL;
 488
 489     StringFromGUID2(rclsid, buf, 39);
 490     RegSetValueExW(hkey, szwDefault, 0, REG_SZ, (LPBYTE)buf, sizeof(buf));
 491     StringFromGUID2(guidProfiles, buf, 39);
 492     RegSetValueExW(hkey, szwProfile, 0, REG_SZ, (LPBYTE)buf, sizeof(buf));
 493     RegCloseKey(hkey);
 494
 495     return S_OK;
 496 }
 497
 498 static HRESULT WINAPI InputProcessorProfiles_ActivateLanguageProfile(
 499         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 500         REFGUID guidProfiles)
 501 {
 502     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 503     HRESULT hr;
 504     BOOL enabled;
 505     TF_LANGUAGEPROFILE LanguageProfile;
 506
 507     TRACE("(%p) %s %x %s\n",This,debugstr_guid(rclsid),langid,debugstr_guid(guidProfiles));
 508
 509     if (langid != This->currentLanguage) return E_INVALIDARG;
 510
 511     if (get_active_textservice(rclsid,NULL))
 512     {
 513         TRACE("Already Active\n");
 514         return E_FAIL;
 515     }
 516
 517     hr = ITfInputProcessorProfiles_IsEnabledLanguageProfile(iface, rclsid,
 518             langid, guidProfiles, &enabled);
 519     if (FAILED(hr) || !enabled)
 520     {
 521         TRACE("Not Enabled\n");
 522         return E_FAIL;
 523     }
 524
 525     LanguageProfile.clsid = *rclsid;
 526     LanguageProfile.langid = langid;
 527     LanguageProfile.guidProfile = *guidProfiles;
 528     LanguageProfile.fActive = TRUE;
 529
 530     return add_active_textservice(&LanguageProfile);
 531 }
 532
 533 static HRESULT WINAPI InputProcessorProfiles_GetActiveLanguageProfile(
 534         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID *plangid,
 535         GUID *pguidProfile)
 536 {
 537     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 538     TF_LANGUAGEPROFILE profile;
 539
 540     TRACE("(%p) %s %p %p\n",This,debugstr_guid(rclsid),plangid,pguidProfile);
 541
 542     if (!rclsid || !plangid || !pguidProfile)
 543         return E_INVALIDARG;
 544
 545     if (get_active_textservice(rclsid, &profile))
 546     {
 547         *plangid = profile.langid;
 548         *pguidProfile = profile.guidProfile;
 549         return S_OK;
 550     }
 551     else
 552     {
 553         *pguidProfile = GUID_NULL;
 554         return S_FALSE;
 555     }
 556 }
 557
 558 static HRESULT WINAPI InputProcessorProfiles_GetLanguageProfileDescription(
 559         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 560         REFGUID guidProfile, BSTR *pbstrProfile)
 561 {
 562     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 563     FIXME("STUB:(%p)\n",This);
 564     return E_NOTIMPL;
 565 }
 566
 567 static HRESULT WINAPI InputProcessorProfiles_GetCurrentLanguage(
 568         ITfInputProcessorProfiles *iface, LANGID *plangid)
 569 {
 570     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 571     TRACE("(%p) 0x%x\n",This,This->currentLanguage);
 572
 573     if (!plangid)
 574         return E_INVALIDARG;
 575
 576     *plangid = This->currentLanguage;
 577
 578     return S_OK;
 579 }
 580
 581 static HRESULT WINAPI InputProcessorProfiles_ChangeCurrentLanguage(
 582         ITfInputProcessorProfiles *iface, LANGID langid)
 583 {
 584     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 585     ITfLanguageProfileNotifySink *sink;
 586     struct list *cursor;
 587     BOOL accept;
 588
 589     FIXME("STUB:(%p)\n",This);
 590
 591     SINK_FOR_EACH(cursor, &This->LanguageProfileNotifySink, ITfLanguageProfileNotifySink, sink)
 592     {
 593         accept = TRUE;
 594         ITfLanguageProfileNotifySink_OnLanguageChange(sink, langid, &accept);
 595         if (!accept)
 596             return E_FAIL;
 597     }
 598
 599     /* TODO:  On successful language change call OnLanguageChanged sink */
 600     return E_NOTIMPL;
 601 }
 602
 603 static HRESULT WINAPI InputProcessorProfiles_GetLanguageList(
 604         ITfInputProcessorProfiles *iface, LANGID **ppLangId, ULONG *pulCount)
 605 {
 606     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 607     FIXME("Semi-STUB:(%p)\n",This);
 608     *ppLangId = CoTaskMemAlloc(sizeof(LANGID));
 609     **ppLangId = This->currentLanguage;
 610     *pulCount = 1;
 611     return S_OK;
 612 }
 613
 614 static HRESULT WINAPI InputProcessorProfiles_EnumLanguageProfiles(
 615         ITfInputProcessorProfiles *iface, LANGID langid,
 616         IEnumTfLanguageProfiles **ppEnum)
 617 {
 618     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 619     TRACE("(%p) %x %p\n",This,langid,ppEnum);
 620     return EnumTfLanguageProfiles_Constructor(langid, ppEnum);
 621 }
 622
 623 static HRESULT WINAPI InputProcessorProfiles_EnableLanguageProfile(
 624         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 625         REFGUID guidProfile, BOOL fEnable)
 626 {
 627     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 628     HKEY key;
 629     WCHAR buf[39];
 630     WCHAR buf2[39];
 631     WCHAR fullkey[168];
 632     ULONG res;
 633
 634     TRACE("(%p) %s %x %s %i\n",This, debugstr_guid(rclsid), langid, debugstr_guid(guidProfile), fEnable);
 635
 636     StringFromGUID2(rclsid, buf, 39);
 637     StringFromGUID2(guidProfile, buf2, 39);
 638     sprintfW(fullkey,szwFullLangfmt,szwSystemTIPKey,buf,szwLngp,langid,buf2);
 639
 640     res = RegOpenKeyExW(HKEY_CURRENT_USER, fullkey, 0, KEY_READ | KEY_WRITE, &key);
 641
 642     if (!res)
 643     {
 644         RegSetValueExW(key, szwEnable, 0, REG_DWORD, (LPBYTE)&fEnable, sizeof(DWORD));
 645         RegCloseKey(key);
 646     }
 647     else
 648         return E_FAIL;
 649
 650     return S_OK;
 651 }
 652
 653 static HRESULT WINAPI InputProcessorProfiles_IsEnabledLanguageProfile(
 654         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 655         REFGUID guidProfile, BOOL *pfEnable)
 656 {
 657     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 658     HKEY key;
 659     WCHAR buf[39];
 660     WCHAR buf2[39];
 661     WCHAR fullkey[168];
 662     ULONG res;
 663
 664     TRACE("(%p) %s, %i, %s, %p\n",This,debugstr_guid(rclsid),langid,debugstr_guid(guidProfile),pfEnable);
 665
 666     if (!pfEnable)
 667         return E_INVALIDARG;
 668
 669     StringFromGUID2(rclsid, buf, 39);
 670     StringFromGUID2(guidProfile, buf2, 39);
 671     sprintfW(fullkey,szwFullLangfmt,szwSystemTIPKey,buf,szwLngp,langid,buf2);
 672
 673     res = RegOpenKeyExW(HKEY_CURRENT_USER, fullkey, 0, KEY_READ | KEY_WRITE, &key);
 674
 675     if (!res)
 676     {
 677         DWORD count = sizeof(DWORD);
 678         res = RegQueryValueExW(key, szwEnable, 0, NULL, (LPBYTE)pfEnable, &count);
 679         RegCloseKey(key);
 680     }
 681
 682     if (res)  /* Try Default */
 683     {
 684         res = RegOpenKeyExW(HKEY_LOCAL_MACHINE, fullkey, 0, KEY_READ | KEY_WRITE, &key);
 685
 686         if (!res)
 687         {
 688             DWORD count = sizeof(DWORD);
 689             res = RegQueryValueExW(key, szwEnable, 0, NULL, (LPBYTE)pfEnable, &count);
 690             RegCloseKey(key);
 691         }
 692     }
 693
 694     if (!res)
 695         return S_OK;
 696     else
 697         return E_FAIL;
 698 }
 699
 700 static HRESULT WINAPI InputProcessorProfiles_EnableLanguageProfileByDefault(
 701         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 702         REFGUID guidProfile, BOOL fEnable)
 703 {
 704     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 705     HKEY key;
 706     WCHAR buf[39];
 707     WCHAR buf2[39];
 708     WCHAR fullkey[168];
 709     ULONG res;
 710
 711     TRACE("(%p) %s %x %s %i\n",This,debugstr_guid(rclsid),langid,debugstr_guid(guidProfile),fEnable);
 712
 713     StringFromGUID2(rclsid, buf, 39);
 714     StringFromGUID2(guidProfile, buf2, 39);
 715     sprintfW(fullkey,szwFullLangfmt,szwSystemTIPKey,buf,szwLngp,langid,buf2);
 716
 717     res = RegOpenKeyExW(HKEY_LOCAL_MACHINE, fullkey, 0, KEY_READ | KEY_WRITE, &key);
 718
 719     if (!res)
 720     {
 721         RegSetValueExW(key, szwEnable, 0, REG_DWORD, (LPBYTE)&fEnable, sizeof(DWORD));
 722         RegCloseKey(key);
 723     }
 724     else
 725         return E_FAIL;
 726
 727     return S_OK;
 728 }
 729
 730 static HRESULT WINAPI InputProcessorProfiles_SubstituteKeyboardLayout(
 731         ITfInputProcessorProfiles *iface, REFCLSID rclsid, LANGID langid,
 732         REFGUID guidProfile, HKL hKL)
 733 {
 734     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfiles(iface);
 735     FIXME("STUB:(%p)\n",This);
 736     return E_NOTIMPL;
 737 }
 738
 739 static const ITfInputProcessorProfilesVtbl InputProcessorProfilesVtbl =
 740 {
 741     InputProcessorProfiles_QueryInterface,
 742     InputProcessorProfiles_AddRef,
 743     InputProcessorProfiles_Release,
 744     InputProcessorProfiles_Register,
 745     InputProcessorProfiles_Unregister,
 746     InputProcessorProfiles_AddLanguageProfile,
 747     InputProcessorProfiles_RemoveLanguageProfile,
 748     InputProcessorProfiles_EnumInputProcessorInfo,
 749     InputProcessorProfiles_GetDefaultLanguageProfile,
 750     InputProcessorProfiles_SetDefaultLanguageProfile,
 751     InputProcessorProfiles_ActivateLanguageProfile,
 752     InputProcessorProfiles_GetActiveLanguageProfile,
 753     InputProcessorProfiles_GetLanguageProfileDescription,
 754     InputProcessorProfiles_GetCurrentLanguage,
 755     InputProcessorProfiles_ChangeCurrentLanguage,
 756     InputProcessorProfiles_GetLanguageList,
 757     InputProcessorProfiles_EnumLanguageProfiles,
 758     InputProcessorProfiles_EnableLanguageProfile,
 759     InputProcessorProfiles_IsEnabledLanguageProfile,
 760     InputProcessorProfiles_EnableLanguageProfileByDefault,
 761     InputProcessorProfiles_SubstituteKeyboardLayout
 762 };
 763
 764 static inline InputProcessorProfiles *impl_from_ITfInputProcessorProfileMgr(ITfInputProcessorProfileMgr *iface)
 765 {
 766     return CONTAINING_RECORD(iface, InputProcessorProfiles, ITfInputProcessorProfileMgr_iface);
 767 }
 768
 769 static HRESULT WINAPI InputProcessorProfileMgr_QueryInterface(ITfInputProcessorProfileMgr *iface, REFIID riid, void **ppv)
 770 {
 771     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 772     return ITfInputProcessorProfiles_QueryInterface(&This->ITfInputProcessorProfiles_iface, riid, ppv);
 773 }
 774
 775 static ULONG WINAPI InputProcessorProfileMgr_AddRef(ITfInputProcessorProfileMgr *iface)
 776 {
 777     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 778     return ITfInputProcessorProfiles_AddRef(&This->ITfInputProcessorProfiles_iface);
 779 }
 780
 781 static ULONG WINAPI InputProcessorProfileMgr_Release(ITfInputProcessorProfileMgr *iface)
 782 {
 783     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 784     return ITfInputProcessorProfiles_Release(&This->ITfInputProcessorProfiles_iface);
 785 }
 786
 787 static HRESULT WINAPI InputProcessorProfileMgr_ActivateProfile(ITfInputProcessorProfileMgr *iface, DWORD dwProfileType,
 788         LANGID langid, REFCLSID clsid, REFGUID guidProfile, HKL hkl, DWORD dwFlags)
 789 {
 790     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 791     FIXME("(%p)->(%d %x %s %s %p %x)\n", This, dwProfileType, langid, debugstr_guid(clsid),
 792           debugstr_guid(guidProfile), hkl, dwFlags);
 793     return E_NOTIMPL;
 794 }
 795
 796 static HRESULT WINAPI InputProcessorProfileMgr_DeactivateProfile(ITfInputProcessorProfileMgr *iface, DWORD dwProfileType,
 797         LANGID langid, REFCLSID clsid, REFGUID guidProfile, HKL hkl, DWORD dwFlags)
 798 {
 799     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 800     FIXME("(%p)->(%d %x %s %s %p %x)\n", This, dwProfileType, langid, debugstr_guid(clsid),
 801           debugstr_guid(guidProfile), hkl, dwFlags);
 802     return E_NOTIMPL;
 803 }
 804
 805 static HRESULT WINAPI InputProcessorProfileMgr_GetProfile(ITfInputProcessorProfileMgr *iface, DWORD dwProfileType,
 806         LANGID langid, REFCLSID clsid, REFGUID guidProfile, HKL hkl, TF_INPUTPROCESSORPROFILE *pProfile)
 807 {
 808     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 809     FIXME("(%p)->(%d %x %s %s %p %p)\n", This, dwProfileType, langid, debugstr_guid(clsid),
 810           debugstr_guid(guidProfile), hkl, pProfile);
 811     return E_NOTIMPL;
 812 }
 813
 814 static HRESULT WINAPI InputProcessorProfileMgr_EnumProfiles(ITfInputProcessorProfileMgr *iface, LANGID langid,
 815         IEnumTfInputProcessorProfiles **ppEnum)
 816 {
 817     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 818     EnumTfInputProcessorProfiles *enum_profiles;
 819
 820     TRACE("(%p)->(%x %p)\n", This, langid, ppEnum);
 821
 822     enum_profiles = HeapAlloc(GetProcessHeap(), 0, sizeof(*enum_profiles));
 823     if(!enum_profiles)
 824         return E_OUTOFMEMORY;
 825
 826     enum_profiles->IEnumTfInputProcessorProfiles_iface.lpVtbl = &EnumTfInputProcessorProfilesVtbl;
 827     enum_profiles->ref = 1;
 828
 829     *ppEnum = &enum_profiles->IEnumTfInputProcessorProfiles_iface;
 830     return S_OK;
 831 }
 832
 833 static HRESULT WINAPI InputProcessorProfileMgr_ReleaseInputProcessor(ITfInputProcessorProfileMgr *iface, REFCLSID rclsid,
 834         DWORD dwFlags)
 835 {
 836     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 837     FIXME("(%p)->(%s %x)\n", This, debugstr_guid(rclsid), dwFlags);
 838     return E_NOTIMPL;
 839 }
 840
 841 static HRESULT WINAPI InputProcessorProfileMgr_RegisterProfile(ITfInputProcessorProfileMgr *iface, REFCLSID rclsid,
 842         LANGID langid, REFGUID guidProfile, const WCHAR *pchDesc, ULONG cchDesc, const WCHAR *pchIconFile,
 843         ULONG cchFile, ULONG uIconIndex, HKL hklsubstitute, DWORD dwPreferredLayout, BOOL bEnabledByDefault,
 844         DWORD dwFlags)
 845 {
 846     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 847     FIXME("(%p)->(%s %x %s %s %d %s %u %u %p %x %x %x)\n", This, debugstr_guid(rclsid), langid, debugstr_guid(guidProfile),
 848           debugstr_w(pchDesc), cchDesc, debugstr_w(pchIconFile), cchFile, uIconIndex, hklsubstitute, dwPreferredLayout,
 849           bEnabledByDefault, dwFlags);
 850     return E_NOTIMPL;
 851 }
 852
 853 static HRESULT WINAPI InputProcessorProfileMgr_UnregisterProfile(ITfInputProcessorProfileMgr *iface, REFCLSID rclsid,
 854         LANGID langid, REFGUID guidProfile, DWORD dwFlags)
 855 {
 856     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 857     FIXME("(%p)->(%s %x %s %x)\n", This, debugstr_guid(rclsid), langid, debugstr_guid(guidProfile), dwFlags);
 858     return E_NOTIMPL;
 859 }
 860
 861 static HRESULT WINAPI InputProcessorProfileMgr_GetActiveProfile(ITfInputProcessorProfileMgr *iface, REFGUID catid,
 862         TF_INPUTPROCESSORPROFILE *pProfile)
 863 {
 864     InputProcessorProfiles *This = impl_from_ITfInputProcessorProfileMgr(iface);
 865     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(catid), pProfile);
 866     return E_NOTIMPL;
 867 }
 868
 869 static const ITfInputProcessorProfileMgrVtbl InputProcessorProfileMgrVtbl = {
 870     InputProcessorProfileMgr_QueryInterface,
 871     InputProcessorProfileMgr_AddRef,
 872     InputProcessorProfileMgr_Release,
 873     InputProcessorProfileMgr_ActivateProfile,
 874     InputProcessorProfileMgr_DeactivateProfile,
 875     InputProcessorProfileMgr_GetProfile,
 876     InputProcessorProfileMgr_EnumProfiles,
 877     InputProcessorProfileMgr_ReleaseInputProcessor,
 878     InputProcessorProfileMgr_RegisterProfile,
 879     InputProcessorProfileMgr_UnregisterProfile,
 880     InputProcessorProfileMgr_GetActiveProfile
 881 };
 882
 883 /*****************************************************
 884  * ITfSource functions
 885  *****************************************************/
 886 static HRESULT WINAPI IPPSource_QueryInterface(ITfSource *iface, REFIID iid, LPVOID *ppvOut)
 887 {
 888     InputProcessorProfiles *This = impl_from_ITfSource(iface);
 889     return ITfInputProcessorProfiles_QueryInterface(&This->ITfInputProcessorProfiles_iface, iid, ppvOut);
 890 }
 891
 892 static ULONG WINAPI IPPSource_AddRef(ITfSource *iface)
 893 {
 894     InputProcessorProfiles *This = impl_from_ITfSource(iface);
 895     return ITfInputProcessorProfiles_AddRef(&This->ITfInputProcessorProfiles_iface);
 896 }
 897
 898 static ULONG WINAPI IPPSource_Release(ITfSource *iface)
 899 {
 900     InputProcessorProfiles *This = impl_from_ITfSource(iface);
 901     return ITfInputProcessorProfiles_Release(&This->ITfInputProcessorProfiles_iface);
 902 }
 903
 904 static HRESULT WINAPI IPPSource_AdviseSink(ITfSource *iface,
 905         REFIID riid, IUnknown *punk, DWORD *pdwCookie)
 906 {
 907     InputProcessorProfiles *This = impl_from_ITfSource(iface);
 908
 909     TRACE("(%p) %s %p %p\n",This,debugstr_guid(riid),punk,pdwCookie);
 910
 911     if (!riid || !punk || !pdwCookie)
 912         return E_INVALIDARG;
 913
 914     if (IsEqualIID(riid, &IID_ITfLanguageProfileNotifySink))
 915         return advise_sink(&This->LanguageProfileNotifySink, &IID_ITfLanguageProfileNotifySink,
 916                            COOKIE_MAGIC_IPPSINK, punk, pdwCookie);
 917
 918     FIXME("(%p) Unhandled Sink: %s\n",This,debugstr_guid(riid));
 919     return E_NOTIMPL;
 920 }
 921
 922 static HRESULT WINAPI IPPSource_UnadviseSink(ITfSource *iface, DWORD pdwCookie)
 923 {
 924     InputProcessorProfiles *This = impl_from_ITfSource(iface);
 925
 926     TRACE("(%p) %x\n",This,pdwCookie);
 927
 928     if (get_Cookie_magic(pdwCookie)!=COOKIE_MAGIC_IPPSINK)
 929         return E_INVALIDARG;
 930
 931     return unadvise_sink(pdwCookie);
 932 }
 933
 934 static const ITfSourceVtbl InputProcessorProfilesSourceVtbl =
 935 {
 936     IPPSource_QueryInterface,
 937     IPPSource_AddRef,
 938     IPPSource_Release,
 939     IPPSource_AdviseSink,
 940     IPPSource_UnadviseSink,
 941 };
 942
 943 HRESULT InputProcessorProfiles_Constructor(IUnknown *pUnkOuter, IUnknown **ppOut)
 944 {
 945     InputProcessorProfiles *This;
 946     if (pUnkOuter)
 947         return CLASS_E_NOAGGREGATION;
 948
 949     This = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(InputProcessorProfiles));
 950     if (This == NULL)
 951         return E_OUTOFMEMORY;
 952
 953     This->ITfInputProcessorProfiles_iface.lpVtbl= &InputProcessorProfilesVtbl;
 954     This->ITfSource_iface.lpVtbl = &InputProcessorProfilesSourceVtbl;
 955     This->ITfInputProcessorProfileMgr_iface.lpVtbl = &InputProcessorProfileMgrVtbl;
 956     This->refCount = 1;
 957     This->currentLanguage = GetUserDefaultLCID();
 958
 959     list_init(&This->LanguageProfileNotifySink);
 960
 961     *ppOut = (IUnknown *)&This->ITfInputProcessorProfiles_iface;
 962     TRACE("returning %p\n", *ppOut);
 963     return S_OK;
 964 }
 965
 966 /**************************************************
 967  * IEnumGUID implementation for ITfInputProcessorProfiles::EnumInputProcessorInfo
 968  **************************************************/
 969 static void ProfilesEnumGuid_Destructor(ProfilesEnumGuid *This)
 970 {
 971     TRACE("destroying %p\n", This);
 972     RegCloseKey(This->key);
 973     HeapFree(GetProcessHeap(),0,This);
 974 }
 975
 976 static HRESULT WINAPI ProfilesEnumGuid_QueryInterface(IEnumGUID *iface, REFIID iid, LPVOID *ppvOut)
 977 {
 978     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
 979     *ppvOut = NULL;
 980
 981     if (IsEqualIID(iid, &IID_IUnknown) || IsEqualIID(iid, &IID_IEnumGUID))
 982     {
 983         *ppvOut = &This->IEnumGUID_iface;
 984     }
 985
 986     if (*ppvOut)
 987     {
 988         IEnumGUID_AddRef(iface);
 989         return S_OK;
 990     }
 991
 992     WARN("unsupported interface: %s\n", debugstr_guid(iid));
 993     return E_NOINTERFACE;
 994 }
 995
 996 static ULONG WINAPI ProfilesEnumGuid_AddRef(IEnumGUID *iface)
 997 {
 998     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
 999     return InterlockedIncrement(&This->refCount);
1000 }
1001
1002 static ULONG WINAPI ProfilesEnumGuid_Release(IEnumGUID *iface)
1003 {
1004     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
1005     ULONG ret;
1006
1007     ret = InterlockedDecrement(&This->refCount);
1008     if (ret == 0)
1009         ProfilesEnumGuid_Destructor(This);
1010     return ret;
1011 }
1012
1013 /*****************************************************
1014  * IEnumGuid functions
1015  *****************************************************/
1016 static HRESULT WINAPI ProfilesEnumGuid_Next( LPENUMGUID iface,
1017     ULONG celt, GUID *rgelt, ULONG *pceltFetched)
1018 {
1019     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
1020     ULONG fetched = 0;
1021
1022     TRACE("(%p)\n",This);
1023
1024     if (rgelt == NULL) return E_POINTER;
1025
1026     if (This->key) while (fetched < celt)
1027     {
1028         LSTATUS res;
1029         HRESULT hr;
1030         WCHAR catid[39];
1031         DWORD cName = 39;
1032
1033         res = RegEnumKeyExW(This->key, This->next_index, catid, &cName,
1034                     NULL, NULL, NULL, NULL);
1035         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
1036         ++(This->next_index);
1037
1038         hr = CLSIDFromString(catid, rgelt);
1039         if (FAILED(hr)) continue;
1040
1041         ++fetched;
1042         ++rgelt;
1043     }
1044
1045     if (pceltFetched) *pceltFetched = fetched;
1046     return fetched == celt ? S_OK : S_FALSE;
1047 }
1048
1049 static HRESULT WINAPI ProfilesEnumGuid_Skip( LPENUMGUID iface, ULONG celt)
1050 {
1051     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
1052     TRACE("(%p)\n",This);
1053
1054     This->next_index += celt;
1055     return S_OK;
1056 }
1057
1058 static HRESULT WINAPI ProfilesEnumGuid_Reset( LPENUMGUID iface)
1059 {
1060     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
1061     TRACE("(%p)\n",This);
1062     This->next_index = 0;
1063     return S_OK;
1064 }
1065
1066 static HRESULT WINAPI ProfilesEnumGuid_Clone( LPENUMGUID iface,
1067     IEnumGUID **ppenum)
1068 {
1069     ProfilesEnumGuid *This = impl_from_IEnumGUID(iface);
1070     HRESULT res;
1071
1072     TRACE("(%p)\n",This);
1073
1074     if (ppenum == NULL) return E_POINTER;
1075
1076     res = ProfilesEnumGuid_Constructor(ppenum);
1077     if (SUCCEEDED(res))
1078     {
1079         ProfilesEnumGuid *new_This = impl_from_IEnumGUID(*ppenum);
1080         new_This->next_index = This->next_index;
1081     }
1082     return res;
1083 }
1084
1085 static const IEnumGUIDVtbl EnumGUIDVtbl =
1086 {
1087     ProfilesEnumGuid_QueryInterface,
1088     ProfilesEnumGuid_AddRef,
1089     ProfilesEnumGuid_Release,
1090     ProfilesEnumGuid_Next,
1091     ProfilesEnumGuid_Skip,
1092     ProfilesEnumGuid_Reset,
1093     ProfilesEnumGuid_Clone
1094 };
1095
1096 static HRESULT ProfilesEnumGuid_Constructor(IEnumGUID **ppOut)
1097 {
1098     ProfilesEnumGuid *This;
1099
1100     This = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ProfilesEnumGuid));
1101     if (This == NULL)
1102         return E_OUTOFMEMORY;
1103
1104     This->IEnumGUID_iface.lpVtbl= &EnumGUIDVtbl;
1105     This->refCount = 1;
1106
1107     if (RegCreateKeyExW(HKEY_LOCAL_MACHINE, szwSystemTIPKey, 0, NULL, 0,
1108                     KEY_READ | KEY_WRITE, NULL, &This->key, NULL) != ERROR_SUCCESS)
1109     {
1110         HeapFree(GetProcessHeap(), 0, This);
1111         return E_FAIL;
1112     }
1113
1114     *ppOut = &This->IEnumGUID_iface;
1115     TRACE("returning %p\n", *ppOut);
1116     return S_OK;
1117 }
1118
1119 /**************************************************
1120  * IEnumTfLanguageProfiles implementation
1121  **************************************************/
1122 static void EnumTfLanguageProfiles_Destructor(EnumTfLanguageProfiles *This)
1123 {
1124     TRACE("destroying %p\n", This);
1125     RegCloseKey(This->tipkey);
1126     if (This->langkey)
1127         RegCloseKey(This->langkey);
1128     ITfCategoryMgr_Release(This->catmgr);
1129     HeapFree(GetProcessHeap(),0,This);
1130 }
1131
1132 static HRESULT WINAPI EnumTfLanguageProfiles_QueryInterface(IEnumTfLanguageProfiles *iface, REFIID iid, LPVOID *ppvOut)
1133 {
1134     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1135
1136     *ppvOut = NULL;
1137
1138     if (IsEqualIID(iid, &IID_IUnknown) || IsEqualIID(iid, &IID_IEnumTfLanguageProfiles))
1139     {
1140         *ppvOut = &This->IEnumTfLanguageProfiles_iface;
1141     }
1142
1143     if (*ppvOut)
1144     {
1145         IEnumTfLanguageProfiles_AddRef(iface);
1146         return S_OK;
1147     }
1148
1149     WARN("unsupported interface: %s\n", debugstr_guid(iid));
1150     return E_NOINTERFACE;
1151 }
1152
1153 static ULONG WINAPI EnumTfLanguageProfiles_AddRef(IEnumTfLanguageProfiles *iface)
1154 {
1155     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1156     return InterlockedIncrement(&This->refCount);
1157 }
1158
1159 static ULONG WINAPI EnumTfLanguageProfiles_Release(IEnumTfLanguageProfiles *iface)
1160 {
1161     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1162     ULONG ret;
1163
1164     ret = InterlockedDecrement(&This->refCount);
1165     if (ret == 0)
1166         EnumTfLanguageProfiles_Destructor(This);
1167     return ret;
1168 }
1169
1170 /*****************************************************
1171  * IEnumGuid functions
1172  *****************************************************/
1173 static INT next_LanguageProfile(EnumTfLanguageProfiles *This, CLSID clsid, TF_LANGUAGEPROFILE *tflp)
1174 {
1175     WCHAR fullkey[168];
1176     ULONG res;
1177     WCHAR profileid[39];
1178     DWORD cName = 39;
1179     GUID  profile;
1180
1181     static const WCHAR fmt[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x',0};
1182
1183     if (This->langkey == NULL)
1184     {
1185         sprintfW(fullkey,fmt,This->szwCurrentClsid,szwLngp,This->langid);
1186         res = RegOpenKeyExW(This->tipkey, fullkey, 0, KEY_READ | KEY_WRITE, &This->langkey);
1187         if (res)
1188         {
1189             This->langkey = NULL;
1190             return -1;
1191         }
1192         This->lang_index = 0;
1193     }
1194     res = RegEnumKeyExW(This->langkey, This->lang_index, profileid, &cName,
1195                 NULL, NULL, NULL, NULL);
1196     if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA)
1197     {
1198         RegCloseKey(This->langkey);
1199         This->langkey = NULL;
1200         return -1;
1201     }
1202     ++(This->lang_index);
1203
1204     if (tflp)
1205     {
1206         static const GUID * tipcats[3] = { &GUID_TFCAT_TIP_KEYBOARD,
1207                                            &GUID_TFCAT_TIP_SPEECH,
1208                                            &GUID_TFCAT_TIP_HANDWRITING };
1209         res = CLSIDFromString(profileid, &profile);
1210         if (FAILED(res)) return 0;
1211
1212         tflp->clsid = clsid;
1213         tflp->langid = This->langid;
1214         tflp->fActive = get_active_textservice(&clsid, NULL);
1215         tflp->guidProfile = profile;
1216         if (ITfCategoryMgr_FindClosestCategory(This->catmgr, &clsid,
1217                 &tflp->catid, tipcats, 3) != S_OK)
1218             ITfCategoryMgr_FindClosestCategory(This->catmgr, &clsid,
1219                     &tflp->catid, NULL, 0);
1220     }
1221
1222     return 1;
1223 }
1224
1225 static HRESULT WINAPI EnumTfLanguageProfiles_Next(IEnumTfLanguageProfiles *iface,
1226     ULONG ulCount, TF_LANGUAGEPROFILE *pProfile, ULONG *pcFetch)
1227 {
1228     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1229     ULONG fetched = 0;
1230
1231     TRACE("(%p)\n",This);
1232
1233     if (pProfile == NULL) return E_POINTER;
1234
1235     if (This->tipkey) while (fetched < ulCount)
1236     {
1237         LSTATUS res;
1238         HRESULT hr;
1239         DWORD cName = 39;
1240         GUID clsid;
1241
1242         res = RegEnumKeyExW(This->tipkey, This->tip_index,
1243                     This->szwCurrentClsid, &cName, NULL, NULL, NULL, NULL);
1244         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
1245         ++(This->tip_index);
1246         hr = CLSIDFromString(This->szwCurrentClsid, &clsid);
1247         if (FAILED(hr)) continue;
1248
1249         while ( fetched < ulCount)
1250         {
1251             INT res = next_LanguageProfile(This, clsid, pProfile);
1252             if (res == 1)
1253             {
1254                 ++fetched;
1255                 ++pProfile;
1256             }
1257             else if (res == -1)
1258                 break;
1259             else
1260                 continue;
1261         }
1262     }
1263
1264     if (pcFetch) *pcFetch = fetched;
1265     return fetched == ulCount ? S_OK : S_FALSE;
1266 }
1267
1268 static HRESULT WINAPI EnumTfLanguageProfiles_Skip( IEnumTfLanguageProfiles* iface, ULONG celt)
1269 {
1270     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1271     FIXME("STUB (%p)\n",This);
1272     return E_NOTIMPL;
1273 }
1274
1275 static HRESULT WINAPI EnumTfLanguageProfiles_Reset( IEnumTfLanguageProfiles* iface)
1276 {
1277     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1278     TRACE("(%p)\n",This);
1279     This->tip_index = 0;
1280     if (This->langkey)
1281         RegCloseKey(This->langkey);
1282     This->langkey = NULL;
1283     This->lang_index = 0;
1284     return S_OK;
1285 }
1286
1287 static HRESULT WINAPI EnumTfLanguageProfiles_Clone( IEnumTfLanguageProfiles *iface,
1288     IEnumTfLanguageProfiles **ppenum)
1289 {
1290     EnumTfLanguageProfiles *This = impl_from_IEnumTfLanguageProfiles(iface);
1291     HRESULT res;
1292
1293     TRACE("(%p)\n",This);
1294
1295     if (ppenum == NULL) return E_POINTER;
1296
1297     res = EnumTfLanguageProfiles_Constructor(This->langid, ppenum);
1298     if (SUCCEEDED(res))
1299     {
1300         EnumTfLanguageProfiles *new_This = (EnumTfLanguageProfiles *)*ppenum;
1301         new_This->tip_index = This->tip_index;
1302         lstrcpynW(new_This->szwCurrentClsid,This->szwCurrentClsid,39);
1303
1304         if (This->langkey)
1305         {
1306             WCHAR fullkey[168];
1307             static const WCHAR fmt[] = {'%','s','\\','%','s','\\','0','x','%','0','8','x',0};
1308
1309             sprintfW(fullkey,fmt,This->szwCurrentClsid,szwLngp,This->langid);
1310             res = RegOpenKeyExW(new_This->tipkey, fullkey, 0, KEY_READ | KEY_WRITE, &This->langkey);
1311             new_This->lang_index = This->lang_index;
1312         }
1313     }
1314     return res;
1315 }
1316
1317 static const IEnumTfLanguageProfilesVtbl EnumTfLanguageProfilesVtbl =
1318 {
1319     EnumTfLanguageProfiles_QueryInterface,
1320     EnumTfLanguageProfiles_AddRef,
1321     EnumTfLanguageProfiles_Release,
1322     EnumTfLanguageProfiles_Clone,
1323     EnumTfLanguageProfiles_Next,
1324     EnumTfLanguageProfiles_Reset,
1325     EnumTfLanguageProfiles_Skip
1326 };
1327
1328 static HRESULT EnumTfLanguageProfiles_Constructor(LANGID langid, IEnumTfLanguageProfiles **ppOut)
1329 {
1330     HRESULT hr;
1331     EnumTfLanguageProfiles *This;
1332
1333     This = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(EnumTfLanguageProfiles));
1334     if (This == NULL)
1335         return E_OUTOFMEMORY;
1336
1337     This->IEnumTfLanguageProfiles_iface.lpVtbl= &EnumTfLanguageProfilesVtbl;
1338     This->refCount = 1;
1339     This->langid = langid;
1340
1341     hr = CategoryMgr_Constructor(NULL,(IUnknown**)&This->catmgr);
1342     if (FAILED(hr))
1343     {
1344         HeapFree(GetProcessHeap(),0,This);
1345         return hr;
1346     }
1347
1348     if (RegCreateKeyExW(HKEY_LOCAL_MACHINE, szwSystemTIPKey, 0, NULL, 0,
1349                     KEY_READ | KEY_WRITE, NULL, &This->tipkey, NULL) != ERROR_SUCCESS)
1350     {
1351         HeapFree(GetProcessHeap(), 0, This);
1352         return E_FAIL;
1353     }
1354
1355     *ppOut = &This->IEnumTfLanguageProfiles_iface;
1356     TRACE("returning %p\n", *ppOut);
1357     return S_OK;
1358 }