4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2003,2004 Mike McCormack
6 * Copyright 2004,2005 Dmitry Timoshkov
7 * Copyright 2009 Detlef Riekenberg
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #define WIN32_NO_STATUS
37 //#include "winuser.h"
39 //#include "objbase.h"
44 #include <wine/list.h>
45 #include <wine/unicode.h>
46 #include <wine/debug.h>
48 WINE_DEFAULT_DEBUG_CHANNEL(mlang
);
50 //#include "initguid.h"
52 static HRESULT
MultiLanguage_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
53 static HRESULT
MLangConvertCharset_create(IUnknown
*outer
, void **obj
);
54 static HRESULT
EnumRfc1766_create(LANGID LangId
, IEnumRfc1766
**ppEnum
);
56 static HINSTANCE instance
;
57 static DWORD MLANG_tls_index
; /* to store various per thead data */
60 * Under what circumstances HKEY_CLASSES_ROOT\MIME\Database\Codepage and
61 * HKEY_CLASSES_ROOT\MIME\Database\Charset are used?
66 const char *description
;
69 const char *web_charset
;
70 const char *header_charset
;
71 const char *body_charset
;
75 /* These data are based on the codepage info in libs/unicode/cpmap.pl */
76 /* FIXME: Add 28604 (Celtic), 28606 (Balkan) */
78 static const MIME_CP_INFO arabic_cp
[] =
81 864, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
82 MIMECONTF_MIME_LATEST
,
83 "ibm864", "ibm864", "ibm864" },
85 1006, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
86 MIMECONTF_MIME_LATEST
,
87 "ibm1006", "ibm1006", "ibm1006" },
89 1256, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
90 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
91 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
92 "windows-1256", "windows-1256", "windows-1256" },
94 28596, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
95 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
96 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
97 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
98 "iso-8859-6", "iso-8859-6", "iso-8859-6" }
100 static const MIME_CP_INFO baltic_cp
[] =
103 775, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
104 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
105 "ibm775", "ibm775", "ibm775" },
106 { "Baltic (Windows)",
107 1257, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
108 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
109 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
110 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
111 "windows-1257", "windows-1257", "windows-1257" },
113 28594, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
114 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
115 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
116 MIMECONTF_MIME_LATEST
,
117 "iso-8859-4", "iso-8859-4", "iso-8859-4" },
119 28603, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
120 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
121 "iso-8859-13", "iso-8859-13", "iso-8859-13" }
123 static const MIME_CP_INFO chinese_simplified_cp
[] =
125 { "Chinese Simplified (Auto-Select)",
126 50936, MIMECONTF_IMPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
127 MIMECONTF_MIME_LATEST
,
128 "_autodetect_chs", "_autodetect_chs", "_autodetect_chs" },
129 { "Chinese Simplified (GB2312)",
130 936, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
131 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID
|
132 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
133 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
134 "gb2312", "gb2312", "gb2312" },
135 { "Chinese Simplified (GB2312-80)",
136 20936, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
137 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
138 "x-cp20936", "x-cp20936", "x-cp20936" },
139 { "Chinese Simplified (HZ)",
140 52936, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
141 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
142 MIMECONTF_VALID
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
143 MIMECONTF_MIME_LATEST
,
144 "hz-gb-2312", "hz-gb-2312", "hz-gb-2312" },
145 { "Chinese Simplified (GB18030)",
146 54936, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
147 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
148 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
149 MIMECONTF_MIME_LATEST
,
150 "GB18030", "GB18030", "GB18030" },
151 { "Chinese Simplified (GBK)",
152 936, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
153 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
154 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
155 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
156 "gbk", "gbk", "gbk" }
158 static const MIME_CP_INFO chinese_traditional_cp
[] =
160 { "Chinese Traditional (Auto-Select)",
161 50950, MIMECONTF_IMPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
162 MIMECONTF_MIME_LATEST
,
163 "_autodetect_cht", "_autodetect_cht", "_autodetect_cht" },
164 { "Chinese Traditional (Big5)",
165 950, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
166 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
167 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
168 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
169 "big5", "big5", "big5" },
170 { "Chinese Traditional (CNS)",
171 20000, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
172 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
173 "x-Chinese-CNS", "x-Chinese-CNS", "x-Chinese-CNS" }
175 static const MIME_CP_INFO central_european_cp
[] =
177 { "Central European (DOS)",
178 852, MIMECONTF_BROWSER
| MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_BROWSER
|
179 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
180 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
181 "ibm852", "ibm852", "ibm852" },
182 { "Central European (Windows)",
183 1250, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
184 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
185 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
186 MIMECONTF_MIME_LATEST
,
187 "windows-1250", "windows-1250", "windows-1250" },
188 { "Central European (Mac)",
189 10029, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
190 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
191 "x-mac-ce", "x-mac-ce", "x-mac-ce" },
192 { "Central European (ISO)",
193 28592, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
194 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
195 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
196 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
197 "iso-8859-2", "iso-8859-2", "iso-8859-2" }
199 static const MIME_CP_INFO cyrillic_cp
[] =
202 855, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
203 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
204 "ibm855", "ibm855", "ibm855" },
206 866, MIMECONTF_BROWSER
| MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_BROWSER
|
207 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
208 MIMECONTF_MIME_LATEST
,
209 "cp866", "cp866", "cp866" },
210 #if 0 /* Windows has 20866 as an official code page for KOI8-R */
211 { "Cyrillic (KOI8-R)",
212 878, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
213 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
214 "koi8-r", "koi8-r", "koi8-r" },
216 { "Cyrillic (Windows)",
217 1251, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
218 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
219 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
220 "windows-1251", "windows-1251", "windows-1251" },
222 10007, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
223 MIMECONTF_MIME_LATEST
,
224 "x-mac-cyrillic", "x-mac-cyrillic", "x-mac-cyrillic" },
225 { "Cyrillic (KOI8-R)",
226 20866, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
227 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
228 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
229 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
230 "koi8-r", "koi8-r", "koi8-r" },
231 { "Cyrillic (KOI8-U)",
232 21866, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
233 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
234 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
235 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
236 "koi8-u", "koi8-u", "koi8-u" },
238 28595, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
239 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
240 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
241 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
242 "iso-8859-5", "iso-8859-5", "iso-8859-5" }
244 static const MIME_CP_INFO greek_cp
[] =
247 737, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
248 MIMECONTF_MIME_LATEST
,
249 "ibm737", "ibm737", "ibm737" },
250 { "Greek, Modern (DOS)",
251 869, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
252 MIMECONTF_MIME_LATEST
,
253 "ibm869", "ibm869", "ibm869" },
254 { "IBM EBCDIC (Greek Modern)",
255 875, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
256 MIMECONTF_MIME_LATEST
,
257 "cp875", "cp875", "cp875" },
259 1253, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
260 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
261 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
262 "windows-1253", "windows-1253", "windows-1253" },
264 10006, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
265 MIMECONTF_MIME_LATEST
,
266 "x-mac-greek", "x-mac-greek", "x-mac-greek" },
268 28597, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
269 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
270 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
271 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
272 "iso-8859-7", "iso-8859-7", "iso-8859-7" }
274 static const MIME_CP_INFO hebrew_cp
[] =
277 424, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
278 MIMECONTF_MIME_LATEST
,
279 "ibm424", "ibm424", "ibm424" },
281 856, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
282 MIMECONTF_MIME_LATEST
,
283 "cp856", "cp856", "cp856" },
285 862, MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
286 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
287 MIMECONTF_MIME_LATEST
,
288 "dos-862", "dos-862", "dos-862" },
289 { "Hebrew (Windows)",
290 1255, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
291 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
292 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
293 "windows-1255", "windows-1255", "windows-1255" },
294 { "Hebrew (ISO-Visual)",
295 28598, MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
296 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
297 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
298 "iso-8859-8", "iso-8859-8", "iso-8859-8" }
300 static const MIME_CP_INFO japanese_cp
[] =
302 { "Japanese (Auto-Select)",
303 50932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
304 MIMECONTF_IMPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
305 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
306 "_autodetect", "_autodetect", "_autodetect" },
308 51932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
309 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
310 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
311 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
312 "euc-jp", "euc-jp", "euc-jp" },
314 50220, MIMECONTF_IMPORT
| MIMECONTF_MAILNEWS
| MIMECONTF_EXPORT
|
315 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID_NLS
|
316 MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
|
318 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
319 { "Japanese (JIS 0208-1990 and 0212-1990)",
320 20932, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
321 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
322 "EUC-JP","EUC-JP","EUC-JP"},
323 { "Japanese (JIS-Allow 1 byte Kana)",
324 50221, MIMECONTF_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_SAVABLE_BROWSER
|
325 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID_NLS
|
326 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
327 "csISO2022JP","iso-2022-jp","iso-2022-jp"},
328 { "Japanese (JIS-Allow 1 byte Kana - SO/SI)",
329 50222, MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_VALID
|
330 MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
331 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
333 10001, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
334 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
335 "x-mac-japanese","x-mac-japanese","x-mac-japanese"},
336 { "Japanese (Shift-JIS)",
337 932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
338 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
339 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
340 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
341 "shift_jis", "iso-2022-jp", "iso-2022-jp" }
343 static const MIME_CP_INFO korean_cp
[] =
346 949, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
347 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
348 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
349 MIMECONTF_MIME_LATEST
,
350 "ks_c_5601-1987", "ks_c_5601-1987", "ks_c_5601-1987" }
352 static const MIME_CP_INFO thai_cp
[] =
355 874, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_MIME_LATEST
,
356 "ibm-thai", "ibm-thai", "ibm-thai" }
358 static const MIME_CP_INFO turkish_cp
[] =
361 857, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
362 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
363 "ibm857", "ibm857", "ibm857" },
364 { "IBM EBCDIC (Turkish Latin-5)",
365 1026, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
366 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
367 "ibm1026", "ibm1026", "ibm1026" },
368 { "Turkish (Windows)",
369 1254, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
370 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
371 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
372 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
373 "windows-1254", "windows-1254", "windows-1254" },
375 10081, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
376 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
377 "x-mac-turkish", "x-mac-turkish", "x-mac-turkish" },
379 28593, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
380 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
381 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
382 "iso-8859-3", "iso-8859-3", "iso-8859-3" },
384 28599, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
385 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
386 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
387 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
388 "iso-8859-9", "iso-8859-9", "iso-8859-9" }
390 static const MIME_CP_INFO vietnamese_cp
[] =
392 { "Vietnamese (Windows)",
393 1258, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
394 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
395 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
396 MIMECONTF_MIME_LATEST
,
397 "windows-1258", "windows-1258", "windows-1258" }
400 static const WCHAR asciiW
[] = {'a','s','c','i','i',0};
402 static const MIME_CP_INFO western_cp
[] =
404 { "IBM EBCDIC (US-Canada)",
405 37, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
406 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
407 "ibm037", "ibm037", "ibm037" },
408 { "OEM United States",
409 437, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
410 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
411 "ibm437", "ibm437", "ibm437" },
412 { "IBM EBCDIC (International)",
413 500, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
414 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
415 "ibm500", "ibm500", "ibm500" },
416 { "Western European (DOS)",
417 850, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
418 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
419 "ibm850", "ibm850", "ibm850" },
420 { "Portuguese (DOS)",
421 860, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
422 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
423 "ibm860", "ibm860", "ibm860" },
425 861, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
426 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
427 "ibm861", "ibm861", "ibm861" },
428 { "French Canadian (DOS)",
429 863, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
430 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
431 "ibm863", "ibm863", "ibm863" },
433 865, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
434 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
435 "ibm865", "ibm865", "ibm865" },
436 { "Western European (Windows)",
437 1252, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
438 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
439 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
440 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
441 "windows-1252", "windows-1252", "iso-8859-1" },
442 { "Western European (Mac)",
443 10000, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
444 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
445 "macintosh", "macintosh", "macintosh" },
447 10079, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
448 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
449 "x-mac-icelandic", "x-mac-icelandic", "x-mac-icelandic" },
451 20127, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
| MIMECONTF_EXPORT
|
452 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID
|
453 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
454 "us-ascii", "us-ascii", "us-ascii", asciiW
},
455 { "Western European (ISO)",
456 28591, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
457 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
458 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
459 MIMECONTF_MIME_LATEST
,
460 "iso-8859-1", "iso-8859-1", "iso-8859-1" },
462 28605, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
463 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
464 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
465 MIMECONTF_MIME_LATEST
,
466 "iso-8859-15", "iso-8859-15", "iso-8859-15" }
468 static const MIME_CP_INFO unicode_cp
[] =
471 CP_UNICODE
, MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
472 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
473 MIMECONTF_VALID
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
474 MIMECONTF_MIME_LATEST
,
475 "unicode", "unicode", "unicode" },
477 CP_UTF7
, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
478 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
479 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
480 "utf-7", "utf-7", "utf-7" },
482 CP_UTF8
, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
483 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
484 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
485 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
486 "utf-8", "utf-8", "utf-8" }
489 static const struct mlang_data
491 const char *description
;
492 UINT family_codepage
;
494 const MIME_CP_INFO
*mime_cp_info
;
495 const char *fixed_font
;
496 const char *proportional_font
;
500 { "Arabic",1256,sizeof(arabic_cp
)/sizeof(arabic_cp
[0]),arabic_cp
,
501 "Simplified Arabic Fixed","Simplified Arabic", sidArabic
},
502 { "Baltic",1257,sizeof(baltic_cp
)/sizeof(baltic_cp
[0]),baltic_cp
,
503 "Courier New","Arial", sidAsciiLatin
},
504 { "Chinese Simplified",936,sizeof(chinese_simplified_cp
)/sizeof(chinese_simplified_cp
[0]),chinese_simplified_cp
,
505 "Simsun","Simsun", sidHan
},
506 { "Chinese Traditional",950,sizeof(chinese_traditional_cp
)/sizeof(chinese_traditional_cp
[0]),chinese_traditional_cp
,
507 "MingLiu","New MingLiu", sidBopomofo
},
508 { "Central European",1250,sizeof(central_european_cp
)/sizeof(central_european_cp
[0]),central_european_cp
,
509 "Courier New","Arial", sidAsciiLatin
},
510 { "Cyrillic",1251,sizeof(cyrillic_cp
)/sizeof(cyrillic_cp
[0]),cyrillic_cp
,
511 "Courier New","Arial", sidCyrillic
},
512 { "Greek",1253,sizeof(greek_cp
)/sizeof(greek_cp
[0]),greek_cp
,
513 "Courier New","Arial", sidGreek
},
514 { "Hebrew",1255,sizeof(hebrew_cp
)/sizeof(hebrew_cp
[0]),hebrew_cp
,
515 "Miriam Fixed","David", sidHebrew
},
516 { "Japanese",932,sizeof(japanese_cp
)/sizeof(japanese_cp
[0]),japanese_cp
,
517 "MS Gothic","MS PGothic", sidKana
},
518 { "Korean",949,sizeof(korean_cp
)/sizeof(korean_cp
[0]),korean_cp
,
519 "GulimChe","Gulim", sidHangul
},
520 { "Thai",874,sizeof(thai_cp
)/sizeof(thai_cp
[0]),thai_cp
,
521 "Tahoma","Tahoma", sidThai
},
522 { "Turkish",1254,sizeof(turkish_cp
)/sizeof(turkish_cp
[0]),turkish_cp
,
523 "Courier New","Arial", sidAsciiLatin
},
524 { "Vietnamese",1258,sizeof(vietnamese_cp
)/sizeof(vietnamese_cp
[0]),vietnamese_cp
,
525 "Courier New","Arial", sidAsciiLatin
},
526 { "Western European",1252,sizeof(western_cp
)/sizeof(western_cp
[0]),western_cp
,
527 "Courier New","Arial", sidAsciiLatin
},
528 { "Unicode",CP_UNICODE
,sizeof(unicode_cp
)/sizeof(unicode_cp
[0]),unicode_cp
,
529 "Courier New","Arial" }
534 struct list list_entry
;
540 static struct list font_cache
= LIST_INIT(font_cache
);
541 static CRITICAL_SECTION font_cache_critical
;
542 static CRITICAL_SECTION_DEBUG font_cache_critical_debug
=
544 0, 0, &font_cache_critical
,
545 { &font_cache_critical_debug
.ProcessLocksList
, &font_cache_critical_debug
.ProcessLocksList
},
546 0, 0, { (DWORD_PTR
)(__FILE__
": font_cache_critical") }
548 static CRITICAL_SECTION font_cache_critical
= { &font_cache_critical_debug
, -1, 0, 0, 0, 0 };
550 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
);
552 static LONG dll_count
;
555 * Japanese Detection and Conversion Functions
558 #define HANKATA(A) ((A >= 161) && (A <= 223))
559 #define ISEUC(A) ((A >= 161) && (A <= 254))
560 #define NOTEUC(A,B) (((A >= 129) && (A <= 159)) && ((B >= 64) && (B <= 160)))
561 #define SJIS1(A) (((A >= 129) && (A <= 159)) || ((A >= 224) && (A <= 239)))
562 #define SJIS2(A) ((A >= 64) && (A <= 252))
563 #define ISMARU(A) ((A >= 202) && (A <= 206))
564 #define ISNIGORI(A) (((A >= 182) && (A <= 196)) || ((A >= 202) && (A <= 206)))
566 static UINT
DetectJapaneseCode(LPCSTR input
, DWORD count
)
572 while ((code
== 0 || code
== 51932) && i
< count
)
575 if (c1
== 0x1b /* ESC */)
587 if (c1
=='B' || c1
== '@')
601 else if (ISEUC(c1
) && ISEUC(c2
))
603 else if (((c1
== 142)) && HANKATA(c2
))
611 static inline void jis2sjis(unsigned char *p1
, unsigned char *p2
)
613 unsigned char c1
= *p1
;
614 unsigned char c2
= *p2
;
615 int row
= c1
< 95 ? 112 : 176;
616 int cell
= c1
% 2 ? 31 + (c2
> 95) : 126;
618 *p1
= ((c1
+ 1) >> 1) + row
;
622 static inline void sjis2jis(unsigned char *p1
, unsigned char *p2
)
624 unsigned char c1
= *p1
;
625 unsigned char c2
= *p2
;
626 int shift
= c2
< 159;
627 int row
= c1
< 160 ? 112 : 176;
628 int cell
= shift
? (31 + (c2
> 127)): 126;
630 *p1
= ((c1
- row
) << 1) - shift
;
634 static int han2zen(unsigned char *p1
, unsigned char *p2
)
638 static const unsigned char char1
[] = {129,129,129,129,129,131,131,131,131,
639 131,131,131,131,131,131,129,131,131,131,131,131,131,131,131,131,131,
640 131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
641 131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
643 static const unsigned char char2
[] = {66,117,118,65,69,146,64,66,68,70,
644 72,131,133,135,98,91,65,67,69,71,73,74,76,78,80,82,84,86,88,90,92,94,
645 96,99,101,103,105,106,107,108,109,110,113,116,119,122,125,126,128,
646 129,130,132,134,136,137,138,139,140,141,143,147,74,75};
648 if (( *p2
== 222) && ((ISNIGORI(*p1
) || (*p1
== 179))))
650 else if ((*p2
== 223) && (ISMARU(*p1
)))
653 if (*p1
>= 161 && *p1
<= 223)
655 unsigned char index
= *p1
- 161;
664 if (((*p2
>= 74) && (*p2
<= 103)) || ((*p2
>= 110) && (*p2
<= 122)))
666 else if ((*p1
== 131) && (*p2
== 69))
669 else if ((maru
) && ((*p2
>= 110) && (*p2
<= 122)))
679 static UINT
ConvertJIS2SJIS(LPCSTR input
, DWORD count
, LPSTR output
)
684 BOOL shifted
= FALSE
;
689 if (p
== 0x1b /* ESC */)
695 if (p2
== '$' || p2
=='(')
697 if (p2
== 'K' || p2
=='$')
724 static inline int exit_shift(LPSTR out
, int c
)
735 static inline int enter_shift(LPSTR out
, int c
)
747 static UINT
ConvertSJIS2JIS(LPCSTR input
, DWORD count
, LPSTR output
)
752 BOOL shifted
= FALSE
;
757 if (p
== 10 || p
== 13) /* NL and CR */
762 j
+= exit_shift(output
,j
);
776 p2
= input
[i
] & 0xff;
783 j
+=enter_shift(output
,j
);
801 p2
= input
[i
+1] & 0xff;
807 j
+=enter_shift(output
,j
);
822 j
+= exit_shift(output
,j
);
834 j
+= exit_shift(output
,j
);
838 static UINT
ConvertJISJapaneseToUnicode(LPCSTR input
, DWORD count
,
839 LPWSTR output
, DWORD out_count
)
843 sjis_string
= HeapAlloc(GetProcessHeap(),0,count
);
844 rc
= ConvertJIS2SJIS(input
,count
,sjis_string
);
847 TRACE("%s\n",debugstr_an(sjis_string
,rc
));
849 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,output
,out_count
);
851 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,0,0);
853 HeapFree(GetProcessHeap(),0,sjis_string
);
858 static UINT
ConvertUnknownJapaneseToUnicode(LPCSTR input
, DWORD count
,
859 LPWSTR output
, DWORD out_count
)
863 int code
= DetectJapaneseCode(input
,count
);
864 TRACE("Japanese code %i\n",code
);
870 rc
= MultiByteToWideChar(CP_ACP
,0,input
,count
,output
,out_count
);
872 rc
= MultiByteToWideChar(CP_ACP
,0,input
,count
,0,0);
877 rc
= MultiByteToWideChar(932,0,input
,count
,output
,out_count
);
879 rc
= MultiByteToWideChar(932,0,input
,count
,0,0);
884 rc
= MultiByteToWideChar(20932,0,input
,count
,output
,out_count
);
886 rc
= MultiByteToWideChar(20932,0,input
,count
,0,0);
890 sjis_string
= HeapAlloc(GetProcessHeap(),0,count
);
891 rc
= ConvertJIS2SJIS(input
,count
,sjis_string
);
894 TRACE("%s\n",debugstr_an(sjis_string
,rc
));
896 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,output
,out_count
);
898 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,0,0);
900 HeapFree(GetProcessHeap(),0,sjis_string
);
906 static UINT
ConvertJapaneseUnicodeToJIS(LPCWSTR input
, DWORD count
,
907 LPSTR output
, DWORD out_count
)
913 len
= WideCharToMultiByte(932,0,input
,count
,0,0,NULL
,NULL
);
914 sjis_string
= HeapAlloc(GetProcessHeap(),0,len
);
915 WideCharToMultiByte(932,0,input
,count
,sjis_string
,len
,NULL
,NULL
);
916 TRACE("%s\n",debugstr_an(sjis_string
,len
));
918 rc
= ConvertSJIS2JIS(sjis_string
, len
, NULL
);
921 ConvertSJIS2JIS(sjis_string
, len
, output
);
923 HeapFree(GetProcessHeap(),0,sjis_string
);
929 * Dll lifetime tracking declaration
931 static void LockModule(void)
933 InterlockedIncrement(&dll_count
);
936 static void UnlockModule(void)
938 InterlockedDecrement(&dll_count
);
941 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
944 case DLL_PROCESS_ATTACH
:
946 MLANG_tls_index
= TlsAlloc();
947 DisableThreadLibraryCalls(hInstDLL
);
949 case DLL_PROCESS_DETACH
:
951 TlsFree(MLANG_tls_index
);
957 HRESULT WINAPI
ConvertINetMultiByteToUnicode(
967 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
968 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
974 pcSrcSize
= &src_len
;
982 /* forwarding euc-jp to EUC-JP */
983 if (dwEncoding
== 51932)
989 if (*pcSrcSize
== -1)
990 *pcSrcSize
= lstrlenW((LPCWSTR
)pSrcStr
);
991 *pcDstSize
= min(*pcSrcSize
, *pcDstSize
);
992 *pcSrcSize
*= sizeof(WCHAR
);
994 memmove(pDstStr
, pSrcStr
, *pcDstSize
* sizeof(WCHAR
));
1000 *pcDstSize
= ConvertJISJapaneseToUnicode(pSrcStr
,*pcSrcSize
,pDstStr
,*pcDstSize
);
1003 *pcDstSize
= ConvertUnknownJapaneseToUnicode(pSrcStr
,*pcSrcSize
,pDstStr
,*pcDstSize
);
1007 if (*pcSrcSize
== -1)
1008 *pcSrcSize
= lstrlenA(pSrcStr
);
1011 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, pDstStr
, *pcDstSize
);
1013 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, NULL
, 0);
1023 HRESULT WINAPI
ConvertINetUnicodeToMultiByte(
1034 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
1035 debugstr_w(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
1041 pcSrcSize
= &src_len
;
1043 destsz
= (pDstStr
) ? *pcDstSize
: 0;
1046 if (!pSrcStr
|| !*pcSrcSize
)
1049 if (*pcSrcSize
== -1)
1050 *pcSrcSize
= lstrlenW(pSrcStr
);
1052 /* forwarding euc-jp to EUC-JP */
1053 if (dwEncoding
== 51932)
1056 if (dwEncoding
== CP_UNICODE
)
1058 if (*pcSrcSize
== -1)
1059 *pcSrcSize
= lstrlenW(pSrcStr
);
1061 size
= min(*pcSrcSize
, destsz
) * sizeof(WCHAR
);
1063 memmove(pDstStr
, pSrcStr
, size
);
1068 else if (dwEncoding
== 50220 || dwEncoding
== 50221 || dwEncoding
== 50222)
1070 size
= ConvertJapaneseUnicodeToJIS(pSrcStr
, *pcSrcSize
, NULL
, 0);
1076 size
= ConvertJapaneseUnicodeToJIS(pSrcStr
, *pcSrcSize
, pDstStr
,
1085 size
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
,
1086 NULL
, 0, NULL
, NULL
);
1092 size
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
,
1093 pDstStr
, destsz
, NULL
, NULL
);
1108 HRESULT WINAPI
ConvertINetString(
1110 DWORD dwSrcEncoding
,
1111 DWORD dwDstEncoding
,
1118 TRACE("%p %d %d %s %p %p %p\n", pdwMode
, dwSrcEncoding
, dwDstEncoding
,
1119 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
1121 if (dwSrcEncoding
== CP_UNICODE
)
1124 if (pcSrcSize
&& *pcSrcSize
!= -1)
1126 cSrcSizeW
= *pcSrcSize
/ sizeof(WCHAR
);
1127 pcSrcSize
= &cSrcSizeW
;
1129 return ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, (LPCWSTR
)pSrcStr
, pcSrcSize
, pDstStr
, pcDstSize
);
1131 else if (dwDstEncoding
== CP_UNICODE
)
1133 HRESULT hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, (LPWSTR
)pDstStr
, pcDstSize
);
1134 *pcDstSize
*= sizeof(WCHAR
);
1143 TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr
), dwSrcEncoding
, dwDstEncoding
);
1145 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, NULL
, &cDstSizeW
);
1149 pDstStrW
= HeapAlloc(GetProcessHeap(), 0, cDstSizeW
* sizeof(WCHAR
));
1150 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, pDstStrW
, &cDstSizeW
);
1152 hr
= ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, pDstStrW
, &cDstSizeW
, pDstStr
, pcDstSize
);
1154 HeapFree(GetProcessHeap(), 0, pDstStrW
);
1159 static HRESULT
GetFamilyCodePage(
1161 UINT
* puiFamilyCodePage
)
1165 TRACE("%u %p\n", uiCodePage
, puiFamilyCodePage
);
1167 if (!puiFamilyCodePage
) return S_FALSE
;
1169 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1171 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1173 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
1175 *puiFamilyCodePage
= mlang_data
[i
].family_codepage
;
1184 HRESULT WINAPI
IsConvertINetStringAvailable(
1185 DWORD dwSrcEncoding
,
1186 DWORD dwDstEncoding
)
1188 UINT src_family
, dst_family
;
1190 TRACE("%d %d\n", dwSrcEncoding
, dwDstEncoding
);
1192 if (GetFamilyCodePage(dwSrcEncoding
, &src_family
) != S_OK
||
1193 GetFamilyCodePage(dwDstEncoding
, &dst_family
) != S_OK
)
1196 if (src_family
== dst_family
) return S_OK
;
1198 /* we can convert any codepage to/from unicode */
1199 if (src_family
== CP_UNICODE
|| dst_family
== CP_UNICODE
) return S_OK
;
1204 static inline HRESULT
lcid_to_rfc1766A( LCID lcid
, LPSTR rfc1766
, INT len
)
1206 CHAR buffer
[MAX_RFC1766_NAME
];
1207 INT n
= GetLocaleInfoA(lcid
, LOCALE_SISO639LANGNAME
, buffer
, MAX_RFC1766_NAME
);
1212 i
= PRIMARYLANGID(lcid
);
1213 if ((((i
== LANG_ENGLISH
) || (i
== LANG_CHINESE
) || (i
== LANG_ARABIC
)) &&
1214 (SUBLANGID(lcid
) == SUBLANG_DEFAULT
)) ||
1215 (SUBLANGID(lcid
) > SUBLANG_DEFAULT
)) {
1217 buffer
[n
- 1] = '-';
1218 i
= GetLocaleInfoA(lcid
, LOCALE_SISO3166CTRYNAME
, buffer
+ n
, MAX_RFC1766_NAME
- n
);
1220 buffer
[n
- 1] = '\0';
1225 LCMapStringA( LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, buffer
, n
+ i
, rfc1766
, len
);
1226 return ((n
+ i
) > len
) ? E_INVALIDARG
: S_OK
;
1231 static inline HRESULT
lcid_to_rfc1766W( LCID lcid
, LPWSTR rfc1766
, INT len
)
1233 WCHAR buffer
[MAX_RFC1766_NAME
];
1234 INT n
= GetLocaleInfoW(lcid
, LOCALE_SISO639LANGNAME
, buffer
, MAX_RFC1766_NAME
);
1239 i
= PRIMARYLANGID(lcid
);
1240 if ((((i
== LANG_ENGLISH
) || (i
== LANG_CHINESE
) || (i
== LANG_ARABIC
)) &&
1241 (SUBLANGID(lcid
) == SUBLANG_DEFAULT
)) ||
1242 (SUBLANGID(lcid
) > SUBLANG_DEFAULT
)) {
1244 buffer
[n
- 1] = '-';
1245 i
= GetLocaleInfoW(lcid
, LOCALE_SISO3166CTRYNAME
, buffer
+ n
, MAX_RFC1766_NAME
- n
);
1247 buffer
[n
- 1] = '\0';
1252 LCMapStringW(LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, buffer
, n
+ i
, rfc1766
, len
);
1253 return ((n
+ i
) > len
) ? E_INVALIDARG
: S_OK
;
1258 HRESULT WINAPI
LcidToRfc1766A(
1263 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
1265 return E_INVALIDARG
;
1267 return lcid_to_rfc1766A(lcid
, pszRfc1766
, nChar
);
1270 HRESULT WINAPI
LcidToRfc1766W(
1275 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
1277 return E_INVALIDARG
;
1279 return lcid_to_rfc1766W(lcid
, pszRfc1766
, nChar
);
1282 static HRESULT
lcid_from_rfc1766(IEnumRfc1766
*iface
, LCID
*lcid
, LPCWSTR rfc1766
)
1287 while (IEnumRfc1766_Next(iface
, 1, &info
, &num
) == S_OK
)
1289 if (!strcmpiW(info
.wszRfc1766
, rfc1766
))
1294 if (strlenW(rfc1766
) == 2 && !memcmp(info
.wszRfc1766
, rfc1766
, 2 * sizeof(WCHAR
)))
1296 *lcid
= PRIMARYLANGID(info
.lcid
);
1304 HRESULT WINAPI
Rfc1766ToLcidW(LCID
*pLocale
, LPCWSTR pszRfc1766
)
1306 IEnumRfc1766
*enumrfc1766
;
1309 TRACE("(%p, %s)\n", pLocale
, debugstr_w(pszRfc1766
));
1311 if (!pLocale
|| !pszRfc1766
)
1312 return E_INVALIDARG
;
1314 hr
= EnumRfc1766_create(0, &enumrfc1766
);
1318 hr
= lcid_from_rfc1766(enumrfc1766
, pLocale
, pszRfc1766
);
1319 IEnumRfc1766_Release(enumrfc1766
);
1324 HRESULT WINAPI
Rfc1766ToLcidA(LCID
*lcid
, LPCSTR rfc1766A
)
1326 WCHAR rfc1766W
[MAX_RFC1766_NAME
+ 1];
1329 return E_INVALIDARG
;
1331 MultiByteToWideChar(CP_ACP
, 0, rfc1766A
, -1, rfc1766W
, MAX_RFC1766_NAME
);
1332 rfc1766W
[MAX_RFC1766_NAME
] = 0;
1334 return Rfc1766ToLcidW(lcid
, rfc1766W
);
1337 static HRESULT
map_font(HDC hdc
, DWORD codepages
, HFONT src_font
, HFONT
*dst_font
)
1339 struct font_list
*font_list_entry
;
1340 CHARSETINFO charset_info
;
1341 HFONT new_font
, old_font
;
1349 if (hdc
== NULL
|| src_font
== NULL
) return E_FAIL
;
1351 for (i
= 0; i
< 32; i
++)
1353 mask
= (DWORD
)(1 << i
);
1354 if (codepages
& mask
)
1358 ret
= TranslateCharsetInfo(Csb
, &charset_info
, TCI_SRCFONTSIG
);
1361 /* use cached font if possible */
1362 found_cached
= FALSE
;
1363 EnterCriticalSection(&font_cache_critical
);
1364 LIST_FOR_EACH_ENTRY(font_list_entry
, &font_cache
, struct font_list
, list_entry
)
1366 if (font_list_entry
->charset
== charset_info
.ciCharset
&&
1367 font_list_entry
->base_font
== src_font
)
1369 if (dst_font
!= NULL
)
1370 *dst_font
= font_list_entry
->font
;
1371 found_cached
= TRUE
;
1374 LeaveCriticalSection(&font_cache_critical
);
1375 if (found_cached
) return S_OK
;
1377 GetObjectW(src_font
, sizeof(font_attr
), &font_attr
);
1378 font_attr
.lfCharSet
= (BYTE
)charset_info
.ciCharset
;
1379 font_attr
.lfWidth
= 0;
1380 font_attr
.lfFaceName
[0] = 0;
1381 new_font
= CreateFontIndirectW(&font_attr
);
1382 if (new_font
== NULL
) continue;
1384 old_font
= SelectObject(hdc
, new_font
);
1385 charset
= GetTextCharset(hdc
);
1386 SelectObject(hdc
, old_font
);
1387 if (charset
== charset_info
.ciCharset
)
1389 font_list_entry
= HeapAlloc(GetProcessHeap(), 0, sizeof(*font_list_entry
));
1390 if (font_list_entry
== NULL
) return E_OUTOFMEMORY
;
1392 font_list_entry
->base_font
= src_font
;
1393 font_list_entry
->font
= new_font
;
1394 font_list_entry
->charset
= charset
;
1396 EnterCriticalSection(&font_cache_critical
);
1397 list_add_tail(&font_cache
, &font_list_entry
->list_entry
);
1398 LeaveCriticalSection(&font_cache_critical
);
1400 if (dst_font
!= NULL
)
1401 *dst_font
= new_font
;
1410 static HRESULT
release_font(HFONT font
)
1412 struct font_list
*font_list_entry
;
1416 EnterCriticalSection(&font_cache_critical
);
1417 LIST_FOR_EACH_ENTRY(font_list_entry
, &font_cache
, struct font_list
, list_entry
)
1419 if (font_list_entry
->font
== font
)
1421 list_remove(&font_list_entry
->list_entry
);
1423 HeapFree(GetProcessHeap(), 0, font_list_entry
);
1428 LeaveCriticalSection(&font_cache_critical
);
1433 static HRESULT
clear_font_cache(void)
1435 struct font_list
*font_list_entry
;
1436 struct font_list
*font_list_entry2
;
1438 EnterCriticalSection(&font_cache_critical
);
1439 LIST_FOR_EACH_ENTRY_SAFE(font_list_entry
, font_list_entry2
, &font_cache
, struct font_list
, list_entry
)
1441 list_remove(&font_list_entry
->list_entry
);
1442 DeleteObject(font_list_entry
->font
);
1443 HeapFree(GetProcessHeap(), 0, font_list_entry
);
1445 LeaveCriticalSection(&font_cache_critical
);
1450 /******************************************************************************
1451 * MLANG ClassFactory
1454 IClassFactory IClassFactory_iface
;
1456 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
1457 } IClassFactoryImpl
;
1459 static inline IClassFactoryImpl
*impl_from_IClassFactory(IClassFactory
*iface
)
1461 return CONTAINING_RECORD(iface
, IClassFactoryImpl
, IClassFactory_iface
);
1464 struct object_creation_info
1468 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
1471 static const struct object_creation_info object_creation
[] =
1473 { &CLSID_CMultiLanguage
, "CLSID_CMultiLanguage", MultiLanguage_create
},
1474 { &CLSID_CMLangConvertCharset
, "CLSID_CMLangConvertCharset", MLangConvertCharset_create
}
1477 static HRESULT WINAPI
MLANGCF_QueryInterface(IClassFactory
*iface
, REFIID riid
, void **ppobj
)
1479 TRACE("%s\n", debugstr_guid(riid
) );
1481 if (IsEqualGUID(riid
, &IID_IUnknown
)
1482 || IsEqualGUID(riid
, &IID_IClassFactory
))
1484 IClassFactory_AddRef(iface
);
1490 WARN("(%p)->(%s,%p), not found\n", iface
, debugstr_guid(riid
), ppobj
);
1491 return E_NOINTERFACE
;
1494 static ULONG WINAPI
MLANGCF_AddRef(IClassFactory
*iface
)
1496 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
1497 return InterlockedIncrement(&This
->ref
);
1500 static ULONG WINAPI
MLANGCF_Release(IClassFactory
*iface
)
1502 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
1503 ULONG ref
= InterlockedDecrement(&This
->ref
);
1507 TRACE("Destroying %p\n", This
);
1508 HeapFree(GetProcessHeap(), 0, This
);
1514 static HRESULT WINAPI
MLANGCF_CreateInstance(IClassFactory
*iface
, IUnknown
*pOuter
,
1515 REFIID riid
, void **ppobj
)
1517 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
1521 TRACE("(%p)->(%p,%s,%p)\n",This
,pOuter
,debugstr_guid(riid
),ppobj
);
1524 hres
= This
->pfnCreateInstance(pOuter
, (LPVOID
*) &punk
);
1525 if (SUCCEEDED(hres
)) {
1526 hres
= IUnknown_QueryInterface(punk
, riid
, ppobj
);
1527 IUnknown_Release(punk
);
1529 TRACE("returning (%p) -> %x\n", *ppobj
, hres
);
1533 static HRESULT WINAPI
MLANGCF_LockServer(IClassFactory
*iface
, BOOL dolock
)
1543 static const IClassFactoryVtbl MLANGCF_Vtbl
=
1545 MLANGCF_QueryInterface
,
1548 MLANGCF_CreateInstance
,
1552 /******************************************************************
1553 * DllGetClassObject (MLANG.@)
1555 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID iid
, LPVOID
*ppv
)
1558 IClassFactoryImpl
*factory
;
1560 TRACE("%s %s %p\n",debugstr_guid(rclsid
), debugstr_guid(iid
), ppv
);
1562 if ( !IsEqualGUID( &IID_IClassFactory
, iid
)
1563 && ! IsEqualGUID( &IID_IUnknown
, iid
) )
1564 return E_NOINTERFACE
;
1566 for (i
=0; i
< sizeof(object_creation
)/sizeof(object_creation
[0]); i
++)
1568 if (IsEqualGUID(object_creation
[i
].clsid
, rclsid
))
1572 if (i
== sizeof(object_creation
)/sizeof(object_creation
[0]))
1574 FIXME("%s: no class found.\n", debugstr_guid(rclsid
));
1575 return CLASS_E_CLASSNOTAVAILABLE
;
1578 TRACE("Creating a class factory for %s\n",object_creation
[i
].szClassName
);
1580 factory
= HeapAlloc(GetProcessHeap(), 0, sizeof(*factory
));
1581 if (factory
== NULL
) return E_OUTOFMEMORY
;
1583 factory
->IClassFactory_iface
.lpVtbl
= &MLANGCF_Vtbl
;
1586 factory
->pfnCreateInstance
= object_creation
[i
].pfnCreateInstance
;
1588 *ppv
= &factory
->IClassFactory_iface
;
1590 TRACE("(%p) <- %p\n", ppv
, &factory
->IClassFactory_iface
);
1596 /******************************************************************************/
1598 typedef struct tagMLang_impl
1600 IMLangFontLink IMLangFontLink_iface
;
1601 IMultiLanguage IMultiLanguage_iface
;
1602 IMultiLanguage3 IMultiLanguage3_iface
;
1603 IMLangFontLink2 IMLangFontLink2_iface
;
1604 IMLangLineBreakConsole IMLangLineBreakConsole_iface
;
1606 DWORD total_cp
, total_scripts
;
1609 /******************************************************************************/
1611 typedef struct tagEnumCodePage_impl
1613 IEnumCodePage IEnumCodePage_iface
;
1617 } EnumCodePage_impl
;
1619 static inline EnumCodePage_impl
*impl_from_IEnumCodePage( IEnumCodePage
*iface
)
1621 return CONTAINING_RECORD( iface
, EnumCodePage_impl
, IEnumCodePage_iface
);
1624 static HRESULT WINAPI
fnIEnumCodePage_QueryInterface(
1625 IEnumCodePage
* iface
,
1629 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1631 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1633 if (IsEqualGUID(riid
, &IID_IUnknown
)
1634 || IsEqualGUID(riid
, &IID_IEnumCodePage
))
1636 IEnumCodePage_AddRef(iface
);
1637 TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This
, This
->ref
);
1638 *ppvObject
= &This
->IEnumCodePage_iface
;
1642 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1643 return E_NOINTERFACE
;
1646 static ULONG WINAPI
fnIEnumCodePage_AddRef(
1647 IEnumCodePage
* iface
)
1649 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1650 return InterlockedIncrement(&This
->ref
);
1653 static ULONG WINAPI
fnIEnumCodePage_Release(
1654 IEnumCodePage
* iface
)
1656 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1657 ULONG ref
= InterlockedDecrement(&This
->ref
);
1659 TRACE("%p ref = %d\n", This
, ref
);
1662 TRACE("Destroying %p\n", This
);
1663 HeapFree(GetProcessHeap(), 0, This
->cpinfo
);
1664 HeapFree(GetProcessHeap(), 0, This
);
1670 static HRESULT WINAPI
fnIEnumCodePage_Clone(
1671 IEnumCodePage
* iface
,
1672 IEnumCodePage
** ppEnum
)
1674 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1675 FIXME("%p %p\n", This
, ppEnum
);
1679 static HRESULT WINAPI
fnIEnumCodePage_Next(
1680 IEnumCodePage
* iface
,
1683 ULONG
* pceltFetched
)
1686 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1688 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1690 if (!pceltFetched
) return S_FALSE
;
1693 if (!rgelt
) return S_FALSE
;
1695 if (This
->pos
+ celt
> This
->total
)
1696 celt
= This
->total
- This
->pos
;
1698 if (!celt
) return S_FALSE
;
1700 memcpy(rgelt
, This
->cpinfo
+ This
->pos
, celt
* sizeof(MIMECPINFO
));
1701 *pceltFetched
= celt
;
1704 for (i
= 0; i
< celt
; i
++)
1706 TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
1707 i
, rgelt
[i
].dwFlags
, rgelt
[i
].uiCodePage
,
1708 rgelt
[i
].uiFamilyCodePage
,
1709 wine_dbgstr_w(rgelt
[i
].wszDescription
),
1710 wine_dbgstr_w(rgelt
[i
].wszWebCharset
),
1711 wine_dbgstr_w(rgelt
[i
].wszHeaderCharset
),
1712 wine_dbgstr_w(rgelt
[i
].wszBodyCharset
),
1713 wine_dbgstr_w(rgelt
[i
].wszFixedWidthFont
),
1714 wine_dbgstr_w(rgelt
[i
].wszProportionalFont
),
1715 rgelt
[i
].bGDICharset
);
1720 static HRESULT WINAPI
fnIEnumCodePage_Reset(
1721 IEnumCodePage
* iface
)
1723 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1725 TRACE("%p\n", This
);
1731 static HRESULT WINAPI
fnIEnumCodePage_Skip(
1732 IEnumCodePage
* iface
,
1735 EnumCodePage_impl
*This
= impl_from_IEnumCodePage( iface
);
1737 TRACE("%p %u\n", This
, celt
);
1739 if (celt
>= This
->total
) return S_FALSE
;
1745 static const IEnumCodePageVtbl IEnumCodePage_vtbl
=
1747 fnIEnumCodePage_QueryInterface
,
1748 fnIEnumCodePage_AddRef
,
1749 fnIEnumCodePage_Release
,
1750 fnIEnumCodePage_Clone
,
1751 fnIEnumCodePage_Next
,
1752 fnIEnumCodePage_Reset
,
1753 fnIEnumCodePage_Skip
1756 static HRESULT
EnumCodePage_create( MLang_impl
* mlang
, DWORD grfFlags
,
1757 LANGID LangId
, IEnumCodePage
** ppEnumCodePage
)
1759 EnumCodePage_impl
*ecp
;
1763 TRACE("%p, %08x, %04x, %p\n", mlang
, grfFlags
, LangId
, ppEnumCodePage
);
1765 if (!grfFlags
) /* enumerate internal data base of encodings */
1766 grfFlags
= MIMECONTF_MIME_LATEST
;
1768 ecp
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl
) );
1769 ecp
->IEnumCodePage_iface
.lpVtbl
= &IEnumCodePage_vtbl
;
1773 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1775 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1777 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1782 ecp
->cpinfo
= HeapAlloc(GetProcessHeap(), 0,
1783 sizeof(MIMECPINFO
) * ecp
->total
);
1784 cpinfo
= ecp
->cpinfo
;
1786 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1788 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1790 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1791 fill_cp_info(&mlang_data
[i
], n
, cpinfo
++);
1795 TRACE("enumerated %d codepages with flags %08x\n", ecp
->total
, grfFlags
);
1797 *ppEnumCodePage
= &ecp
->IEnumCodePage_iface
;
1802 /******************************************************************************/
1804 typedef struct tagEnumScript_impl
1806 IEnumScript IEnumScript_iface
;
1808 SCRIPTINFO
*script_info
;
1812 static inline EnumScript_impl
*impl_from_IEnumScript( IEnumScript
*iface
)
1814 return CONTAINING_RECORD( iface
, EnumScript_impl
, IEnumScript_iface
);
1817 static HRESULT WINAPI
fnIEnumScript_QueryInterface(
1822 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1824 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1826 if (IsEqualGUID(riid
, &IID_IUnknown
)
1827 || IsEqualGUID(riid
, &IID_IEnumScript
))
1829 IEnumScript_AddRef(iface
);
1830 TRACE("Returning IID_IEnumScript %p ref = %d\n", This
, This
->ref
);
1831 *ppvObject
= &This
->IEnumScript_iface
;
1835 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1836 return E_NOINTERFACE
;
1839 static ULONG WINAPI
fnIEnumScript_AddRef(
1842 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1843 return InterlockedIncrement(&This
->ref
);
1846 static ULONG WINAPI
fnIEnumScript_Release(
1849 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1850 ULONG ref
= InterlockedDecrement(&This
->ref
);
1852 TRACE("%p ref = %d\n", This
, ref
);
1855 TRACE("Destroying %p\n", This
);
1856 HeapFree(GetProcessHeap(), 0, This
->script_info
);
1857 HeapFree(GetProcessHeap(), 0, This
);
1863 static HRESULT WINAPI
fnIEnumScript_Clone(
1865 IEnumScript
** ppEnum
)
1867 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1868 FIXME("%p %p: stub!\n", This
, ppEnum
);
1872 static HRESULT WINAPI
fnIEnumScript_Next(
1876 ULONG
* pceltFetched
)
1878 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1880 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1882 if (!pceltFetched
|| !rgelt
) return E_FAIL
;
1886 if (This
->pos
+ celt
> This
->total
)
1887 celt
= This
->total
- This
->pos
;
1889 if (!celt
) return S_FALSE
;
1891 memcpy(rgelt
, This
->script_info
+ This
->pos
, celt
* sizeof(SCRIPTINFO
));
1892 *pceltFetched
= celt
;
1898 static HRESULT WINAPI
fnIEnumScript_Reset(
1901 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1903 TRACE("%p\n", This
);
1909 static HRESULT WINAPI
fnIEnumScript_Skip(
1913 EnumScript_impl
*This
= impl_from_IEnumScript( iface
);
1915 TRACE("%p %u\n", This
, celt
);
1917 if (celt
>= This
->total
) return S_FALSE
;
1923 static const IEnumScriptVtbl IEnumScript_vtbl
=
1925 fnIEnumScript_QueryInterface
,
1926 fnIEnumScript_AddRef
,
1927 fnIEnumScript_Release
,
1928 fnIEnumScript_Clone
,
1930 fnIEnumScript_Reset
,
1934 static HRESULT
EnumScript_create( MLang_impl
* mlang
, DWORD dwFlags
,
1935 LANGID LangId
, IEnumScript
** ppEnumScript
)
1937 EnumScript_impl
*es
;
1940 TRACE("%p, %08x, %04x, %p\n", mlang
, dwFlags
, LangId
, ppEnumScript
);
1942 if (!dwFlags
) /* enumerate all available scripts */
1943 dwFlags
= SCRIPTCONTF_SCRIPT_USER
| SCRIPTCONTF_SCRIPT_HIDE
| SCRIPTCONTF_SCRIPT_SYSTEM
;
1945 es
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl
) );
1946 es
->IEnumScript_iface
.lpVtbl
= &IEnumScript_vtbl
;
1949 /* do not enumerate unicode flavours */
1950 es
->total
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
1951 es
->script_info
= HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO
) * es
->total
);
1953 for (i
= 0; i
< es
->total
; i
++)
1955 es
->script_info
[i
].ScriptId
= i
;
1956 es
->script_info
[i
].uiCodePage
= mlang_data
[i
].family_codepage
;
1957 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].description
, -1,
1958 es
->script_info
[i
].wszDescription
, MAX_SCRIPT_NAME
);
1959 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].fixed_font
, -1,
1960 es
->script_info
[i
].wszFixedWidthFont
, MAX_MIMEFACE_NAME
);
1961 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].proportional_font
, -1,
1962 es
->script_info
[i
].wszProportionalFont
, MAX_MIMEFACE_NAME
);
1965 TRACE("enumerated %d scripts with flags %08x\n", es
->total
, dwFlags
);
1967 *ppEnumScript
= &es
->IEnumScript_iface
;
1972 /******************************************************************************/
1974 static inline MLang_impl
*impl_from_IMLangFontLink( IMLangFontLink
*iface
)
1976 return CONTAINING_RECORD( iface
, MLang_impl
, IMLangFontLink_iface
);
1979 static HRESULT WINAPI
fnIMLangFontLink_QueryInterface(
1980 IMLangFontLink
* iface
,
1984 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
1985 return IMultiLanguage3_QueryInterface( &This
->IMultiLanguage3_iface
, riid
, ppvObject
);
1988 static ULONG WINAPI
fnIMLangFontLink_AddRef(
1989 IMLangFontLink
* iface
)
1991 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
1992 return IMultiLanguage3_AddRef( &This
->IMultiLanguage3_iface
);
1995 static ULONG WINAPI
fnIMLangFontLink_Release(
1996 IMLangFontLink
* iface
)
1998 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
1999 return IMultiLanguage3_Release( &This
->IMultiLanguage3_iface
);
2002 static HRESULT WINAPI
fnIMLangFontLink_GetCharCodePages(
2003 IMLangFontLink
* iface
,
2007 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
2008 return IMLangFontLink2_GetCharCodePages(&This
->IMLangFontLink2_iface
, ch_src
, codepages
);
2011 static HRESULT WINAPI
fnIMLangFontLink_GetStrCodePages(
2012 IMLangFontLink
* iface
,
2019 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
2020 return IMLangFontLink2_GetStrCodePages(&This
->IMLangFontLink2_iface
, src
, src_len
, priority_cp
,
2021 codepages
, ret_len
);
2024 static HRESULT WINAPI
fnIMLangFontLink_CodePageToCodePages(
2025 IMLangFontLink
* iface
,
2029 MLang_impl
*This
= impl_from_IMLangFontLink( iface
);
2030 return IMLangFontLink2_CodePageToCodePages(&This
->IMLangFontLink2_iface
, codepage
, codepages
);
2033 static HRESULT WINAPI
fnIMLangFontLink_CodePagesToCodePage(
2034 IMLangFontLink
* iface
,
2039 MLang_impl
*This
= impl_from_IMLangFontLink(iface
);
2040 return IMLangFontLink2_CodePagesToCodePage(&This
->IMLangFontLink2_iface
, codepages
,
2041 def_codepage
, codepage
);
2044 static HRESULT WINAPI
fnIMLangFontLink_GetFontCodePages(
2045 IMLangFontLink
* iface
,
2050 MLang_impl
*This
= impl_from_IMLangFontLink(iface
);
2051 return IMLangFontLink2_GetFontCodePages(&This
->IMLangFontLink2_iface
, hdc
, hfont
, codepages
);
2054 static HRESULT WINAPI
fnIMLangFontLink_MapFont(
2055 IMLangFontLink
* iface
,
2061 TRACE("(%p)->%p %08x %p %p\n",iface
, hDC
, dwCodePages
, hSrcFont
, phDestFont
);
2063 return map_font(hDC
, dwCodePages
, hSrcFont
, phDestFont
);
2066 static HRESULT WINAPI
fnIMLangFontLink_ReleaseFont(
2067 IMLangFontLink
* iface
,
2070 TRACE("(%p)->%p\n",iface
, hFont
);
2072 return release_font(hFont
);
2075 static HRESULT WINAPI
fnIMLangFontLink_ResetFontMapping(
2076 IMLangFontLink
* iface
)
2078 TRACE("(%p)\n",iface
);
2080 return clear_font_cache();
2084 static const IMLangFontLinkVtbl IMLangFontLink_vtbl
=
2086 fnIMLangFontLink_QueryInterface
,
2087 fnIMLangFontLink_AddRef
,
2088 fnIMLangFontLink_Release
,
2089 fnIMLangFontLink_GetCharCodePages
,
2090 fnIMLangFontLink_GetStrCodePages
,
2091 fnIMLangFontLink_CodePageToCodePages
,
2092 fnIMLangFontLink_CodePagesToCodePage
,
2093 fnIMLangFontLink_GetFontCodePages
,
2094 fnIMLangFontLink_MapFont
,
2095 fnIMLangFontLink_ReleaseFont
,
2096 fnIMLangFontLink_ResetFontMapping
,
2099 /******************************************************************************/
2101 static inline MLang_impl
*impl_from_IMultiLanguage( IMultiLanguage
*iface
)
2103 return CONTAINING_RECORD( iface
, MLang_impl
, IMultiLanguage_iface
);
2106 static HRESULT WINAPI
fnIMultiLanguage_QueryInterface(
2107 IMultiLanguage
* iface
,
2111 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2112 return IMultiLanguage3_QueryInterface(&This
->IMultiLanguage3_iface
, riid
, obj
);
2115 static ULONG WINAPI
fnIMultiLanguage_AddRef( IMultiLanguage
* iface
)
2117 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2118 return IMultiLanguage3_AddRef(&This
->IMultiLanguage3_iface
);
2121 static ULONG WINAPI
fnIMultiLanguage_Release( IMultiLanguage
* iface
)
2123 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2124 return IMultiLanguage3_Release(&This
->IMultiLanguage3_iface
);
2127 static HRESULT WINAPI
fnIMultiLanguage_GetNumberOfCodePageInfo(
2128 IMultiLanguage
* iface
,
2131 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2132 TRACE("(%p, %p)\n", This
, cp
);
2133 return IMultiLanguage3_GetNumberOfCodePageInfo(&This
->IMultiLanguage3_iface
, cp
);
2136 static HRESULT WINAPI
fnIMultiLanguage_GetCodePageInfo(
2137 IMultiLanguage
* iface
,
2139 PMIMECPINFO pCodePageInfo
)
2142 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2144 TRACE("%p, %u, %p\n", This
, uiCodePage
, pCodePageInfo
);
2146 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2148 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2150 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2152 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
2161 static HRESULT WINAPI
fnIMultiLanguage_GetFamilyCodePage(
2162 IMultiLanguage
* iface
,
2166 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2167 return IMultiLanguage3_GetFamilyCodePage(&This
->IMultiLanguage3_iface
, cp
, family_cp
);
2170 static HRESULT WINAPI
fnIMultiLanguage_EnumCodePages(
2171 IMultiLanguage
* iface
,
2173 IEnumCodePage
** ppEnumCodePage
)
2175 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2177 TRACE("%p %08x %p\n", This
, grfFlags
, ppEnumCodePage
);
2179 return EnumCodePage_create( This
, grfFlags
, 0, ppEnumCodePage
);
2182 static HRESULT WINAPI
fnIMultiLanguage_GetCharsetInfo(
2183 IMultiLanguage
* iface
,
2185 PMIMECSETINFO pCharsetInfo
)
2187 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2188 return IMultiLanguage3_GetCharsetInfo( &This
->IMultiLanguage3_iface
, Charset
, pCharsetInfo
);
2191 static HRESULT WINAPI
fnIMultiLanguage_IsConvertible(
2192 IMultiLanguage
* iface
,
2196 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2197 return IMultiLanguage3_IsConvertible(&This
->IMultiLanguage3_iface
, src_enc
, dst_enc
);
2200 static HRESULT WINAPI
fnIMultiLanguage_ConvertString(
2201 IMultiLanguage
* iface
,
2210 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2211 return IMultiLanguage3_ConvertString(&This
->IMultiLanguage3_iface
, mode
, src_enc
,
2212 dst_enc
, src
, src_size
, dest
, dest_size
);
2215 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringToUnicode(
2216 IMultiLanguage
* iface
,
2224 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2225 return IMultiLanguage3_ConvertStringToUnicode(&This
->IMultiLanguage3_iface
,
2226 mode
, src_enc
, src
, src_size
, dest
, dest_size
);
2229 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringFromUnicode(
2230 IMultiLanguage
* iface
,
2238 MLang_impl
*This
= impl_from_IMultiLanguage(iface
);
2239 return IMultiLanguage3_ConvertStringFromUnicode(&This
->IMultiLanguage3_iface
,
2240 mode
, encoding
, src
, src_size
, dest
, dest_size
);
2243 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringReset(
2244 IMultiLanguage
* iface
)
2246 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2247 return IMultiLanguage3_ConvertStringReset(&This
->IMultiLanguage3_iface
);
2250 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766FromLcid(
2251 IMultiLanguage
* iface
,
2255 MLang_impl
*This
= impl_from_IMultiLanguage(iface
);
2256 return IMultiLanguage3_GetRfc1766FromLcid(&This
->IMultiLanguage3_iface
, lcid
, pbstrRfc1766
);
2259 static HRESULT WINAPI
fnIMultiLanguage_GetLcidFromRfc1766(
2260 IMultiLanguage
* iface
,
2264 MLang_impl
*This
= impl_from_IMultiLanguage(iface
);
2265 return IMultiLanguage3_GetLcidFromRfc1766(&This
->IMultiLanguage3_iface
, locale
, rfc1766
);
2268 /******************************************************************************/
2270 typedef struct tagEnumRfc1766_impl
2272 IEnumRfc1766 IEnumRfc1766_iface
;
2278 static inline EnumRfc1766_impl
*impl_from_IEnumRfc1766( IEnumRfc1766
*iface
)
2280 return CONTAINING_RECORD( iface
, EnumRfc1766_impl
, IEnumRfc1766_iface
);
2283 static HRESULT WINAPI
fnIEnumRfc1766_QueryInterface(
2284 IEnumRfc1766
*iface
,
2288 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2290 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
2292 if (IsEqualGUID(riid
, &IID_IUnknown
)
2293 || IsEqualGUID(riid
, &IID_IEnumRfc1766
))
2295 IEnumRfc1766_AddRef(iface
);
2296 TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This
, This
->ref
);
2297 *ppvObject
= &This
->IEnumRfc1766_iface
;
2301 WARN("(%p) -> (%s,%p), not found\n",This
,debugstr_guid(riid
),ppvObject
);
2302 return E_NOINTERFACE
;
2305 static ULONG WINAPI
fnIEnumRfc1766_AddRef(
2306 IEnumRfc1766
*iface
)
2308 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2309 return InterlockedIncrement(&This
->ref
);
2312 static ULONG WINAPI
fnIEnumRfc1766_Release(
2313 IEnumRfc1766
*iface
)
2315 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2316 ULONG ref
= InterlockedDecrement(&This
->ref
);
2318 TRACE("%p ref = %d\n", This
, ref
);
2321 TRACE("Destroying %p\n", This
);
2322 HeapFree(GetProcessHeap(), 0, This
->info
);
2323 HeapFree(GetProcessHeap(), 0, This
);
2328 static HRESULT WINAPI
fnIEnumRfc1766_Clone(
2329 IEnumRfc1766
*iface
,
2330 IEnumRfc1766
**ppEnum
)
2332 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2334 FIXME("%p %p\n", This
, ppEnum
);
2338 static HRESULT WINAPI
fnIEnumRfc1766_Next(
2339 IEnumRfc1766
*iface
,
2342 ULONG
*pceltFetched
)
2345 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2347 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
2349 if (!pceltFetched
) return S_FALSE
;
2352 if (!rgelt
) return S_FALSE
;
2354 if (This
->pos
+ celt
> This
->total
)
2355 celt
= This
->total
- This
->pos
;
2357 if (!celt
) return S_FALSE
;
2359 memcpy(rgelt
, This
->info
+ This
->pos
, celt
* sizeof(RFC1766INFO
));
2360 *pceltFetched
= celt
;
2363 for (i
= 0; i
< celt
; i
++)
2365 TRACE("#%u: %08x %s %s\n",
2367 wine_dbgstr_w(rgelt
[i
].wszRfc1766
),
2368 wine_dbgstr_w(rgelt
[i
].wszLocaleName
));
2373 static HRESULT WINAPI
fnIEnumRfc1766_Reset(
2374 IEnumRfc1766
*iface
)
2376 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2378 TRACE("%p\n", This
);
2384 static HRESULT WINAPI
fnIEnumRfc1766_Skip(
2385 IEnumRfc1766
*iface
,
2388 EnumRfc1766_impl
*This
= impl_from_IEnumRfc1766( iface
);
2390 TRACE("%p %u\n", This
, celt
);
2392 if (celt
>= This
->total
) return S_FALSE
;
2398 static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl
=
2400 fnIEnumRfc1766_QueryInterface
,
2401 fnIEnumRfc1766_AddRef
,
2402 fnIEnumRfc1766_Release
,
2403 fnIEnumRfc1766_Clone
,
2404 fnIEnumRfc1766_Next
,
2405 fnIEnumRfc1766_Reset
,
2409 struct enum_locales_data
2412 DWORD total
, allocated
;
2415 static BOOL CALLBACK
enum_locales_proc(LPWSTR locale
)
2418 struct enum_locales_data
*data
= TlsGetValue(MLANG_tls_index
);
2421 TRACE("%s\n", debugstr_w(locale
));
2423 if (data
->total
>= data
->allocated
)
2425 data
->allocated
+= 32;
2426 data
->info
= HeapReAlloc(GetProcessHeap(), 0, data
->info
, data
->allocated
* sizeof(RFC1766INFO
));
2427 if (!data
->info
) return FALSE
;
2430 info
= &data
->info
[data
->total
];
2432 info
->lcid
= strtolW(locale
, &end
, 16);
2433 if (*end
) /* invalid number */
2436 info
->wszRfc1766
[0] = 0;
2437 lcid_to_rfc1766W( info
->lcid
, info
->wszRfc1766
, MAX_RFC1766_NAME
);
2439 info
->wszLocaleName
[0] = 0;
2440 GetLocaleInfoW(info
->lcid
, LOCALE_SLANGUAGE
, info
->wszLocaleName
, MAX_LOCALE_NAME
);
2441 TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info
->wszRfc1766
), wine_dbgstr_w(info
->wszLocaleName
));
2448 static HRESULT
EnumRfc1766_create(LANGID LangId
, IEnumRfc1766
**ppEnum
)
2450 EnumRfc1766_impl
*rfc
;
2451 struct enum_locales_data data
;
2453 TRACE("%04x, %p\n", LangId
, ppEnum
);
2455 rfc
= HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl
) );
2456 rfc
->IEnumRfc1766_iface
.lpVtbl
= &IEnumRfc1766_vtbl
;
2462 data
.allocated
= 160;
2463 data
.info
= HeapAlloc(GetProcessHeap(), 0, data
.allocated
* sizeof(RFC1766INFO
));
2466 HeapFree(GetProcessHeap(), 0, rfc
);
2467 return E_OUTOFMEMORY
;
2470 TlsSetValue(MLANG_tls_index
, &data
);
2471 EnumSystemLocalesW(enum_locales_proc
, 0/*LOCALE_SUPPORTED*/);
2472 TlsSetValue(MLANG_tls_index
, NULL
);
2474 TRACE("enumerated %d rfc1766 structures\n", data
.total
);
2478 HeapFree(GetProcessHeap(), 0, data
.info
);
2479 HeapFree(GetProcessHeap(), 0, rfc
);
2483 rfc
->info
= data
.info
;
2484 rfc
->total
= data
.total
;
2486 *ppEnum
= &rfc
->IEnumRfc1766_iface
;
2490 static HRESULT WINAPI
fnIMultiLanguage_EnumRfc1766(
2491 IMultiLanguage
*iface
,
2492 IEnumRfc1766
**ppEnumRfc1766
)
2494 MLang_impl
*This
= impl_from_IMultiLanguage( iface
);
2496 TRACE("%p %p\n", This
, ppEnumRfc1766
);
2498 return EnumRfc1766_create(0, ppEnumRfc1766
);
2501 /******************************************************************************/
2503 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766Info(
2504 IMultiLanguage
* iface
,
2506 PRFC1766INFO pRfc1766Info
)
2508 LCTYPE type
= LOCALE_SLANGUAGE
;
2510 TRACE("(%p, 0x%04x, %p)\n", iface
, Locale
, pRfc1766Info
);
2513 return E_INVALIDARG
;
2515 if ((PRIMARYLANGID(Locale
) == LANG_ENGLISH
) ||
2516 (PRIMARYLANGID(Locale
) == LANG_CHINESE
) ||
2517 (PRIMARYLANGID(Locale
) == LANG_ARABIC
)) {
2519 if (!SUBLANGID(Locale
))
2520 type
= LOCALE_SENGLANGUAGE
; /* suppress country */
2524 if (!SUBLANGID(Locale
)) {
2525 TRACE("SUBLANGID missing in 0x%04x\n", Locale
);
2530 pRfc1766Info
->lcid
= Locale
;
2531 pRfc1766Info
->wszRfc1766
[0] = 0;
2532 pRfc1766Info
->wszLocaleName
[0] = 0;
2534 if ((!lcid_to_rfc1766W(Locale
, pRfc1766Info
->wszRfc1766
, MAX_RFC1766_NAME
)) &&
2535 (GetLocaleInfoW(Locale
, type
, pRfc1766Info
->wszLocaleName
, MAX_LOCALE_NAME
) > 0))
2538 /* Locale not supported */
2539 return E_INVALIDARG
;
2542 static HRESULT WINAPI
fnIMultiLanguage_CreateConvertCharset(
2543 IMultiLanguage
* iface
,
2547 IMLangConvertCharset
** convert_charset
)
2549 MLang_impl
*This
= impl_from_IMultiLanguage(iface
);
2550 return IMultiLanguage3_CreateConvertCharset(&This
->IMultiLanguage3_iface
, src_cp
, dst_cp
, prop
, convert_charset
);
2553 static const IMultiLanguageVtbl IMultiLanguage_vtbl
=
2555 fnIMultiLanguage_QueryInterface
,
2556 fnIMultiLanguage_AddRef
,
2557 fnIMultiLanguage_Release
,
2558 fnIMultiLanguage_GetNumberOfCodePageInfo
,
2559 fnIMultiLanguage_GetCodePageInfo
,
2560 fnIMultiLanguage_GetFamilyCodePage
,
2561 fnIMultiLanguage_EnumCodePages
,
2562 fnIMultiLanguage_GetCharsetInfo
,
2563 fnIMultiLanguage_IsConvertible
,
2564 fnIMultiLanguage_ConvertString
,
2565 fnIMultiLanguage_ConvertStringToUnicode
,
2566 fnIMultiLanguage_ConvertStringFromUnicode
,
2567 fnIMultiLanguage_ConvertStringReset
,
2568 fnIMultiLanguage_GetRfc1766FromLcid
,
2569 fnIMultiLanguage_GetLcidFromRfc1766
,
2570 fnIMultiLanguage_EnumRfc1766
,
2571 fnIMultiLanguage_GetRfc1766Info
,
2572 fnIMultiLanguage_CreateConvertCharset
,
2576 /******************************************************************************/
2578 static inline MLang_impl
*impl_from_IMultiLanguage3( IMultiLanguage3
*iface
)
2580 return CONTAINING_RECORD( iface
, MLang_impl
, IMultiLanguage3_iface
);
2583 static HRESULT WINAPI
fnIMultiLanguage3_QueryInterface(
2584 IMultiLanguage3
* iface
,
2588 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2590 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), obj
);
2592 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
2593 IsEqualGUID(riid
, &IID_IMultiLanguage
))
2595 *obj
= &This
->IMultiLanguage_iface
;
2597 else if (IsEqualGUID(riid
, &IID_IMLangCodePages
) ||
2598 IsEqualGUID(riid
, &IID_IMLangFontLink
))
2600 *obj
= &This
->IMLangFontLink_iface
;
2602 else if (IsEqualGUID(riid
, &IID_IMLangFontLink2
))
2604 *obj
= &This
->IMLangFontLink2_iface
;
2606 else if (IsEqualGUID(riid
, &IID_IMultiLanguage2
) ||
2607 IsEqualGUID(riid
, &IID_IMultiLanguage3
))
2609 *obj
= &This
->IMultiLanguage3_iface
;
2611 else if (IsEqualGUID(riid
, &IID_IMLangLineBreakConsole
))
2613 *obj
= &This
->IMLangLineBreakConsole_iface
;
2617 WARN("(%p)->(%s,%p),not found\n", This
, debugstr_guid(riid
), obj
);
2619 return E_NOINTERFACE
;
2622 IMultiLanguage3_AddRef(iface
);
2626 static ULONG WINAPI
fnIMultiLanguage3_AddRef( IMultiLanguage3
* iface
)
2628 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2629 return InterlockedIncrement(&This
->ref
);
2632 static ULONG WINAPI
fnIMultiLanguage3_Release( IMultiLanguage3
* iface
)
2634 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2635 ULONG ref
= InterlockedDecrement(&This
->ref
);
2637 TRACE("(%p)->(%d)\n", This
, ref
);
2640 HeapFree(GetProcessHeap(), 0, This
);
2647 static HRESULT WINAPI
fnIMultiLanguage3_GetNumberOfCodePageInfo(
2648 IMultiLanguage3
* iface
,
2651 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2653 TRACE("%p, %p\n", This
, pcCodePage
);
2655 if (!pcCodePage
) return E_INVALIDARG
;
2657 *pcCodePage
= This
->total_cp
;
2661 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
)
2665 if (TranslateCharsetInfo((DWORD
*)(DWORD_PTR
)ml_data
->family_codepage
, &csi
,
2667 mime_cp_info
->bGDICharset
= csi
.ciCharset
;
2669 mime_cp_info
->bGDICharset
= DEFAULT_CHARSET
;
2671 mime_cp_info
->dwFlags
= ml_data
->mime_cp_info
[index
].flags
;
2672 mime_cp_info
->uiCodePage
= ml_data
->mime_cp_info
[index
].cp
;
2673 mime_cp_info
->uiFamilyCodePage
= ml_data
->family_codepage
;
2674 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].description
, -1,
2675 mime_cp_info
->wszDescription
, sizeof(mime_cp_info
->wszDescription
)/sizeof(WCHAR
));
2676 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].web_charset
, -1,
2677 mime_cp_info
->wszWebCharset
, sizeof(mime_cp_info
->wszWebCharset
)/sizeof(WCHAR
));
2678 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].header_charset
, -1,
2679 mime_cp_info
->wszHeaderCharset
, sizeof(mime_cp_info
->wszHeaderCharset
)/sizeof(WCHAR
));
2680 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].body_charset
, -1,
2681 mime_cp_info
->wszBodyCharset
, sizeof(mime_cp_info
->wszBodyCharset
)/sizeof(WCHAR
));
2683 MultiByteToWideChar(CP_ACP
, 0, ml_data
->fixed_font
, -1,
2684 mime_cp_info
->wszFixedWidthFont
, sizeof(mime_cp_info
->wszFixedWidthFont
)/sizeof(WCHAR
));
2685 MultiByteToWideChar(CP_ACP
, 0, ml_data
->proportional_font
, -1,
2686 mime_cp_info
->wszProportionalFont
, sizeof(mime_cp_info
->wszProportionalFont
)/sizeof(WCHAR
));
2688 TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
2689 mime_cp_info
->dwFlags
, mime_cp_info
->uiCodePage
,
2690 mime_cp_info
->uiFamilyCodePage
,
2691 wine_dbgstr_w(mime_cp_info
->wszDescription
),
2692 wine_dbgstr_w(mime_cp_info
->wszWebCharset
),
2693 wine_dbgstr_w(mime_cp_info
->wszHeaderCharset
),
2694 wine_dbgstr_w(mime_cp_info
->wszBodyCharset
),
2695 wine_dbgstr_w(mime_cp_info
->wszFixedWidthFont
),
2696 wine_dbgstr_w(mime_cp_info
->wszProportionalFont
),
2697 mime_cp_info
->bGDICharset
);
2700 static HRESULT WINAPI
fnIMultiLanguage3_GetCodePageInfo(
2701 IMultiLanguage3
* iface
,
2704 PMIMECPINFO pCodePageInfo
)
2707 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2709 TRACE("%p, %u, %04x, %p\n", This
, uiCodePage
, LangId
, pCodePageInfo
);
2711 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2713 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2715 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2717 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
2726 static HRESULT WINAPI
fnIMultiLanguage3_GetFamilyCodePage(
2727 IMultiLanguage3
* iface
,
2729 UINT
* puiFamilyCodePage
)
2731 return GetFamilyCodePage(uiCodePage
, puiFamilyCodePage
);
2734 static HRESULT WINAPI
fnIMultiLanguage3_EnumCodePages(
2735 IMultiLanguage3
* iface
,
2738 IEnumCodePage
** ppEnumCodePage
)
2740 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2742 TRACE("%p %08x %04x %p\n", This
, grfFlags
, LangId
, ppEnumCodePage
);
2744 return EnumCodePage_create( This
, grfFlags
, LangId
, ppEnumCodePage
);
2747 static HRESULT WINAPI
fnIMultiLanguage3_GetCharsetInfo(
2748 IMultiLanguage3
* iface
,
2750 PMIMECSETINFO pCharsetInfo
)
2753 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2755 TRACE("%p %s %p\n", This
, debugstr_w(Charset
), pCharsetInfo
);
2757 if (!pCharsetInfo
) return E_FAIL
;
2759 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2761 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2763 WCHAR csetW
[MAX_MIMECSET_NAME
];
2765 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].web_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2766 if (!lstrcmpiW(Charset
, csetW
))
2768 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2769 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2770 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2773 if (mlang_data
[i
].mime_cp_info
[n
].alias
&& !lstrcmpiW(Charset
, mlang_data
[i
].mime_cp_info
[n
].alias
))
2775 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2776 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2777 strcpyW(pCharsetInfo
->wszCharset
, mlang_data
[i
].mime_cp_info
[n
].alias
);
2784 * Since we do not support charsets like iso-2022-jp and do not have
2785 * them in our database as a primary (web_charset) encoding this loop
2786 * does an attempt to 'approximate' charset name by header_charset.
2788 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2790 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2792 WCHAR csetW
[MAX_MIMECSET_NAME
];
2794 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].header_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2795 if (!lstrcmpiW(Charset
, csetW
))
2797 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2798 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2799 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2808 static HRESULT WINAPI
fnIMultiLanguage3_IsConvertible(
2809 IMultiLanguage3
* iface
,
2810 DWORD dwSrcEncoding
,
2811 DWORD dwDstEncoding
)
2813 return IsConvertINetStringAvailable(dwSrcEncoding
, dwDstEncoding
);
2816 static HRESULT WINAPI
fnIMultiLanguage3_ConvertString(
2817 IMultiLanguage3
* iface
,
2819 DWORD dwSrcEncoding
,
2820 DWORD dwDstEncoding
,
2826 return ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
,
2827 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, (LPSTR
)pDstStr
, (LPINT
)pcDstSize
);
2830 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringToUnicode(
2831 IMultiLanguage3
* iface
,
2839 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2840 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2843 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringFromUnicode(
2844 IMultiLanguage3
* iface
,
2852 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2853 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2856 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringReset(
2857 IMultiLanguage3
* iface
)
2863 static HRESULT WINAPI
fnIMultiLanguage3_GetRfc1766FromLcid(
2864 IMultiLanguage3
* iface
,
2868 WCHAR buf
[MAX_RFC1766_NAME
];
2870 TRACE("%p %04x %p\n", iface
, lcid
, pbstrRfc1766
);
2872 return E_INVALIDARG
;
2874 if (!lcid_to_rfc1766W( lcid
, buf
, MAX_RFC1766_NAME
))
2876 *pbstrRfc1766
= SysAllocString( buf
);
2882 static HRESULT WINAPI
fnIMultiLanguage3_GetLcidFromRfc1766(
2883 IMultiLanguage3
* iface
,
2888 IEnumRfc1766
*rfc1766
;
2890 TRACE("%p %p %s\n", iface
, pLocale
, debugstr_w(bstrRfc1766
));
2892 if (!pLocale
|| !bstrRfc1766
)
2893 return E_INVALIDARG
;
2895 hr
= IMultiLanguage3_EnumRfc1766(iface
, 0, &rfc1766
);
2899 hr
= lcid_from_rfc1766(rfc1766
, pLocale
, bstrRfc1766
);
2901 IEnumRfc1766_Release(rfc1766
);
2905 static HRESULT WINAPI
fnIMultiLanguage3_EnumRfc1766(
2906 IMultiLanguage3
* iface
,
2908 IEnumRfc1766
** ppEnumRfc1766
)
2910 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
2912 TRACE("%p %p\n", This
, ppEnumRfc1766
);
2914 return EnumRfc1766_create(LangId
, ppEnumRfc1766
);
2917 static HRESULT WINAPI
fnIMultiLanguage3_GetRfc1766Info(
2918 IMultiLanguage3
* iface
,
2921 PRFC1766INFO pRfc1766Info
)
2923 static LANGID last_lang
= -1;
2924 LCTYPE type
= LOCALE_SLANGUAGE
;
2926 TRACE("(%p, 0x%04x, 0x%04x, %p)\n", iface
, Locale
, LangId
, pRfc1766Info
);
2929 return E_INVALIDARG
;
2931 if ((PRIMARYLANGID(Locale
) == LANG_ENGLISH
) ||
2932 (PRIMARYLANGID(Locale
) == LANG_CHINESE
) ||
2933 (PRIMARYLANGID(Locale
) == LANG_ARABIC
)) {
2935 if (!SUBLANGID(Locale
))
2936 type
= LOCALE_SENGLANGUAGE
; /* suppress country */
2940 if (!SUBLANGID(Locale
)) {
2941 TRACE("SUBLANGID missing in 0x%04x\n", Locale
);
2946 pRfc1766Info
->lcid
= Locale
;
2947 pRfc1766Info
->wszRfc1766
[0] = 0;
2948 pRfc1766Info
->wszLocaleName
[0] = 0;
2950 if ((PRIMARYLANGID(LangId
) != LANG_ENGLISH
) &&
2951 (last_lang
!= LangId
)) {
2952 FIXME("Only English names supported (requested: 0x%04x)\n", LangId
);
2956 if ((!lcid_to_rfc1766W(Locale
, pRfc1766Info
->wszRfc1766
, MAX_RFC1766_NAME
)) &&
2957 (GetLocaleInfoW(Locale
, type
, pRfc1766Info
->wszLocaleName
, MAX_LOCALE_NAME
) > 0))
2960 /* Locale not supported */
2961 return E_INVALIDARG
;
2964 static HRESULT WINAPI
fnIMultiLanguage3_CreateConvertCharset(
2965 IMultiLanguage3
* iface
,
2969 IMLangConvertCharset
** convert_charset
)
2973 TRACE("(%u %u 0x%08x %p)\n", src_cp
, dst_cp
, prop
, convert_charset
);
2975 hr
= MLangConvertCharset_create(NULL
, (void**)convert_charset
);
2976 if (FAILED(hr
)) return hr
;
2978 return IMLangConvertCharset_Initialize(*convert_charset
, src_cp
, dst_cp
, prop
);
2981 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringInIStream(
2982 IMultiLanguage3
* iface
,
2986 DWORD dwSrcEncoding
,
2987 DWORD dwDstEncoding
,
2991 char *src
, *dst
= NULL
;
2996 TRACE("%p %0x8 %s %u %u %p %p\n",
2997 pdwMode
, dwFlag
, debugstr_w(lpFallBack
), dwSrcEncoding
, dwDstEncoding
, pstmIn
, pstmOut
);
2999 FIXME("dwFlag and lpFallBack not handled\n");
3001 hr
= IStream_Stat(pstmIn
, &stat
, STATFLAG_NONAME
);
3002 if (FAILED(hr
)) return hr
;
3004 if (stat
.cbSize
.QuadPart
> MAXLONG
) return E_INVALIDARG
;
3005 if (!(src
= HeapAlloc(GetProcessHeap(), 0, stat
.cbSize
.QuadPart
))) return E_OUTOFMEMORY
;
3007 hr
= IStream_Read(pstmIn
, src
, stat
.cbSize
.QuadPart
, (ULONG
*)&srclen
);
3008 if (FAILED(hr
)) goto exit
;
3010 hr
= ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
, src
, &srclen
, NULL
, &dstlen
);
3011 if (FAILED(hr
)) goto exit
;
3013 if (!(dst
= HeapAlloc(GetProcessHeap(), 0, dstlen
)))
3018 hr
= ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
, src
, &srclen
, dst
, &dstlen
);
3019 if (FAILED(hr
)) goto exit
;
3021 hr
= IStream_Write(pstmOut
, dst
, dstlen
, NULL
);
3024 HeapFree(GetProcessHeap(), 0, src
);
3025 HeapFree(GetProcessHeap(), 0, dst
);
3029 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringToUnicodeEx(
3030 IMultiLanguage3
* iface
,
3040 if (dwFlag
|| lpFallBack
)
3041 FIXME("Ignoring dwFlag (0x%x/%d) and lpFallBack (%p)\n",
3042 dwFlag
, dwFlag
, lpFallBack
);
3044 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
3045 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
3048 /*****************************************************************************
3049 * MultiLanguage2::ConvertStringToUnicodeEx
3051 * Translates the multibyte string from the specified code page to Unicode.
3054 * see ConvertStringToUnicode
3056 * lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
3057 * instead unconvertible characters.
3061 * S_FALSE The conversion is not supported.
3062 * E_FAIL Some error has occurred.
3064 * TODO: handle dwFlag and lpFallBack
3066 static HRESULT WINAPI
fnIMultiLanguage3_ConvertStringFromUnicodeEx(
3067 IMultiLanguage3
* This
,
3078 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
3079 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
3082 static HRESULT WINAPI
fnIMultiLanguage3_DetectCodepageInIStream(
3083 IMultiLanguage3
* iface
,
3085 DWORD dwPrefWinCodePage
,
3087 DetectEncodingInfo
* lpEncoding
,
3094 static HRESULT WINAPI
fnIMultiLanguage3_DetectInputCodepage(
3095 IMultiLanguage3
* iface
,
3097 DWORD dwPrefWinCodePage
,
3100 DetectEncodingInfo
* lpEncoding
,
3107 static HRESULT WINAPI
fnIMultiLanguage3_ValidateCodePage(
3108 IMultiLanguage3
* iface
,
3112 return IMultiLanguage3_ValidateCodePageEx(iface
,uiCodePage
,hwnd
,0);
3115 static HRESULT WINAPI
fnIMultiLanguage3_GetCodePageDescription(
3116 IMultiLanguage3
* iface
,
3119 LPWSTR lpWideCharStr
,
3122 /* Find first instance */
3125 TRACE ("%u, %04x, %p, %d\n", uiCodePage
, lcid
, lpWideCharStr
, cchWideChar
);
3126 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3128 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
3130 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
3132 MultiByteToWideChar(CP_ACP
, 0,
3133 mlang_data
[i
].mime_cp_info
[n
].description
,
3134 -1, lpWideCharStr
, cchWideChar
);
3143 static HRESULT WINAPI
fnIMultiLanguage3_IsCodePageInstallable(
3144 IMultiLanguage3
* iface
,
3147 TRACE("%u\n", uiCodePage
);
3149 /* FIXME: the installable set is usually larger than the set of valid codepages */
3150 return IMultiLanguage3_ValidateCodePageEx(iface
, uiCodePage
, NULL
, CPIOD_PEEK
);
3153 static HRESULT WINAPI
fnIMultiLanguage3_SetMimeDBSource(
3154 IMultiLanguage3
* iface
,
3157 FIXME("0x%08x\n", dwSource
);
3161 static HRESULT WINAPI
fnIMultiLanguage3_GetNumberOfScripts(
3162 IMultiLanguage3
* iface
,
3165 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
3167 TRACE("%p %p\n", This
, pnScripts
);
3169 if (!pnScripts
) return S_FALSE
;
3171 *pnScripts
= This
->total_scripts
;
3175 static HRESULT WINAPI
fnIMultiLanguage3_EnumScripts(
3176 IMultiLanguage3
* iface
,
3179 IEnumScript
** ppEnumScript
)
3181 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
3183 TRACE("%p %08x %04x %p\n", This
, dwFlags
, LangId
, ppEnumScript
);
3185 return EnumScript_create( This
, dwFlags
, LangId
, ppEnumScript
);
3188 static HRESULT WINAPI
fnIMultiLanguage3_ValidateCodePageEx(
3189 IMultiLanguage3
* iface
,
3192 DWORD dwfIODControl
)
3195 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
3197 TRACE("%p %u %p %08x\n", This
, uiCodePage
, hwnd
, dwfIODControl
);
3199 /* quick check for kernel32 supported code pages */
3200 if (IsValidCodePage(uiCodePage
))
3203 /* check for mlang supported code pages */
3204 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3207 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
3209 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
3214 if (dwfIODControl
!= CPIOD_PEEK
)
3215 FIXME("Request to install codepage language pack not handled\n");
3220 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePage(
3221 IMultiLanguage3
*iface
,
3223 LPCWSTR lpWideCharStr
,
3225 UINT
*puiPreferredCodePages
,
3226 UINT nPreferredCodePages
,
3227 UINT
*puiDetectedCodePages
,
3228 UINT
*pnDetectedCodePages
,
3229 WCHAR
*lpSpecialChar
)
3231 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
3233 FIXME("(%p)->(%08x %s %p %u %p %p(%u) %s)\n", This
, dwFlags
, debugstr_w(lpWideCharStr
),
3234 puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
3235 pnDetectedCodePages
, pnDetectedCodePages
? *pnDetectedCodePages
: 0,
3236 debugstr_w(lpSpecialChar
));
3238 if (!puiDetectedCodePages
|| !pnDetectedCodePages
|| !*pnDetectedCodePages
)
3239 return E_INVALIDARG
;
3241 puiDetectedCodePages
[0] = CP_UTF8
;
3242 *pnDetectedCodePages
= 1;
3246 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePageInIStream(
3247 IMultiLanguage3
*iface
,
3250 UINT
*puiPreferredCodePages
,
3251 UINT nPreferredCodePages
,
3252 UINT
*puiDetectedCodePages
,
3253 UINT
*pnDetectedCodePages
,
3254 WCHAR
*lpSpecialChar
)
3256 MLang_impl
*This
= impl_from_IMultiLanguage3( iface
);
3258 FIXME("(%p)->(%08x %p %p %u %p %p(%u) %s)\n", This
, dwFlags
, pStrIn
,
3259 puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
3260 pnDetectedCodePages
, pnDetectedCodePages
? *pnDetectedCodePages
: 0,
3261 debugstr_w(lpSpecialChar
));
3263 if (!puiDetectedCodePages
|| !pnDetectedCodePages
|| !*pnDetectedCodePages
)
3264 return E_INVALIDARG
;
3266 puiDetectedCodePages
[0] = CP_UTF8
;
3267 *pnDetectedCodePages
= 1;
3271 static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl
=
3273 fnIMultiLanguage3_QueryInterface
,
3274 fnIMultiLanguage3_AddRef
,
3275 fnIMultiLanguage3_Release
,
3276 fnIMultiLanguage3_GetNumberOfCodePageInfo
,
3277 fnIMultiLanguage3_GetCodePageInfo
,
3278 fnIMultiLanguage3_GetFamilyCodePage
,
3279 fnIMultiLanguage3_EnumCodePages
,
3280 fnIMultiLanguage3_GetCharsetInfo
,
3281 fnIMultiLanguage3_IsConvertible
,
3282 fnIMultiLanguage3_ConvertString
,
3283 fnIMultiLanguage3_ConvertStringToUnicode
,
3284 fnIMultiLanguage3_ConvertStringFromUnicode
,
3285 fnIMultiLanguage3_ConvertStringReset
,
3286 fnIMultiLanguage3_GetRfc1766FromLcid
,
3287 fnIMultiLanguage3_GetLcidFromRfc1766
,
3288 fnIMultiLanguage3_EnumRfc1766
,
3289 fnIMultiLanguage3_GetRfc1766Info
,
3290 fnIMultiLanguage3_CreateConvertCharset
,
3291 fnIMultiLanguage3_ConvertStringInIStream
,
3292 fnIMultiLanguage3_ConvertStringToUnicodeEx
,
3293 fnIMultiLanguage3_ConvertStringFromUnicodeEx
,
3294 fnIMultiLanguage3_DetectCodepageInIStream
,
3295 fnIMultiLanguage3_DetectInputCodepage
,
3296 fnIMultiLanguage3_ValidateCodePage
,
3297 fnIMultiLanguage3_GetCodePageDescription
,
3298 fnIMultiLanguage3_IsCodePageInstallable
,
3299 fnIMultiLanguage3_SetMimeDBSource
,
3300 fnIMultiLanguage3_GetNumberOfScripts
,
3301 fnIMultiLanguage3_EnumScripts
,
3302 fnIMultiLanguage3_ValidateCodePageEx
,
3303 fnIMultiLanguage3_DetectOutboundCodePage
,
3304 fnIMultiLanguage3_DetectOutboundCodePageInIStream
3307 /******************************************************************************/
3309 static inline MLang_impl
*impl_from_IMLangFontLink2( IMLangFontLink2
*iface
)
3311 return CONTAINING_RECORD( iface
, MLang_impl
, IMLangFontLink2_iface
);
3314 static HRESULT WINAPI
fnIMLangFontLink2_QueryInterface(
3315 IMLangFontLink2
* iface
,
3319 MLang_impl
*This
= impl_from_IMLangFontLink2( iface
);
3320 return IMultiLanguage3_QueryInterface( &This
->IMultiLanguage3_iface
, riid
, ppvObject
);
3323 static ULONG WINAPI
fnIMLangFontLink2_AddRef( IMLangFontLink2
* iface
)
3325 MLang_impl
*This
= impl_from_IMLangFontLink2( iface
);
3326 return IMultiLanguage3_AddRef( &This
->IMultiLanguage3_iface
);
3329 static ULONG WINAPI
fnIMLangFontLink2_Release( IMLangFontLink2
* iface
)
3331 MLang_impl
*This
= impl_from_IMLangFontLink2( iface
);
3332 return IMultiLanguage3_Release( &This
->IMultiLanguage3_iface
);
3335 static HRESULT WINAPI
fnIMLangFontLink2_GetCharCodePages( IMLangFontLink2
* iface
,
3336 WCHAR ch_src
, DWORD
*ret_codepages
)
3338 MLang_impl
*This
= impl_from_IMLangFontLink2(iface
);
3341 TRACE("(%p)->(%s %p)\n", This
, debugstr_wn(&ch_src
, 1), ret_codepages
);
3345 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3350 WideCharToMultiByte(mlang_data
[i
].family_codepage
, WC_NO_BEST_FIT_CHARS
,
3351 &ch_src
, 1, &buf
, 1, NULL
, &used_dc
);
3353 /* If default char is not used, current codepage include the given symbol */
3358 IMLangFontLink2_CodePageToCodePages(iface
,
3359 mlang_data
[i
].family_codepage
, &codepages
);
3360 *ret_codepages
|= codepages
;
3366 static HRESULT WINAPI
fnIMLangFontLink2_GetStrCodePages( IMLangFontLink2
* iface
,
3367 const WCHAR
*src
, LONG src_len
, DWORD priority_cp
,
3368 DWORD
*codepages
, LONG
*ret_len
)
3370 MLang_impl
*This
= impl_from_IMLangFontLink2(iface
);
3374 TRACE("(%p)->(%s:%d %x %p %p)\n", This
, debugstr_wn(src
, src_len
), src_len
, priority_cp
,
3375 codepages
, ret_len
);
3377 if (codepages
) *codepages
= 0;
3378 if (ret_len
) *ret_len
= 0;
3380 if (!src
|| !src_len
|| src_len
< 0)
3381 return E_INVALIDARG
;
3383 for (i
= 0; i
< src_len
; i
++)
3388 ret
= IMLangFontLink2_GetCharCodePages(iface
, src
[i
], &cp
);
3389 if (ret
!= S_OK
) return E_FAIL
;
3394 /* FIXME: not tested */
3395 if (priority_cp
& cps
) break;
3398 if (codepages
) *codepages
= cps
;
3399 if (ret_len
) *ret_len
= min( i
+ 1, src_len
);
3403 static HRESULT WINAPI
fnIMLangFontLink2_CodePageToCodePages(IMLangFontLink2
* iface
,
3407 MLang_impl
*This
= impl_from_IMLangFontLink2(iface
);
3411 TRACE("(%p)->(%u %p)\n", This
, codepage
, codepages
);
3413 rc
= TranslateCharsetInfo((DWORD
*)(DWORD_PTR
)codepage
, &cs
, TCI_SRCCODEPAGE
);
3416 *codepages
= cs
.fs
.fsCsb
[0];
3417 TRACE("resulting codepages 0x%x\n", *codepages
);
3421 TRACE("codepage not found\n");
3426 static HRESULT WINAPI
fnIMLangFontLink2_CodePagesToCodePage(IMLangFontLink2
* iface
,
3427 DWORD codepages
, UINT def_codepage
, UINT
*codepage
)
3429 MLang_impl
*This
= impl_from_IMLangFontLink2(iface
);
3435 TRACE("(%p)->(0x%x %u %p)\n", This
, codepages
, def_codepage
, codepage
);
3439 rc
= TranslateCharsetInfo((DWORD
*)(DWORD_PTR
)def_codepage
, &cs
, TCI_SRCCODEPAGE
);
3440 if (rc
&& (codepages
& cs
.fs
.fsCsb
[0]))
3442 TRACE("Found Default Codepage\n");
3443 *codepage
= def_codepage
;
3447 for (i
= 0; i
< 32; i
++)
3450 if (codepages
& mask
)
3455 rc
= TranslateCharsetInfo(Csb
, &cs
, TCI_SRCFONTSIG
);
3459 TRACE("Falling back to least significant found CodePage %u\n",
3461 *codepage
= cs
.ciACP
;
3466 TRACE("no codepage found\n");
3470 static HRESULT WINAPI
fnIMLangFontLink2_GetFontCodePages(IMLangFontLink2
*iface
,
3471 HDC hdc
, HFONT hfont
, DWORD
*codepages
)
3473 MLang_impl
*This
= impl_from_IMLangFontLink2(iface
);
3474 FONTSIGNATURE fontsig
;
3477 TRACE("(%p)->(%p %p %p)\n", This
, hdc
, hfont
, codepages
);
3479 old_font
= SelectObject(hdc
, hfont
);
3480 GetTextCharsetInfo(hdc
, &fontsig
, 0);
3481 SelectObject(hdc
, old_font
);
3483 *codepages
= fontsig
.fsCsb
[0];
3484 TRACE("ret 0x%x\n", fontsig
.fsCsb
[0]);
3489 static HRESULT WINAPI
fnIMLangFontLink2_ReleaseFont(IMLangFontLink2
* This
,
3492 TRACE("(%p)->%p\n",This
, hFont
);
3494 return release_font(hFont
);
3497 static HRESULT WINAPI
fnIMLangFontLink2_ResetFontMapping(IMLangFontLink2
* This
)
3499 TRACE("(%p)\n",This
);
3501 return clear_font_cache();
3504 static HRESULT WINAPI
fnIMLangFontLink2_MapFont(IMLangFontLink2
* This
,
3505 HDC hDC
, DWORD dwCodePages
, WCHAR chSrc
, HFONT
*pFont
)
3509 TRACE("(%p)->%p %08x %04x %p\n",This
, hDC
, dwCodePages
, chSrc
, pFont
);
3511 if (!hDC
) return E_FAIL
;
3513 if (dwCodePages
!= 0)
3515 old_font
= GetCurrentObject(hDC
, OBJ_FONT
);
3516 return map_font(hDC
, dwCodePages
, old_font
, pFont
);
3520 if (pFont
== NULL
) return E_INVALIDARG
;
3521 FIXME("the situation where dwCodepages is set to zero is not implemented\n");
3526 static HRESULT WINAPI
fnIMLangFontLink2_GetFontUnicodeRanges(IMLangFontLink2
* This
,
3527 HDC hDC
, UINT
*puiRanges
, UNICODERANGE
*pUranges
)
3532 TRACE("(%p)->%p %p %p\n", This
, hDC
, puiRanges
, pUranges
);
3534 if (!puiRanges
) return E_INVALIDARG
;
3535 if (!(size
= GetFontUnicodeRanges(hDC
, NULL
))) return E_FAIL
;
3536 if (!(gs
= HeapAlloc(GetProcessHeap(), 0, size
))) return E_OUTOFMEMORY
;
3538 GetFontUnicodeRanges(hDC
, gs
);
3539 *puiRanges
= gs
->cRanges
;
3543 for (i
= 0; i
< gs
->cRanges
; i
++)
3545 if (i
>= *puiRanges
) break;
3546 pUranges
[i
].wcFrom
= gs
->ranges
[i
].wcLow
;
3547 pUranges
[i
].wcTo
= gs
->ranges
[i
].wcLow
+ gs
->ranges
[i
].cGlyphs
;
3551 HeapFree(GetProcessHeap(), 0, gs
);
3555 static HRESULT WINAPI
fnIMLangFontLink2_GetScriptFontInfo(IMLangFontLink2
* This
,
3556 SCRIPT_ID sid
, DWORD dwFlags
, UINT
*puiFonts
,
3557 SCRIPTFONTINFO
*pScriptFont
)
3561 TRACE("(%p)->%u %x %p %p\n", This
, sid
, dwFlags
, puiFonts
, pScriptFont
);
3563 if (!dwFlags
) dwFlags
= SCRIPTCONTF_PROPORTIONAL_FONT
;
3565 for (i
= 0, j
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3567 if (sid
== mlang_data
[i
].sid
)
3571 if (j
>= *puiFonts
) break;
3573 pScriptFont
[j
].scripts
= 1 << mlang_data
[i
].sid
;
3574 if (dwFlags
== SCRIPTCONTF_FIXED_FONT
)
3576 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].fixed_font
, -1,
3577 pScriptFont
[j
].wszFont
, MAX_MIMEFACE_NAME
);
3579 else if (dwFlags
== SCRIPTCONTF_PROPORTIONAL_FONT
)
3581 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].proportional_font
, -1,
3582 pScriptFont
[j
].wszFont
, MAX_MIMEFACE_NAME
);
3592 static HRESULT WINAPI
fnIMLangFontLink2_CodePageToScriptID(IMLangFontLink2
* This
,
3593 UINT uiCodePage
, SCRIPT_ID
*pSid
)
3597 TRACE("(%p)->%i %p\n", This
, uiCodePage
, pSid
);
3599 if (uiCodePage
== CP_UNICODE
) return E_FAIL
;
3601 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3603 if (uiCodePage
== mlang_data
[i
].family_codepage
)
3605 if (pSid
) *pSid
= mlang_data
[i
].sid
;
3612 static const IMLangFontLink2Vtbl IMLangFontLink2_vtbl
=
3614 fnIMLangFontLink2_QueryInterface
,
3615 fnIMLangFontLink2_AddRef
,
3616 fnIMLangFontLink2_Release
,
3617 fnIMLangFontLink2_GetCharCodePages
,
3618 fnIMLangFontLink2_GetStrCodePages
,
3619 fnIMLangFontLink2_CodePageToCodePages
,
3620 fnIMLangFontLink2_CodePagesToCodePage
,
3621 fnIMLangFontLink2_GetFontCodePages
,
3622 fnIMLangFontLink2_ReleaseFont
,
3623 fnIMLangFontLink2_ResetFontMapping
,
3624 fnIMLangFontLink2_MapFont
,
3625 fnIMLangFontLink2_GetFontUnicodeRanges
,
3626 fnIMLangFontLink2_GetScriptFontInfo
,
3627 fnIMLangFontLink2_CodePageToScriptID
3630 /******************************************************************************/
3632 static inline MLang_impl
*impl_from_IMLangLineBreakConsole( IMLangLineBreakConsole
*iface
)
3634 return CONTAINING_RECORD( iface
, MLang_impl
, IMLangLineBreakConsole_iface
);
3637 static HRESULT WINAPI
fnIMLangLineBreakConsole_QueryInterface(
3638 IMLangLineBreakConsole
* iface
,
3642 MLang_impl
*This
= impl_from_IMLangLineBreakConsole( iface
);
3643 return IMultiLanguage3_QueryInterface( &This
->IMultiLanguage3_iface
, riid
, ppvObject
);
3646 static ULONG WINAPI
fnIMLangLineBreakConsole_AddRef(
3647 IMLangLineBreakConsole
* iface
)
3649 MLang_impl
*This
= impl_from_IMLangLineBreakConsole( iface
);
3650 return IMultiLanguage3_AddRef( &This
->IMultiLanguage3_iface
);
3653 static ULONG WINAPI
fnIMLangLineBreakConsole_Release(
3654 IMLangLineBreakConsole
* iface
)
3656 MLang_impl
*This
= impl_from_IMLangLineBreakConsole( iface
);
3657 return IMultiLanguage3_Release( &This
->IMultiLanguage3_iface
);
3660 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineML(
3661 IMLangLineBreakConsole
* iface
,
3662 IMLangString
* pSrcMLStr
,
3670 FIXME("(%p)->%p %i %i %i %i %p %p\n", iface
, pSrcMLStr
, lSrcPos
, lSrcLen
, cMinColumns
, cMaxColumns
, plLineLen
, plSkipLen
);
3674 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineW(
3675 IMLangLineBreakConsole
* iface
,
3677 const WCHAR
* pszSrc
,
3683 FIXME("(%p)->%i %s %i %i %p %p\n", iface
, locale
, debugstr_wn(pszSrc
,cchSrc
), cchSrc
, cMaxColumns
, pcchLine
, pcchSkip
);
3690 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineA(
3691 IMLangLineBreakConsole
* iface
,
3700 LONG i
, line
= cchSrc
, skip
= 0;
3702 FIXME("(%p)->%i %i %s %i %i %p %p\n", iface
, locale
, uCodePage
, debugstr_an(pszSrc
,cchSrc
), cchSrc
, cMaxColumns
, pcchLine
, pcchSkip
);
3704 if (uCodePage
== CP_USASCII
&& cchSrc
> cMaxColumns
)
3706 for (line
= cMaxColumns
, i
= cMaxColumns
- 1; i
>= 0; i
--)
3708 if (pszSrc
[i
] == ' ')
3710 while (i
>= 0 && pszSrc
[i
] == ' ')
3725 static const IMLangLineBreakConsoleVtbl IMLangLineBreakConsole_vtbl
=
3727 fnIMLangLineBreakConsole_QueryInterface
,
3728 fnIMLangLineBreakConsole_AddRef
,
3729 fnIMLangLineBreakConsole_Release
,
3730 fnIMLangLineBreakConsole_BreakLineML
,
3731 fnIMLangLineBreakConsole_BreakLineW
,
3732 fnIMLangLineBreakConsole_BreakLineA
3735 struct convert_charset
{
3736 IMLangConvertCharset IMLangConvertCharset_iface
;
3743 static inline struct convert_charset
*impl_from_IMLangConvertCharset(IMLangConvertCharset
*iface
)
3745 return CONTAINING_RECORD(iface
, struct convert_charset
, IMLangConvertCharset_iface
);
3748 static HRESULT WINAPI
MLangConvertCharset_QueryInterface(IMLangConvertCharset
*iface
, REFIID riid
, void **obj
)
3750 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3752 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), obj
);
3754 if (IsEqualIID(riid
, &IID_IUnknown
) || IsEqualIID(riid
, &IID_IMLangConvertCharset
))
3756 *obj
= &This
->IMLangConvertCharset_iface
;
3757 IMLangConvertCharset_AddRef(iface
);
3762 return E_NOINTERFACE
;
3765 static ULONG WINAPI
MLangConvertCharset_AddRef(IMLangConvertCharset
*iface
)
3767 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3768 ULONG ref
= InterlockedIncrement(&This
->ref
);
3769 TRACE("(%p)->(%u)\n", This
, ref
);
3773 static ULONG WINAPI
MLangConvertCharset_Release(IMLangConvertCharset
*iface
)
3775 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3776 ULONG ref
= InterlockedDecrement(&This
->ref
);
3778 TRACE("(%p)->(%u)\n", This
, ref
);
3781 HeapFree(GetProcessHeap(), 0, This
);
3788 static HRESULT WINAPI
MLangConvertCharset_Initialize(IMLangConvertCharset
*iface
,
3789 UINT src_cp
, UINT dst_cp
, DWORD prop
)
3791 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3793 TRACE("(%p)->(%u %u 0x%08x)\n", This
, src_cp
, dst_cp
, prop
);
3795 prop
&= ~MLCONVCHARF_USEDEFCHAR
;
3797 FIXME("property 0x%08x not supported\n", prop
);
3799 This
->src_cp
= src_cp
;
3800 This
->dst_cp
= dst_cp
;
3805 static HRESULT WINAPI
MLangConvertCharset_GetSourceCodePage(IMLangConvertCharset
*iface
, UINT
*src_cp
)
3807 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3809 TRACE("(%p)->(%p)\n", This
, src_cp
);
3811 if (!src_cp
) return E_INVALIDARG
;
3812 *src_cp
= This
->src_cp
;
3816 static HRESULT WINAPI
MLangConvertCharset_GetDestinationCodePage(IMLangConvertCharset
*iface
, UINT
*dst_cp
)
3818 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3820 TRACE("(%p)->(%p)\n", This
, dst_cp
);
3822 if (!dst_cp
) return E_INVALIDARG
;
3823 *dst_cp
= This
->dst_cp
;
3827 static HRESULT WINAPI
MLangConvertCharset_GetProperty(IMLangConvertCharset
*iface
, DWORD
*prop
)
3829 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3830 FIXME("(%p)->(%p): stub\n", This
, prop
);
3834 static HRESULT WINAPI
MLangConvertCharset_DoConversion(IMLangConvertCharset
*iface
, BYTE
*src
,
3835 UINT
*src_size
, BYTE
*dest
, UINT
*dest_size
)
3837 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3838 FIXME("(%p)->(%p %p %p %p): stub\n", This
, src
, src_size
, dest
, dest_size
);
3842 static HRESULT WINAPI
MLangConvertCharset_DoConversionToUnicode(IMLangConvertCharset
*iface
, CHAR
*src
,
3843 UINT
*src_size
, WCHAR
*dest
, UINT
*dest_size
)
3845 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3846 TRACE("(%p)->(%p %p %p %p)\n", This
, src
, src_size
, dest
, dest_size
);
3847 return ConvertINetMultiByteToUnicode(NULL
, This
->src_cp
, src
, (INT
*)src_size
, dest
, (INT
*)dest_size
);
3850 static HRESULT WINAPI
MLangConvertCharset_DoConversionFromUnicode(IMLangConvertCharset
*iface
,
3851 WCHAR
*src
, UINT
*src_size
, CHAR
*dest
, UINT
*dest_size
)
3853 struct convert_charset
*This
= impl_from_IMLangConvertCharset(iface
);
3854 TRACE("(%p)->(%p %p %p %p)\n", This
, src
, src_size
, dest
, dest_size
);
3855 return ConvertINetUnicodeToMultiByte(NULL
, This
->dst_cp
, src
, (INT
*)src_size
, dest
, (INT
*)dest_size
);
3858 static const IMLangConvertCharsetVtbl MLangConvertCharsetVtbl
=
3860 MLangConvertCharset_QueryInterface
,
3861 MLangConvertCharset_AddRef
,
3862 MLangConvertCharset_Release
,
3863 MLangConvertCharset_Initialize
,
3864 MLangConvertCharset_GetSourceCodePage
,
3865 MLangConvertCharset_GetDestinationCodePage
,
3866 MLangConvertCharset_GetProperty
,
3867 MLangConvertCharset_DoConversion
,
3868 MLangConvertCharset_DoConversionToUnicode
,
3869 MLangConvertCharset_DoConversionFromUnicode
3872 static HRESULT
MultiLanguage_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
)
3877 TRACE("Creating MultiLanguage object\n");
3880 return CLASS_E_NOAGGREGATION
;
3882 mlang
= HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl
) );
3883 mlang
->IMLangFontLink_iface
.lpVtbl
= &IMLangFontLink_vtbl
;
3884 mlang
->IMultiLanguage_iface
.lpVtbl
= &IMultiLanguage_vtbl
;
3885 mlang
->IMultiLanguage3_iface
.lpVtbl
= &IMultiLanguage3_vtbl
;
3886 mlang
->IMLangFontLink2_iface
.lpVtbl
= &IMLangFontLink2_vtbl
;
3887 mlang
->IMLangLineBreakConsole_iface
.lpVtbl
= &IMLangLineBreakConsole_vtbl
;
3889 mlang
->total_cp
= 0;
3890 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3891 mlang
->total_cp
+= mlang_data
[i
].number_of_cp
;
3893 /* do not enumerate unicode flavours */
3894 mlang
->total_scripts
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
3897 *ppObj
= &mlang
->IMultiLanguage_iface
;
3898 TRACE("returning %p\n", mlang
);
3905 static HRESULT
MLangConvertCharset_create(IUnknown
*outer
, void **obj
)
3907 struct convert_charset
*convert
;
3910 return CLASS_E_NOAGGREGATION
;
3914 convert
= HeapAlloc(GetProcessHeap(), 0, sizeof(struct convert_charset
));
3915 if (!convert
) return E_OUTOFMEMORY
;
3917 convert
->IMLangConvertCharset_iface
.lpVtbl
= &MLangConvertCharsetVtbl
;
3920 *obj
= &convert
->IMLangConvertCharset_iface
;
3927 /******************************************************************************/
3929 HRESULT WINAPI
DllCanUnloadNow(void)
3931 return dll_count
== 0 ? S_OK
: S_FALSE
;
3935 /***********************************************************************
3936 * DllRegisterServer (MLANG.@)
3938 HRESULT WINAPI
DllRegisterServer(void)
3940 return __wine_register_resources( instance
);
3943 /***********************************************************************
3944 * DllUnregisterServer (MLANG.@)
3946 HRESULT WINAPI
DllUnregisterServer(void)
3948 return __wine_unregister_resources( instance
);
3951 HRESULT WINAPI
GetGlobalFontLinkObject(void **unknown
)
3953 if (!unknown
) return E_INVALIDARG
;
3955 FIXME("%p: stub\n", unknown
);