mirror of
https://github.com/reactos/wine.git
synced 2024-11-26 13:10:28 +00:00
3619 lines
105 KiB
C
3619 lines
105 KiB
C
/*
|
|
* MLANG Class Factory
|
|
*
|
|
* Copyright 2002 Lionel Ulmer
|
|
* Copyright 2003,2004 Mike McCormack
|
|
* Copyright 2004,2005 Dmitry Timoshkov
|
|
* Copyright 2009 Detlef Riekenberg
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
|
|
#define COBJMACROS
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h"
|
|
#include "ole2.h"
|
|
#include "objbase.h"
|
|
#include "rpcproxy.h"
|
|
#include "mlang.h"
|
|
|
|
#include "wine/unicode.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(mlang);
|
|
|
|
#include "initguid.h"
|
|
|
|
#define CP_UNICODE 1200
|
|
|
|
static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj);
|
|
static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum);
|
|
|
|
static HINSTANCE instance;
|
|
static DWORD MLANG_tls_index; /* to store various per thead data */
|
|
|
|
/* FIXME:
|
|
* Under what circumstances HKEY_CLASSES_ROOT\MIME\Database\Codepage and
|
|
* HKEY_CLASSES_ROOT\MIME\Database\Charset are used?
|
|
*/
|
|
|
|
typedef struct
|
|
{
|
|
const char *description;
|
|
UINT cp;
|
|
DWORD flags;
|
|
const char *web_charset;
|
|
const char *header_charset;
|
|
const char *body_charset;
|
|
} MIME_CP_INFO;
|
|
|
|
/* These data are based on the codepage info in libs/unicode/cpmap.pl */
|
|
/* FIXME: Add 28604 (Celtic), 28606 (Balkan) */
|
|
|
|
static const MIME_CP_INFO arabic_cp[] =
|
|
{
|
|
{ "Arabic (864)",
|
|
864, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ibm864", "ibm864", "ibm864" },
|
|
{ "Arabic (1006)",
|
|
1006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ibm1006", "ibm1006", "ibm1006" },
|
|
{ "Arabic (Windows)",
|
|
1256, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1256", "windows-1256", "windows-1256" },
|
|
{ "Arabic (ISO)",
|
|
28596, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-6", "iso-8859-6", "iso-8859-6" }
|
|
};
|
|
static const MIME_CP_INFO baltic_cp[] =
|
|
{
|
|
{ "Baltic (DOS)",
|
|
775, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm775", "ibm775", "ibm775" },
|
|
{ "Baltic (Windows)",
|
|
1257, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1257", "windows-1257", "windows-1257" },
|
|
{ "Baltic (ISO)",
|
|
28594, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"iso-8859-4", "iso-8859-4", "iso-8859-4" },
|
|
{ "Estonian (ISO)",
|
|
28603, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-13", "iso-8859-13", "iso-8859-13" }
|
|
};
|
|
static const MIME_CP_INFO chinese_simplified_cp[] =
|
|
{
|
|
{ "Chinese Simplified (GB2312)",
|
|
936, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"gb2312", "gb2312", "gb2312" }
|
|
};
|
|
static const MIME_CP_INFO chinese_traditional_cp[] =
|
|
{
|
|
{ "Chinese Traditional (Big5)",
|
|
950, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"big5", "big5", "big5" }
|
|
};
|
|
static const MIME_CP_INFO central_european_cp[] =
|
|
{
|
|
{ "Central European (DOS)",
|
|
852, MIMECONTF_BROWSER | MIMECONTF_IMPORT | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"ibm852", "ibm852", "ibm852" },
|
|
{ "Central European (Windows)",
|
|
1250, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"windows-1250", "windows-1250", "windows-1250" },
|
|
{ "Central European (Mac)",
|
|
10029, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"x-mac-ce", "x-mac-ce", "x-mac-ce" },
|
|
{ "Central European (ISO)",
|
|
28592, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-2", "iso-8859-2", "iso-8859-2" }
|
|
};
|
|
static const MIME_CP_INFO cyrillic_cp[] =
|
|
{
|
|
{ "OEM Cyrillic",
|
|
855, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm855", "ibm855", "ibm855" },
|
|
{ "Cyrillic (DOS)",
|
|
866, MIMECONTF_BROWSER | MIMECONTF_IMPORT | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
|
|
MIMECONTF_MIME_LATEST,
|
|
"cp866", "cp866", "cp866" },
|
|
#if 0 /* Windows has 20866 as an official code page for KOI8-R */
|
|
{ "Cyrillic (KOI8-R)",
|
|
878, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"koi8-r", "koi8-r", "koi8-r" },
|
|
#endif
|
|
{ "Cyrillic (Windows)",
|
|
1251, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1251", "windows-1251", "windows-1251" },
|
|
{ "Cyrillic (Mac)",
|
|
10007, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"x-mac-cyrillic", "x-mac-cyrillic", "x-mac-cyrillic" },
|
|
{ "Cyrillic (KOI8-R)",
|
|
20866, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"koi8-r", "koi8-r", "koi8-r" },
|
|
{ "Cyrillic (KOI8-U)",
|
|
21866, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"koi8-u", "koi8-u", "koi8-u" },
|
|
{ "Cyrillic (ISO)",
|
|
28595, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-5", "iso-8859-5", "iso-8859-5" }
|
|
};
|
|
static const MIME_CP_INFO greek_cp[] =
|
|
{
|
|
{ "Greek (DOS)",
|
|
737, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ibm737", "ibm737", "ibm737" },
|
|
{ "Greek, Modern (DOS)",
|
|
869, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ibm869", "ibm869", "ibm869" },
|
|
{ "IBM EBCDIC (Greek Modern)",
|
|
875, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"cp875", "cp875", "cp875" },
|
|
{ "Greek (Windows)",
|
|
1253, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1253", "windows-1253", "windows-1253" },
|
|
{ "Greek (Mac)",
|
|
10006, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"x-mac-greek", "x-mac-greek", "x-mac-greek" },
|
|
{ "Greek (ISO)",
|
|
28597, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-7", "iso-8859-7", "iso-8859-7" }
|
|
};
|
|
static const MIME_CP_INFO hebrew_cp[] =
|
|
{
|
|
{ "Hebrew (424)",
|
|
424, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ibm424", "ibm424", "ibm424" },
|
|
{ "Hebrew (856)",
|
|
856, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"cp856", "cp856", "cp856" },
|
|
{ "Hebrew (DOS)",
|
|
862, MIMECONTF_BROWSER | MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"dos-862", "dos-862", "dos-862" },
|
|
{ "Hebrew (Windows)",
|
|
1255, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1255", "windows-1255", "windows-1255" },
|
|
{ "Hebrew (ISO-Visual)",
|
|
28598, MIMECONTF_BROWSER | MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-8", "iso-8859-8", "iso-8859-8" }
|
|
};
|
|
static const MIME_CP_INFO japanese_cp[] =
|
|
{
|
|
{ "Japanese (Auto-Select)",
|
|
50932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"_autodetect", "_autodetect", "_autodetect" },
|
|
{ "Japanese (EUC)",
|
|
51932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"euc-jp", "euc-jp", "euc-jp" },
|
|
{ "Japanese (JIS)",
|
|
50220, MIMECONTF_IMPORT | MIMECONTF_MAILNEWS | MIMECONTF_EXPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST |
|
|
MIMECONTF_MIME_IE4,
|
|
"iso-2022-jp","iso-2022-jp","iso-2022-jp"},
|
|
{ "Japanese (JIS 0208-1990 and 0212-1990)",
|
|
20932, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
|
|
"EUC-JP","EUC-JP","EUC-JP"},
|
|
{ "Japanese (JIS-Allow 1 byte Kana)",
|
|
50221, MIMECONTF_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
|
|
"csISO2022JP","iso-2022-jp","iso-2022-jp"},
|
|
{ "Japanese (JIS-Allow 1 byte Kana - SO/SI)",
|
|
50222, MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_VALID |
|
|
MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
|
|
"iso-2022-jp","iso-2022-jp","iso-2022-jp"},
|
|
{ "Japanese (Mac)",
|
|
10001, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_VALID | MIMECONTF_PRIVCONVERTER | MIMECONTF_MIME_LATEST,
|
|
"x-mac-japanese","x-mac-japanese","x-mac-japanese"},
|
|
{ "Japanese (Shift-JIS)",
|
|
932, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"shift_jis", "iso-2022-jp", "iso-2022-jp" }
|
|
};
|
|
static const MIME_CP_INFO korean_cp[] =
|
|
{
|
|
{ "Korean",
|
|
949, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"ks_c_5601-1987", "ks_c_5601-1987", "ks_c_5601-1987" }
|
|
};
|
|
static const MIME_CP_INFO thai_cp[] =
|
|
{
|
|
{ "Thai (Windows)",
|
|
874, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_MIME_LATEST,
|
|
"ibm-thai", "ibm-thai", "ibm-thai" }
|
|
};
|
|
static const MIME_CP_INFO turkish_cp[] =
|
|
{
|
|
{ "Turkish (DOS)",
|
|
857, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm857", "ibm857", "ibm857" },
|
|
{ "IBM EBCDIC (Turkish Latin-5)",
|
|
1026, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm1026", "ibm1026", "ibm1026" },
|
|
{ "Turkish (Windows)",
|
|
1254, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1254", "windows-1254", "windows-1254" },
|
|
{ "Turkish (Mac)",
|
|
10081, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"x-mac-turkish", "x-mac-turkish", "x-mac-turkish" },
|
|
{ "Latin 3 (ISO)",
|
|
28593, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-3", "iso-8859-3", "iso-8859-3" },
|
|
{ "Turkish (ISO)",
|
|
28599, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"iso-8859-9", "iso-8859-9", "iso-8859-9" }
|
|
};
|
|
static const MIME_CP_INFO vietnamese_cp[] =
|
|
{
|
|
{ "Vietnamese (Windows)",
|
|
1258, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
|
|
MIMECONTF_MIME_LATEST,
|
|
"windows-1258", "windows-1258", "windows-1258" }
|
|
};
|
|
static const MIME_CP_INFO western_cp[] =
|
|
{
|
|
{ "IBM EBCDIC (US-Canada)",
|
|
37, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm037", "ibm037", "ibm037" },
|
|
{ "OEM United States",
|
|
437, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm437", "ibm437", "ibm437" },
|
|
{ "IBM EBCDIC (International)",
|
|
500, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm500", "ibm500", "ibm500" },
|
|
{ "Western European (DOS)",
|
|
850, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm850", "ibm850", "ibm850" },
|
|
{ "Portuguese (DOS)",
|
|
860, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm860", "ibm860", "ibm860" },
|
|
{ "Icelandic (DOS)",
|
|
861, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm861", "ibm861", "ibm861" },
|
|
{ "French Canadian (DOS)",
|
|
863, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm863", "ibm863", "ibm863" },
|
|
{ "Nordic (DOS)",
|
|
865, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"ibm865", "ibm865", "ibm865" },
|
|
{ "Western European (Windows)",
|
|
1252, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_MINIMAL |
|
|
MIMECONTF_IMPORT | MIMECONTF_SAVABLE_MAILNEWS |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"windows-1252", "windows-1252", "iso-8859-1" },
|
|
{ "Western European (Mac)",
|
|
10000, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"macintosh", "macintosh", "macintosh" },
|
|
{ "Icelandic (Mac)",
|
|
10079, MIMECONTF_IMPORT | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"x-mac-icelandic", "x-mac-icelandic", "x-mac-icelandic" },
|
|
{ "US-ASCII",
|
|
20127, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT | MIMECONTF_EXPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_LATEST,
|
|
"us-ascii", "us-ascii", "us-ascii" },
|
|
{ "Western European (ISO)",
|
|
28591, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"iso-8859-1", "iso-8859-1", "iso-8859-1" },
|
|
{ "Latin 9 (ISO)",
|
|
28605, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_LATEST,
|
|
"iso-8859-15", "iso-8859-15", "iso-8859-15" }
|
|
};
|
|
static const MIME_CP_INFO unicode_cp[] =
|
|
{
|
|
{ "Unicode",
|
|
CP_UNICODE, MIMECONTF_MINIMAL | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_BROWSER | MIMECONTF_EXPORT |
|
|
MIMECONTF_VALID | MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 |
|
|
MIMECONTF_MIME_LATEST,
|
|
"unicode", "unicode", "unicode" },
|
|
{ "Unicode (UTF-7)",
|
|
CP_UTF7, MIMECONTF_MAILNEWS | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_EXPORT | MIMECONTF_VALID |
|
|
MIMECONTF_VALID_NLS | MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"utf-7", "utf-7", "utf-7" },
|
|
{ "Unicode (UTF-8)",
|
|
CP_UTF8, MIMECONTF_MAILNEWS | MIMECONTF_BROWSER | MIMECONTF_IMPORT |
|
|
MIMECONTF_SAVABLE_MAILNEWS | MIMECONTF_SAVABLE_BROWSER |
|
|
MIMECONTF_EXPORT | MIMECONTF_VALID | MIMECONTF_VALID_NLS |
|
|
MIMECONTF_MIME_IE4 | MIMECONTF_MIME_LATEST,
|
|
"utf-8", "utf-8", "utf-8" }
|
|
};
|
|
|
|
static const struct mlang_data
|
|
{
|
|
const char *description;
|
|
UINT family_codepage;
|
|
UINT number_of_cp;
|
|
const MIME_CP_INFO *mime_cp_info;
|
|
const char *fixed_font;
|
|
const char *proportional_font;
|
|
SCRIPT_ID sid;
|
|
} mlang_data[] =
|
|
{
|
|
{ "Arabic",1256,sizeof(arabic_cp)/sizeof(arabic_cp[0]),arabic_cp,
|
|
"Courier","Arial", sidArabic }, /* FIXME */
|
|
{ "Baltic",1257,sizeof(baltic_cp)/sizeof(baltic_cp[0]),baltic_cp,
|
|
"Courier","Arial", sidAsciiLatin }, /* FIXME */
|
|
{ "Chinese Simplified",936,sizeof(chinese_simplified_cp)/sizeof(chinese_simplified_cp[0]),chinese_simplified_cp,
|
|
"Courier","Arial", sidHan }, /* FIXME */
|
|
{ "Chinese Traditional",950,sizeof(chinese_traditional_cp)/sizeof(chinese_traditional_cp[0]),chinese_traditional_cp,
|
|
"Courier","Arial", sidBopomofo }, /* FIXME */
|
|
{ "Central European",1250,sizeof(central_european_cp)/sizeof(central_european_cp[0]),central_european_cp,
|
|
"Courier","Arial", sidAsciiLatin }, /* FIXME */
|
|
{ "Cyrillic",1251,sizeof(cyrillic_cp)/sizeof(cyrillic_cp[0]),cyrillic_cp,
|
|
"Courier","Arial", sidCyrillic }, /* FIXME */
|
|
{ "Greek",1253,sizeof(greek_cp)/sizeof(greek_cp[0]),greek_cp,
|
|
"Courier","Arial", sidGreek }, /* FIXME */
|
|
{ "Hebrew",1255,sizeof(hebrew_cp)/sizeof(hebrew_cp[0]),hebrew_cp,
|
|
"Courier","Arial", sidHebrew }, /* FIXME */
|
|
{ "Japanese",932,sizeof(japanese_cp)/sizeof(japanese_cp[0]),japanese_cp,
|
|
"MS Gothic","MS PGothic", sidKana },
|
|
{ "Korean",949,sizeof(korean_cp)/sizeof(korean_cp[0]),korean_cp,
|
|
"Courier","Arial", sidHangul }, /* FIXME */
|
|
{ "Thai",874,sizeof(thai_cp)/sizeof(thai_cp[0]),thai_cp,
|
|
"Courier","Arial", sidThai }, /* FIXME */
|
|
{ "Turkish",1254,sizeof(turkish_cp)/sizeof(turkish_cp[0]),turkish_cp,
|
|
"Courier","Arial", sidAsciiLatin }, /* FIXME */
|
|
{ "Vietnamese",1258,sizeof(vietnamese_cp)/sizeof(vietnamese_cp[0]),vietnamese_cp,
|
|
"Courier","Arial", sidAsciiLatin }, /* FIXME */
|
|
{ "Western European",1252,sizeof(western_cp)/sizeof(western_cp[0]),western_cp,
|
|
"Courier","Arial", sidAsciiLatin }, /* FIXME */
|
|
{ "Unicode",CP_UNICODE,sizeof(unicode_cp)/sizeof(unicode_cp[0]),unicode_cp,
|
|
"Courier","Arial" } /* FIXME */
|
|
};
|
|
|
|
static void fill_cp_info(const struct mlang_data *ml_data, UINT index, MIMECPINFO *mime_cp_info);
|
|
|
|
static LONG dll_count;
|
|
|
|
/*
|
|
* Japanese Detection and Converstion Functions
|
|
*/
|
|
|
|
#define HANKATA(A) ((A >= 161) && (A <= 223))
|
|
#define ISEUC(A) ((A >= 161) && (A <= 254))
|
|
#define NOTEUC(A,B) (((A >= 129) && (A <= 159)) && ((B >= 64) && (B <= 160)))
|
|
#define SJIS1(A) (((A >= 129) && (A <= 159)) || ((A >= 224) && (A <= 239)))
|
|
#define SJIS2(A) ((A >= 64) && (A <= 252))
|
|
#define ISMARU(A) ((A >= 202) && (A <= 206))
|
|
#define ISNIGORI(A) (((A >= 182) && (A <= 196)) || ((A >= 202) && (A <= 206)))
|
|
|
|
static UINT DetectJapaneseCode(LPCSTR input, DWORD count)
|
|
{
|
|
UINT code = 0;
|
|
DWORD i = 0;
|
|
unsigned char c1,c2;
|
|
|
|
while ((code == 0 || code == 51932) && i < count)
|
|
{
|
|
c1 = input[i];
|
|
if (c1 == 0x1b /* ESC */)
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return code;
|
|
c1 = input[i];
|
|
if (c1 == '$')
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return code;
|
|
c1 = input[i];
|
|
if (c1 =='B' || c1 == '@')
|
|
code = 50220;
|
|
}
|
|
if (c1 == 'K')
|
|
code = 50220;
|
|
}
|
|
else if (c1 >= 129)
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return code;
|
|
c2 = input[i];
|
|
if NOTEUC(c1,c2)
|
|
code = 932;
|
|
else if (ISEUC(c1) && ISEUC(c2))
|
|
code = 51932;
|
|
else if (((c1 == 142)) && HANKATA(c2))
|
|
code = 51932;
|
|
}
|
|
i++;
|
|
}
|
|
return code;
|
|
}
|
|
|
|
static inline void jis2sjis(unsigned char *p1, unsigned char *p2)
|
|
{
|
|
unsigned char c1 = *p1;
|
|
unsigned char c2 = *p2;
|
|
int row = c1 < 95 ? 112 : 176;
|
|
int cell = c1 % 2 ? 31 + (c2 > 95) : 126;
|
|
|
|
*p1 = ((c1 + 1) >> 1) + row;
|
|
*p2 = c2 + cell;
|
|
}
|
|
|
|
static inline void sjis2jis(unsigned char *p1, unsigned char *p2)
|
|
{
|
|
unsigned char c1 = *p1;
|
|
unsigned char c2 = *p2;
|
|
int shift = c2 < 159;
|
|
int row = c1 < 160 ? 112 : 176;
|
|
int cell = shift ? (31 + (c2 > 127)): 126;
|
|
|
|
*p1 = ((c1 - row) << 1) - shift;
|
|
*p2 -= cell;
|
|
}
|
|
|
|
static int han2zen(unsigned char *p1, unsigned char *p2)
|
|
{
|
|
int maru = FALSE;
|
|
int nigori = FALSE;
|
|
static const unsigned char char1[] = {129,129,129,129,129,131,131,131,131,
|
|
131,131,131,131,131,131,129,131,131,131,131,131,131,131,131,131,131,
|
|
131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
|
|
131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
|
|
131,129,129 };
|
|
static const unsigned char char2[] = {66,117,118,65,69,146,64,66,68,70,
|
|
72,131,133,135,98,91,65,67,69,71,73,74,76,78,80,82,84,86,88,90,92,94,
|
|
96,99,101,103,105,106,107,108,109,110,113,116,119,122,125,126,128,
|
|
129,130,132,134,136,137,138,139,140,141,143,147,74,75};
|
|
|
|
if (( *p2 == 222) && ((ISNIGORI(*p1) || (*p1 == 179))))
|
|
nigori = TRUE;
|
|
else if ((*p2 == 223) && (ISMARU(*p1)))
|
|
maru = TRUE;
|
|
|
|
if (*p1 >= 161 && *p1 <= 223)
|
|
{
|
|
unsigned char index = *p1 - 161;
|
|
*p1 = char1[index];
|
|
*p2 = char2[index];
|
|
}
|
|
|
|
if (maru || nigori)
|
|
{
|
|
if (nigori)
|
|
{
|
|
if (((*p2 >= 74) && (*p2 <= 103)) || ((*p2 >= 110) && (*p2 <= 122)))
|
|
(*p2)++;
|
|
else if ((*p1 == 131) && (*p2 == 69))
|
|
*p2 = 148;
|
|
}
|
|
else if ((maru) && ((*p2 >= 110) && (*p2 <= 122)))
|
|
*p2+= 2;
|
|
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
static UINT ConvertJIS2SJIS(LPCSTR input, DWORD count, LPSTR output)
|
|
{
|
|
DWORD i = 0;
|
|
int j = 0;
|
|
unsigned char p2,p;
|
|
int shifted = FALSE;
|
|
|
|
while (i < count)
|
|
{
|
|
p = input[i];
|
|
if (p == 0x1b /* ESC */)
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return 0;
|
|
p2 = input[i];
|
|
if (p2 == '$' || p2 =='(')
|
|
i++;
|
|
if (p2 == 'K' || p2 =='$')
|
|
shifted = TRUE;
|
|
else
|
|
shifted = FALSE;
|
|
}
|
|
else
|
|
{
|
|
if (shifted)
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return 0;
|
|
p2 = input[i];
|
|
jis2sjis(&p,&p2);
|
|
output[j++]=p;
|
|
output[j++]=p2;
|
|
}
|
|
else
|
|
{
|
|
output[j++] = p;
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
return j;
|
|
}
|
|
|
|
static inline int exit_shift(LPSTR out, int c)
|
|
{
|
|
if (out)
|
|
{
|
|
out[c] = 0x1b;
|
|
out[c+1] = '(';
|
|
out[c+2] = 'B';
|
|
}
|
|
return 3;
|
|
}
|
|
|
|
static inline int enter_shift(LPSTR out, int c)
|
|
{
|
|
if (out)
|
|
{
|
|
out[c] = 0x1b;
|
|
out[c+1] = '$';
|
|
out[c+2] = 'B';
|
|
}
|
|
return 3;
|
|
}
|
|
|
|
|
|
static UINT ConvertSJIS2JIS(LPCSTR input, DWORD count, LPSTR output)
|
|
{
|
|
DWORD i = 0;
|
|
int j = 0;
|
|
unsigned char p2,p;
|
|
int shifted = FALSE;
|
|
|
|
while (i < count)
|
|
{
|
|
p = input[i] & 0xff;
|
|
if (p == 10 || p == 13) /* NL and CR */
|
|
{
|
|
if (shifted)
|
|
{
|
|
shifted = FALSE;
|
|
j += exit_shift(output,j);
|
|
}
|
|
if (output)
|
|
output[j++] = p;
|
|
else
|
|
j++;
|
|
}
|
|
else
|
|
{
|
|
if (SJIS1(p))
|
|
{
|
|
i++;
|
|
if (i >= count)
|
|
return 0;
|
|
p2 = input[i] & 0xff;
|
|
if (SJIS2(p2))
|
|
{
|
|
sjis2jis(&p,&p2);
|
|
if (!shifted)
|
|
{
|
|
shifted = TRUE;
|
|
j+=enter_shift(output,j);
|
|
}
|
|
}
|
|
|
|
if (output)
|
|
{
|
|
output[j++]=p;
|
|
output[j++]=p2;
|
|
}
|
|
else
|
|
j+=2;
|
|
}
|
|
else
|
|
{
|
|
if (HANKATA(p))
|
|
{
|
|
if ((i+1) >= count)
|
|
return 0;
|
|
p2 = input[i+1] & 0xff;
|
|
i+=han2zen(&p,&p2);
|
|
sjis2jis(&p,&p2);
|
|
if (!shifted)
|
|
{
|
|
shifted = TRUE;
|
|
j+=enter_shift(output,j);
|
|
}
|
|
if (output)
|
|
{
|
|
output[j++]=p;
|
|
output[j++]=p2;
|
|
}
|
|
else
|
|
j+=2;
|
|
}
|
|
else
|
|
{
|
|
if (shifted)
|
|
{
|
|
shifted = FALSE;
|
|
j += exit_shift(output,j);
|
|
}
|
|
if (output)
|
|
output[j++]=p;
|
|
else
|
|
j++;
|
|
}
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
if (shifted)
|
|
j += exit_shift(output,j);
|
|
return j;
|
|
}
|
|
|
|
static UINT ConvertJISJapaneseToUnicode(LPCSTR input, DWORD count,
|
|
LPWSTR output, DWORD out_count)
|
|
{
|
|
CHAR *sjis_string;
|
|
UINT rc = 0;
|
|
sjis_string = HeapAlloc(GetProcessHeap(),0,count);
|
|
rc = ConvertJIS2SJIS(input,count,sjis_string);
|
|
if (rc)
|
|
{
|
|
TRACE("%s\n",debugstr_an(sjis_string,rc));
|
|
if (output)
|
|
rc = MultiByteToWideChar(932,0,sjis_string,rc,output,out_count);
|
|
else
|
|
rc = MultiByteToWideChar(932,0,sjis_string,rc,0,0);
|
|
}
|
|
HeapFree(GetProcessHeap(),0,sjis_string);
|
|
return rc;
|
|
|
|
}
|
|
|
|
static UINT ConvertUnknownJapaneseToUnicode(LPCSTR input, DWORD count,
|
|
LPWSTR output, DWORD out_count)
|
|
{
|
|
CHAR *sjis_string;
|
|
UINT rc = 0;
|
|
int code = DetectJapaneseCode(input,count);
|
|
TRACE("Japanese code %i\n",code);
|
|
|
|
switch (code)
|
|
{
|
|
case 0:
|
|
if (output)
|
|
rc = MultiByteToWideChar(CP_ACP,0,input,count,output,out_count);
|
|
else
|
|
rc = MultiByteToWideChar(CP_ACP,0,input,count,0,0);
|
|
break;
|
|
|
|
case 932:
|
|
if (output)
|
|
rc = MultiByteToWideChar(932,0,input,count,output,out_count);
|
|
else
|
|
rc = MultiByteToWideChar(932,0,input,count,0,0);
|
|
break;
|
|
|
|
case 51932:
|
|
if (output)
|
|
rc = MultiByteToWideChar(20932,0,input,count,output,out_count);
|
|
else
|
|
rc = MultiByteToWideChar(20932,0,input,count,0,0);
|
|
break;
|
|
|
|
case 50220:
|
|
sjis_string = HeapAlloc(GetProcessHeap(),0,count);
|
|
rc = ConvertJIS2SJIS(input,count,sjis_string);
|
|
if (rc)
|
|
{
|
|
TRACE("%s\n",debugstr_an(sjis_string,rc));
|
|
if (output)
|
|
rc = MultiByteToWideChar(932,0,sjis_string,rc,output,out_count);
|
|
else
|
|
rc = MultiByteToWideChar(932,0,sjis_string,rc,0,0);
|
|
}
|
|
HeapFree(GetProcessHeap(),0,sjis_string);
|
|
break;
|
|
}
|
|
return rc;
|
|
}
|
|
|
|
static UINT ConvertJapaneseUnicodeToJIS(LPCWSTR input, DWORD count,
|
|
LPSTR output, DWORD out_count)
|
|
{
|
|
CHAR *sjis_string;
|
|
INT len;
|
|
UINT rc = 0;
|
|
|
|
len = WideCharToMultiByte(932,0,input,count,0,0,NULL,NULL);
|
|
sjis_string = HeapAlloc(GetProcessHeap(),0,len);
|
|
WideCharToMultiByte(932,0,input,count,sjis_string,len,NULL,NULL);
|
|
TRACE("%s\n",debugstr_an(sjis_string,len));
|
|
|
|
rc = ConvertSJIS2JIS(sjis_string, len, NULL);
|
|
if (out_count >= rc)
|
|
{
|
|
ConvertSJIS2JIS(sjis_string, len, output);
|
|
}
|
|
HeapFree(GetProcessHeap(),0,sjis_string);
|
|
return rc;
|
|
|
|
}
|
|
|
|
/*
|
|
* Dll lifetime tracking declaration
|
|
*/
|
|
static void LockModule(void)
|
|
{
|
|
InterlockedIncrement(&dll_count);
|
|
}
|
|
|
|
static void UnlockModule(void)
|
|
{
|
|
InterlockedDecrement(&dll_count);
|
|
}
|
|
|
|
BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
|
|
{
|
|
switch(fdwReason) {
|
|
case DLL_PROCESS_ATTACH:
|
|
instance = hInstDLL;
|
|
MLANG_tls_index = TlsAlloc();
|
|
DisableThreadLibraryCalls(hInstDLL);
|
|
break;
|
|
case DLL_PROCESS_DETACH:
|
|
TlsFree(MLANG_tls_index);
|
|
break;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
HRESULT WINAPI ConvertINetMultiByteToUnicode(
|
|
LPDWORD pdwMode,
|
|
DWORD dwEncoding,
|
|
LPCSTR pSrcStr,
|
|
LPINT pcSrcSize,
|
|
LPWSTR pDstStr,
|
|
LPINT pcDstSize)
|
|
{
|
|
INT src_len = -1;
|
|
|
|
TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
|
|
debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
|
|
|
|
if (!pcDstSize)
|
|
return E_FAIL;
|
|
|
|
if (!pcSrcSize)
|
|
pcSrcSize = &src_len;
|
|
|
|
if (!*pcSrcSize)
|
|
{
|
|
*pcDstSize = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
/* forwarding euc-jp to EUC-JP */
|
|
if (dwEncoding == 51932)
|
|
dwEncoding = 20932;
|
|
|
|
switch (dwEncoding)
|
|
{
|
|
case CP_UNICODE:
|
|
if (*pcSrcSize == -1)
|
|
*pcSrcSize = lstrlenW((LPCWSTR)pSrcStr);
|
|
*pcDstSize = min(*pcSrcSize, *pcDstSize);
|
|
*pcSrcSize *= sizeof(WCHAR);
|
|
if (pDstStr)
|
|
memmove(pDstStr, pSrcStr, *pcDstSize * sizeof(WCHAR));
|
|
break;
|
|
|
|
case 50220:
|
|
case 50221:
|
|
case 50222:
|
|
*pcDstSize = ConvertJISJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
|
|
break;
|
|
case 50932:
|
|
*pcDstSize = ConvertUnknownJapaneseToUnicode(pSrcStr,*pcSrcSize,pDstStr,*pcDstSize);
|
|
break;
|
|
|
|
default:
|
|
if (*pcSrcSize == -1)
|
|
*pcSrcSize = lstrlenA(pSrcStr);
|
|
|
|
if (pDstStr)
|
|
*pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, pDstStr, *pcDstSize);
|
|
else
|
|
*pcDstSize = MultiByteToWideChar(dwEncoding, 0, pSrcStr, *pcSrcSize, NULL, 0);
|
|
break;
|
|
}
|
|
|
|
if (!*pcDstSize)
|
|
return E_FAIL;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
HRESULT WINAPI ConvertINetUnicodeToMultiByte(
|
|
LPDWORD pdwMode,
|
|
DWORD dwEncoding,
|
|
LPCWSTR pSrcStr,
|
|
LPINT pcSrcSize,
|
|
LPSTR pDstStr,
|
|
LPINT pcDstSize)
|
|
{
|
|
INT destsz, size;
|
|
INT src_len = -1;
|
|
|
|
TRACE("%p %d %s %p %p %p\n", pdwMode, dwEncoding,
|
|
debugstr_w(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
|
|
|
|
if (!pcDstSize)
|
|
return S_OK;
|
|
|
|
if (!pcSrcSize)
|
|
pcSrcSize = &src_len;
|
|
|
|
destsz = (pDstStr) ? *pcDstSize : 0;
|
|
*pcDstSize = 0;
|
|
|
|
if (!pSrcStr || !*pcSrcSize)
|
|
return S_OK;
|
|
|
|
if (*pcSrcSize == -1)
|
|
*pcSrcSize = lstrlenW(pSrcStr);
|
|
|
|
/* forwarding euc-jp to EUC-JP */
|
|
if (dwEncoding == 51932)
|
|
dwEncoding = 20932;
|
|
|
|
if (dwEncoding == CP_UNICODE)
|
|
{
|
|
if (*pcSrcSize == -1)
|
|
*pcSrcSize = lstrlenW(pSrcStr);
|
|
|
|
size = min(*pcSrcSize, destsz) * sizeof(WCHAR);
|
|
if (pDstStr)
|
|
memmove(pDstStr, pSrcStr, size);
|
|
|
|
if (size >= destsz)
|
|
goto fail;
|
|
}
|
|
else if (dwEncoding == 50220 || dwEncoding == 50221 || dwEncoding == 50222)
|
|
{
|
|
size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, NULL, 0);
|
|
if (!size)
|
|
goto fail;
|
|
|
|
if (pDstStr)
|
|
{
|
|
size = ConvertJapaneseUnicodeToJIS(pSrcStr, *pcSrcSize, pDstStr,
|
|
destsz);
|
|
if (!size)
|
|
goto fail;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
|
|
NULL, 0, NULL, NULL);
|
|
if (!size)
|
|
goto fail;
|
|
|
|
if (pDstStr)
|
|
{
|
|
size = WideCharToMultiByte(dwEncoding, 0, pSrcStr, *pcSrcSize,
|
|
pDstStr, destsz, NULL, NULL);
|
|
if (!size)
|
|
goto fail;
|
|
}
|
|
}
|
|
|
|
*pcDstSize = size;
|
|
return S_OK;
|
|
|
|
fail:
|
|
*pcSrcSize = 0;
|
|
*pcDstSize = 0;
|
|
return E_FAIL;
|
|
}
|
|
|
|
HRESULT WINAPI ConvertINetString(
|
|
LPDWORD pdwMode,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding,
|
|
LPCSTR pSrcStr,
|
|
LPINT pcSrcSize,
|
|
LPSTR pDstStr,
|
|
LPINT pcDstSize
|
|
)
|
|
{
|
|
TRACE("%p %d %d %s %p %p %p\n", pdwMode, dwSrcEncoding, dwDstEncoding,
|
|
debugstr_a(pSrcStr), pcSrcSize, pDstStr, pcDstSize);
|
|
|
|
if (dwSrcEncoding == CP_UNICODE)
|
|
{
|
|
INT cSrcSizeW;
|
|
if (pcSrcSize && *pcSrcSize != -1)
|
|
{
|
|
cSrcSizeW = *pcSrcSize / sizeof(WCHAR);
|
|
pcSrcSize = &cSrcSizeW;
|
|
}
|
|
return ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, (LPCWSTR)pSrcStr, pcSrcSize, pDstStr, pcDstSize);
|
|
}
|
|
else if (dwDstEncoding == CP_UNICODE)
|
|
{
|
|
HRESULT hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, (LPWSTR)pDstStr, pcDstSize);
|
|
*pcDstSize *= sizeof(WCHAR);
|
|
return hr;
|
|
}
|
|
else
|
|
{
|
|
INT cDstSizeW;
|
|
LPWSTR pDstStrW;
|
|
HRESULT hr;
|
|
|
|
TRACE("convert %s from %d to %d\n", debugstr_a(pSrcStr), dwSrcEncoding, dwDstEncoding);
|
|
|
|
hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, NULL, &cDstSizeW);
|
|
if (hr != S_OK)
|
|
return hr;
|
|
|
|
pDstStrW = HeapAlloc(GetProcessHeap(), 0, cDstSizeW * sizeof(WCHAR));
|
|
hr = ConvertINetMultiByteToUnicode(pdwMode, dwSrcEncoding, pSrcStr, pcSrcSize, pDstStrW, &cDstSizeW);
|
|
if (hr == S_OK)
|
|
hr = ConvertINetUnicodeToMultiByte(pdwMode, dwDstEncoding, pDstStrW, &cDstSizeW, pDstStr, pcDstSize);
|
|
|
|
HeapFree(GetProcessHeap(), 0, pDstStrW);
|
|
return hr;
|
|
}
|
|
}
|
|
|
|
static HRESULT GetFamilyCodePage(
|
|
UINT uiCodePage,
|
|
UINT* puiFamilyCodePage)
|
|
{
|
|
UINT i, n;
|
|
|
|
TRACE("%u %p\n", uiCodePage, puiFamilyCodePage);
|
|
|
|
if (!puiFamilyCodePage) return S_FALSE;
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
|
|
{
|
|
*puiFamilyCodePage = mlang_data[i].family_codepage;
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
HRESULT WINAPI IsConvertINetStringAvailable(
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding)
|
|
{
|
|
UINT src_family, dst_family;
|
|
|
|
TRACE("%d %d\n", dwSrcEncoding, dwDstEncoding);
|
|
|
|
if (GetFamilyCodePage(dwSrcEncoding, &src_family) != S_OK ||
|
|
GetFamilyCodePage(dwDstEncoding, &dst_family) != S_OK)
|
|
return S_FALSE;
|
|
|
|
if (src_family == dst_family) return S_OK;
|
|
|
|
/* we can convert any codepage to/from unicode */
|
|
if (src_family == CP_UNICODE || dst_family == CP_UNICODE) return S_OK;
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
static inline HRESULT lcid_to_rfc1766A( LCID lcid, LPSTR rfc1766, INT len )
|
|
{
|
|
CHAR buffer[MAX_RFC1766_NAME];
|
|
INT n = GetLocaleInfoA(lcid, LOCALE_SISO639LANGNAME, buffer, MAX_RFC1766_NAME);
|
|
INT i;
|
|
|
|
if (n)
|
|
{
|
|
i = PRIMARYLANGID(lcid);
|
|
if ((((i == LANG_ENGLISH) || (i == LANG_CHINESE) || (i == LANG_ARABIC)) &&
|
|
(SUBLANGID(lcid) == SUBLANG_DEFAULT)) ||
|
|
(SUBLANGID(lcid) > SUBLANG_DEFAULT)) {
|
|
|
|
buffer[n - 1] = '-';
|
|
i = GetLocaleInfoA(lcid, LOCALE_SISO3166CTRYNAME, buffer + n, MAX_RFC1766_NAME - n);
|
|
if (!i)
|
|
buffer[n - 1] = '\0';
|
|
}
|
|
else
|
|
i = 0;
|
|
|
|
LCMapStringA( LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, buffer, n + i, rfc1766, len );
|
|
return ((n + i) > len) ? E_INVALIDARG : S_OK;
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
static inline HRESULT lcid_to_rfc1766W( LCID lcid, LPWSTR rfc1766, INT len )
|
|
{
|
|
WCHAR buffer[MAX_RFC1766_NAME];
|
|
INT n = GetLocaleInfoW(lcid, LOCALE_SISO639LANGNAME, buffer, MAX_RFC1766_NAME);
|
|
INT i;
|
|
|
|
if (n)
|
|
{
|
|
i = PRIMARYLANGID(lcid);
|
|
if ((((i == LANG_ENGLISH) || (i == LANG_CHINESE) || (i == LANG_ARABIC)) &&
|
|
(SUBLANGID(lcid) == SUBLANG_DEFAULT)) ||
|
|
(SUBLANGID(lcid) > SUBLANG_DEFAULT)) {
|
|
|
|
buffer[n - 1] = '-';
|
|
i = GetLocaleInfoW(lcid, LOCALE_SISO3166CTRYNAME, buffer + n, MAX_RFC1766_NAME - n);
|
|
if (!i)
|
|
buffer[n - 1] = '\0';
|
|
}
|
|
else
|
|
i = 0;
|
|
|
|
LCMapStringW(LOCALE_USER_DEFAULT, LCMAP_LOWERCASE, buffer, n + i, rfc1766, len);
|
|
return ((n + i) > len) ? E_INVALIDARG : S_OK;
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
HRESULT WINAPI LcidToRfc1766A(
|
|
LCID lcid,
|
|
LPSTR pszRfc1766,
|
|
INT nChar)
|
|
{
|
|
TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
|
|
if (!pszRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
return lcid_to_rfc1766A(lcid, pszRfc1766, nChar);
|
|
}
|
|
|
|
HRESULT WINAPI LcidToRfc1766W(
|
|
LCID lcid,
|
|
LPWSTR pszRfc1766,
|
|
INT nChar)
|
|
{
|
|
TRACE("%04x %p %u\n", lcid, pszRfc1766, nChar);
|
|
if (!pszRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
return lcid_to_rfc1766W(lcid, pszRfc1766, nChar);
|
|
}
|
|
|
|
static HRESULT lcid_from_rfc1766(IEnumRfc1766 *iface, LCID *lcid, LPCWSTR rfc1766)
|
|
{
|
|
RFC1766INFO info;
|
|
ULONG num;
|
|
|
|
while (IEnumRfc1766_Next(iface, 1, &info, &num) == S_OK)
|
|
{
|
|
if (!strcmpiW(info.wszRfc1766, rfc1766))
|
|
{
|
|
*lcid = info.lcid;
|
|
return S_OK;
|
|
}
|
|
if (strlenW(rfc1766) == 2 && !memcmp(info.wszRfc1766, rfc1766, 2 * sizeof(WCHAR)))
|
|
{
|
|
*lcid = PRIMARYLANGID(info.lcid);
|
|
return S_OK;
|
|
}
|
|
}
|
|
|
|
return E_FAIL;
|
|
}
|
|
|
|
HRESULT WINAPI Rfc1766ToLcidW(LCID *pLocale, LPCWSTR pszRfc1766)
|
|
{
|
|
IEnumRfc1766 *enumrfc1766;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p, %s)\n", pLocale, debugstr_w(pszRfc1766));
|
|
|
|
if (!pLocale || !pszRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
hr = EnumRfc1766_create(0, &enumrfc1766);
|
|
if (FAILED(hr))
|
|
return hr;
|
|
|
|
hr = lcid_from_rfc1766(enumrfc1766, pLocale, pszRfc1766);
|
|
IEnumRfc1766_Release(enumrfc1766);
|
|
|
|
return hr;
|
|
}
|
|
|
|
HRESULT WINAPI Rfc1766ToLcidA(LCID *lcid, LPCSTR rfc1766A)
|
|
{
|
|
WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
|
|
|
|
if (!rfc1766A)
|
|
return E_INVALIDARG;
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, rfc1766A, -1, rfc1766W, MAX_RFC1766_NAME);
|
|
rfc1766W[MAX_RFC1766_NAME] = 0;
|
|
|
|
return Rfc1766ToLcidW(lcid, rfc1766W);
|
|
}
|
|
|
|
/******************************************************************************
|
|
* MLANG ClassFactory
|
|
*/
|
|
typedef struct {
|
|
IClassFactory ITF_IClassFactory;
|
|
|
|
LONG ref;
|
|
HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
|
|
} IClassFactoryImpl;
|
|
|
|
struct object_creation_info
|
|
{
|
|
const CLSID *clsid;
|
|
LPCSTR szClassName;
|
|
HRESULT (*pfnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
|
|
};
|
|
|
|
static const struct object_creation_info object_creation[] =
|
|
{
|
|
{ &CLSID_CMultiLanguage, "CLSID_CMultiLanguage", MultiLanguage_create },
|
|
};
|
|
|
|
static HRESULT WINAPI
|
|
MLANGCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj)
|
|
{
|
|
IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
|
|
|
|
TRACE("%s\n", debugstr_guid(riid) );
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)
|
|
|| IsEqualGUID(riid, &IID_IClassFactory))
|
|
{
|
|
IClassFactory_AddRef(iface);
|
|
*ppobj = This;
|
|
return S_OK;
|
|
}
|
|
|
|
WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppobj);
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
static ULONG WINAPI MLANGCF_AddRef(LPCLASSFACTORY iface)
|
|
{
|
|
IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG WINAPI MLANGCF_Release(LPCLASSFACTORY iface)
|
|
{
|
|
IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
|
|
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
if (ref == 0)
|
|
{
|
|
TRACE("Destroying %p\n", This);
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI MLANGCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter,
|
|
REFIID riid, LPVOID *ppobj)
|
|
{
|
|
IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
|
|
HRESULT hres;
|
|
LPUNKNOWN punk;
|
|
|
|
TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
|
|
|
|
*ppobj = NULL;
|
|
hres = This->pfnCreateInstance(pOuter, (LPVOID *) &punk);
|
|
if (SUCCEEDED(hres)) {
|
|
hres = IUnknown_QueryInterface(punk, riid, ppobj);
|
|
IUnknown_Release(punk);
|
|
}
|
|
TRACE("returning (%p) -> %x\n", *ppobj, hres);
|
|
return hres;
|
|
}
|
|
|
|
static HRESULT WINAPI MLANGCF_LockServer(LPCLASSFACTORY iface,BOOL dolock)
|
|
{
|
|
if (dolock)
|
|
LockModule();
|
|
else
|
|
UnlockModule();
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static const IClassFactoryVtbl MLANGCF_Vtbl =
|
|
{
|
|
MLANGCF_QueryInterface,
|
|
MLANGCF_AddRef,
|
|
MLANGCF_Release,
|
|
MLANGCF_CreateInstance,
|
|
MLANGCF_LockServer
|
|
};
|
|
|
|
/******************************************************************
|
|
* DllGetClassObject (MLANG.@)
|
|
*/
|
|
HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
|
|
{
|
|
unsigned int i;
|
|
IClassFactoryImpl *factory;
|
|
|
|
TRACE("%s %s %p\n",debugstr_guid(rclsid), debugstr_guid(iid), ppv);
|
|
|
|
if ( !IsEqualGUID( &IID_IClassFactory, iid )
|
|
&& ! IsEqualGUID( &IID_IUnknown, iid) )
|
|
return E_NOINTERFACE;
|
|
|
|
for (i=0; i < sizeof(object_creation)/sizeof(object_creation[0]); i++)
|
|
{
|
|
if (IsEqualGUID(object_creation[i].clsid, rclsid))
|
|
break;
|
|
}
|
|
|
|
if (i == sizeof(object_creation)/sizeof(object_creation[0]))
|
|
{
|
|
FIXME("%s: no class found.\n", debugstr_guid(rclsid));
|
|
return CLASS_E_CLASSNOTAVAILABLE;
|
|
}
|
|
|
|
TRACE("Creating a class factory for %s\n",object_creation[i].szClassName);
|
|
|
|
factory = HeapAlloc(GetProcessHeap(), 0, sizeof(*factory));
|
|
if (factory == NULL) return E_OUTOFMEMORY;
|
|
|
|
factory->ITF_IClassFactory.lpVtbl = &MLANGCF_Vtbl;
|
|
factory->ref = 1;
|
|
|
|
factory->pfnCreateInstance = object_creation[i].pfnCreateInstance;
|
|
|
|
*ppv = &(factory->ITF_IClassFactory);
|
|
|
|
TRACE("(%p) <- %p\n", ppv, &(factory->ITF_IClassFactory) );
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
/******************************************************************************/
|
|
|
|
typedef struct tagMLang_impl
|
|
{
|
|
IMLangFontLink IMLangFontLink_iface;
|
|
IMultiLanguage IMultiLanguage_iface;
|
|
IMultiLanguage3 IMultiLanguage3_iface;
|
|
IMLangFontLink2 IMLangFontLink2_iface;
|
|
IMLangLineBreakConsole IMLangLineBreakConsole_iface;
|
|
LONG ref;
|
|
DWORD total_cp, total_scripts;
|
|
} MLang_impl;
|
|
|
|
static ULONG MLang_AddRef( MLang_impl* This)
|
|
{
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG MLang_Release( MLang_impl* This )
|
|
{
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("%p ref = %d\n", This, ref);
|
|
if (ref == 0)
|
|
{
|
|
TRACE("Destroying %p\n", This);
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
UnlockModule();
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT MLang_QueryInterface(
|
|
MLang_impl* This,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
TRACE("%p -> %s\n", This, debugstr_guid(riid) );
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)
|
|
|| IsEqualGUID(riid, &IID_IMLangCodePages)
|
|
|| IsEqualGUID(riid, &IID_IMLangFontLink))
|
|
{
|
|
MLang_AddRef(This);
|
|
TRACE("Returning IID_IMLangFontLink %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IMLangFontLink_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
if (IsEqualGUID(riid, &IID_IMLangFontLink2))
|
|
{
|
|
MLang_AddRef(This);
|
|
TRACE("Returning IID_IMLangFontLink2 %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IMLangFontLink2_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
if (IsEqualGUID(riid, &IID_IMultiLanguage) )
|
|
{
|
|
MLang_AddRef(This);
|
|
TRACE("Returning IID_IMultiLanguage %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IMultiLanguage_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
if (IsEqualGUID(riid, &IID_IMultiLanguage2) )
|
|
{
|
|
MLang_AddRef(This);
|
|
*ppvObject = &This->IMultiLanguage3_iface;
|
|
TRACE("Returning IID_IMultiLanguage2 %p ref = %d\n", This, This->ref);
|
|
return S_OK;
|
|
}
|
|
|
|
if (IsEqualGUID(riid, &IID_IMultiLanguage3) )
|
|
{
|
|
MLang_AddRef(This);
|
|
*ppvObject = &This->IMultiLanguage3_iface;
|
|
TRACE("Returning IID_IMultiLanguage3 %p ref = %d\n", This, This->ref);
|
|
return S_OK;
|
|
}
|
|
|
|
if (IsEqualGUID(riid, &IID_IMLangLineBreakConsole))
|
|
{
|
|
MLang_AddRef(This);
|
|
TRACE("Returning IID_IMLangLineBreakConsole %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IMLangLineBreakConsole_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
typedef struct tagEnumCodePage_impl
|
|
{
|
|
IEnumCodePage IEnumCodePage_iface;
|
|
LONG ref;
|
|
MIMECPINFO *cpinfo;
|
|
DWORD total, pos;
|
|
} EnumCodePage_impl;
|
|
|
|
static inline EnumCodePage_impl *impl_from_IEnumCodePage( IEnumCodePage *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, EnumCodePage_impl, IEnumCodePage_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumCodePage_QueryInterface(
|
|
IEnumCodePage* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
|
|
TRACE("%p -> %s\n", This, debugstr_guid(riid) );
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)
|
|
|| IsEqualGUID(riid, &IID_IEnumCodePage))
|
|
{
|
|
IEnumCodePage_AddRef(iface);
|
|
TRACE("Returning IID_IEnumCodePage %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IEnumCodePage_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumCodePage_AddRef(
|
|
IEnumCodePage* iface)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumCodePage_Release(
|
|
IEnumCodePage* iface)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("%p ref = %d\n", This, ref);
|
|
if (ref == 0)
|
|
{
|
|
TRACE("Destroying %p\n", This);
|
|
HeapFree(GetProcessHeap(), 0, This->cpinfo);
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumCodePage_Clone(
|
|
IEnumCodePage* iface,
|
|
IEnumCodePage** ppEnum)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
FIXME("%p %p\n", This, ppEnum);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumCodePage_Next(
|
|
IEnumCodePage* iface,
|
|
ULONG celt,
|
|
PMIMECPINFO rgelt,
|
|
ULONG* pceltFetched)
|
|
{
|
|
ULONG i;
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
|
|
TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
|
|
|
|
if (!pceltFetched) return S_FALSE;
|
|
*pceltFetched = 0;
|
|
|
|
if (!rgelt) return S_FALSE;
|
|
|
|
if (This->pos + celt > This->total)
|
|
celt = This->total - This->pos;
|
|
|
|
if (!celt) return S_FALSE;
|
|
|
|
memcpy(rgelt, This->cpinfo + This->pos, celt * sizeof(MIMECPINFO));
|
|
*pceltFetched = celt;
|
|
This->pos += celt;
|
|
|
|
for (i = 0; i < celt; i++)
|
|
{
|
|
TRACE("#%u: %08x %u %u %s %s %s %s %s %s %d\n",
|
|
i, rgelt[i].dwFlags, rgelt[i].uiCodePage,
|
|
rgelt[i].uiFamilyCodePage,
|
|
wine_dbgstr_w(rgelt[i].wszDescription),
|
|
wine_dbgstr_w(rgelt[i].wszWebCharset),
|
|
wine_dbgstr_w(rgelt[i].wszHeaderCharset),
|
|
wine_dbgstr_w(rgelt[i].wszBodyCharset),
|
|
wine_dbgstr_w(rgelt[i].wszFixedWidthFont),
|
|
wine_dbgstr_w(rgelt[i].wszProportionalFont),
|
|
rgelt[i].bGDICharset);
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumCodePage_Reset(
|
|
IEnumCodePage* iface)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
|
|
TRACE("%p\n", This);
|
|
|
|
This->pos = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumCodePage_Skip(
|
|
IEnumCodePage* iface,
|
|
ULONG celt)
|
|
{
|
|
EnumCodePage_impl *This = impl_from_IEnumCodePage( iface );
|
|
|
|
TRACE("%p %u\n", This, celt);
|
|
|
|
if (celt >= This->total) return S_FALSE;
|
|
|
|
This->pos += celt;
|
|
return S_OK;
|
|
}
|
|
|
|
static const IEnumCodePageVtbl IEnumCodePage_vtbl =
|
|
{
|
|
fnIEnumCodePage_QueryInterface,
|
|
fnIEnumCodePage_AddRef,
|
|
fnIEnumCodePage_Release,
|
|
fnIEnumCodePage_Clone,
|
|
fnIEnumCodePage_Next,
|
|
fnIEnumCodePage_Reset,
|
|
fnIEnumCodePage_Skip
|
|
};
|
|
|
|
static HRESULT EnumCodePage_create( MLang_impl* mlang, DWORD grfFlags,
|
|
LANGID LangId, IEnumCodePage** ppEnumCodePage )
|
|
{
|
|
EnumCodePage_impl *ecp;
|
|
MIMECPINFO *cpinfo;
|
|
UINT i, n;
|
|
|
|
TRACE("%p, %08x, %04x, %p\n", mlang, grfFlags, LangId, ppEnumCodePage);
|
|
|
|
if (!grfFlags) /* enumerate internal data base of encodings */
|
|
grfFlags = MIMECONTF_MIME_LATEST;
|
|
|
|
ecp = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumCodePage_impl) );
|
|
ecp->IEnumCodePage_iface.lpVtbl = &IEnumCodePage_vtbl;
|
|
ecp->ref = 1;
|
|
ecp->pos = 0;
|
|
ecp->total = 0;
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
|
|
ecp->total++;
|
|
}
|
|
}
|
|
|
|
ecp->cpinfo = HeapAlloc(GetProcessHeap(), 0,
|
|
sizeof(MIMECPINFO) * ecp->total);
|
|
cpinfo = ecp->cpinfo;
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].flags & grfFlags)
|
|
fill_cp_info(&mlang_data[i], n, cpinfo++);
|
|
}
|
|
}
|
|
|
|
TRACE("enumerated %d codepages with flags %08x\n", ecp->total, grfFlags);
|
|
|
|
*ppEnumCodePage = &ecp->IEnumCodePage_iface;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
typedef struct tagEnumScript_impl
|
|
{
|
|
IEnumScript IEnumScript_iface;
|
|
LONG ref;
|
|
SCRIPTINFO *script_info;
|
|
DWORD total, pos;
|
|
} EnumScript_impl;
|
|
|
|
static inline EnumScript_impl *impl_from_IEnumScript( IEnumScript *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, EnumScript_impl, IEnumScript_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumScript_QueryInterface(
|
|
IEnumScript* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
|
|
TRACE("%p -> %s\n", This, debugstr_guid(riid) );
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)
|
|
|| IsEqualGUID(riid, &IID_IEnumScript))
|
|
{
|
|
IEnumScript_AddRef(iface);
|
|
TRACE("Returning IID_IEnumScript %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IEnumScript_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumScript_AddRef(
|
|
IEnumScript* iface)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumScript_Release(
|
|
IEnumScript* iface)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("%p ref = %d\n", This, ref);
|
|
if (ref == 0)
|
|
{
|
|
TRACE("Destroying %p\n", This);
|
|
HeapFree(GetProcessHeap(), 0, This->script_info);
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumScript_Clone(
|
|
IEnumScript* iface,
|
|
IEnumScript** ppEnum)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
FIXME("%p %p: stub!\n", This, ppEnum);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumScript_Next(
|
|
IEnumScript* iface,
|
|
ULONG celt,
|
|
PSCRIPTINFO rgelt,
|
|
ULONG* pceltFetched)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
|
|
TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
|
|
|
|
if (!pceltFetched || !rgelt) return E_FAIL;
|
|
|
|
*pceltFetched = 0;
|
|
|
|
if (This->pos + celt > This->total)
|
|
celt = This->total - This->pos;
|
|
|
|
if (!celt) return S_FALSE;
|
|
|
|
memcpy(rgelt, This->script_info + This->pos, celt * sizeof(SCRIPTINFO));
|
|
*pceltFetched = celt;
|
|
This->pos += celt;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumScript_Reset(
|
|
IEnumScript* iface)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
|
|
TRACE("%p\n", This);
|
|
|
|
This->pos = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumScript_Skip(
|
|
IEnumScript* iface,
|
|
ULONG celt)
|
|
{
|
|
EnumScript_impl *This = impl_from_IEnumScript( iface );
|
|
|
|
TRACE("%p %u\n", This, celt);
|
|
|
|
if (celt >= This->total) return S_FALSE;
|
|
|
|
This->pos += celt;
|
|
return S_OK;
|
|
}
|
|
|
|
static const IEnumScriptVtbl IEnumScript_vtbl =
|
|
{
|
|
fnIEnumScript_QueryInterface,
|
|
fnIEnumScript_AddRef,
|
|
fnIEnumScript_Release,
|
|
fnIEnumScript_Clone,
|
|
fnIEnumScript_Next,
|
|
fnIEnumScript_Reset,
|
|
fnIEnumScript_Skip
|
|
};
|
|
|
|
static HRESULT EnumScript_create( MLang_impl* mlang, DWORD dwFlags,
|
|
LANGID LangId, IEnumScript** ppEnumScript )
|
|
{
|
|
EnumScript_impl *es;
|
|
UINT i;
|
|
|
|
TRACE("%p, %08x, %04x, %p: stub!\n", mlang, dwFlags, LangId, ppEnumScript);
|
|
|
|
if (!dwFlags) /* enumerate all available scripts */
|
|
dwFlags = SCRIPTCONTF_SCRIPT_USER | SCRIPTCONTF_SCRIPT_HIDE | SCRIPTCONTF_SCRIPT_SYSTEM;
|
|
|
|
es = HeapAlloc( GetProcessHeap(), 0, sizeof (EnumScript_impl) );
|
|
es->IEnumScript_iface.lpVtbl = &IEnumScript_vtbl;
|
|
es->ref = 1;
|
|
es->pos = 0;
|
|
/* do not enumerate unicode flavours */
|
|
es->total = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
|
|
es->script_info = HeapAlloc(GetProcessHeap(), 0, sizeof(SCRIPTINFO) * es->total);
|
|
|
|
for (i = 0; i < es->total; i++)
|
|
{
|
|
es->script_info[i].ScriptId = i;
|
|
es->script_info[i].uiCodePage = mlang_data[i].family_codepage;
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].description, -1,
|
|
es->script_info[i].wszDescription, MAX_SCRIPT_NAME);
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].fixed_font, -1,
|
|
es->script_info[i].wszFixedWidthFont, MAX_MIMEFACE_NAME);
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].proportional_font, -1,
|
|
es->script_info[i].wszProportionalFont, MAX_MIMEFACE_NAME);
|
|
}
|
|
|
|
TRACE("enumerated %d scripts with flags %08x\n", es->total, dwFlags);
|
|
|
|
*ppEnumScript = &es->IEnumScript_iface;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
static inline MLang_impl *impl_from_IMLangFontLink( IMLangFontLink *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, MLang_impl, IMLangFontLink_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_QueryInterface(
|
|
IMLangFontLink* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
return MLang_QueryInterface( This, riid, ppvObject );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangFontLink_AddRef(
|
|
IMLangFontLink* iface)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
return MLang_AddRef( This );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangFontLink_Release(
|
|
IMLangFontLink* iface)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
return MLang_Release( This );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_GetCharCodePages(
|
|
IMLangFontLink* iface,
|
|
WCHAR chSrc,
|
|
DWORD* pdwCodePages)
|
|
{
|
|
int i;
|
|
CHAR buf;
|
|
BOOL used_dc;
|
|
DWORD codePages;
|
|
|
|
*pdwCodePages = 0;
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
WideCharToMultiByte(mlang_data[i].family_codepage, WC_NO_BEST_FIT_CHARS,
|
|
&chSrc, 1, &buf, 1, NULL, &used_dc);
|
|
|
|
/* If default char is not used, current codepage include the given symbol */
|
|
if (!used_dc)
|
|
{
|
|
IMLangFontLink_CodePageToCodePages(iface,
|
|
mlang_data[i].family_codepage, &codePages);
|
|
*pdwCodePages |= codePages;
|
|
}
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_GetStrCodePages(
|
|
IMLangFontLink* iface,
|
|
const WCHAR* pszSrc,
|
|
LONG cchSrc,
|
|
DWORD dwPriorityCodePages,
|
|
DWORD* pdwCodePages,
|
|
LONG* pcchCodePages)
|
|
{
|
|
LONG i;
|
|
DWORD cps = 0;
|
|
|
|
TRACE("(%p)->%s %d %x %p %p\n", iface, debugstr_wn(pszSrc, cchSrc), cchSrc, dwPriorityCodePages, pdwCodePages, pcchCodePages);
|
|
|
|
if (pdwCodePages) *pdwCodePages = 0;
|
|
if (pcchCodePages) *pcchCodePages = 0;
|
|
|
|
if (!pszSrc || !cchSrc || cchSrc < 0)
|
|
return E_INVALIDARG;
|
|
|
|
for (i = 0; i < cchSrc; i++)
|
|
{
|
|
DWORD cp;
|
|
HRESULT ret;
|
|
|
|
ret = fnIMLangFontLink_GetCharCodePages(iface, pszSrc[i], &cp);
|
|
if (ret != S_OK) return E_FAIL;
|
|
|
|
if (!cps) cps = cp;
|
|
else cps &= cp;
|
|
|
|
/* FIXME: not tested */
|
|
if (dwPriorityCodePages & cps) break;
|
|
}
|
|
|
|
if (pdwCodePages) *pdwCodePages = cps;
|
|
if (pcchCodePages) *pcchCodePages = min( i + 1, cchSrc );
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_CodePageToCodePages(
|
|
IMLangFontLink* iface,
|
|
UINT uCodePage,
|
|
DWORD* pdwCodePages)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
CHARSETINFO cs;
|
|
BOOL rc;
|
|
|
|
TRACE("(%p) Seeking %u\n",This, uCodePage);
|
|
|
|
rc = TranslateCharsetInfo((DWORD*)(DWORD_PTR)uCodePage, &cs, TCI_SRCCODEPAGE);
|
|
|
|
if (rc)
|
|
{
|
|
*pdwCodePages = cs.fs.fsCsb[0];
|
|
TRACE("resulting CodePages 0x%x\n",*pdwCodePages);
|
|
return S_OK;
|
|
}
|
|
|
|
TRACE("CodePage Not Found\n");
|
|
*pdwCodePages = 0;
|
|
return E_FAIL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_CodePagesToCodePage(
|
|
IMLangFontLink* iface,
|
|
DWORD dwCodePages,
|
|
UINT uDefaultCodePage,
|
|
UINT* puCodePage)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
DWORD mask = 0x00000000;
|
|
UINT i;
|
|
CHARSETINFO cs;
|
|
BOOL rc;
|
|
|
|
TRACE("(%p) scanning 0x%x default page %u\n",This, dwCodePages,
|
|
uDefaultCodePage);
|
|
|
|
*puCodePage = 0x00000000;
|
|
|
|
rc = TranslateCharsetInfo((DWORD*)(DWORD_PTR)uDefaultCodePage, &cs,
|
|
TCI_SRCCODEPAGE);
|
|
|
|
if (rc && (dwCodePages & cs.fs.fsCsb[0]))
|
|
{
|
|
TRACE("Found Default Codepage\n");
|
|
*puCodePage = uDefaultCodePage;
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
for (i = 0; i < 32; i++)
|
|
{
|
|
|
|
mask = 1 << i;
|
|
if (dwCodePages & mask)
|
|
{
|
|
DWORD Csb[2];
|
|
Csb[0] = mask;
|
|
Csb[1] = 0x0;
|
|
rc = TranslateCharsetInfo(Csb, &cs, TCI_SRCFONTSIG);
|
|
if (!rc)
|
|
continue;
|
|
|
|
TRACE("Falling back to least significant found CodePage %u\n",
|
|
cs.ciACP);
|
|
*puCodePage = cs.ciACP;
|
|
return S_OK;
|
|
}
|
|
}
|
|
|
|
TRACE("no codepage found\n");
|
|
return E_FAIL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_GetFontCodePages(
|
|
IMLangFontLink* iface,
|
|
HDC hDC,
|
|
HFONT hFont,
|
|
DWORD* pdwCodePages)
|
|
{
|
|
HFONT old_font;
|
|
FONTSIGNATURE fontsig;
|
|
MLang_impl *This = impl_from_IMLangFontLink( iface );
|
|
|
|
TRACE("(%p)\n",This);
|
|
|
|
old_font = SelectObject(hDC,hFont);
|
|
GetTextCharsetInfo(hDC,&fontsig, 0);
|
|
SelectObject(hDC,old_font);
|
|
|
|
*pdwCodePages = fontsig.fsCsb[0];
|
|
TRACE("CodePages is 0x%x\n",fontsig.fsCsb[0]);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_MapFont(
|
|
IMLangFontLink* iface,
|
|
HDC hDC,
|
|
DWORD dwCodePages,
|
|
HFONT hSrcFont,
|
|
HFONT* phDestFont)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_ReleaseFont(
|
|
IMLangFontLink* iface,
|
|
HFONT hFont)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink_ResetFontMapping(
|
|
IMLangFontLink* iface)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
|
|
static const IMLangFontLinkVtbl IMLangFontLink_vtbl =
|
|
{
|
|
fnIMLangFontLink_QueryInterface,
|
|
fnIMLangFontLink_AddRef,
|
|
fnIMLangFontLink_Release,
|
|
fnIMLangFontLink_GetCharCodePages,
|
|
fnIMLangFontLink_GetStrCodePages,
|
|
fnIMLangFontLink_CodePageToCodePages,
|
|
fnIMLangFontLink_CodePagesToCodePage,
|
|
fnIMLangFontLink_GetFontCodePages,
|
|
fnIMLangFontLink_MapFont,
|
|
fnIMLangFontLink_ReleaseFont,
|
|
fnIMLangFontLink_ResetFontMapping,
|
|
};
|
|
|
|
/******************************************************************************/
|
|
|
|
static inline MLang_impl *impl_from_IMultiLanguage( IMultiLanguage *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, MLang_impl, IMultiLanguage_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_QueryInterface(
|
|
IMultiLanguage* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
return MLang_QueryInterface( This, riid, ppvObject );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMultiLanguage_AddRef( IMultiLanguage* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
return IMLangFontLink_AddRef( &This->IMLangFontLink_iface );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMultiLanguage_Release( IMultiLanguage* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
return IMLangFontLink_Release( &This->IMLangFontLink_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetNumberOfCodePageInfo(
|
|
IMultiLanguage* iface,
|
|
UINT* pcCodePage)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
|
|
TRACE("(%p, %p)\n", This, pcCodePage);
|
|
|
|
if (!pcCodePage) return E_INVALIDARG;
|
|
|
|
*pcCodePage = This->total_cp;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetCodePageInfo(
|
|
IMultiLanguage* iface,
|
|
UINT uiCodePage,
|
|
PMIMECPINFO pCodePageInfo)
|
|
{
|
|
UINT i, n;
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
|
|
TRACE("%p, %u, %p\n", This, uiCodePage, pCodePageInfo);
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
|
|
{
|
|
fill_cp_info(&mlang_data[i], n, pCodePageInfo);
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetFamilyCodePage(
|
|
IMultiLanguage* iface,
|
|
UINT uiCodePage,
|
|
UINT* puiFamilyCodePage)
|
|
{
|
|
return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_EnumCodePages(
|
|
IMultiLanguage* iface,
|
|
DWORD grfFlags,
|
|
IEnumCodePage** ppEnumCodePage)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
|
|
TRACE("%p %08x %p\n", This, grfFlags, ppEnumCodePage);
|
|
|
|
return EnumCodePage_create( This, grfFlags, 0, ppEnumCodePage );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetCharsetInfo(
|
|
IMultiLanguage* iface,
|
|
BSTR Charset,
|
|
PMIMECSETINFO pCharsetInfo)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
return IMultiLanguage3_GetCharsetInfo( &This->IMultiLanguage3_iface, Charset, pCharsetInfo );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_IsConvertible(
|
|
IMultiLanguage* iface,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding)
|
|
{
|
|
return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_ConvertString(
|
|
IMultiLanguage* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding,
|
|
BYTE* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
BYTE* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
|
|
(LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_ConvertStringToUnicode(
|
|
IMultiLanguage* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
CHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
WCHAR* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
|
|
(LPCSTR)pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_ConvertStringFromUnicode(
|
|
IMultiLanguage* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
WCHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
CHAR* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
|
|
pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_ConvertStringReset(
|
|
IMultiLanguage* iface)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetRfc1766FromLcid(
|
|
IMultiLanguage* iface,
|
|
LCID lcid,
|
|
BSTR* pbstrRfc1766)
|
|
{
|
|
WCHAR buf[MAX_RFC1766_NAME];
|
|
|
|
TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
|
|
if (!pbstrRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
if (!lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
|
|
{
|
|
*pbstrRfc1766 = SysAllocString( buf );
|
|
return S_OK;
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetLcidFromRfc1766(
|
|
IMultiLanguage* iface,
|
|
LCID* pLocale,
|
|
BSTR bstrRfc1766)
|
|
{
|
|
HRESULT hr;
|
|
IEnumRfc1766 *rfc1766;
|
|
|
|
TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
|
|
|
|
if (!pLocale || !bstrRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
hr = IMultiLanguage_EnumRfc1766(iface, &rfc1766);
|
|
if (FAILED(hr))
|
|
return hr;
|
|
|
|
hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
|
|
|
|
IEnumRfc1766_Release(rfc1766);
|
|
return hr;
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
typedef struct tagEnumRfc1766_impl
|
|
{
|
|
IEnumRfc1766 IEnumRfc1766_iface;
|
|
LONG ref;
|
|
RFC1766INFO *info;
|
|
DWORD total, pos;
|
|
} EnumRfc1766_impl;
|
|
|
|
static inline EnumRfc1766_impl *impl_from_IEnumRfc1766( IEnumRfc1766 *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, EnumRfc1766_impl, IEnumRfc1766_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumRfc1766_QueryInterface(
|
|
IEnumRfc1766 *iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
|
|
TRACE("%p -> %s\n", This, debugstr_guid(riid) );
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)
|
|
|| IsEqualGUID(riid, &IID_IEnumRfc1766))
|
|
{
|
|
IEnumRfc1766_AddRef(iface);
|
|
TRACE("Returning IID_IEnumRfc1766 %p ref = %d\n", This, This->ref);
|
|
*ppvObject = &This->IEnumRfc1766_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
WARN("(%p) -> (%s,%p), not found\n",This,debugstr_guid(riid),ppvObject);
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumRfc1766_AddRef(
|
|
IEnumRfc1766 *iface)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG WINAPI fnIEnumRfc1766_Release(
|
|
IEnumRfc1766 *iface)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("%p ref = %d\n", This, ref);
|
|
if (ref == 0)
|
|
{
|
|
TRACE("Destroying %p\n", This);
|
|
HeapFree(GetProcessHeap(), 0, This->info);
|
|
HeapFree(GetProcessHeap(), 0, This);
|
|
}
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumRfc1766_Clone(
|
|
IEnumRfc1766 *iface,
|
|
IEnumRfc1766 **ppEnum)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
|
|
FIXME("%p %p\n", This, ppEnum);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumRfc1766_Next(
|
|
IEnumRfc1766 *iface,
|
|
ULONG celt,
|
|
PRFC1766INFO rgelt,
|
|
ULONG *pceltFetched)
|
|
{
|
|
ULONG i;
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
|
|
TRACE("%p %u %p %p\n", This, celt, rgelt, pceltFetched);
|
|
|
|
if (!pceltFetched) return S_FALSE;
|
|
*pceltFetched = 0;
|
|
|
|
if (!rgelt) return S_FALSE;
|
|
|
|
if (This->pos + celt > This->total)
|
|
celt = This->total - This->pos;
|
|
|
|
if (!celt) return S_FALSE;
|
|
|
|
memcpy(rgelt, This->info + This->pos, celt * sizeof(RFC1766INFO));
|
|
*pceltFetched = celt;
|
|
This->pos += celt;
|
|
|
|
for (i = 0; i < celt; i++)
|
|
{
|
|
TRACE("#%u: %08x %s %s\n",
|
|
i, rgelt[i].lcid,
|
|
wine_dbgstr_w(rgelt[i].wszRfc1766),
|
|
wine_dbgstr_w(rgelt[i].wszLocaleName));
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumRfc1766_Reset(
|
|
IEnumRfc1766 *iface)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
|
|
TRACE("%p\n", This);
|
|
|
|
This->pos = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIEnumRfc1766_Skip(
|
|
IEnumRfc1766 *iface,
|
|
ULONG celt)
|
|
{
|
|
EnumRfc1766_impl *This = impl_from_IEnumRfc1766( iface );
|
|
|
|
TRACE("%p %u\n", This, celt);
|
|
|
|
if (celt >= This->total) return S_FALSE;
|
|
|
|
This->pos += celt;
|
|
return S_OK;
|
|
}
|
|
|
|
static const IEnumRfc1766Vtbl IEnumRfc1766_vtbl =
|
|
{
|
|
fnIEnumRfc1766_QueryInterface,
|
|
fnIEnumRfc1766_AddRef,
|
|
fnIEnumRfc1766_Release,
|
|
fnIEnumRfc1766_Clone,
|
|
fnIEnumRfc1766_Next,
|
|
fnIEnumRfc1766_Reset,
|
|
fnIEnumRfc1766_Skip
|
|
};
|
|
|
|
struct enum_locales_data
|
|
{
|
|
RFC1766INFO *info;
|
|
DWORD total, allocated;
|
|
};
|
|
|
|
static BOOL CALLBACK enum_locales_proc(LPWSTR locale)
|
|
{
|
|
WCHAR *end;
|
|
struct enum_locales_data *data = TlsGetValue(MLANG_tls_index);
|
|
RFC1766INFO *info;
|
|
|
|
TRACE("%s\n", debugstr_w(locale));
|
|
|
|
if (data->total >= data->allocated)
|
|
{
|
|
data->allocated += 32;
|
|
data->info = HeapReAlloc(GetProcessHeap(), 0, data->info, data->allocated * sizeof(RFC1766INFO));
|
|
if (!data->info) return FALSE;
|
|
}
|
|
|
|
info = &data->info[data->total];
|
|
|
|
info->lcid = strtolW(locale, &end, 16);
|
|
if (*end) /* invalid number */
|
|
return FALSE;
|
|
|
|
info->wszRfc1766[0] = 0;
|
|
lcid_to_rfc1766W( info->lcid, info->wszRfc1766, MAX_RFC1766_NAME );
|
|
|
|
info->wszLocaleName[0] = 0;
|
|
GetLocaleInfoW(info->lcid, LOCALE_SLANGUAGE, info->wszLocaleName, MAX_LOCALE_NAME);
|
|
TRACE("ISO639: %s SLANGUAGE: %s\n", wine_dbgstr_w(info->wszRfc1766), wine_dbgstr_w(info->wszLocaleName));
|
|
|
|
data->total++;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static HRESULT EnumRfc1766_create(LANGID LangId, IEnumRfc1766 **ppEnum)
|
|
{
|
|
EnumRfc1766_impl *rfc;
|
|
struct enum_locales_data data;
|
|
|
|
TRACE("%04x, %p\n", LangId, ppEnum);
|
|
|
|
rfc = HeapAlloc( GetProcessHeap(), 0, sizeof(EnumRfc1766_impl) );
|
|
rfc->IEnumRfc1766_iface.lpVtbl = &IEnumRfc1766_vtbl;
|
|
rfc->ref = 1;
|
|
rfc->pos = 0;
|
|
rfc->total = 0;
|
|
|
|
data.total = 0;
|
|
data.allocated = 160;
|
|
data.info = HeapAlloc(GetProcessHeap(), 0, data.allocated * sizeof(RFC1766INFO));
|
|
if (!data.info)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, rfc);
|
|
return E_OUTOFMEMORY;
|
|
}
|
|
|
|
TlsSetValue(MLANG_tls_index, &data);
|
|
EnumSystemLocalesW(enum_locales_proc, 0/*LOCALE_SUPPORTED*/);
|
|
TlsSetValue(MLANG_tls_index, NULL);
|
|
|
|
TRACE("enumerated %d rfc1766 structures\n", data.total);
|
|
|
|
if (!data.total)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, data.info);
|
|
HeapFree(GetProcessHeap(), 0, rfc);
|
|
return E_FAIL;
|
|
}
|
|
|
|
rfc->info = data.info;
|
|
rfc->total = data.total;
|
|
|
|
*ppEnum = &rfc->IEnumRfc1766_iface;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_EnumRfc1766(
|
|
IMultiLanguage *iface,
|
|
IEnumRfc1766 **ppEnumRfc1766)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage( iface );
|
|
|
|
TRACE("%p %p\n", This, ppEnumRfc1766);
|
|
|
|
return EnumRfc1766_create(0, ppEnumRfc1766);
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_GetRfc1766Info(
|
|
IMultiLanguage* iface,
|
|
LCID Locale,
|
|
PRFC1766INFO pRfc1766Info)
|
|
{
|
|
LCTYPE type = LOCALE_SLANGUAGE;
|
|
|
|
TRACE("(%p, 0x%04x, %p)\n", iface, Locale, pRfc1766Info);
|
|
|
|
if (!pRfc1766Info)
|
|
return E_INVALIDARG;
|
|
|
|
if ((PRIMARYLANGID(Locale) == LANG_ENGLISH) ||
|
|
(PRIMARYLANGID(Locale) == LANG_CHINESE) ||
|
|
(PRIMARYLANGID(Locale) == LANG_ARABIC)) {
|
|
|
|
if (!SUBLANGID(Locale))
|
|
type = LOCALE_SENGLANGUAGE; /* suppress country */
|
|
}
|
|
else
|
|
{
|
|
if (!SUBLANGID(Locale)) {
|
|
TRACE("SUBLANGID missing in 0x%04x\n", Locale);
|
|
return E_FAIL;
|
|
}
|
|
}
|
|
|
|
pRfc1766Info->lcid = Locale;
|
|
pRfc1766Info->wszRfc1766[0] = 0;
|
|
pRfc1766Info->wszLocaleName[0] = 0;
|
|
|
|
if ((!lcid_to_rfc1766W(Locale, pRfc1766Info->wszRfc1766, MAX_RFC1766_NAME)) &&
|
|
(GetLocaleInfoW(Locale, type, pRfc1766Info->wszLocaleName, MAX_LOCALE_NAME) > 0))
|
|
return S_OK;
|
|
|
|
/* Locale not supported */
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage_CreateConvertCharset(
|
|
IMultiLanguage* iface,
|
|
UINT uiSrcCodePage,
|
|
UINT uiDstCodePage,
|
|
DWORD dwProperty,
|
|
IMLangConvertCharset** ppMLangConvertCharset)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static const IMultiLanguageVtbl IMultiLanguage_vtbl =
|
|
{
|
|
fnIMultiLanguage_QueryInterface,
|
|
fnIMultiLanguage_AddRef,
|
|
fnIMultiLanguage_Release,
|
|
fnIMultiLanguage_GetNumberOfCodePageInfo,
|
|
fnIMultiLanguage_GetCodePageInfo,
|
|
fnIMultiLanguage_GetFamilyCodePage,
|
|
fnIMultiLanguage_EnumCodePages,
|
|
fnIMultiLanguage_GetCharsetInfo,
|
|
fnIMultiLanguage_IsConvertible,
|
|
fnIMultiLanguage_ConvertString,
|
|
fnIMultiLanguage_ConvertStringToUnicode,
|
|
fnIMultiLanguage_ConvertStringFromUnicode,
|
|
fnIMultiLanguage_ConvertStringReset,
|
|
fnIMultiLanguage_GetRfc1766FromLcid,
|
|
fnIMultiLanguage_GetLcidFromRfc1766,
|
|
fnIMultiLanguage_EnumRfc1766,
|
|
fnIMultiLanguage_GetRfc1766Info,
|
|
fnIMultiLanguage_CreateConvertCharset,
|
|
};
|
|
|
|
|
|
/******************************************************************************/
|
|
|
|
static inline MLang_impl *impl_from_IMultiLanguage3( IMultiLanguage3 *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, MLang_impl, IMultiLanguage3_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_QueryInterface(
|
|
IMultiLanguage3* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
return MLang_QueryInterface( This, riid, ppvObject );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMultiLanguage2_AddRef( IMultiLanguage3* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
return MLang_AddRef( This );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMultiLanguage2_Release( IMultiLanguage3* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
return MLang_Release( This );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfCodePageInfo(
|
|
IMultiLanguage3* iface,
|
|
UINT* pcCodePage)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p, %p\n", This, pcCodePage);
|
|
|
|
if (!pcCodePage) return E_INVALIDARG;
|
|
|
|
*pcCodePage = This->total_cp;
|
|
return S_OK;
|
|
}
|
|
|
|
static void fill_cp_info(const struct mlang_data *ml_data, UINT index, MIMECPINFO *mime_cp_info)
|
|
{
|
|
CHARSETINFO csi;
|
|
|
|
if (TranslateCharsetInfo((DWORD*)(DWORD_PTR)ml_data->family_codepage, &csi,
|
|
TCI_SRCCODEPAGE))
|
|
mime_cp_info->bGDICharset = csi.ciCharset;
|
|
else
|
|
mime_cp_info->bGDICharset = DEFAULT_CHARSET;
|
|
|
|
mime_cp_info->dwFlags = ml_data->mime_cp_info[index].flags;
|
|
mime_cp_info->uiCodePage = ml_data->mime_cp_info[index].cp;
|
|
mime_cp_info->uiFamilyCodePage = ml_data->family_codepage;
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].description, -1,
|
|
mime_cp_info->wszDescription, sizeof(mime_cp_info->wszDescription)/sizeof(WCHAR));
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].web_charset, -1,
|
|
mime_cp_info->wszWebCharset, sizeof(mime_cp_info->wszWebCharset)/sizeof(WCHAR));
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].header_charset, -1,
|
|
mime_cp_info->wszHeaderCharset, sizeof(mime_cp_info->wszHeaderCharset)/sizeof(WCHAR));
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->mime_cp_info[index].body_charset, -1,
|
|
mime_cp_info->wszBodyCharset, sizeof(mime_cp_info->wszBodyCharset)/sizeof(WCHAR));
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->fixed_font, -1,
|
|
mime_cp_info->wszFixedWidthFont, sizeof(mime_cp_info->wszFixedWidthFont)/sizeof(WCHAR));
|
|
MultiByteToWideChar(CP_ACP, 0, ml_data->proportional_font, -1,
|
|
mime_cp_info->wszProportionalFont, sizeof(mime_cp_info->wszProportionalFont)/sizeof(WCHAR));
|
|
|
|
TRACE("%08x %u %u %s %s %s %s %s %s %d\n",
|
|
mime_cp_info->dwFlags, mime_cp_info->uiCodePage,
|
|
mime_cp_info->uiFamilyCodePage,
|
|
wine_dbgstr_w(mime_cp_info->wszDescription),
|
|
wine_dbgstr_w(mime_cp_info->wszWebCharset),
|
|
wine_dbgstr_w(mime_cp_info->wszHeaderCharset),
|
|
wine_dbgstr_w(mime_cp_info->wszBodyCharset),
|
|
wine_dbgstr_w(mime_cp_info->wszFixedWidthFont),
|
|
wine_dbgstr_w(mime_cp_info->wszProportionalFont),
|
|
mime_cp_info->bGDICharset);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetCodePageInfo(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage,
|
|
LANGID LangId,
|
|
PMIMECPINFO pCodePageInfo)
|
|
{
|
|
UINT i, n;
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p, %u, %04x, %p\n", This, uiCodePage, LangId, pCodePageInfo);
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
|
|
{
|
|
fill_cp_info(&mlang_data[i], n, pCodePageInfo);
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetFamilyCodePage(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage,
|
|
UINT* puiFamilyCodePage)
|
|
{
|
|
return GetFamilyCodePage(uiCodePage, puiFamilyCodePage);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_EnumCodePages(
|
|
IMultiLanguage3* iface,
|
|
DWORD grfFlags,
|
|
LANGID LangId,
|
|
IEnumCodePage** ppEnumCodePage)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %08x %04x %p\n", This, grfFlags, LangId, ppEnumCodePage);
|
|
|
|
return EnumCodePage_create( This, grfFlags, LangId, ppEnumCodePage );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetCharsetInfo(
|
|
IMultiLanguage3* iface,
|
|
BSTR Charset,
|
|
PMIMECSETINFO pCharsetInfo)
|
|
{
|
|
UINT i, n;
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %s %p\n", This, debugstr_w(Charset), pCharsetInfo);
|
|
|
|
if (!pCharsetInfo) return E_FAIL;
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
WCHAR csetW[MAX_MIMECSET_NAME];
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].web_charset, -1, csetW, MAX_MIMECSET_NAME);
|
|
if (!lstrcmpiW(Charset, csetW))
|
|
{
|
|
pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
|
|
pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
|
|
strcpyW(pCharsetInfo->wszCharset, csetW);
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* FIXME:
|
|
* Since we do not support charsets like iso-2022-jp and do not have
|
|
* them in our database as a primary (web_charset) encoding this loop
|
|
* does an attempt to 'approximate' charset name by header_charset.
|
|
*/
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
WCHAR csetW[MAX_MIMECSET_NAME];
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].mime_cp_info[n].header_charset, -1, csetW, MAX_MIMECSET_NAME);
|
|
if (!lstrcmpiW(Charset, csetW))
|
|
{
|
|
pCharsetInfo->uiCodePage = mlang_data[i].family_codepage;
|
|
pCharsetInfo->uiInternetEncoding = mlang_data[i].mime_cp_info[n].cp;
|
|
strcpyW(pCharsetInfo->wszCharset, csetW);
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
return E_FAIL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_IsConvertible(
|
|
IMultiLanguage3* iface,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding)
|
|
{
|
|
return IsConvertINetStringAvailable(dwSrcEncoding, dwDstEncoding);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertString(
|
|
IMultiLanguage3* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding,
|
|
BYTE* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
BYTE* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding,
|
|
(LPCSTR)pSrcStr, (LPINT)pcSrcSize, (LPSTR)pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicode(
|
|
IMultiLanguage3* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
CHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
WCHAR* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
|
|
pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicode(
|
|
IMultiLanguage3* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
WCHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
CHAR* pDstStr,
|
|
UINT* pcDstSize)
|
|
{
|
|
return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
|
|
pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringReset(
|
|
IMultiLanguage3* iface)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766FromLcid(
|
|
IMultiLanguage3* iface,
|
|
LCID lcid,
|
|
BSTR* pbstrRfc1766)
|
|
{
|
|
WCHAR buf[MAX_RFC1766_NAME];
|
|
|
|
TRACE("%p %04x %p\n", iface, lcid, pbstrRfc1766);
|
|
if (!pbstrRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
if (!lcid_to_rfc1766W( lcid, buf, MAX_RFC1766_NAME ))
|
|
{
|
|
*pbstrRfc1766 = SysAllocString( buf );
|
|
return S_OK;
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetLcidFromRfc1766(
|
|
IMultiLanguage3* iface,
|
|
LCID* pLocale,
|
|
BSTR bstrRfc1766)
|
|
{
|
|
HRESULT hr;
|
|
IEnumRfc1766 *rfc1766;
|
|
|
|
TRACE("%p %p %s\n", iface, pLocale, debugstr_w(bstrRfc1766));
|
|
|
|
if (!pLocale || !bstrRfc1766)
|
|
return E_INVALIDARG;
|
|
|
|
hr = IMultiLanguage2_EnumRfc1766(iface, 0, &rfc1766);
|
|
if (FAILED(hr))
|
|
return hr;
|
|
|
|
hr = lcid_from_rfc1766(rfc1766, pLocale, bstrRfc1766);
|
|
|
|
IEnumRfc1766_Release(rfc1766);
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_EnumRfc1766(
|
|
IMultiLanguage3* iface,
|
|
LANGID LangId,
|
|
IEnumRfc1766** ppEnumRfc1766)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %p\n", This, ppEnumRfc1766);
|
|
|
|
return EnumRfc1766_create(LangId, ppEnumRfc1766);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetRfc1766Info(
|
|
IMultiLanguage3* iface,
|
|
LCID Locale,
|
|
LANGID LangId,
|
|
PRFC1766INFO pRfc1766Info)
|
|
{
|
|
static LANGID last_lang = -1;
|
|
LCTYPE type = LOCALE_SLANGUAGE;
|
|
|
|
TRACE("(%p, 0x%04x, 0x%04x, %p)\n", iface, Locale, LangId, pRfc1766Info);
|
|
|
|
if (!pRfc1766Info)
|
|
return E_INVALIDARG;
|
|
|
|
if ((PRIMARYLANGID(Locale) == LANG_ENGLISH) ||
|
|
(PRIMARYLANGID(Locale) == LANG_CHINESE) ||
|
|
(PRIMARYLANGID(Locale) == LANG_ARABIC)) {
|
|
|
|
if (!SUBLANGID(Locale))
|
|
type = LOCALE_SENGLANGUAGE; /* suppress country */
|
|
}
|
|
else
|
|
{
|
|
if (!SUBLANGID(Locale)) {
|
|
TRACE("SUBLANGID missing in 0x%04x\n", Locale);
|
|
return E_FAIL;
|
|
}
|
|
}
|
|
|
|
pRfc1766Info->lcid = Locale;
|
|
pRfc1766Info->wszRfc1766[0] = 0;
|
|
pRfc1766Info->wszLocaleName[0] = 0;
|
|
|
|
if ((PRIMARYLANGID(LangId) != LANG_ENGLISH) &&
|
|
(last_lang != LangId)) {
|
|
FIXME("Only English names supported (requested: 0x%04x)\n", LangId);
|
|
last_lang = LangId;
|
|
}
|
|
|
|
if ((!lcid_to_rfc1766W(Locale, pRfc1766Info->wszRfc1766, MAX_RFC1766_NAME)) &&
|
|
(GetLocaleInfoW(Locale, type, pRfc1766Info->wszLocaleName, MAX_LOCALE_NAME) > 0))
|
|
return S_OK;
|
|
|
|
/* Locale not supported */
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_CreateConvertCharset(
|
|
IMultiLanguage3* iface,
|
|
UINT uiSrcCodePage,
|
|
UINT uiDstCodePage,
|
|
DWORD dwProperty,
|
|
IMLangConvertCharset** ppMLangConvertCharset)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringInIStream(
|
|
IMultiLanguage3* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwFlag,
|
|
WCHAR* lpFallBack,
|
|
DWORD dwSrcEncoding,
|
|
DWORD dwDstEncoding,
|
|
IStream* pstmIn,
|
|
IStream* pstmOut)
|
|
{
|
|
char *src, *dst = NULL;
|
|
INT srclen, dstlen;
|
|
STATSTG stat;
|
|
HRESULT hr;
|
|
|
|
TRACE("%p %0x8 %s %u %u %p %p\n",
|
|
pdwMode, dwFlag, debugstr_w(lpFallBack), dwSrcEncoding, dwDstEncoding, pstmIn, pstmOut);
|
|
|
|
FIXME("dwFlag and lpFallBack not handled\n");
|
|
|
|
hr = IStream_Stat(pstmIn, &stat, STATFLAG_NONAME);
|
|
if (FAILED(hr)) return hr;
|
|
|
|
if (stat.cbSize.QuadPart > MAXLONG) return E_INVALIDARG;
|
|
if (!(src = HeapAlloc(GetProcessHeap(), 0, stat.cbSize.QuadPart))) return E_OUTOFMEMORY;
|
|
|
|
hr = IStream_Read(pstmIn, src, stat.cbSize.QuadPart, (ULONG *)&srclen);
|
|
if (FAILED(hr)) goto exit;
|
|
|
|
hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, NULL, &dstlen);
|
|
if (FAILED(hr)) goto exit;
|
|
|
|
if (!(dst = HeapAlloc(GetProcessHeap(), 0, dstlen)))
|
|
{
|
|
hr = E_OUTOFMEMORY;
|
|
goto exit;
|
|
}
|
|
hr = ConvertINetString(pdwMode, dwSrcEncoding, dwDstEncoding, src, &srclen, dst, &dstlen);
|
|
if (FAILED(hr)) goto exit;
|
|
|
|
hr = IStream_Write(pstmOut, dst, dstlen, NULL);
|
|
|
|
exit:
|
|
HeapFree(GetProcessHeap(), 0, src);
|
|
HeapFree(GetProcessHeap(), 0, dst);
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringToUnicodeEx(
|
|
IMultiLanguage3* iface,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
CHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
WCHAR* pDstStr,
|
|
UINT* pcDstSize,
|
|
DWORD dwFlag,
|
|
WCHAR* lpFallBack)
|
|
{
|
|
if (dwFlag || lpFallBack)
|
|
FIXME("Ignoring dwFlag (0x%x/%d) and lpFallBack (%p)\n",
|
|
dwFlag, dwFlag, lpFallBack);
|
|
|
|
return ConvertINetMultiByteToUnicode(pdwMode, dwEncoding,
|
|
pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* MultiLanguage2::ConvertStringToUnicodeEx
|
|
*
|
|
* Translates the multibyte string from the specified code page to Unicode.
|
|
*
|
|
* PARAMS
|
|
* see ConvertStringToUnicode
|
|
* dwFlag
|
|
* lpFallBack if dwFlag contains MLCONVCHARF_USEDEFCHAR, lpFallBack string used
|
|
* instead unconvertible characters.
|
|
*
|
|
* RETURNS
|
|
* S_OK Success.
|
|
* S_FALSE The conversion is not supported.
|
|
* E_FAIL Some error has occurred.
|
|
*
|
|
* TODO: handle dwFlag and lpFallBack
|
|
*/
|
|
static HRESULT WINAPI fnIMultiLanguage2_ConvertStringFromUnicodeEx(
|
|
IMultiLanguage3* This,
|
|
DWORD* pdwMode,
|
|
DWORD dwEncoding,
|
|
WCHAR* pSrcStr,
|
|
UINT* pcSrcSize,
|
|
CHAR* pDstStr,
|
|
UINT* pcDstSize,
|
|
DWORD dwFlag,
|
|
WCHAR* lpFallBack)
|
|
{
|
|
FIXME("\n");
|
|
return ConvertINetUnicodeToMultiByte(pdwMode, dwEncoding,
|
|
pSrcStr, (LPINT)pcSrcSize, pDstStr, (LPINT)pcDstSize);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_DetectCodepageInIStream(
|
|
IMultiLanguage3* iface,
|
|
DWORD dwFlag,
|
|
DWORD dwPrefWinCodePage,
|
|
IStream* pstmIn,
|
|
DetectEncodingInfo* lpEncoding,
|
|
INT* pnScores)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_DetectInputCodepage(
|
|
IMultiLanguage3* iface,
|
|
DWORD dwFlag,
|
|
DWORD dwPrefWinCodePage,
|
|
CHAR* pSrcStr,
|
|
INT* pcSrcSize,
|
|
DetectEncodingInfo* lpEncoding,
|
|
INT* pnScores)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePage(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage,
|
|
HWND hwnd)
|
|
{
|
|
return IMultiLanguage2_ValidateCodePageEx(iface,uiCodePage,hwnd,0);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetCodePageDescription(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage,
|
|
LCID lcid,
|
|
LPWSTR lpWideCharStr,
|
|
int cchWideChar)
|
|
{
|
|
/* Find first instance */
|
|
unsigned int i,n;
|
|
|
|
TRACE ("%u, %04x, %p, %d\n", uiCodePage, lcid, lpWideCharStr, cchWideChar);
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
|
|
{
|
|
MultiByteToWideChar(CP_ACP, 0,
|
|
mlang_data[i].mime_cp_info[n].description,
|
|
-1, lpWideCharStr, cchWideChar);
|
|
return S_OK;
|
|
}
|
|
}
|
|
}
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_IsCodePageInstallable(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage)
|
|
{
|
|
TRACE("%u\n", uiCodePage);
|
|
|
|
/* FIXME: the installable set is usually larger than the set of valid codepages */
|
|
return IMultiLanguage2_ValidateCodePageEx(iface, uiCodePage, NULL, CPIOD_PEEK);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_SetMimeDBSource(
|
|
IMultiLanguage3* iface,
|
|
MIMECONTF dwSource)
|
|
{
|
|
FIXME("0x%08x\n", dwSource);
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_GetNumberOfScripts(
|
|
IMultiLanguage3* iface,
|
|
UINT* pnScripts)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %p\n", This, pnScripts);
|
|
|
|
if (!pnScripts) return S_FALSE;
|
|
|
|
*pnScripts = This->total_scripts;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_EnumScripts(
|
|
IMultiLanguage3* iface,
|
|
DWORD dwFlags,
|
|
LANGID LangId,
|
|
IEnumScript** ppEnumScript)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %08x %04x %p\n", This, dwFlags, LangId, ppEnumScript);
|
|
|
|
return EnumScript_create( This, dwFlags, LangId, ppEnumScript );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage2_ValidateCodePageEx(
|
|
IMultiLanguage3* iface,
|
|
UINT uiCodePage,
|
|
HWND hwnd,
|
|
DWORD dwfIODControl)
|
|
{
|
|
int i;
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
TRACE("%p %u %p %08x\n", This, uiCodePage, hwnd, dwfIODControl);
|
|
|
|
/* quick check for kernel32 supported code pages */
|
|
if (IsValidCodePage(uiCodePage))
|
|
return S_OK;
|
|
|
|
/* check for mlang supported code pages */
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
int n;
|
|
for (n = 0; n < mlang_data[i].number_of_cp; n++)
|
|
{
|
|
if (mlang_data[i].mime_cp_info[n].cp == uiCodePage)
|
|
return S_OK;
|
|
}
|
|
}
|
|
|
|
if (dwfIODControl != CPIOD_PEEK)
|
|
FIXME("Request to install codepage language pack not handled\n");
|
|
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePage(
|
|
IMultiLanguage3 *iface,
|
|
DWORD dwFlags,
|
|
LPCWSTR lpWideCharStr,
|
|
UINT cchWideChar,
|
|
UINT *puiPreferredCodePages,
|
|
UINT nPreferredCodePages,
|
|
UINT *puiDetectedCodePages,
|
|
UINT *pnDetectedCodePages,
|
|
WCHAR *lpSpecialChar)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
FIXME("(%p)->(%08x %s %u %p %u %p %p %p)\n", This, dwFlags, debugstr_w(lpWideCharStr),
|
|
cchWideChar, puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
|
|
pnDetectedCodePages, lpSpecialChar);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMultiLanguage3_DetectOutboundCodePageInIStream(
|
|
IMultiLanguage3 *iface,
|
|
DWORD dwFlags,
|
|
IStream *pStrIn,
|
|
UINT *puiPreferredCodePages,
|
|
UINT nPreferredCodePages,
|
|
UINT *puiDetectedCodePages,
|
|
UINT *pnDetectedCodePages,
|
|
WCHAR *lpSpecialChar)
|
|
{
|
|
MLang_impl *This = impl_from_IMultiLanguage3( iface );
|
|
|
|
FIXME("(%p)->(%08x %p %p %u %p %p %p)\n", This, dwFlags, pStrIn,
|
|
puiPreferredCodePages, nPreferredCodePages, puiDetectedCodePages,
|
|
pnDetectedCodePages, lpSpecialChar);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static const IMultiLanguage3Vtbl IMultiLanguage3_vtbl =
|
|
{
|
|
fnIMultiLanguage2_QueryInterface,
|
|
fnIMultiLanguage2_AddRef,
|
|
fnIMultiLanguage2_Release,
|
|
fnIMultiLanguage2_GetNumberOfCodePageInfo,
|
|
fnIMultiLanguage2_GetCodePageInfo,
|
|
fnIMultiLanguage2_GetFamilyCodePage,
|
|
fnIMultiLanguage2_EnumCodePages,
|
|
fnIMultiLanguage2_GetCharsetInfo,
|
|
fnIMultiLanguage2_IsConvertible,
|
|
fnIMultiLanguage2_ConvertString,
|
|
fnIMultiLanguage2_ConvertStringToUnicode,
|
|
fnIMultiLanguage2_ConvertStringFromUnicode,
|
|
fnIMultiLanguage2_ConvertStringReset,
|
|
fnIMultiLanguage2_GetRfc1766FromLcid,
|
|
fnIMultiLanguage2_GetLcidFromRfc1766,
|
|
fnIMultiLanguage2_EnumRfc1766,
|
|
fnIMultiLanguage2_GetRfc1766Info,
|
|
fnIMultiLanguage2_CreateConvertCharset,
|
|
fnIMultiLanguage2_ConvertStringInIStream,
|
|
fnIMultiLanguage2_ConvertStringToUnicodeEx,
|
|
fnIMultiLanguage2_ConvertStringFromUnicodeEx,
|
|
fnIMultiLanguage2_DetectCodepageInIStream,
|
|
fnIMultiLanguage2_DetectInputCodepage,
|
|
fnIMultiLanguage2_ValidateCodePage,
|
|
fnIMultiLanguage2_GetCodePageDescription,
|
|
fnIMultiLanguage2_IsCodePageInstallable,
|
|
fnIMultiLanguage2_SetMimeDBSource,
|
|
fnIMultiLanguage2_GetNumberOfScripts,
|
|
fnIMultiLanguage2_EnumScripts,
|
|
fnIMultiLanguage2_ValidateCodePageEx,
|
|
fnIMultiLanguage3_DetectOutboundCodePage,
|
|
fnIMultiLanguage3_DetectOutboundCodePageInIStream
|
|
};
|
|
|
|
/******************************************************************************/
|
|
|
|
static inline MLang_impl *impl_from_IMLangFontLink2( IMLangFontLink2 *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, MLang_impl, IMLangFontLink2_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_QueryInterface(
|
|
IMLangFontLink2 * iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink2( iface );
|
|
return MLang_QueryInterface( This, riid, ppvObject );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangFontLink2_AddRef( IMLangFontLink2* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink2( iface );
|
|
return MLang_AddRef( This );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangFontLink2_Release( IMLangFontLink2* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMLangFontLink2( iface );
|
|
return MLang_Release( This );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_GetCharCodePages( IMLangFontLink2* This,
|
|
WCHAR chSrc, DWORD *pdwCodePages)
|
|
{
|
|
FIXME("(%p)->%s %p\n",This, debugstr_wn(&chSrc,1),pdwCodePages);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_GetStrCodePages( IMLangFontLink2* This,
|
|
const WCHAR *pszSrc, LONG cchSrc, DWORD dwPriorityCodePages,
|
|
DWORD *pdwCodePages, LONG *pcchCodePages)
|
|
{
|
|
return fnIMLangFontLink_GetStrCodePages((IMLangFontLink *)This,
|
|
pszSrc, cchSrc, dwPriorityCodePages, pdwCodePages, pcchCodePages);
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_CodePageToCodePages(IMLangFontLink2* This,
|
|
UINT uCodePage,
|
|
DWORD *pdwCodePages)
|
|
{
|
|
FIXME("(%p)->%i %p\n",This, uCodePage, pdwCodePages);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_CodePagesToCodePage(IMLangFontLink2* This,
|
|
DWORD dwCodePages, UINT uDefaultCodePage, UINT *puCodePage)
|
|
{
|
|
FIXME("(%p)->%i %i %p\n",This, dwCodePages, uDefaultCodePage, puCodePage);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_GetFontCodePages(IMLangFontLink2* This,
|
|
HDC hDC, HFONT hFont, DWORD *pdwCodePages)
|
|
{
|
|
FIXME("(%p)->%p %p %p\n",This, hDC, hFont, pdwCodePages);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_ReleaseFont(IMLangFontLink2* This,
|
|
HFONT hFont)
|
|
{
|
|
FIXME("(%p)->%p\n",This, hFont);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_ResetFontMapping(IMLangFontLink2* This)
|
|
{
|
|
FIXME("(%p)->\n",This);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_MapFont(IMLangFontLink2* This,
|
|
HDC hDC, DWORD dwCodePages, WCHAR chSrc, HFONT *pFont)
|
|
{
|
|
FIXME("(%p)->%p %i %s %p\n",This, hDC, dwCodePages, debugstr_wn(&chSrc,1), pFont);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_GetFontUnicodeRanges(IMLangFontLink2* This,
|
|
HDC hDC, UINT *puiRanges, UNICODERANGE *pUranges)
|
|
{
|
|
DWORD size;
|
|
GLYPHSET *gs;
|
|
|
|
TRACE("(%p)->%p %p %p\n", This, hDC, puiRanges, pUranges);
|
|
|
|
if (!puiRanges) return E_INVALIDARG;
|
|
if (!(size = GetFontUnicodeRanges(hDC, NULL))) return E_FAIL;
|
|
if (!(gs = HeapAlloc(GetProcessHeap(), 0, size))) return E_OUTOFMEMORY;
|
|
|
|
GetFontUnicodeRanges(hDC, gs);
|
|
*puiRanges = gs->cRanges;
|
|
if (pUranges)
|
|
{
|
|
UINT i;
|
|
for (i = 0; i < gs->cRanges; i++)
|
|
{
|
|
if (i >= *puiRanges) break;
|
|
pUranges[i].wcFrom = gs->ranges[i].wcLow;
|
|
pUranges[i].wcTo = gs->ranges[i].wcLow + gs->ranges[i].cGlyphs;
|
|
}
|
|
*puiRanges = i;
|
|
}
|
|
HeapFree(GetProcessHeap(), 0, gs);
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_GetScriptFontInfo(IMLangFontLink2* This,
|
|
SCRIPT_ID sid, DWORD dwFlags, UINT *puiFonts,
|
|
SCRIPTFONTINFO *pScriptFont)
|
|
{
|
|
UINT i, j;
|
|
|
|
TRACE("(%p)->%u %x %p %p\n", This, sid, dwFlags, puiFonts, pScriptFont);
|
|
|
|
if (!dwFlags) dwFlags = SCRIPTCONTF_PROPORTIONAL_FONT;
|
|
|
|
for (i = 0, j = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
if (sid == mlang_data[i].sid)
|
|
{
|
|
if (pScriptFont)
|
|
{
|
|
if (j >= *puiFonts) break;
|
|
|
|
pScriptFont[j].scripts = 1 << mlang_data[i].sid;
|
|
if (dwFlags == SCRIPTCONTF_FIXED_FONT)
|
|
{
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].fixed_font, -1,
|
|
pScriptFont[j].wszFont, MAX_MIMEFACE_NAME);
|
|
}
|
|
else if (dwFlags == SCRIPTCONTF_PROPORTIONAL_FONT)
|
|
{
|
|
MultiByteToWideChar(CP_ACP, 0, mlang_data[i].proportional_font, -1,
|
|
pScriptFont[j].wszFont, MAX_MIMEFACE_NAME);
|
|
}
|
|
}
|
|
j++;
|
|
}
|
|
}
|
|
*puiFonts = j;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangFontLink2_CodePageToScriptID(IMLangFontLink2* This,
|
|
UINT uiCodePage, SCRIPT_ID *pSid)
|
|
{
|
|
UINT i;
|
|
|
|
TRACE("(%p)->%i %p\n", This, uiCodePage, pSid);
|
|
|
|
if (uiCodePage == CP_UNICODE) return E_FAIL;
|
|
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
{
|
|
if (uiCodePage == mlang_data[i].family_codepage)
|
|
{
|
|
if (pSid) *pSid = mlang_data[i].sid;
|
|
return S_OK;
|
|
}
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
static const IMLangFontLink2Vtbl IMLangFontLink2_vtbl =
|
|
{
|
|
fnIMLangFontLink2_QueryInterface,
|
|
fnIMLangFontLink2_AddRef,
|
|
fnIMLangFontLink2_Release,
|
|
fnIMLangFontLink2_GetCharCodePages,
|
|
fnIMLangFontLink2_GetStrCodePages,
|
|
fnIMLangFontLink2_CodePageToCodePages,
|
|
fnIMLangFontLink2_CodePagesToCodePage,
|
|
fnIMLangFontLink2_GetFontCodePages,
|
|
fnIMLangFontLink2_ReleaseFont,
|
|
fnIMLangFontLink2_ResetFontMapping,
|
|
fnIMLangFontLink2_MapFont,
|
|
fnIMLangFontLink2_GetFontUnicodeRanges,
|
|
fnIMLangFontLink2_GetScriptFontInfo,
|
|
fnIMLangFontLink2_CodePageToScriptID
|
|
};
|
|
|
|
/******************************************************************************/
|
|
|
|
static inline MLang_impl *impl_from_IMLangLineBreakConsole( IMLangLineBreakConsole *iface )
|
|
{
|
|
return CONTAINING_RECORD( iface, MLang_impl, IMLangLineBreakConsole_iface );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangLineBreakConsole_QueryInterface(
|
|
IMLangLineBreakConsole* iface,
|
|
REFIID riid,
|
|
void** ppvObject)
|
|
{
|
|
MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
|
|
return MLang_QueryInterface( This, riid, ppvObject );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangLineBreakConsole_AddRef(
|
|
IMLangLineBreakConsole* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
|
|
return MLang_AddRef( This );
|
|
}
|
|
|
|
static ULONG WINAPI fnIMLangLineBreakConsole_Release(
|
|
IMLangLineBreakConsole* iface )
|
|
{
|
|
MLang_impl *This = impl_from_IMLangLineBreakConsole( iface );
|
|
return MLang_Release( This );
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineML(
|
|
IMLangLineBreakConsole* iface,
|
|
IMLangString* pSrcMLStr,
|
|
LONG lSrcPos,
|
|
LONG lSrcLen,
|
|
LONG cMinColumns,
|
|
LONG cMaxColumns,
|
|
LONG* plLineLen,
|
|
LONG* plSkipLen)
|
|
{
|
|
FIXME("(%p)->%p %i %i %i %i %p %p\n", iface, pSrcMLStr, lSrcPos, lSrcLen, cMinColumns, cMaxColumns, plLineLen, plSkipLen);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineW(
|
|
IMLangLineBreakConsole* iface,
|
|
LCID locale,
|
|
const WCHAR* pszSrc,
|
|
LONG cchSrc,
|
|
LONG cMaxColumns,
|
|
LONG* pcchLine,
|
|
LONG* pcchSkip )
|
|
{
|
|
FIXME("(%p)->%i %s %i %i %p %p\n", iface, locale, debugstr_wn(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
|
|
|
|
*pcchLine = cchSrc;
|
|
*pcchSkip = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI fnIMLangLineBreakConsole_BreakLineA(
|
|
IMLangLineBreakConsole* iface,
|
|
LCID locale,
|
|
UINT uCodePage,
|
|
const CHAR* pszSrc,
|
|
LONG cchSrc,
|
|
LONG cMaxColumns,
|
|
LONG* pcchLine,
|
|
LONG* pcchSkip)
|
|
{
|
|
FIXME("(%p)->%i %i %s %i %i %p %p\n", iface, locale, uCodePage, debugstr_an(pszSrc,cchSrc), cchSrc, cMaxColumns, pcchLine, pcchSkip);
|
|
|
|
*pcchLine = cchSrc;
|
|
*pcchSkip = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static const IMLangLineBreakConsoleVtbl IMLangLineBreakConsole_vtbl =
|
|
{
|
|
fnIMLangLineBreakConsole_QueryInterface,
|
|
fnIMLangLineBreakConsole_AddRef,
|
|
fnIMLangLineBreakConsole_Release,
|
|
fnIMLangLineBreakConsole_BreakLineML,
|
|
fnIMLangLineBreakConsole_BreakLineW,
|
|
fnIMLangLineBreakConsole_BreakLineA
|
|
};
|
|
|
|
static HRESULT MultiLanguage_create(IUnknown *pUnkOuter, LPVOID *ppObj)
|
|
{
|
|
MLang_impl *mlang;
|
|
UINT i;
|
|
|
|
TRACE("Creating MultiLanguage object\n");
|
|
|
|
if( pUnkOuter )
|
|
return CLASS_E_NOAGGREGATION;
|
|
|
|
mlang = HeapAlloc( GetProcessHeap(), 0, sizeof (MLang_impl) );
|
|
mlang->IMLangFontLink_iface.lpVtbl = &IMLangFontLink_vtbl;
|
|
mlang->IMultiLanguage_iface.lpVtbl = &IMultiLanguage_vtbl;
|
|
mlang->IMultiLanguage3_iface.lpVtbl = &IMultiLanguage3_vtbl;
|
|
mlang->IMLangFontLink2_iface.lpVtbl = &IMLangFontLink2_vtbl;
|
|
mlang->IMLangLineBreakConsole_iface.lpVtbl = &IMLangLineBreakConsole_vtbl;
|
|
|
|
mlang->total_cp = 0;
|
|
for (i = 0; i < sizeof(mlang_data)/sizeof(mlang_data[0]); i++)
|
|
mlang->total_cp += mlang_data[i].number_of_cp;
|
|
|
|
/* do not enumerate unicode flavours */
|
|
mlang->total_scripts = sizeof(mlang_data)/sizeof(mlang_data[0]) - 1;
|
|
|
|
mlang->ref = 1;
|
|
*ppObj = mlang;
|
|
TRACE("returning %p\n", mlang);
|
|
|
|
LockModule();
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************/
|
|
|
|
HRESULT WINAPI DllCanUnloadNow(void)
|
|
{
|
|
return dll_count == 0 ? S_OK : S_FALSE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DllRegisterServer (MLANG.@)
|
|
*/
|
|
HRESULT WINAPI DllRegisterServer(void)
|
|
{
|
|
return __wine_register_resources( instance );
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DllUnregisterServer (MLANG.@)
|
|
*/
|
|
HRESULT WINAPI DllUnregisterServer(void)
|
|
{
|
|
return __wine_unregister_resources( instance );
|
|
}
|
|
|
|
HRESULT WINAPI GetGlobalFontLinkObject(void **unknown)
|
|
{
|
|
if (!unknown) return E_INVALIDARG;
|
|
|
|
FIXME("%p: stub\n", unknown);
|
|
|
|
return S_FALSE;
|
|
}
|