1 /* vi:set ts=8 sts=4 sw=4: 2 * 3 * VIM - Vi IMproved by Bram Moolenaar 4 * 5 * Do ":help uganda" in Vim to read copying and usage conditions. 6 * Do ":help credits" in Vim to see a list of people who contributed. 7 */ 8 9 /* 10 * DESCRIPTION: 11 * This module produces Global IME for Vim, on Windows with Internet 12 * Explorer 5.01 or higher. You need three files "dimm.idl", "dimm.h", and 13 * "dimm_i.c" when compile this module at your self. "dimm.h", and 14 * "dimm_i.c" are generated from "dimm.idl" by using MIDL.EXE as like 15 * "if_ole.h". You can get "dimm.idl" in MSDN web site. I got it below 16 * URL. 17 * 18 * WHAT IS THE GLOBAL IME?: 19 * Global IME makes capability input Chinese, Japanese, and Korean text into 20 * Vim buffer on any language version of Windows 98, Windows 95, and Windows 21 * NT 4.0. See below URL for detail of Global IME. You can also find 22 * various laguage version of Global IME at same place. 23 * 24 * RUNTIME REQUIREMENTS: 25 * - Internet Exproler 5.01 or higher. 26 * - Global IME (with language pack?). 27 * - Of course Vim for Windows. 28 * 29 * URLS: 30 * - Where you can probably get "dimm.idl". 31 * http://msdn.microsoft.com/downloads/samples/internet/libraries/ie5_lib/sample.asp 32 * - Global IME detailed information. 33 * http://www.microsoft.com/windows/ie/features/ime.asp 34 */ 35 36 #ifdef GLOBAL_IME 37 38 #define WIN32_LEAN_AND_MEAN 39 #include <windows.h> 40 #include <objbase.h> 41 extern "C" { 42 #include "vim.h" 43 } 44 #include "dimm.h" 45 #include "glbl_ime.h" 46 47 static IActiveIMMApp *pIApp = NULL; 48 static IActiveIMMMessagePumpOwner *pIMsg = NULL; 49 static HWND s_hWnd = NULL; 50 static BOOL s_bStatus = FALSE; /* for evacuate */ 51 52 /* 53 * Initialize Global IME. 54 * "atom" must be return value of RegisterClass(Ex). 55 */ 56 void 57 global_ime_init(ATOM atom, HWND hWnd) 58 { 59 IUnknown *pI; 60 HRESULT hr; 61 62 if (pIApp != NULL || pIMsg != NULL) 63 return; 64 OleInitialize(NULL); 65 66 /* 67 * Get interface IUnknown 68 */ 69 hr = CoCreateInstance(CLSID_CActiveIMM, NULL, CLSCTX_SERVER, 70 IID_IUnknown, (void**)&pI); 71 if (FAILED(hr) || !pI) 72 return; 73 74 /* 75 * Get interface IActiveIMMApp 76 */ 77 hr = pI->QueryInterface(IID_IActiveIMMApp, (void**)&pIApp); 78 if (FAILED(hr)) 79 pIApp = NULL; 80 81 /* 82 * Get interface IActiveIMMMessagePumpOwner 83 */ 84 hr = pI->QueryInterface(IID_IActiveIMMMessagePumpOwner, (void**)&pIMsg); 85 if (FAILED(hr)) 86 pIMsg = NULL; 87 88 if (pIApp != NULL) 89 { 90 pIApp->Activate(TRUE); 91 pIApp->FilterClientWindows(&atom, 1); 92 } 93 if (pIMsg != NULL) 94 pIMsg->Start(); 95 96 pI->Release(); 97 s_hWnd = hWnd; 98 } 99 100 /* 101 * Reset and clear Global IME. 102 */ 103 void 104 global_ime_end() 105 { 106 if (pIApp != NULL) 107 { 108 IActiveIMMApp *p = pIApp; 109 110 pIApp = NULL; 111 p->FilterClientWindows(NULL, 0); 112 p->Deactivate(); 113 p->Release(); 114 } 115 if (pIMsg != NULL) 116 { 117 IActiveIMMMessagePumpOwner *p = pIMsg; 118 119 pIMsg = NULL; 120 p->End(); 121 p->Release(); 122 } 123 OleUninitialize(); 124 } 125 126 /* 127 * Replacement for DefWindowProc(). 128 */ 129 LRESULT WINAPI 130 global_ime_DefWindowProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam) 131 { 132 LRESULT lResult; 133 134 if (pIApp == NULL || pIApp->OnDefWindowProc(hWnd, Msg, 135 wParam, lParam, &lResult) != S_OK) 136 { 137 #if defined(WIN3264) && defined(FEAT_MBYTE) 138 if (wide_WindowProc) 139 lResult = DefWindowProcW(hwnd, Msg, wParam, lParam); 140 else 141 #endif 142 lResult = DefWindowProc(hWnd, Msg, wParam, lParam); 143 } 144 return lResult; 145 } 146 147 /* 148 * Replace with TranslateMessage() 149 */ 150 BOOL WINAPI 151 global_ime_TranslateMessage(CONST MSG *lpMsg) 152 { 153 if (pIMsg == NULL || pIMsg->OnTranslateMessage(lpMsg) == S_FALSE) 154 return TranslateMessage(lpMsg); 155 return TRUE; 156 } 157 158 /* 159 * Set position of IME compotision window. 160 * 161 * You have to call this before starting composition. If once composition 162 * started, this can take no effect until that composition have finised. So 163 * you should handle WM_IME_STARTCOMPOSITION and call this function. 164 */ 165 void WINAPI 166 global_ime_set_position(POINT *pPoint) 167 { 168 HIMC hImc = NULL; 169 170 if (pIApp == NULL || pPoint == NULL) 171 return; 172 173 if (SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 174 { 175 COMPOSITIONFORM CompForm; 176 177 CompForm.dwStyle = CFS_POINT; 178 CompForm.ptCurrentPos = *pPoint; 179 pIApp->SetCompositionWindow(hImc, &CompForm); 180 pIApp->ReleaseContext(s_hWnd, hImc); 181 } 182 } 183 184 /* 185 * Set font to Global IME 186 */ 187 /* GIME_TEST */ 188 void WINAPI 189 global_ime_set_font(LOGFONT *pFont) 190 { 191 HIMC hImc = NULL; 192 193 if (pIApp == NULL || pFont == NULL) 194 return; 195 196 if (SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 197 { 198 pIApp->SetCompositionFontA(hImc, pFont); 199 pIApp->ReleaseContext(s_hWnd, hImc); 200 } 201 } 202 203 /* 204 * for IME control. Save current status of IME, and set force new-status to 205 * Engllish (turn off). 206 */ 207 void WINAPI 208 global_ime_status_evacuate() 209 { 210 HIMC hImc; 211 212 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 213 { 214 s_bStatus = (pIApp->GetOpenStatus(hImc) == 0) ? TRUE : FALSE; 215 pIApp->SetOpenStatus(hImc, FALSE); 216 pIApp->ReleaseContext(s_hWnd, hImc); 217 } 218 } 219 220 /* 221 * for IME control. Change IME status to last saved one. 222 */ 223 void WINAPI 224 global_ime_status_restore() 225 { 226 HIMC hImc; 227 228 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 229 { 230 pIApp->SetOpenStatus(hImc, s_bStatus); 231 pIApp->ReleaseContext(s_hWnd, hImc); 232 } 233 } 234 235 void WINAPI 236 global_ime_set_status(int status) 237 { 238 HIMC hImc; 239 240 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 241 { 242 pIApp->SetOpenStatus(hImc, status ? TRUE : FALSE); 243 pIApp->ReleaseContext(s_hWnd, hImc); 244 } 245 } 246 247 int WINAPI 248 global_ime_get_status() 249 { 250 int status = 0; 251 HIMC hImc; 252 253 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc))) 254 { 255 status = pIApp->GetOpenStatus(hImc) ? 1 : 0; 256 pIApp->ReleaseContext(s_hWnd, hImc); 257 } 258 return status; 259 } 260 261 #endif /* GLOBAL_IME */ 262