?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
msvcrt/tests: Remove a space before a '\n'.
[wine/gsoc-2012-control.git] / dlls / mlang / mlang.c
blobe002046fba20328d71a162e5e0cfc6c968cbf69e
1 /*
2 * MLANG Class Factory
3 *
4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2003,2004 Mike McCormack
6 * Copyright 2004,2005 Dmitry Timoshkov
7 *
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.
12 *
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.
17 *
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
21 */
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include <stdio.h>
27
28 #define COBJMACROS
29
30 #include "windef.h"
31 #include "winbase.h"
32 #include "wingdi.h"
33 #include "winuser.h"
34 #include "ole2.h"
35 #include "mlang.h"
36
37 #include "wine/unicode.h"
38 #include "wine/debug.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(mlang);
41
42 #include "initguid.h"
43
44 #define CP_UNICODE 1200
45
46 #define ICOM_THIS_MULTI(impl,field,iface) impl* const This=(impl*)((char*)(iface) - offsetof(impl,field))
47
48 static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj);
49 static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum);
50
51 static DWORD MLANG_tls_index; /* to store various per thead data */
52
53 /* FIXME:
54 * Under what circumstances HKEY_CLASSES_ROOT\MIME\Database\Codepage and
55 * HKEY_CLASSES_ROOT\MIME\Database\Charset are used?
56 */
57
58 typedef struct
59 {
60 const char *description;
61 UINT cp;
62 DWORD flags;
63 const char *web_charset;
64 const char *header_charset;
65 const char *body_charset;
66 } MIME_CP_INFO;
67
68 /* These data are based on the codepage info in libs/unicode/cpmap.pl */
69 /* FIXME: Add 28604 (Celtic), 28606 (Balkan) */
70
71 static const MIME_CP_INFO arabic_cp[] =
72 {
73 { "Arabic (864)",
74 864, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
75 MIMECONTF_MIME_LATEST,
76 "ibm864", "ibm864", "ibm864" },
77 { "Arabic (1006)",
78 1006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
79 MIMECONTF_MIME_LATEST,
80 "ibm1006", "ibm1006", "ibm1006" },
81 { "Arabic (Windows)",
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" },
86 { "Arabic (ISO)",
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" }
92 };
93 static const MIME_CP_INFO baltic_cp[] =
94 {
95 { "Baltic (DOS)",
96 775, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
97 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
98 "ibm775", "ibm775", "ibm775" },
99 { "Baltic (Windows)",
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" },
105 { "Baltic (ISO)",
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" },
111 { "Estonian (ISO)",
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" }
115 };
116 static const MIME_CP_INFO chinese_simplified_cp[] =
117 {
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" }
124 };
125 static const MIME_CP_INFO chinese_traditional_cp[] =
126 {
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" }
133 };
134 static const MIME_CP_INFO central_european_cp[] =
135 {
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" }
157 };
158 static const MIME_CP_INFO cyrillic_cp[] =
159 {
160 { "OEM Cyrillic",
161 855, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
162 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
163 "ibm855", "ibm855", "ibm855" },
164 { "Cyrillic (DOS)",
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" },
174 #endif
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" },
180 { "Cyrillic (Mac)",
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" },
196 { "Cyrillic (ISO)",
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" }
202 };
203 static const MIME_CP_INFO greek_cp[] =
204 {
205 { "Greek (DOS)",
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" },
217 { "Greek (Windows)",
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" },
222 { "Greek (Mac)",
223 10006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
224 MIMECONTF_MIME_LATEST,
225 "x-mac-greek", "x-mac-greek", "x-mac-greek" },
226 { "Greek (ISO)",
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" }
232 };
233 static const MIME_CP_INFO hebrew_cp[] =
234 {
235 { "Hebrew (424)",
236 424, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
237 MIMECONTF_MIME_LATEST,
238 "ibm424", "ibm424", "ibm424" },
239 { "Hebrew (856)",
240 856, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
241 MIMECONTF_MIME_LATEST,
242 "cp856", "cp856", "cp856" },
243 { "Hebrew (DOS)",
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" }
258 };
259 static const MIME_CP_INFO japanese_cp[] =
260 {
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" },
266 { "Japanese (EUC)",
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" },
272 { "Japanese (JIS)",
273 50220, MIMECONTF_IMPORT | MIMECONTF_MAILNEWS | MIMECONTF_EXPORT |
274 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID_NLS |
275 MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST |
276 MIMECONTF_MIME_IE4,
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"},
291 { "Japanese (Mac)",
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" }
301 };
302 static const MIME_CP_INFO korean_cp[] =
303 {
304 { "Korean",
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" }
310 };
311 static const MIME_CP_INFO thai_cp[] =
312 {
313 { "Thai (Windows)",
314 874, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_MIME_LATEST,
315 "ibm-thai", "ibm-thai", "ibm-thai" }
316 };
317 static const MIME_CP_INFO turkish_cp[] =
318 {
319 { "Turkish (DOS)",
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" },
333 { "Turkish (Mac)",
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" },
337 { "Latin 3 (ISO)",
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" },
342 { "Turkish (ISO)",
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" }
348 };
349 static const MIME_CP_INFO vietnamese_cp[] =
350 {
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" }
357 };
358 static const MIME_CP_INFO western_cp[] =
359 {
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" },
380 { "Icelandic (DOS)",
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" },
388 { "Nordic (DOS)",
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" },
402 { "Icelandic (Mac)",
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" },
406 { "US-ASCII",
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" },
417 { "Latin 9 (ISO)",
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" }
423 };
424 static const MIME_CP_INFO unicode_cp[] =
425 {
426 { "Unicode",
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" },
432 { "Unicode (UTF-7)",
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" },
437 { "Unicode (UTF-8)",
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" }
443 };
444
445 static const struct mlang_data
446 {
447 const char *description;
448 UINT family_codepage;
449 UINT number_of_cp;
450 const MIME_CP_INFO *mime_cp_info;
451 const char *fixed_font;
452 const char *proportional_font;
453 } mlang_data[] =
454 {
455 { "Arabic",1256,sizeof(arabic_cp)/sizeof(arabic_cp[0]),arabic_cp,
456 "Courier","Arial" }, /* FIXME */
457 { "Baltic",1257,sizeof(baltic_cp)/sizeof(baltic_cp[0]),baltic_cp,
458 "Courier","Arial" }, /* FIXME */
459 { "Chinese Simplified",936,sizeof(chinese_simplified_cp)/sizeof(chinese_simplified_cp[0]),chinese_simplified_cp,
460 "Courier","Arial" }, /* FIXME */
461 { "Chinese Traditional",950,sizeof(chinese_traditional_cp)/sizeof(chinese_traditional_cp[0]),chinese_traditional_cp,
462 "Courier","Arial" }, /* FIXME */
463 { "Central European",1250,sizeof(central_european_cp)/sizeof(central_european_cp[0]),central_european_cp,
464 "Courier","Arial" }, /* FIXME */
465 { "Cyrillic",1251,sizeof(cyrillic_cp)/sizeof(cyrillic_cp[0]),cyrillic_cp,
466 "Courier","Arial" }, /* FIXME */
467 { "Greek",1253,sizeof(greek_cp)/sizeof(greek_cp[0]),greek_cp,
468 "Courier","Arial" }, /* FIXME */
469 { "Hebrew",1255,sizeof(hebrew_cp)/sizeof(hebrew_cp[0]),hebrew_cp,
470 "Courier","Arial" }, /* FIXME */
471 { "Japanese",932,sizeof(japanese_cp)/sizeof(japanese_cp[0]),japanese_cp,
472 "MS Gothic","MS PGothic" },
473 { "Korean",949,sizeof(korean_cp)/sizeof(korean_cp[0]),korean_cp,
474 "Courier","Arial" }, /* FIXME */
475 { "Thai",874,sizeof(thai_cp)/sizeof(thai_cp[0]),thai_cp,
476 "Courier","Arial" }, /* FIXME */
477 { "Turkish",1254,sizeof(turkish_cp)/sizeof(turkish_cp[0]),turkish_cp,
478 "Courier","Arial" }, /* FIXME */
479 { "Vietnamese",1258,sizeof(vietnamese_cp)/sizeof(vietnamese_cp[0]),vietnamese_cp,
480 "Courier","Arial" }, /* FIXME */
481 { "Western European",1252,sizeof(western_cp)/sizeof(western_cp[0]),western_cp,
482 "Courier","Arial" }, /* FIXME */
483 { "Unicode",CP_UNICODE,sizeof(unicode_cp)/sizeof(unicode_cp[0]),unicode_cp,
484 "Courier","Arial" } /* FIXME */
485 };
486
487 static void fill_cp_info(const struct mlang_data *ml_data, UINT index, MIMECPINFO *mime_cp_info);
488
489 static LONG dll_count;
490
491 /*
492 * Japanese Detection and Converstion Functions
493 */
494
495 #define HANKATA(A) ((A >= 161) && (A <= 223))
496 #define ISEUC(A) ((A >= 161) && (A <= 254))
497 #define NOTEUC(A,B) (((A >= 129) && (A <= 159)) && ((B >= 64) && (B <= 160)))
498 #define SJIS1(A) (((A >= 129) && (A <= 159)) || ((A >= 224) && (A <= 239)))
499 #define SJIS2(A) ((A >= 64) && (A <= 252))
500 #define ISMARU(A) ((A >= 202) && (A <= 206))
501 #define ISNIGORI(A) (((A >= 182) && (A <= 196)) || ((A >= 202) && (A <= 206)))
502
503 static UINT DetectJapaneseCode(LPCSTR input, DWORD count)
504 {
505 UINT code = 0;
506 DWORD i = 0;
507 unsigned char c1,c2;
508
509 while ((code == 0 || code == 51932) && i < count)
510 {
511 c1 = input[i];
512 if (c1 == 0x1b /* ESC */)
513 {
514 i++;
515 if (i >= count)
516 return code;
517 c1 = input[i];
518 if (c1 == '$')
519 {
520 i++;
521 if (i >= count)
522 return code;
523 c1 = input[i];
524 if (c1 =='B' || c1 == '@')
525 code = 50220;
526 }
527 if (c1 == 'K')
528 code = 50220;
529 }
530 else if (c1 >= 129)
531 {
532 i++;
533 if (i >= count)
534 return code;
535 c2 = input[i];
536 if NOTEUC(c1,c2)
537 code = 932;
538 else if (ISEUC(c1) && ISEUC(c2))
539 code = 51932;
540 else if (((c1 == 142)) && HANKATA(c2))
541 code = 51932;
542 }
543 i++;
544 }
545 return code;
546 }
547
548 static inline void jis2sjis(unsigned char *p1, unsigned char *p2)
549 {
550 unsigned char c1 = *p1;
551 unsigned char c2 = *p2;
552 int row = c1 < 95 ? 112 : 176;
553 int cell = c1 % 2 ? 31 + (c2 > 95) : 126;
554
555 *p1 = ((c1 + 1) >> 1) + row;
556 *p2 = c2 + cell;
557 }
558
559 static inline void sjis2jis(unsigned char *p1, unsigned char *p2)
560 {
561 unsigned char c1 = *p1;
562 unsigned char c2 = *p2;
563 int shift = c2 < 159;
564 int row = c1 < 160 ? 112 : 176;
565 int cell = shift ? (31 + (c2 > 127)): 126;
566
567 *p1 = ((c1 - row) << 1) - shift;
568 *p2 -= cell;
569 }
570
571 static int han2zen(unsigned char *p1, unsigned char *p2)
572 {
573 int maru = FALSE;
574 int nigori = FALSE;
575 static const unsigned char char1[] = {129,129,129,129,129,131,131,131,131,
576 131,131,131,131,131,131,129,131,131,131,131,131,131,131,131,131,131,
577 131,131,131,131,131,131,131,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,129,129 };
580 static const unsigned char char2[] = {66,117,118,65,69,146,64,66,68,70,
581 72,131,133,135,98,91,65,67,69,71,73,74,76,78,80,82,84,86,88,90,92,94,
582 96,99,101,103,105,106,107,108,109,110,113,116,119,122,125,126,128,
583 129,130,132,134,136,137,138,139,140,141,143,147,74,75};
584
585 if (( *p2 == 222) && ((ISNIGORI(*p1) || (*p1 == 179))))
586 nigori = TRUE;
587 else if ((*p2 == 223) && (ISMARU(*p1)))
588 maru = TRUE;
589
590 if (*p1 >= 161 && *p1 <= 223)
591 {
592 unsigned char index = *p1 - 161;
593 *p1 = char1[index];
594 *p2 = char2[index];
595 }
596
597 if (maru || nigori)
598 {
599 if (nigori)
600 {
601 if (((*p2 >= 74) && (*p2 <= 103)) || ((*p2 >= 110) && (*p2 <= 122)))
602 (*p2)++;
603 else if ((*p1 == 131) && (*p2 == 69))
604 *p2 = 148;
605 }
606 else if ((maru) && ((*p2 >= 110) && (*p2 <= 122)))
607 *p2+= 2;
608
609 return 1;
610 }
611
612 return 0;
613 }
614
615
616 static UINT ConvertJIS2SJIS(LPCSTR input, DWORD count, LPSTR output)
617 {
618 DWORD i = 0;
619 int j = 0;
620 unsigned char p2,p;
621 int shifted = FALSE;
622
623 while (i < count)
624 {
625 p = input[i];
626 if (p == 0x1b /* ESC */)
627 {
628 i++;
629 if (i >= count)
630 return 0;
631 p2 = input[i];
632 if (p2 == '$' || p2 =='(')
633 i++;
634 if (p2 == 'K' || p2 =='$')
635 shifted = TRUE;
636 else
637 shifted = FALSE;
638 }
639 else
640 {
641 if (shifted)
642 {
643 i++;
644 if (i >= count)
645 return 0;
646 p2 = input[i];
647 jis2sjis(&p,&p2);
648 output[j++]=p;
649 output[j++]=p2;
650 }
651 else
652 {
653 output[j++] = p;
654 }
655 }
656 i++;
657 }
658 return j;
659 }
660
661 static inline int exit_shift(LPSTR out, int c)
662 {
663 if (out)
664 {
665 out[c] = 0x1b;
666 out[c+1] = '(';
667 out[c+2] = 'B';
668 }
669 return 3;
670 }
671
672 static inline int enter_shift(LPSTR out, int c)
673 {
674 if (out)
675 {
676 out[c] = 0x1b;
677 out[c+1] = '$';
678 out[c+2] = 'B';
679 }
680 return 3;
681 }
682
683
684 static UINT ConvertSJIS2JIS(LPCSTR input, DWORD count, LPSTR output)
685 {
686 DWORD i = 0;
687 int j = 0;
688 unsigned char p2,p;
689 int shifted = FALSE;
690
691 while (i < count)
692 {
693 p = input[i] & 0xff;
694 if (p == 10 || p == 13) /* NL and CR */
695 {
696 if (shifted)
697 {
698 shifted = FALSE;
699 j += exit_shift(output,j);
700 }
701 if (output)
702 output[j++] = p;
703 else
704 j++;
705 }
706 else
707 {
708 if (SJIS1(p))
709 {
710 i++;
711 if (i >= count)
712 return 0;
713 p2 = input[i] & 0xff;
714 if (SJIS2(p2))
715 {
716 sjis2jis(&p,&p2);
717 if (!shifted)
718 {
719 shifted = TRUE;
720 j+=enter_shift(output,j);
721 }
722 }
723
724 if (output)
725 {
726 output[j++]=p;
727 output[j++]=p2;
728 }
729 else
730 j+=2;
731 }
732 else
733 {
734 if (HANKATA(p))
735 {
736 if ((i+1) >= count)
737 return 0;
738 p2 = input[i+1] & 0xff;
739 i+=han2zen(&p,&p2);
740 sjis2jis(&p,&p2);
741 if (!shifted)
742 {
743 shifted = TRUE;
744 j+=enter_shift(output,j);
745 }
746 if (output)
747 {
748 output[j++]=p;
749 output[j++]=p2;
750 }
751 else
752 j+=2;
753 }
754 else
755 {
756 if (shifted)
757 {
758 shifted = FALSE;
759 j += exit_shift(output,j);
760 }
761 if (output)
762 output[j++]=p;
763 else
764 j++;
765 }
766 }
767 }
768 i++;
769 }
770 if (shifted)
771 j += exit_shift(output,j);
772 return j;
773 }
774
775 static UINT ConvertJISJapaneseToUnicode(LPCSTR input, DWORD count,
776 LPWSTR output, DWORD out_count)
777 {
778 CHAR *sjis_string;
779 UINT rc = 0;
780 sjis_string = HeapAlloc(GetProcessHeap(),0,count);
781 rc = ConvertJIS2SJIS(input,count,sjis_string);
782 if (rc)
783 {
784 TRACE("%s\n",debugstr_an(sjis_string,rc));
785 if (output)
786 rc = MultiByteToWideChar(932,0,sjis_string,rc,output,out_count);
787 else
788 rc = MultiByteToWideChar(932,0,sjis_string,rc,0,0);
789 }
790 HeapFree(GetProcessHeap(),0,sjis_string);
791 return rc;
792
793 }
794
795 static UINT ConvertUnknownJapaneseToUnicode(LPCSTR input, DWORD count,
796 LPWSTR output, DWORD out_count)
797 {
798 CHAR *sjis_string;
799 UINT rc = 0;
800 int code = DetectJapaneseCode(input,count);
801 TRACE("Japanese code %i\n",code);
802
803 if (code == 932)
804 {
805 if (output)
806 rc = MultiByteToWideChar(932,0,input,count,output,out_count);
807 else
808 rc = MultiByteToWideChar(932,0,input,count,0,0);
809 }
810 else if (code == 51932)
811 {
812 if (output)
813 rc = MultiByteToWideChar(20932,0,input,count,output,out_count);
814 else
815 rc = MultiByteToWideChar(20932,0,input,count,0,0);
816 }
817 else if (code == 50220)
818 {
819 sjis_string = HeapAlloc(GetProcessHeap(),0,count);
820 rc = ConvertJIS2SJIS(input,count,sjis_string);
821 if (rc)
822 {
823 TRACE("%s\n",debugstr_an(sjis_string,rc));
824 if (output)
825 rc = MultiByteToWideChar(932,0,sjis_string,rc,output,out_count);
826 else
827 rc = MultiByteToWideChar(932,0,sjis_string,rc,0,0);
828 }
829 HeapFree(GetProcessHeap(),0,sjis_string);
830 }
831 return rc;
832 }
833
834 static UINT ConvertJapaneseUnicodeToJIS(LPCWSTR input, DWORD count,
835 LPSTR output, DWORD out_count)
836 {
837 CHAR *sjis_string;
838 INT len;
839 UINT rc = 0;
840
841 len = WideCharToMultiByte(932,0,input,count,0,0,NULL,NULL);
842 sjis_string = HeapAlloc(GetProcessHeap(),0,len);
843 WideCharToMultiByte(932,0,input,count,sjis_string,len,NULL,NULL);
844 TRACE("%s\n",debugstr_an(sjis_string,len));
845
846 rc = ConvertSJIS2JIS(sjis_string, len, NULL);
847 if (out_count >= rc)
848 {
849 ConvertSJIS2JIS(sjis_string, len, output);
850 }
851 HeapFree(GetProcessHeap(),0,sjis_string);
852 return rc;
853
854 }
855
856 /*
857 * Dll lifetime tracking declaration
858 */
859 static void LockModule(void)
860 {
861 InterlockedIncrement(&dll_count);
862 }
863
864 static void UnlockModule(void)
865 {
866 InterlockedDecrement(&dll_count);
867 }
868
869 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
870 {
871 switch(fdwReason) {
872 case DLL_PROCESS_ATTACH:
873 MLANG_tls_index = TlsAlloc();
874 DisableThreadLibraryCalls(hInstDLL);
875 break;
876 case DLL_PROCESS_DETACH:
877 TlsFree(MLANG_tls_index);
878 break;
879 }
880 return TRUE;
881 }
882
883 HRESULT WINAPI ConvertINetMultiByteToUnicode(
884 LPDWORD pdwMode,
885 DWORD dwEncoding,
886 LPCSTR pSrcStr,
887 LPINT pcSrcSize,
888 LPWSTR pDstStr,
889 LPINT pcDstSize)
890 {
891 INT src_len = -1;
892
893 TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
894 debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
895
896 if (!pcDstSize)
897 return E_FAIL;
898
899 if (!pcSrcSize)
900 pcSrcSize = &src_len;
901
902 if (!*pcSrcSize)
903 {
904 *pcDstSize = 0;
905 return S_OK;
906 }
907
908 /* forwarding euc-jp to EUC-JP */
909 if (dwEncoding == 51932)
910 dwEncoding = 20932;
911
912 switch (dwEncoding)
913 {
914 case CP_UNICODE:
915 if (*pcSrcSize == -1)
916 *pcSrcSize = lstrlenW((LPCWSTR)pSrcStr);
917 *pcDstSize = min(*pcSrcSize, *pcDstSize);
918 *pcSrcSize *= sizeof(WCHAR);
919 if (pDstStr)
920 memmove(pDstStr, pSrcStr, *pcDstSize * sizeof(WCHAR));
921 break;
922
923 case 50220:
924 case 50221:
925 case 50222:
926 *pcDstSize = ConvertJISJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
927 break;
928 case 50932:
929 *pcDstSize = ConvertUnknownJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
930 break;
931
932 default:
933 if (*pcSrcSize == -1)
934 *pcSrcSize = lstrlenA(pSrcStr);
935
936 if (pDstStr)
937 *pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, pDstStr, *pcDstSize);
938 else
939 *pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, NULL, 0);
940 break;
941 }
942
943 if (!*pcDstSize)
944 return E_FAIL;
945
946 return S_OK;
947 }
948
949 HRESULT WINAPI ConvertINetUnicodeToMultiByte(
950 LPDWORD pdwMode,
951 DWORD dwEncoding,
952 LPCWSTR pSrcStr,
953 LPINT pcSrcSize,
954 LPSTR pDstStr,
955 LPINT pcDstSize)
956 {
957 INT destsz, size;
958 INT src_len = -1;
959
960 TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
961 debugstr_w(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
962
963 if (!pcDstSize)
964 return S_OK;
965
966 if (!pcSrcSize)
967 pcSrcSize = &src_len;
968
969 destsz = (pDstStr) ? *pcDstSize : 0;
970 *pcDstSize = 0;
971
972 if (!pSrcStr || !*pcSrcSize)
973 return S_OK;
974
975 if (*pcSrcSize == -1)
976 *pcSrcSize = lstrlenW(pSrcStr);
977
978 /* forwarding euc-jp to EUC-JP */
979 if (dwEncoding == 51932)
980 dwEncoding = 20932;
981
982 if (dwEncoding == CP_UNICODE)
983 {
984 if (*pcSrcSize == -1)
985 *pcSrcSize = lstrlenW(pSrcStr);
986
987 size = min(*pcSrcSize, destsz) * sizeof(WCHAR);
988 if (pDstStr)
989 memmove(pDstStr, pSrcStr, size);
990
991 if (size >= destsz)
992 goto fail;
993 }
994 else if (dwEncoding == 50220 || dwEncoding == 50221 || dwEncoding == 50222)
995 {
996 size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, NULL, 0);
997 if (!size)
998 goto fail;
999
1000 if (pDstStr)
1001 {
1002 size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, pDstStr,
1003 destsz);
1004 if (!size)
1005 goto fail;
1006 }
1007
1008 }
1009 else
1010 {
1011 size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
1012 NULL, 0, NULL, NULL);
1013 if (!size)
1014 goto fail;
1015
1016 if (pDstStr)
1017 {
1018 size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
1019 pDstStr, destsz, NULL, NULL);
1020 if (!size)
1021 goto fail;
1022 }
1023 }
1024
1025 *pcDstSize = size;
1026 return S_OK;
1027
1028 fail:
1029 *pcSrcSize = 0;
1030 *pcDstSize = 0;
1031 return E_FAIL;
1032 }
1033
1034 HRESULT WINAPI ConvertINetString(
1035 LPDWORD pdwMode,
1036 DWORD dwSrcEncoding,
1037 DWORD dwDstEncoding,
1038 LPCSTR pSrcStr,
1039 LPINT pcSrcSize,
1040 LPSTR pDstStr,
1041 LPINT pcDstSize
1042 )
1043 {
1044 TRACE("%p %d %d %s %p %p %p\n", pdwMode, dwSrcEncoding, dwDstEncoding,
1045 debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
1046
1047 if (dwSrcEncoding == CP_UNICODE)
1048 {
1049 INT cSrcSizeW;
1050 if (pcSrcSize && *pcSrcSize != -1)
1051 {
1052 cSrcSizeW = *pcSrcSize / sizeof(WCHAR);
1053 pcSrcSize = &cSrcSizeW;
1054 }
1055 return ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, (LPCWSTR)pSrcStr, pcSrcSize, pDstStr, pcDstSize);
1056 }
1057 else if (dwDstEncoding == CP_UNICODE)
1058 {
1059 HRESULT hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, (LPWSTR)pDstStr, pcDstSize);
1060 *pcDstSize *= sizeof(WCHAR);
1061 return hr;
1062 }
1063 else
1064 {
1065 INT cDstSizeW;
1066 LPWSTR pDstStrW;
1067 HRESULT hr;
1068
1069 TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr), dwSrcEncoding, dwDstEncoding);
1070
1071 hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, NULL, &cDstSizeW);
1072 if (hr != S_OK)
1073 return hr;
1074
1075 pDstStrW = HeapAlloc(GetProcessHeap(), 0, cDstSizeW * sizeof(WCHAR));
1076 hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, pDstStrW, &cDstSizeW);
1077 if (hr == S_OK)
1078 hr = ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, pDstStrW, &cDstSizeW, pDstStr, pcDstSize);
1079
1080 HeapFree(GetProcessHeap(), 0, pDstStrW);
1081 return hr;
1082 }
1083 }
1084
1085 static HRESULT GetFamilyCodePage(
1086 UINT uiCodePage,
1087 UINT* puiFamilyCodePage)
1088 {
1089 UINT i, n;
1090
1091 TRACE("%u %p\n", uiCodePage, puiFamilyCodePage);
1092
1093 if (!puiFamilyCodePage) return S_FALSE;
1094
1095 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1096 {
1097 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1098 {
1099 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
1100 {
1101 *puiFamilyCodePage = mlang_data[i].family_codepage;
1102 return S_OK;
1103 }
1104 }
1105 }
1106
1107 return S_FALSE;
1108 }
1109
1110 HRESULT WINAPI IsConvertINetStringAvailable(
1111 DWORD dwSrcEncoding,
1112 DWORD dwDstEncoding)
1113 {
1114 UINT src_family, dst_family;
1115
1116 TRACE("%d %d\n", dwSrcEncoding, dwDstEncoding);
1117
1118 if (GetFamilyCodePage(dwSrcEncoding, &src_family) != S_OK ||
1119 GetFamilyCodePage(dwDstEncoding, &dst_family) != S_OK)
1120 return S_FALSE;
1121
1122 if (src_family == dst_family) return S_OK;
1123
1124 /* we can convert any codepage to/from unicode */
1125 if (src_family == CP_UNICODE || dst_family == CP_UNICODE) return S_OK;
1126
1127 return S_FALSE;
1128 }
1129
1130 static inline INT lcid_to_rfc1766A( LCID lcid, LPSTR rfc1766, INT len )
1131 {
1132 INT n = GetLocaleInfoA( lcid, LOCALE_SISO639LANGNAME, rfc1766, len );
1133 if (n)
1134 {
1135 rfc1766[n - 1] = '-';
1136 n += GetLocaleInfoA( lcid, LOCALE_SISO3166CTRYNAME, rfc1766 + n, len - n );
1137 LCMapStringA( LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, rfc1766, n, rfc1766, len );
1138 return n;
1139 }
1140 return 0;
1141 }
1142
1143 static inline INT lcid_to_rfc1766W( LCID lcid, LPWSTR rfc1766, INT len )
1144 {
1145 INT n = GetLocaleInfoW( lcid, LOCALE_SISO639LANGNAME, rfc1766, len );
1146 INT save = n;
1147 if (n)
1148 {
1149 rfc1766[n - 1] = '-';
1150 n += GetLocaleInfoW( lcid, LOCALE_SISO3166CTRYNAME, rfc1766 + n, len - n );
1151 if (n == save)
1152 rfc1766[n - 1] = '\0';
1153 LCMapStringW( LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, rfc1766, n, rfc1766, len );
1154 return n;
1155 }
1156 return 0;
1157 }
1158
1159 HRESULT WINAPI LcidToRfc1766A(
1160 LCID lcid,
1161 LPSTR pszRfc1766,
1162 INT nChar)
1163 {
1164 TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
1165
1166 if (lcid_to_rfc1766A( lcid, pszRfc1766, nChar ))
1167 return S_OK;
1168
1169 return S_FALSE;
1170 }
1171
1172 HRESULT WINAPI LcidToRfc1766W(
1173 LCID lcid,
1174 LPWSTR pszRfc1766,
1175 INT nChar)
1176 {
1177 TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
1178
1179 if (lcid_to_rfc1766W( lcid, pszRfc1766, nChar ))
1180 return S_OK;
1181
1182 return S_FALSE;
1183 }
1184
1185 static HRESULT lcid_from_rfc1766(IEnumRfc1766 *iface, LCID *lcid, LPCWSTR rfc1766)
1186 {
1187 RFC1766INFO info;
1188 ULONG num;
1189
1190 while (IEnumRfc1766_Next(iface, 1, &info, &num) == S_OK)
1191 {
1192 if (!strcmpW(info.wszRfc1766, rfc1766))
1193 {
1194 *lcid = info.lcid;
1195 return S_OK;
1196 }
1197 if (strlenW(rfc1766) == 2 && !memcmp(info.wszRfc1766, rfc1766, 2 * sizeof(WCHAR)))
1198 {
1199 *lcid = PRIMARYLANGID(info.lcid);
1200 return S_OK;
1201 }
1202 }
1203
1204 return E_FAIL;
1205 }
1206
1207 HRESULT WINAPI Rfc1766ToLcidW(LCID *pLocale, LPCWSTR pszRfc1766)
1208 {
1209 IEnumRfc1766 *enumrfc1766;
1210 HRESULT hr;
1211
1212 TRACE("(%p, %s)\n", pLocale, debugstr_w(pszRfc1766));
1213
1214 if (!pLocale || !pszRfc1766)
1215 return E_INVALIDARG;
1216
1217 *pLocale = 0;
1218
1219 hr = EnumRfc1766_create(0, &enumrfc1766);
1220 if (FAILED(hr))
1221 return hr;
1222
1223 hr = lcid_from_rfc1766(enumrfc1766, pLocale, pszRfc1766);
1224 IEnumRfc1766_Release(enumrfc1766);
1225
1226 return hr;
1227 }
1228
1229 HRESULT WINAPI Rfc1766ToLcidA(LCID *lcid, LPCSTR rfc1766A)
1230 {
1231 WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
1232
1233 MultiByteToWideChar(CP_ACP, 0, rfc1766A, -1, rfc1766W, MAX_RFC1766_NAME);
1234 rfc1766W[MAX_RFC1766_NAME] = 0;
1235
1236 return Rfc1766ToLcidW(lcid, rfc1766W);
1237 }
1238
1239 /******************************************************************************
1240 * MLANG ClassFactory
1241 */
1242 typedef struct {
1243 IClassFactory ITF_IClassFactory;
1244
1245 LONG ref;
1246 HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
1247 } IClassFactoryImpl;
1248
1249 struct object_creation_info
1250 {
1251 const CLSID *clsid;
1252 LPCSTR szClassName;
1253 HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
1254 };
1255
1256 static const struct object_creation_info object_creation[] =
1257 {
1258 { &CLSID_CMultiLanguage, "CLSID_CMultiLanguage", MultiLanguage_create },
1259 };
1260
1261 static HRESULT WINAPI
1262 MLANGCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj)
1263 {
1264 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1265
1266 TRACE("%s\n", debugstr_guid(riid) );
1267
1268 if (IsEqualGUID(riid, &IID_IUnknown)
1269 || IsEqualGUID(riid, &IID_IClassFactory))
1270 {
1271 IClassFactory_AddRef(iface);
1272 *ppobj = This;
1273 return S_OK;
1274 }
1275
1276 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
1277 return E_NOINTERFACE;
1278 }
1279
1280 static ULONG WINAPI MLANGCF_AddRef(LPCLASSFACTORY iface)
1281 {
1282 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1283 return InterlockedIncrement(&This->ref);
1284 }
1285
1286 static ULONG WINAPI MLANGCF_Release(LPCLASSFACTORY iface)
1287 {
1288 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1289
1290 ULONG ref = InterlockedDecrement(&This->ref);
1291
1292 if (ref == 0)
1293 {
1294 TRACE("Destroying %p\n", This);
1295 HeapFree(GetProcessHeap(), 0, This);
1296 }
1297
1298 return ref;
1299 }
1300
1301 static HRESULT WINAPI MLANGCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter,
1302 REFIID riid, LPVOID *ppobj)
1303 {
1304 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1305 HRESULT hres;
1306 LPUNKNOWN punk;
1307
1308 TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
1309
1310 *ppobj = NULL;
1311 hres = This->pfnCreateInstance(pOuter, (LPVOID *) &punk);
1312 if (SUCCEEDED(hres)) {
1313 hres = IUnknown_QueryInterface(punk, riid, ppobj);
1314 IUnknown_Release(punk);
1315 }
1316 TRACE("returning (%p) -> %x\n", *ppobj, hres);
1317 return hres;
1318 }
1319
1320 static HRESULT WINAPI MLANGCF_LockServer(LPCLASSFACTORY iface,BOOL dolock)
1321 {
1322 if (dolock)
1323 LockModule();
1324 else
1325 UnlockModule();
1326
1327 return S_OK;
1328 }
1329
1330 static const IClassFactoryVtbl MLANGCF_Vtbl =
1331 {
1332 MLANGCF_QueryInterface,
1333 MLANGCF_AddRef,
1334 MLANGCF_Release,
1335 MLANGCF_CreateInstance,
1336 MLANGCF_LockServer
1337 };
1338
1339 /******************************************************************
1340 * DllGetClassObject (MLANG.@)
1341 */
1342 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
1343 {
1344 unsigned int i;
1345 IClassFactoryImpl *factory;
1346
1347 TRACE("%s %s %p\n",debugstr_guid(rclsid), debugstr_guid(iid), ppv);
1348
1349 if ( !IsEqualGUID( &IID_IClassFactory, iid )
1350 && ! IsEqualGUID( &IID_IUnknown, iid) )
1351 return E_NOINTERFACE;
1352
1353 for (i=0; i < sizeof(object_creation)/sizeof(object_creation[0]); i++)
1354 {
1355 if (IsEqualGUID(object_creation[i].clsid, rclsid))
1356 break;
1357 }
1358
1359 if (i == sizeof(object_creation)/sizeof(object_creation[0]))
1360 {
1361 FIXME("%s: no class found.\n", debugstr_guid(rclsid));
1362 return CLASS_E_CLASSNOTAVAILABLE;
1363 }
1364
1365 TRACE("Creating a class factory for %s\n",object_creation[i].szClassName);
1366
1367 factory = HeapAlloc(GetProcessHeap(), 0, sizeof(*factory));
1368 if (factory == NULL) return E_OUTOFMEMORY;
1369
1370 factory->ITF_IClassFactory.lpVtbl = &MLANGCF_Vtbl;
1371 factory->ref = 1;
1372
1373 factory->pfnCreateInstance = object_creation[i].pfnCreateInstance;
1374
1375 *ppv = &(factory->ITF_IClassFactory);
1376
1377 TRACE("(%p) <- %p\n", ppv, &(factory->ITF_IClassFactory) );
1378
1379 return S_OK;
1380 }
1381
1382
1383 /******************************************************************************/
1384
1385 typedef struct tagMLang_impl
1386 {
1387 const IMLangFontLinkVtbl *vtbl_IMLangFontLink;
1388 const IMultiLanguageVtbl *vtbl_IMultiLanguage;
1389 const IMultiLanguage3Vtbl *vtbl_IMultiLanguage3;
1390 const IMLangFontLink2Vtbl *vtbl_IMLangFontLink2;
1391 const IMLangLineBreakConsoleVtbl *vtbl_IMLangLineBreakConsole;
1392 LONG ref;
1393 DWORD total_cp, total_scripts;
1394 } MLang_impl;
1395
1396 static ULONG MLang_AddRef( MLang_impl* This)
1397 {
1398 return InterlockedIncrement(&This->ref);
1399 }
1400
1401 static ULONG MLang_Release( MLang_impl* This )
1402 {
1403 ULONG ref = InterlockedDecrement(&This->ref);
1404
1405 TRACE("%p ref = %d\n", This, ref);
1406 if (ref == 0)
1407 {
1408 TRACE("Destroying %p\n", This);
1409 HeapFree(GetProcessHeap(), 0, This);
1410 UnlockModule();
1411 }
1412
1413 return ref;
1414 }
1415
1416 static HRESULT MLang_QueryInterface(
1417 MLang_impl* This,
1418 REFIID riid,
1419 void** ppvObject)
1420 {
1421 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1422
1423 if (IsEqualGUID(riid, &IID_IUnknown)
1424 || IsEqualGUID(riid, &IID_IMLangCodePages)
1425 || IsEqualGUID(riid, &IID_IMLangFontLink))
1426 {
1427 MLang_AddRef(This);
1428 TRACE("Returning IID_IMLangFontLink %p ref = %d\n", This, This->ref);
1429 *ppvObject = &(This->vtbl_IMLangFontLink);
1430 return S_OK;
1431 }
1432
1433 if (IsEqualGUID(riid, &IID_IMLangFontLink2))
1434 {
1435 MLang_AddRef(This);
1436 TRACE("Returning IID_IMLangFontLink2 %p ref = %d\n", This, This->ref);
1437 *ppvObject = &(This->vtbl_IMLangFontLink2);
1438 return S_OK;
1439 }
1440
1441 if (IsEqualGUID(riid, &IID_IMultiLanguage) )
1442 {
1443 MLang_AddRef(This);
1444 TRACE("Returning IID_IMultiLanguage %p ref = %d\n", This, This->ref);
1445 *ppvObject = &(This->vtbl_IMultiLanguage);
1446 return S_OK;
1447 }
1448
1449 if (IsEqualGUID(riid, &IID_IMultiLanguage2) )
1450 {
1451 MLang_AddRef(This);
1452 *ppvObject = &(This->vtbl_IMultiLanguage3);
1453 TRACE("Returning IID_IMultiLanguage2 %p ref = %d\n", This, This->ref);
1454 return S_OK;
1455 }
1456
1457 if (IsEqualGUID(riid, &IID_IMultiLanguage3) )
1458 {
1459 MLang_AddRef(This);
1460 *ppvObject = &(This->vtbl_IMultiLanguage3);
1461 TRACE("Returning IID_IMultiLanguage3 %p ref = %d\n", This, This->ref);
1462 return S_OK;
1463 }
1464
1465 if (IsEqualGUID(riid, &IID_IMLangLineBreakConsole))
1466 {
1467 MLang_AddRef(This);
1468 TRACE("Returning IID_IMLangLineBreakConsole %p ref = %d\n", This, This->ref);
1469 *ppvObject = &(This->vtbl_IMLangLineBreakConsole);
1470 return S_OK;
1471 }
1472
1473
1474 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1475 return E_NOINTERFACE;
1476 }
1477
1478 /******************************************************************************/
1479
1480 typedef struct tagEnumCodePage_impl
1481 {
1482 const IEnumCodePageVtbl *vtbl_IEnumCodePage;
1483 LONG ref;
1484 MIMECPINFO *cpinfo;
1485 DWORD total, pos;
1486 } EnumCodePage_impl;
1487
1488 static HRESULT WINAPI fnIEnumCodePage_QueryInterface(
1489 IEnumCodePage* iface,
1490 REFIID riid,
1491 void** ppvObject)
1492 {
1493 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1494
1495 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1496
1497 if (IsEqualGUID(riid, &IID_IUnknown)
1498 || IsEqualGUID(riid, &IID_IEnumCodePage))
1499 {
1500 IEnumCodePage_AddRef(iface);
1501 TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This, This->ref);
1502 *ppvObject = &(This->vtbl_IEnumCodePage);
1503 return S_OK;
1504 }
1505
1506 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1507 return E_NOINTERFACE;
1508 }
1509
1510 static ULONG WINAPI fnIEnumCodePage_AddRef(
1511 IEnumCodePage* iface)
1512 {
1513 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1514 return InterlockedIncrement(&This->ref);
1515 }
1516
1517 static ULONG WINAPI fnIEnumCodePage_Release(
1518 IEnumCodePage* iface)
1519 {
1520 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1521 ULONG ref = InterlockedDecrement(&This->ref);
1522
1523 TRACE("%p ref = %d\n", This, ref);
1524 if (ref == 0)
1525 {
1526 TRACE("Destroying %p\n", This);
1527 HeapFree(GetProcessHeap(), 0, This->cpinfo);
1528 HeapFree(GetProcessHeap(), 0, This);
1529 }
1530
1531 return ref;
1532 }
1533
1534 static HRESULT WINAPI fnIEnumCodePage_Clone(
1535 IEnumCodePage* iface,
1536 IEnumCodePage** ppEnum)
1537 {
1538 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1539 FIXME("%p %p\n", This, ppEnum);
1540 return E_NOTIMPL;
1541 }
1542
1543 static HRESULT WINAPI fnIEnumCodePage_Next(
1544 IEnumCodePage* iface,
1545 ULONG celt,
1546 PMIMECPINFO rgelt,
1547 ULONG* pceltFetched)
1548 {
1549 ULONG i;
1550
1551 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1552 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
1553
1554 if (!pceltFetched) return S_FALSE;
1555 *pceltFetched = 0;
1556
1557 if (!rgelt) return S_FALSE;
1558
1559 if (This->pos + celt > This->total)
1560 celt = This->total - This->pos;
1561
1562 if (!celt) return S_FALSE;
1563
1564 memcpy(rgelt, This->cpinfo + This->pos, celt * sizeof(MIMECPINFO));
1565 *pceltFetched = celt;
1566 This->pos += celt;
1567
1568 for (i = 0; i < celt; i++)
1569 {
1570 TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
1571 i, rgelt[i].dwFlags, rgelt[i].uiCodePage,
1572 rgelt[i].uiFamilyCodePage,
1573 wine_dbgstr_w(rgelt[i].wszDescription),
1574 wine_dbgstr_w(rgelt[i].wszWebCharset),
1575 wine_dbgstr_w(rgelt[i].wszHeaderCharset),
1576 wine_dbgstr_w(rgelt[i].wszBodyCharset),
1577 wine_dbgstr_w(rgelt[i].wszFixedWidthFont),
1578 wine_dbgstr_w(rgelt[i].wszProportionalFont),
1579 rgelt[i].bGDICharset);
1580 }
1581 return S_OK;
1582 }
1583
1584 static HRESULT WINAPI fnIEnumCodePage_Reset(
1585 IEnumCodePage* iface)
1586 {
1587 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1588 TRACE("%p\n", This);
1589
1590 This->pos = 0;
1591 return S_OK;
1592 }
1593
1594 static HRESULT WINAPI fnIEnumCodePage_Skip(
1595 IEnumCodePage* iface,
1596 ULONG celt)
1597 {
1598 ICOM_THIS_MULTI(EnumCodePage_impl, vtbl_IEnumCodePage, iface);
1599 TRACE("%p %u\n", This, celt);
1600
1601 if (celt >= This->total) return S_FALSE;
1602
1603 This->pos += celt;
1604 return S_OK;
1605 }
1606
1607 static const IEnumCodePageVtbl IEnumCodePage_vtbl =
1608 {
1609 fnIEnumCodePage_QueryInterface,
1610 fnIEnumCodePage_AddRef,
1611 fnIEnumCodePage_Release,
1612 fnIEnumCodePage_Clone,
1613 fnIEnumCodePage_Next,
1614 fnIEnumCodePage_Reset,
1615 fnIEnumCodePage_Skip
1616 };
1617
1618 static HRESULT EnumCodePage_create( MLang_impl* mlang, DWORD grfFlags,
1619 LANGID LangId, IEnumCodePage** ppEnumCodePage )
1620 {
1621 EnumCodePage_impl *ecp;
1622 MIMECPINFO *cpinfo;
1623 UINT i, n;
1624
1625 TRACE("%p, %08x, %04x, %p\n", mlang, grfFlags, LangId, ppEnumCodePage);
1626
1627 if (!grfFlags) /* enumerate internal data base of encodings */
1628 grfFlags = MIMECONTF_MIME_LATEST;
1629
1630 ecp = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl) );
1631 ecp->vtbl_IEnumCodePage = &IEnumCodePage_vtbl;
1632 ecp->ref = 1;
1633 ecp->pos = 0;
1634 ecp->total = 0;
1635 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1636 {
1637 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1638 {
1639 if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
1640 ecp->total++;
1641 }
1642 }
1643
1644 ecp->cpinfo = HeapAlloc(GetProcessHeap(), 0,
1645 sizeof(MIMECPINFO) * ecp->total);
1646 cpinfo = ecp->cpinfo;
1647
1648 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1649 {
1650 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1651 {
1652 if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
1653 fill_cp_info(&mlang_data[i], n, cpinfo++);
1654 }
1655 }
1656
1657 TRACE("enumerated %d codepages with flags %08x\n", ecp->total, grfFlags);
1658
1659 *ppEnumCodePage = (IEnumCodePage*) ecp;
1660
1661 return S_OK;
1662 }
1663
1664 /******************************************************************************/
1665
1666 typedef struct tagEnumScript_impl
1667 {
1668 const IEnumScriptVtbl *vtbl_IEnumScript;
1669 LONG ref;
1670 SCRIPTINFO *script_info;
1671 DWORD total, pos;
1672 } EnumScript_impl;
1673
1674 static HRESULT WINAPI fnIEnumScript_QueryInterface(
1675 IEnumScript* iface,
1676 REFIID riid,
1677 void** ppvObject)
1678 {
1679 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1680
1681 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1682
1683 if (IsEqualGUID(riid, &IID_IUnknown)
1684 || IsEqualGUID(riid, &IID_IEnumScript))
1685 {
1686 IEnumScript_AddRef(iface);
1687 TRACE("Returning IID_IEnumScript %p ref = %d\n", This, This->ref);
1688 *ppvObject = &(This->vtbl_IEnumScript);
1689 return S_OK;
1690 }
1691
1692 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1693 return E_NOINTERFACE;
1694 }
1695
1696 static ULONG WINAPI fnIEnumScript_AddRef(
1697 IEnumScript* iface)
1698 {
1699 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1700 return InterlockedIncrement(&This->ref);
1701 }
1702
1703 static ULONG WINAPI fnIEnumScript_Release(
1704 IEnumScript* iface)
1705 {
1706 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1707 ULONG ref = InterlockedDecrement(&This->ref);
1708
1709 TRACE("%p ref = %d\n", This, ref);
1710 if (ref == 0)
1711 {
1712 TRACE("Destroying %p\n", This);
1713 HeapFree(GetProcessHeap(), 0, This->script_info);
1714 HeapFree(GetProcessHeap(), 0, This);
1715 }
1716
1717 return ref;
1718 }
1719
1720 static HRESULT WINAPI fnIEnumScript_Clone(
1721 IEnumScript* iface,
1722 IEnumScript** ppEnum)
1723 {
1724 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1725 FIXME("%p %p: stub!\n", This, ppEnum);
1726 return E_NOTIMPL;
1727 }
1728
1729 static HRESULT WINAPI fnIEnumScript_Next(
1730 IEnumScript* iface,
1731 ULONG celt,
1732 PSCRIPTINFO rgelt,
1733 ULONG* pceltFetched)
1734 {
1735 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1736 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
1737
1738 if (!pceltFetched || !rgelt) return E_FAIL;
1739
1740 *pceltFetched = 0;
1741
1742 if (This->pos + celt > This->total)
1743 celt = This->total - This->pos;
1744
1745 if (!celt) return S_FALSE;
1746
1747 memcpy(rgelt, This->script_info + This->pos, celt * sizeof(SCRIPTINFO));
1748 *pceltFetched = celt;
1749 This->pos += celt;
1750
1751 return S_OK;
1752 }
1753
1754 static HRESULT WINAPI fnIEnumScript_Reset(
1755 IEnumScript* iface)
1756 {
1757 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1758 TRACE("%p\n", This);
1759
1760 This->pos = 0;
1761 return S_OK;
1762 }
1763
1764 static HRESULT WINAPI fnIEnumScript_Skip(
1765 IEnumScript* iface,
1766 ULONG celt)
1767 {
1768 ICOM_THIS_MULTI(EnumScript_impl, vtbl_IEnumScript, iface);
1769 TRACE("%p %u\n", This, celt);
1770
1771 if (celt >= This->total) return S_FALSE;
1772
1773 This->pos += celt;
1774 return S_OK;
1775 }
1776
1777 static const IEnumScriptVtbl IEnumScript_vtbl =
1778 {
1779 fnIEnumScript_QueryInterface,
1780 fnIEnumScript_AddRef,
1781 fnIEnumScript_Release,
1782 fnIEnumScript_Clone,
1783 fnIEnumScript_Next,
1784 fnIEnumScript_Reset,
1785 fnIEnumScript_Skip
1786 };
1787
1788 static HRESULT EnumScript_create( MLang_impl* mlang, DWORD dwFlags,
1789 LANGID LangId, IEnumScript** ppEnumScript )
1790 {
1791 EnumScript_impl *es;
1792 UINT i;
1793
1794 TRACE("%p, %08x, %04x, %p: stub!\n", mlang, dwFlags, LangId, ppEnumScript);
1795
1796 if (!dwFlags) /* enumerate all available scripts */
1797 dwFlags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
1798
1799 es = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl) );
1800 es->vtbl_IEnumScript = &IEnumScript_vtbl;
1801 es->ref = 1;
1802 es->pos = 0;
1803 /* do not enumerate unicode flavours */
1804 es->total = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
1805 es->script_info = HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO) * es->total);
1806
1807 for (i = 0; i < es->total; i++)
1808 {
1809 es->script_info[i].ScriptId = i;
1810 es->script_info[i].uiCodePage = mlang_data[i].family_codepage;
1811 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].description, -1,
1812 es->script_info[i].wszDescription, MAX_SCRIPT_NAME);
1813 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].fixed_font, -1,
1814 es->script_info[i].wszFixedWidthFont, MAX_MIMEFACE_NAME);
1815 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].proportional_font, -1,
1816 es->script_info[i].wszProportionalFont, MAX_MIMEFACE_NAME);
1817 }
1818
1819 TRACE("enumerated %d scripts with flags %08x\n", es->total, dwFlags);
1820
1821 *ppEnumScript = (IEnumScript *)es;
1822
1823 return S_OK;
1824 }
1825
1826 /******************************************************************************/
1827
1828 static HRESULT WINAPI fnIMLangFontLink_QueryInterface(
1829 IMLangFontLink* iface,
1830 REFIID riid,
1831 void** ppvObject)
1832 {
1833 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1834 return MLang_QueryInterface( This, riid, ppvObject );
1835 }
1836
1837 static ULONG WINAPI fnIMLangFontLink_AddRef(
1838 IMLangFontLink* iface)
1839 {
1840 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1841 return MLang_AddRef( This );
1842 }
1843
1844 static ULONG WINAPI fnIMLangFontLink_Release(
1845 IMLangFontLink* iface)
1846 {
1847 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1848 return MLang_Release( This );
1849 }
1850
1851 static HRESULT WINAPI fnIMLangFontLink_GetCharCodePages(
1852 IMLangFontLink* iface,
1853 WCHAR chSrc,
1854 DWORD* pdwCodePages)
1855 {
1856 int i;
1857 CHAR buf;
1858 BOOL used_dc;
1859 DWORD codePages;
1860
1861 *pdwCodePages = 0;
1862
1863 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1864 {
1865 WideCharToMultiByte(mlang_data[i].family_codepage, WC_NO_BEST_FIT_CHARS,
1866 &chSrc, 1, &buf, 1, NULL, &used_dc);
1867
1868 /* If default char is not used, current codepage include the given symbol */
1869 if (!used_dc)
1870 {
1871 IMLangFontLink_CodePageToCodePages(iface,
1872 mlang_data[i].family_codepage, &codePages);
1873 *pdwCodePages |= codePages;
1874 }
1875 }
1876 return S_OK;
1877 }
1878
1879 static HRESULT WINAPI fnIMLangFontLink_GetStrCodePages(
1880 IMLangFontLink* iface,
1881 const WCHAR* pszSrc,
1882 long cchSrc,
1883 DWORD dwPriorityCodePages,
1884 DWORD* pdwCodePages,
1885 long* pcchCodePages)
1886 {
1887 FIXME("(pszSrc=%s, cchSrc=%ld, dwPriorityCodePages=%d) stub\n", debugstr_w(pszSrc), cchSrc, dwPriorityCodePages);
1888 *pdwCodePages = 0;
1889 *pcchCodePages = 1;
1890 return S_OK;
1891 }
1892
1893 static HRESULT WINAPI fnIMLangFontLink_CodePageToCodePages(
1894 IMLangFontLink* iface,
1895 UINT uCodePage,
1896 DWORD* pdwCodePages)
1897 {
1898 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1899 CHARSETINFO cs;
1900 BOOL rc;
1901
1902 TRACE("(%p) Seeking %u\n",This, uCodePage);
1903
1904 rc = TranslateCharsetInfo((DWORD*)uCodePage, &cs, TCI_SRCCODEPAGE);
1905
1906 if (rc)
1907 {
1908 *pdwCodePages = cs.fs.fsCsb[0];
1909 TRACE("resulting CodePages 0x%x\n",*pdwCodePages);
1910 return S_OK;
1911 }
1912
1913 TRACE("CodePage Not Found\n");
1914 *pdwCodePages = 0;
1915 return E_FAIL;
1916 }
1917
1918 static HRESULT WINAPI fnIMLangFontLink_CodePagesToCodePage(
1919 IMLangFontLink* iface,
1920 DWORD dwCodePages,
1921 UINT uDefaultCodePage,
1922 UINT* puCodePage)
1923 {
1924 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1925 DWORD mask = 0x00000000;
1926 UINT i;
1927 CHARSETINFO cs;
1928 BOOL rc;
1929
1930 TRACE("(%p) scanning 0x%x default page %u\n",This, dwCodePages,
1931 uDefaultCodePage);
1932
1933 *puCodePage = 0x00000000;
1934
1935 rc = TranslateCharsetInfo((DWORD*)uDefaultCodePage, &cs, TCI_SRCCODEPAGE);
1936
1937 if (rc && (dwCodePages & cs.fs.fsCsb[0]))
1938 {
1939 TRACE("Found Default Codepage\n");
1940 *puCodePage = uDefaultCodePage;
1941 return S_OK;
1942 }
1943
1944
1945 for (i = 0; i < 32; i++)
1946 {
1947
1948 mask = 1 << i;
1949 if (dwCodePages & mask)
1950 {
1951 DWORD Csb[2];
1952 Csb[0] = mask;
1953 Csb[1] = 0x0;
1954 rc = TranslateCharsetInfo(Csb, &cs, TCI_SRCFONTSIG);
1955 if (!rc)
1956 continue;
1957
1958 TRACE("Falling back to least significant found CodePage %u\n",
1959 cs.ciACP);
1960 *puCodePage = cs.ciACP;
1961 return S_OK;
1962 }
1963 }
1964
1965 TRACE("no codepage found\n");
1966 return E_FAIL;
1967 }
1968
1969 static HRESULT WINAPI fnIMLangFontLink_GetFontCodePages(
1970 IMLangFontLink* iface,
1971 HDC hDC,
1972 HFONT hFont,
1973 DWORD* pdwCodePages)
1974 {
1975 HFONT old_font;
1976 FONTSIGNATURE fontsig;
1977 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink, iface);
1978
1979 TRACE("(%p)\n",This);
1980
1981 old_font = SelectObject(hDC,hFont);
1982 GetTextCharsetInfo(hDC,&fontsig, 0);
1983 SelectObject(hDC,old_font);
1984
1985 *pdwCodePages = fontsig.fsCsb[0];
1986 TRACE("CodePages is 0x%x\n",fontsig.fsCsb[0]);
1987
1988 return S_OK;
1989 }
1990
1991 static HRESULT WINAPI fnIMLangFontLink_MapFont(
1992 IMLangFontLink* iface,
1993 HDC hDC,
1994 DWORD dwCodePages,
1995 HFONT hSrcFont,
1996 HFONT* phDestFont)
1997 {
1998 FIXME("\n");
1999 return E_NOTIMPL;
2000 }
2001
2002 static HRESULT WINAPI fnIMLangFontLink_ReleaseFont(
2003 IMLangFontLink* iface,
2004 HFONT hFont)
2005 {
2006 FIXME("\n");
2007 return E_NOTIMPL;
2008 }
2009
2010 static HRESULT WINAPI fnIMLangFontLink_ResetFontMapping(
2011 IMLangFontLink* iface)
2012 {
2013 FIXME("\n");
2014 return E_NOTIMPL;
2015 }
2016
2017
2018 static const IMLangFontLinkVtbl IMLangFontLink_vtbl =
2019 {
2020 fnIMLangFontLink_QueryInterface,
2021 fnIMLangFontLink_AddRef,
2022 fnIMLangFontLink_Release,
2023 fnIMLangFontLink_GetCharCodePages,
2024 fnIMLangFontLink_GetStrCodePages,
2025 fnIMLangFontLink_CodePageToCodePages,
2026 fnIMLangFontLink_CodePagesToCodePage,
2027 fnIMLangFontLink_GetFontCodePages,
2028 fnIMLangFontLink_MapFont,
2029 fnIMLangFontLink_ReleaseFont,
2030 fnIMLangFontLink_ResetFontMapping,
2031 };
2032
2033 /******************************************************************************/
2034
2035 static HRESULT WINAPI fnIMultiLanguage_QueryInterface(
2036 IMultiLanguage* iface,
2037 REFIID riid,
2038 void** ppvObject)
2039 {
2040 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2041 return MLang_QueryInterface( This, riid, ppvObject );
2042 }
2043
2044 static ULONG WINAPI fnIMultiLanguage_AddRef( IMultiLanguage* iface )
2045 {
2046 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2047 return IMLangFontLink_AddRef( ((IMLangFontLink*)This) );
2048 }
2049
2050 static ULONG WINAPI fnIMultiLanguage_Release( IMultiLanguage* iface )
2051 {
2052 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2053 return IMLangFontLink_Release( ((IMLangFontLink*)This) );
2054 }
2055
2056 static HRESULT WINAPI fnIMultiLanguage_GetNumberOfCodePageInfo(
2057 IMultiLanguage* iface,
2058 UINT* pcCodePage)
2059 {
2060 FIXME("\n");
2061 return E_NOTIMPL;
2062 }
2063
2064 static HRESULT WINAPI fnIMultiLanguage_GetCodePageInfo(
2065 IMultiLanguage* iface,
2066 UINT uiCodePage,
2067 PMIMECPINFO pCodePageInfo)
2068 {
2069 UINT i, n;
2070
2071 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2072 TRACE("%p, %u, %p\n", This, uiCodePage, pCodePageInfo);
2073
2074 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2075 {
2076 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2077 {
2078 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
2079 {
2080 fill_cp_info(&mlang_data[i], n, pCodePageInfo);
2081 return S_OK;
2082 }
2083 }
2084 }
2085
2086 return S_FALSE;
2087 }
2088
2089 static HRESULT WINAPI fnIMultiLanguage_GetFamilyCodePage(
2090 IMultiLanguage* iface,
2091 UINT uiCodePage,
2092 UINT* puiFamilyCodePage)
2093 {
2094 return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
2095 }
2096
2097 static HRESULT WINAPI fnIMultiLanguage_EnumCodePages(
2098 IMultiLanguage* iface,
2099 DWORD grfFlags,
2100 IEnumCodePage** ppEnumCodePage)
2101 {
2102 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2103 TRACE("%p %08x %p\n", This, grfFlags, ppEnumCodePage);
2104
2105 return EnumCodePage_create( This, grfFlags, 0, ppEnumCodePage );
2106 }
2107
2108 static HRESULT WINAPI fnIMultiLanguage_GetCharsetInfo(
2109 IMultiLanguage* iface,
2110 BSTR Charset,
2111 PMIMECSETINFO pCharsetInfo)
2112 {
2113 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2114 return IMultiLanguage3_GetCharsetInfo((IMultiLanguage3*)&This->vtbl_IMultiLanguage3, Charset, pCharsetInfo);
2115 }
2116
2117 static HRESULT WINAPI fnIMultiLanguage_IsConvertible(
2118 IMultiLanguage* iface,
2119 DWORD dwSrcEncoding,
2120 DWORD dwDstEncoding)
2121 {
2122 return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
2123 }
2124
2125 static HRESULT WINAPI fnIMultiLanguage_ConvertString(
2126 IMultiLanguage* iface,
2127 DWORD* pdwMode,
2128 DWORD dwSrcEncoding,
2129 DWORD dwDstEncoding,
2130 BYTE* pSrcStr,
2131 UINT* pcSrcSize,
2132 BYTE* pDstStr,
2133 UINT* pcDstSize)
2134 {
2135 return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
2136 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
2137 }
2138
2139 static HRESULT WINAPI fnIMultiLanguage_ConvertStringToUnicode(
2140 IMultiLanguage* iface,
2141 DWORD* pdwMode,
2142 DWORD dwEncoding,
2143 CHAR* pSrcStr,
2144 UINT* pcSrcSize,
2145 WCHAR* pDstStr,
2146 UINT* pcDstSize)
2147 {
2148 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
2149 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2150 }
2151
2152 static HRESULT WINAPI fnIMultiLanguage_ConvertStringFromUnicode(
2153 IMultiLanguage* iface,
2154 DWORD* pdwMode,
2155 DWORD dwEncoding,
2156 WCHAR* pSrcStr,
2157 UINT* pcSrcSize,
2158 CHAR* pDstStr,
2159 UINT* pcDstSize)
2160 {
2161 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
2162 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2163 }
2164
2165 static HRESULT WINAPI fnIMultiLanguage_ConvertStringReset(
2166 IMultiLanguage* iface)
2167 {
2168 FIXME("\n");
2169 return E_NOTIMPL;
2170 }
2171
2172 static HRESULT WINAPI fnIMultiLanguage_GetRfc1766FromLcid(
2173 IMultiLanguage* iface,
2174 LCID lcid,
2175 BSTR* pbstrRfc1766)
2176 {
2177 WCHAR buf[MAX_RFC1766_NAME];
2178
2179 TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
2180
2181 if (lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
2182 {
2183 *pbstrRfc1766 = SysAllocString( buf );
2184 return S_OK;
2185 }
2186 return E_FAIL;
2187 }
2188
2189 static HRESULT WINAPI fnIMultiLanguage_GetLcidFromRfc1766(
2190 IMultiLanguage* iface,
2191 LCID* pLocale,
2192 BSTR bstrRfc1766)
2193 {
2194 HRESULT hr;
2195 IEnumRfc1766 *rfc1766;
2196
2197 TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
2198
2199 if (!pLocale || !bstrRfc1766)
2200 return E_INVALIDARG;
2201
2202 hr = IMultiLanguage_EnumRfc1766(iface, &rfc1766);
2203 if (FAILED(hr))
2204 return hr;
2205
2206 hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
2207
2208 IEnumRfc1766_Release(rfc1766);
2209 return hr;
2210 }
2211
2212 /******************************************************************************/
2213
2214 typedef struct tagEnumRfc1766_impl
2215 {
2216 const IEnumRfc1766Vtbl *vtbl_IEnumRfc1766;
2217 LONG ref;
2218 RFC1766INFO *info;
2219 DWORD total, pos;
2220 } EnumRfc1766_impl;
2221
2222 static HRESULT WINAPI fnIEnumRfc1766_QueryInterface(
2223 IEnumRfc1766 *iface,
2224 REFIID riid,
2225 void** ppvObject)
2226 {
2227 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2228
2229 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
2230
2231 if (IsEqualGUID(riid, &IID_IUnknown)
2232 || IsEqualGUID(riid, &IID_IEnumRfc1766))
2233 {
2234 IEnumRfc1766_AddRef(iface);
2235 TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This, This->ref);
2236 *ppvObject = &(This->vtbl_IEnumRfc1766);
2237 return S_OK;
2238 }
2239
2240 WARN("(%p) -> (%s,%p), not found\n",This,debugstr_guid(riid),ppvObject);
2241 return E_NOINTERFACE;
2242 }
2243
2244 static ULONG WINAPI fnIEnumRfc1766_AddRef(
2245 IEnumRfc1766 *iface)
2246 {
2247 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2248 return InterlockedIncrement(&This->ref);
2249 }
2250
2251 static ULONG WINAPI fnIEnumRfc1766_Release(
2252 IEnumRfc1766 *iface)
2253 {
2254 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2255 ULONG ref = InterlockedDecrement(&This->ref);
2256
2257 TRACE("%p ref = %d\n", This, ref);
2258 if (ref == 0)
2259 {
2260 TRACE("Destroying %p\n", This);
2261 HeapFree(GetProcessHeap(), 0, This->info);
2262 HeapFree(GetProcessHeap(), 0, This);
2263 }
2264 return ref;
2265 }
2266
2267 static HRESULT WINAPI fnIEnumRfc1766_Clone(
2268 IEnumRfc1766 *iface,
2269 IEnumRfc1766 **ppEnum)
2270 {
2271 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2272 FIXME("%p %p\n", This, ppEnum);
2273 return E_NOTIMPL;
2274 }
2275
2276 static HRESULT WINAPI fnIEnumRfc1766_Next(
2277 IEnumRfc1766 *iface,
2278 ULONG celt,
2279 PRFC1766INFO rgelt,
2280 ULONG *pceltFetched)
2281 {
2282 ULONG i;
2283
2284 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2285 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
2286
2287 if (!pceltFetched) return S_FALSE;
2288 *pceltFetched = 0;
2289
2290 if (!rgelt) return S_FALSE;
2291
2292 if (This->pos + celt > This->total)
2293 celt = This->total - This->pos;
2294
2295 if (!celt) return S_FALSE;
2296
2297 memcpy(rgelt, This->info + This->pos, celt * sizeof(RFC1766INFO));
2298 *pceltFetched = celt;
2299 This->pos += celt;
2300
2301 for (i = 0; i < celt; i++)
2302 {
2303 TRACE("#%u: %08x %s %s\n",
2304 i, rgelt[i].lcid,
2305 wine_dbgstr_w(rgelt[i].wszRfc1766),
2306 wine_dbgstr_w(rgelt[i].wszLocaleName));
2307 }
2308 return S_OK;
2309 }
2310
2311 static HRESULT WINAPI fnIEnumRfc1766_Reset(
2312 IEnumRfc1766 *iface)
2313 {
2314 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2315 TRACE("%p\n", This);
2316
2317 This->pos = 0;
2318 return S_OK;
2319 }
2320
2321 static HRESULT WINAPI fnIEnumRfc1766_Skip(
2322 IEnumRfc1766 *iface,
2323 ULONG celt)
2324 {
2325 ICOM_THIS_MULTI(EnumRfc1766_impl, vtbl_IEnumRfc1766, iface);
2326 TRACE("%p %u\n", This, celt);
2327
2328 if (celt >= This->total) return S_FALSE;
2329
2330 This->pos += celt;
2331 return S_OK;
2332 }
2333
2334 static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl =
2335 {
2336 fnIEnumRfc1766_QueryInterface,
2337 fnIEnumRfc1766_AddRef,
2338 fnIEnumRfc1766_Release,
2339 fnIEnumRfc1766_Clone,
2340 fnIEnumRfc1766_Next,
2341 fnIEnumRfc1766_Reset,
2342 fnIEnumRfc1766_Skip
2343 };
2344
2345 struct enum_locales_data
2346 {
2347 RFC1766INFO *info;
2348 DWORD total, allocated;
2349 };
2350
2351 static BOOL CALLBACK enum_locales_proc(LPWSTR locale)
2352 {
2353 WCHAR *end;
2354 struct enum_locales_data *data = TlsGetValue(MLANG_tls_index);
2355 RFC1766INFO *info;
2356
2357 TRACE("%s\n", debugstr_w(locale));
2358
2359 if (data->total >= data->allocated)
2360 {
2361 data->allocated += 32;
2362 data->info = HeapReAlloc(GetProcessHeap(), 0, data->info, data->allocated * sizeof(RFC1766INFO));
2363 if (!data->info) return FALSE;
2364 }
2365
2366 info = &data->info[data->total];
2367
2368 info->lcid = strtolW(locale, &end, 16);
2369 if (*end) /* invalid number */
2370 return FALSE;
2371
2372 info->wszRfc1766[0] = 0;
2373 lcid_to_rfc1766W( info->lcid, info->wszRfc1766, MAX_RFC1766_NAME );
2374
2375 info->wszLocaleName[0] = 0;
2376 GetLocaleInfoW(info->lcid, LOCALE_SLANGUAGE, info->wszLocaleName, MAX_LOCALE_NAME);
2377 TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info->wszRfc1766), wine_dbgstr_w(info->wszLocaleName));
2378
2379 data->total++;
2380
2381 return TRUE;
2382 }
2383
2384 static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum)
2385 {
2386 EnumRfc1766_impl *rfc;
2387 struct enum_locales_data data;
2388
2389 TRACE("%04x, %p\n", LangId, ppEnum);
2390
2391 rfc = HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl) );
2392 rfc->vtbl_IEnumRfc1766 = &IEnumRfc1766_vtbl;
2393 rfc->ref = 1;
2394 rfc->pos = 0;
2395 rfc->total = 0;
2396
2397 data.total = 0;
2398 data.allocated = 32;
2399 data.info = HeapAlloc(GetProcessHeap(), 0, data.allocated * sizeof(RFC1766INFO));
2400 if (!data.info)
2401 {
2402 HeapFree(GetProcessHeap(), 0, rfc);
2403 return S_FALSE;
2404 }
2405
2406 TlsSetValue(MLANG_tls_index, &data);
2407 EnumSystemLocalesW(enum_locales_proc, 0/*LOCALE_SUPPORTED*/);
2408 TlsSetValue(MLANG_tls_index, NULL);
2409
2410 TRACE("enumerated %d rfc1766 structures\n", data.total);
2411
2412 if (!data.total)
2413 {
2414 HeapFree(GetProcessHeap(), 0, data.info);
2415 HeapFree(GetProcessHeap(), 0, rfc);
2416 return FALSE;
2417 }
2418
2419 rfc->info = data.info;
2420 rfc->total = data.total;
2421
2422 *ppEnum = (IEnumRfc1766 *)rfc;
2423 return S_OK;
2424 }
2425
2426 static HRESULT WINAPI fnIMultiLanguage_EnumRfc1766(
2427 IMultiLanguage *iface,
2428 IEnumRfc1766 **ppEnumRfc1766)
2429 {
2430 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2431 TRACE("%p %p\n", This, ppEnumRfc1766);
2432
2433 return EnumRfc1766_create(0, ppEnumRfc1766);
2434 }
2435
2436 /******************************************************************************/
2437
2438 static HRESULT WINAPI fnIMultiLanguage_GetRfc1766Info(
2439 IMultiLanguage* iface,
2440 LCID Locale,
2441 PRFC1766INFO pRfc1766Info)
2442 {
2443 FIXME("\n");
2444 return E_NOTIMPL;
2445 }
2446
2447 static HRESULT WINAPI fnIMultiLanguage_CreateConvertCharset(
2448 IMultiLanguage* iface,
2449 UINT uiSrcCodePage,
2450 UINT uiDstCodePage,
2451 DWORD dwProperty,
2452 IMLangConvertCharset** ppMLangConvertCharset)
2453 {
2454 FIXME("\n");
2455 return E_NOTIMPL;
2456 }
2457
2458 static const IMultiLanguageVtbl IMultiLanguage_vtbl =
2459 {
2460 fnIMultiLanguage_QueryInterface,
2461 fnIMultiLanguage_AddRef,
2462 fnIMultiLanguage_Release,
2463 fnIMultiLanguage_GetNumberOfCodePageInfo,
2464 fnIMultiLanguage_GetCodePageInfo,
2465 fnIMultiLanguage_GetFamilyCodePage,
2466 fnIMultiLanguage_EnumCodePages,
2467 fnIMultiLanguage_GetCharsetInfo,
2468 fnIMultiLanguage_IsConvertible,
2469 fnIMultiLanguage_ConvertString,
2470 fnIMultiLanguage_ConvertStringToUnicode,
2471 fnIMultiLanguage_ConvertStringFromUnicode,
2472 fnIMultiLanguage_ConvertStringReset,
2473 fnIMultiLanguage_GetRfc1766FromLcid,
2474 fnIMultiLanguage_GetLcidFromRfc1766,
2475 fnIMultiLanguage_EnumRfc1766,
2476 fnIMultiLanguage_GetRfc1766Info,
2477 fnIMultiLanguage_CreateConvertCharset,
2478 };
2479
2480
2481 /******************************************************************************/
2482
2483 static HRESULT WINAPI fnIMultiLanguage2_QueryInterface(
2484 IMultiLanguage3* iface,
2485 REFIID riid,
2486 void** ppvObject)
2487 {
2488 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2489 return MLang_QueryInterface( This, riid, ppvObject );
2490 }
2491
2492 static ULONG WINAPI fnIMultiLanguage2_AddRef( IMultiLanguage3* iface )
2493 {
2494 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2495 return MLang_AddRef( This );
2496 }
2497
2498 static ULONG WINAPI fnIMultiLanguage2_Release( IMultiLanguage3* iface )
2499 {
2500 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2501 return MLang_Release( This );
2502 }
2503
2504 static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfCodePageInfo(
2505 IMultiLanguage3* iface,
2506 UINT* pcCodePage)
2507 {
2508 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2509 TRACE("%p, %p\n", This, pcCodePage);
2510
2511 if (!pcCodePage) return S_FALSE;
2512
2513 *pcCodePage = This->total_cp;
2514 return S_OK;
2515 }
2516
2517 static void fill_cp_info(const struct mlang_data *ml_data, UINT index, MIMECPINFO *mime_cp_info)
2518 {
2519 CHARSETINFO csi;
2520
2521 if (TranslateCharsetInfo((DWORD *)ml_data->family_codepage, &csi, TCI_SRCCODEPAGE))
2522 mime_cp_info->bGDICharset = csi.ciCharset;
2523 else
2524 mime_cp_info->bGDICharset = DEFAULT_CHARSET;
2525
2526 mime_cp_info->dwFlags = ml_data->mime_cp_info[index].flags;
2527 mime_cp_info->uiCodePage = ml_data->mime_cp_info[index].cp;
2528 mime_cp_info->uiFamilyCodePage = ml_data->family_codepage;
2529 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].description, -1,
2530 mime_cp_info->wszDescription, sizeof(mime_cp_info->wszDescription)/sizeof(WCHAR));
2531 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].web_charset, -1,
2532 mime_cp_info->wszWebCharset, sizeof(mime_cp_info->wszWebCharset)/sizeof(WCHAR));
2533 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].header_charset, -1,
2534 mime_cp_info->wszHeaderCharset, sizeof(mime_cp_info->wszHeaderCharset)/sizeof(WCHAR));
2535 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].body_charset, -1,
2536 mime_cp_info->wszBodyCharset, sizeof(mime_cp_info->wszBodyCharset)/sizeof(WCHAR));
2537
2538 MultiByteToWideChar(CP_ACP, 0, ml_data->fixed_font, -1,
2539 mime_cp_info->wszFixedWidthFont, sizeof(mime_cp_info->wszFixedWidthFont)/sizeof(WCHAR));
2540 MultiByteToWideChar(CP_ACP, 0, ml_data->proportional_font, -1,
2541 mime_cp_info->wszProportionalFont, sizeof(mime_cp_info->wszProportionalFont)/sizeof(WCHAR));
2542
2543 TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
2544 mime_cp_info->dwFlags, mime_cp_info->uiCodePage,
2545 mime_cp_info->uiFamilyCodePage,
2546 wine_dbgstr_w(mime_cp_info->wszDescription),
2547 wine_dbgstr_w(mime_cp_info->wszWebCharset),
2548 wine_dbgstr_w(mime_cp_info->wszHeaderCharset),
2549 wine_dbgstr_w(mime_cp_info->wszBodyCharset),
2550 wine_dbgstr_w(mime_cp_info->wszFixedWidthFont),
2551 wine_dbgstr_w(mime_cp_info->wszProportionalFont),
2552 mime_cp_info->bGDICharset);
2553 }
2554
2555 static HRESULT WINAPI fnIMultiLanguage2_GetCodePageInfo(
2556 IMultiLanguage3* iface,
2557 UINT uiCodePage,
2558 LANGID LangId,
2559 PMIMECPINFO pCodePageInfo)
2560 {
2561 UINT i, n;
2562
2563 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2564 TRACE("%p, %u, %04x, %p\n", This, uiCodePage, LangId, pCodePageInfo);
2565
2566 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2567 {
2568 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2569 {
2570 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
2571 {
2572 fill_cp_info(&mlang_data[i], n, pCodePageInfo);
2573 return S_OK;
2574 }
2575 }
2576 }
2577
2578 return S_FALSE;
2579 }
2580
2581 static HRESULT WINAPI fnIMultiLanguage2_GetFamilyCodePage(
2582 IMultiLanguage3* iface,
2583 UINT uiCodePage,
2584 UINT* puiFamilyCodePage)
2585 {
2586 return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
2587 }
2588
2589 static HRESULT WINAPI fnIMultiLanguage2_EnumCodePages(
2590 IMultiLanguage3* iface,
2591 DWORD grfFlags,
2592 LANGID LangId,
2593 IEnumCodePage** ppEnumCodePage)
2594 {
2595 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2596 TRACE("%p %08x %04x %p\n", This, grfFlags, LangId, ppEnumCodePage);
2597
2598 return EnumCodePage_create( This, grfFlags, LangId, ppEnumCodePage );
2599 }
2600
2601 static HRESULT WINAPI fnIMultiLanguage2_GetCharsetInfo(
2602 IMultiLanguage3* iface,
2603 BSTR Charset,
2604 PMIMECSETINFO pCharsetInfo)
2605 {
2606 UINT i, n;
2607
2608 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2609 TRACE("%p %s %p\n", This, debugstr_w(Charset), pCharsetInfo);
2610
2611 if (!pCharsetInfo) return E_FAIL;
2612
2613 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2614 {
2615 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2616 {
2617 WCHAR csetW[MAX_MIMECSET_NAME];
2618
2619 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].web_charset, -1, csetW, MAX_MIMECSET_NAME);
2620 if (!lstrcmpiW(Charset, csetW))
2621 {
2622 pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
2623 pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
2624 strcpyW(pCharsetInfo->wszCharset, csetW);
2625 return S_OK;
2626 }
2627 }
2628 }
2629
2630 /* FIXME:
2631 * Since we do not support charsets like iso-2022-jp and do not have
2632 * them in our database as a primary (web_charset) encoding this loop
2633 * does an attempt to 'approximate' charset name by header_charset.
2634 */
2635 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2636 {
2637 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2638 {
2639 WCHAR csetW[MAX_MIMECSET_NAME];
2640
2641 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].header_charset, -1, csetW, MAX_MIMECSET_NAME);
2642 if (!lstrcmpiW(Charset, csetW))
2643 {
2644 pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
2645 pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
2646 strcpyW(pCharsetInfo->wszCharset, csetW);
2647 return S_OK;
2648 }
2649 }
2650 }
2651
2652 return E_FAIL;
2653 }
2654
2655 static HRESULT WINAPI fnIMultiLanguage2_IsConvertible(
2656 IMultiLanguage3* iface,
2657 DWORD dwSrcEncoding,
2658 DWORD dwDstEncoding)
2659 {
2660 return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
2661 }
2662
2663 static HRESULT WINAPI fnIMultiLanguage2_ConvertString(
2664 IMultiLanguage3* iface,
2665 DWORD* pdwMode,
2666 DWORD dwSrcEncoding,
2667 DWORD dwDstEncoding,
2668 BYTE* pSrcStr,
2669 UINT* pcSrcSize,
2670 BYTE* pDstStr,
2671 UINT* pcDstSize)
2672 {
2673 return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
2674 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
2675 }
2676
2677 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicode(
2678 IMultiLanguage3* iface,
2679 DWORD* pdwMode,
2680 DWORD dwEncoding,
2681 CHAR* pSrcStr,
2682 UINT* pcSrcSize,
2683 WCHAR* pDstStr,
2684 UINT* pcDstSize)
2685 {
2686 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
2687 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2688 }
2689
2690 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicode(
2691 IMultiLanguage3* iface,
2692 DWORD* pdwMode,
2693 DWORD dwEncoding,
2694 WCHAR* pSrcStr,
2695 UINT* pcSrcSize,
2696 CHAR* pDstStr,
2697 UINT* pcDstSize)
2698 {
2699 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
2700 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2701 }
2702
2703 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringReset(
2704 IMultiLanguage3* iface)
2705 {
2706 FIXME("\n");
2707 return E_NOTIMPL;
2708 }
2709
2710 static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766FromLcid(
2711 IMultiLanguage3* iface,
2712 LCID lcid,
2713 BSTR* pbstrRfc1766)
2714 {
2715 WCHAR buf[MAX_RFC1766_NAME];
2716
2717 TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
2718
2719 if (lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
2720 {
2721 *pbstrRfc1766 = SysAllocString( buf );
2722 return S_OK;
2723 }
2724 return E_FAIL;
2725 }
2726
2727 static HRESULT WINAPI fnIMultiLanguage2_GetLcidFromRfc1766(
2728 IMultiLanguage3* iface,
2729 LCID* pLocale,
2730 BSTR bstrRfc1766)
2731 {
2732 HRESULT hr;
2733 IEnumRfc1766 *rfc1766;
2734
2735 TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
2736
2737 if (!pLocale || !bstrRfc1766)
2738 return E_INVALIDARG;
2739
2740 hr = IMultiLanguage2_EnumRfc1766(iface, 0, &rfc1766);
2741 if (FAILED(hr))
2742 return hr;
2743
2744 hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
2745
2746 IEnumRfc1766_Release(rfc1766);
2747 return hr;
2748 }
2749
2750 static HRESULT WINAPI fnIMultiLanguage2_EnumRfc1766(
2751 IMultiLanguage3* iface,
2752 LANGID LangId,
2753 IEnumRfc1766** ppEnumRfc1766)
2754 {
2755 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage, iface);
2756 TRACE("%p %p\n", This, ppEnumRfc1766);
2757
2758 return EnumRfc1766_create(LangId, ppEnumRfc1766);
2759 }
2760
2761 static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766Info(
2762 IMultiLanguage3* iface,
2763 LCID Locale,
2764 LANGID LangId,
2765 PRFC1766INFO pRfc1766Info)
2766 {
2767 FIXME("\n");
2768 return E_NOTIMPL;
2769 }
2770
2771 static HRESULT WINAPI fnIMultiLanguage2_CreateConvertCharset(
2772 IMultiLanguage3* iface,
2773 UINT uiSrcCodePage,
2774 UINT uiDstCodePage,
2775 DWORD dwProperty,
2776 IMLangConvertCharset** ppMLangConvertCharset)
2777 {
2778 FIXME("\n");
2779 return E_NOTIMPL;
2780 }
2781
2782 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringInIStream(
2783 IMultiLanguage3* iface,
2784 DWORD* pdwMode,
2785 DWORD dwFlag,
2786 WCHAR* lpFallBack,
2787 DWORD dwSrcEncoding,
2788 DWORD dwDstEncoding,
2789 IStream* pstmIn,
2790 IStream* pstmOut)
2791 {
2792 char *src, *dst = NULL;
2793 INT srclen, dstlen;
2794 STATSTG stat;
2795 HRESULT hr;
2796
2797 TRACE("%p %0x8 %s %u %u %p %p\n",
2798 pdwMode, dwFlag, debugstr_w(lpFallBack), dwSrcEncoding, dwDstEncoding, pstmIn, pstmOut);
2799
2800 FIXME("dwFlag and lpFallBack not handled\n");
2801
2802 hr = IStream_Stat(pstmIn, &stat, STATFLAG_NONAME);
2803 if (FAILED(hr)) return hr;
2804
2805 if (stat.cbSize.QuadPart > MAXLONG) return E_INVALIDARG;
2806 if (!(src = HeapAlloc(GetProcessHeap(), 0, stat.cbSize.QuadPart))) return E_OUTOFMEMORY;
2807
2808 hr = IStream_Read(pstmIn, src, stat.cbSize.QuadPart, (ULONG *)&srclen);
2809 if (FAILED(hr)) goto exit;
2810
2811 hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, NULL, &dstlen);
2812 if (FAILED(hr)) goto exit;
2813
2814 if (!(dst = HeapAlloc(GetProcessHeap(), 0, dstlen)))
2815 {
2816 hr = E_OUTOFMEMORY;
2817 goto exit;
2818 }
2819 hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, dst, &dstlen);
2820 if (FAILED(hr)) goto exit;
2821
2822 hr = IStream_Write(pstmOut, dst, dstlen, NULL);
2823
2824 exit:
2825 HeapFree(GetProcessHeap(), 0, src);
2826 HeapFree(GetProcessHeap(), 0, dst);
2827 return hr;
2828 }
2829
2830 /*
2831 * TODO: handle dwFlag and lpFallBack
2832 */
2833 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicodeEx(
2834 IMultiLanguage3* iface,
2835 DWORD* pdwMode,
2836 DWORD dwEncoding,
2837 CHAR* pSrcStr,
2838 UINT* pcSrcSize,
2839 WCHAR* pDstStr,
2840 UINT* pcDstSize,
2841 DWORD dwFlag,
2842 WCHAR* lpFallBack)
2843 {
2844 FIXME("\n");
2845 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
2846 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2847 }
2848
2849 /*****************************************************************************
2850 * MultiLanguage2::ConvertStringToUnicodeEx
2851 *
2852 * Translates the multibyte string from the specified code page to Unicode.
2853 *
2854 * PARAMS
2855 * see ConvertStringToUnicode
2856 * dwFlag
2857 * lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
2858 * instead unconvertible characters.
2859 *
2860 * RETURNS
2861 * S_OK Success.
2862 * S_FALSE The conversion is not supported.
2863 * E_FAIL Some error has occurred.
2864 *
2865 * TODO: handle dwFlag and lpFallBack
2866 */
2867 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicodeEx(
2868 IMultiLanguage3* This,
2869 DWORD* pdwMode,
2870 DWORD dwEncoding,
2871 WCHAR* pSrcStr,
2872 UINT* pcSrcSize,
2873 CHAR* pDstStr,
2874 UINT* pcDstSize,
2875 DWORD dwFlag,
2876 WCHAR* lpFallBack)
2877 {
2878 FIXME("\n");
2879 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
2880 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2881 }
2882
2883 static HRESULT WINAPI fnIMultiLanguage2_DetectCodepageInIStream(
2884 IMultiLanguage3* iface,
2885 DWORD dwFlag,
2886 DWORD dwPrefWinCodePage,
2887 IStream* pstmIn,
2888 DetectEncodingInfo* lpEncoding,
2889 INT* pnScores)
2890 {
2891 FIXME("\n");
2892 return E_NOTIMPL;
2893 }
2894
2895 static HRESULT WINAPI fnIMultiLanguage2_DetectInputCodepage(
2896 IMultiLanguage3* iface,
2897 DWORD dwFlag,
2898 DWORD dwPrefWinCodePage,
2899 CHAR* pSrcStr,
2900 INT* pcSrcSize,
2901 DetectEncodingInfo* lpEncoding,
2902 INT* pnScores)
2903 {
2904 FIXME("\n");
2905 return E_NOTIMPL;
2906 }
2907
2908 static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePage(
2909 IMultiLanguage3* iface,
2910 UINT uiCodePage,
2911 HWND hwnd)
2912 {
2913 return IMultiLanguage2_ValidateCodePageEx(iface,uiCodePage,hwnd,0);
2914 }
2915
2916 static HRESULT WINAPI fnIMultiLanguage2_GetCodePageDescription(
2917 IMultiLanguage3* iface,
2918 UINT uiCodePage,
2919 LCID lcid,
2920 LPWSTR lpWideCharStr,
2921 int cchWideChar)
2922 {
2923 /* Find first instance */
2924 unsigned int i,n;
2925
2926 TRACE ("%u, %04x, %p, %d\n", uiCodePage, lcid, lpWideCharStr, cchWideChar);
2927 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2928 {
2929 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2930 {
2931 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
2932 {
2933 MultiByteToWideChar(CP_ACP, 0,
2934 mlang_data[i].mime_cp_info[n].description,
2935 -1, lpWideCharStr, cchWideChar);
2936 return S_OK;
2937 }
2938 }
2939 }
2940
2941 return S_FALSE;
2942 }
2943
2944 static HRESULT WINAPI fnIMultiLanguage2_IsCodePageInstallable(
2945 IMultiLanguage3* iface,
2946 UINT uiCodePage)
2947 {
2948 FIXME("%u\n", uiCodePage);
2949 return E_NOTIMPL;
2950 }
2951
2952 static HRESULT WINAPI fnIMultiLanguage2_SetMimeDBSource(
2953 IMultiLanguage3* iface,
2954 MIMECONTF dwSource)
2955 {
2956 FIXME("0x%08x\n", dwSource);
2957 return S_OK;
2958 }
2959
2960 static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfScripts(
2961 IMultiLanguage3* iface,
2962 UINT* pnScripts)
2963 {
2964 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2965 TRACE("%p %p\n", This, pnScripts);
2966
2967 if (!pnScripts) return S_FALSE;
2968
2969 *pnScripts = This->total_scripts;
2970 return S_OK;
2971 }
2972
2973 static HRESULT WINAPI fnIMultiLanguage2_EnumScripts(
2974 IMultiLanguage3* iface,
2975 DWORD dwFlags,
2976 LANGID LangId,
2977 IEnumScript** ppEnumScript)
2978 {
2979 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2980 TRACE("%p %08x %04x %p\n", This, dwFlags, LangId, ppEnumScript);
2981
2982 return EnumScript_create( This, dwFlags, LangId, ppEnumScript );
2983 }
2984
2985 static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePageEx(
2986 IMultiLanguage3* iface,
2987 UINT uiCodePage,
2988 HWND hwnd,
2989 DWORD dwfIODControl)
2990 {
2991 int i;
2992 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
2993
2994 TRACE("%p %u %p %08x\n", This, uiCodePage, hwnd, dwfIODControl);
2995
2996 /* quick check for kernel32 supported code pages */
2997 if (IsValidCodePage(uiCodePage))
2998 return S_OK;
2999
3000 /* check for mlang supported code pages */
3001 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3002 {
3003 int n;
3004 for (n = 0; n < mlang_data[i].number_of_cp; n++)
3005 {
3006 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
3007 return S_OK;
3008 }
3009 }
3010
3011 if (dwfIODControl != CPIOD_PEEK)
3012 FIXME("Request to install codepage language pack not handled\n");
3013
3014 return S_FALSE;
3015 }
3016
3017 static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePage(
3018 IMultiLanguage3 *iface,
3019 DWORD dwFlags,
3020 LPCWSTR lpWideCharStr,
3021 UINT cchWideChar,
3022 UINT *puiPreferredCodePages,
3023 UINT nPreferredCodePages,
3024 UINT *puiDetectedCodePages,
3025 UINT *pnDetectedCodePages,
3026 WCHAR *lpSpecialChar)
3027 {
3028 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
3029 FIXME("(%p)->(%08x %s %u %p %u %p %p %p)\n", This, dwFlags, debugstr_w(lpWideCharStr),
3030 cchWideChar, puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
3031 pnDetectedCodePages, lpSpecialChar);
3032 return E_NOTIMPL;
3033 }
3034
3035 static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePageInIStream(
3036 IMultiLanguage3 *iface,
3037 DWORD dwFlags,
3038 IStream *pStrIn,
3039 UINT *puiPreferredCodePages,
3040 UINT nPreferredCodePages,
3041 UINT *puiDetectedCodePages,
3042 UINT *pnDetectedCodePages,
3043 WCHAR *lpSpecialChar)
3044 {
3045 ICOM_THIS_MULTI(MLang_impl, vtbl_IMultiLanguage3, iface);
3046 FIXME("(%p)->(%08x %p %p %u %p %p %p)\n", This, dwFlags, pStrIn,
3047 puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
3048 pnDetectedCodePages, lpSpecialChar);
3049 return E_NOTIMPL;
3050 }
3051
3052 static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl =
3053 {
3054 fnIMultiLanguage2_QueryInterface,
3055 fnIMultiLanguage2_AddRef,
3056 fnIMultiLanguage2_Release,
3057 fnIMultiLanguage2_GetNumberOfCodePageInfo,
3058 fnIMultiLanguage2_GetCodePageInfo,
3059 fnIMultiLanguage2_GetFamilyCodePage,
3060 fnIMultiLanguage2_EnumCodePages,
3061 fnIMultiLanguage2_GetCharsetInfo,
3062 fnIMultiLanguage2_IsConvertible,
3063 fnIMultiLanguage2_ConvertString,
3064 fnIMultiLanguage2_ConvertStringToUnicode,
3065 fnIMultiLanguage2_ConvertStringFromUnicode,
3066 fnIMultiLanguage2_ConvertStringReset,
3067 fnIMultiLanguage2_GetRfc1766FromLcid,
3068 fnIMultiLanguage2_GetLcidFromRfc1766,
3069 fnIMultiLanguage2_EnumRfc1766,
3070 fnIMultiLanguage2_GetRfc1766Info,
3071 fnIMultiLanguage2_CreateConvertCharset,
3072 fnIMultiLanguage2_ConvertStringInIStream,
3073 fnIMultiLanguage2_ConvertStringToUnicodeEx,
3074 fnIMultiLanguage2_ConvertStringFromUnicodeEx,
3075 fnIMultiLanguage2_DetectCodepageInIStream,
3076 fnIMultiLanguage2_DetectInputCodepage,
3077 fnIMultiLanguage2_ValidateCodePage,
3078 fnIMultiLanguage2_GetCodePageDescription,
3079 fnIMultiLanguage2_IsCodePageInstallable,
3080 fnIMultiLanguage2_SetMimeDBSource,
3081 fnIMultiLanguage2_GetNumberOfScripts,
3082 fnIMultiLanguage2_EnumScripts,
3083 fnIMultiLanguage2_ValidateCodePageEx,
3084 fnIMultiLanguage3_DetectOutboundCodePage,
3085 fnIMultiLanguage3_DetectOutboundCodePageInIStream
3086 };
3087
3088 /******************************************************************************/
3089 static HRESULT WINAPI fnIMLangFontLink2_QueryInterface(
3090 IMLangFontLink2 * iface,
3091 REFIID riid,
3092 void** ppvObject)
3093 {
3094 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink2, iface);
3095 return MLang_QueryInterface( This, riid, ppvObject );
3096 }
3097
3098 static ULONG WINAPI fnIMLangFontLink2_AddRef( IMLangFontLink2* iface )
3099 {
3100 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink2, iface);
3101 return MLang_AddRef( This );
3102 }
3103
3104 static ULONG WINAPI fnIMLangFontLink2_Release( IMLangFontLink2* iface )
3105 {
3106 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangFontLink2, iface);
3107 return MLang_Release( This );
3108 }
3109
3110 static HRESULT WINAPI fnIMLangFontLink2_GetCharCodePages( IMLangFontLink2* This,
3111 WCHAR chSrc, DWORD *pdwCodePages)
3112 {
3113 FIXME("(%p)->%s %p\n",This, debugstr_wn(&chSrc,1),pdwCodePages);
3114 return E_NOTIMPL;
3115 }
3116
3117 static HRESULT WINAPI fnIMLangFontLink2_GetStrCodePages( IMLangFontLink2* This,
3118 const WCHAR *pszSrc, long cchSrc, DWORD dwPriorityCodePages,
3119 DWORD *pdwCodePages, long *pcchCodePages)
3120 {
3121 FIXME("(%p)->%s %li %x %p %p\n",This, debugstr_wn(pszSrc,cchSrc),cchSrc,dwPriorityCodePages,pdwCodePages,pcchCodePages);
3122 *pdwCodePages = 0;
3123 *pcchCodePages = 1;
3124 return S_OK;
3125 }
3126
3127 static HRESULT WINAPI fnIMLangFontLink2_CodePageToCodePages(IMLangFontLink2* This,
3128 UINT uCodePage,
3129 DWORD *pdwCodePages)
3130 {
3131 FIXME("(%p)->%i %p\n",This, uCodePage, pdwCodePages);
3132 return E_NOTIMPL;
3133 }
3134
3135 static HRESULT WINAPI fnIMLangFontLink2_CodePagesToCodePage(IMLangFontLink2* This,
3136 DWORD dwCodePages, UINT uDefaultCodePage, UINT *puCodePage)
3137 {
3138 FIXME("(%p)->%i %i %p\n",This, dwCodePages, uDefaultCodePage, puCodePage);
3139 return E_NOTIMPL;
3140 }
3141
3142 static HRESULT WINAPI fnIMLangFontLink2_GetFontCodePages(IMLangFontLink2* This,
3143 HDC hDC, HFONT hFont, DWORD *pdwCodePages)
3144 {
3145 FIXME("(%p)->%p %p %p\n",This, hDC, hFont, pdwCodePages);
3146 return E_NOTIMPL;
3147 }
3148
3149 static HRESULT WINAPI fnIMLangFontLink2_ReleaseFont(IMLangFontLink2* This,
3150 HFONT hFont)
3151 {
3152 FIXME("(%p)->%p\n",This, hFont);
3153 return E_NOTIMPL;
3154 }
3155
3156 static HRESULT WINAPI fnIMLangFontLink2_ResetFontMapping(IMLangFontLink2* This)
3157 {
3158 FIXME("(%p)->\n",This);
3159 return E_NOTIMPL;
3160 }
3161
3162 static HRESULT WINAPI fnIMLangFontLink2_MapFont(IMLangFontLink2* This,
3163 HDC hDC, DWORD dwCodePages, WCHAR chSrc, HFONT *pFont)
3164 {
3165 FIXME("(%p)->%p %i %s %p\n",This, hDC, dwCodePages, debugstr_wn(&chSrc,1), pFont);
3166 return E_NOTIMPL;
3167 }
3168
3169 static HRESULT WINAPI fnIMLangFontLink2_GetFontUnicodeRanges(IMLangFontLink2* This,
3170 HDC hDC, UINT *puiRanges, UNICODERANGE *pUranges)
3171 {
3172 FIXME("(%p)->%p %p %p\n",This, hDC, puiRanges, pUranges);
3173 return E_NOTIMPL;
3174 }
3175
3176 static HRESULT WINAPI fnIMLangFontLink2_GetScriptFontInfo(IMLangFontLink2* This,
3177 SCRIPT_ID sid, DWORD dwFlags, UINT *puiFonts,
3178 SCRIPTFONTINFO *pScriptFont)
3179 {
3180 FIXME("(%p)->%i %i %p %p\n",This, sid, dwFlags, puiFonts, pScriptFont);
3181 return E_NOTIMPL;
3182 }
3183
3184 static HRESULT WINAPI fnIMLangFontLink2_CodePageToScriptID(IMLangFontLink2* This,
3185 UINT uiCodePage, SCRIPT_ID *pSid)
3186 {
3187 FIXME("(%p)->%i %p\n",This, uiCodePage, pSid);
3188 return E_NOTIMPL;
3189 }
3190
3191 static const IMLangFontLink2Vtbl IMLangFontLink2_vtbl =
3192 {
3193 fnIMLangFontLink2_QueryInterface,
3194 fnIMLangFontLink2_AddRef,
3195 fnIMLangFontLink2_Release,
3196 fnIMLangFontLink2_GetCharCodePages,
3197 fnIMLangFontLink2_GetStrCodePages,
3198 fnIMLangFontLink2_CodePageToCodePages,
3199 fnIMLangFontLink2_CodePagesToCodePage,
3200 fnIMLangFontLink2_GetFontCodePages,
3201 fnIMLangFontLink2_ReleaseFont,
3202 fnIMLangFontLink2_ResetFontMapping,
3203 fnIMLangFontLink2_MapFont,
3204 fnIMLangFontLink2_GetFontUnicodeRanges,
3205 fnIMLangFontLink2_GetScriptFontInfo,
3206 fnIMLangFontLink2_CodePageToScriptID
3207 };
3208
3209 /******************************************************************************/
3210
3211 static HRESULT WINAPI fnIMLangLineBreakConsole_QueryInterface(
3212 IMLangLineBreakConsole* iface,
3213 REFIID riid,
3214 void** ppvObject)
3215 {
3216 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangLineBreakConsole, iface);
3217 return MLang_QueryInterface( This, riid, ppvObject );
3218 }
3219
3220 static ULONG WINAPI fnIMLangLineBreakConsole_AddRef(
3221 IMLangLineBreakConsole* iface )
3222 {
3223 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangLineBreakConsole, iface);
3224 return MLang_AddRef( This );
3225 }
3226
3227 static ULONG WINAPI fnIMLangLineBreakConsole_Release(
3228 IMLangLineBreakConsole* iface )
3229 {
3230 ICOM_THIS_MULTI(MLang_impl, vtbl_IMLangLineBreakConsole, iface);
3231 return MLang_Release( This );
3232 }
3233
3234 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineML(
3235 IMLangLineBreakConsole* iface,
3236 IMLangString* pSrcMLStr,
3237 long lSrcPos,
3238 long lSrcLen,
3239 long cMinColumns,
3240 long cMaxColumns,
3241 long* plLineLen,
3242 long* plSkipLen)
3243 {
3244 FIXME("(%p)->%p %li %li %li %li %p %p\n", iface, pSrcMLStr, lSrcPos, lSrcLen, cMinColumns, cMaxColumns, plLineLen, plSkipLen);
3245 return E_NOTIMPL;
3246 }
3247
3248 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineW(
3249 IMLangLineBreakConsole* iface,
3250 LCID locale,
3251 const WCHAR* pszSrc,
3252 long cchSrc,
3253 long cMaxColumns,
3254 long* pcchLine,
3255 long* pcchSkip )
3256 {
3257 FIXME("(%p)->%i %s %li %li %p %p\n", iface, locale, debugstr_wn(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
3258
3259 *pcchLine = cchSrc;
3260 *pcchSkip = 0;
3261 return S_OK;
3262 }
3263
3264 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineA(
3265 IMLangLineBreakConsole* iface,
3266 LCID locale,
3267 UINT uCodePage,
3268 const CHAR* pszSrc,
3269 long cchSrc,
3270 long cMaxColumns,
3271 long* pcchLine,
3272 long* pcchSkip)
3273 {
3274 FIXME("(%p)->%i %i %s %li %li %p %p\n", iface, locale, uCodePage, debugstr_an(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
3275
3276 *pcchLine = cchSrc;
3277 *pcchSkip = 0;
3278 return S_OK;
3279 }
3280
3281 static const IMLangLineBreakConsoleVtbl IMLangLineBreakConsole_vtbl =
3282 {
3283 fnIMLangLineBreakConsole_QueryInterface,
3284 fnIMLangLineBreakConsole_AddRef,
3285 fnIMLangLineBreakConsole_Release,
3286 fnIMLangLineBreakConsole_BreakLineML,
3287 fnIMLangLineBreakConsole_BreakLineW,
3288 fnIMLangLineBreakConsole_BreakLineA
3289 };
3290
3291 static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj)
3292 {
3293 MLang_impl *mlang;
3294 UINT i;
3295
3296 TRACE("Creating MultiLanguage object\n");
3297
3298 if( pUnkOuter )
3299 return CLASS_E_NOAGGREGATION;
3300
3301 mlang = HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl) );
3302 mlang->vtbl_IMLangFontLink = &IMLangFontLink_vtbl;
3303 mlang->vtbl_IMultiLanguage = &IMultiLanguage_vtbl;
3304 mlang->vtbl_IMultiLanguage3 = &IMultiLanguage3_vtbl;
3305 mlang->vtbl_IMLangFontLink2 = &IMLangFontLink2_vtbl;
3306 mlang->vtbl_IMLangLineBreakConsole = &IMLangLineBreakConsole_vtbl;
3307
3308 mlang->total_cp = 0;
3309 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3310 mlang->total_cp += mlang_data[i].number_of_cp;
3311
3312 /* do not enumerate unicode flavours */
3313 mlang->total_scripts = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
3314
3315 mlang->ref = 1;
3316 *ppObj = mlang;
3317 TRACE("returning %p\n", mlang);
3318
3319 LockModule();
3320
3321 return S_OK;
3322 }
3323
3324 /******************************************************************************/
3325
3326 HRESULT WINAPI DllCanUnloadNow(void)
3327 {
3328 return dll_count == 0 ? S_OK : S_FALSE;
3329 }
3330
3331 HRESULT WINAPI GetGlobalFontLinkObject(void)
3332 {
3333 FIXME("\n");
3334 return S_FALSE;
3335 }
GSOC 2012 project to enhance the control panel