?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
ole32/tests: Relax the reference counting tests a bit. We only care whether reference...
[wine/hramrach.git] / dlls / mlang / mlang.c
blob47b1745215a8b0f09a505eb693a3abe80c72e550
1 /*
2 * MLANG Class Factory
3 *
4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2003,2004 Mike McCormack
6 * Copyright 2004,2005 Dmitry Timoshkov
7 * Copyright 2009 Detlef Riekenberg
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 */
23
24 #include "config.h"
25
26 #include <stdarg.h>
27 #include <stdio.h>
28
29 #define COBJMACROS
30
31 #include "windef.h"
32 #include "winbase.h"
33 #include "wingdi.h"
34 #include "winuser.h"
35 #include "ole2.h"
36 #include "mlang.h"
37
38 #include "wine/unicode.h"
39 #include "wine/debug.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(mlang);
42
43 #include "initguid.h"
44
45 #define CP_UNICODE 1200
46
47 static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj);
48 static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum);
49
50 static DWORD MLANG_tls_index; /* to store various per thead data */
51
52 /* FIXME:
53 * Under what circumstances HKEY_CLASSES_ROOT\MIME\Database\Codepage and
54 * HKEY_CLASSES_ROOT\MIME\Database\Charset are used?
55 */
56
57 typedef struct
58 {
59 const char *description;
60 UINT cp;
61 DWORD flags;
62 const char *web_charset;
63 const char *header_charset;
64 const char *body_charset;
65 } MIME_CP_INFO;
66
67 /* These data are based on the codepage info in libs/unicode/cpmap.pl */
68 /* FIXME: Add 28604 (Celtic), 28606 (Balkan) */
69
70 static const MIME_CP_INFO arabic_cp[] =
71 {
72 { "Arabic (864)",
73 864, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
74 MIMECONTF_MIME_LATEST,
75 "ibm864", "ibm864", "ibm864" },
76 { "Arabic (1006)",
77 1006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
78 MIMECONTF_MIME_LATEST,
79 "ibm1006", "ibm1006", "ibm1006" },
80 { "Arabic (Windows)",
81 1256, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
82 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
83 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
84 "windows-1256", "windows-1256", "windows-1256" },
85 { "Arabic (ISO)",
86 28596, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
87 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
88 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
89 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
90 "iso-8859-6", "iso-8859-6", "iso-8859-6" }
91 };
92 static const MIME_CP_INFO baltic_cp[] =
93 {
94 { "Baltic (DOS)",
95 775, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
96 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
97 "ibm775", "ibm775", "ibm775" },
98 { "Baltic (Windows)",
99 1257, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
100 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
101 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
102 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
103 "windows-1257", "windows-1257", "windows-1257" },
104 { "Baltic (ISO)",
105 28594, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
106 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
107 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
108 MIMECONTF_MIME_LATEST,
109 "iso-8859-4", "iso-8859-4", "iso-8859-4" },
110 { "Estonian (ISO)",
111 28603, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
112 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
113 "iso-8859-13", "iso-8859-13", "iso-8859-13" }
114 };
115 static const MIME_CP_INFO chinese_simplified_cp[] =
116 {
117 { "Chinese Simplified (GB2312)",
118 936, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
119 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
120 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
121 MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
122 "gb2312", "gb2312", "gb2312" }
123 };
124 static const MIME_CP_INFO chinese_traditional_cp[] =
125 {
126 { "Chinese Traditional (Big5)",
127 950, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
128 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
129 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
130 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
131 "big5", "big5", "big5" }
132 };
133 static const MIME_CP_INFO central_european_cp[] =
134 {
135 { "Central European (DOS)",
136 852, MIMECONTF_BROWSER | MIMECONTF_IMPORT | MIMECONTF_SAVABLE_BROWSER |
137 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
138 MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
139 "ibm852", "ibm852", "ibm852" },
140 { "Central European (Windows)",
141 1250, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
142 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
143 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
144 MIMECONTF_MIME_LATEST,
145 "windows-1250", "windows-1250", "windows-1250" },
146 { "Central European (Mac)",
147 10029, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
148 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
149 "x-mac-ce", "x-mac-ce", "x-mac-ce" },
150 { "Central European (ISO)",
151 28592, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
152 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
153 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
154 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
155 "iso-8859-2", "iso-8859-2", "iso-8859-2" }
156 };
157 static const MIME_CP_INFO cyrillic_cp[] =
158 {
159 { "OEM Cyrillic",
160 855, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
161 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
162 "ibm855", "ibm855", "ibm855" },
163 { "Cyrillic (DOS)",
164 866, MIMECONTF_BROWSER | MIMECONTF_IMPORT | MIMECONTF_SAVABLE_BROWSER |
165 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
166 MIMECONTF_MIME_LATEST,
167 "cp866", "cp866", "cp866" },
168 #if 0 /* Windows has 20866 as an official code page for KOI8-R */
169 { "Cyrillic (KOI8-R)",
170 878, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
171 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
172 "koi8-r", "koi8-r", "koi8-r" },
173 #endif
174 { "Cyrillic (Windows)",
175 1251, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
176 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
177 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
178 "windows-1251", "windows-1251", "windows-1251" },
179 { "Cyrillic (Mac)",
180 10007, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
181 MIMECONTF_MIME_LATEST,
182 "x-mac-cyrillic", "x-mac-cyrillic", "x-mac-cyrillic" },
183 { "Cyrillic (KOI8-R)",
184 20866, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
185 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
186 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
187 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
188 "koi8-r", "koi8-r", "koi8-r" },
189 { "Cyrillic (KOI8-U)",
190 21866, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
191 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
192 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
193 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
194 "koi8-u", "koi8-u", "koi8-u" },
195 { "Cyrillic (ISO)",
196 28595, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
197 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
198 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
199 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
200 "iso-8859-5", "iso-8859-5", "iso-8859-5" }
201 };
202 static const MIME_CP_INFO greek_cp[] =
203 {
204 { "Greek (DOS)",
205 737, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
206 MIMECONTF_MIME_LATEST,
207 "ibm737", "ibm737", "ibm737" },
208 { "Greek, Modern (DOS)",
209 869, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
210 MIMECONTF_MIME_LATEST,
211 "ibm869", "ibm869", "ibm869" },
212 { "IBM EBCDIC (Greek Modern)",
213 875, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
214 MIMECONTF_MIME_LATEST,
215 "cp875", "cp875", "cp875" },
216 { "Greek (Windows)",
217 1253, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
218 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
219 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
220 "windows-1253", "windows-1253", "windows-1253" },
221 { "Greek (Mac)",
222 10006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
223 MIMECONTF_MIME_LATEST,
224 "x-mac-greek", "x-mac-greek", "x-mac-greek" },
225 { "Greek (ISO)",
226 28597, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
227 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
228 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
229 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
230 "iso-8859-7", "iso-8859-7", "iso-8859-7" }
231 };
232 static const MIME_CP_INFO hebrew_cp[] =
233 {
234 { "Hebrew (424)",
235 424, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
236 MIMECONTF_MIME_LATEST,
237 "ibm424", "ibm424", "ibm424" },
238 { "Hebrew (856)",
239 856, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
240 MIMECONTF_MIME_LATEST,
241 "cp856", "cp856", "cp856" },
242 { "Hebrew (DOS)",
243 862, MIMECONTF_BROWSER | MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
244 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
245 MIMECONTF_MIME_LATEST,
246 "dos-862", "dos-862", "dos-862" },
247 { "Hebrew (Windows)",
248 1255, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
249 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
250 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
251 "windows-1255", "windows-1255", "windows-1255" },
252 { "Hebrew (ISO-Visual)",
253 28598, MIMECONTF_BROWSER | MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
254 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
255 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
256 "iso-8859-8", "iso-8859-8", "iso-8859-8" }
257 };
258 static const MIME_CP_INFO japanese_cp[] =
259 {
260 { "Japanese (Auto-Select)",
261 50932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
262 MIMECONTF_IMPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
263 MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
264 "_autodetect", "_autodetect", "_autodetect" },
265 { "Japanese (EUC)",
266 51932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
267 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
268 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
269 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
270 "euc-jp", "euc-jp", "euc-jp" },
271 { "Japanese (JIS)",
272 50220, MIMECONTF_IMPORT | MIMECONTF_MAILNEWS | MIMECONTF_EXPORT |
273 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID_NLS |
274 MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST |
275 MIMECONTF_MIME_IE4,
276 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
277 { "Japanese (JIS 0208-1990 and 0212-1990)",
278 20932, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
279 MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
280 "EUC-JP","EUC-JP","EUC-JP"},
281 { "Japanese (JIS-Allow 1 byte Kana)",
282 50221, MIMECONTF_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_SAVABLE_BROWSER |
283 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID_NLS |
284 MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
285 "csISO2022JP","iso-2022-jp","iso-2022-jp"},
286 { "Japanese (JIS-Allow 1 byte Kana - SO/SI)",
287 50222, MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_VALID |
288 MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
289 "iso-2022-jp","iso-2022-jp","iso-2022-jp"},
290 { "Japanese (Mac)",
291 10001, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
292 MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
293 "x-mac-japanese","x-mac-japanese","x-mac-japanese"},
294 { "Japanese (Shift-JIS)",
295 932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
296 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
297 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
298 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
299 "shift_jis", "iso-2022-jp", "iso-2022-jp" }
300 };
301 static const MIME_CP_INFO korean_cp[] =
302 {
303 { "Korean",
304 949, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
305 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
306 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
307 MIMECONTF_MIME_LATEST,
308 "ks_c_5601-1987", "ks_c_5601-1987", "ks_c_5601-1987" }
309 };
310 static const MIME_CP_INFO thai_cp[] =
311 {
312 { "Thai (Windows)",
313 874, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_MIME_LATEST,
314 "ibm-thai", "ibm-thai", "ibm-thai" }
315 };
316 static const MIME_CP_INFO turkish_cp[] =
317 {
318 { "Turkish (DOS)",
319 857, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
320 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
321 "ibm857", "ibm857", "ibm857" },
322 { "IBM EBCDIC (Turkish Latin-5)",
323 1026, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
324 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
325 "ibm1026", "ibm1026", "ibm1026" },
326 { "Turkish (Windows)",
327 1254, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
328 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
329 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
330 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
331 "windows-1254", "windows-1254", "windows-1254" },
332 { "Turkish (Mac)",
333 10081, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
334 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
335 "x-mac-turkish", "x-mac-turkish", "x-mac-turkish" },
336 { "Latin 3 (ISO)",
337 28593, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
338 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_VALID |
339 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
340 "iso-8859-3", "iso-8859-3", "iso-8859-3" },
341 { "Turkish (ISO)",
342 28599, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
343 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
344 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
345 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
346 "iso-8859-9", "iso-8859-9", "iso-8859-9" }
347 };
348 static const MIME_CP_INFO vietnamese_cp[] =
349 {
350 { "Vietnamese (Windows)",
351 1258, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
352 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
353 MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
354 MIMECONTF_MIME_LATEST,
355 "windows-1258", "windows-1258", "windows-1258" }
356 };
357 static const MIME_CP_INFO western_cp[] =
358 {
359 { "IBM EBCDIC (US-Canada)",
360 37, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
361 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
362 "ibm037", "ibm037", "ibm037" },
363 { "OEM United States",
364 437, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
365 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
366 "ibm437", "ibm437", "ibm437" },
367 { "IBM EBCDIC (International)",
368 500, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
369 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
370 "ibm500", "ibm500", "ibm500" },
371 { "Western European (DOS)",
372 850, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
373 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
374 "ibm850", "ibm850", "ibm850" },
375 { "Portuguese (DOS)",
376 860, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
377 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
378 "ibm860", "ibm860", "ibm860" },
379 { "Icelandic (DOS)",
380 861, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
381 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
382 "ibm861", "ibm861", "ibm861" },
383 { "French Canadian (DOS)",
384 863, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
385 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
386 "ibm863", "ibm863", "ibm863" },
387 { "Nordic (DOS)",
388 865, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
389 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
390 "ibm865", "ibm865", "ibm865" },
391 { "Western European (Windows)",
392 1252, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
393 MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
394 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
395 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
396 "windows-1252", "windows-1252", "iso-8859-1" },
397 { "Western European (Mac)",
398 10000, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
399 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
400 "macintosh", "macintosh", "macintosh" },
401 { "Icelandic (Mac)",
402 10079, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
403 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
404 "x-mac-icelandic", "x-mac-icelandic", "x-mac-icelandic" },
405 { "US-ASCII",
406 20127, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT | MIMECONTF_EXPORT |
407 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID |
408 MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
409 "us-ascii", "us-ascii", "us-ascii" },
410 { "Western European (ISO)",
411 28591, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
412 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
413 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
414 MIMECONTF_MIME_LATEST,
415 "iso-8859-1", "iso-8859-1", "iso-8859-1" },
416 { "Latin 9 (ISO)",
417 28605, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
418 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
419 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
420 MIMECONTF_MIME_LATEST,
421 "iso-8859-15", "iso-8859-15", "iso-8859-15" }
422 };
423 static const MIME_CP_INFO unicode_cp[] =
424 {
425 { "Unicode",
426 CP_UNICODE, MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
427 MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
428 MIMECONTF_VALID | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
429 MIMECONTF_MIME_LATEST,
430 "unicode", "unicode", "unicode" },
431 { "Unicode (UTF-7)",
432 CP_UTF7, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
433 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_VALID |
434 MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
435 "utf-7", "utf-7", "utf-7" },
436 { "Unicode (UTF-8)",
437 CP_UTF8, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
438 MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
439 MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
440 MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
441 "utf-8", "utf-8", "utf-8" }
442 };
443
444 static const struct mlang_data
445 {
446 const char *description;
447 UINT family_codepage;
448 UINT number_of_cp;
449 const MIME_CP_INFO *mime_cp_info;
450 const char *fixed_font;
451 const char *proportional_font;
452 SCRIPT_ID sid;
453 } mlang_data[] =
454 {
455 { "Arabic",1256,sizeof(arabic_cp)/sizeof(arabic_cp[0]),arabic_cp,
456 "Courier","Arial", sidArabic }, /* FIXME */
457 { "Baltic",1257,sizeof(baltic_cp)/sizeof(baltic_cp[0]),baltic_cp,
458 "Courier","Arial", sidAsciiLatin }, /* FIXME */
459 { "Chinese Simplified",936,sizeof(chinese_simplified_cp)/sizeof(chinese_simplified_cp[0]),chinese_simplified_cp,
460 "Courier","Arial", sidHan }, /* FIXME */
461 { "Chinese Traditional",950,sizeof(chinese_traditional_cp)/sizeof(chinese_traditional_cp[0]),chinese_traditional_cp,
462 "Courier","Arial", sidBopomofo }, /* FIXME */
463 { "Central European",1250,sizeof(central_european_cp)/sizeof(central_european_cp[0]),central_european_cp,
464 "Courier","Arial", sidAsciiLatin }, /* FIXME */
465 { "Cyrillic",1251,sizeof(cyrillic_cp)/sizeof(cyrillic_cp[0]),cyrillic_cp,
466 "Courier","Arial", sidCyrillic }, /* FIXME */
467 { "Greek",1253,sizeof(greek_cp)/sizeof(greek_cp[0]),greek_cp,
468 "Courier","Arial", sidGreek }, /* FIXME */
469 { "Hebrew",1255,sizeof(hebrew_cp)/sizeof(hebrew_cp[0]),hebrew_cp,
470 "Courier","Arial", sidHebrew }, /* FIXME */
471 { "Japanese",932,sizeof(japanese_cp)/sizeof(japanese_cp[0]),japanese_cp,
472 "MS Gothic","MS PGothic", sidKana },
473 { "Korean",949,sizeof(korean_cp)/sizeof(korean_cp[0]),korean_cp,
474 "Courier","Arial", sidHangul }, /* FIXME */
475 { "Thai",874,sizeof(thai_cp)/sizeof(thai_cp[0]),thai_cp,
476 "Courier","Arial", sidThai }, /* FIXME */
477 { "Turkish",1254,sizeof(turkish_cp)/sizeof(turkish_cp[0]),turkish_cp,
478 "Courier","Arial", sidAsciiLatin }, /* FIXME */
479 { "Vietnamese",1258,sizeof(vietnamese_cp)/sizeof(vietnamese_cp[0]),vietnamese_cp,
480 "Courier","Arial", sidAsciiLatin }, /* FIXME */
481 { "Western European",1252,sizeof(western_cp)/sizeof(western_cp[0]),western_cp,
482 "Courier","Arial", sidAsciiLatin }, /* 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 switch (code)
804 {
805 case 0:
806 if (output)
807 rc = MultiByteToWideChar(CP_ACP,0,input,count,output,out_count);
808 else
809 rc = MultiByteToWideChar(CP_ACP,0,input,count,0,0);
810 break;
811
812 case 932:
813 if (output)
814 rc = MultiByteToWideChar(932,0,input,count,output,out_count);
815 else
816 rc = MultiByteToWideChar(932,0,input,count,0,0);
817 break;
818
819 case 51932:
820 if (output)
821 rc = MultiByteToWideChar(20932,0,input,count,output,out_count);
822 else
823 rc = MultiByteToWideChar(20932,0,input,count,0,0);
824 break;
825
826 case 50220:
827 sjis_string = HeapAlloc(GetProcessHeap(),0,count);
828 rc = ConvertJIS2SJIS(input,count,sjis_string);
829 if (rc)
830 {
831 TRACE("%s\n",debugstr_an(sjis_string,rc));
832 if (output)
833 rc = MultiByteToWideChar(932,0,sjis_string,rc,output,out_count);
834 else
835 rc = MultiByteToWideChar(932,0,sjis_string,rc,0,0);
836 }
837 HeapFree(GetProcessHeap(),0,sjis_string);
838 break;
839 }
840 return rc;
841 }
842
843 static UINT ConvertJapaneseUnicodeToJIS(LPCWSTR input, DWORD count,
844 LPSTR output, DWORD out_count)
845 {
846 CHAR *sjis_string;
847 INT len;
848 UINT rc = 0;
849
850 len = WideCharToMultiByte(932,0,input,count,0,0,NULL,NULL);
851 sjis_string = HeapAlloc(GetProcessHeap(),0,len);
852 WideCharToMultiByte(932,0,input,count,sjis_string,len,NULL,NULL);
853 TRACE("%s\n",debugstr_an(sjis_string,len));
854
855 rc = ConvertSJIS2JIS(sjis_string, len, NULL);
856 if (out_count >= rc)
857 {
858 ConvertSJIS2JIS(sjis_string, len, output);
859 }
860 HeapFree(GetProcessHeap(),0,sjis_string);
861 return rc;
862
863 }
864
865 /*
866 * Dll lifetime tracking declaration
867 */
868 static void LockModule(void)
869 {
870 InterlockedIncrement(&dll_count);
871 }
872
873 static void UnlockModule(void)
874 {
875 InterlockedDecrement(&dll_count);
876 }
877
878 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
879 {
880 switch(fdwReason) {
881 case DLL_PROCESS_ATTACH:
882 MLANG_tls_index = TlsAlloc();
883 DisableThreadLibraryCalls(hInstDLL);
884 break;
885 case DLL_PROCESS_DETACH:
886 TlsFree(MLANG_tls_index);
887 break;
888 }
889 return TRUE;
890 }
891
892 HRESULT WINAPI ConvertINetMultiByteToUnicode(
893 LPDWORD pdwMode,
894 DWORD dwEncoding,
895 LPCSTR pSrcStr,
896 LPINT pcSrcSize,
897 LPWSTR pDstStr,
898 LPINT pcDstSize)
899 {
900 INT src_len = -1;
901
902 TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
903 debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
904
905 if (!pcDstSize)
906 return E_FAIL;
907
908 if (!pcSrcSize)
909 pcSrcSize = &src_len;
910
911 if (!*pcSrcSize)
912 {
913 *pcDstSize = 0;
914 return S_OK;
915 }
916
917 /* forwarding euc-jp to EUC-JP */
918 if (dwEncoding == 51932)
919 dwEncoding = 20932;
920
921 switch (dwEncoding)
922 {
923 case CP_UNICODE:
924 if (*pcSrcSize == -1)
925 *pcSrcSize = lstrlenW((LPCWSTR)pSrcStr);
926 *pcDstSize = min(*pcSrcSize, *pcDstSize);
927 *pcSrcSize *= sizeof(WCHAR);
928 if (pDstStr)
929 memmove(pDstStr, pSrcStr, *pcDstSize * sizeof(WCHAR));
930 break;
931
932 case 50220:
933 case 50221:
934 case 50222:
935 *pcDstSize = ConvertJISJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
936 break;
937 case 50932:
938 *pcDstSize = ConvertUnknownJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
939 break;
940
941 default:
942 if (*pcSrcSize == -1)
943 *pcSrcSize = lstrlenA(pSrcStr);
944
945 if (pDstStr)
946 *pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, pDstStr, *pcDstSize);
947 else
948 *pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, NULL, 0);
949 break;
950 }
951
952 if (!*pcDstSize)
953 return E_FAIL;
954
955 return S_OK;
956 }
957
958 HRESULT WINAPI ConvertINetUnicodeToMultiByte(
959 LPDWORD pdwMode,
960 DWORD dwEncoding,
961 LPCWSTR pSrcStr,
962 LPINT pcSrcSize,
963 LPSTR pDstStr,
964 LPINT pcDstSize)
965 {
966 INT destsz, size;
967 INT src_len = -1;
968
969 TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
970 debugstr_w(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
971
972 if (!pcDstSize)
973 return S_OK;
974
975 if (!pcSrcSize)
976 pcSrcSize = &src_len;
977
978 destsz = (pDstStr) ? *pcDstSize : 0;
979 *pcDstSize = 0;
980
981 if (!pSrcStr || !*pcSrcSize)
982 return S_OK;
983
984 if (*pcSrcSize == -1)
985 *pcSrcSize = lstrlenW(pSrcStr);
986
987 /* forwarding euc-jp to EUC-JP */
988 if (dwEncoding == 51932)
989 dwEncoding = 20932;
990
991 if (dwEncoding == CP_UNICODE)
992 {
993 if (*pcSrcSize == -1)
994 *pcSrcSize = lstrlenW(pSrcStr);
995
996 size = min(*pcSrcSize, destsz) * sizeof(WCHAR);
997 if (pDstStr)
998 memmove(pDstStr, pSrcStr, size);
999
1000 if (size >= destsz)
1001 goto fail;
1002 }
1003 else if (dwEncoding == 50220 || dwEncoding == 50221 || dwEncoding == 50222)
1004 {
1005 size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, NULL, 0);
1006 if (!size)
1007 goto fail;
1008
1009 if (pDstStr)
1010 {
1011 size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, pDstStr,
1012 destsz);
1013 if (!size)
1014 goto fail;
1015 }
1016
1017 }
1018 else
1019 {
1020 size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
1021 NULL, 0, NULL, NULL);
1022 if (!size)
1023 goto fail;
1024
1025 if (pDstStr)
1026 {
1027 size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
1028 pDstStr, destsz, NULL, NULL);
1029 if (!size)
1030 goto fail;
1031 }
1032 }
1033
1034 *pcDstSize = size;
1035 return S_OK;
1036
1037 fail:
1038 *pcSrcSize = 0;
1039 *pcDstSize = 0;
1040 return E_FAIL;
1041 }
1042
1043 HRESULT WINAPI ConvertINetString(
1044 LPDWORD pdwMode,
1045 DWORD dwSrcEncoding,
1046 DWORD dwDstEncoding,
1047 LPCSTR pSrcStr,
1048 LPINT pcSrcSize,
1049 LPSTR pDstStr,
1050 LPINT pcDstSize
1051 )
1052 {
1053 TRACE("%p %d %d %s %p %p %p\n", pdwMode, dwSrcEncoding, dwDstEncoding,
1054 debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
1055
1056 if (dwSrcEncoding == CP_UNICODE)
1057 {
1058 INT cSrcSizeW;
1059 if (pcSrcSize && *pcSrcSize != -1)
1060 {
1061 cSrcSizeW = *pcSrcSize / sizeof(WCHAR);
1062 pcSrcSize = &cSrcSizeW;
1063 }
1064 return ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, (LPCWSTR)pSrcStr, pcSrcSize, pDstStr, pcDstSize);
1065 }
1066 else if (dwDstEncoding == CP_UNICODE)
1067 {
1068 HRESULT hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, (LPWSTR)pDstStr, pcDstSize);
1069 *pcDstSize *= sizeof(WCHAR);
1070 return hr;
1071 }
1072 else
1073 {
1074 INT cDstSizeW;
1075 LPWSTR pDstStrW;
1076 HRESULT hr;
1077
1078 TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr), dwSrcEncoding, dwDstEncoding);
1079
1080 hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, NULL, &cDstSizeW);
1081 if (hr != S_OK)
1082 return hr;
1083
1084 pDstStrW = HeapAlloc(GetProcessHeap(), 0, cDstSizeW * sizeof(WCHAR));
1085 hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, pDstStrW, &cDstSizeW);
1086 if (hr == S_OK)
1087 hr = ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, pDstStrW, &cDstSizeW, pDstStr, pcDstSize);
1088
1089 HeapFree(GetProcessHeap(), 0, pDstStrW);
1090 return hr;
1091 }
1092 }
1093
1094 static HRESULT GetFamilyCodePage(
1095 UINT uiCodePage,
1096 UINT* puiFamilyCodePage)
1097 {
1098 UINT i, n;
1099
1100 TRACE("%u %p\n", uiCodePage, puiFamilyCodePage);
1101
1102 if (!puiFamilyCodePage) return S_FALSE;
1103
1104 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1105 {
1106 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1107 {
1108 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
1109 {
1110 *puiFamilyCodePage = mlang_data[i].family_codepage;
1111 return S_OK;
1112 }
1113 }
1114 }
1115
1116 return S_FALSE;
1117 }
1118
1119 HRESULT WINAPI IsConvertINetStringAvailable(
1120 DWORD dwSrcEncoding,
1121 DWORD dwDstEncoding)
1122 {
1123 UINT src_family, dst_family;
1124
1125 TRACE("%d %d\n", dwSrcEncoding, dwDstEncoding);
1126
1127 if (GetFamilyCodePage(dwSrcEncoding, &src_family) != S_OK ||
1128 GetFamilyCodePage(dwDstEncoding, &dst_family) != S_OK)
1129 return S_FALSE;
1130
1131 if (src_family == dst_family) return S_OK;
1132
1133 /* we can convert any codepage to/from unicode */
1134 if (src_family == CP_UNICODE || dst_family == CP_UNICODE) return S_OK;
1135
1136 return S_FALSE;
1137 }
1138
1139 static inline HRESULT lcid_to_rfc1766A( LCID lcid, LPSTR rfc1766, INT len )
1140 {
1141 CHAR buffer[MAX_RFC1766_NAME];
1142 INT n = GetLocaleInfoA(lcid, LOCALE_SISO639LANGNAME, buffer, MAX_RFC1766_NAME);
1143 INT i;
1144
1145 if (n)
1146 {
1147 i = PRIMARYLANGID(lcid);
1148 if ((((i == LANG_ENGLISH) || (i == LANG_CHINESE) || (i == LANG_ARABIC)) &&
1149 (SUBLANGID(lcid) == SUBLANG_DEFAULT)) ||
1150 (SUBLANGID(lcid) > SUBLANG_DEFAULT)) {
1151
1152 buffer[n - 1] = '-';
1153 i = GetLocaleInfoA(lcid, LOCALE_SISO3166CTRYNAME, buffer + n, MAX_RFC1766_NAME - n);
1154 if (!i)
1155 buffer[n - 1] = '\0';
1156 }
1157 else
1158 i = 0;
1159
1160 LCMapStringA( LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, buffer, n + i, rfc1766, len );
1161 return ((n + i) > len) ? E_INVALIDARG : S_OK;
1162 }
1163 return E_FAIL;
1164 }
1165
1166 static inline HRESULT lcid_to_rfc1766W( LCID lcid, LPWSTR rfc1766, INT len )
1167 {
1168 WCHAR buffer[MAX_RFC1766_NAME];
1169 INT n = GetLocaleInfoW(lcid, LOCALE_SISO639LANGNAME, buffer, MAX_RFC1766_NAME);
1170 INT i;
1171
1172 if (n)
1173 {
1174 i = PRIMARYLANGID(lcid);
1175 if ((((i == LANG_ENGLISH) || (i == LANG_CHINESE) || (i == LANG_ARABIC)) &&
1176 (SUBLANGID(lcid) == SUBLANG_DEFAULT)) ||
1177 (SUBLANGID(lcid) > SUBLANG_DEFAULT)) {
1178
1179 buffer[n - 1] = '-';
1180 i = GetLocaleInfoW(lcid, LOCALE_SISO3166CTRYNAME, buffer + n, MAX_RFC1766_NAME - n);
1181 if (!i)
1182 buffer[n - 1] = '\0';
1183 }
1184 else
1185 i = 0;
1186
1187 LCMapStringW(LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, buffer, n + i, rfc1766, len);
1188 return ((n + i) > len) ? E_INVALIDARG : S_OK;
1189 }
1190 return E_FAIL;
1191 }
1192
1193 HRESULT WINAPI LcidToRfc1766A(
1194 LCID lcid,
1195 LPSTR pszRfc1766,
1196 INT nChar)
1197 {
1198 TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
1199 if (!pszRfc1766)
1200 return E_INVALIDARG;
1201
1202 return lcid_to_rfc1766A(lcid, pszRfc1766, nChar);
1203 }
1204
1205 HRESULT WINAPI LcidToRfc1766W(
1206 LCID lcid,
1207 LPWSTR pszRfc1766,
1208 INT nChar)
1209 {
1210 TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
1211 if (!pszRfc1766)
1212 return E_INVALIDARG;
1213
1214 return lcid_to_rfc1766W(lcid, pszRfc1766, nChar);
1215 }
1216
1217 static HRESULT lcid_from_rfc1766(IEnumRfc1766 *iface, LCID *lcid, LPCWSTR rfc1766)
1218 {
1219 RFC1766INFO info;
1220 ULONG num;
1221
1222 while (IEnumRfc1766_Next(iface, 1, &info, &num) == S_OK)
1223 {
1224 if (!strcmpiW(info.wszRfc1766, rfc1766))
1225 {
1226 *lcid = info.lcid;
1227 return S_OK;
1228 }
1229 if (strlenW(rfc1766) == 2 && !memcmp(info.wszRfc1766, rfc1766, 2 * sizeof(WCHAR)))
1230 {
1231 *lcid = PRIMARYLANGID(info.lcid);
1232 return S_OK;
1233 }
1234 }
1235
1236 return E_FAIL;
1237 }
1238
1239 HRESULT WINAPI Rfc1766ToLcidW(LCID *pLocale, LPCWSTR pszRfc1766)
1240 {
1241 IEnumRfc1766 *enumrfc1766;
1242 HRESULT hr;
1243
1244 TRACE("(%p, %s)\n", pLocale, debugstr_w(pszRfc1766));
1245
1246 if (!pLocale || !pszRfc1766)
1247 return E_INVALIDARG;
1248
1249 hr = EnumRfc1766_create(0, &enumrfc1766);
1250 if (FAILED(hr))
1251 return hr;
1252
1253 hr = lcid_from_rfc1766(enumrfc1766, pLocale, pszRfc1766);
1254 IEnumRfc1766_Release(enumrfc1766);
1255
1256 return hr;
1257 }
1258
1259 HRESULT WINAPI Rfc1766ToLcidA(LCID *lcid, LPCSTR rfc1766A)
1260 {
1261 WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
1262
1263 if (!rfc1766A)
1264 return E_INVALIDARG;
1265
1266 MultiByteToWideChar(CP_ACP, 0, rfc1766A, -1, rfc1766W, MAX_RFC1766_NAME);
1267 rfc1766W[MAX_RFC1766_NAME] = 0;
1268
1269 return Rfc1766ToLcidW(lcid, rfc1766W);
1270 }
1271
1272 /******************************************************************************
1273 * MLANG ClassFactory
1274 */
1275 typedef struct {
1276 IClassFactory ITF_IClassFactory;
1277
1278 LONG ref;
1279 HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
1280 } IClassFactoryImpl;
1281
1282 struct object_creation_info
1283 {
1284 const CLSID *clsid;
1285 LPCSTR szClassName;
1286 HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
1287 };
1288
1289 static const struct object_creation_info object_creation[] =
1290 {
1291 { &CLSID_CMultiLanguage, "CLSID_CMultiLanguage", MultiLanguage_create },
1292 };
1293
1294 static HRESULT WINAPI
1295 MLANGCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj)
1296 {
1297 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1298
1299 TRACE("%s\n", debugstr_guid(riid) );
1300
1301 if (IsEqualGUID(riid, &IID_IUnknown)
1302 || IsEqualGUID(riid, &IID_IClassFactory))
1303 {
1304 IClassFactory_AddRef(iface);
1305 *ppobj = This;
1306 return S_OK;
1307 }
1308
1309 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
1310 return E_NOINTERFACE;
1311 }
1312
1313 static ULONG WINAPI MLANGCF_AddRef(LPCLASSFACTORY iface)
1314 {
1315 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1316 return InterlockedIncrement(&This->ref);
1317 }
1318
1319 static ULONG WINAPI MLANGCF_Release(LPCLASSFACTORY iface)
1320 {
1321 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1322
1323 ULONG ref = InterlockedDecrement(&This->ref);
1324
1325 if (ref == 0)
1326 {
1327 TRACE("Destroying %p\n", This);
1328 HeapFree(GetProcessHeap(), 0, This);
1329 }
1330
1331 return ref;
1332 }
1333
1334 static HRESULT WINAPI MLANGCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter,
1335 REFIID riid, LPVOID *ppobj)
1336 {
1337 IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
1338 HRESULT hres;
1339 LPUNKNOWN punk;
1340
1341 TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
1342
1343 *ppobj = NULL;
1344 hres = This->pfnCreateInstance(pOuter, (LPVOID *) &punk);
1345 if (SUCCEEDED(hres)) {
1346 hres = IUnknown_QueryInterface(punk, riid, ppobj);
1347 IUnknown_Release(punk);
1348 }
1349 TRACE("returning (%p) -> %x\n", *ppobj, hres);
1350 return hres;
1351 }
1352
1353 static HRESULT WINAPI MLANGCF_LockServer(LPCLASSFACTORY iface,BOOL dolock)
1354 {
1355 if (dolock)
1356 LockModule();
1357 else
1358 UnlockModule();
1359
1360 return S_OK;
1361 }
1362
1363 static const IClassFactoryVtbl MLANGCF_Vtbl =
1364 {
1365 MLANGCF_QueryInterface,
1366 MLANGCF_AddRef,
1367 MLANGCF_Release,
1368 MLANGCF_CreateInstance,
1369 MLANGCF_LockServer
1370 };
1371
1372 /******************************************************************
1373 * DllGetClassObject (MLANG.@)
1374 */
1375 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
1376 {
1377 unsigned int i;
1378 IClassFactoryImpl *factory;
1379
1380 TRACE("%s %s %p\n",debugstr_guid(rclsid), debugstr_guid(iid), ppv);
1381
1382 if ( !IsEqualGUID( &IID_IClassFactory, iid )
1383 && ! IsEqualGUID( &IID_IUnknown, iid) )
1384 return E_NOINTERFACE;
1385
1386 for (i=0; i < sizeof(object_creation)/sizeof(object_creation[0]); i++)
1387 {
1388 if (IsEqualGUID(object_creation[i].clsid, rclsid))
1389 break;
1390 }
1391
1392 if (i == sizeof(object_creation)/sizeof(object_creation[0]))
1393 {
1394 FIXME("%s: no class found.\n", debugstr_guid(rclsid));
1395 return CLASS_E_CLASSNOTAVAILABLE;
1396 }
1397
1398 TRACE("Creating a class factory for %s\n",object_creation[i].szClassName);
1399
1400 factory = HeapAlloc(GetProcessHeap(), 0, sizeof(*factory));
1401 if (factory == NULL) return E_OUTOFMEMORY;
1402
1403 factory->ITF_IClassFactory.lpVtbl = &MLANGCF_Vtbl;
1404 factory->ref = 1;
1405
1406 factory->pfnCreateInstance = object_creation[i].pfnCreateInstance;
1407
1408 *ppv = &(factory->ITF_IClassFactory);
1409
1410 TRACE("(%p) <- %p\n", ppv, &(factory->ITF_IClassFactory) );
1411
1412 return S_OK;
1413 }
1414
1415
1416 /******************************************************************************/
1417
1418 typedef struct tagMLang_impl
1419 {
1420 const IMLangFontLinkVtbl *vtbl_IMLangFontLink;
1421 const IMultiLanguageVtbl *vtbl_IMultiLanguage;
1422 const IMultiLanguage3Vtbl *vtbl_IMultiLanguage3;
1423 const IMLangFontLink2Vtbl *vtbl_IMLangFontLink2;
1424 const IMLangLineBreakConsoleVtbl *vtbl_IMLangLineBreakConsole;
1425 LONG ref;
1426 DWORD total_cp, total_scripts;
1427 } MLang_impl;
1428
1429 static ULONG MLang_AddRef( MLang_impl* This)
1430 {
1431 return InterlockedIncrement(&This->ref);
1432 }
1433
1434 static ULONG MLang_Release( MLang_impl* This )
1435 {
1436 ULONG ref = InterlockedDecrement(&This->ref);
1437
1438 TRACE("%p ref = %d\n", This, ref);
1439 if (ref == 0)
1440 {
1441 TRACE("Destroying %p\n", This);
1442 HeapFree(GetProcessHeap(), 0, This);
1443 UnlockModule();
1444 }
1445
1446 return ref;
1447 }
1448
1449 static HRESULT MLang_QueryInterface(
1450 MLang_impl* This,
1451 REFIID riid,
1452 void** ppvObject)
1453 {
1454 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1455
1456 if (IsEqualGUID(riid, &IID_IUnknown)
1457 || IsEqualGUID(riid, &IID_IMLangCodePages)
1458 || IsEqualGUID(riid, &IID_IMLangFontLink))
1459 {
1460 MLang_AddRef(This);
1461 TRACE("Returning IID_IMLangFontLink %p ref = %d\n", This, This->ref);
1462 *ppvObject = &(This->vtbl_IMLangFontLink);
1463 return S_OK;
1464 }
1465
1466 if (IsEqualGUID(riid, &IID_IMLangFontLink2))
1467 {
1468 MLang_AddRef(This);
1469 TRACE("Returning IID_IMLangFontLink2 %p ref = %d\n", This, This->ref);
1470 *ppvObject = &(This->vtbl_IMLangFontLink2);
1471 return S_OK;
1472 }
1473
1474 if (IsEqualGUID(riid, &IID_IMultiLanguage) )
1475 {
1476 MLang_AddRef(This);
1477 TRACE("Returning IID_IMultiLanguage %p ref = %d\n", This, This->ref);
1478 *ppvObject = &(This->vtbl_IMultiLanguage);
1479 return S_OK;
1480 }
1481
1482 if (IsEqualGUID(riid, &IID_IMultiLanguage2) )
1483 {
1484 MLang_AddRef(This);
1485 *ppvObject = &(This->vtbl_IMultiLanguage3);
1486 TRACE("Returning IID_IMultiLanguage2 %p ref = %d\n", This, This->ref);
1487 return S_OK;
1488 }
1489
1490 if (IsEqualGUID(riid, &IID_IMultiLanguage3) )
1491 {
1492 MLang_AddRef(This);
1493 *ppvObject = &(This->vtbl_IMultiLanguage3);
1494 TRACE("Returning IID_IMultiLanguage3 %p ref = %d\n", This, This->ref);
1495 return S_OK;
1496 }
1497
1498 if (IsEqualGUID(riid, &IID_IMLangLineBreakConsole))
1499 {
1500 MLang_AddRef(This);
1501 TRACE("Returning IID_IMLangLineBreakConsole %p ref = %d\n", This, This->ref);
1502 *ppvObject = &(This->vtbl_IMLangLineBreakConsole);
1503 return S_OK;
1504 }
1505
1506
1507 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1508 return E_NOINTERFACE;
1509 }
1510
1511 /******************************************************************************/
1512
1513 typedef struct tagEnumCodePage_impl
1514 {
1515 const IEnumCodePageVtbl *vtbl_IEnumCodePage;
1516 LONG ref;
1517 MIMECPINFO *cpinfo;
1518 DWORD total, pos;
1519 } EnumCodePage_impl;
1520
1521 static inline EnumCodePage_impl *impl_from_IEnumCodePage( IEnumCodePage *iface )
1522 {
1523 return CONTAINING_RECORD( iface, EnumCodePage_impl, vtbl_IEnumCodePage );
1524 }
1525
1526 static HRESULT WINAPI fnIEnumCodePage_QueryInterface(
1527 IEnumCodePage* iface,
1528 REFIID riid,
1529 void** ppvObject)
1530 {
1531 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1532
1533 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1534
1535 if (IsEqualGUID(riid, &IID_IUnknown)
1536 || IsEqualGUID(riid, &IID_IEnumCodePage))
1537 {
1538 IEnumCodePage_AddRef(iface);
1539 TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This, This->ref);
1540 *ppvObject = &(This->vtbl_IEnumCodePage);
1541 return S_OK;
1542 }
1543
1544 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1545 return E_NOINTERFACE;
1546 }
1547
1548 static ULONG WINAPI fnIEnumCodePage_AddRef(
1549 IEnumCodePage* iface)
1550 {
1551 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1552 return InterlockedIncrement(&This->ref);
1553 }
1554
1555 static ULONG WINAPI fnIEnumCodePage_Release(
1556 IEnumCodePage* iface)
1557 {
1558 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1559 ULONG ref = InterlockedDecrement(&This->ref);
1560
1561 TRACE("%p ref = %d\n", This, ref);
1562 if (ref == 0)
1563 {
1564 TRACE("Destroying %p\n", This);
1565 HeapFree(GetProcessHeap(), 0, This->cpinfo);
1566 HeapFree(GetProcessHeap(), 0, This);
1567 }
1568
1569 return ref;
1570 }
1571
1572 static HRESULT WINAPI fnIEnumCodePage_Clone(
1573 IEnumCodePage* iface,
1574 IEnumCodePage** ppEnum)
1575 {
1576 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1577 FIXME("%p %p\n", This, ppEnum);
1578 return E_NOTIMPL;
1579 }
1580
1581 static HRESULT WINAPI fnIEnumCodePage_Next(
1582 IEnumCodePage* iface,
1583 ULONG celt,
1584 PMIMECPINFO rgelt,
1585 ULONG* pceltFetched)
1586 {
1587 ULONG i;
1588 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1589
1590 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
1591
1592 if (!pceltFetched) return S_FALSE;
1593 *pceltFetched = 0;
1594
1595 if (!rgelt) return S_FALSE;
1596
1597 if (This->pos + celt > This->total)
1598 celt = This->total - This->pos;
1599
1600 if (!celt) return S_FALSE;
1601
1602 memcpy(rgelt, This->cpinfo + This->pos, celt * sizeof(MIMECPINFO));
1603 *pceltFetched = celt;
1604 This->pos += celt;
1605
1606 for (i = 0; i < celt; i++)
1607 {
1608 TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
1609 i, rgelt[i].dwFlags, rgelt[i].uiCodePage,
1610 rgelt[i].uiFamilyCodePage,
1611 wine_dbgstr_w(rgelt[i].wszDescription),
1612 wine_dbgstr_w(rgelt[i].wszWebCharset),
1613 wine_dbgstr_w(rgelt[i].wszHeaderCharset),
1614 wine_dbgstr_w(rgelt[i].wszBodyCharset),
1615 wine_dbgstr_w(rgelt[i].wszFixedWidthFont),
1616 wine_dbgstr_w(rgelt[i].wszProportionalFont),
1617 rgelt[i].bGDICharset);
1618 }
1619 return S_OK;
1620 }
1621
1622 static HRESULT WINAPI fnIEnumCodePage_Reset(
1623 IEnumCodePage* iface)
1624 {
1625 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1626
1627 TRACE("%p\n", This);
1628
1629 This->pos = 0;
1630 return S_OK;
1631 }
1632
1633 static HRESULT WINAPI fnIEnumCodePage_Skip(
1634 IEnumCodePage* iface,
1635 ULONG celt)
1636 {
1637 EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
1638
1639 TRACE("%p %u\n", This, celt);
1640
1641 if (celt >= This->total) return S_FALSE;
1642
1643 This->pos += celt;
1644 return S_OK;
1645 }
1646
1647 static const IEnumCodePageVtbl IEnumCodePage_vtbl =
1648 {
1649 fnIEnumCodePage_QueryInterface,
1650 fnIEnumCodePage_AddRef,
1651 fnIEnumCodePage_Release,
1652 fnIEnumCodePage_Clone,
1653 fnIEnumCodePage_Next,
1654 fnIEnumCodePage_Reset,
1655 fnIEnumCodePage_Skip
1656 };
1657
1658 static HRESULT EnumCodePage_create( MLang_impl* mlang, DWORD grfFlags,
1659 LANGID LangId, IEnumCodePage** ppEnumCodePage )
1660 {
1661 EnumCodePage_impl *ecp;
1662 MIMECPINFO *cpinfo;
1663 UINT i, n;
1664
1665 TRACE("%p, %08x, %04x, %p\n", mlang, grfFlags, LangId, ppEnumCodePage);
1666
1667 if (!grfFlags) /* enumerate internal data base of encodings */
1668 grfFlags = MIMECONTF_MIME_LATEST;
1669
1670 ecp = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl) );
1671 ecp->vtbl_IEnumCodePage = &IEnumCodePage_vtbl;
1672 ecp->ref = 1;
1673 ecp->pos = 0;
1674 ecp->total = 0;
1675 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1676 {
1677 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1678 {
1679 if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
1680 ecp->total++;
1681 }
1682 }
1683
1684 ecp->cpinfo = HeapAlloc(GetProcessHeap(), 0,
1685 sizeof(MIMECPINFO) * ecp->total);
1686 cpinfo = ecp->cpinfo;
1687
1688 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1689 {
1690 for (n = 0; n < mlang_data[i].number_of_cp; n++)
1691 {
1692 if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
1693 fill_cp_info(&mlang_data[i], n, cpinfo++);
1694 }
1695 }
1696
1697 TRACE("enumerated %d codepages with flags %08x\n", ecp->total, grfFlags);
1698
1699 *ppEnumCodePage = (IEnumCodePage*) ecp;
1700
1701 return S_OK;
1702 }
1703
1704 /******************************************************************************/
1705
1706 typedef struct tagEnumScript_impl
1707 {
1708 const IEnumScriptVtbl *vtbl_IEnumScript;
1709 LONG ref;
1710 SCRIPTINFO *script_info;
1711 DWORD total, pos;
1712 } EnumScript_impl;
1713
1714 static inline EnumScript_impl *impl_from_IEnumScript( IEnumScript *iface )
1715 {
1716 return CONTAINING_RECORD( iface, EnumScript_impl, vtbl_IEnumScript );
1717 }
1718
1719 static HRESULT WINAPI fnIEnumScript_QueryInterface(
1720 IEnumScript* iface,
1721 REFIID riid,
1722 void** ppvObject)
1723 {
1724 EnumScript_impl *This = impl_from_IEnumScript( iface );
1725
1726 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
1727
1728 if (IsEqualGUID(riid, &IID_IUnknown)
1729 || IsEqualGUID(riid, &IID_IEnumScript))
1730 {
1731 IEnumScript_AddRef(iface);
1732 TRACE("Returning IID_IEnumScript %p ref = %d\n", This, This->ref);
1733 *ppvObject = &(This->vtbl_IEnumScript);
1734 return S_OK;
1735 }
1736
1737 WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
1738 return E_NOINTERFACE;
1739 }
1740
1741 static ULONG WINAPI fnIEnumScript_AddRef(
1742 IEnumScript* iface)
1743 {
1744 EnumScript_impl *This = impl_from_IEnumScript( iface );
1745 return InterlockedIncrement(&This->ref);
1746 }
1747
1748 static ULONG WINAPI fnIEnumScript_Release(
1749 IEnumScript* iface)
1750 {
1751 EnumScript_impl *This = impl_from_IEnumScript( iface );
1752 ULONG ref = InterlockedDecrement(&This->ref);
1753
1754 TRACE("%p ref = %d\n", This, ref);
1755 if (ref == 0)
1756 {
1757 TRACE("Destroying %p\n", This);
1758 HeapFree(GetProcessHeap(), 0, This->script_info);
1759 HeapFree(GetProcessHeap(), 0, This);
1760 }
1761
1762 return ref;
1763 }
1764
1765 static HRESULT WINAPI fnIEnumScript_Clone(
1766 IEnumScript* iface,
1767 IEnumScript** ppEnum)
1768 {
1769 EnumScript_impl *This = impl_from_IEnumScript( iface );
1770 FIXME("%p %p: stub!\n", This, ppEnum);
1771 return E_NOTIMPL;
1772 }
1773
1774 static HRESULT WINAPI fnIEnumScript_Next(
1775 IEnumScript* iface,
1776 ULONG celt,
1777 PSCRIPTINFO rgelt,
1778 ULONG* pceltFetched)
1779 {
1780 EnumScript_impl *This = impl_from_IEnumScript( iface );
1781
1782 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
1783
1784 if (!pceltFetched || !rgelt) return E_FAIL;
1785
1786 *pceltFetched = 0;
1787
1788 if (This->pos + celt > This->total)
1789 celt = This->total - This->pos;
1790
1791 if (!celt) return S_FALSE;
1792
1793 memcpy(rgelt, This->script_info + This->pos, celt * sizeof(SCRIPTINFO));
1794 *pceltFetched = celt;
1795 This->pos += celt;
1796
1797 return S_OK;
1798 }
1799
1800 static HRESULT WINAPI fnIEnumScript_Reset(
1801 IEnumScript* iface)
1802 {
1803 EnumScript_impl *This = impl_from_IEnumScript( iface );
1804
1805 TRACE("%p\n", This);
1806
1807 This->pos = 0;
1808 return S_OK;
1809 }
1810
1811 static HRESULT WINAPI fnIEnumScript_Skip(
1812 IEnumScript* iface,
1813 ULONG celt)
1814 {
1815 EnumScript_impl *This = impl_from_IEnumScript( iface );
1816
1817 TRACE("%p %u\n", This, celt);
1818
1819 if (celt >= This->total) return S_FALSE;
1820
1821 This->pos += celt;
1822 return S_OK;
1823 }
1824
1825 static const IEnumScriptVtbl IEnumScript_vtbl =
1826 {
1827 fnIEnumScript_QueryInterface,
1828 fnIEnumScript_AddRef,
1829 fnIEnumScript_Release,
1830 fnIEnumScript_Clone,
1831 fnIEnumScript_Next,
1832 fnIEnumScript_Reset,
1833 fnIEnumScript_Skip
1834 };
1835
1836 static HRESULT EnumScript_create( MLang_impl* mlang, DWORD dwFlags,
1837 LANGID LangId, IEnumScript** ppEnumScript )
1838 {
1839 EnumScript_impl *es;
1840 UINT i;
1841
1842 TRACE("%p, %08x, %04x, %p: stub!\n", mlang, dwFlags, LangId, ppEnumScript);
1843
1844 if (!dwFlags) /* enumerate all available scripts */
1845 dwFlags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
1846
1847 es = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl) );
1848 es->vtbl_IEnumScript = &IEnumScript_vtbl;
1849 es->ref = 1;
1850 es->pos = 0;
1851 /* do not enumerate unicode flavours */
1852 es->total = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
1853 es->script_info = HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO) * es->total);
1854
1855 for (i = 0; i < es->total; i++)
1856 {
1857 es->script_info[i].ScriptId = i;
1858 es->script_info[i].uiCodePage = mlang_data[i].family_codepage;
1859 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].description, -1,
1860 es->script_info[i].wszDescription, MAX_SCRIPT_NAME);
1861 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].fixed_font, -1,
1862 es->script_info[i].wszFixedWidthFont, MAX_MIMEFACE_NAME);
1863 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].proportional_font, -1,
1864 es->script_info[i].wszProportionalFont, MAX_MIMEFACE_NAME);
1865 }
1866
1867 TRACE("enumerated %d scripts with flags %08x\n", es->total, dwFlags);
1868
1869 *ppEnumScript = (IEnumScript *)es;
1870
1871 return S_OK;
1872 }
1873
1874 /******************************************************************************/
1875
1876 static inline MLang_impl *impl_from_IMLangFontLink( IMLangFontLink *iface )
1877 {
1878 return CONTAINING_RECORD( iface, MLang_impl, vtbl_IMLangFontLink );
1879 }
1880
1881 static HRESULT WINAPI fnIMLangFontLink_QueryInterface(
1882 IMLangFontLink* iface,
1883 REFIID riid,
1884 void** ppvObject)
1885 {
1886 MLang_impl *This = impl_from_IMLangFontLink( iface );
1887 return MLang_QueryInterface( This, riid, ppvObject );
1888 }
1889
1890 static ULONG WINAPI fnIMLangFontLink_AddRef(
1891 IMLangFontLink* iface)
1892 {
1893 MLang_impl *This = impl_from_IMLangFontLink( iface );
1894 return MLang_AddRef( This );
1895 }
1896
1897 static ULONG WINAPI fnIMLangFontLink_Release(
1898 IMLangFontLink* iface)
1899 {
1900 MLang_impl *This = impl_from_IMLangFontLink( iface );
1901 return MLang_Release( This );
1902 }
1903
1904 static HRESULT WINAPI fnIMLangFontLink_GetCharCodePages(
1905 IMLangFontLink* iface,
1906 WCHAR chSrc,
1907 DWORD* pdwCodePages)
1908 {
1909 int i;
1910 CHAR buf;
1911 BOOL used_dc;
1912 DWORD codePages;
1913
1914 *pdwCodePages = 0;
1915
1916 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
1917 {
1918 WideCharToMultiByte(mlang_data[i].family_codepage, WC_NO_BEST_FIT_CHARS,
1919 &chSrc, 1, &buf, 1, NULL, &used_dc);
1920
1921 /* If default char is not used, current codepage include the given symbol */
1922 if (!used_dc)
1923 {
1924 IMLangFontLink_CodePageToCodePages(iface,
1925 mlang_data[i].family_codepage, &codePages);
1926 *pdwCodePages |= codePages;
1927 }
1928 }
1929 return S_OK;
1930 }
1931
1932 static HRESULT WINAPI fnIMLangFontLink_GetStrCodePages(
1933 IMLangFontLink* iface,
1934 const WCHAR* pszSrc,
1935 LONG cchSrc,
1936 DWORD dwPriorityCodePages,
1937 DWORD* pdwCodePages,
1938 LONG* pcchCodePages)
1939 {
1940 LONG i;
1941 DWORD cps = 0;
1942
1943 TRACE("(%p)->%s %d %x %p %p\n", iface, debugstr_wn(pszSrc, cchSrc), cchSrc, dwPriorityCodePages, pdwCodePages, pcchCodePages);
1944
1945 if (pdwCodePages) *pdwCodePages = 0;
1946 if (pcchCodePages) *pcchCodePages = 0;
1947
1948 if (!pszSrc || !cchSrc || cchSrc < 0)
1949 return E_INVALIDARG;
1950
1951 for (i = 0; i < cchSrc; i++)
1952 {
1953 DWORD cp;
1954 HRESULT ret;
1955
1956 ret = fnIMLangFontLink_GetCharCodePages(iface, pszSrc[i], &cp);
1957 if (ret != S_OK) return E_FAIL;
1958
1959 if (!cps) cps = cp;
1960 else cps &= cp;
1961
1962 /* FIXME: not tested */
1963 if (dwPriorityCodePages & cps) break;
1964 }
1965
1966 if (pdwCodePages) *pdwCodePages = cps;
1967 if (pcchCodePages) *pcchCodePages = min( i + 1, cchSrc );
1968 return S_OK;
1969 }
1970
1971 static HRESULT WINAPI fnIMLangFontLink_CodePageToCodePages(
1972 IMLangFontLink* iface,
1973 UINT uCodePage,
1974 DWORD* pdwCodePages)
1975 {
1976 MLang_impl *This = impl_from_IMLangFontLink( iface );
1977 CHARSETINFO cs;
1978 BOOL rc;
1979
1980 TRACE("(%p) Seeking %u\n",This, uCodePage);
1981
1982 rc = TranslateCharsetInfo((DWORD*)(DWORD_PTR)uCodePage, &cs, TCI_SRCCODEPAGE);
1983
1984 if (rc)
1985 {
1986 *pdwCodePages = cs.fs.fsCsb[0];
1987 TRACE("resulting CodePages 0x%x\n",*pdwCodePages);
1988 return S_OK;
1989 }
1990
1991 TRACE("CodePage Not Found\n");
1992 *pdwCodePages = 0;
1993 return E_FAIL;
1994 }
1995
1996 static HRESULT WINAPI fnIMLangFontLink_CodePagesToCodePage(
1997 IMLangFontLink* iface,
1998 DWORD dwCodePages,
1999 UINT uDefaultCodePage,
2000 UINT* puCodePage)
2001 {
2002 MLang_impl *This = impl_from_IMLangFontLink( iface );
2003 DWORD mask = 0x00000000;
2004 UINT i;
2005 CHARSETINFO cs;
2006 BOOL rc;
2007
2008 TRACE("(%p) scanning 0x%x default page %u\n",This, dwCodePages,
2009 uDefaultCodePage);
2010
2011 *puCodePage = 0x00000000;
2012
2013 rc = TranslateCharsetInfo((DWORD*)(DWORD_PTR)uDefaultCodePage, &cs,
2014 TCI_SRCCODEPAGE);
2015
2016 if (rc && (dwCodePages & cs.fs.fsCsb[0]))
2017 {
2018 TRACE("Found Default Codepage\n");
2019 *puCodePage = uDefaultCodePage;
2020 return S_OK;
2021 }
2022
2023
2024 for (i = 0; i < 32; i++)
2025 {
2026
2027 mask = 1 << i;
2028 if (dwCodePages & mask)
2029 {
2030 DWORD Csb[2];
2031 Csb[0] = mask;
2032 Csb[1] = 0x0;
2033 rc = TranslateCharsetInfo(Csb, &cs, TCI_SRCFONTSIG);
2034 if (!rc)
2035 continue;
2036
2037 TRACE("Falling back to least significant found CodePage %u\n",
2038 cs.ciACP);
2039 *puCodePage = cs.ciACP;
2040 return S_OK;
2041 }
2042 }
2043
2044 TRACE("no codepage found\n");
2045 return E_FAIL;
2046 }
2047
2048 static HRESULT WINAPI fnIMLangFontLink_GetFontCodePages(
2049 IMLangFontLink* iface,
2050 HDC hDC,
2051 HFONT hFont,
2052 DWORD* pdwCodePages)
2053 {
2054 HFONT old_font;
2055 FONTSIGNATURE fontsig;
2056 MLang_impl *This = impl_from_IMLangFontLink( iface );
2057
2058 TRACE("(%p)\n",This);
2059
2060 old_font = SelectObject(hDC,hFont);
2061 GetTextCharsetInfo(hDC,&fontsig, 0);
2062 SelectObject(hDC,old_font);
2063
2064 *pdwCodePages = fontsig.fsCsb[0];
2065 TRACE("CodePages is 0x%x\n",fontsig.fsCsb[0]);
2066
2067 return S_OK;
2068 }
2069
2070 static HRESULT WINAPI fnIMLangFontLink_MapFont(
2071 IMLangFontLink* iface,
2072 HDC hDC,
2073 DWORD dwCodePages,
2074 HFONT hSrcFont,
2075 HFONT* phDestFont)
2076 {
2077 FIXME("\n");
2078 return E_NOTIMPL;
2079 }
2080
2081 static HRESULT WINAPI fnIMLangFontLink_ReleaseFont(
2082 IMLangFontLink* iface,
2083 HFONT hFont)
2084 {
2085 FIXME("\n");
2086 return E_NOTIMPL;
2087 }
2088
2089 static HRESULT WINAPI fnIMLangFontLink_ResetFontMapping(
2090 IMLangFontLink* iface)
2091 {
2092 FIXME("\n");
2093 return E_NOTIMPL;
2094 }
2095
2096
2097 static const IMLangFontLinkVtbl IMLangFontLink_vtbl =
2098 {
2099 fnIMLangFontLink_QueryInterface,
2100 fnIMLangFontLink_AddRef,
2101 fnIMLangFontLink_Release,
2102 fnIMLangFontLink_GetCharCodePages,
2103 fnIMLangFontLink_GetStrCodePages,
2104 fnIMLangFontLink_CodePageToCodePages,
2105 fnIMLangFontLink_CodePagesToCodePage,
2106 fnIMLangFontLink_GetFontCodePages,
2107 fnIMLangFontLink_MapFont,
2108 fnIMLangFontLink_ReleaseFont,
2109 fnIMLangFontLink_ResetFontMapping,
2110 };
2111
2112 /******************************************************************************/
2113
2114 static inline MLang_impl *impl_from_IMultiLanguage( IMultiLanguage *iface )
2115 {
2116 return CONTAINING_RECORD( iface, MLang_impl, vtbl_IMultiLanguage );
2117 }
2118
2119 static HRESULT WINAPI fnIMultiLanguage_QueryInterface(
2120 IMultiLanguage* iface,
2121 REFIID riid,
2122 void** ppvObject)
2123 {
2124 MLang_impl *This = impl_from_IMultiLanguage( iface );
2125 return MLang_QueryInterface( This, riid, ppvObject );
2126 }
2127
2128 static ULONG WINAPI fnIMultiLanguage_AddRef( IMultiLanguage* iface )
2129 {
2130 MLang_impl *This = impl_from_IMultiLanguage( iface );
2131 return IMLangFontLink_AddRef( ((IMLangFontLink*)This) );
2132 }
2133
2134 static ULONG WINAPI fnIMultiLanguage_Release( IMultiLanguage* iface )
2135 {
2136 MLang_impl *This = impl_from_IMultiLanguage( iface );
2137 return IMLangFontLink_Release( ((IMLangFontLink*)This) );
2138 }
2139
2140 static HRESULT WINAPI fnIMultiLanguage_GetNumberOfCodePageInfo(
2141 IMultiLanguage* iface,
2142 UINT* pcCodePage)
2143 {
2144 MLang_impl *This = impl_from_IMultiLanguage( iface );
2145
2146 TRACE("(%p, %p)\n", This, pcCodePage);
2147
2148 if (!pcCodePage) return E_INVALIDARG;
2149
2150 *pcCodePage = This->total_cp;
2151 return S_OK;
2152 }
2153
2154 static HRESULT WINAPI fnIMultiLanguage_GetCodePageInfo(
2155 IMultiLanguage* iface,
2156 UINT uiCodePage,
2157 PMIMECPINFO pCodePageInfo)
2158 {
2159 UINT i, n;
2160 MLang_impl *This = impl_from_IMultiLanguage( iface );
2161
2162 TRACE("%p, %u, %p\n", This, uiCodePage, pCodePageInfo);
2163
2164 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2165 {
2166 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2167 {
2168 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
2169 {
2170 fill_cp_info(&mlang_data[i], n, pCodePageInfo);
2171 return S_OK;
2172 }
2173 }
2174 }
2175
2176 return S_FALSE;
2177 }
2178
2179 static HRESULT WINAPI fnIMultiLanguage_GetFamilyCodePage(
2180 IMultiLanguage* iface,
2181 UINT uiCodePage,
2182 UINT* puiFamilyCodePage)
2183 {
2184 return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
2185 }
2186
2187 static HRESULT WINAPI fnIMultiLanguage_EnumCodePages(
2188 IMultiLanguage* iface,
2189 DWORD grfFlags,
2190 IEnumCodePage** ppEnumCodePage)
2191 {
2192 MLang_impl *This = impl_from_IMultiLanguage( iface );
2193
2194 TRACE("%p %08x %p\n", This, grfFlags, ppEnumCodePage);
2195
2196 return EnumCodePage_create( This, grfFlags, 0, ppEnumCodePage );
2197 }
2198
2199 static HRESULT WINAPI fnIMultiLanguage_GetCharsetInfo(
2200 IMultiLanguage* iface,
2201 BSTR Charset,
2202 PMIMECSETINFO pCharsetInfo)
2203 {
2204 MLang_impl *This = impl_from_IMultiLanguage( iface );
2205 return IMultiLanguage3_GetCharsetInfo((IMultiLanguage3*)&This->vtbl_IMultiLanguage3, Charset, pCharsetInfo);
2206 }
2207
2208 static HRESULT WINAPI fnIMultiLanguage_IsConvertible(
2209 IMultiLanguage* iface,
2210 DWORD dwSrcEncoding,
2211 DWORD dwDstEncoding)
2212 {
2213 return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
2214 }
2215
2216 static HRESULT WINAPI fnIMultiLanguage_ConvertString(
2217 IMultiLanguage* iface,
2218 DWORD* pdwMode,
2219 DWORD dwSrcEncoding,
2220 DWORD dwDstEncoding,
2221 BYTE* pSrcStr,
2222 UINT* pcSrcSize,
2223 BYTE* pDstStr,
2224 UINT* pcDstSize)
2225 {
2226 return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
2227 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
2228 }
2229
2230 static HRESULT WINAPI fnIMultiLanguage_ConvertStringToUnicode(
2231 IMultiLanguage* iface,
2232 DWORD* pdwMode,
2233 DWORD dwEncoding,
2234 CHAR* pSrcStr,
2235 UINT* pcSrcSize,
2236 WCHAR* pDstStr,
2237 UINT* pcDstSize)
2238 {
2239 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
2240 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2241 }
2242
2243 static HRESULT WINAPI fnIMultiLanguage_ConvertStringFromUnicode(
2244 IMultiLanguage* iface,
2245 DWORD* pdwMode,
2246 DWORD dwEncoding,
2247 WCHAR* pSrcStr,
2248 UINT* pcSrcSize,
2249 CHAR* pDstStr,
2250 UINT* pcDstSize)
2251 {
2252 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
2253 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2254 }
2255
2256 static HRESULT WINAPI fnIMultiLanguage_ConvertStringReset(
2257 IMultiLanguage* iface)
2258 {
2259 FIXME("\n");
2260 return E_NOTIMPL;
2261 }
2262
2263 static HRESULT WINAPI fnIMultiLanguage_GetRfc1766FromLcid(
2264 IMultiLanguage* iface,
2265 LCID lcid,
2266 BSTR* pbstrRfc1766)
2267 {
2268 WCHAR buf[MAX_RFC1766_NAME];
2269
2270 TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
2271 if (!pbstrRfc1766)
2272 return E_INVALIDARG;
2273
2274 if (!lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
2275 {
2276 *pbstrRfc1766 = SysAllocString( buf );
2277 return S_OK;
2278 }
2279 return E_FAIL;
2280 }
2281
2282 static HRESULT WINAPI fnIMultiLanguage_GetLcidFromRfc1766(
2283 IMultiLanguage* iface,
2284 LCID* pLocale,
2285 BSTR bstrRfc1766)
2286 {
2287 HRESULT hr;
2288 IEnumRfc1766 *rfc1766;
2289
2290 TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
2291
2292 if (!pLocale || !bstrRfc1766)
2293 return E_INVALIDARG;
2294
2295 hr = IMultiLanguage_EnumRfc1766(iface, &rfc1766);
2296 if (FAILED(hr))
2297 return hr;
2298
2299 hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
2300
2301 IEnumRfc1766_Release(rfc1766);
2302 return hr;
2303 }
2304
2305 /******************************************************************************/
2306
2307 typedef struct tagEnumRfc1766_impl
2308 {
2309 const IEnumRfc1766Vtbl *vtbl_IEnumRfc1766;
2310 LONG ref;
2311 RFC1766INFO *info;
2312 DWORD total, pos;
2313 } EnumRfc1766_impl;
2314
2315 static inline EnumRfc1766_impl *impl_from_IEnumRfc1766( IEnumRfc1766 *iface )
2316 {
2317 return CONTAINING_RECORD( iface, EnumRfc1766_impl, vtbl_IEnumRfc1766 );
2318 }
2319
2320 static HRESULT WINAPI fnIEnumRfc1766_QueryInterface(
2321 IEnumRfc1766 *iface,
2322 REFIID riid,
2323 void** ppvObject)
2324 {
2325 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2326
2327 TRACE("%p -> %s\n", This, debugstr_guid(riid) );
2328
2329 if (IsEqualGUID(riid, &IID_IUnknown)
2330 || IsEqualGUID(riid, &IID_IEnumRfc1766))
2331 {
2332 IEnumRfc1766_AddRef(iface);
2333 TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This, This->ref);
2334 *ppvObject = &(This->vtbl_IEnumRfc1766);
2335 return S_OK;
2336 }
2337
2338 WARN("(%p) -> (%s,%p), not found\n",This,debugstr_guid(riid),ppvObject);
2339 return E_NOINTERFACE;
2340 }
2341
2342 static ULONG WINAPI fnIEnumRfc1766_AddRef(
2343 IEnumRfc1766 *iface)
2344 {
2345 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2346 return InterlockedIncrement(&This->ref);
2347 }
2348
2349 static ULONG WINAPI fnIEnumRfc1766_Release(
2350 IEnumRfc1766 *iface)
2351 {
2352 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2353 ULONG ref = InterlockedDecrement(&This->ref);
2354
2355 TRACE("%p ref = %d\n", This, ref);
2356 if (ref == 0)
2357 {
2358 TRACE("Destroying %p\n", This);
2359 HeapFree(GetProcessHeap(), 0, This->info);
2360 HeapFree(GetProcessHeap(), 0, This);
2361 }
2362 return ref;
2363 }
2364
2365 static HRESULT WINAPI fnIEnumRfc1766_Clone(
2366 IEnumRfc1766 *iface,
2367 IEnumRfc1766 **ppEnum)
2368 {
2369 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2370
2371 FIXME("%p %p\n", This, ppEnum);
2372 return E_NOTIMPL;
2373 }
2374
2375 static HRESULT WINAPI fnIEnumRfc1766_Next(
2376 IEnumRfc1766 *iface,
2377 ULONG celt,
2378 PRFC1766INFO rgelt,
2379 ULONG *pceltFetched)
2380 {
2381 ULONG i;
2382 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2383
2384 TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
2385
2386 if (!pceltFetched) return S_FALSE;
2387 *pceltFetched = 0;
2388
2389 if (!rgelt) return S_FALSE;
2390
2391 if (This->pos + celt > This->total)
2392 celt = This->total - This->pos;
2393
2394 if (!celt) return S_FALSE;
2395
2396 memcpy(rgelt, This->info + This->pos, celt * sizeof(RFC1766INFO));
2397 *pceltFetched = celt;
2398 This->pos += celt;
2399
2400 for (i = 0; i < celt; i++)
2401 {
2402 TRACE("#%u: %08x %s %s\n",
2403 i, rgelt[i].lcid,
2404 wine_dbgstr_w(rgelt[i].wszRfc1766),
2405 wine_dbgstr_w(rgelt[i].wszLocaleName));
2406 }
2407 return S_OK;
2408 }
2409
2410 static HRESULT WINAPI fnIEnumRfc1766_Reset(
2411 IEnumRfc1766 *iface)
2412 {
2413 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2414
2415 TRACE("%p\n", This);
2416
2417 This->pos = 0;
2418 return S_OK;
2419 }
2420
2421 static HRESULT WINAPI fnIEnumRfc1766_Skip(
2422 IEnumRfc1766 *iface,
2423 ULONG celt)
2424 {
2425 EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
2426
2427 TRACE("%p %u\n", This, celt);
2428
2429 if (celt >= This->total) return S_FALSE;
2430
2431 This->pos += celt;
2432 return S_OK;
2433 }
2434
2435 static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl =
2436 {
2437 fnIEnumRfc1766_QueryInterface,
2438 fnIEnumRfc1766_AddRef,
2439 fnIEnumRfc1766_Release,
2440 fnIEnumRfc1766_Clone,
2441 fnIEnumRfc1766_Next,
2442 fnIEnumRfc1766_Reset,
2443 fnIEnumRfc1766_Skip
2444 };
2445
2446 struct enum_locales_data
2447 {
2448 RFC1766INFO *info;
2449 DWORD total, allocated;
2450 };
2451
2452 static BOOL CALLBACK enum_locales_proc(LPWSTR locale)
2453 {
2454 WCHAR *end;
2455 struct enum_locales_data *data = TlsGetValue(MLANG_tls_index);
2456 RFC1766INFO *info;
2457
2458 TRACE("%s\n", debugstr_w(locale));
2459
2460 if (data->total >= data->allocated)
2461 {
2462 data->allocated += 32;
2463 data->info = HeapReAlloc(GetProcessHeap(), 0, data->info, data->allocated * sizeof(RFC1766INFO));
2464 if (!data->info) return FALSE;
2465 }
2466
2467 info = &data->info[data->total];
2468
2469 info->lcid = strtolW(locale, &end, 16);
2470 if (*end) /* invalid number */
2471 return FALSE;
2472
2473 info->wszRfc1766[0] = 0;
2474 lcid_to_rfc1766W( info->lcid, info->wszRfc1766, MAX_RFC1766_NAME );
2475
2476 info->wszLocaleName[0] = 0;
2477 GetLocaleInfoW(info->lcid, LOCALE_SLANGUAGE, info->wszLocaleName, MAX_LOCALE_NAME);
2478 TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info->wszRfc1766), wine_dbgstr_w(info->wszLocaleName));
2479
2480 data->total++;
2481
2482 return TRUE;
2483 }
2484
2485 static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum)
2486 {
2487 EnumRfc1766_impl *rfc;
2488 struct enum_locales_data data;
2489
2490 TRACE("%04x, %p\n", LangId, ppEnum);
2491
2492 rfc = HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl) );
2493 rfc->vtbl_IEnumRfc1766 = &IEnumRfc1766_vtbl;
2494 rfc->ref = 1;
2495 rfc->pos = 0;
2496 rfc->total = 0;
2497
2498 data.total = 0;
2499 data.allocated = 160;
2500 data.info = HeapAlloc(GetProcessHeap(), 0, data.allocated * sizeof(RFC1766INFO));
2501 if (!data.info)
2502 {
2503 HeapFree(GetProcessHeap(), 0, rfc);
2504 return E_OUTOFMEMORY;
2505 }
2506
2507 TlsSetValue(MLANG_tls_index, &data);
2508 EnumSystemLocalesW(enum_locales_proc, 0/*LOCALE_SUPPORTED*/);
2509 TlsSetValue(MLANG_tls_index, NULL);
2510
2511 TRACE("enumerated %d rfc1766 structures\n", data.total);
2512
2513 if (!data.total)
2514 {
2515 HeapFree(GetProcessHeap(), 0, data.info);
2516 HeapFree(GetProcessHeap(), 0, rfc);
2517 return E_FAIL;
2518 }
2519
2520 rfc->info = data.info;
2521 rfc->total = data.total;
2522
2523 *ppEnum = (IEnumRfc1766 *)rfc;
2524 return S_OK;
2525 }
2526
2527 static HRESULT WINAPI fnIMultiLanguage_EnumRfc1766(
2528 IMultiLanguage *iface,
2529 IEnumRfc1766 **ppEnumRfc1766)
2530 {
2531 MLang_impl *This = impl_from_IMultiLanguage( iface );
2532
2533 TRACE("%p %p\n", This, ppEnumRfc1766);
2534
2535 return EnumRfc1766_create(0, ppEnumRfc1766);
2536 }
2537
2538 /******************************************************************************/
2539
2540 static HRESULT WINAPI fnIMultiLanguage_GetRfc1766Info(
2541 IMultiLanguage* iface,
2542 LCID Locale,
2543 PRFC1766INFO pRfc1766Info)
2544 {
2545 LCTYPE type = LOCALE_SLANGUAGE;
2546
2547 TRACE("(%p, 0x%04x, %p)\n", iface, Locale, pRfc1766Info);
2548
2549 if (!pRfc1766Info)
2550 return E_INVALIDARG;
2551
2552 if ((PRIMARYLANGID(Locale) == LANG_ENGLISH) ||
2553 (PRIMARYLANGID(Locale) == LANG_CHINESE) ||
2554 (PRIMARYLANGID(Locale) == LANG_ARABIC)) {
2555
2556 if (!SUBLANGID(Locale))
2557 type = LOCALE_SENGLANGUAGE; /* suppress country */
2558 }
2559 else
2560 {
2561 if (!SUBLANGID(Locale)) {
2562 TRACE("SUBLANGID missing in 0x%04x\n", Locale);
2563 return E_FAIL;
2564 }
2565 }
2566
2567 pRfc1766Info->lcid = Locale;
2568 pRfc1766Info->wszRfc1766[0] = 0;
2569 pRfc1766Info->wszLocaleName[0] = 0;
2570
2571 if ((!lcid_to_rfc1766W(Locale, pRfc1766Info->wszRfc1766, MAX_RFC1766_NAME)) &&
2572 (GetLocaleInfoW(Locale, type, pRfc1766Info->wszLocaleName, MAX_LOCALE_NAME) > 0))
2573 return S_OK;
2574
2575 /* Locale not supported */
2576 return E_INVALIDARG;
2577 }
2578
2579 static HRESULT WINAPI fnIMultiLanguage_CreateConvertCharset(
2580 IMultiLanguage* iface,
2581 UINT uiSrcCodePage,
2582 UINT uiDstCodePage,
2583 DWORD dwProperty,
2584 IMLangConvertCharset** ppMLangConvertCharset)
2585 {
2586 FIXME("\n");
2587 return E_NOTIMPL;
2588 }
2589
2590 static const IMultiLanguageVtbl IMultiLanguage_vtbl =
2591 {
2592 fnIMultiLanguage_QueryInterface,
2593 fnIMultiLanguage_AddRef,
2594 fnIMultiLanguage_Release,
2595 fnIMultiLanguage_GetNumberOfCodePageInfo,
2596 fnIMultiLanguage_GetCodePageInfo,
2597 fnIMultiLanguage_GetFamilyCodePage,
2598 fnIMultiLanguage_EnumCodePages,
2599 fnIMultiLanguage_GetCharsetInfo,
2600 fnIMultiLanguage_IsConvertible,
2601 fnIMultiLanguage_ConvertString,
2602 fnIMultiLanguage_ConvertStringToUnicode,
2603 fnIMultiLanguage_ConvertStringFromUnicode,
2604 fnIMultiLanguage_ConvertStringReset,
2605 fnIMultiLanguage_GetRfc1766FromLcid,
2606 fnIMultiLanguage_GetLcidFromRfc1766,
2607 fnIMultiLanguage_EnumRfc1766,
2608 fnIMultiLanguage_GetRfc1766Info,
2609 fnIMultiLanguage_CreateConvertCharset,
2610 };
2611
2612
2613 /******************************************************************************/
2614
2615 static inline MLang_impl *impl_from_IMultiLanguage3( IMultiLanguage3 *iface )
2616 {
2617 return CONTAINING_RECORD( iface, MLang_impl, vtbl_IMultiLanguage3 );
2618 }
2619
2620 static HRESULT WINAPI fnIMultiLanguage2_QueryInterface(
2621 IMultiLanguage3* iface,
2622 REFIID riid,
2623 void** ppvObject)
2624 {
2625 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2626 return MLang_QueryInterface( This, riid, ppvObject );
2627 }
2628
2629 static ULONG WINAPI fnIMultiLanguage2_AddRef( IMultiLanguage3* iface )
2630 {
2631 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2632 return MLang_AddRef( This );
2633 }
2634
2635 static ULONG WINAPI fnIMultiLanguage2_Release( IMultiLanguage3* iface )
2636 {
2637 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2638 return MLang_Release( This );
2639 }
2640
2641 static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfCodePageInfo(
2642 IMultiLanguage3* iface,
2643 UINT* pcCodePage)
2644 {
2645 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2646
2647 TRACE("%p, %p\n", This, pcCodePage);
2648
2649 if (!pcCodePage) return E_INVALIDARG;
2650
2651 *pcCodePage = This->total_cp;
2652 return S_OK;
2653 }
2654
2655 static void fill_cp_info(const struct mlang_data *ml_data, UINT index, MIMECPINFO *mime_cp_info)
2656 {
2657 CHARSETINFO csi;
2658
2659 if (TranslateCharsetInfo((DWORD*)(DWORD_PTR)ml_data->family_codepage, &csi,
2660 TCI_SRCCODEPAGE))
2661 mime_cp_info->bGDICharset = csi.ciCharset;
2662 else
2663 mime_cp_info->bGDICharset = DEFAULT_CHARSET;
2664
2665 mime_cp_info->dwFlags = ml_data->mime_cp_info[index].flags;
2666 mime_cp_info->uiCodePage = ml_data->mime_cp_info[index].cp;
2667 mime_cp_info->uiFamilyCodePage = ml_data->family_codepage;
2668 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].description, -1,
2669 mime_cp_info->wszDescription, sizeof(mime_cp_info->wszDescription)/sizeof(WCHAR));
2670 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].web_charset, -1,
2671 mime_cp_info->wszWebCharset, sizeof(mime_cp_info->wszWebCharset)/sizeof(WCHAR));
2672 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].header_charset, -1,
2673 mime_cp_info->wszHeaderCharset, sizeof(mime_cp_info->wszHeaderCharset)/sizeof(WCHAR));
2674 MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].body_charset, -1,
2675 mime_cp_info->wszBodyCharset, sizeof(mime_cp_info->wszBodyCharset)/sizeof(WCHAR));
2676
2677 MultiByteToWideChar(CP_ACP, 0, ml_data->fixed_font, -1,
2678 mime_cp_info->wszFixedWidthFont, sizeof(mime_cp_info->wszFixedWidthFont)/sizeof(WCHAR));
2679 MultiByteToWideChar(CP_ACP, 0, ml_data->proportional_font, -1,
2680 mime_cp_info->wszProportionalFont, sizeof(mime_cp_info->wszProportionalFont)/sizeof(WCHAR));
2681
2682 TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
2683 mime_cp_info->dwFlags, mime_cp_info->uiCodePage,
2684 mime_cp_info->uiFamilyCodePage,
2685 wine_dbgstr_w(mime_cp_info->wszDescription),
2686 wine_dbgstr_w(mime_cp_info->wszWebCharset),
2687 wine_dbgstr_w(mime_cp_info->wszHeaderCharset),
2688 wine_dbgstr_w(mime_cp_info->wszBodyCharset),
2689 wine_dbgstr_w(mime_cp_info->wszFixedWidthFont),
2690 wine_dbgstr_w(mime_cp_info->wszProportionalFont),
2691 mime_cp_info->bGDICharset);
2692 }
2693
2694 static HRESULT WINAPI fnIMultiLanguage2_GetCodePageInfo(
2695 IMultiLanguage3* iface,
2696 UINT uiCodePage,
2697 LANGID LangId,
2698 PMIMECPINFO pCodePageInfo)
2699 {
2700 UINT i, n;
2701 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2702
2703 TRACE("%p, %u, %04x, %p\n", This, uiCodePage, LangId, pCodePageInfo);
2704
2705 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2706 {
2707 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2708 {
2709 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
2710 {
2711 fill_cp_info(&mlang_data[i], n, pCodePageInfo);
2712 return S_OK;
2713 }
2714 }
2715 }
2716
2717 return S_FALSE;
2718 }
2719
2720 static HRESULT WINAPI fnIMultiLanguage2_GetFamilyCodePage(
2721 IMultiLanguage3* iface,
2722 UINT uiCodePage,
2723 UINT* puiFamilyCodePage)
2724 {
2725 return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
2726 }
2727
2728 static HRESULT WINAPI fnIMultiLanguage2_EnumCodePages(
2729 IMultiLanguage3* iface,
2730 DWORD grfFlags,
2731 LANGID LangId,
2732 IEnumCodePage** ppEnumCodePage)
2733 {
2734 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2735
2736 TRACE("%p %08x %04x %p\n", This, grfFlags, LangId, ppEnumCodePage);
2737
2738 return EnumCodePage_create( This, grfFlags, LangId, ppEnumCodePage );
2739 }
2740
2741 static HRESULT WINAPI fnIMultiLanguage2_GetCharsetInfo(
2742 IMultiLanguage3* iface,
2743 BSTR Charset,
2744 PMIMECSETINFO pCharsetInfo)
2745 {
2746 UINT i, n;
2747 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2748
2749 TRACE("%p %s %p\n", This, debugstr_w(Charset), pCharsetInfo);
2750
2751 if (!pCharsetInfo) return E_FAIL;
2752
2753 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2754 {
2755 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2756 {
2757 WCHAR csetW[MAX_MIMECSET_NAME];
2758
2759 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].web_charset, -1, csetW, MAX_MIMECSET_NAME);
2760 if (!lstrcmpiW(Charset, csetW))
2761 {
2762 pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
2763 pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
2764 strcpyW(pCharsetInfo->wszCharset, csetW);
2765 return S_OK;
2766 }
2767 }
2768 }
2769
2770 /* FIXME:
2771 * Since we do not support charsets like iso-2022-jp and do not have
2772 * them in our database as a primary (web_charset) encoding this loop
2773 * does an attempt to 'approximate' charset name by header_charset.
2774 */
2775 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
2776 {
2777 for (n = 0; n < mlang_data[i].number_of_cp; n++)
2778 {
2779 WCHAR csetW[MAX_MIMECSET_NAME];
2780
2781 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].header_charset, -1, csetW, MAX_MIMECSET_NAME);
2782 if (!lstrcmpiW(Charset, csetW))
2783 {
2784 pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
2785 pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
2786 strcpyW(pCharsetInfo->wszCharset, csetW);
2787 return S_OK;
2788 }
2789 }
2790 }
2791
2792 return E_FAIL;
2793 }
2794
2795 static HRESULT WINAPI fnIMultiLanguage2_IsConvertible(
2796 IMultiLanguage3* iface,
2797 DWORD dwSrcEncoding,
2798 DWORD dwDstEncoding)
2799 {
2800 return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
2801 }
2802
2803 static HRESULT WINAPI fnIMultiLanguage2_ConvertString(
2804 IMultiLanguage3* iface,
2805 DWORD* pdwMode,
2806 DWORD dwSrcEncoding,
2807 DWORD dwDstEncoding,
2808 BYTE* pSrcStr,
2809 UINT* pcSrcSize,
2810 BYTE* pDstStr,
2811 UINT* pcDstSize)
2812 {
2813 return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
2814 (LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
2815 }
2816
2817 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicode(
2818 IMultiLanguage3* iface,
2819 DWORD* pdwMode,
2820 DWORD dwEncoding,
2821 CHAR* pSrcStr,
2822 UINT* pcSrcSize,
2823 WCHAR* pDstStr,
2824 UINT* pcDstSize)
2825 {
2826 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
2827 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2828 }
2829
2830 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicode(
2831 IMultiLanguage3* iface,
2832 DWORD* pdwMode,
2833 DWORD dwEncoding,
2834 WCHAR* pSrcStr,
2835 UINT* pcSrcSize,
2836 CHAR* pDstStr,
2837 UINT* pcDstSize)
2838 {
2839 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
2840 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
2841 }
2842
2843 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringReset(
2844 IMultiLanguage3* iface)
2845 {
2846 FIXME("\n");
2847 return E_NOTIMPL;
2848 }
2849
2850 static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766FromLcid(
2851 IMultiLanguage3* iface,
2852 LCID lcid,
2853 BSTR* pbstrRfc1766)
2854 {
2855 WCHAR buf[MAX_RFC1766_NAME];
2856
2857 TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
2858 if (!pbstrRfc1766)
2859 return E_INVALIDARG;
2860
2861 if (!lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
2862 {
2863 *pbstrRfc1766 = SysAllocString( buf );
2864 return S_OK;
2865 }
2866 return E_FAIL;
2867 }
2868
2869 static HRESULT WINAPI fnIMultiLanguage2_GetLcidFromRfc1766(
2870 IMultiLanguage3* iface,
2871 LCID* pLocale,
2872 BSTR bstrRfc1766)
2873 {
2874 HRESULT hr;
2875 IEnumRfc1766 *rfc1766;
2876
2877 TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
2878
2879 if (!pLocale || !bstrRfc1766)
2880 return E_INVALIDARG;
2881
2882 hr = IMultiLanguage2_EnumRfc1766(iface, 0, &rfc1766);
2883 if (FAILED(hr))
2884 return hr;
2885
2886 hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
2887
2888 IEnumRfc1766_Release(rfc1766);
2889 return hr;
2890 }
2891
2892 static HRESULT WINAPI fnIMultiLanguage2_EnumRfc1766(
2893 IMultiLanguage3* iface,
2894 LANGID LangId,
2895 IEnumRfc1766** ppEnumRfc1766)
2896 {
2897 MLang_impl *This = impl_from_IMultiLanguage3( iface );
2898
2899 TRACE("%p %p\n", This, ppEnumRfc1766);
2900
2901 return EnumRfc1766_create(LangId, ppEnumRfc1766);
2902 }
2903
2904 static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766Info(
2905 IMultiLanguage3* iface,
2906 LCID Locale,
2907 LANGID LangId,
2908 PRFC1766INFO pRfc1766Info)
2909 {
2910 static LANGID last_lang = -1;
2911 LCTYPE type = LOCALE_SLANGUAGE;
2912
2913 TRACE("(%p, 0x%04x, 0x%04x, %p)\n", iface, Locale, LangId, pRfc1766Info);
2914
2915 if (!pRfc1766Info)
2916 return E_INVALIDARG;
2917
2918 if ((PRIMARYLANGID(Locale) == LANG_ENGLISH) ||
2919 (PRIMARYLANGID(Locale) == LANG_CHINESE) ||
2920 (PRIMARYLANGID(Locale) == LANG_ARABIC)) {
2921
2922 if (!SUBLANGID(Locale))
2923 type = LOCALE_SENGLANGUAGE; /* suppress country */
2924 }
2925 else
2926 {
2927 if (!SUBLANGID(Locale)) {
2928 TRACE("SUBLANGID missing in 0x%04x\n", Locale);
2929 return E_FAIL;
2930 }
2931 }
2932
2933 pRfc1766Info->lcid = Locale;
2934 pRfc1766Info->wszRfc1766[0] = 0;
2935 pRfc1766Info->wszLocaleName[0] = 0;
2936
2937 if ((PRIMARYLANGID(LangId) != LANG_ENGLISH) &&
2938 (last_lang != LangId)) {
2939 FIXME("Only english names supported (requested: 0x%04x)\n", LangId);
2940 last_lang = LangId;
2941 }
2942
2943 if ((!lcid_to_rfc1766W(Locale, pRfc1766Info->wszRfc1766, MAX_RFC1766_NAME)) &&
2944 (GetLocaleInfoW(Locale, type, pRfc1766Info->wszLocaleName, MAX_LOCALE_NAME) > 0))
2945 return S_OK;
2946
2947 /* Locale not supported */
2948 return E_INVALIDARG;
2949 }
2950
2951 static HRESULT WINAPI fnIMultiLanguage2_CreateConvertCharset(
2952 IMultiLanguage3* iface,
2953 UINT uiSrcCodePage,
2954 UINT uiDstCodePage,
2955 DWORD dwProperty,
2956 IMLangConvertCharset** ppMLangConvertCharset)
2957 {
2958 FIXME("\n");
2959 return E_NOTIMPL;
2960 }
2961
2962 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringInIStream(
2963 IMultiLanguage3* iface,
2964 DWORD* pdwMode,
2965 DWORD dwFlag,
2966 WCHAR* lpFallBack,
2967 DWORD dwSrcEncoding,
2968 DWORD dwDstEncoding,
2969 IStream* pstmIn,
2970 IStream* pstmOut)
2971 {
2972 char *src, *dst = NULL;
2973 INT srclen, dstlen;
2974 STATSTG stat;
2975 HRESULT hr;
2976
2977 TRACE("%p %0x8 %s %u %u %p %p\n",
2978 pdwMode, dwFlag, debugstr_w(lpFallBack), dwSrcEncoding, dwDstEncoding, pstmIn, pstmOut);
2979
2980 FIXME("dwFlag and lpFallBack not handled\n");
2981
2982 hr = IStream_Stat(pstmIn, &stat, STATFLAG_NONAME);
2983 if (FAILED(hr)) return hr;
2984
2985 if (stat.cbSize.QuadPart > MAXLONG) return E_INVALIDARG;
2986 if (!(src = HeapAlloc(GetProcessHeap(), 0, stat.cbSize.QuadPart))) return E_OUTOFMEMORY;
2987
2988 hr = IStream_Read(pstmIn, src, stat.cbSize.QuadPart, (ULONG *)&srclen);
2989 if (FAILED(hr)) goto exit;
2990
2991 hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, NULL, &dstlen);
2992 if (FAILED(hr)) goto exit;
2993
2994 if (!(dst = HeapAlloc(GetProcessHeap(), 0, dstlen)))
2995 {
2996 hr = E_OUTOFMEMORY;
2997 goto exit;
2998 }
2999 hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, dst, &dstlen);
3000 if (FAILED(hr)) goto exit;
3001
3002 hr = IStream_Write(pstmOut, dst, dstlen, NULL);
3003
3004 exit:
3005 HeapFree(GetProcessHeap(), 0, src);
3006 HeapFree(GetProcessHeap(), 0, dst);
3007 return hr;
3008 }
3009
3010 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicodeEx(
3011 IMultiLanguage3* iface,
3012 DWORD* pdwMode,
3013 DWORD dwEncoding,
3014 CHAR* pSrcStr,
3015 UINT* pcSrcSize,
3016 WCHAR* pDstStr,
3017 UINT* pcDstSize,
3018 DWORD dwFlag,
3019 WCHAR* lpFallBack)
3020 {
3021 if (dwFlag || lpFallBack)
3022 FIXME("Ignoring dwFlag (0x%x/%d) and lpFallBack (%p)\n",
3023 dwFlag, dwFlag, lpFallBack);
3024
3025 return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
3026 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
3027 }
3028
3029 /*****************************************************************************
3030 * MultiLanguage2::ConvertStringToUnicodeEx
3031 *
3032 * Translates the multibyte string from the specified code page to Unicode.
3033 *
3034 * PARAMS
3035 * see ConvertStringToUnicode
3036 * dwFlag
3037 * lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
3038 * instead unconvertible characters.
3039 *
3040 * RETURNS
3041 * S_OK Success.
3042 * S_FALSE The conversion is not supported.
3043 * E_FAIL Some error has occurred.
3044 *
3045 * TODO: handle dwFlag and lpFallBack
3046 */
3047 static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicodeEx(
3048 IMultiLanguage3* This,
3049 DWORD* pdwMode,
3050 DWORD dwEncoding,
3051 WCHAR* pSrcStr,
3052 UINT* pcSrcSize,
3053 CHAR* pDstStr,
3054 UINT* pcDstSize,
3055 DWORD dwFlag,
3056 WCHAR* lpFallBack)
3057 {
3058 FIXME("\n");
3059 return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
3060 pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
3061 }
3062
3063 static HRESULT WINAPI fnIMultiLanguage2_DetectCodepageInIStream(
3064 IMultiLanguage3* iface,
3065 DWORD dwFlag,
3066 DWORD dwPrefWinCodePage,
3067 IStream* pstmIn,
3068 DetectEncodingInfo* lpEncoding,
3069 INT* pnScores)
3070 {
3071 FIXME("\n");
3072 return E_NOTIMPL;
3073 }
3074
3075 static HRESULT WINAPI fnIMultiLanguage2_DetectInputCodepage(
3076 IMultiLanguage3* iface,
3077 DWORD dwFlag,
3078 DWORD dwPrefWinCodePage,
3079 CHAR* pSrcStr,
3080 INT* pcSrcSize,
3081 DetectEncodingInfo* lpEncoding,
3082 INT* pnScores)
3083 {
3084 FIXME("\n");
3085 return E_NOTIMPL;
3086 }
3087
3088 static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePage(
3089 IMultiLanguage3* iface,
3090 UINT uiCodePage,
3091 HWND hwnd)
3092 {
3093 return IMultiLanguage2_ValidateCodePageEx(iface,uiCodePage,hwnd,0);
3094 }
3095
3096 static HRESULT WINAPI fnIMultiLanguage2_GetCodePageDescription(
3097 IMultiLanguage3* iface,
3098 UINT uiCodePage,
3099 LCID lcid,
3100 LPWSTR lpWideCharStr,
3101 int cchWideChar)
3102 {
3103 /* Find first instance */
3104 unsigned int i,n;
3105
3106 TRACE ("%u, %04x, %p, %d\n", uiCodePage, lcid, lpWideCharStr, cchWideChar);
3107 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3108 {
3109 for (n = 0; n < mlang_data[i].number_of_cp; n++)
3110 {
3111 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
3112 {
3113 MultiByteToWideChar(CP_ACP, 0,
3114 mlang_data[i].mime_cp_info[n].description,
3115 -1, lpWideCharStr, cchWideChar);
3116 return S_OK;
3117 }
3118 }
3119 }
3120
3121 return S_FALSE;
3122 }
3123
3124 static HRESULT WINAPI fnIMultiLanguage2_IsCodePageInstallable(
3125 IMultiLanguage3* iface,
3126 UINT uiCodePage)
3127 {
3128 TRACE("%u\n", uiCodePage);
3129
3130 /* FIXME: the installable set is usually larger than the set of valid codepages */
3131 return IMultiLanguage2_ValidateCodePageEx(iface, uiCodePage, NULL, CPIOD_PEEK);
3132 }
3133
3134 static HRESULT WINAPI fnIMultiLanguage2_SetMimeDBSource(
3135 IMultiLanguage3* iface,
3136 MIMECONTF dwSource)
3137 {
3138 FIXME("0x%08x\n", dwSource);
3139 return S_OK;
3140 }
3141
3142 static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfScripts(
3143 IMultiLanguage3* iface,
3144 UINT* pnScripts)
3145 {
3146 MLang_impl *This = impl_from_IMultiLanguage3( iface );
3147
3148 TRACE("%p %p\n", This, pnScripts);
3149
3150 if (!pnScripts) return S_FALSE;
3151
3152 *pnScripts = This->total_scripts;
3153 return S_OK;
3154 }
3155
3156 static HRESULT WINAPI fnIMultiLanguage2_EnumScripts(
3157 IMultiLanguage3* iface,
3158 DWORD dwFlags,
3159 LANGID LangId,
3160 IEnumScript** ppEnumScript)
3161 {
3162 MLang_impl *This = impl_from_IMultiLanguage3( iface );
3163
3164 TRACE("%p %08x %04x %p\n", This, dwFlags, LangId, ppEnumScript);
3165
3166 return EnumScript_create( This, dwFlags, LangId, ppEnumScript );
3167 }
3168
3169 static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePageEx(
3170 IMultiLanguage3* iface,
3171 UINT uiCodePage,
3172 HWND hwnd,
3173 DWORD dwfIODControl)
3174 {
3175 int i;
3176 MLang_impl *This = impl_from_IMultiLanguage3( iface );
3177
3178 TRACE("%p %u %p %08x\n", This, uiCodePage, hwnd, dwfIODControl);
3179
3180 /* quick check for kernel32 supported code pages */
3181 if (IsValidCodePage(uiCodePage))
3182 return S_OK;
3183
3184 /* check for mlang supported code pages */
3185 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3186 {
3187 int n;
3188 for (n = 0; n < mlang_data[i].number_of_cp; n++)
3189 {
3190 if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
3191 return S_OK;
3192 }
3193 }
3194
3195 if (dwfIODControl != CPIOD_PEEK)
3196 FIXME("Request to install codepage language pack not handled\n");
3197
3198 return S_FALSE;
3199 }
3200
3201 static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePage(
3202 IMultiLanguage3 *iface,
3203 DWORD dwFlags,
3204 LPCWSTR lpWideCharStr,
3205 UINT cchWideChar,
3206 UINT *puiPreferredCodePages,
3207 UINT nPreferredCodePages,
3208 UINT *puiDetectedCodePages,
3209 UINT *pnDetectedCodePages,
3210 WCHAR *lpSpecialChar)
3211 {
3212 MLang_impl *This = impl_from_IMultiLanguage3( iface );
3213
3214 FIXME("(%p)->(%08x %s %u %p %u %p %p %p)\n", This, dwFlags, debugstr_w(lpWideCharStr),
3215 cchWideChar, puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
3216 pnDetectedCodePages, lpSpecialChar);
3217 return E_NOTIMPL;
3218 }
3219
3220 static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePageInIStream(
3221 IMultiLanguage3 *iface,
3222 DWORD dwFlags,
3223 IStream *pStrIn,
3224 UINT *puiPreferredCodePages,
3225 UINT nPreferredCodePages,
3226 UINT *puiDetectedCodePages,
3227 UINT *pnDetectedCodePages,
3228 WCHAR *lpSpecialChar)
3229 {
3230 MLang_impl *This = impl_from_IMultiLanguage3( iface );
3231
3232 FIXME("(%p)->(%08x %p %p %u %p %p %p)\n", This, dwFlags, pStrIn,
3233 puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
3234 pnDetectedCodePages, lpSpecialChar);
3235 return E_NOTIMPL;
3236 }
3237
3238 static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl =
3239 {
3240 fnIMultiLanguage2_QueryInterface,
3241 fnIMultiLanguage2_AddRef,
3242 fnIMultiLanguage2_Release,
3243 fnIMultiLanguage2_GetNumberOfCodePageInfo,
3244 fnIMultiLanguage2_GetCodePageInfo,
3245 fnIMultiLanguage2_GetFamilyCodePage,
3246 fnIMultiLanguage2_EnumCodePages,
3247 fnIMultiLanguage2_GetCharsetInfo,
3248 fnIMultiLanguage2_IsConvertible,
3249 fnIMultiLanguage2_ConvertString,
3250 fnIMultiLanguage2_ConvertStringToUnicode,
3251 fnIMultiLanguage2_ConvertStringFromUnicode,
3252 fnIMultiLanguage2_ConvertStringReset,
3253 fnIMultiLanguage2_GetRfc1766FromLcid,
3254 fnIMultiLanguage2_GetLcidFromRfc1766,
3255 fnIMultiLanguage2_EnumRfc1766,
3256 fnIMultiLanguage2_GetRfc1766Info,
3257 fnIMultiLanguage2_CreateConvertCharset,
3258 fnIMultiLanguage2_ConvertStringInIStream,
3259 fnIMultiLanguage2_ConvertStringToUnicodeEx,
3260 fnIMultiLanguage2_ConvertStringFromUnicodeEx,
3261 fnIMultiLanguage2_DetectCodepageInIStream,
3262 fnIMultiLanguage2_DetectInputCodepage,
3263 fnIMultiLanguage2_ValidateCodePage,
3264 fnIMultiLanguage2_GetCodePageDescription,
3265 fnIMultiLanguage2_IsCodePageInstallable,
3266 fnIMultiLanguage2_SetMimeDBSource,
3267 fnIMultiLanguage2_GetNumberOfScripts,
3268 fnIMultiLanguage2_EnumScripts,
3269 fnIMultiLanguage2_ValidateCodePageEx,
3270 fnIMultiLanguage3_DetectOutboundCodePage,
3271 fnIMultiLanguage3_DetectOutboundCodePageInIStream
3272 };
3273
3274 /******************************************************************************/
3275
3276 static inline MLang_impl *impl_from_IMLangFontLink2( IMLangFontLink2 *iface )
3277 {
3278 return CONTAINING_RECORD( iface, MLang_impl, vtbl_IMLangFontLink2 );
3279 }
3280
3281 static HRESULT WINAPI fnIMLangFontLink2_QueryInterface(
3282 IMLangFontLink2 * iface,
3283 REFIID riid,
3284 void** ppvObject)
3285 {
3286 MLang_impl *This = impl_from_IMLangFontLink2( iface );
3287 return MLang_QueryInterface( This, riid, ppvObject );
3288 }
3289
3290 static ULONG WINAPI fnIMLangFontLink2_AddRef( IMLangFontLink2* iface )
3291 {
3292 MLang_impl *This = impl_from_IMLangFontLink2( iface );
3293 return MLang_AddRef( This );
3294 }
3295
3296 static ULONG WINAPI fnIMLangFontLink2_Release( IMLangFontLink2* iface )
3297 {
3298 MLang_impl *This = impl_from_IMLangFontLink2( iface );
3299 return MLang_Release( This );
3300 }
3301
3302 static HRESULT WINAPI fnIMLangFontLink2_GetCharCodePages( IMLangFontLink2* This,
3303 WCHAR chSrc, DWORD *pdwCodePages)
3304 {
3305 FIXME("(%p)->%s %p\n",This, debugstr_wn(&chSrc,1),pdwCodePages);
3306 return E_NOTIMPL;
3307 }
3308
3309 static HRESULT WINAPI fnIMLangFontLink2_GetStrCodePages( IMLangFontLink2* This,
3310 const WCHAR *pszSrc, LONG cchSrc, DWORD dwPriorityCodePages,
3311 DWORD *pdwCodePages, LONG *pcchCodePages)
3312 {
3313 return fnIMLangFontLink_GetStrCodePages((IMLangFontLink *)This,
3314 pszSrc, cchSrc, dwPriorityCodePages, pdwCodePages, pcchCodePages);
3315 }
3316
3317 static HRESULT WINAPI fnIMLangFontLink2_CodePageToCodePages(IMLangFontLink2* This,
3318 UINT uCodePage,
3319 DWORD *pdwCodePages)
3320 {
3321 FIXME("(%p)->%i %p\n",This, uCodePage, pdwCodePages);
3322 return E_NOTIMPL;
3323 }
3324
3325 static HRESULT WINAPI fnIMLangFontLink2_CodePagesToCodePage(IMLangFontLink2* This,
3326 DWORD dwCodePages, UINT uDefaultCodePage, UINT *puCodePage)
3327 {
3328 FIXME("(%p)->%i %i %p\n",This, dwCodePages, uDefaultCodePage, puCodePage);
3329 return E_NOTIMPL;
3330 }
3331
3332 static HRESULT WINAPI fnIMLangFontLink2_GetFontCodePages(IMLangFontLink2* This,
3333 HDC hDC, HFONT hFont, DWORD *pdwCodePages)
3334 {
3335 FIXME("(%p)->%p %p %p\n",This, hDC, hFont, pdwCodePages);
3336 return E_NOTIMPL;
3337 }
3338
3339 static HRESULT WINAPI fnIMLangFontLink2_ReleaseFont(IMLangFontLink2* This,
3340 HFONT hFont)
3341 {
3342 FIXME("(%p)->%p\n",This, hFont);
3343 return E_NOTIMPL;
3344 }
3345
3346 static HRESULT WINAPI fnIMLangFontLink2_ResetFontMapping(IMLangFontLink2* This)
3347 {
3348 FIXME("(%p)->\n",This);
3349 return E_NOTIMPL;
3350 }
3351
3352 static HRESULT WINAPI fnIMLangFontLink2_MapFont(IMLangFontLink2* This,
3353 HDC hDC, DWORD dwCodePages, WCHAR chSrc, HFONT *pFont)
3354 {
3355 FIXME("(%p)->%p %i %s %p\n",This, hDC, dwCodePages, debugstr_wn(&chSrc,1), pFont);
3356 return E_NOTIMPL;
3357 }
3358
3359 static HRESULT WINAPI fnIMLangFontLink2_GetFontUnicodeRanges(IMLangFontLink2* This,
3360 HDC hDC, UINT *puiRanges, UNICODERANGE *pUranges)
3361 {
3362 DWORD size;
3363 GLYPHSET *gs;
3364
3365 TRACE("(%p)->%p %p %p\n", This, hDC, puiRanges, pUranges);
3366
3367 if (!puiRanges) return E_INVALIDARG;
3368 if (!(size = GetFontUnicodeRanges(hDC, NULL))) return E_FAIL;
3369 if (!(gs = HeapAlloc(GetProcessHeap(), 0, size))) return E_OUTOFMEMORY;
3370
3371 GetFontUnicodeRanges(hDC, gs);
3372 *puiRanges = gs->cRanges;
3373 if (pUranges)
3374 {
3375 UINT i;
3376 for (i = 0; i < gs->cRanges; i++)
3377 {
3378 if (i >= *puiRanges) break;
3379 pUranges[i].wcFrom = gs->ranges[i].wcLow;
3380 pUranges[i].wcTo = gs->ranges[i].wcLow + gs->ranges[i].cGlyphs;
3381 }
3382 *puiRanges = i;
3383 }
3384 HeapFree(GetProcessHeap(), 0, gs);
3385 return S_OK;
3386 }
3387
3388 static HRESULT WINAPI fnIMLangFontLink2_GetScriptFontInfo(IMLangFontLink2* This,
3389 SCRIPT_ID sid, DWORD dwFlags, UINT *puiFonts,
3390 SCRIPTFONTINFO *pScriptFont)
3391 {
3392 UINT i, j;
3393
3394 TRACE("(%p)->%u %x %p %p\n", This, sid, dwFlags, puiFonts, pScriptFont);
3395
3396 if (!dwFlags) dwFlags = SCRIPTCONTF_PROPORTIONAL_FONT;
3397
3398 for (i = 0, j = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3399 {
3400 if (sid == mlang_data[i].sid)
3401 {
3402 if (pScriptFont)
3403 {
3404 if (j >= *puiFonts) break;
3405
3406 pScriptFont[j].scripts = 1 << mlang_data[i].sid;
3407 if (dwFlags == SCRIPTCONTF_FIXED_FONT)
3408 {
3409 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].fixed_font, -1,
3410 pScriptFont[j].wszFont, MAX_MIMEFACE_NAME);
3411 }
3412 else if (dwFlags == SCRIPTCONTF_PROPORTIONAL_FONT)
3413 {
3414 MultiByteToWideChar(CP_ACP, 0, mlang_data[i].proportional_font, -1,
3415 pScriptFont[j].wszFont, MAX_MIMEFACE_NAME);
3416 }
3417 }
3418 j++;
3419 }
3420 }
3421 *puiFonts = j;
3422 return S_OK;
3423 }
3424
3425 static HRESULT WINAPI fnIMLangFontLink2_CodePageToScriptID(IMLangFontLink2* This,
3426 UINT uiCodePage, SCRIPT_ID *pSid)
3427 {
3428 UINT i;
3429
3430 TRACE("(%p)->%i %p\n", This, uiCodePage, pSid);
3431
3432 if (uiCodePage == CP_UNICODE) return E_FAIL;
3433
3434 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3435 {
3436 if (uiCodePage == mlang_data[i].family_codepage)
3437 {
3438 if (pSid) *pSid = mlang_data[i].sid;
3439 return S_OK;
3440 }
3441 }
3442 return E_FAIL;
3443 }
3444
3445 static const IMLangFontLink2Vtbl IMLangFontLink2_vtbl =
3446 {
3447 fnIMLangFontLink2_QueryInterface,
3448 fnIMLangFontLink2_AddRef,
3449 fnIMLangFontLink2_Release,
3450 fnIMLangFontLink2_GetCharCodePages,
3451 fnIMLangFontLink2_GetStrCodePages,
3452 fnIMLangFontLink2_CodePageToCodePages,
3453 fnIMLangFontLink2_CodePagesToCodePage,
3454 fnIMLangFontLink2_GetFontCodePages,
3455 fnIMLangFontLink2_ReleaseFont,
3456 fnIMLangFontLink2_ResetFontMapping,
3457 fnIMLangFontLink2_MapFont,
3458 fnIMLangFontLink2_GetFontUnicodeRanges,
3459 fnIMLangFontLink2_GetScriptFontInfo,
3460 fnIMLangFontLink2_CodePageToScriptID
3461 };
3462
3463 /******************************************************************************/
3464
3465 static inline MLang_impl *impl_from_IMLangLineBreakConsole( IMLangLineBreakConsole *iface )
3466 {
3467 return CONTAINING_RECORD( iface, MLang_impl, vtbl_IMLangLineBreakConsole );
3468 }
3469
3470 static HRESULT WINAPI fnIMLangLineBreakConsole_QueryInterface(
3471 IMLangLineBreakConsole* iface,
3472 REFIID riid,
3473 void** ppvObject)
3474 {
3475 MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
3476 return MLang_QueryInterface( This, riid, ppvObject );
3477 }
3478
3479 static ULONG WINAPI fnIMLangLineBreakConsole_AddRef(
3480 IMLangLineBreakConsole* iface )
3481 {
3482 MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
3483 return MLang_AddRef( This );
3484 }
3485
3486 static ULONG WINAPI fnIMLangLineBreakConsole_Release(
3487 IMLangLineBreakConsole* iface )
3488 {
3489 MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
3490 return MLang_Release( This );
3491 }
3492
3493 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineML(
3494 IMLangLineBreakConsole* iface,
3495 IMLangString* pSrcMLStr,
3496 LONG lSrcPos,
3497 LONG lSrcLen,
3498 LONG cMinColumns,
3499 LONG cMaxColumns,
3500 LONG* plLineLen,
3501 LONG* plSkipLen)
3502 {
3503 FIXME("(%p)->%p %i %i %i %i %p %p\n", iface, pSrcMLStr, lSrcPos, lSrcLen, cMinColumns, cMaxColumns, plLineLen, plSkipLen);
3504 return E_NOTIMPL;
3505 }
3506
3507 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineW(
3508 IMLangLineBreakConsole* iface,
3509 LCID locale,
3510 const WCHAR* pszSrc,
3511 LONG cchSrc,
3512 LONG cMaxColumns,
3513 LONG* pcchLine,
3514 LONG* pcchSkip )
3515 {
3516 FIXME("(%p)->%i %s %i %i %p %p\n", iface, locale, debugstr_wn(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
3517
3518 *pcchLine = cchSrc;
3519 *pcchSkip = 0;
3520 return S_OK;
3521 }
3522
3523 static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineA(
3524 IMLangLineBreakConsole* iface,
3525 LCID locale,
3526 UINT uCodePage,
3527 const CHAR* pszSrc,
3528 LONG cchSrc,
3529 LONG cMaxColumns,
3530 LONG* pcchLine,
3531 LONG* pcchSkip)
3532 {
3533 FIXME("(%p)->%i %i %s %i %i %p %p\n", iface, locale, uCodePage, debugstr_an(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
3534
3535 *pcchLine = cchSrc;
3536 *pcchSkip = 0;
3537 return S_OK;
3538 }
3539
3540 static const IMLangLineBreakConsoleVtbl IMLangLineBreakConsole_vtbl =
3541 {
3542 fnIMLangLineBreakConsole_QueryInterface,
3543 fnIMLangLineBreakConsole_AddRef,
3544 fnIMLangLineBreakConsole_Release,
3545 fnIMLangLineBreakConsole_BreakLineML,
3546 fnIMLangLineBreakConsole_BreakLineW,
3547 fnIMLangLineBreakConsole_BreakLineA
3548 };
3549
3550 static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj)
3551 {
3552 MLang_impl *mlang;
3553 UINT i;
3554
3555 TRACE("Creating MultiLanguage object\n");
3556
3557 if( pUnkOuter )
3558 return CLASS_E_NOAGGREGATION;
3559
3560 mlang = HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl) );
3561 mlang->vtbl_IMLangFontLink = &IMLangFontLink_vtbl;
3562 mlang->vtbl_IMultiLanguage = &IMultiLanguage_vtbl;
3563 mlang->vtbl_IMultiLanguage3 = &IMultiLanguage3_vtbl;
3564 mlang->vtbl_IMLangFontLink2 = &IMLangFontLink2_vtbl;
3565 mlang->vtbl_IMLangLineBreakConsole = &IMLangLineBreakConsole_vtbl;
3566
3567 mlang->total_cp = 0;
3568 for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
3569 mlang->total_cp += mlang_data[i].number_of_cp;
3570
3571 /* do not enumerate unicode flavours */
3572 mlang->total_scripts = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
3573
3574 mlang->ref = 1;
3575 *ppObj = mlang;
3576 TRACE("returning %p\n", mlang);
3577
3578 LockModule();
3579
3580 return S_OK;
3581 }
3582
3583 /******************************************************************************/
3584
3585 HRESULT WINAPI DllCanUnloadNow(void)
3586 {
3587 return dll_count == 0 ? S_OK : S_FALSE;
3588 }
3589
3590 HRESULT WINAPI GetGlobalFontLinkObject(void)
3591 {
3592 FIXME("\n");
3593 return S_FALSE;
3594 }
an attempt at megring old patches into wine