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