/*

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code 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 General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

/*

 *

 *

 * A simple tool to output all the installed locales on a Windows machine, and

 * corresponding Java default locale/file.encoding using PrintDefaultLocale

 *

 * WARNING:  This tool directly modifies the locale info in the Windows registry.

 * It may not work with the Windows versions after Windows XP SP2.  Also,

 * if the test did not complete or was manually killed, you will need to reset

 * the user default locale in the Control Panel manually. This executable has

 * to be run with the "Administrator" privilege.

 *

 * Usage: "deflocale.exe <java launcher> PrintDefaultLocale

 *

 * How to compile: "cl -DUNICODE -D_UNICODE deflocale.c user32.lib advapi32.lib"

 */

#include <windows.h>

#include <stdio.h>

#include <memory.h>

wchar_t* launcher;

wchar_t szBuffer[MAX_PATH];

LCID LCIDArray[1024];

int numLCIDs = 0;

BOOL isWin7orUp = FALSE;

// for Windows 7

BOOL (WINAPI * pfnEnumSystemLocalesEx)(LPVOID, DWORD, LPARAM, LPVOID);

BOOL (WINAPI * pfnEnumUILanguages)(LPVOID, DWORD, LPARAM);

LCID (WINAPI * pfnLocaleNameToLCID)(LPCWSTR, DWORD);

int (WINAPI * pfnLCIDToLocaleName)(LCID, LPWSTR, int, DWORD);

wchar_t* LocaleNamesArray[1024];

wchar_t* UILangNamesArray[1024];

int numLocaleNames = 0;

int numUILangNames = 0;

void launchAndWait() {

    STARTUPINFO si;

    PROCESS_INFORMATION pi;

    ZeroMemory(&si, sizeof(si));

    si.cb = sizeof(si);

    ZeroMemory(&pi, sizeof(pi));

    if (CreateProcess(NULL, launcher, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi)==0) {

        wprintf(L"CreateProcess failed with the error code: %x\n", GetLastError());

    }

    WaitForSingleObject( pi.hProcess, INFINITE );

}

void testLocale(int anLCID, wchar_t* pName) {

    HKEY hk;

    if (pName != NULL && wcslen(pName) == 2) {

        // ignore language only locale.

        return;

    }

    wprintf(L"\n");

    wprintf(L"OS Locale (lcid: %x", anLCID);

    if (pName != NULL) {

        wprintf(L", name: %s", pName);

    }

    GetLocaleInfo(anLCID, LOCALE_SENGLANGUAGE, szBuffer, MAX_PATH);

    wprintf(L"): %s (", szBuffer);

    GetLocaleInfo(anLCID, LOCALE_SENGCOUNTRY, szBuffer, MAX_PATH);

    wprintf(L"%s) - ", szBuffer);

    GetLocaleInfo(anLCID, LOCALE_IDEFAULTANSICODEPAGE, szBuffer, MAX_PATH);

    wprintf(L"%s\n", szBuffer);

    fflush(0);

    if (RegOpenKeyEx(HKEY_CURRENT_USER, L"Control Panel\\International", 0, KEY_READ | KEY_WRITE, &hk) == ERROR_SUCCESS) {

        wchar_t originalLocale[16];

        wchar_t testLocale[16];

        wchar_t* pKeyName;

        DWORD cb = sizeof(originalLocale);

        DWORD cbTest;

        if (isWin7orUp) {

            pKeyName = L"LocaleName";

            wcscpy(testLocale, pName);

            cbTest = wcslen(pName) * sizeof(wchar_t);

        } else {

            pKeyName = L"Locale";

            swprintf(testLocale, L"%08x", anLCID);

            cbTest = sizeof(wchar_t) * 8;

        }

        RegQueryValueEx(hk, pKeyName, 0, 0, (LPBYTE)originalLocale, &cb);

        RegSetValueEx(hk, pKeyName, 0, REG_SZ, (LPBYTE)testLocale, cbTest );

        launchAndWait();

        RegSetValueEx(hk, pKeyName, 0, REG_SZ, (LPBYTE)originalLocale, cb);

        RegCloseKey(hk);

    }

}

void testUILang(wchar_t* pName) {

    HKEY hk;

    wprintf(L"\n");

    wprintf(L"OS UI Language (name: %s)\n", pName);

    fflush(0);

    if (RegOpenKeyEx(HKEY_CURRENT_USER, L"Control Panel\\Desktop", 0, KEY_READ | KEY_WRITE, &hk) == ERROR_SUCCESS) {

        wchar_t originalUILang[16];

        wchar_t testUILang[16];

        wchar_t* pKeyName;

        DWORD cb = sizeof(originalUILang);

        DWORD cbTest = wcslen(pName) * sizeof(wchar_t);

        pKeyName = L"PreferredUILanguages";

        wcscpy(testUILang, pName);

        cbTest = wcslen(pName) * sizeof(wchar_t);

        RegQueryValueEx(hk, pKeyName, 0, 0, (LPBYTE)originalUILang, &cb);

        RegSetValueEx(hk, pKeyName, 0, REG_SZ, (LPBYTE)testUILang, cbTest);

        launchAndWait();

        RegSetValueEx(hk, pKeyName, 0, REG_SZ, (LPBYTE)originalUILang, cb);

        RegCloseKey(hk);

    }

}

