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