NSIS/Contrib/MakeLangId/MakeLangId.cpp
2021-08-04 17:10:36 +00:00

402 lines
14 KiB
C++

/*********
MakeLangID
**********
History
=======
20161207 - anders_k
* Rewritten from scratch to support languages from EnumSystemLocales
+ New icon ("Swerica" by anders_k, ZLib & CC BY-SA 4.0 dual license)
20130906 - anders_k
+ 64-bit support
20100326 - wizou & anders_k
+ Unicode support
20040818 - kichik
* Initial release
Reference
=========
https://msdn.microsoft.com/library/dd318693#Language Identifier Constants and Strings
https://wayback.archive.org/web/20021221200122/http://msdn.microsoft.com/library/en-us/intl/nls_8rse.asp#LOCALE_* (95/98/ME/NT4/2000/XP)
*/
#include "../../Source/Platform.h"
#include <commctrl.h>
#include "resource.h"
#if defined(_MSC_VER) && _MSC_VER-0 >= 1600 && _MSC_VER-0 <= 1800 // MSVC complains about math stuff we are not even using (bug #1159)
EXTERN_C int _fltused = 0;
EXTERN_C double _hypot(double x, double y) { return 0.0; }
#endif
#ifndef LOCALE_SNAME
#define LOCALE_SNAME 0x005C
#endif
#ifndef LOCALE_SENGLISHDISPLAYNAME
#define LOCALE_SENGLISHDISPLAYNAME 0x0072
#endif
#ifndef LOCALE_SNATIVEDISPLAYNAME
#define LOCALE_SNATIVEDISPLAYNAME 0x0073
#endif
#ifndef CB_SETCUEBANNER
#define CB_SETCUEBANNER (0x1700+3)
#endif
#if defined(_MSC_VER) && _MSC_VER >= 1200
EXTERN_C IMAGE_DOS_HEADER __ImageBase;
#define HINST_THISCOMPONENT ( (HINSTANCE) &__ImageBase )
#define HINST_APPLICATION HINST_THISCOMPONENT
#else
#define HINST_APPLICATION ( (HINSTANCE) GetModuleHandle(NULL) )
#endif
static INT_PTR StrToIntptr(LPCTSTR s, bool ForceHex = false)
{
UINT_PTR val = 0;
int sign = 1, base = 10, numtop = '9';
if (*s == TEXT('-')) s++, sign = -1;
if (*s == TEXT('0'))
{
s++;
if ((s[0] & ~0x20) == TEXT('X')) ++s, base = 16;
}
if (ForceHex) base = 16;
for (;;)
{
int c = *s++;
if (c >= _T('0') && c <= numtop) c -= TEXT('0');
else if (base == 16 && (c & ~0x20) >= TEXT('A') && (c & ~0x20) <= TEXT('F')) c = (c & 7) + 9;
else break;
val *= base, val += c;
}
return ((INT_PTR)val) * sign;
}
typedef struct { WORD id; LPCSTR name; } INTLNG; // Storing the names as ASCII saves 4 KiB
#define IL(p, s, pn, sn) { MAKELANGID(p, s), #pn ":" #sn }
static const INTLNG g_IntLang[] = {
IL(0x00, 0x00, NEUTRAL, NEUTRAL),
IL(0x00, 0x01, NEUTRAL, DEFAULT),
IL(0x00, 0x03, NEUTRAL, CUSTOM_DEFAULT), // Vista+? //archives.miloush.net/michkap/archive/2007/09/02/4701403.html
IL(0x00, 0x04, NEUTRAL, CUSTOM_UNSPECIFIED), // Vista+?
IL(0x00, 0x05, NEUTRAL, UI_CUSTOM_DEFAULT), // Vista+?
IL(0x00, 0x08, NEUTRAL, DYNAMIC),
IL(0x7f, 0x00, INVARIANT, NEUTRAL), // Invariant locale
IL(0x36, 0x01, AFRIKAANS, AFRIKAANS_SOUTH_AFRICA),
IL(0x1c, 0x01, ALBANIAN, ALBANIAN_ALBANIA),
IL(0x01, 0x01, ARABIC, ARABIC_SAUDI_ARABIA),
IL(0x01, 0x02, ARABIC, ARABIC_IRAQ),
IL(0x01, 0x03, ARABIC, ARABIC_EGYPT),
IL(0x01, 0x04, ARABIC, ARABIC_LIBYA),
IL(0x01, 0x05, ARABIC, ARABIC_ALGERIA),
IL(0x01, 0x06, ARABIC, ARABIC_MOROCCO),
IL(0x01, 0x07, ARABIC, ARABIC_TUNISIA),
IL(0x01, 0x08, ARABIC, ARABIC_OMAN),
IL(0x01, 0x09, ARABIC, ARABIC_YEMEN),
IL(0x01, 0x0a, ARABIC, ARABIC_SYRIA),
IL(0x01, 0x0b, ARABIC, ARABIC_JORDAN),
IL(0x01, 0x0c, ARABIC, ARABIC_LEBANON),
IL(0x01, 0x0d, ARABIC, ARABIC_KUWAIT),
IL(0x01, 0x0e, ARABIC, ARABIC_UAE),
IL(0x01, 0x0f, ARABIC, ARABIC_BAHRAIN),
IL(0x01, 0x10, ARABIC, ARABIC_QATAR),
IL(0x2b, 0x01, ARMENIAN, ARMENIAN_ARMENIA),
IL(0x4d, 0x01, ASSAMESE, ASSAMESE_INDIA),
IL(0x2c, 0x01, AZERI, AZERI_LATIN),
IL(0x2c, 0x02, AZERI, AZERI_CYRILLIC),
IL(0x2d, 0x01, BASQUE, BASQUE_BASQUE),
IL(0x23, 0x01, BELARUSIAN, BELARUSIAN_BELARUS),
IL(0x45, 0x01, BENGALI, BENGALI_INDIA),
IL(0x45, 0x02, BENGALI, BENGALI_BANGLADESH),
IL(0x02, 0x01, BULGARIAN, BULGARIAN_BULGARIA),
IL(0x03, 0x01, CATALAN, CATALAN_CATALAN),
IL(0x5c, 0x01, CHEROKEE, CHEROKEE_CHEROKEE),
IL(0x04, 0x01, CHINESE, CHINESE_TRADITIONAL),
IL(0x04, 0x02, CHINESE, CHINESE_SIMPLIFIED),
IL(0x04, 0x03, CHINESE, CHINESE_HONGKONG),
IL(0x04, 0x04, CHINESE, CHINESE_SINGAPORE),
IL(0x04, 0x05, CHINESE, CHINESE_MACAU),
IL(0x83, 0x01, CORSICAN, CORSICAN_FRANCE),
IL(0x1a, 0x01, CROATIAN, CROATIAN_CROATIA),
IL(0x1a, 0x04, CROATIAN, CROATIAN_BOSNIA_HERZEGOVINA_LATIN),
IL(0x05, 0x01, CZECH, CZECH_CZECH_REPUBLIC),
IL(0x06, 0x01, DANISH, DANISH_DENMARK),
IL(0x65, 0x01, DIVEHI, DIVEHI_MALDIVES),
IL(0x13, 0x01, DUTCH, DUTCH),
IL(0x13, 0x02, DUTCH, DUTCH_BELGIAN),
IL(0x09, 0x01, ENGLISH, ENGLISH_US),
IL(0x09, 0x02, ENGLISH, ENGLISH_UK),
IL(0x09, 0x03, ENGLISH, ENGLISH_AUS),
IL(0x09, 0x04, ENGLISH, ENGLISH_CAN),
IL(0x09, 0x05, ENGLISH, ENGLISH_NZ),
IL(0x09, 0x06, ENGLISH, ENGLISH_EIRE),
IL(0x09, 0x07, ENGLISH, ENGLISH_SOUTH_AFRICA),
IL(0x09, 0x08, ENGLISH, ENGLISH_JAMAICA),
IL(0x09, 0x09, ENGLISH, ENGLISH_CARIBBEAN),
IL(0x09, 0x0a, ENGLISH, ENGLISH_BELIZE),
IL(0x09, 0x0b, ENGLISH, ENGLISH_TRINIDAD),
IL(0x09, 0x0c, ENGLISH, ENGLISH_ZIMBABWE),
IL(0x09, 0x0d, ENGLISH, ENGLISH_PHILIPPINES),
IL(0x09, 0x10, ENGLISH, ENGLISH_INDIA),
IL(0x09, 0x11, ENGLISH, ENGLISH_MALAYSIA),
IL(0x09, 0x12, ENGLISH, ENGLISH_SINGAPORE),
IL(0x25, 0x01, ESTONIAN, ESTONIAN_ESTONIA),
IL(0x38, 0x01, FAEROESE, FAEROESE_FAROE_ISLANDS),
IL(0x29, 0x01, FARSI, PERSIAN_IRAN), // LANG_FARSI AKA LANG_PERSIAN
IL(0x64, 0x01, FILIPINO, FILIPINO_PHILIPPINES),
IL(0x0b, 0x01, FINNISH, FINNISH_FINLAND),
IL(0x0c, 0x01, FRENCH, FRENCH),
IL(0x0c, 0x02, FRENCH, FRENCH_BELGIAN),
IL(0x0c, 0x03, FRENCH, FRENCH_CANADIAN),
IL(0x0c, 0x04, FRENCH, FRENCH_SWISS),
IL(0x0c, 0x05, FRENCH, FRENCH_LUXEMBOURG),
IL(0x0c, 0x06, FRENCH, FRENCH_MONACO),
IL(0x56, 0x01, GALICIAN, GALICIAN_GALICIAN),
IL(0x37, 0x01, GEORGIAN, GEORGIAN_GEORGIA),
IL(0x07, 0x01, GERMAN, GERMAN),
IL(0x07, 0x02, GERMAN, GERMAN_SWISS),
IL(0x07, 0x03, GERMAN, GERMAN_AUSTRIAN),
IL(0x07, 0x04, GERMAN, GERMAN_LUXEMBOURG),
IL(0x07, 0x05, GERMAN, GERMAN_LIECHTENSTEIN),
IL(0x08, 0x01, GREEK, GREEK_GREECE),
IL(0x47, 0x01, GUJARATI, GUJARATI_INDIA),
IL(0x75, 0x01, HAWAIIAN, HAWAIIAN_US),
IL(0x0d, 0x01, HEBREW, HEBREW_ISRAEL),
IL(0x39, 0x01, HINDI, HINDI_INDIA),
IL(0x0e, 0x01, HUNGARIAN, HUNGARIAN_HUNGARY),
IL(0x0f, 0x01, ICELANDIC, ICELANDIC_ICELAND),
IL(0x21, 0x01, INDONESIAN, INDONESIAN_INDONESIA),
IL(0x10, 0x01, ITALIAN, ITALIAN),
IL(0x10, 0x02, ITALIAN, ITALIAN_SWISS),
IL(0x11, 0x01, JAPANESE, JAPANESE_JAPAN),
IL(0x60, 0x02, KASHMIRI, KASHMIRI_SASIA),
IL(0x3f, 0x01, KAZAK, KAZAK_KAZAKHSTAN),
IL(0x53, 0x01, KHMER, KHMER_CAMBODIA),
IL(0x12, 0x01, KOREAN, KOREAN),
IL(0x40, 0x01, KYRGYZ, KYRGYZ_KYRGYZSTAN),
IL(0x54, 0x01, LAO, LAO_LAO),
IL(0x26, 0x01, LATVIAN, LATVIAN_LATVIA),
IL(0x27, 0x01, LITHUANIAN, LITHUANIAN),
IL(0x2f, 0x01, MACEDONIAN, MACEDONIAN_MACEDONIA),
IL(0x3e, 0x01, MALAY, MALAY_MALAYSIA),
IL(0x3e, 0x02, MALAY, MALAY_BRUNEI_DARUSSALAM),
IL(0x4c, 0x01, MALAYALAM, MALAYALAM_INDIA),
IL(0x3a, 0x01, MALTESE, MALTESE_MALTA),
//(0x58, 0x01, MANIPURI, ?),
IL(0x4e, 0x01, MARATHI, MARATHI_INDIA),
IL(0x50, 0x01, MONGOLIAN, MONGOLIAN_CYRILLIC_MONGOLIA),
IL(0x50, 0x02, MONGOLIAN, MONGOLIAN_PRC),
IL(0x61, 0x01, NEPALI, NEPALI_NEPAL),
IL(0x61, 0x02, NEPALI, NEPALI_INDIA),
IL(0x14, 0x01, NORWEGIAN, NORWEGIAN_BOKMAL),
IL(0x14, 0x02, NORWEGIAN, NORWEGIAN_NYNORSK),
IL(0x48, 0x01, ORIYA, ORIYA_INDIA),
IL(0x15, 0x01, POLISH, POLISH_POLAND),
IL(0x16, 0x01, PORTUGUESE, PORTUGUESE_BRAZILIAN),
IL(0x16, 0x02, PORTUGUESE, PORTUGUESE),
IL(0x18, 0x01, ROMANIAN, ROMANIAN_ROMANIA),
IL(0x19, 0x01, RUSSIAN, RUSSIAN_RUSSIA),
IL(0x4f, 0x01, SANSKRIT, SANSKRIT_INDIA),
IL(0x91, 0x01, SCOTTISH_GAELIC, SCOTTISH_GAELIC),
IL(0x1a, 0x01, SERBIAN, SERBIAN_CROATIA),
IL(0x1a, 0x02, SERBIAN, SERBIAN_LATIN), // Serbia and Montenegro (former)
IL(0x1a, 0x03, SERBIAN, SERBIAN_CYRILLIC), // Serbia and Montenegro (former)
IL(0x1a, 0x06, SERBIAN, SERBIAN_BOSNIA_HERZEGOVINA_LATIN),
IL(0x1a, 0x07, SERBIAN, SERBIAN_BOSNIA_HERZEGOVINA_CYRILLIC),
IL(0x1b, 0x01, SLOVAK, SLOVAK_SLOVAKIA),
IL(0x24, 0x01, SLOVENIAN, SLOVENIAN_SLOVENIA),
IL(0x0a, 0x01, SPANISH, SPANISH),
IL(0x0a, 0x02, SPANISH, SPANISH_MEXICAN),
IL(0x0a, 0x03, SPANISH, SPANISH_MODERN),
IL(0x0a, 0x04, SPANISH, SPANISH_GUATEMALA),
IL(0x0a, 0x05, SPANISH, SPANISH_COSTA_RICA),
IL(0x0a, 0x06, SPANISH, SPANISH_PANAMA),
IL(0x0a, 0x07, SPANISH, SPANISH_DOMINICAN_REPUBLIC),
IL(0x0a, 0x08, SPANISH, SPANISH_VENEZUELA),
IL(0x0a, 0x09, SPANISH, SPANISH_COLOMBIA),
IL(0x0a, 0x0a, SPANISH, SPANISH_PERU),
IL(0x0a, 0x0b, SPANISH, SPANISH_ARGENTINA),
IL(0x0a, 0x0c, SPANISH, SPANISH_ECUADOR),
IL(0x0a, 0x0d, SPANISH, SPANISH_CHILE),
IL(0x0a, 0x0e, SPANISH, SPANISH_URUGUAY),
IL(0x0a, 0x0f, SPANISH, SPANISH_PARAGUAY),
IL(0x0a, 0x10, SPANISH, SPANISH_BOLIVIA),
IL(0x0a, 0x11, SPANISH, SPANISH_EL_SALVADOR),
IL(0x0a, 0x12, SPANISH, SPANISH_HONDURAS),
IL(0x0a, 0x13, SPANISH, SPANISH_NICARAGUA),
IL(0x0a, 0x14, SPANISH, SPANISH_PUERTO_RICO),
IL(0x0a, 0x15, SPANISH, SPANISH_US),
IL(0x41, 0x01, SWAHILI, SWAHILI),
IL(0x1d, 0x01, SWEDISH, SWEDISH),
IL(0x1d, 0x02, SWEDISH, SWEDISH_FINLAND),
IL(0x5a, 0x01, SYRIAC, SYRIAC_SYRIA),
IL(0x1e, 0x01, THAI, THAI_THAILAND),
IL(0x51, 0x01, TIBETAN, TIBETAN_PRC),
IL(0x1f, 0x01, TURKISH, TURKISH_TURKEY),
IL(0x22, 0x01, UKRAINIAN, UKRAINIAN_UKRAINE),
IL(0x43, 0x01, UZBEK, UZBEK_LATIN),
IL(0x43, 0x02, UZBEK, UZBEK_CYRILLIC),
IL(0x2a, 0x01, VIETNAMESE, VIETNAMESE_VIETNAM),
IL(0x52, 0x01, WELSH, WELSH_UNITED_KINGDOM)
};
HWND g_hList;
static INT AddLocale(HWND hCtl, LPCTSTR Name, UINT LangId)
{
INT idx = (INT) SendMessage(hCtl, CB_ADDSTRING, 0, (LPARAM) Name);
if (idx != CB_ERR) SendMessage(hCtl, CB_SETITEMDATA, idx, LangId);
return idx;
}
static BOOL CALLBACK EnumSysLocalesProc(LPTSTR lpLocaleString)
{
const UINT cchbuf1 = 80+2+80+1+2+85+1+!0, cchbuf2 = 85+!0;
TCHAR buf1[cchbuf1], buf2[cchbuf2];
UINT lid = (UINT) StrToIntptr(lpLocaleString, true), lcid = MAKELCID(lid, SORT_DEFAULT);
UINT retval = GetLocaleInfo(lcid, LOCALE_SENGLISHDISPLAYNAME|LOCALE_NOUSEROVERRIDE, buf1, cchbuf1);
if (!retval) // LOCALE_SENGLISHDISPLAYNAME is Win7+
{
GetLocaleInfo(lcid, LOCALE_SENGCOUNTRY|LOCALE_NOUSEROVERRIDE, buf2, cchbuf2);
if ((retval = GetLocaleInfo(lcid, LOCALE_SENGLANGUAGE|LOCALE_NOUSEROVERRIDE, buf1, cchbuf1))) --retval;
retval += wsprintf(buf1+retval, retval ? TEXT(" (%s)") : TEXT("?"), buf2);
}
AddLocale(g_hList, buf1, lid);
return true;
}
static void InitSysLangList(HWND hCtl)
{
g_hList = hCtl; // EnumSystemLocales is stupid and does not have a callback parameter
SendMessage(hCtl, CB_SETCUEBANNER, 0, (LPARAM) L"Select a language...");
EnumSystemLocales(EnumSysLocalesProc, LCID_SUPPORTED);
}
static void InitIntLangList(HWND hCtl)
{
g_hList = hCtl;
SendMessage(hCtl, CB_SETCUEBANNER, 0, (LPARAM) L"Select a language...");
for (UINT i = 0; i < sizeof(g_IntLang)/sizeof(INTLNG); ++i)
{
#ifdef UNICODE
WCHAR name[200];
wsprintf(name, L"%S", g_IntLang[i].name);
#else
LPCTSTR name = g_IntLang[i].name;
#endif
AddLocale(hCtl, name, g_IntLang[i].id);
}
}
static void OnLanguageChanged(HWND hDlg)
{
const UINT cchbuf1 = 80+2+80+1+2+85+1+!0, cchbuf2 = 85+!0;
TCHAR buf1[cchbuf1], buf2[cchbuf2];
HWND hList = g_hList;
INT idx = (INT) SendMessage(hList, CB_GETCURSEL, 0, 0);
UINT lid = (UINT) SendMessage(hList, CB_GETITEMDATA, idx, 0), lcid = MAKELCID(lid, SORT_DEFAULT), retval;
EnableWindow(GetDlgItem(hDlg, IDOK), idx != CB_ERR);
if (idx == CB_ERR)
{
SetDlgItemText(hDlg, IDC_INFO, TEXT(""));
SetDlgItemText(hDlg, IDC_LANGID, TEXT(""));
SetDlgItemText(hDlg, IDC_CODEPAGE, TEXT(""));
return ;
}
if ((retval = GetLocaleInfo(lcid, LOCALE_SNATIVEDISPLAYNAME|LOCALE_NOUSEROVERRIDE, buf1, cchbuf1))) --retval;
if (!retval) // LOCALE_SNATIVEDISPLAYNAME is Win7+
{
GetLocaleInfo(lcid, LOCALE_SNATIVECTRYNAME|LOCALE_NOUSEROVERRIDE, buf2, cchbuf2);
if ((retval = GetLocaleInfo(lcid, LOCALE_SNATIVELANGNAME|LOCALE_NOUSEROVERRIDE, buf1, cchbuf1))) --retval;
retval += wsprintf(buf1+retval, retval ? TEXT(" (%s)") : TEXT("?"), buf2);
}
if (retval && GetLocaleInfo(lcid, LOCALE_SNAME|LOCALE_NOUSEROVERRIDE, buf2, cchbuf2) && *buf2)
{
wsprintf(buf1+retval, TEXT(" [%s]"), buf2);
}
SetDlgItemText(hDlg, IDC_INFO, buf1);
wsprintf(buf1, TEXT("%u (0x%X)"), lid, lid);
SetDlgItemText(hDlg, IDC_LANGID, buf1);
wsprintf(buf1, TEXT("%u"), lid);
SetDlgItemText(hDlg, IDC_COPYHELPER, buf1);
retval = GetLocaleInfo(lcid, LOCALE_IDEFAULTANSICODEPAGE|LOCALE_NOUSEROVERRIDE, buf2, cchbuf2);
LPCTSTR cpstr = retval ? lstrcmp(buf2, TEXT("0")) ? buf2 : TEXT("1200 (Unicode-only)") : TEXT("?");
SetDlgItemText(hDlg, IDC_CODEPAGE, cpstr);
}
INT_PTR CALLBACK DialogProc(HWND hDlg, UINT Msg, WPARAM wp, LPARAM lp)
{
HWND hCtl, hCtl2;
switch(Msg)
{
case WM_SIZE:
if (wp == SIZE_MAXIMIZED) ShowWindow(hDlg, SW_SHOWNOACTIVATE); // Disallow STARTF_USESHOWWINDOW+SW_MAXIMIZE
break;
case WM_COMMAND:
switch(wp)
{
case MAKELONG(IDOK, BN_CLICKED):
// Using a secret edit box to copy to the clipboard
hCtl = GetDlgItem(hDlg, IDC_COPYHELPER);
SendMessage(hCtl, EM_SETSEL, 0, -1);
SendMessage(hCtl, WM_COPY, 0, 0);
break;
case MAKELONG(IDCANCEL, BN_CLICKED):
return EndDialog(hDlg, 0);
case MAKELONG(IDC_SOURCE, CBN_SELCHANGE):
hCtl = GetDlgItem(hDlg, IDC_SYSLANGLIST), hCtl2 = GetDlgItem(hDlg, IDC_INTLANGLIST);
if (g_hList == hCtl) { HWND h; h = hCtl, hCtl = hCtl2, hCtl2 = h; }
ShowWindow(g_hList = hCtl, SW_SHOW);
ShowWindow(hCtl2, SW_HIDE);
// fallthrough
case MAKELONG(IDC_SYSLANGLIST, CBN_SELCHANGE):
case MAKELONG(IDC_INTLANGLIST, CBN_SELCHANGE):
OnLanguageChanged(hDlg);
break;
}
break;
case WM_INITDIALOG:
{
SendMessage(hDlg, WM_SETICON, ICON_BIG, lp);
InitSysLangList(GetDlgItem(hDlg, IDC_SYSLANGLIST));
InitIntLangList(GetDlgItem(hDlg, IDC_INTLANGLIST));
hCtl = GetDlgItem(hDlg, IDC_SOURCE);
SendMessage(hCtl, CB_ADDSTRING, 0, (LPARAM) TEXT("System"));
SendMessage(hCtl, CB_ADDSTRING, 0, (LPARAM) TEXT("Internal"));
SendMessage(hCtl, CB_SETCURSEL, 0, 0); // Select "System"...
SendMessage(hDlg, WM_COMMAND, MAKELONG(IDC_SOURCE, CBN_SELCHANGE), (LPARAM) hCtl); // ...and notify
PostMessage(hDlg, WM_NEXTDLGCTL, 0, FALSE); // Switches focus to the 2nd combobox
}
break;
}
return FALSE;
}
NSIS_ENTRYPOINT_GUINOCRT
EXTERN_C void NSISWinMainNOCRT()
{
InitCommonControls();
HINSTANCE hInst = HINST_APPLICATION;
HANDLE hIco = LoadImage(hInst, MAKEINTRESOURCE(IDI_ICON), IMAGE_ICON, 0, 0, LR_DEFAULTSIZE|LR_SHARED);
INT_PTR retval = DialogBoxParam(hInst, MAKEINTRESOURCE(IDD_DIALOG), 0, DialogProc, (LPARAM) hIco);
ExitProcess((UINT) retval);
}