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