BOOL CALLBACK EnumLocalesProc(LPWSTR lpLocaleStr) {

    swscanf(lpLocaleStr, L"%08x", &LCIDArray[numLCIDs]);

    numLCIDs ++;

    return TRUE;

}

BOOL CALLBACK EnumLocalesProcEx(LPWSTR lpLocaleStr, DWORD flags, LPARAM lp) {

    wchar_t* pName = malloc((wcslen(lpLocaleStr) + 1) * sizeof(wchar_t *));

    wcscpy(pName, lpLocaleStr);

    LocaleNamesArray[numLocaleNames] = pName;

    numLocaleNames ++;

    return TRUE;

}

BOOL CALLBACK EnumUILanguagesProc(LPWSTR lpUILangStr, LPARAM lp) {

    wchar_t* pName = malloc((wcslen(lpUILangStr) + 1) * sizeof(wchar_t *));

    wcscpy(pName, lpUILangStr);

    UILangNamesArray[numUILangNames] = pName;

    numUILangNames ++;

    return TRUE;

}

int sortLCIDs(LCID * pLCID1, LCID * pLCID2) {

    if (*pLCID1 < *pLCID2) return (-1);

    if (*pLCID1 == *pLCID2) return 0;

    return 1;

}

int sortLocaleNames(wchar_t** ppName1, wchar_t** ppName2) {

    LCID l1 = pfnLocaleNameToLCID(*ppName1, 0);

    LCID l2 = pfnLocaleNameToLCID(*ppName2, 0);

    return sortLCIDs(&l1, &l2);

}

int main(int argc, char** argv) {

    OSVERSIONINFO osvi;

    LPWSTR commandline = GetCommandLine();

    int i;

    osvi.dwOSVersionInfoSize = sizeof(osvi);

    GetVersionEx(&osvi);

    wprintf(L"# OSVersionInfo\n");

    wprintf(L"# MajorVersion: %d\n", osvi.dwMajorVersion);

    wprintf(L"# MinorVersion: %d\n", osvi.dwMinorVersion);

    wprintf(L"# BuildNumber: %d\n", osvi.dwBuildNumber);

    wprintf(L"# CSDVersion: %s\n", osvi.szCSDVersion);

    wprintf(L"\n");

    fflush(0);

    launcher = wcschr(commandline, L' ')+1;

    while (*launcher == L' ') {

        launcher++;

    }

    isWin7orUp = (osvi.dwMajorVersion > 6) ||

                 (osvi.dwMajorVersion == 6 && osvi.dwMinorVersion >= 1);

    if (!isWin7orUp) {

        // Enumerate locales

        EnumSystemLocales(EnumLocalesProc, LCID_INSTALLED);

        // Sort LCIDs

        qsort(LCIDArray, numLCIDs, sizeof(LCID), (void *)sortLCIDs);

    } else {

        // For Windows 7, use "LocaleName" registry key for the user locale

        // as they seem to switch from "Locale".

        HMODULE hmod = GetModuleHandle(L"kernel32");

        *(FARPROC*)&pfnEnumSystemLocalesEx =

            GetProcAddress(hmod, "EnumSystemLocalesEx");

        *(FARPROC*)&pfnEnumUILanguages =

            GetProcAddress(hmod, "EnumUILanguagesW");

        *(FARPROC*)&pfnLocaleNameToLCID =

            GetProcAddress(hmod, "LocaleNameToLCID");

        *(FARPROC*)&pfnLCIDToLocaleName =

            GetProcAddress(hmod, "LCIDToLocaleName");

        if (pfnEnumSystemLocalesEx != NULL &&

            pfnEnumUILanguages != NULL &&

            pfnLocaleNameToLCID != NULL &&

            pfnLCIDToLocaleName != NULL) {

            // Enumerate locales

            pfnEnumSystemLocalesEx(EnumLocalesProcEx,

                    1, // LOCALE_WINDOWS

                    (LPARAM)NULL, NULL);

            // Enumerate UI Languages.

            pfnEnumUILanguages(EnumUILanguagesProc,

                    0x8, // MUI_LANGUAGE_NAME

                    (LPARAM)NULL);

        } else {

            wprintf(L"Could not get needed entry points. quitting.\n");

            exit(-1);

        }

        // Sort LocaleNames

        qsort(LocaleNamesArray, numLocaleNames,

              sizeof(wchar_t*), (void *)sortLocaleNames);

        qsort(UILangNamesArray, numUILangNames,

              sizeof(wchar_t*), (void *)sortLocaleNames);

    }

    // Execute enumeration of Java default locales

    if (isWin7orUp) {

        for (i = 0; i < numLocaleNames; i ++) {

            testLocale(pfnLocaleNameToLCID(LocaleNamesArray[i], 0),

                                     LocaleNamesArray[i]);

        }

        for (i = 0; i < numUILangNames; i ++) {

            testUILang(UILangNamesArray[i]);

        }

    } else {

        for (i = 0; i < numLCIDs; i ++) {

            testLocale(LCIDArray[i], NULL);

        }

    }

}