4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2003,2004 Mike McCormack
6 * Copyright 2004,2005 Dmitry Timoshkov
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
37 #include "wine/unicode.h"
38 #include "wine/debug.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(mlang
);
44 #define CP_UNICODE 1200
46 #define ICOM_THIS_MULTI(impl,field,iface) impl* const This=(impl*)((char*)(iface) - offsetof(impl,field))
48 static HRESULT
MultiLanguage_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
49 static HRESULT
EnumRfc1766_create(LANGID LangId
, IEnumRfc1766
**ppEnum
);
51 static DWORD MLANG_tls_index
; /* to store various per thead data */
54 * Under what circumstances HKEY_CLASSES_ROOT\MIME\Database\Codepage and
55 * HKEY_CLASSES_ROOT\MIME\Database\Charset are used?
60 const char *description
;
63 const char *web_charset
;
64 const char *header_charset
;
65 const char *body_charset
;
68 /* These data are based on the codepage info in libs/unicode/cpmap.pl */
69 /* FIXME: Add 28604 (Celtic), 28606 (Balkan) */
71 static const MIME_CP_INFO arabic_cp
[] =
74 864, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
75 MIMECONTF_MIME_LATEST
,
76 "ibm864", "ibm864", "ibm864" },
78 1006, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
79 MIMECONTF_MIME_LATEST
,
80 "ibm1006", "ibm1006", "ibm1006" },
82 1256, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
83 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
84 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
85 "windows-1256", "windows-1256", "windows-1256" },
87 28596, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
88 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
89 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
90 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
91 "iso-8859-6", "iso-8859-6", "iso-8859-6" }
93 static const MIME_CP_INFO baltic_cp
[] =
96 775, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
97 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
98 "ibm775", "ibm775", "ibm775" },
100 1257, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
101 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
102 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
103 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
104 "windows-1257", "windows-1257", "windows-1257" },
106 28594, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
107 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
108 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
109 MIMECONTF_MIME_LATEST
,
110 "iso-8859-4", "iso-8859-4", "iso-8859-4" },
112 28603, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
113 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
114 "iso-8859-13", "iso-8859-13", "iso-8859-13" }
116 static const MIME_CP_INFO chinese_simplified_cp
[] =
118 { "Chinese Simplified (GB2312)",
119 936, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
120 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
121 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
122 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
123 "gb2312", "gb2312", "gb2312" }
125 static const MIME_CP_INFO chinese_traditional_cp
[] =
127 { "Chinese Traditional (Big5)",
128 950, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
129 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
130 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
131 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
132 "big5", "big5", "big5" }
134 static const MIME_CP_INFO central_european_cp
[] =
136 { "Central European (DOS)",
137 852, MIMECONTF_BROWSER
| MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_BROWSER
|
138 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
139 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
140 "ibm852", "ibm852", "ibm852" },
141 { "Central European (Windows)",
142 1250, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
143 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
144 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
145 MIMECONTF_MIME_LATEST
,
146 "windows-1250", "windows-1250", "windows-1250" },
147 { "Central European (Mac)",
148 10029, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
149 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
150 "x-mac-ce", "x-mac-ce", "x-mac-ce" },
151 { "Central European (ISO)",
152 28592, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
153 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
154 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
155 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
156 "iso-8859-2", "iso-8859-2", "iso-8859-2" }
158 static const MIME_CP_INFO cyrillic_cp
[] =
161 855, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
162 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
163 "ibm855", "ibm855", "ibm855" },
165 866, MIMECONTF_BROWSER
| MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_BROWSER
|
166 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
167 MIMECONTF_MIME_LATEST
,
168 "cp866", "cp866", "cp866" },
169 #if 0 /* Windows has 20866 as an official code page for KOI8-R */
170 { "Cyrillic (KOI8-R)",
171 878, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
172 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
173 "koi8-r", "koi8-r", "koi8-r" },
175 { "Cyrillic (Windows)",
176 1251, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
177 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
178 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
179 "windows-1251", "windows-1251", "windows-1251" },
181 10007, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
182 MIMECONTF_MIME_LATEST
,
183 "x-mac-cyrillic", "x-mac-cyrillic", "x-mac-cyrillic" },
184 { "Cyrillic (KOI8-R)",
185 20866, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
186 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
187 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
188 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
189 "koi8-r", "koi8-r", "koi8-r" },
190 { "Cyrillic (KOI8-U)",
191 21866, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
192 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
193 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
194 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
195 "koi8-u", "koi8-u", "koi8-u" },
197 28595, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
198 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
199 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
200 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
201 "iso-8859-5", "iso-8859-5", "iso-8859-5" }
203 static const MIME_CP_INFO greek_cp
[] =
206 737, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
207 MIMECONTF_MIME_LATEST
,
208 "ibm737", "ibm737", "ibm737" },
209 { "Greek, Modern (DOS)",
210 869, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
211 MIMECONTF_MIME_LATEST
,
212 "ibm869", "ibm869", "ibm869" },
213 { "IBM EBCDIC (Greek Modern)",
214 875, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
215 MIMECONTF_MIME_LATEST
,
216 "cp875", "cp875", "cp875" },
218 1253, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
219 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
220 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
221 "windows-1253", "windows-1253", "windows-1253" },
223 10006, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
224 MIMECONTF_MIME_LATEST
,
225 "x-mac-greek", "x-mac-greek", "x-mac-greek" },
227 28597, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
228 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
229 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
230 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
231 "iso-8859-7", "iso-8859-7", "iso-8859-7" }
233 static const MIME_CP_INFO hebrew_cp
[] =
236 424, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
237 MIMECONTF_MIME_LATEST
,
238 "ibm424", "ibm424", "ibm424" },
240 856, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
241 MIMECONTF_MIME_LATEST
,
242 "cp856", "cp856", "cp856" },
244 862, MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
245 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
246 MIMECONTF_MIME_LATEST
,
247 "dos-862", "dos-862", "dos-862" },
248 { "Hebrew (Windows)",
249 1255, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
250 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
251 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
252 "windows-1255", "windows-1255", "windows-1255" },
253 { "Hebrew (ISO-Visual)",
254 28598, MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
255 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
256 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
257 "iso-8859-8", "iso-8859-8", "iso-8859-8" }
259 static const MIME_CP_INFO japanese_cp
[] =
261 { "Japanese (Auto-Select)",
262 50932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
263 MIMECONTF_IMPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
264 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
265 "_autodetect", "_autodetect", "_autodetect" },
267 51932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
268 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
269 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
270 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
271 "euc-jp", "euc-jp", "euc-jp" },
273 50220, MIMECONTF_IMPORT
| MIMECONTF_MAILNEWS
| MIMECONTF_EXPORT
|
274 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID_NLS
|
275 MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
|
277 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
278 { "Japanese (JIS 0208-1990 and 0212-1990)",
279 20932, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
280 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
281 "EUC-JP","EUC-JP","EUC-JP"},
282 { "Japanese (JIS-Allow 1 byte Kana)",
283 50221, MIMECONTF_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_SAVABLE_BROWSER
|
284 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID_NLS
|
285 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
286 "csISO2022JP","iso-2022-jp","iso-2022-jp"},
287 { "Japanese (JIS-Allow 1 byte Kana - SO/SI)",
288 50222, MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_VALID
|
289 MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
290 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
292 10001, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
293 MIMECONTF_VALID
| MIMECONTF_PRIVCONVERTER
| MIMECONTF_MIME_LATEST
,
294 "x-mac-japanese","x-mac-japanese","x-mac-japanese"},
295 { "Japanese (Shift-JIS)",
296 932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
297 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
298 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
299 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
300 "shift_jis", "iso-2022-jp", "iso-2022-jp" }
302 static const MIME_CP_INFO korean_cp
[] =
305 949, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
306 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
307 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
308 MIMECONTF_MIME_LATEST
,
309 "ks_c_5601-1987", "ks_c_5601-1987", "ks_c_5601-1987" }
311 static const MIME_CP_INFO thai_cp
[] =
314 874, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_MIME_LATEST
,
315 "ibm-thai", "ibm-thai", "ibm-thai" }
317 static const MIME_CP_INFO turkish_cp
[] =
320 857, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
321 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
322 "ibm857", "ibm857", "ibm857" },
323 { "IBM EBCDIC (Turkish Latin-5)",
324 1026, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
325 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
326 "ibm1026", "ibm1026", "ibm1026" },
327 { "Turkish (Windows)",
328 1254, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
329 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
330 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
331 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
332 "windows-1254", "windows-1254", "windows-1254" },
334 10081, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
335 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
336 "x-mac-turkish", "x-mac-turkish", "x-mac-turkish" },
338 28593, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
339 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
340 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
341 "iso-8859-3", "iso-8859-3", "iso-8859-3" },
343 28599, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
344 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
345 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
346 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
347 "iso-8859-9", "iso-8859-9", "iso-8859-9" }
349 static const MIME_CP_INFO vietnamese_cp
[] =
351 { "Vietnamese (Windows)",
352 1258, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
353 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
354 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
355 MIMECONTF_MIME_LATEST
,
356 "windows-1258", "windows-1258", "windows-1258" }
358 static const MIME_CP_INFO western_cp
[] =
360 { "IBM EBCDIC (US-Canada)",
361 37, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
362 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
363 "ibm037", "ibm037", "ibm037" },
364 { "OEM United States",
365 437, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
366 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
367 "ibm437", "ibm437", "ibm437" },
368 { "IBM EBCDIC (International)",
369 500, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
370 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
371 "ibm500", "ibm500", "ibm500" },
372 { "Western European (DOS)",
373 850, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
374 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
375 "ibm850", "ibm850", "ibm850" },
376 { "Portuguese (DOS)",
377 860, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
378 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
379 "ibm860", "ibm860", "ibm860" },
381 861, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
382 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
383 "ibm861", "ibm861", "ibm861" },
384 { "French Canadian (DOS)",
385 863, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
386 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
387 "ibm863", "ibm863", "ibm863" },
389 865, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
390 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
391 "ibm865", "ibm865", "ibm865" },
392 { "Western European (Windows)",
393 1252, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
394 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
395 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
396 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
397 "windows-1252", "windows-1252", "iso-8859-1" },
398 { "Western European (Mac)",
399 10000, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
400 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
401 "macintosh", "macintosh", "macintosh" },
403 10079, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
404 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
405 "x-mac-icelandic", "x-mac-icelandic", "x-mac-icelandic" },
407 20127, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
| MIMECONTF_EXPORT
|
408 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID
|
409 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
410 "us-ascii", "us-ascii", "us-ascii" },
411 { "Western European (ISO)",
412 28591, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
413 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
414 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
415 MIMECONTF_MIME_LATEST
,
416 "iso-8859-1", "iso-8859-1", "iso-8859-1" },
418 28605, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
419 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
420 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
421 MIMECONTF_MIME_LATEST
,
422 "iso-8859-15", "iso-8859-15", "iso-8859-15" }
424 static const MIME_CP_INFO unicode_cp
[] =
427 CP_UNICODE
, MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
428 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
429 MIMECONTF_VALID
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
430 MIMECONTF_MIME_LATEST
,
431 "unicode", "unicode", "unicode" },
433 CP_UTF7
, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
434 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
435 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
436 "utf-7", "utf-7", "utf-7" },
438 CP_UTF8
, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
439 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
440 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
441 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
442 "utf-8", "utf-8", "utf-8" }
445 static const struct mlang_data
447 const char *description
;
448 UINT family_codepage
;
450 const MIME_CP_INFO
*mime_cp_info
;
451 const char *fixed_font
;
452 const char *proportional_font
;
456 { "Arabic",1256,sizeof(arabic_cp
)/sizeof(arabic_cp
[0]),arabic_cp
,
457 "Courier","Arial", sidArabic
}, /* FIXME */
458 { "Baltic",1257,sizeof(baltic_cp
)/sizeof(baltic_cp
[0]),baltic_cp
,
459 "Courier","Arial" }, /* FIXME */
460 { "Chinese Simplified",936,sizeof(chinese_simplified_cp
)/sizeof(chinese_simplified_cp
[0]),chinese_simplified_cp
,
461 "Courier","Arial" }, /* FIXME */
462 { "Chinese Traditional",950,sizeof(chinese_traditional_cp
)/sizeof(chinese_traditional_cp
[0]),chinese_traditional_cp
,
463 "Courier","Arial" }, /* FIXME */
464 { "Central European",1250,sizeof(central_european_cp
)/sizeof(central_european_cp
[0]),central_european_cp
,
465 "Courier","Arial" }, /* FIXME */
466 { "Cyrillic",1251,sizeof(cyrillic_cp
)/sizeof(cyrillic_cp
[0]),cyrillic_cp
,
467 "Courier","Arial", sidCyrillic
}, /* FIXME */
468 { "Greek",1253,sizeof(greek_cp
)/sizeof(greek_cp
[0]),greek_cp
,
469 "Courier","Arial", sidGreek
}, /* FIXME */
470 { "Hebrew",1255,sizeof(hebrew_cp
)/sizeof(hebrew_cp
[0]),hebrew_cp
,
471 "Courier","Arial", sidHebrew
}, /* FIXME */
472 { "Japanese",932,sizeof(japanese_cp
)/sizeof(japanese_cp
[0]),japanese_cp
,
473 "MS Gothic","MS PGothic" },
474 { "Korean",949,sizeof(korean_cp
)/sizeof(korean_cp
[0]),korean_cp
,
475 "Courier","Arial" }, /* FIXME */
476 { "Thai",874,sizeof(thai_cp
)/sizeof(thai_cp
[0]),thai_cp
,
477 "Courier","Arial", sidThai
}, /* FIXME */
478 { "Turkish",1254,sizeof(turkish_cp
)/sizeof(turkish_cp
[0]),turkish_cp
,
479 "Courier","Arial" }, /* FIXME */
480 { "Vietnamese",1258,sizeof(vietnamese_cp
)/sizeof(vietnamese_cp
[0]),vietnamese_cp
,
481 "Courier","Arial" }, /* FIXME */
482 { "Western European",1252,sizeof(western_cp
)/sizeof(western_cp
[0]),western_cp
,
483 "Courier","Arial", sidLatin
}, /* FIXME */
484 { "Unicode",CP_UNICODE
,sizeof(unicode_cp
)/sizeof(unicode_cp
[0]),unicode_cp
,
485 "Courier","Arial" } /* FIXME */
488 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
);
490 static LONG dll_count
;
493 * Japanese Detection and Converstion Functions
496 #define HANKATA(A) ((A >= 161) && (A <= 223))
497 #define ISEUC(A) ((A >= 161) && (A <= 254))
498 #define NOTEUC(A,B) (((A >= 129) && (A <= 159)) && ((B >= 64) && (B <= 160)))
499 #define SJIS1(A) (((A >= 129) && (A <= 159)) || ((A >= 224) && (A <= 239)))
500 #define SJIS2(A) ((A >= 64) && (A <= 252))
501 #define ISMARU(A) ((A >= 202) && (A <= 206))
502 #define ISNIGORI(A) (((A >= 182) && (A <= 196)) || ((A >= 202) && (A <= 206)))
504 static UINT
DetectJapaneseCode(LPCSTR input
, DWORD count
)
510 while ((code
== 0 || code
== 51932) && i
< count
)
513 if (c1
== 0x1b /* ESC */)
525 if (c1
=='B' || c1
== '@')
539 else if (ISEUC(c1
) && ISEUC(c2
))
541 else if (((c1
== 142)) && HANKATA(c2
))
549 static inline void jis2sjis(unsigned char *p1
, unsigned char *p2
)
551 unsigned char c1
= *p1
;
552 unsigned char c2
= *p2
;
553 int row
= c1
< 95 ? 112 : 176;
554 int cell
= c1
% 2 ? 31 + (c2
> 95) : 126;
556 *p1
= ((c1
+ 1) >> 1) + row
;
560 static inline void sjis2jis(unsigned char *p1
, unsigned char *p2
)
562 unsigned char c1
= *p1
;
563 unsigned char c2
= *p2
;
564 int shift
= c2
< 159;
565 int row
= c1
< 160 ? 112 : 176;
566 int cell
= shift
? (31 + (c2
> 127)): 126;
568 *p1
= ((c1
- row
) << 1) - shift
;
572 static int han2zen(unsigned char *p1
, unsigned char *p2
)
576 static const unsigned char char1
[] = {129,129,129,129,129,131,131,131,131,
577 131,131,131,131,131,131,129,131,131,131,131,131,131,131,131,131,131,
578 131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
579 131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
581 static const unsigned char char2
[] = {66,117,118,65,69,146,64,66,68,70,
582 72,131,133,135,98,91,65,67,69,71,73,74,76,78,80,82,84,86,88,90,92,94,
583 96,99,101,103,105,106,107,108,109,110,113,116,119,122,125,126,128,
584 129,130,132,134,136,137,138,139,140,141,143,147,74,75};
586 if (( *p2
== 222) && ((ISNIGORI(*p1
) || (*p1
== 179))))
588 else if ((*p2
== 223) && (ISMARU(*p1
)))
591 if (*p1
>= 161 && *p1
<= 223)
593 unsigned char index
= *p1
- 161;
602 if (((*p2
>= 74) && (*p2
<= 103)) || ((*p2
>= 110) && (*p2
<= 122)))
604 else if ((*p1
== 131) && (*p2
== 69))
607 else if ((maru
) && ((*p2
>= 110) && (*p2
<= 122)))
617 static UINT
ConvertJIS2SJIS(LPCSTR input
, DWORD count
, LPSTR output
)
627 if (p
== 0x1b /* ESC */)
633 if (p2
== '$' || p2
=='(')
635 if (p2
== 'K' || p2
=='$')
662 static inline int exit_shift(LPSTR out
, int c
)
673 static inline int enter_shift(LPSTR out
, int c
)
685 static UINT
ConvertSJIS2JIS(LPCSTR input
, DWORD count
, LPSTR output
)
695 if (p
== 10 || p
== 13) /* NL and CR */
700 j
+= exit_shift(output
,j
);
714 p2
= input
[i
] & 0xff;
721 j
+=enter_shift(output
,j
);
739 p2
= input
[i
+1] & 0xff;
745 j
+=enter_shift(output
,j
);
760 j
+= exit_shift(output
,j
);
772 j
+= exit_shift(output
,j
);
776 static UINT
ConvertJISJapaneseToUnicode(LPCSTR input
, DWORD count
,
777 LPWSTR output
, DWORD out_count
)
781 sjis_string
= HeapAlloc(GetProcessHeap(),0,count
);
782 rc
= ConvertJIS2SJIS(input
,count
,sjis_string
);
785 TRACE("%s\n",debugstr_an(sjis_string
,rc
));
787 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,output
,out_count
);
789 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,0,0);
791 HeapFree(GetProcessHeap(),0,sjis_string
);
796 static UINT
ConvertUnknownJapaneseToUnicode(LPCSTR input
, DWORD count
,
797 LPWSTR output
, DWORD out_count
)
801 int code
= DetectJapaneseCode(input
,count
);
802 TRACE("Japanese code %i\n",code
);
807 rc
= MultiByteToWideChar(932,0,input
,count
,output
,out_count
);
809 rc
= MultiByteToWideChar(932,0,input
,count
,0,0);
811 else if (code
== 51932)
814 rc
= MultiByteToWideChar(20932,0,input
,count
,output
,out_count
);
816 rc
= MultiByteToWideChar(20932,0,input
,count
,0,0);
818 else if (code
== 50220)
820 sjis_string
= HeapAlloc(GetProcessHeap(),0,count
);
821 rc
= ConvertJIS2SJIS(input
,count
,sjis_string
);
824 TRACE("%s\n",debugstr_an(sjis_string
,rc
));
826 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,output
,out_count
);
828 rc
= MultiByteToWideChar(932,0,sjis_string
,rc
,0,0);
830 HeapFree(GetProcessHeap(),0,sjis_string
);
835 static UINT
ConvertJapaneseUnicodeToJIS(LPCWSTR input
, DWORD count
,
836 LPSTR output
, DWORD out_count
)
842 len
= WideCharToMultiByte(932,0,input
,count
,0,0,NULL
,NULL
);
843 sjis_string
= HeapAlloc(GetProcessHeap(),0,len
);
844 WideCharToMultiByte(932,0,input
,count
,sjis_string
,len
,NULL
,NULL
);
845 TRACE("%s\n",debugstr_an(sjis_string
,len
));
847 rc
= ConvertSJIS2JIS(sjis_string
, len
, NULL
);
850 ConvertSJIS2JIS(sjis_string
, len
, output
);
852 HeapFree(GetProcessHeap(),0,sjis_string
);
858 * Dll lifetime tracking declaration
860 static void LockModule(void)
862 InterlockedIncrement(&dll_count
);
865 static void UnlockModule(void)
867 InterlockedDecrement(&dll_count
);
870 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
873 case DLL_PROCESS_ATTACH
:
874 MLANG_tls_index
= TlsAlloc();
875 DisableThreadLibraryCalls(hInstDLL
);
877 case DLL_PROCESS_DETACH
:
878 TlsFree(MLANG_tls_index
);
884 HRESULT WINAPI
ConvertINetMultiByteToUnicode(
894 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
895 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
901 pcSrcSize
= &src_len
;
909 /* forwarding euc-jp to EUC-JP */
910 if (dwEncoding
== 51932)
916 if (*pcSrcSize
== -1)
917 *pcSrcSize
= lstrlenW((LPCWSTR
)pSrcStr
);
918 *pcDstSize
= min(*pcSrcSize
, *pcDstSize
);
919 *pcSrcSize
*= sizeof(WCHAR
);
921 memmove(pDstStr
, pSrcStr
, *pcDstSize
* sizeof(WCHAR
));
927 *pcDstSize
= ConvertJISJapaneseToUnicode(pSrcStr
,*pcSrcSize
,pDstStr
,*pcDstSize
);
930 *pcDstSize
= ConvertUnknownJapaneseToUnicode(pSrcStr
,*pcSrcSize
,pDstStr
,*pcDstSize
);
934 if (*pcSrcSize
== -1)
935 *pcSrcSize
= lstrlenA(pSrcStr
);
938 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, pDstStr
, *pcDstSize
);
940 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, NULL
, 0);
950 HRESULT WINAPI
ConvertINetUnicodeToMultiByte(
961 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
962 debugstr_w(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
968 pcSrcSize
= &src_len
;
970 destsz
= (pDstStr
) ? *pcDstSize
: 0;
973 if (!pSrcStr
|| !*pcSrcSize
)
976 if (*pcSrcSize
== -1)
977 *pcSrcSize
= lstrlenW(pSrcStr
);
979 /* forwarding euc-jp to EUC-JP */
980 if (dwEncoding
== 51932)
983 if (dwEncoding
== CP_UNICODE
)
985 if (*pcSrcSize
== -1)
986 *pcSrcSize
= lstrlenW(pSrcStr
);
988 size
= min(*pcSrcSize
, destsz
) * sizeof(WCHAR
);
990 memmove(pDstStr
, pSrcStr
, size
);
995 else if (dwEncoding
== 50220 || dwEncoding
== 50221 || dwEncoding
== 50222)
997 size
= ConvertJapaneseUnicodeToJIS(pSrcStr
, *pcSrcSize
, NULL
, 0);
1003 size
= ConvertJapaneseUnicodeToJIS(pSrcStr
, *pcSrcSize
, pDstStr
,
1012 size
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
,
1013 NULL
, 0, NULL
, NULL
);
1019 size
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
,
1020 pDstStr
, destsz
, NULL
, NULL
);
1035 HRESULT WINAPI
ConvertINetString(
1037 DWORD dwSrcEncoding
,
1038 DWORD dwDstEncoding
,
1045 TRACE("%p %d %d %s %p %p %p\n", pdwMode
, dwSrcEncoding
, dwDstEncoding
,
1046 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
1048 if (dwSrcEncoding
== CP_UNICODE
)
1051 if (pcSrcSize
&& *pcSrcSize
!= -1)
1053 cSrcSizeW
= *pcSrcSize
/ sizeof(WCHAR
);
1054 pcSrcSize
= &cSrcSizeW
;
1056 return ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, (LPCWSTR
)pSrcStr
, pcSrcSize
, pDstStr
, pcDstSize
);
1058 else if (dwDstEncoding
== CP_UNICODE
)
1060 HRESULT hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, (LPWSTR
)pDstStr
, pcDstSize
);
1061 *pcDstSize
*= sizeof(WCHAR
);
1070 TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr
), dwSrcEncoding
, dwDstEncoding
);
1072 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, NULL
, &cDstSizeW
);
1076 pDstStrW
= HeapAlloc(GetProcessHeap(), 0, cDstSizeW
* sizeof(WCHAR
));
1077 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, pDstStrW
, &cDstSizeW
);
1079 hr
= ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, pDstStrW
, &cDstSizeW
, pDstStr
, pcDstSize
);
1081 HeapFree(GetProcessHeap(), 0, pDstStrW
);
1086 static HRESULT
GetFamilyCodePage(
1088 UINT
* puiFamilyCodePage
)
1092 TRACE("%u %p\n", uiCodePage
, puiFamilyCodePage
);
1094 if (!puiFamilyCodePage
) return S_FALSE
;
1096 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1098 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1100 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
1102 *puiFamilyCodePage
= mlang_data
[i
].family_codepage
;
1111 HRESULT WINAPI
IsConvertINetStringAvailable(
1112 DWORD dwSrcEncoding
,
1113 DWORD dwDstEncoding
)
1115 UINT src_family
, dst_family
;
1117 TRACE("%d %d\n", dwSrcEncoding
, dwDstEncoding
);
1119 if (GetFamilyCodePage(dwSrcEncoding
, &src_family
) != S_OK
||
1120 GetFamilyCodePage(dwDstEncoding
, &dst_family
) != S_OK
)
1123 if (src_family
== dst_family
) return S_OK
;
1125 /* we can convert any codepage to/from unicode */
1126 if (src_family
== CP_UNICODE
|| dst_family
== CP_UNICODE
) return S_OK
;
1131 static inline INT
lcid_to_rfc1766A( LCID lcid
, LPSTR rfc1766
, INT len
)
1133 INT n
= GetLocaleInfoA( lcid
, LOCALE_SISO639LANGNAME
, rfc1766
, len
);
1136 rfc1766
[n
- 1] = '-';
1137 n
+= GetLocaleInfoA( lcid
, LOCALE_SISO3166CTRYNAME
, rfc1766
+ n
, len
- n
);
1138 LCMapStringA( LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, rfc1766
, n
, rfc1766
, len
);
1144 static inline INT
lcid_to_rfc1766W( LCID lcid
, LPWSTR rfc1766
, INT len
)
1146 INT n
= GetLocaleInfoW( lcid
, LOCALE_SISO639LANGNAME
, rfc1766
, len
);
1150 rfc1766
[n
- 1] = '-';
1151 n
+= GetLocaleInfoW( lcid
, LOCALE_SISO3166CTRYNAME
, rfc1766
+ n
, len
- n
);
1153 rfc1766
[n
- 1] = '\0';
1154 LCMapStringW( LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, rfc1766
, n
, rfc1766
, len
);
1160 HRESULT WINAPI
LcidToRfc1766A(
1165 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
1167 if (lcid_to_rfc1766A( lcid
, pszRfc1766
, nChar
))
1173 HRESULT WINAPI
LcidToRfc1766W(
1178 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
1180 if (lcid_to_rfc1766W( lcid
, pszRfc1766
, nChar
))
1186 static HRESULT
lcid_from_rfc1766(IEnumRfc1766
*iface
, LCID
*lcid
, LPCWSTR rfc1766
)
1191 while (IEnumRfc1766_Next(iface
, 1, &info
, &num
) == S_OK
)
1193 if (!strcmpW(info
.wszRfc1766
, rfc1766
))
1198 if (strlenW(rfc1766
) == 2 && !memcmp(info
.wszRfc1766
, rfc1766
, 2 * sizeof(WCHAR
)))
1200 *lcid
= PRIMARYLANGID(info
.lcid
);
1208 HRESULT WINAPI
Rfc1766ToLcidW(LCID
*pLocale
, LPCWSTR pszRfc1766
)
1210 IEnumRfc1766
*enumrfc1766
;
1213 TRACE("(%p, %s)\n", pLocale
, debugstr_w(pszRfc1766
));
1215 if (!pLocale
|| !pszRfc1766
)
1216 return E_INVALIDARG
;
1220 hr
= EnumRfc1766_create(0, &enumrfc1766
);
1224 hr
= lcid_from_rfc1766(enumrfc1766
, pLocale
, pszRfc1766
);
1225 IEnumRfc1766_Release(enumrfc1766
);
1230 HRESULT WINAPI
Rfc1766ToLcidA(LCID
*lcid
, LPCSTR rfc1766A
)
1232 WCHAR rfc1766W
[MAX_RFC1766_NAME
+ 1];
1234 MultiByteToWideChar(CP_ACP
, 0, rfc1766A
, -1, rfc1766W
, MAX_RFC1766_NAME
);
1235 rfc1766W
[MAX_RFC1766_NAME
] = 0;
1237 return Rfc1766ToLcidW(lcid
, rfc1766W
);
1240 /******************************************************************************
1241 * MLANG ClassFactory
1244 IClassFactory ITF_IClassFactory
;
1247 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
1248 } IClassFactoryImpl
;
1250 struct object_creation_info
1254 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
1257 static const struct object_creation_info object_creation
[] =
1259 { &CLSID_CMultiLanguage
, "CLSID_CMultiLanguage", MultiLanguage_create
},
1262 static HRESULT WINAPI
1263 MLANGCF_QueryInterface(LPCLASSFACTORY iface
,REFIID riid
,LPVOID
*ppobj
)
1265 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
1267 TRACE("%s\n", debugstr_guid(riid
) );
1269 if (IsEqualGUID(riid
, &IID_IUnknown
)
1270 || IsEqualGUID(riid
, &IID_IClassFactory
))
1272 IClassFactory_AddRef(iface
);
1277 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppobj
);
1278 return E_NOINTERFACE
;
1281 static ULONG WINAPI
MLANGCF_AddRef(LPCLASSFACTORY iface
)
1283 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
1284 return InterlockedIncrement(&This
->ref
);
1287 static ULONG WINAPI
MLANGCF_Release(LPCLASSFACTORY iface
)
1289 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
1291 ULONG ref
= InterlockedDecrement(&This
->ref
);
1295 TRACE("Destroying %p\n", This
);
1296 HeapFree(GetProcessHeap(), 0, This
);
1302 static HRESULT WINAPI
MLANGCF_CreateInstance(LPCLASSFACTORY iface
, LPUNKNOWN pOuter
,
1303 REFIID riid
, LPVOID
*ppobj
)
1305 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
1309 TRACE("(%p)->(%p,%s,%p)\n",This
,pOuter
,debugstr_guid(riid
),ppobj
);
1312 hres
= This
->pfnCreateInstance(pOuter
, (LPVOID
*) &punk
);
1313 if (SUCCEEDED(hres
)) {
1314 hres
= IUnknown_QueryInterface(punk
, riid
, ppobj
);
1315 IUnknown_Release(punk
);
1317 TRACE("returning (%p) -> %x\n", *ppobj
, hres
);
1321 static HRESULT WINAPI
MLANGCF_LockServer(LPCLASSFACTORY iface
,BOOL dolock
)
1331 static const IClassFactoryVtbl MLANGCF_Vtbl
=
1333 MLANGCF_QueryInterface
,
1336 MLANGCF_CreateInstance
,
1340 /******************************************************************
1341 * DllGetClassObject (MLANG.@)
1343 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID iid
, LPVOID
*ppv
)
1346 IClassFactoryImpl
*factory
;
1348 TRACE("%s %s %p\n",debugstr_guid(rclsid
), debugstr_guid(iid
), ppv
);
1350 if ( !IsEqualGUID( &IID_IClassFactory
, iid
)
1351 && ! IsEqualGUID( &IID_IUnknown
, iid
) )
1352 return E_NOINTERFACE
;
1354 for (i
=0; i
< sizeof(object_creation
)/sizeof(object_creation
[0]); i
++)
1356 if (IsEqualGUID(object_creation
[i
].clsid
, rclsid
))
1360 if (i
== sizeof(object_creation
)/sizeof(object_creation
[0]))
1362 FIXME("%s: no class found.\n", debugstr_guid(rclsid
));
1363 return CLASS_E_CLASSNOTAVAILABLE
;
1366 TRACE("Creating a class factory for %s\n",object_creation
[i
].szClassName
);
1368 factory
= HeapAlloc(GetProcessHeap(), 0, sizeof(*factory
));
1369 if (factory
== NULL
) return E_OUTOFMEMORY
;
1371 factory
->ITF_IClassFactory
.lpVtbl
= &MLANGCF_Vtbl
;
1374 factory
->pfnCreateInstance
= object_creation
[i
].pfnCreateInstance
;
1376 *ppv
= &(factory
->ITF_IClassFactory
);
1378 TRACE("(%p) <- %p\n", ppv
, &(factory
->ITF_IClassFactory
) );
1384 /******************************************************************************/
1386 typedef struct tagMLang_impl
1388 const IMLangFontLinkVtbl
*vtbl_IMLangFontLink
;
1389 const IMultiLanguageVtbl
*vtbl_IMultiLanguage
;
1390 const IMultiLanguage3Vtbl
*vtbl_IMultiLanguage3
;
1391 const IMLangFontLink2Vtbl
*vtbl_IMLangFontLink2
;
1392 const IMLangLineBreakConsoleVtbl
*vtbl_IMLangLineBreakConsole
;
1394 DWORD total_cp
, total_scripts
;
1397 static ULONG
MLang_AddRef( MLang_impl
* This
)
1399 return InterlockedIncrement(&This
->ref
);
1402 static ULONG
MLang_Release( MLang_impl
* This
)
1404 ULONG ref
= InterlockedDecrement(&This
->ref
);
1406 TRACE("%p ref = %d\n", This
, ref
);
1409 TRACE("Destroying %p\n", This
);
1410 HeapFree(GetProcessHeap(), 0, This
);
1417 static HRESULT
MLang_QueryInterface(
1422 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1424 if (IsEqualGUID(riid
, &IID_IUnknown
)
1425 || IsEqualGUID(riid
, &IID_IMLangCodePages
)
1426 || IsEqualGUID(riid
, &IID_IMLangFontLink
))
1429 TRACE("Returning IID_IMLangFontLink %p ref = %d\n", This
, This
->ref
);
1430 *ppvObject
= &(This
->vtbl_IMLangFontLink
);
1434 if (IsEqualGUID(riid
, &IID_IMLangFontLink2
))
1437 TRACE("Returning IID_IMLangFontLink2 %p ref = %d\n", This
, This
->ref
);
1438 *ppvObject
= &(This
->vtbl_IMLangFontLink2
);
1442 if (IsEqualGUID(riid
, &IID_IMultiLanguage
) )
1445 TRACE("Returning IID_IMultiLanguage %p ref = %d\n", This
, This
->ref
);
1446 *ppvObject
= &(This
->vtbl_IMultiLanguage
);
1450 if (IsEqualGUID(riid
, &IID_IMultiLanguage2
) )
1453 *ppvObject
= &(This
->vtbl_IMultiLanguage3
);
1454 TRACE("Returning IID_IMultiLanguage2 %p ref = %d\n", This
, This
->ref
);
1458 if (IsEqualGUID(riid
, &IID_IMultiLanguage3
) )
1461 *ppvObject
= &(This
->vtbl_IMultiLanguage3
);
1462 TRACE("Returning IID_IMultiLanguage3 %p ref = %d\n", This
, This
->ref
);
1466 if (IsEqualGUID(riid
, &IID_IMLangLineBreakConsole
))
1469 TRACE("Returning IID_IMLangLineBreakConsole %p ref = %d\n", This
, This
->ref
);
1470 *ppvObject
= &(This
->vtbl_IMLangLineBreakConsole
);
1475 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1476 return E_NOINTERFACE
;
1479 /******************************************************************************/
1481 typedef struct tagEnumCodePage_impl
1483 const IEnumCodePageVtbl
*vtbl_IEnumCodePage
;
1487 } EnumCodePage_impl
;
1489 static HRESULT WINAPI
fnIEnumCodePage_QueryInterface(
1490 IEnumCodePage
* iface
,
1494 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1496 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1498 if (IsEqualGUID(riid
, &IID_IUnknown
)
1499 || IsEqualGUID(riid
, &IID_IEnumCodePage
))
1501 IEnumCodePage_AddRef(iface
);
1502 TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This
, This
->ref
);
1503 *ppvObject
= &(This
->vtbl_IEnumCodePage
);
1507 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1508 return E_NOINTERFACE
;
1511 static ULONG WINAPI
fnIEnumCodePage_AddRef(
1512 IEnumCodePage
* iface
)
1514 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1515 return InterlockedIncrement(&This
->ref
);
1518 static ULONG WINAPI
fnIEnumCodePage_Release(
1519 IEnumCodePage
* iface
)
1521 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1522 ULONG ref
= InterlockedDecrement(&This
->ref
);
1524 TRACE("%p ref = %d\n", This
, ref
);
1527 TRACE("Destroying %p\n", This
);
1528 HeapFree(GetProcessHeap(), 0, This
->cpinfo
);
1529 HeapFree(GetProcessHeap(), 0, This
);
1535 static HRESULT WINAPI
fnIEnumCodePage_Clone(
1536 IEnumCodePage
* iface
,
1537 IEnumCodePage
** ppEnum
)
1539 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1540 FIXME("%p %p\n", This
, ppEnum
);
1544 static HRESULT WINAPI
fnIEnumCodePage_Next(
1545 IEnumCodePage
* iface
,
1548 ULONG
* pceltFetched
)
1552 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1553 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1555 if (!pceltFetched
) return S_FALSE
;
1558 if (!rgelt
) return S_FALSE
;
1560 if (This
->pos
+ celt
> This
->total
)
1561 celt
= This
->total
- This
->pos
;
1563 if (!celt
) return S_FALSE
;
1565 memcpy(rgelt
, This
->cpinfo
+ This
->pos
, celt
* sizeof(MIMECPINFO
));
1566 *pceltFetched
= celt
;
1569 for (i
= 0; i
< celt
; i
++)
1571 TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
1572 i
, rgelt
[i
].dwFlags
, rgelt
[i
].uiCodePage
,
1573 rgelt
[i
].uiFamilyCodePage
,
1574 wine_dbgstr_w(rgelt
[i
].wszDescription
),
1575 wine_dbgstr_w(rgelt
[i
].wszWebCharset
),
1576 wine_dbgstr_w(rgelt
[i
].wszHeaderCharset
),
1577 wine_dbgstr_w(rgelt
[i
].wszBodyCharset
),
1578 wine_dbgstr_w(rgelt
[i
].wszFixedWidthFont
),
1579 wine_dbgstr_w(rgelt
[i
].wszProportionalFont
),
1580 rgelt
[i
].bGDICharset
);
1585 static HRESULT WINAPI
fnIEnumCodePage_Reset(
1586 IEnumCodePage
* iface
)
1588 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1589 TRACE("%p\n", This
);
1595 static HRESULT WINAPI
fnIEnumCodePage_Skip(
1596 IEnumCodePage
* iface
,
1599 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1600 TRACE("%p %u\n", This
, celt
);
1602 if (celt
>= This
->total
) return S_FALSE
;
1608 static const IEnumCodePageVtbl IEnumCodePage_vtbl
=
1610 fnIEnumCodePage_QueryInterface
,
1611 fnIEnumCodePage_AddRef
,
1612 fnIEnumCodePage_Release
,
1613 fnIEnumCodePage_Clone
,
1614 fnIEnumCodePage_Next
,
1615 fnIEnumCodePage_Reset
,
1616 fnIEnumCodePage_Skip
1619 static HRESULT
EnumCodePage_create( MLang_impl
* mlang
, DWORD grfFlags
,
1620 LANGID LangId
, IEnumCodePage
** ppEnumCodePage
)
1622 EnumCodePage_impl
*ecp
;
1626 TRACE("%p, %08x, %04x, %p\n", mlang
, grfFlags
, LangId
, ppEnumCodePage
);
1628 if (!grfFlags
) /* enumerate internal data base of encodings */
1629 grfFlags
= MIMECONTF_MIME_LATEST
;
1631 ecp
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl
) );
1632 ecp
->vtbl_IEnumCodePage
= &IEnumCodePage_vtbl
;
1636 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1638 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1640 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1645 ecp
->cpinfo
= HeapAlloc(GetProcessHeap(), 0,
1646 sizeof(MIMECPINFO
) * ecp
->total
);
1647 cpinfo
= ecp
->cpinfo
;
1649 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1651 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1653 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1654 fill_cp_info(&mlang_data
[i
], n
, cpinfo
++);
1658 TRACE("enumerated %d codepages with flags %08x\n", ecp
->total
, grfFlags
);
1660 *ppEnumCodePage
= (IEnumCodePage
*) ecp
;
1665 /******************************************************************************/
1667 typedef struct tagEnumScript_impl
1669 const IEnumScriptVtbl
*vtbl_IEnumScript
;
1671 SCRIPTINFO
*script_info
;
1675 static HRESULT WINAPI
fnIEnumScript_QueryInterface(
1680 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1682 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1684 if (IsEqualGUID(riid
, &IID_IUnknown
)
1685 || IsEqualGUID(riid
, &IID_IEnumScript
))
1687 IEnumScript_AddRef(iface
);
1688 TRACE("Returning IID_IEnumScript %p ref = %d\n", This
, This
->ref
);
1689 *ppvObject
= &(This
->vtbl_IEnumScript
);
1693 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1694 return E_NOINTERFACE
;
1697 static ULONG WINAPI
fnIEnumScript_AddRef(
1700 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1701 return InterlockedIncrement(&This
->ref
);
1704 static ULONG WINAPI
fnIEnumScript_Release(
1707 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1708 ULONG ref
= InterlockedDecrement(&This
->ref
);
1710 TRACE("%p ref = %d\n", This
, ref
);
1713 TRACE("Destroying %p\n", This
);
1714 HeapFree(GetProcessHeap(), 0, This
->script_info
);
1715 HeapFree(GetProcessHeap(), 0, This
);
1721 static HRESULT WINAPI
fnIEnumScript_Clone(
1723 IEnumScript
** ppEnum
)
1725 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1726 FIXME("%p %p: stub!\n", This
, ppEnum
);
1730 static HRESULT WINAPI
fnIEnumScript_Next(
1734 ULONG
* pceltFetched
)
1736 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1737 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1739 if (!pceltFetched
|| !rgelt
) return E_FAIL
;
1743 if (This
->pos
+ celt
> This
->total
)
1744 celt
= This
->total
- This
->pos
;
1746 if (!celt
) return S_FALSE
;
1748 memcpy(rgelt
, This
->script_info
+ This
->pos
, celt
* sizeof(SCRIPTINFO
));
1749 *pceltFetched
= celt
;
1755 static HRESULT WINAPI
fnIEnumScript_Reset(
1758 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1759 TRACE("%p\n", This
);
1765 static HRESULT WINAPI
fnIEnumScript_Skip(
1769 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1770 TRACE("%p %u\n", This
, celt
);
1772 if (celt
>= This
->total
) return S_FALSE
;
1778 static const IEnumScriptVtbl IEnumScript_vtbl
=
1780 fnIEnumScript_QueryInterface
,
1781 fnIEnumScript_AddRef
,
1782 fnIEnumScript_Release
,
1783 fnIEnumScript_Clone
,
1785 fnIEnumScript_Reset
,
1789 static HRESULT
EnumScript_create( MLang_impl
* mlang
, DWORD dwFlags
,
1790 LANGID LangId
, IEnumScript
** ppEnumScript
)
1792 EnumScript_impl
*es
;
1795 TRACE("%p, %08x, %04x, %p: stub!\n", mlang
, dwFlags
, LangId
, ppEnumScript
);
1797 if (!dwFlags
) /* enumerate all available scripts */
1798 dwFlags
= SCRIPTCONTF_SCRIPT_USER
| SCRIPTCONTF_SCRIPT_HIDE
| SCRIPTCONTF_SCRIPT_SYSTEM
;
1800 es
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl
) );
1801 es
->vtbl_IEnumScript
= &IEnumScript_vtbl
;
1804 /* do not enumerate unicode flavours */
1805 es
->total
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
1806 es
->script_info
= HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO
) * es
->total
);
1808 for (i
= 0; i
< es
->total
; i
++)
1810 es
->script_info
[i
].ScriptId
= i
;
1811 es
->script_info
[i
].uiCodePage
= mlang_data
[i
].family_codepage
;
1812 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].description
, -1,
1813 es
->script_info
[i
].wszDescription
, MAX_SCRIPT_NAME
);
1814 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].fixed_font
, -1,
1815 es
->script_info
[i
].wszFixedWidthFont
, MAX_MIMEFACE_NAME
);
1816 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].proportional_font
, -1,
1817 es
->script_info
[i
].wszProportionalFont
, MAX_MIMEFACE_NAME
);
1820 TRACE("enumerated %d scripts with flags %08x\n", es
->total
, dwFlags
);
1822 *ppEnumScript
= (IEnumScript
*)es
;
1827 /******************************************************************************/
1829 static HRESULT WINAPI
fnIMLangFontLink_QueryInterface(
1830 IMLangFontLink
* iface
,
1834 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1835 return MLang_QueryInterface( This
, riid
, ppvObject
);
1838 static ULONG WINAPI
fnIMLangFontLink_AddRef(
1839 IMLangFontLink
* iface
)
1841 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1842 return MLang_AddRef( This
);
1845 static ULONG WINAPI
fnIMLangFontLink_Release(
1846 IMLangFontLink
* iface
)
1848 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1849 return MLang_Release( This
);
1852 static HRESULT WINAPI
fnIMLangFontLink_GetCharCodePages(
1853 IMLangFontLink
* iface
,
1855 DWORD
* pdwCodePages
)
1864 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1866 WideCharToMultiByte(mlang_data
[i
].family_codepage
, WC_NO_BEST_FIT_CHARS
,
1867 &chSrc
, 1, &buf
, 1, NULL
, &used_dc
);
1869 /* If default char is not used, current codepage include the given symbol */
1872 IMLangFontLink_CodePageToCodePages(iface
,
1873 mlang_data
[i
].family_codepage
, &codePages
);
1874 *pdwCodePages
|= codePages
;
1880 static HRESULT WINAPI
fnIMLangFontLink_GetStrCodePages(
1881 IMLangFontLink
* iface
,
1882 const WCHAR
* pszSrc
,
1884 DWORD dwPriorityCodePages
,
1885 DWORD
* pdwCodePages
,
1886 long* pcchCodePages
)
1888 FIXME("(pszSrc=%s, cchSrc=%ld, dwPriorityCodePages=%d) stub\n", debugstr_w(pszSrc
), cchSrc
, dwPriorityCodePages
);
1894 static HRESULT WINAPI
fnIMLangFontLink_CodePageToCodePages(
1895 IMLangFontLink
* iface
,
1897 DWORD
* pdwCodePages
)
1899 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1903 TRACE("(%p) Seeking %u\n",This
, uCodePage
);
1905 rc
= TranslateCharsetInfo((DWORD
*)uCodePage
, &cs
, TCI_SRCCODEPAGE
);
1909 *pdwCodePages
= cs
.fs
.fsCsb
[0];
1910 TRACE("resulting CodePages 0x%x\n",*pdwCodePages
);
1914 TRACE("CodePage Not Found\n");
1919 static HRESULT WINAPI
fnIMLangFontLink_CodePagesToCodePage(
1920 IMLangFontLink
* iface
,
1922 UINT uDefaultCodePage
,
1925 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1926 DWORD mask
= 0x00000000;
1931 TRACE("(%p) scanning 0x%x default page %u\n",This
, dwCodePages
,
1934 *puCodePage
= 0x00000000;
1936 rc
= TranslateCharsetInfo((DWORD
*)uDefaultCodePage
, &cs
, TCI_SRCCODEPAGE
);
1938 if (rc
&& (dwCodePages
& cs
.fs
.fsCsb
[0]))
1940 TRACE("Found Default Codepage\n");
1941 *puCodePage
= uDefaultCodePage
;
1946 for (i
= 0; i
< 32; i
++)
1950 if (dwCodePages
& mask
)
1955 rc
= TranslateCharsetInfo(Csb
, &cs
, TCI_SRCFONTSIG
);
1959 TRACE("Falling back to least significant found CodePage %u\n",
1961 *puCodePage
= cs
.ciACP
;
1966 TRACE("no codepage found\n");
1970 static HRESULT WINAPI
fnIMLangFontLink_GetFontCodePages(
1971 IMLangFontLink
* iface
,
1974 DWORD
* pdwCodePages
)
1977 FONTSIGNATURE fontsig
;
1978 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1980 TRACE("(%p)\n",This
);
1982 old_font
= SelectObject(hDC
,hFont
);
1983 GetTextCharsetInfo(hDC
,&fontsig
, 0);
1984 SelectObject(hDC
,old_font
);
1986 *pdwCodePages
= fontsig
.fsCsb
[0];
1987 TRACE("CodePages is 0x%x\n",fontsig
.fsCsb
[0]);
1992 static HRESULT WINAPI
fnIMLangFontLink_MapFont(
1993 IMLangFontLink
* iface
,
2003 static HRESULT WINAPI
fnIMLangFontLink_ReleaseFont(
2004 IMLangFontLink
* iface
,
2011 static HRESULT WINAPI
fnIMLangFontLink_ResetFontMapping(
2012 IMLangFontLink
* iface
)
2019 static const IMLangFontLinkVtbl IMLangFontLink_vtbl
=
2021 fnIMLangFontLink_QueryInterface
,
2022 fnIMLangFontLink_AddRef
,
2023 fnIMLangFontLink_Release
,
2024 fnIMLangFontLink_GetCharCodePages
,
2025 fnIMLangFontLink_GetStrCodePages
,
2026 fnIMLangFontLink_CodePageToCodePages
,
2027 fnIMLangFontLink_CodePagesToCodePage
,
2028 fnIMLangFontLink_GetFontCodePages
,
2029 fnIMLangFontLink_MapFont
,
2030 fnIMLangFontLink_ReleaseFont
,
2031 fnIMLangFontLink_ResetFontMapping
,
2034 /******************************************************************************/
2036 static HRESULT WINAPI
fnIMultiLanguage_QueryInterface(
2037 IMultiLanguage
* iface
,
2041 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2042 return MLang_QueryInterface( This
, riid
, ppvObject
);
2045 static ULONG WINAPI
fnIMultiLanguage_AddRef( IMultiLanguage
* iface
)
2047 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2048 return IMLangFontLink_AddRef( ((IMLangFontLink
*)This
) );
2051 static ULONG WINAPI
fnIMultiLanguage_Release( IMultiLanguage
* iface
)
2053 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2054 return IMLangFontLink_Release( ((IMLangFontLink
*)This
) );
2057 static HRESULT WINAPI
fnIMultiLanguage_GetNumberOfCodePageInfo(
2058 IMultiLanguage
* iface
,
2065 static HRESULT WINAPI
fnIMultiLanguage_GetCodePageInfo(
2066 IMultiLanguage
* iface
,
2068 PMIMECPINFO pCodePageInfo
)
2072 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2073 TRACE("%p, %u, %p\n", This
, uiCodePage
, pCodePageInfo
);
2075 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2077 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2079 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2081 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
2090 static HRESULT WINAPI
fnIMultiLanguage_GetFamilyCodePage(
2091 IMultiLanguage
* iface
,
2093 UINT
* puiFamilyCodePage
)
2095 return GetFamilyCodePage(uiCodePage
, puiFamilyCodePage
);
2098 static HRESULT WINAPI
fnIMultiLanguage_EnumCodePages(
2099 IMultiLanguage
* iface
,
2101 IEnumCodePage
** ppEnumCodePage
)
2103 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2104 TRACE("%p %08x %p\n", This
, grfFlags
, ppEnumCodePage
);
2106 return EnumCodePage_create( This
, grfFlags
, 0, ppEnumCodePage
);
2109 static HRESULT WINAPI
fnIMultiLanguage_GetCharsetInfo(
2110 IMultiLanguage
* iface
,
2112 PMIMECSETINFO pCharsetInfo
)
2114 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2115 return IMultiLanguage3_GetCharsetInfo((IMultiLanguage3
*)&This
->vtbl_IMultiLanguage3
, Charset
, pCharsetInfo
);
2118 static HRESULT WINAPI
fnIMultiLanguage_IsConvertible(
2119 IMultiLanguage
* iface
,
2120 DWORD dwSrcEncoding
,
2121 DWORD dwDstEncoding
)
2123 return IsConvertINetStringAvailable(dwSrcEncoding
, dwDstEncoding
);
2126 static HRESULT WINAPI
fnIMultiLanguage_ConvertString(
2127 IMultiLanguage
* iface
,
2129 DWORD dwSrcEncoding
,
2130 DWORD dwDstEncoding
,
2136 return ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
,
2137 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, (LPSTR
)pDstStr
, (LPINT
)pcDstSize
);
2140 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringToUnicode(
2141 IMultiLanguage
* iface
,
2149 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2150 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2153 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringFromUnicode(
2154 IMultiLanguage
* iface
,
2162 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2163 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2166 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringReset(
2167 IMultiLanguage
* iface
)
2173 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766FromLcid(
2174 IMultiLanguage
* iface
,
2178 WCHAR buf
[MAX_RFC1766_NAME
];
2180 TRACE("%p %04x %p\n", iface
, lcid
, pbstrRfc1766
);
2182 if (lcid_to_rfc1766W( lcid
, buf
, MAX_RFC1766_NAME
))
2184 *pbstrRfc1766
= SysAllocString( buf
);
2190 static HRESULT WINAPI
fnIMultiLanguage_GetLcidFromRfc1766(
2191 IMultiLanguage
* iface
,
2196 IEnumRfc1766
*rfc1766
;
2198 TRACE("%p %p %s\n", iface
, pLocale
, debugstr_w(bstrRfc1766
));
2200 if (!pLocale
|| !bstrRfc1766
)
2201 return E_INVALIDARG
;
2203 hr
= IMultiLanguage_EnumRfc1766(iface
, &rfc1766
);
2207 hr
= lcid_from_rfc1766(rfc1766
, pLocale
, bstrRfc1766
);
2209 IEnumRfc1766_Release(rfc1766
);
2213 /******************************************************************************/
2215 typedef struct tagEnumRfc1766_impl
2217 const IEnumRfc1766Vtbl
*vtbl_IEnumRfc1766
;
2223 static HRESULT WINAPI
fnIEnumRfc1766_QueryInterface(
2224 IEnumRfc1766
*iface
,
2228 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2230 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
2232 if (IsEqualGUID(riid
, &IID_IUnknown
)
2233 || IsEqualGUID(riid
, &IID_IEnumRfc1766
))
2235 IEnumRfc1766_AddRef(iface
);
2236 TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This
, This
->ref
);
2237 *ppvObject
= &(This
->vtbl_IEnumRfc1766
);
2241 WARN("(%p) -> (%s,%p), not found\n",This
,debugstr_guid(riid
),ppvObject
);
2242 return E_NOINTERFACE
;
2245 static ULONG WINAPI
fnIEnumRfc1766_AddRef(
2246 IEnumRfc1766
*iface
)
2248 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2249 return InterlockedIncrement(&This
->ref
);
2252 static ULONG WINAPI
fnIEnumRfc1766_Release(
2253 IEnumRfc1766
*iface
)
2255 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2256 ULONG ref
= InterlockedDecrement(&This
->ref
);
2258 TRACE("%p ref = %d\n", This
, ref
);
2261 TRACE("Destroying %p\n", This
);
2262 HeapFree(GetProcessHeap(), 0, This
->info
);
2263 HeapFree(GetProcessHeap(), 0, This
);
2268 static HRESULT WINAPI
fnIEnumRfc1766_Clone(
2269 IEnumRfc1766
*iface
,
2270 IEnumRfc1766
**ppEnum
)
2272 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2273 FIXME("%p %p\n", This
, ppEnum
);
2277 static HRESULT WINAPI
fnIEnumRfc1766_Next(
2278 IEnumRfc1766
*iface
,
2281 ULONG
*pceltFetched
)
2285 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2286 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
2288 if (!pceltFetched
) return S_FALSE
;
2291 if (!rgelt
) return S_FALSE
;
2293 if (This
->pos
+ celt
> This
->total
)
2294 celt
= This
->total
- This
->pos
;
2296 if (!celt
) return S_FALSE
;
2298 memcpy(rgelt
, This
->info
+ This
->pos
, celt
* sizeof(RFC1766INFO
));
2299 *pceltFetched
= celt
;
2302 for (i
= 0; i
< celt
; i
++)
2304 TRACE("#%u: %08x %s %s\n",
2306 wine_dbgstr_w(rgelt
[i
].wszRfc1766
),
2307 wine_dbgstr_w(rgelt
[i
].wszLocaleName
));
2312 static HRESULT WINAPI
fnIEnumRfc1766_Reset(
2313 IEnumRfc1766
*iface
)
2315 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2316 TRACE("%p\n", This
);
2322 static HRESULT WINAPI
fnIEnumRfc1766_Skip(
2323 IEnumRfc1766
*iface
,
2326 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
2327 TRACE("%p %u\n", This
, celt
);
2329 if (celt
>= This
->total
) return S_FALSE
;
2335 static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl
=
2337 fnIEnumRfc1766_QueryInterface
,
2338 fnIEnumRfc1766_AddRef
,
2339 fnIEnumRfc1766_Release
,
2340 fnIEnumRfc1766_Clone
,
2341 fnIEnumRfc1766_Next
,
2342 fnIEnumRfc1766_Reset
,
2346 struct enum_locales_data
2349 DWORD total
, allocated
;
2352 static BOOL CALLBACK
enum_locales_proc(LPWSTR locale
)
2355 struct enum_locales_data
*data
= TlsGetValue(MLANG_tls_index
);
2358 TRACE("%s\n", debugstr_w(locale
));
2360 if (data
->total
>= data
->allocated
)
2362 data
->allocated
+= 32;
2363 data
->info
= HeapReAlloc(GetProcessHeap(), 0, data
->info
, data
->allocated
* sizeof(RFC1766INFO
));
2364 if (!data
->info
) return FALSE
;
2367 info
= &data
->info
[data
->total
];
2369 info
->lcid
= strtolW(locale
, &end
, 16);
2370 if (*end
) /* invalid number */
2373 info
->wszRfc1766
[0] = 0;
2374 lcid_to_rfc1766W( info
->lcid
, info
->wszRfc1766
, MAX_RFC1766_NAME
);
2376 info
->wszLocaleName
[0] = 0;
2377 GetLocaleInfoW(info
->lcid
, LOCALE_SLANGUAGE
, info
->wszLocaleName
, MAX_LOCALE_NAME
);
2378 TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info
->wszRfc1766
), wine_dbgstr_w(info
->wszLocaleName
));
2385 static HRESULT
EnumRfc1766_create(LANGID LangId
, IEnumRfc1766
**ppEnum
)
2387 EnumRfc1766_impl
*rfc
;
2388 struct enum_locales_data data
;
2390 TRACE("%04x, %p\n", LangId
, ppEnum
);
2392 rfc
= HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl
) );
2393 rfc
->vtbl_IEnumRfc1766
= &IEnumRfc1766_vtbl
;
2399 data
.allocated
= 32;
2400 data
.info
= HeapAlloc(GetProcessHeap(), 0, data
.allocated
* sizeof(RFC1766INFO
));
2403 HeapFree(GetProcessHeap(), 0, rfc
);
2407 TlsSetValue(MLANG_tls_index
, &data
);
2408 EnumSystemLocalesW(enum_locales_proc
, 0/*LOCALE_SUPPORTED*/);
2409 TlsSetValue(MLANG_tls_index
, NULL
);
2411 TRACE("enumerated %d rfc1766 structures\n", data
.total
);
2415 HeapFree(GetProcessHeap(), 0, data
.info
);
2416 HeapFree(GetProcessHeap(), 0, rfc
);
2420 rfc
->info
= data
.info
;
2421 rfc
->total
= data
.total
;
2423 *ppEnum
= (IEnumRfc1766
*)rfc
;
2427 static HRESULT WINAPI
fnIMultiLanguage_EnumRfc1766(
2428 IMultiLanguage
*iface
,
2429 IEnumRfc1766
**ppEnumRfc1766
)
2431 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2432 TRACE("%p %p\n", This
, ppEnumRfc1766
);
2434 return EnumRfc1766_create(0, ppEnumRfc1766
);
2437 /******************************************************************************/
2439 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766Info(
2440 IMultiLanguage
* iface
,
2442 PRFC1766INFO pRfc1766Info
)
2448 static HRESULT WINAPI
fnIMultiLanguage_CreateConvertCharset(
2449 IMultiLanguage
* iface
,
2453 IMLangConvertCharset
** ppMLangConvertCharset
)
2459 static const IMultiLanguageVtbl IMultiLanguage_vtbl
=
2461 fnIMultiLanguage_QueryInterface
,
2462 fnIMultiLanguage_AddRef
,
2463 fnIMultiLanguage_Release
,
2464 fnIMultiLanguage_GetNumberOfCodePageInfo
,
2465 fnIMultiLanguage_GetCodePageInfo
,
2466 fnIMultiLanguage_GetFamilyCodePage
,
2467 fnIMultiLanguage_EnumCodePages
,
2468 fnIMultiLanguage_GetCharsetInfo
,
2469 fnIMultiLanguage_IsConvertible
,
2470 fnIMultiLanguage_ConvertString
,
2471 fnIMultiLanguage_ConvertStringToUnicode
,
2472 fnIMultiLanguage_ConvertStringFromUnicode
,
2473 fnIMultiLanguage_ConvertStringReset
,
2474 fnIMultiLanguage_GetRfc1766FromLcid
,
2475 fnIMultiLanguage_GetLcidFromRfc1766
,
2476 fnIMultiLanguage_EnumRfc1766
,
2477 fnIMultiLanguage_GetRfc1766Info
,
2478 fnIMultiLanguage_CreateConvertCharset
,
2482 /******************************************************************************/
2484 static HRESULT WINAPI
fnIMultiLanguage2_QueryInterface(
2485 IMultiLanguage3
* iface
,
2489 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2490 return MLang_QueryInterface( This
, riid
, ppvObject
);
2493 static ULONG WINAPI
fnIMultiLanguage2_AddRef( IMultiLanguage3
* iface
)
2495 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2496 return MLang_AddRef( This
);
2499 static ULONG WINAPI
fnIMultiLanguage2_Release( IMultiLanguage3
* iface
)
2501 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2502 return MLang_Release( This
);
2505 static HRESULT WINAPI
fnIMultiLanguage2_GetNumberOfCodePageInfo(
2506 IMultiLanguage3
* iface
,
2509 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2510 TRACE("%p, %p\n", This
, pcCodePage
);
2512 if (!pcCodePage
) return S_FALSE
;
2514 *pcCodePage
= This
->total_cp
;
2518 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
)
2522 if (TranslateCharsetInfo((DWORD
*)ml_data
->family_codepage
, &csi
, TCI_SRCCODEPAGE
))
2523 mime_cp_info
->bGDICharset
= csi
.ciCharset
;
2525 mime_cp_info
->bGDICharset
= DEFAULT_CHARSET
;
2527 mime_cp_info
->dwFlags
= ml_data
->mime_cp_info
[index
].flags
;
2528 mime_cp_info
->uiCodePage
= ml_data
->mime_cp_info
[index
].cp
;
2529 mime_cp_info
->uiFamilyCodePage
= ml_data
->family_codepage
;
2530 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].description
, -1,
2531 mime_cp_info
->wszDescription
, sizeof(mime_cp_info
->wszDescription
)/sizeof(WCHAR
));
2532 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].web_charset
, -1,
2533 mime_cp_info
->wszWebCharset
, sizeof(mime_cp_info
->wszWebCharset
)/sizeof(WCHAR
));
2534 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].header_charset
, -1,
2535 mime_cp_info
->wszHeaderCharset
, sizeof(mime_cp_info
->wszHeaderCharset
)/sizeof(WCHAR
));
2536 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].body_charset
, -1,
2537 mime_cp_info
->wszBodyCharset
, sizeof(mime_cp_info
->wszBodyCharset
)/sizeof(WCHAR
));
2539 MultiByteToWideChar(CP_ACP
, 0, ml_data
->fixed_font
, -1,
2540 mime_cp_info
->wszFixedWidthFont
, sizeof(mime_cp_info
->wszFixedWidthFont
)/sizeof(WCHAR
));
2541 MultiByteToWideChar(CP_ACP
, 0, ml_data
->proportional_font
, -1,
2542 mime_cp_info
->wszProportionalFont
, sizeof(mime_cp_info
->wszProportionalFont
)/sizeof(WCHAR
));
2544 TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
2545 mime_cp_info
->dwFlags
, mime_cp_info
->uiCodePage
,
2546 mime_cp_info
->uiFamilyCodePage
,
2547 wine_dbgstr_w(mime_cp_info
->wszDescription
),
2548 wine_dbgstr_w(mime_cp_info
->wszWebCharset
),
2549 wine_dbgstr_w(mime_cp_info
->wszHeaderCharset
),
2550 wine_dbgstr_w(mime_cp_info
->wszBodyCharset
),
2551 wine_dbgstr_w(mime_cp_info
->wszFixedWidthFont
),
2552 wine_dbgstr_w(mime_cp_info
->wszProportionalFont
),
2553 mime_cp_info
->bGDICharset
);
2556 static HRESULT WINAPI
fnIMultiLanguage2_GetCodePageInfo(
2557 IMultiLanguage3
* iface
,
2560 PMIMECPINFO pCodePageInfo
)
2564 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2565 TRACE("%p, %u, %04x, %p\n", This
, uiCodePage
, LangId
, pCodePageInfo
);
2567 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2569 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2571 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2573 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
2582 static HRESULT WINAPI
fnIMultiLanguage2_GetFamilyCodePage(
2583 IMultiLanguage3
* iface
,
2585 UINT
* puiFamilyCodePage
)
2587 return GetFamilyCodePage(uiCodePage
, puiFamilyCodePage
);
2590 static HRESULT WINAPI
fnIMultiLanguage2_EnumCodePages(
2591 IMultiLanguage3
* iface
,
2594 IEnumCodePage
** ppEnumCodePage
)
2596 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2597 TRACE("%p %08x %04x %p\n", This
, grfFlags
, LangId
, ppEnumCodePage
);
2599 return EnumCodePage_create( This
, grfFlags
, LangId
, ppEnumCodePage
);
2602 static HRESULT WINAPI
fnIMultiLanguage2_GetCharsetInfo(
2603 IMultiLanguage3
* iface
,
2605 PMIMECSETINFO pCharsetInfo
)
2609 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2610 TRACE("%p %s %p\n", This
, debugstr_w(Charset
), pCharsetInfo
);
2612 if (!pCharsetInfo
) return E_FAIL
;
2614 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2616 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2618 WCHAR csetW
[MAX_MIMECSET_NAME
];
2620 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].web_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2621 if (!lstrcmpiW(Charset
, csetW
))
2623 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2624 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2625 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2632 * Since we do not support charsets like iso-2022-jp and do not have
2633 * them in our database as a primary (web_charset) encoding this loop
2634 * does an attempt to 'approximate' charset name by header_charset.
2636 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2638 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2640 WCHAR csetW
[MAX_MIMECSET_NAME
];
2642 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].header_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2643 if (!lstrcmpiW(Charset
, csetW
))
2645 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2646 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2647 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2656 static HRESULT WINAPI
fnIMultiLanguage2_IsConvertible(
2657 IMultiLanguage3
* iface
,
2658 DWORD dwSrcEncoding
,
2659 DWORD dwDstEncoding
)
2661 return IsConvertINetStringAvailable(dwSrcEncoding
, dwDstEncoding
);
2664 static HRESULT WINAPI
fnIMultiLanguage2_ConvertString(
2665 IMultiLanguage3
* iface
,
2667 DWORD dwSrcEncoding
,
2668 DWORD dwDstEncoding
,
2674 return ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
,
2675 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, (LPSTR
)pDstStr
, (LPINT
)pcDstSize
);
2678 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringToUnicode(
2679 IMultiLanguage3
* iface
,
2687 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2688 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2691 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringFromUnicode(
2692 IMultiLanguage3
* iface
,
2700 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2701 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2704 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringReset(
2705 IMultiLanguage3
* iface
)
2711 static HRESULT WINAPI
fnIMultiLanguage2_GetRfc1766FromLcid(
2712 IMultiLanguage3
* iface
,
2716 WCHAR buf
[MAX_RFC1766_NAME
];
2718 TRACE("%p %04x %p\n", iface
, lcid
, pbstrRfc1766
);
2720 if (lcid_to_rfc1766W( lcid
, buf
, MAX_RFC1766_NAME
))
2722 *pbstrRfc1766
= SysAllocString( buf
);
2728 static HRESULT WINAPI
fnIMultiLanguage2_GetLcidFromRfc1766(
2729 IMultiLanguage3
* iface
,
2734 IEnumRfc1766
*rfc1766
;
2736 TRACE("%p %p %s\n", iface
, pLocale
, debugstr_w(bstrRfc1766
));
2738 if (!pLocale
|| !bstrRfc1766
)
2739 return E_INVALIDARG
;
2741 hr
= IMultiLanguage2_EnumRfc1766(iface
, 0, &rfc1766
);
2745 hr
= lcid_from_rfc1766(rfc1766
, pLocale
, bstrRfc1766
);
2747 IEnumRfc1766_Release(rfc1766
);
2751 static HRESULT WINAPI
fnIMultiLanguage2_EnumRfc1766(
2752 IMultiLanguage3
* iface
,
2754 IEnumRfc1766
** ppEnumRfc1766
)
2756 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2757 TRACE("%p %p\n", This
, ppEnumRfc1766
);
2759 return EnumRfc1766_create(LangId
, ppEnumRfc1766
);
2762 static HRESULT WINAPI
fnIMultiLanguage2_GetRfc1766Info(
2763 IMultiLanguage3
* iface
,
2766 PRFC1766INFO pRfc1766Info
)
2772 static HRESULT WINAPI
fnIMultiLanguage2_CreateConvertCharset(
2773 IMultiLanguage3
* iface
,
2777 IMLangConvertCharset
** ppMLangConvertCharset
)
2783 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringInIStream(
2784 IMultiLanguage3
* iface
,
2788 DWORD dwSrcEncoding
,
2789 DWORD dwDstEncoding
,
2793 char *src
, *dst
= NULL
;
2798 TRACE("%p %0x8 %s %u %u %p %p\n",
2799 pdwMode
, dwFlag
, debugstr_w(lpFallBack
), dwSrcEncoding
, dwDstEncoding
, pstmIn
, pstmOut
);
2801 FIXME("dwFlag and lpFallBack not handled\n");
2803 hr
= IStream_Stat(pstmIn
, &stat
, STATFLAG_NONAME
);
2804 if (FAILED(hr
)) return hr
;
2806 if (stat
.cbSize
.QuadPart
> MAXLONG
) return E_INVALIDARG
;
2807 if (!(src
= HeapAlloc(GetProcessHeap(), 0, stat
.cbSize
.QuadPart
))) return E_OUTOFMEMORY
;
2809 hr
= IStream_Read(pstmIn
, src
, stat
.cbSize
.QuadPart
, (ULONG
*)&srclen
);
2810 if (FAILED(hr
)) goto exit
;
2812 hr
= ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
, src
, &srclen
, NULL
, &dstlen
);
2813 if (FAILED(hr
)) goto exit
;
2815 if (!(dst
= HeapAlloc(GetProcessHeap(), 0, dstlen
)))
2820 hr
= ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
, src
, &srclen
, dst
, &dstlen
);
2821 if (FAILED(hr
)) goto exit
;
2823 hr
= IStream_Write(pstmOut
, dst
, dstlen
, NULL
);
2826 HeapFree(GetProcessHeap(), 0, src
);
2827 HeapFree(GetProcessHeap(), 0, dst
);
2832 * TODO: handle dwFlag and lpFallBack
2834 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringToUnicodeEx(
2835 IMultiLanguage3
* iface
,
2846 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2847 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2850 /*****************************************************************************
2851 * MultiLanguage2::ConvertStringToUnicodeEx
2853 * Translates the multibyte string from the specified code page to Unicode.
2856 * see ConvertStringToUnicode
2858 * lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
2859 * instead unconvertible characters.
2863 * S_FALSE The conversion is not supported.
2864 * E_FAIL Some error has occurred.
2866 * TODO: handle dwFlag and lpFallBack
2868 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringFromUnicodeEx(
2869 IMultiLanguage3
* This
,
2880 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2881 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2884 static HRESULT WINAPI
fnIMultiLanguage2_DetectCodepageInIStream(
2885 IMultiLanguage3
* iface
,
2887 DWORD dwPrefWinCodePage
,
2889 DetectEncodingInfo
* lpEncoding
,
2896 static HRESULT WINAPI
fnIMultiLanguage2_DetectInputCodepage(
2897 IMultiLanguage3
* iface
,
2899 DWORD dwPrefWinCodePage
,
2902 DetectEncodingInfo
* lpEncoding
,
2909 static HRESULT WINAPI
fnIMultiLanguage2_ValidateCodePage(
2910 IMultiLanguage3
* iface
,
2914 return IMultiLanguage2_ValidateCodePageEx(iface
,uiCodePage
,hwnd
,0);
2917 static HRESULT WINAPI
fnIMultiLanguage2_GetCodePageDescription(
2918 IMultiLanguage3
* iface
,
2921 LPWSTR lpWideCharStr
,
2924 /* Find first instance */
2927 TRACE ("%u, %04x, %p, %d\n", uiCodePage
, lcid
, lpWideCharStr
, cchWideChar
);
2928 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2930 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2932 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2934 MultiByteToWideChar(CP_ACP
, 0,
2935 mlang_data
[i
].mime_cp_info
[n
].description
,
2936 -1, lpWideCharStr
, cchWideChar
);
2945 static HRESULT WINAPI
fnIMultiLanguage2_IsCodePageInstallable(
2946 IMultiLanguage3
* iface
,
2949 FIXME("%u\n", uiCodePage
);
2953 static HRESULT WINAPI
fnIMultiLanguage2_SetMimeDBSource(
2954 IMultiLanguage3
* iface
,
2957 FIXME("0x%08x\n", dwSource
);
2961 static HRESULT WINAPI
fnIMultiLanguage2_GetNumberOfScripts(
2962 IMultiLanguage3
* iface
,
2965 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2966 TRACE("%p %p\n", This
, pnScripts
);
2968 if (!pnScripts
) return S_FALSE
;
2970 *pnScripts
= This
->total_scripts
;
2974 static HRESULT WINAPI
fnIMultiLanguage2_EnumScripts(
2975 IMultiLanguage3
* iface
,
2978 IEnumScript
** ppEnumScript
)
2980 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2981 TRACE("%p %08x %04x %p\n", This
, dwFlags
, LangId
, ppEnumScript
);
2983 return EnumScript_create( This
, dwFlags
, LangId
, ppEnumScript
);
2986 static HRESULT WINAPI
fnIMultiLanguage2_ValidateCodePageEx(
2987 IMultiLanguage3
* iface
,
2990 DWORD dwfIODControl
)
2993 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2995 TRACE("%p %u %p %08x\n", This
, uiCodePage
, hwnd
, dwfIODControl
);
2997 /* quick check for kernel32 supported code pages */
2998 if (IsValidCodePage(uiCodePage
))
3001 /* check for mlang supported code pages */
3002 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3005 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
3007 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
3012 if (dwfIODControl
!= CPIOD_PEEK
)
3013 FIXME("Request to install codepage language pack not handled\n");
3018 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePage(
3019 IMultiLanguage3
*iface
,
3021 LPCWSTR lpWideCharStr
,
3023 UINT
*puiPreferredCodePages
,
3024 UINT nPreferredCodePages
,
3025 UINT
*puiDetectedCodePages
,
3026 UINT
*pnDetectedCodePages
,
3027 WCHAR
*lpSpecialChar
)
3029 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
3030 FIXME("(%p)->(%08x %s %u %p %u %p %p %p)\n", This
, dwFlags
, debugstr_w(lpWideCharStr
),
3031 cchWideChar
, puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
3032 pnDetectedCodePages
, lpSpecialChar
);
3036 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePageInIStream(
3037 IMultiLanguage3
*iface
,
3040 UINT
*puiPreferredCodePages
,
3041 UINT nPreferredCodePages
,
3042 UINT
*puiDetectedCodePages
,
3043 UINT
*pnDetectedCodePages
,
3044 WCHAR
*lpSpecialChar
)
3046 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
3047 FIXME("(%p)->(%08x %p %p %u %p %p %p)\n", This
, dwFlags
, pStrIn
,
3048 puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
3049 pnDetectedCodePages
, lpSpecialChar
);
3053 static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl
=
3055 fnIMultiLanguage2_QueryInterface
,
3056 fnIMultiLanguage2_AddRef
,
3057 fnIMultiLanguage2_Release
,
3058 fnIMultiLanguage2_GetNumberOfCodePageInfo
,
3059 fnIMultiLanguage2_GetCodePageInfo
,
3060 fnIMultiLanguage2_GetFamilyCodePage
,
3061 fnIMultiLanguage2_EnumCodePages
,
3062 fnIMultiLanguage2_GetCharsetInfo
,
3063 fnIMultiLanguage2_IsConvertible
,
3064 fnIMultiLanguage2_ConvertString
,
3065 fnIMultiLanguage2_ConvertStringToUnicode
,
3066 fnIMultiLanguage2_ConvertStringFromUnicode
,
3067 fnIMultiLanguage2_ConvertStringReset
,
3068 fnIMultiLanguage2_GetRfc1766FromLcid
,
3069 fnIMultiLanguage2_GetLcidFromRfc1766
,
3070 fnIMultiLanguage2_EnumRfc1766
,
3071 fnIMultiLanguage2_GetRfc1766Info
,
3072 fnIMultiLanguage2_CreateConvertCharset
,
3073 fnIMultiLanguage2_ConvertStringInIStream
,
3074 fnIMultiLanguage2_ConvertStringToUnicodeEx
,
3075 fnIMultiLanguage2_ConvertStringFromUnicodeEx
,
3076 fnIMultiLanguage2_DetectCodepageInIStream
,
3077 fnIMultiLanguage2_DetectInputCodepage
,
3078 fnIMultiLanguage2_ValidateCodePage
,
3079 fnIMultiLanguage2_GetCodePageDescription
,
3080 fnIMultiLanguage2_IsCodePageInstallable
,
3081 fnIMultiLanguage2_SetMimeDBSource
,
3082 fnIMultiLanguage2_GetNumberOfScripts
,
3083 fnIMultiLanguage2_EnumScripts
,
3084 fnIMultiLanguage2_ValidateCodePageEx
,
3085 fnIMultiLanguage3_DetectOutboundCodePage
,
3086 fnIMultiLanguage3_DetectOutboundCodePageInIStream
3089 /******************************************************************************/
3090 static HRESULT WINAPI
fnIMLangFontLink2_QueryInterface(
3091 IMLangFontLink2
* iface
,
3095 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink2
, iface
);
3096 return MLang_QueryInterface( This
, riid
, ppvObject
);
3099 static ULONG WINAPI
fnIMLangFontLink2_AddRef( IMLangFontLink2
* iface
)
3101 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink2
, iface
);
3102 return MLang_AddRef( This
);
3105 static ULONG WINAPI
fnIMLangFontLink2_Release( IMLangFontLink2
* iface
)
3107 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink2
, iface
);
3108 return MLang_Release( This
);
3111 static HRESULT WINAPI
fnIMLangFontLink2_GetCharCodePages( IMLangFontLink2
* This
,
3112 WCHAR chSrc
, DWORD
*pdwCodePages
)
3114 FIXME("(%p)->%s %p\n",This
, debugstr_wn(&chSrc
,1),pdwCodePages
);
3118 static HRESULT WINAPI
fnIMLangFontLink2_GetStrCodePages( IMLangFontLink2
* This
,
3119 const WCHAR
*pszSrc
, long cchSrc
, DWORD dwPriorityCodePages
,
3120 DWORD
*pdwCodePages
, long *pcchCodePages
)
3122 FIXME("(%p)->%s %li %x %p %p\n",This
, debugstr_wn(pszSrc
,cchSrc
),cchSrc
,dwPriorityCodePages
,pdwCodePages
,pcchCodePages
);
3128 static HRESULT WINAPI
fnIMLangFontLink2_CodePageToCodePages(IMLangFontLink2
* This
,
3130 DWORD
*pdwCodePages
)
3132 FIXME("(%p)->%i %p\n",This
, uCodePage
, pdwCodePages
);
3136 static HRESULT WINAPI
fnIMLangFontLink2_CodePagesToCodePage(IMLangFontLink2
* This
,
3137 DWORD dwCodePages
, UINT uDefaultCodePage
, UINT
*puCodePage
)
3139 FIXME("(%p)->%i %i %p\n",This
, dwCodePages
, uDefaultCodePage
, puCodePage
);
3143 static HRESULT WINAPI
fnIMLangFontLink2_GetFontCodePages(IMLangFontLink2
* This
,
3144 HDC hDC
, HFONT hFont
, DWORD
*pdwCodePages
)
3146 FIXME("(%p)->%p %p %p\n",This
, hDC
, hFont
, pdwCodePages
);
3150 static HRESULT WINAPI
fnIMLangFontLink2_ReleaseFont(IMLangFontLink2
* This
,
3153 FIXME("(%p)->%p\n",This
, hFont
);
3157 static HRESULT WINAPI
fnIMLangFontLink2_ResetFontMapping(IMLangFontLink2
* This
)
3159 FIXME("(%p)->\n",This
);
3163 static HRESULT WINAPI
fnIMLangFontLink2_MapFont(IMLangFontLink2
* This
,
3164 HDC hDC
, DWORD dwCodePages
, WCHAR chSrc
, HFONT
*pFont
)
3166 FIXME("(%p)->%p %i %s %p\n",This
, hDC
, dwCodePages
, debugstr_wn(&chSrc
,1), pFont
);
3170 static HRESULT WINAPI
fnIMLangFontLink2_GetFontUnicodeRanges(IMLangFontLink2
* This
,
3171 HDC hDC
, UINT
*puiRanges
, UNICODERANGE
*pUranges
)
3173 FIXME("(%p)->%p %p %p\n",This
, hDC
, puiRanges
, pUranges
);
3177 static HRESULT WINAPI
fnIMLangFontLink2_GetScriptFontInfo(IMLangFontLink2
* This
,
3178 SCRIPT_ID sid
, DWORD dwFlags
, UINT
*puiFonts
,
3179 SCRIPTFONTINFO
*pScriptFont
)
3183 TRACE("(%p)->%u %x %p %p\n", This
, sid
, dwFlags
, puiFonts
, pScriptFont
);
3185 if (!dwFlags
) dwFlags
= SCRIPTCONTF_PROPORTIONAL_FONT
;
3187 for (i
= 0, j
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3189 if (sid
== mlang_data
[i
].sid
)
3193 if (j
>= *puiFonts
) break;
3195 pScriptFont
[j
].scripts
= 1 << mlang_data
[i
].sid
;
3196 if (dwFlags
== SCRIPTCONTF_FIXED_FONT
)
3198 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].fixed_font
, -1,
3199 pScriptFont
[j
].wszFont
, MAX_MIMEFACE_NAME
);
3201 else if (dwFlags
== SCRIPTCONTF_PROPORTIONAL_FONT
)
3203 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].proportional_font
, -1,
3204 pScriptFont
[j
].wszFont
, MAX_MIMEFACE_NAME
);
3214 static HRESULT WINAPI
fnIMLangFontLink2_CodePageToScriptID(IMLangFontLink2
* This
,
3215 UINT uiCodePage
, SCRIPT_ID
*pSid
)
3217 FIXME("(%p)->%i %p\n",This
, uiCodePage
, pSid
);
3221 static const IMLangFontLink2Vtbl IMLangFontLink2_vtbl
=
3223 fnIMLangFontLink2_QueryInterface
,
3224 fnIMLangFontLink2_AddRef
,
3225 fnIMLangFontLink2_Release
,
3226 fnIMLangFontLink2_GetCharCodePages
,
3227 fnIMLangFontLink2_GetStrCodePages
,
3228 fnIMLangFontLink2_CodePageToCodePages
,
3229 fnIMLangFontLink2_CodePagesToCodePage
,
3230 fnIMLangFontLink2_GetFontCodePages
,
3231 fnIMLangFontLink2_ReleaseFont
,
3232 fnIMLangFontLink2_ResetFontMapping
,
3233 fnIMLangFontLink2_MapFont
,
3234 fnIMLangFontLink2_GetFontUnicodeRanges
,
3235 fnIMLangFontLink2_GetScriptFontInfo
,
3236 fnIMLangFontLink2_CodePageToScriptID
3239 /******************************************************************************/
3241 static HRESULT WINAPI
fnIMLangLineBreakConsole_QueryInterface(
3242 IMLangLineBreakConsole
* iface
,
3246 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangLineBreakConsole
, iface
);
3247 return MLang_QueryInterface( This
, riid
, ppvObject
);
3250 static ULONG WINAPI
fnIMLangLineBreakConsole_AddRef(
3251 IMLangLineBreakConsole
* iface
)
3253 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangLineBreakConsole
, iface
);
3254 return MLang_AddRef( This
);
3257 static ULONG WINAPI
fnIMLangLineBreakConsole_Release(
3258 IMLangLineBreakConsole
* iface
)
3260 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangLineBreakConsole
, iface
);
3261 return MLang_Release( This
);
3264 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineML(
3265 IMLangLineBreakConsole
* iface
,
3266 IMLangString
* pSrcMLStr
,
3274 FIXME("(%p)->%p %li %li %li %li %p %p\n", iface
, pSrcMLStr
, lSrcPos
, lSrcLen
, cMinColumns
, cMaxColumns
, plLineLen
, plSkipLen
);
3278 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineW(
3279 IMLangLineBreakConsole
* iface
,
3281 const WCHAR
* pszSrc
,
3287 FIXME("(%p)->%i %s %li %li %p %p\n", iface
, locale
, debugstr_wn(pszSrc
,cchSrc
), cchSrc
, cMaxColumns
, pcchLine
, pcchSkip
);
3294 static HRESULT WINAPI
fnIMLangLineBreakConsole_BreakLineA(
3295 IMLangLineBreakConsole
* iface
,
3304 FIXME("(%p)->%i %i %s %li %li %p %p\n", iface
, locale
, uCodePage
, debugstr_an(pszSrc
,cchSrc
), cchSrc
, cMaxColumns
, pcchLine
, pcchSkip
);
3311 static const IMLangLineBreakConsoleVtbl IMLangLineBreakConsole_vtbl
=
3313 fnIMLangLineBreakConsole_QueryInterface
,
3314 fnIMLangLineBreakConsole_AddRef
,
3315 fnIMLangLineBreakConsole_Release
,
3316 fnIMLangLineBreakConsole_BreakLineML
,
3317 fnIMLangLineBreakConsole_BreakLineW
,
3318 fnIMLangLineBreakConsole_BreakLineA
3321 static HRESULT
MultiLanguage_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
)
3326 TRACE("Creating MultiLanguage object\n");
3329 return CLASS_E_NOAGGREGATION
;
3331 mlang
= HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl
) );
3332 mlang
->vtbl_IMLangFontLink
= &IMLangFontLink_vtbl
;
3333 mlang
->vtbl_IMultiLanguage
= &IMultiLanguage_vtbl
;
3334 mlang
->vtbl_IMultiLanguage3
= &IMultiLanguage3_vtbl
;
3335 mlang
->vtbl_IMLangFontLink2
= &IMLangFontLink2_vtbl
;
3336 mlang
->vtbl_IMLangLineBreakConsole
= &IMLangLineBreakConsole_vtbl
;
3338 mlang
->total_cp
= 0;
3339 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
3340 mlang
->total_cp
+= mlang_data
[i
].number_of_cp
;
3342 /* do not enumerate unicode flavours */
3343 mlang
->total_scripts
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
3347 TRACE("returning %p\n", mlang
);
3354 /******************************************************************************/
3356 HRESULT WINAPI
DllCanUnloadNow(void)
3358 return dll_count
== 0 ? S_OK
: S_FALSE
;
3361 HRESULT WINAPI
GetGlobalFontLinkObject(void)