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 (Shift-JIS)",
262 932, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
263 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
264 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
265 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
266 "shift_jis", "iso-2022-jp", "iso-2022-jp" },
267 { "Japanese (JIS 0208-1990 and 0212-1990)",
268 20932, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
269 MIMECONTF_MIME_LATEST
,
270 "euc-jp", "euc-jp", "euc-jp" }
272 static const MIME_CP_INFO korean_cp
[] =
275 949, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
276 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
277 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
|
278 MIMECONTF_MIME_LATEST
,
279 "ks_c_5601-1987", "ks_c_5601-1987", "ks_c_5601-1987" }
281 static const MIME_CP_INFO thai_cp
[] =
284 874, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_MIME_LATEST
,
285 "ibm-thai", "ibm-thai", "ibm-thai" }
287 static const MIME_CP_INFO turkish_cp
[] =
290 857, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
291 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
292 "ibm857", "ibm857", "ibm857" },
293 { "IBM EBCDIC (Turkish Latin-5)",
294 1026, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
295 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
296 "ibm1026", "ibm1026", "ibm1026" },
297 { "Turkish (Windows)",
298 1254, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
299 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
300 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
301 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
302 "windows-1254", "windows-1254", "windows-1254" },
304 10081, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
305 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
306 "x-mac-turkish", "x-mac-turkish", "x-mac-turkish" },
308 28593, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
309 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
310 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
311 "iso-8859-3", "iso-8859-3", "iso-8859-3" },
313 28599, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
314 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
315 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
316 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
317 "iso-8859-9", "iso-8859-9", "iso-8859-9" }
319 static const MIME_CP_INFO vietnamese_cp
[] =
321 { "Vietnamese (Windows)",
322 1258, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
323 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
324 MIMECONTF_EXPORT
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
325 MIMECONTF_MIME_LATEST
,
326 "windows-1258", "windows-1258", "windows-1258" }
328 static const MIME_CP_INFO western_cp
[] =
330 { "IBM EBCDIC (US-Canada)",
331 37, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
332 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
333 "ibm037", "ibm037", "ibm037" },
334 { "OEM United States",
335 437, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
336 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
337 "ibm437", "ibm437", "ibm437" },
338 { "IBM EBCDIC (International)",
339 500, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
340 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
341 "ibm500", "ibm500", "ibm500" },
342 { "Western European (DOS)",
343 850, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
344 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
345 "ibm850", "ibm850", "ibm850" },
346 { "Portuguese (DOS)",
347 860, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
348 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
349 "ibm860", "ibm860", "ibm860" },
351 861, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
352 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
353 "ibm861", "ibm861", "ibm861" },
354 { "French Canadian (DOS)",
355 863, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
356 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
357 "ibm863", "ibm863", "ibm863" },
359 865, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
360 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
361 "ibm865", "ibm865", "ibm865" },
362 { "Western European (Windows)",
363 1252, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_MINIMAL
|
364 MIMECONTF_IMPORT
| MIMECONTF_SAVABLE_MAILNEWS
|
365 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
366 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
367 "windows-1252", "windows-1252", "iso-8859-1" },
368 { "Western European (Mac)",
369 10000, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
370 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
371 "macintosh", "macintosh", "macintosh" },
373 10079, MIMECONTF_IMPORT
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
374 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
375 "x-mac-icelandic", "x-mac-icelandic", "x-mac-icelandic" },
377 20127, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
| MIMECONTF_EXPORT
|
378 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_VALID
|
379 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_LATEST
,
380 "us-ascii", "us-ascii", "us-ascii" },
381 { "Western European (ISO)",
382 28591, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
383 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
384 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
385 MIMECONTF_MIME_LATEST
,
386 "iso-8859-1", "iso-8859-1", "iso-8859-1" },
388 28605, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
389 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
390 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
391 MIMECONTF_MIME_LATEST
,
392 "iso-8859-15", "iso-8859-15", "iso-8859-15" }
394 static const MIME_CP_INFO unicode_cp
[] =
397 CP_UNICODE
, MIMECONTF_MINIMAL
| MIMECONTF_IMPORT
|
398 MIMECONTF_SAVABLE_BROWSER
| MIMECONTF_EXPORT
|
399 MIMECONTF_VALID
| MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
|
400 MIMECONTF_MIME_LATEST
,
401 "unicode", "unicode", "unicode" },
403 CP_UTF7
, MIMECONTF_MAILNEWS
| MIMECONTF_IMPORT
|
404 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_EXPORT
| MIMECONTF_VALID
|
405 MIMECONTF_VALID_NLS
| MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
406 "utf-7", "utf-7", "utf-7" },
408 CP_UTF8
, MIMECONTF_MAILNEWS
| MIMECONTF_BROWSER
| MIMECONTF_IMPORT
|
409 MIMECONTF_SAVABLE_MAILNEWS
| MIMECONTF_SAVABLE_BROWSER
|
410 MIMECONTF_EXPORT
| MIMECONTF_VALID
| MIMECONTF_VALID_NLS
|
411 MIMECONTF_MIME_IE4
| MIMECONTF_MIME_LATEST
,
412 "utf-8", "utf-8", "utf-8" }
415 static const struct mlang_data
417 const char *description
;
418 UINT family_codepage
;
420 const MIME_CP_INFO
*mime_cp_info
;
421 const char *fixed_font
;
422 const char *proportional_font
;
425 { "Arabic",1256,sizeof(arabic_cp
)/sizeof(arabic_cp
[0]),arabic_cp
,
426 "Courier","Arial" }, /* FIXME */
427 { "Baltic",1257,sizeof(baltic_cp
)/sizeof(baltic_cp
[0]),baltic_cp
,
428 "Courier","Arial" }, /* FIXME */
429 { "Chinese Simplified",936,sizeof(chinese_simplified_cp
)/sizeof(chinese_simplified_cp
[0]),chinese_simplified_cp
,
430 "Courier","Arial" }, /* FIXME */
431 { "Chinese Traditional",950,sizeof(chinese_traditional_cp
)/sizeof(chinese_traditional_cp
[0]),chinese_traditional_cp
,
432 "Courier","Arial" }, /* FIXME */
433 { "Central European",1250,sizeof(central_european_cp
)/sizeof(central_european_cp
[0]),central_european_cp
,
434 "Courier","Arial" }, /* FIXME */
435 { "Cyrillic",1251,sizeof(cyrillic_cp
)/sizeof(cyrillic_cp
[0]),cyrillic_cp
,
436 "Courier","Arial" }, /* FIXME */
437 { "Greek",1253,sizeof(greek_cp
)/sizeof(greek_cp
[0]),greek_cp
,
438 "Courier","Arial" }, /* FIXME */
439 { "Hebrew",1255,sizeof(hebrew_cp
)/sizeof(hebrew_cp
[0]),hebrew_cp
,
440 "Courier","Arial" }, /* FIXME */
441 { "Japanese",932,sizeof(japanese_cp
)/sizeof(japanese_cp
[0]),japanese_cp
,
442 "Courier","Arial" }, /* FIXME */
443 { "Korean",949,sizeof(korean_cp
)/sizeof(korean_cp
[0]),korean_cp
,
444 "Courier","Arial" }, /* FIXME */
445 { "Thai",874,sizeof(thai_cp
)/sizeof(thai_cp
[0]),thai_cp
,
446 "Courier","Arial" }, /* FIXME */
447 { "Turkish",1254,sizeof(turkish_cp
)/sizeof(turkish_cp
[0]),turkish_cp
,
448 "Courier","Arial" }, /* FIXME */
449 { "Vietnamese",1258,sizeof(vietnamese_cp
)/sizeof(vietnamese_cp
[0]),vietnamese_cp
,
450 "Courier","Arial" }, /* FIXME */
451 { "Western European",1252,sizeof(western_cp
)/sizeof(western_cp
[0]),western_cp
,
452 "Courier","Arial" }, /* FIXME */
453 { "Unicode",CP_UNICODE
,sizeof(unicode_cp
)/sizeof(unicode_cp
[0]),unicode_cp
,
454 "Courier","Arial" } /* FIXME */
457 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
);
459 static LONG dll_count
;
462 * Dll lifetime tracking declaration
464 static void LockModule(void)
466 InterlockedIncrement(&dll_count
);
469 static void UnlockModule(void)
471 InterlockedDecrement(&dll_count
);
474 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
477 case DLL_PROCESS_ATTACH
:
478 MLANG_tls_index
= TlsAlloc();
479 DisableThreadLibraryCalls(hInstDLL
);
481 case DLL_PROCESS_DETACH
:
482 TlsFree(MLANG_tls_index
);
488 HRESULT WINAPI
ConvertINetMultiByteToUnicode(
498 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
499 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
505 pcSrcSize
= &src_len
;
516 if (*pcSrcSize
== -1)
517 *pcSrcSize
= lstrlenW((LPCWSTR
)pSrcStr
);
518 *pcDstSize
= min(*pcSrcSize
, *pcDstSize
);
519 *pcSrcSize
*= sizeof(WCHAR
);
521 memmove(pDstStr
, pSrcStr
, *pcDstSize
* sizeof(WCHAR
));
525 if (*pcSrcSize
== -1)
526 *pcSrcSize
= lstrlenA(pSrcStr
);
529 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, pDstStr
, *pcDstSize
);
531 *pcDstSize
= MultiByteToWideChar(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, NULL
, 0);
541 HRESULT WINAPI
ConvertINetUnicodeToMultiByte(
552 TRACE("%p %d %s %p %p %p\n", pdwMode
, dwEncoding
,
553 debugstr_w(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
559 pcSrcSize
= &src_len
;
570 if (*pcSrcSize
== -1)
571 *pcSrcSize
= lstrlenW(pSrcStr
);
572 *pcDstSize
= min(*pcSrcSize
* sizeof(WCHAR
), *pcDstSize
);
574 memmove(pDstStr
, pSrcStr
, *pcDstSize
);
578 if (*pcSrcSize
== -1)
579 *pcSrcSize
= lstrlenW(pSrcStr
);
582 *pcDstSize
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, pDstStr
, *pcDstSize
, NULL
, NULL
);
584 *pcDstSize
= WideCharToMultiByte(dwEncoding
, 0, pSrcStr
, *pcSrcSize
, NULL
, 0, NULL
, NULL
);
595 HRESULT WINAPI
ConvertINetString(
605 TRACE("%p %d %d %s %p %p %p\n", pdwMode
, dwSrcEncoding
, dwDstEncoding
,
606 debugstr_a(pSrcStr
), pcSrcSize
, pDstStr
, pcDstSize
);
608 if (dwSrcEncoding
== CP_UNICODE
)
611 if (pcSrcSize
&& *pcSrcSize
!= -1)
613 cSrcSizeW
= *pcSrcSize
/ sizeof(WCHAR
);
614 pcSrcSize
= &cSrcSizeW
;
616 return ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, (LPCWSTR
)pSrcStr
, pcSrcSize
, pDstStr
, pcDstSize
);
618 else if (dwDstEncoding
== CP_UNICODE
)
620 HRESULT hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, (LPWSTR
)pDstStr
, pcDstSize
);
621 *pcDstSize
*= sizeof(WCHAR
);
630 TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr
), dwSrcEncoding
, dwDstEncoding
);
632 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, NULL
, &cDstSizeW
);
636 pDstStrW
= HeapAlloc(GetProcessHeap(), 0, cDstSizeW
* sizeof(WCHAR
));
637 hr
= ConvertINetMultiByteToUnicode(pdwMode
, dwSrcEncoding
, pSrcStr
, pcSrcSize
, pDstStrW
, &cDstSizeW
);
639 hr
= ConvertINetUnicodeToMultiByte(pdwMode
, dwDstEncoding
, pDstStrW
, &cDstSizeW
, pDstStr
, pcDstSize
);
641 HeapFree(GetProcessHeap(), 0, pDstStrW
);
646 static HRESULT
GetFamilyCodePage(
648 UINT
* puiFamilyCodePage
)
652 TRACE("%u %p\n", uiCodePage
, puiFamilyCodePage
);
654 if (!puiFamilyCodePage
) return S_FALSE
;
656 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
658 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
660 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
662 *puiFamilyCodePage
= mlang_data
[i
].family_codepage
;
671 HRESULT WINAPI
IsConvertINetStringAvailable(
675 UINT src_family
, dst_family
;
677 TRACE("%d %d\n", dwSrcEncoding
, dwDstEncoding
);
679 if (GetFamilyCodePage(dwSrcEncoding
, &src_family
) != S_OK
||
680 GetFamilyCodePage(dwDstEncoding
, &dst_family
) != S_OK
)
683 if (src_family
== dst_family
) return S_OK
;
685 /* we can convert any codepage to/from unicode */
686 if (src_family
== CP_UNICODE
|| dst_family
== CP_UNICODE
) return S_OK
;
691 static inline INT
lcid_to_rfc1766A( LCID lcid
, LPSTR rfc1766
, INT len
)
693 INT n
= GetLocaleInfoA( lcid
, LOCALE_SISO639LANGNAME
, rfc1766
, len
);
696 rfc1766
[n
- 1] = '-';
697 n
+= GetLocaleInfoA( lcid
, LOCALE_SISO3166CTRYNAME
, rfc1766
+ n
, len
- n
);
698 LCMapStringA( LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, rfc1766
, n
, rfc1766
, len
);
704 static inline INT
lcid_to_rfc1766W( LCID lcid
, LPWSTR rfc1766
, INT len
)
706 INT n
= GetLocaleInfoW( lcid
, LOCALE_SISO639LANGNAME
, rfc1766
, len
);
710 rfc1766
[n
- 1] = '-';
711 n
+= GetLocaleInfoW( lcid
, LOCALE_SISO3166CTRYNAME
, rfc1766
+ n
, len
- n
);
713 rfc1766
[n
- 1] = '\0';
714 LCMapStringW( LOCALE_USER_DEFAULT
, LCMAP_LOWERCASE
, rfc1766
, n
, rfc1766
, len
);
720 HRESULT WINAPI
LcidToRfc1766A(
725 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
727 if (lcid_to_rfc1766A( lcid
, pszRfc1766
, nChar
))
733 HRESULT WINAPI
LcidToRfc1766W(
738 TRACE("%04x %p %u\n", lcid
, pszRfc1766
, nChar
);
740 if (lcid_to_rfc1766W( lcid
, pszRfc1766
, nChar
))
746 static HRESULT
lcid_from_rfc1766(IEnumRfc1766
*iface
, LCID
*lcid
, LPCWSTR rfc1766
)
751 while (IEnumRfc1766_Next(iface
, 1, &info
, &num
) == S_OK
)
753 if (!strcmpW(info
.wszRfc1766
, rfc1766
))
758 if (strlenW(rfc1766
) == 2 && !memcmp(info
.wszRfc1766
, rfc1766
, 2 * sizeof(WCHAR
)))
760 *lcid
= PRIMARYLANGID(info
.lcid
);
768 HRESULT WINAPI
Rfc1766ToLcidW(LCID
*pLocale
, LPCWSTR pszRfc1766
)
770 IEnumRfc1766
*enumrfc1766
;
773 TRACE("(%p, %s)\n", pLocale
, debugstr_w(pszRfc1766
));
775 if (!pLocale
|| !pszRfc1766
)
780 hr
= EnumRfc1766_create(0, &enumrfc1766
);
784 hr
= lcid_from_rfc1766(enumrfc1766
, pLocale
, pszRfc1766
);
785 IEnumRfc1766_Release(enumrfc1766
);
790 HRESULT WINAPI
Rfc1766ToLcidA(LCID
*lcid
, LPCSTR rfc1766A
)
792 WCHAR rfc1766W
[MAX_RFC1766_NAME
+ 1];
794 MultiByteToWideChar(CP_ACP
, 0, rfc1766A
, -1, rfc1766W
, MAX_RFC1766_NAME
);
795 rfc1766W
[MAX_RFC1766_NAME
] = 0;
797 return Rfc1766ToLcidW(lcid
, rfc1766W
);
800 /******************************************************************************
804 IClassFactory ITF_IClassFactory
;
807 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
810 struct object_creation_info
814 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
817 static const struct object_creation_info object_creation
[] =
819 { &CLSID_CMultiLanguage
, "CLSID_CMultiLanguage", MultiLanguage_create
},
822 static HRESULT WINAPI
823 MLANGCF_QueryInterface(LPCLASSFACTORY iface
,REFIID riid
,LPVOID
*ppobj
)
825 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
827 TRACE("%s\n", debugstr_guid(riid
) );
829 if (IsEqualGUID(riid
, &IID_IUnknown
)
830 || IsEqualGUID(riid
, &IID_IClassFactory
))
832 IClassFactory_AddRef(iface
);
837 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppobj
);
838 return E_NOINTERFACE
;
841 static ULONG WINAPI
MLANGCF_AddRef(LPCLASSFACTORY iface
)
843 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
844 return InterlockedIncrement(&This
->ref
);
847 static ULONG WINAPI
MLANGCF_Release(LPCLASSFACTORY iface
)
849 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
851 ULONG ref
= InterlockedDecrement(&This
->ref
);
855 TRACE("Destroying %p\n", This
);
856 HeapFree(GetProcessHeap(), 0, This
);
862 static HRESULT WINAPI
MLANGCF_CreateInstance(LPCLASSFACTORY iface
, LPUNKNOWN pOuter
,
863 REFIID riid
, LPVOID
*ppobj
)
865 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
869 TRACE("(%p)->(%p,%s,%p)\n",This
,pOuter
,debugstr_guid(riid
),ppobj
);
872 hres
= This
->pfnCreateInstance(pOuter
, (LPVOID
*) &punk
);
873 if (SUCCEEDED(hres
)) {
874 hres
= IUnknown_QueryInterface(punk
, riid
, ppobj
);
875 IUnknown_Release(punk
);
877 TRACE("returning (%p) -> %x\n", *ppobj
, hres
);
881 static HRESULT WINAPI
MLANGCF_LockServer(LPCLASSFACTORY iface
,BOOL dolock
)
891 static const IClassFactoryVtbl MLANGCF_Vtbl
=
893 MLANGCF_QueryInterface
,
896 MLANGCF_CreateInstance
,
900 /******************************************************************
901 * DllGetClassObject (MLANG.@)
903 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID iid
, LPVOID
*ppv
)
906 IClassFactoryImpl
*factory
;
908 TRACE("%s %s %p\n",debugstr_guid(rclsid
), debugstr_guid(iid
), ppv
);
910 if ( !IsEqualGUID( &IID_IClassFactory
, iid
)
911 && ! IsEqualGUID( &IID_IUnknown
, iid
) )
912 return E_NOINTERFACE
;
914 for (i
=0; i
< sizeof(object_creation
)/sizeof(object_creation
[0]); i
++)
916 if (IsEqualGUID(object_creation
[i
].clsid
, rclsid
))
920 if (i
== sizeof(object_creation
)/sizeof(object_creation
[0]))
922 FIXME("%s: no class found.\n", debugstr_guid(rclsid
));
923 return CLASS_E_CLASSNOTAVAILABLE
;
926 TRACE("Creating a class factory for %s\n",object_creation
[i
].szClassName
);
928 factory
= HeapAlloc(GetProcessHeap(), 0, sizeof(*factory
));
929 if (factory
== NULL
) return E_OUTOFMEMORY
;
931 factory
->ITF_IClassFactory
.lpVtbl
= &MLANGCF_Vtbl
;
934 factory
->pfnCreateInstance
= object_creation
[i
].pfnCreateInstance
;
936 *ppv
= &(factory
->ITF_IClassFactory
);
938 TRACE("(%p) <- %p\n", ppv
, &(factory
->ITF_IClassFactory
) );
944 /******************************************************************************/
946 typedef struct tagMLang_impl
948 const IMLangFontLinkVtbl
*vtbl_IMLangFontLink
;
949 const IMultiLanguageVtbl
*vtbl_IMultiLanguage
;
950 const IMultiLanguage3Vtbl
*vtbl_IMultiLanguage3
;
952 DWORD total_cp
, total_scripts
;
955 static ULONG WINAPI
MLang_AddRef( MLang_impl
* This
)
957 return InterlockedIncrement(&This
->ref
);
960 static ULONG WINAPI
MLang_Release( MLang_impl
* This
)
962 ULONG ref
= InterlockedDecrement(&This
->ref
);
964 TRACE("%p ref = %d\n", This
, ref
);
967 TRACE("Destroying %p\n", This
);
968 HeapFree(GetProcessHeap(), 0, This
);
975 static HRESULT WINAPI
MLang_QueryInterface(
980 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
982 if (IsEqualGUID(riid
, &IID_IUnknown
)
983 || IsEqualGUID(riid
, &IID_IMLangCodePages
)
984 || IsEqualGUID(riid
, &IID_IMLangFontLink
))
987 TRACE("Returning IID_IMLangFontLink %p ref = %d\n", This
, This
->ref
);
988 *ppvObject
= &(This
->vtbl_IMLangFontLink
);
992 if (IsEqualGUID(riid
, &IID_IMultiLanguage
) )
995 TRACE("Returning IID_IMultiLanguage %p ref = %d\n", This
, This
->ref
);
996 *ppvObject
= &(This
->vtbl_IMultiLanguage
);
1000 if (IsEqualGUID(riid
, &IID_IMultiLanguage2
) )
1003 *ppvObject
= &(This
->vtbl_IMultiLanguage3
);
1004 TRACE("Returning IID_IMultiLanguage2 %p ref = %d\n", This
, This
->ref
);
1008 if (IsEqualGUID(riid
, &IID_IMultiLanguage3
) )
1011 *ppvObject
= &(This
->vtbl_IMultiLanguage3
);
1012 TRACE("Returning IID_IMultiLanguage3 %p ref = %d\n", This
, This
->ref
);
1016 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1017 return E_NOINTERFACE
;
1020 /******************************************************************************/
1022 typedef struct tagEnumCodePage_impl
1024 const IEnumCodePageVtbl
*vtbl_IEnumCodePage
;
1028 } EnumCodePage_impl
;
1030 static HRESULT WINAPI
fnIEnumCodePage_QueryInterface(
1031 IEnumCodePage
* iface
,
1035 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1037 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1039 if (IsEqualGUID(riid
, &IID_IUnknown
)
1040 || IsEqualGUID(riid
, &IID_IEnumCodePage
))
1042 IEnumCodePage_AddRef(iface
);
1043 TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This
, This
->ref
);
1044 *ppvObject
= &(This
->vtbl_IEnumCodePage
);
1048 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1049 return E_NOINTERFACE
;
1052 static ULONG WINAPI
fnIEnumCodePage_AddRef(
1053 IEnumCodePage
* iface
)
1055 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1056 return InterlockedIncrement(&This
->ref
);
1059 static ULONG WINAPI
fnIEnumCodePage_Release(
1060 IEnumCodePage
* iface
)
1062 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1063 ULONG ref
= InterlockedDecrement(&This
->ref
);
1065 TRACE("%p ref = %d\n", This
, ref
);
1068 TRACE("Destroying %p\n", This
);
1069 HeapFree(GetProcessHeap(), 0, This
->cpinfo
);
1070 HeapFree(GetProcessHeap(), 0, This
);
1076 static HRESULT WINAPI
fnIEnumCodePage_Clone(
1077 IEnumCodePage
* iface
,
1078 IEnumCodePage
** ppEnum
)
1080 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1081 FIXME("%p %p\n", This
, ppEnum
);
1085 static HRESULT WINAPI
fnIEnumCodePage_Next(
1086 IEnumCodePage
* iface
,
1089 ULONG
* pceltFetched
)
1093 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1094 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1096 if (!pceltFetched
) return S_FALSE
;
1099 if (!rgelt
) return S_FALSE
;
1101 if (This
->pos
+ celt
> This
->total
)
1102 celt
= This
->total
- This
->pos
;
1104 if (!celt
) return S_FALSE
;
1106 memcpy(rgelt
, This
->cpinfo
+ This
->pos
, celt
* sizeof(MIMECPINFO
));
1107 *pceltFetched
= celt
;
1110 for (i
= 0; i
< celt
; i
++)
1112 TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
1113 i
, rgelt
[i
].dwFlags
, rgelt
[i
].uiCodePage
,
1114 rgelt
[i
].uiFamilyCodePage
,
1115 wine_dbgstr_w(rgelt
[i
].wszDescription
),
1116 wine_dbgstr_w(rgelt
[i
].wszWebCharset
),
1117 wine_dbgstr_w(rgelt
[i
].wszHeaderCharset
),
1118 wine_dbgstr_w(rgelt
[i
].wszBodyCharset
),
1119 wine_dbgstr_w(rgelt
[i
].wszFixedWidthFont
),
1120 wine_dbgstr_w(rgelt
[i
].wszProportionalFont
),
1121 rgelt
[i
].bGDICharset
);
1126 static HRESULT WINAPI
fnIEnumCodePage_Reset(
1127 IEnumCodePage
* iface
)
1129 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1130 TRACE("%p\n", This
);
1136 static HRESULT WINAPI
fnIEnumCodePage_Skip(
1137 IEnumCodePage
* iface
,
1140 ICOM_THIS_MULTI(EnumCodePage_impl
, vtbl_IEnumCodePage
, iface
);
1141 TRACE("%p %u\n", This
, celt
);
1143 if (celt
>= This
->total
) return S_FALSE
;
1149 static const IEnumCodePageVtbl IEnumCodePage_vtbl
=
1151 fnIEnumCodePage_QueryInterface
,
1152 fnIEnumCodePage_AddRef
,
1153 fnIEnumCodePage_Release
,
1154 fnIEnumCodePage_Clone
,
1155 fnIEnumCodePage_Next
,
1156 fnIEnumCodePage_Reset
,
1157 fnIEnumCodePage_Skip
1160 static HRESULT
EnumCodePage_create( MLang_impl
* mlang
, DWORD grfFlags
,
1161 LANGID LangId
, IEnumCodePage
** ppEnumCodePage
)
1163 EnumCodePage_impl
*ecp
;
1167 TRACE("%p, %08x, %04x, %p\n", mlang
, grfFlags
, LangId
, ppEnumCodePage
);
1169 if (!grfFlags
) /* enumerate internal data base of encodings */
1170 grfFlags
= MIMECONTF_MIME_LATEST
;
1172 ecp
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl
) );
1173 ecp
->vtbl_IEnumCodePage
= &IEnumCodePage_vtbl
;
1177 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1179 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1181 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1186 ecp
->cpinfo
= HeapAlloc(GetProcessHeap(), 0,
1187 sizeof(MIMECPINFO
) * ecp
->total
);
1188 cpinfo
= ecp
->cpinfo
;
1190 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1192 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1194 if (mlang_data
[i
].mime_cp_info
[n
].flags
& grfFlags
)
1195 fill_cp_info(&mlang_data
[i
], n
, cpinfo
++);
1199 TRACE("enumerated %d codepages with flags %08x\n", ecp
->total
, grfFlags
);
1201 *ppEnumCodePage
= (IEnumCodePage
*) ecp
;
1206 /******************************************************************************/
1208 typedef struct tagEnumScript_impl
1210 const IEnumScriptVtbl
*vtbl_IEnumScript
;
1212 SCRIPTINFO
*script_info
;
1216 static HRESULT WINAPI
fnIEnumScript_QueryInterface(
1221 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1223 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1225 if (IsEqualGUID(riid
, &IID_IUnknown
)
1226 || IsEqualGUID(riid
, &IID_IEnumScript
))
1228 IEnumScript_AddRef(iface
);
1229 TRACE("Returning IID_IEnumScript %p ref = %d\n", This
, This
->ref
);
1230 *ppvObject
= &(This
->vtbl_IEnumScript
);
1234 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppvObject
);
1235 return E_NOINTERFACE
;
1238 static ULONG WINAPI
fnIEnumScript_AddRef(
1241 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1242 return InterlockedIncrement(&This
->ref
);
1245 static ULONG WINAPI
fnIEnumScript_Release(
1248 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1249 ULONG ref
= InterlockedDecrement(&This
->ref
);
1251 TRACE("%p ref = %d\n", This
, ref
);
1254 TRACE("Destroying %p\n", This
);
1255 HeapFree(GetProcessHeap(), 0, This
->script_info
);
1256 HeapFree(GetProcessHeap(), 0, This
);
1262 static HRESULT WINAPI
fnIEnumScript_Clone(
1264 IEnumScript
** ppEnum
)
1266 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1267 FIXME("%p %p: stub!\n", This
, ppEnum
);
1271 static HRESULT WINAPI
fnIEnumScript_Next(
1275 ULONG
* pceltFetched
)
1277 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1278 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1280 if (!pceltFetched
|| !rgelt
) return E_FAIL
;
1284 if (This
->pos
+ celt
> This
->total
)
1285 celt
= This
->total
- This
->pos
;
1287 if (!celt
) return S_FALSE
;
1289 memcpy(rgelt
, This
->script_info
+ This
->pos
, celt
* sizeof(SCRIPTINFO
));
1290 *pceltFetched
= celt
;
1296 static HRESULT WINAPI
fnIEnumScript_Reset(
1299 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1300 TRACE("%p\n", This
);
1306 static HRESULT WINAPI
fnIEnumScript_Skip(
1310 ICOM_THIS_MULTI(EnumScript_impl
, vtbl_IEnumScript
, iface
);
1311 TRACE("%p %u\n", This
, celt
);
1313 if (celt
>= This
->total
) return S_FALSE
;
1319 static const IEnumScriptVtbl IEnumScript_vtbl
=
1321 fnIEnumScript_QueryInterface
,
1322 fnIEnumScript_AddRef
,
1323 fnIEnumScript_Release
,
1324 fnIEnumScript_Clone
,
1326 fnIEnumScript_Reset
,
1330 static HRESULT
EnumScript_create( MLang_impl
* mlang
, DWORD dwFlags
,
1331 LANGID LangId
, IEnumScript
** ppEnumScript
)
1333 EnumScript_impl
*es
;
1336 TRACE("%p, %08x, %04x, %p: stub!\n", mlang
, dwFlags
, LangId
, ppEnumScript
);
1338 if (!dwFlags
) /* enumerate all available scripts */
1339 dwFlags
= SCRIPTCONTF_SCRIPT_USER
| SCRIPTCONTF_SCRIPT_HIDE
| SCRIPTCONTF_SCRIPT_SYSTEM
;
1341 es
= HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl
) );
1342 es
->vtbl_IEnumScript
= &IEnumScript_vtbl
;
1345 /* do not enumerate unicode flavours */
1346 es
->total
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
1347 es
->script_info
= HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO
) * es
->total
);
1349 for (i
= 0; i
< es
->total
; i
++)
1351 es
->script_info
[i
].ScriptId
= i
;
1352 es
->script_info
[i
].uiCodePage
= mlang_data
[i
].family_codepage
;
1353 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].description
, -1,
1354 es
->script_info
[i
].wszDescription
, MAX_SCRIPT_NAME
);
1355 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].fixed_font
, -1,
1356 es
->script_info
[i
].wszFixedWidthFont
, MAX_MIMEFACE_NAME
);
1357 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].proportional_font
, -1,
1358 es
->script_info
[i
].wszProportionalFont
, MAX_MIMEFACE_NAME
);
1361 TRACE("enumerated %d scripts with flags %08x\n", es
->total
, dwFlags
);
1363 *ppEnumScript
= (IEnumScript
*)es
;
1368 /******************************************************************************/
1370 static HRESULT WINAPI
fnIMLangFontLink_QueryInterface(
1371 IMLangFontLink
* iface
,
1375 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1376 return MLang_QueryInterface( This
, riid
, ppvObject
);
1379 static ULONG WINAPI
fnIMLangFontLink_AddRef(
1380 IMLangFontLink
* iface
)
1382 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1383 return MLang_AddRef( This
);
1386 static ULONG WINAPI
fnIMLangFontLink_Release(
1387 IMLangFontLink
* iface
)
1389 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1390 return MLang_Release( This
);
1393 static HRESULT WINAPI
fnIMLangFontLink_GetCharCodePages(
1394 IMLangFontLink
* iface
,
1396 DWORD
* pdwCodePages
)
1402 static HRESULT WINAPI
fnIMLangFontLink_GetStrCodePages(
1403 IMLangFontLink
* iface
,
1404 const WCHAR
* pszSrc
,
1406 DWORD dwPriorityCodePages
,
1407 DWORD
* pdwCodePages
,
1408 long* pcchCodePages
)
1410 FIXME("(pszSrc=%s, cchSrc=%ld, dwPriorityCodePages=%d) stub\n", debugstr_w(pszSrc
), cchSrc
, dwPriorityCodePages
);
1416 static HRESULT WINAPI
fnIMLangFontLink_CodePageToCodePages(
1417 IMLangFontLink
* iface
,
1419 DWORD
* pdwCodePages
)
1421 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1425 TRACE("(%p) Seeking %u\n",This
, uCodePage
);
1426 memset(&cs
, 0, sizeof(cs
));
1428 rc
= TranslateCharsetInfo((DWORD
*)uCodePage
, &cs
, TCI_SRCCODEPAGE
);
1432 *pdwCodePages
= cs
.fs
.fsCsb
[0];
1433 TRACE("resulting CodePages 0x%x\n",*pdwCodePages
);
1436 TRACE("CodePage Not Found\n");
1441 static HRESULT WINAPI
fnIMLangFontLink_CodePagesToCodePage(
1442 IMLangFontLink
* iface
,
1444 UINT uDefaultCodePage
,
1447 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1448 DWORD mask
= 0x00000000;
1453 TRACE("(%p) scanning 0x%x default page %u\n",This
, dwCodePages
,
1456 *puCodePage
= 0x00000000;
1458 rc
= TranslateCharsetInfo((DWORD
*)uDefaultCodePage
, &cs
, TCI_SRCCODEPAGE
);
1460 if (rc
&& (dwCodePages
& cs
.fs
.fsCsb
[0]))
1462 TRACE("Found Default Codepage\n");
1463 *puCodePage
= uDefaultCodePage
;
1468 for (i
= 0; i
< 32; i
++)
1472 if (dwCodePages
& mask
)
1477 rc
= TranslateCharsetInfo((DWORD
*)Csb
, &cs
, TCI_SRCFONTSIG
);
1481 TRACE("Falling back to least significant found CodePage %u\n",
1483 *puCodePage
= cs
.ciACP
;
1488 TRACE("no codepage found\n");
1492 static HRESULT WINAPI
fnIMLangFontLink_GetFontCodePages(
1493 IMLangFontLink
* iface
,
1496 DWORD
* pdwCodePages
)
1499 FONTSIGNATURE fontsig
;
1500 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMLangFontLink
, iface
);
1502 TRACE("(%p)\n",This
);
1504 old_font
= SelectObject(hDC
,hFont
);
1505 GetTextCharsetInfo(hDC
,&fontsig
, 0);
1506 SelectObject(hDC
,old_font
);
1508 *pdwCodePages
= fontsig
.fsCsb
[0];
1509 TRACE("CodePages is 0x%x\n",fontsig
.fsCsb
[0]);
1514 static HRESULT WINAPI
fnIMLangFontLink_MapFont(
1515 IMLangFontLink
* iface
,
1525 static HRESULT WINAPI
fnIMLangFontLink_ReleaseFont(
1526 IMLangFontLink
* iface
,
1533 static HRESULT WINAPI
fnIMLangFontLink_ResetFontMapping(
1534 IMLangFontLink
* iface
)
1541 static const IMLangFontLinkVtbl IMLangFontLink_vtbl
=
1543 fnIMLangFontLink_QueryInterface
,
1544 fnIMLangFontLink_AddRef
,
1545 fnIMLangFontLink_Release
,
1546 fnIMLangFontLink_GetCharCodePages
,
1547 fnIMLangFontLink_GetStrCodePages
,
1548 fnIMLangFontLink_CodePageToCodePages
,
1549 fnIMLangFontLink_CodePagesToCodePage
,
1550 fnIMLangFontLink_GetFontCodePages
,
1551 fnIMLangFontLink_MapFont
,
1552 fnIMLangFontLink_ReleaseFont
,
1553 fnIMLangFontLink_ResetFontMapping
,
1556 /******************************************************************************/
1558 static HRESULT WINAPI
fnIMultiLanguage_QueryInterface(
1559 IMultiLanguage
* iface
,
1563 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1564 return MLang_QueryInterface( This
, riid
, ppvObject
);
1567 static ULONG WINAPI
fnIMultiLanguage_AddRef( IMultiLanguage
* iface
)
1569 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1570 return IMLangFontLink_AddRef( ((IMLangFontLink
*)This
) );
1573 static ULONG WINAPI
fnIMultiLanguage_Release( IMultiLanguage
* iface
)
1575 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1576 return IMLangFontLink_Release( ((IMLangFontLink
*)This
) );
1579 static HRESULT WINAPI
fnIMultiLanguage_GetNumberOfCodePageInfo(
1580 IMultiLanguage
* iface
,
1587 static HRESULT WINAPI
fnIMultiLanguage_GetCodePageInfo(
1588 IMultiLanguage
* iface
,
1590 PMIMECPINFO pCodePageInfo
)
1594 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1595 TRACE("%p, %u, %p\n", This
, uiCodePage
, pCodePageInfo
);
1597 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
1599 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
1601 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
1603 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
1612 static HRESULT WINAPI
fnIMultiLanguage_GetFamilyCodePage(
1613 IMultiLanguage
* iface
,
1615 UINT
* puiFamilyCodePage
)
1617 return GetFamilyCodePage(uiCodePage
, puiFamilyCodePage
);
1620 static HRESULT WINAPI
fnIMultiLanguage_EnumCodePages(
1621 IMultiLanguage
* iface
,
1623 IEnumCodePage
** ppEnumCodePage
)
1625 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1626 TRACE("%p %08x %p\n", This
, grfFlags
, ppEnumCodePage
);
1628 return EnumCodePage_create( This
, grfFlags
, 0, ppEnumCodePage
);
1631 static HRESULT WINAPI
fnIMultiLanguage_GetCharsetInfo(
1632 IMultiLanguage
* iface
,
1634 PMIMECSETINFO pCharsetInfo
)
1640 static HRESULT WINAPI
fnIMultiLanguage_IsConvertible(
1641 IMultiLanguage
* iface
,
1642 DWORD dwSrcEncoding
,
1643 DWORD dwDstEncoding
)
1645 return IsConvertINetStringAvailable(dwSrcEncoding
, dwDstEncoding
);
1648 static HRESULT WINAPI
fnIMultiLanguage_ConvertString(
1649 IMultiLanguage
* iface
,
1651 DWORD dwSrcEncoding
,
1652 DWORD dwDstEncoding
,
1658 return ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
,
1659 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, (LPSTR
)pDstStr
, (LPINT
)pcDstSize
);
1662 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringToUnicode(
1663 IMultiLanguage
* iface
,
1671 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
1672 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
1675 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringFromUnicode(
1676 IMultiLanguage
* iface
,
1684 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
1685 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
1688 static HRESULT WINAPI
fnIMultiLanguage_ConvertStringReset(
1689 IMultiLanguage
* iface
)
1695 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766FromLcid(
1696 IMultiLanguage
* iface
,
1700 WCHAR buf
[MAX_RFC1766_NAME
];
1702 TRACE("%p %04x %p\n", iface
, lcid
, pbstrRfc1766
);
1704 if (lcid_to_rfc1766W( lcid
, buf
, MAX_RFC1766_NAME
))
1706 *pbstrRfc1766
= SysAllocString( buf
);
1712 static HRESULT WINAPI
fnIMultiLanguage_GetLcidFromRfc1766(
1713 IMultiLanguage
* iface
,
1718 IEnumRfc1766
*rfc1766
;
1720 TRACE("%p %p %s\n", iface
, pLocale
, debugstr_w(bstrRfc1766
));
1722 if (!pLocale
|| !bstrRfc1766
)
1723 return E_INVALIDARG
;
1725 hr
= IMultiLanguage_EnumRfc1766(iface
, &rfc1766
);
1729 hr
= lcid_from_rfc1766(rfc1766
, pLocale
, bstrRfc1766
);
1731 IEnumRfc1766_Release(rfc1766
);
1735 /******************************************************************************/
1737 typedef struct tagEnumRfc1766_impl
1739 const IEnumRfc1766Vtbl
*vtbl_IEnumRfc1766
;
1745 static HRESULT WINAPI
fnIEnumRfc1766_QueryInterface(
1746 IEnumRfc1766
*iface
,
1750 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1752 TRACE("%p -> %s\n", This
, debugstr_guid(riid
) );
1754 if (IsEqualGUID(riid
, &IID_IUnknown
)
1755 || IsEqualGUID(riid
, &IID_IEnumRfc1766
))
1757 IEnumRfc1766_AddRef(iface
);
1758 TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This
, This
->ref
);
1759 *ppvObject
= &(This
->vtbl_IEnumRfc1766
);
1763 WARN("(%p) -> (%s,%p), not found\n",This
,debugstr_guid(riid
),ppvObject
);
1764 return E_NOINTERFACE
;
1767 static ULONG WINAPI
fnIEnumRfc1766_AddRef(
1768 IEnumRfc1766
*iface
)
1770 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1771 return InterlockedIncrement(&This
->ref
);
1774 static ULONG WINAPI
fnIEnumRfc1766_Release(
1775 IEnumRfc1766
*iface
)
1777 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1778 ULONG ref
= InterlockedDecrement(&This
->ref
);
1780 TRACE("%p ref = %d\n", This
, ref
);
1783 TRACE("Destroying %p\n", This
);
1784 HeapFree(GetProcessHeap(), 0, This
->info
);
1785 HeapFree(GetProcessHeap(), 0, This
);
1790 static HRESULT WINAPI
fnIEnumRfc1766_Clone(
1791 IEnumRfc1766
*iface
,
1792 IEnumRfc1766
**ppEnum
)
1794 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1795 FIXME("%p %p\n", This
, ppEnum
);
1799 static HRESULT WINAPI
fnIEnumRfc1766_Next(
1800 IEnumRfc1766
*iface
,
1803 ULONG
*pceltFetched
)
1807 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1808 TRACE("%p %u %p %p\n", This
, celt
, rgelt
, pceltFetched
);
1810 if (!pceltFetched
) return S_FALSE
;
1813 if (!rgelt
) return S_FALSE
;
1815 if (This
->pos
+ celt
> This
->total
)
1816 celt
= This
->total
- This
->pos
;
1818 if (!celt
) return S_FALSE
;
1820 memcpy(rgelt
, This
->info
+ This
->pos
, celt
* sizeof(RFC1766INFO
));
1821 *pceltFetched
= celt
;
1824 for (i
= 0; i
< celt
; i
++)
1826 TRACE("#%u: %08x %s %s\n",
1828 wine_dbgstr_w(rgelt
[i
].wszRfc1766
),
1829 wine_dbgstr_w(rgelt
[i
].wszLocaleName
));
1834 static HRESULT WINAPI
fnIEnumRfc1766_Reset(
1835 IEnumRfc1766
*iface
)
1837 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1838 TRACE("%p\n", This
);
1844 static HRESULT WINAPI
fnIEnumRfc1766_Skip(
1845 IEnumRfc1766
*iface
,
1848 ICOM_THIS_MULTI(EnumRfc1766_impl
, vtbl_IEnumRfc1766
, iface
);
1849 TRACE("%p %u\n", This
, celt
);
1851 if (celt
>= This
->total
) return S_FALSE
;
1857 static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl
=
1859 fnIEnumRfc1766_QueryInterface
,
1860 fnIEnumRfc1766_AddRef
,
1861 fnIEnumRfc1766_Release
,
1862 fnIEnumRfc1766_Clone
,
1863 fnIEnumRfc1766_Next
,
1864 fnIEnumRfc1766_Reset
,
1868 struct enum_locales_data
1871 DWORD total
, allocated
;
1874 static BOOL CALLBACK
enum_locales_proc(LPWSTR locale
)
1877 struct enum_locales_data
*data
= TlsGetValue(MLANG_tls_index
);
1880 TRACE("%s\n", debugstr_w(locale
));
1882 if (data
->total
>= data
->allocated
)
1884 data
->allocated
+= 32;
1885 data
->info
= HeapReAlloc(GetProcessHeap(), 0, data
->info
, data
->allocated
* sizeof(RFC1766INFO
));
1886 if (!data
->info
) return FALSE
;
1889 info
= &data
->info
[data
->total
];
1891 info
->lcid
= strtolW(locale
, &end
, 16);
1892 if (*end
) /* invalid number */
1895 info
->wszRfc1766
[0] = 0;
1896 lcid_to_rfc1766W( info
->lcid
, info
->wszRfc1766
, MAX_RFC1766_NAME
);
1898 info
->wszLocaleName
[0] = 0;
1899 GetLocaleInfoW(info
->lcid
, LOCALE_SLANGUAGE
, info
->wszLocaleName
, MAX_LOCALE_NAME
);
1900 TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info
->wszRfc1766
), wine_dbgstr_w(info
->wszLocaleName
));
1907 static HRESULT
EnumRfc1766_create(LANGID LangId
, IEnumRfc1766
**ppEnum
)
1909 EnumRfc1766_impl
*rfc
;
1910 struct enum_locales_data data
;
1912 TRACE("%04x, %p\n", LangId
, ppEnum
);
1914 rfc
= HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl
) );
1915 rfc
->vtbl_IEnumRfc1766
= &IEnumRfc1766_vtbl
;
1921 data
.allocated
= 32;
1922 data
.info
= HeapAlloc(GetProcessHeap(), 0, data
.allocated
* sizeof(RFC1766INFO
));
1925 HeapFree(GetProcessHeap(), 0, rfc
);
1929 TlsSetValue(MLANG_tls_index
, &data
);
1930 EnumSystemLocalesW(enum_locales_proc
, 0/*LOCALE_SUPPORTED*/);
1931 TlsSetValue(MLANG_tls_index
, NULL
);
1933 TRACE("enumerated %d rfc1766 structures\n", data
.total
);
1937 HeapFree(GetProcessHeap(), 0, data
.info
);
1938 HeapFree(GetProcessHeap(), 0, rfc
);
1942 rfc
->info
= data
.info
;
1943 rfc
->total
= data
.total
;
1945 *ppEnum
= (IEnumRfc1766
*)rfc
;
1949 static HRESULT WINAPI
fnIMultiLanguage_EnumRfc1766(
1950 IMultiLanguage
*iface
,
1951 IEnumRfc1766
**ppEnumRfc1766
)
1953 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
1954 TRACE("%p %p\n", This
, ppEnumRfc1766
);
1956 return EnumRfc1766_create(0, ppEnumRfc1766
);
1959 /******************************************************************************/
1961 static HRESULT WINAPI
fnIMultiLanguage_GetRfc1766Info(
1962 IMultiLanguage
* iface
,
1964 PRFC1766INFO pRfc1766Info
)
1970 static HRESULT WINAPI
fnIMultiLanguage_CreateConvertCharset(
1971 IMultiLanguage
* iface
,
1975 IMLangConvertCharset
** ppMLangConvertCharset
)
1981 static const IMultiLanguageVtbl IMultiLanguage_vtbl
=
1983 fnIMultiLanguage_QueryInterface
,
1984 fnIMultiLanguage_AddRef
,
1985 fnIMultiLanguage_Release
,
1986 fnIMultiLanguage_GetNumberOfCodePageInfo
,
1987 fnIMultiLanguage_GetCodePageInfo
,
1988 fnIMultiLanguage_GetFamilyCodePage
,
1989 fnIMultiLanguage_EnumCodePages
,
1990 fnIMultiLanguage_GetCharsetInfo
,
1991 fnIMultiLanguage_IsConvertible
,
1992 fnIMultiLanguage_ConvertString
,
1993 fnIMultiLanguage_ConvertStringToUnicode
,
1994 fnIMultiLanguage_ConvertStringFromUnicode
,
1995 fnIMultiLanguage_ConvertStringReset
,
1996 fnIMultiLanguage_GetRfc1766FromLcid
,
1997 fnIMultiLanguage_GetLcidFromRfc1766
,
1998 fnIMultiLanguage_EnumRfc1766
,
1999 fnIMultiLanguage_GetRfc1766Info
,
2000 fnIMultiLanguage_CreateConvertCharset
,
2004 /******************************************************************************/
2006 static HRESULT WINAPI
fnIMultiLanguage2_QueryInterface(
2007 IMultiLanguage3
* iface
,
2011 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2012 return MLang_QueryInterface( This
, riid
, ppvObject
);
2015 static ULONG WINAPI
fnIMultiLanguage2_AddRef( IMultiLanguage3
* iface
)
2017 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2018 return MLang_AddRef( This
);
2021 static ULONG WINAPI
fnIMultiLanguage2_Release( IMultiLanguage3
* iface
)
2023 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2024 return MLang_Release( This
);
2027 static HRESULT WINAPI
fnIMultiLanguage2_GetNumberOfCodePageInfo(
2028 IMultiLanguage3
* iface
,
2031 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2032 TRACE("%p, %p\n", This
, pcCodePage
);
2034 if (!pcCodePage
) return S_FALSE
;
2036 *pcCodePage
= This
->total_cp
;
2040 static void fill_cp_info(const struct mlang_data
*ml_data
, UINT index
, MIMECPINFO
*mime_cp_info
)
2044 if (TranslateCharsetInfo((DWORD
*)ml_data
->family_codepage
, &csi
, TCI_SRCCODEPAGE
))
2045 mime_cp_info
->bGDICharset
= csi
.ciCharset
;
2047 mime_cp_info
->bGDICharset
= DEFAULT_CHARSET
;
2049 mime_cp_info
->dwFlags
= ml_data
->mime_cp_info
[index
].flags
;
2050 mime_cp_info
->uiCodePage
= ml_data
->mime_cp_info
[index
].cp
;
2051 mime_cp_info
->uiFamilyCodePage
= ml_data
->family_codepage
;
2052 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].description
, -1,
2053 mime_cp_info
->wszDescription
, sizeof(mime_cp_info
->wszDescription
)/sizeof(WCHAR
));
2054 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].web_charset
, -1,
2055 mime_cp_info
->wszWebCharset
, sizeof(mime_cp_info
->wszWebCharset
)/sizeof(WCHAR
));
2056 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].header_charset
, -1,
2057 mime_cp_info
->wszHeaderCharset
, sizeof(mime_cp_info
->wszHeaderCharset
)/sizeof(WCHAR
));
2058 MultiByteToWideChar(CP_ACP
, 0, ml_data
->mime_cp_info
[index
].body_charset
, -1,
2059 mime_cp_info
->wszBodyCharset
, sizeof(mime_cp_info
->wszBodyCharset
)/sizeof(WCHAR
));
2061 MultiByteToWideChar(CP_ACP
, 0, ml_data
->fixed_font
, -1,
2062 mime_cp_info
->wszFixedWidthFont
, sizeof(mime_cp_info
->wszFixedWidthFont
)/sizeof(WCHAR
));
2063 MultiByteToWideChar(CP_ACP
, 0, ml_data
->proportional_font
, -1,
2064 mime_cp_info
->wszProportionalFont
, sizeof(mime_cp_info
->wszProportionalFont
)/sizeof(WCHAR
));
2066 TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
2067 mime_cp_info
->dwFlags
, mime_cp_info
->uiCodePage
,
2068 mime_cp_info
->uiFamilyCodePage
,
2069 wine_dbgstr_w(mime_cp_info
->wszDescription
),
2070 wine_dbgstr_w(mime_cp_info
->wszWebCharset
),
2071 wine_dbgstr_w(mime_cp_info
->wszHeaderCharset
),
2072 wine_dbgstr_w(mime_cp_info
->wszBodyCharset
),
2073 wine_dbgstr_w(mime_cp_info
->wszFixedWidthFont
),
2074 wine_dbgstr_w(mime_cp_info
->wszProportionalFont
),
2075 mime_cp_info
->bGDICharset
);
2078 static HRESULT WINAPI
fnIMultiLanguage2_GetCodePageInfo(
2079 IMultiLanguage3
* iface
,
2082 PMIMECPINFO pCodePageInfo
)
2086 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2087 TRACE("%p, %u, %04x, %p\n", This
, uiCodePage
, LangId
, pCodePageInfo
);
2089 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2091 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2093 if (mlang_data
[i
].mime_cp_info
[n
].cp
== uiCodePage
)
2095 fill_cp_info(&mlang_data
[i
], n
, pCodePageInfo
);
2104 static HRESULT WINAPI
fnIMultiLanguage2_GetFamilyCodePage(
2105 IMultiLanguage3
* iface
,
2107 UINT
* puiFamilyCodePage
)
2109 return GetFamilyCodePage(uiCodePage
, puiFamilyCodePage
);
2112 static HRESULT WINAPI
fnIMultiLanguage2_EnumCodePages(
2113 IMultiLanguage3
* iface
,
2116 IEnumCodePage
** ppEnumCodePage
)
2118 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2119 TRACE("%p %08x %04x %p\n", This
, grfFlags
, LangId
, ppEnumCodePage
);
2121 return EnumCodePage_create( This
, grfFlags
, LangId
, ppEnumCodePage
);
2124 static HRESULT WINAPI
fnIMultiLanguage2_GetCharsetInfo(
2125 IMultiLanguage3
* iface
,
2127 PMIMECSETINFO pCharsetInfo
)
2131 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2132 TRACE("%p %s %p\n", This
, debugstr_w(Charset
), pCharsetInfo
);
2134 if (!pCharsetInfo
) return E_FAIL
;
2136 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2138 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2140 WCHAR csetW
[MAX_MIMECSET_NAME
];
2142 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].web_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2143 if (!lstrcmpiW(Charset
, csetW
))
2145 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2146 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2147 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2154 * Since we do not support charsets like iso-2022-jp and do not have
2155 * them in our database as a primary (web_charset) encoding this loop
2156 * does an attempt to 'approximate' charset name by header_charset.
2158 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2160 for (n
= 0; n
< mlang_data
[i
].number_of_cp
; n
++)
2162 WCHAR csetW
[MAX_MIMECSET_NAME
];
2164 MultiByteToWideChar(CP_ACP
, 0, mlang_data
[i
].mime_cp_info
[n
].header_charset
, -1, csetW
, MAX_MIMECSET_NAME
);
2165 if (!lstrcmpiW(Charset
, csetW
))
2167 pCharsetInfo
->uiCodePage
= mlang_data
[i
].family_codepage
;
2168 pCharsetInfo
->uiInternetEncoding
= mlang_data
[i
].mime_cp_info
[n
].cp
;
2169 strcpyW(pCharsetInfo
->wszCharset
, csetW
);
2178 static HRESULT WINAPI
fnIMultiLanguage2_IsConvertible(
2179 IMultiLanguage3
* iface
,
2180 DWORD dwSrcEncoding
,
2181 DWORD dwDstEncoding
)
2183 return IsConvertINetStringAvailable(dwSrcEncoding
, dwDstEncoding
);
2186 static HRESULT WINAPI
fnIMultiLanguage2_ConvertString(
2187 IMultiLanguage3
* iface
,
2189 DWORD dwSrcEncoding
,
2190 DWORD dwDstEncoding
,
2196 return ConvertINetString(pdwMode
, dwSrcEncoding
, dwDstEncoding
,
2197 (LPCSTR
)pSrcStr
, (LPINT
)pcSrcSize
, (LPSTR
)pDstStr
, (LPINT
)pcDstSize
);
2200 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringToUnicode(
2201 IMultiLanguage3
* iface
,
2209 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2210 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2213 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringFromUnicode(
2214 IMultiLanguage3
* iface
,
2222 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2223 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2226 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringReset(
2227 IMultiLanguage3
* iface
)
2233 static HRESULT WINAPI
fnIMultiLanguage2_GetRfc1766FromLcid(
2234 IMultiLanguage3
* iface
,
2238 WCHAR buf
[MAX_RFC1766_NAME
];
2240 TRACE("%p %04x %p\n", iface
, lcid
, pbstrRfc1766
);
2242 if (lcid_to_rfc1766W( lcid
, buf
, MAX_RFC1766_NAME
))
2244 *pbstrRfc1766
= SysAllocString( buf
);
2250 static HRESULT WINAPI
fnIMultiLanguage2_GetLcidFromRfc1766(
2251 IMultiLanguage3
* iface
,
2256 IEnumRfc1766
*rfc1766
;
2258 TRACE("%p %p %s\n", iface
, pLocale
, debugstr_w(bstrRfc1766
));
2260 if (!pLocale
|| !bstrRfc1766
)
2261 return E_INVALIDARG
;
2263 hr
= IMultiLanguage2_EnumRfc1766(iface
, 0, &rfc1766
);
2267 hr
= lcid_from_rfc1766(rfc1766
, pLocale
, bstrRfc1766
);
2269 IEnumRfc1766_Release(rfc1766
);
2273 static HRESULT WINAPI
fnIMultiLanguage2_EnumRfc1766(
2274 IMultiLanguage3
* iface
,
2276 IEnumRfc1766
** ppEnumRfc1766
)
2278 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage
, iface
);
2279 TRACE("%p %p\n", This
, ppEnumRfc1766
);
2281 return EnumRfc1766_create(LangId
, ppEnumRfc1766
);
2284 static HRESULT WINAPI
fnIMultiLanguage2_GetRfc1766Info(
2285 IMultiLanguage3
* iface
,
2288 PRFC1766INFO pRfc1766Info
)
2294 static HRESULT WINAPI
fnIMultiLanguage2_CreateConvertCharset(
2295 IMultiLanguage3
* iface
,
2299 IMLangConvertCharset
** ppMLangConvertCharset
)
2305 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringInIStream(
2306 IMultiLanguage3
* iface
,
2310 DWORD dwSrcEncoding
,
2311 DWORD dwDstEncoding
,
2320 * TODO: handle dwFlag and lpFallBack
2322 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringToUnicodeEx(
2323 IMultiLanguage3
* iface
,
2334 return ConvertINetMultiByteToUnicode(pdwMode
, dwEncoding
,
2335 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2338 /*****************************************************************************
2339 * MultiLanguage2::ConvertStringToUnicodeEx
2341 * Translates the multibyte string from the specified code page to Unicode.
2344 * see ConvertStringToUnicode
2346 * lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
2347 * instead unconvertible characters.
2351 * S_FALSE The conversion is not supported.
2352 * E_FAIL Some error has occurred.
2354 * TODO: handle dwFlag and lpFallBack
2356 static HRESULT WINAPI
fnIMultiLanguage2_ConvertStringFromUnicodeEx(
2357 IMultiLanguage3
* This
,
2368 return ConvertINetUnicodeToMultiByte(pdwMode
, dwEncoding
,
2369 pSrcStr
, (LPINT
)pcSrcSize
, pDstStr
, (LPINT
)pcDstSize
);
2372 static HRESULT WINAPI
fnIMultiLanguage2_DetectCodepageInIStream(
2373 IMultiLanguage3
* iface
,
2375 DWORD dwPrefWinCodePage
,
2377 DetectEncodingInfo
* lpEncoding
,
2384 static HRESULT WINAPI
fnIMultiLanguage2_DetectInputCodepage(
2385 IMultiLanguage3
* iface
,
2387 DWORD dwPrefWinCodePage
,
2390 DetectEncodingInfo
* lpEncoding
,
2397 static HRESULT WINAPI
fnIMultiLanguage2_ValidateCodePage(
2398 IMultiLanguage3
* iface
,
2402 FIXME("%u, %p\n", uiCodePage
, hwnd
);
2406 static HRESULT WINAPI
fnIMultiLanguage2_GetCodePageDescription(
2407 IMultiLanguage3
* iface
,
2410 LPWSTR lpWideCharStr
,
2413 FIXME("%u, %04x, %p, %d\n", uiCodePage
, lcid
, lpWideCharStr
, cchWideChar
);
2417 static HRESULT WINAPI
fnIMultiLanguage2_IsCodePageInstallable(
2418 IMultiLanguage3
* iface
,
2421 FIXME("%u\n", uiCodePage
);
2425 static HRESULT WINAPI
fnIMultiLanguage2_SetMimeDBSource(
2426 IMultiLanguage3
* iface
,
2429 FIXME("0x%08x\n", dwSource
);
2433 static HRESULT WINAPI
fnIMultiLanguage2_GetNumberOfScripts(
2434 IMultiLanguage3
* iface
,
2437 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2438 TRACE("%p %p\n", This
, pnScripts
);
2440 if (!pnScripts
) return S_FALSE
;
2442 *pnScripts
= This
->total_scripts
;
2446 static HRESULT WINAPI
fnIMultiLanguage2_EnumScripts(
2447 IMultiLanguage3
* iface
,
2450 IEnumScript
** ppEnumScript
)
2452 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2453 TRACE("%p %08x %04x %p\n", This
, dwFlags
, LangId
, ppEnumScript
);
2455 return EnumScript_create( This
, dwFlags
, LangId
, ppEnumScript
);
2458 static HRESULT WINAPI
fnIMultiLanguage2_ValidateCodePageEx(
2459 IMultiLanguage3
* iface
,
2462 DWORD dwfIODControl
)
2464 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2465 FIXME("%p %u %p %08x: stub!\n", This
, uiCodePage
, hwnd
, dwfIODControl
);
2470 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePage(
2471 IMultiLanguage3
*iface
,
2473 LPCWSTR lpWideCharStr
,
2475 UINT
*puiPreferredCodePages
,
2476 UINT nPreferredCodePages
,
2477 UINT
*puiDetectedCodePages
,
2478 UINT
*pnDetectedCodePages
,
2479 WCHAR
*lpSpecialChar
)
2481 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2482 FIXME("(%p)->(%08x %s %u %p %u %p %p %p)\n", This
, dwFlags
, debugstr_w(lpWideCharStr
),
2483 cchWideChar
, puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
2484 pnDetectedCodePages
, lpSpecialChar
);
2488 static HRESULT WINAPI
fnIMultiLanguage3_DetectOutboundCodePageInIStream(
2489 IMultiLanguage3
*iface
,
2492 UINT
*puiPreferredCodePages
,
2493 UINT nPreferredCodePages
,
2494 UINT
*puiDetectedCodePages
,
2495 UINT
*pnDetectedCodePages
,
2496 WCHAR
*lpSpecialChar
)
2498 ICOM_THIS_MULTI(MLang_impl
, vtbl_IMultiLanguage3
, iface
);
2499 FIXME("(%p)->(%08x %p %p %u %p %p %p)\n", This
, dwFlags
, pStrIn
,
2500 puiPreferredCodePages
, nPreferredCodePages
, puiDetectedCodePages
,
2501 pnDetectedCodePages
, lpSpecialChar
);
2505 static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl
=
2507 fnIMultiLanguage2_QueryInterface
,
2508 fnIMultiLanguage2_AddRef
,
2509 fnIMultiLanguage2_Release
,
2510 fnIMultiLanguage2_GetNumberOfCodePageInfo
,
2511 fnIMultiLanguage2_GetCodePageInfo
,
2512 fnIMultiLanguage2_GetFamilyCodePage
,
2513 fnIMultiLanguage2_EnumCodePages
,
2514 fnIMultiLanguage2_GetCharsetInfo
,
2515 fnIMultiLanguage2_IsConvertible
,
2516 fnIMultiLanguage2_ConvertString
,
2517 fnIMultiLanguage2_ConvertStringToUnicode
,
2518 fnIMultiLanguage2_ConvertStringFromUnicode
,
2519 fnIMultiLanguage2_ConvertStringReset
,
2520 fnIMultiLanguage2_GetRfc1766FromLcid
,
2521 fnIMultiLanguage2_GetLcidFromRfc1766
,
2522 fnIMultiLanguage2_EnumRfc1766
,
2523 fnIMultiLanguage2_GetRfc1766Info
,
2524 fnIMultiLanguage2_CreateConvertCharset
,
2525 fnIMultiLanguage2_ConvertStringInIStream
,
2526 fnIMultiLanguage2_ConvertStringToUnicodeEx
,
2527 fnIMultiLanguage2_ConvertStringFromUnicodeEx
,
2528 fnIMultiLanguage2_DetectCodepageInIStream
,
2529 fnIMultiLanguage2_DetectInputCodepage
,
2530 fnIMultiLanguage2_ValidateCodePage
,
2531 fnIMultiLanguage2_GetCodePageDescription
,
2532 fnIMultiLanguage2_IsCodePageInstallable
,
2533 fnIMultiLanguage2_SetMimeDBSource
,
2534 fnIMultiLanguage2_GetNumberOfScripts
,
2535 fnIMultiLanguage2_EnumScripts
,
2536 fnIMultiLanguage2_ValidateCodePageEx
,
2537 fnIMultiLanguage3_DetectOutboundCodePage
,
2538 fnIMultiLanguage3_DetectOutboundCodePageInIStream
2541 static HRESULT
MultiLanguage_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
)
2546 TRACE("Creating MultiLanguage object\n");
2549 return CLASS_E_NOAGGREGATION
;
2551 mlang
= HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl
) );
2552 mlang
->vtbl_IMLangFontLink
= &IMLangFontLink_vtbl
;
2553 mlang
->vtbl_IMultiLanguage
= &IMultiLanguage_vtbl
;
2554 mlang
->vtbl_IMultiLanguage3
= &IMultiLanguage3_vtbl
;
2556 mlang
->total_cp
= 0;
2557 for (i
= 0; i
< sizeof(mlang_data
)/sizeof(mlang_data
[0]); i
++)
2558 mlang
->total_cp
+= mlang_data
[i
].number_of_cp
;
2560 /* do not enumerate unicode flavours */
2561 mlang
->total_scripts
= sizeof(mlang_data
)/sizeof(mlang_data
[0]) - 1;
2564 *ppObj
= (LPVOID
) mlang
;
2565 TRACE("returning %p\n", mlang
);
2572 /******************************************************************************/
2574 HRESULT WINAPI
DllCanUnloadNow(void)
2576 return dll_count
== 0 ? S_OK
: S_FALSE
;
2579 HRESULT WINAPI
GetGlobalFontLinkObject(void)