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