/////////////////////////////////////////////////////////////////////////////
-// Name: intl.cpp
+// Name: src/common/intl.cpp
// Purpose: Internationalization and localisation for wxWindows
// Author: Vadim Zeitlin
// Modified by:
// Created: 29/01/98
// RCS-ID: $Id$
// Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
-// Licence: wxWindows license
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
// ============================================================================
#if wxUSE_INTL
// standard headers
-#include <locale.h>
-#include <ctype.h>
+
+#ifndef __WXWINCE__
+#include <locale.h>
+#endif
+
+#include <ctype.h>
+#include <stdlib.h>
+#ifdef HAVE_LANGINFO_H
+ #include <langinfo.h>
+#endif
// wxWindows
-#include "wx/defs.h"
-#include "wx/string.h"
-#include "wx/tokenzr.h"
-#include "wx/intl.h"
-#include "wx/file.h"
-#include "wx/log.h"
-#include "wx/debug.h"
-#include "wx/utils.h"
-#include "wx/dynarray.h"
+#ifndef WX_PRECOMP
+ #include "wx/string.h"
+ #include "wx/intl.h"
+ #include "wx/log.h"
+ #include "wx/debug.h"
+ #include "wx/utils.h"
+ #include "wx/dynarray.h"
+#endif // WX_PRECOMP
+
#ifdef __WIN32__
-#include "wx/msw/private.h"
+ #include "wx/msw/private.h"
+#elif defined(__UNIX_LIKE__)
+ #include "wx/fontmap.h" // for CharsetToEncoding()
#endif
+#include "wx/file.h"
+#include "wx/tokenzr.h"
+#include "wx/module.h"
+#include "wx/fontmap.h"
+#include "wx/encconv.h"
+#include "wx/hashmap.h"
-#include <stdlib.h>
+#if defined(__WXMAC__)
+ #include "wx/mac/private.h" // includes mac headers
+#endif
// ----------------------------------------------------------------------------
// simple types
// ----------------------------------------------------------------------------
// this should *not* be wxChar, this type must have exactly 8 bits!
-typedef unsigned char size_t8;
-
-#ifdef __WXMSW__
- #if defined(__WIN16__)
- typedef unsigned long size_t32;
- #elif defined(__WIN32__)
- typedef unsigned int size_t32;
- #else
- // Win64 will have different type sizes
- #error "Please define a 32 bit type"
- #endif
-#else // !Windows
- // SIZEOF_XXX are defined by configure
- #if defined(SIZEOF_INT) && (SIZEOF_INT == 4)
- typedef unsigned int size_t32;
- #elif defined(SIZEOF_LONG) && (SIZEOF_LONG == 4)
- typedef unsigned long size_t32;
- #else
- // assume sizeof(int) == 4 - what else can we do
- typedef unsigned int size_t32;
-
- // ... but at least check it during run time
- static class IntSizeChecker
- {
- public:
- IntSizeChecker()
- {
- // Asserting a sizeof directly causes some compilers to
- // issue a "using constant in a conditional expression" warning
- size_t intsize = sizeof(int);
-
- wxASSERT_MSG( intsize == 4,
- "size_t32 is incorrectly defined!" );
- }
- } intsizechecker;
- #endif
-#endif // Win/!Win
+typedef wxUint8 size_t8;
+typedef wxUint32 size_t32;
// ----------------------------------------------------------------------------
// constants
// extension of ".mo" files
#define MSGCATALOG_EXTENSION _T(".mo")
+// the constants describing the format of lang_LANG locale string
+static const size_t LEN_LANG = 2;
+static const size_t LEN_SUBLANG = 2;
+static const size_t LEN_FULL = LEN_LANG + 1 + LEN_SUBLANG; // 1 for '_'
+
// ----------------------------------------------------------------------------
// global functions
// ----------------------------------------------------------------------------
static wxLocale *wxSetLocale(wxLocale *pLocale);
+// helper functions of GetSystemLanguage()
+#ifdef __UNIX__
+
+// get just the language part
+static inline wxString ExtractLang(const wxString& langFull)
+{
+ return langFull.Left(LEN_LANG);
+}
+
+// get everything else (including the leading '_')
+static inline wxString ExtractNotLang(const wxString& langFull)
+{
+ return langFull.Mid(LEN_LANG);
+}
+
+#endif // __UNIX__
+
+
+
+// ----------------------------------------------------------------------------
+// wxMsgCatalogFile corresponds to one disk-file message catalog.
+//
+// This is a "low-level" class and is used only by wxMsgCatalog
+// ----------------------------------------------------------------------------
+
+WX_DECLARE_EXPORTED_STRING_HASH_MAP(wxString, wxMessagesHash);
+
+class wxMsgCatalogFile
+{
+public:
+ // ctor & dtor
+ wxMsgCatalogFile();
+ ~wxMsgCatalogFile();
+
+ // load the catalog from disk (szDirPrefix corresponds to language)
+ bool Load(const wxChar *szDirPrefix, const wxChar *szName);
+
+ // fills the hash with string-translation pairs
+ void FillHash(wxMessagesHash& hash, bool convertEncoding) const;
+
+private:
+ // this implementation is binary compatible with GNU gettext() version 0.10
+
+ // an entry in the string table
+ struct wxMsgTableEntry
+ {
+ size_t32 nLen; // length of the string
+ size_t32 ofsString; // pointer to the string
+ };
+
+ // header of a .mo file
+ struct wxMsgCatalogHeader
+ {
+ size_t32 magic, // offset +00: magic id
+ revision, // +04: revision
+ numStrings; // +08: number of strings in the file
+ size_t32 ofsOrigTable, // +0C: start of original string table
+ ofsTransTable; // +10: start of translated string table
+ size_t32 nHashSize, // +14: hash table size
+ ofsHashTable; // +18: offset of hash table start
+ };
+
+ // all data is stored here, NULL if no data loaded
+ size_t8 *m_pData;
+
+ // amount of memory pointed to by m_pData.
+ size_t32 m_nSize;
+
+ // data description
+ size_t32 m_numStrings; // number of strings in this domain
+ wxMsgTableEntry *m_pOrigTable, // pointer to original strings
+ *m_pTransTable; // translated
+
+ // swap the 2 halves of 32 bit integer if needed
+ size_t32 Swap(size_t32 ui) const
+ {
+ return m_bSwapped ? (ui << 24) | ((ui & 0xff00) << 8) |
+ ((ui >> 8) & 0xff00) | (ui >> 24)
+ : ui;
+ }
+
+ const char *StringAtOfs(wxMsgTableEntry *pTable, size_t32 n) const
+ {
+ const wxMsgTableEntry * const ent = pTable + n;
+
+ // this check could fail for a corrupt message catalog
+ size_t32 ofsString = Swap(ent->ofsString);
+ if ( ofsString + Swap(ent->nLen) > m_nSize)
+ return NULL;
+
+ return (const char *)(m_pData + ofsString);
+ }
+
+ wxString GetCharset() const;
+
+ bool m_bSwapped; // wrong endianness?
+
+ DECLARE_NO_COPY_CLASS(wxMsgCatalogFile)
+};
+
+
// ----------------------------------------------------------------------------
-// wxMsgCatalog corresponds to one disk-file message catalog.
+// wxMsgCatalog corresponds to one loaded message catalog.
//
// This is a "low-level" class and is used only by wxLocale (that's why
// it's designed to be stored in a linked list)
class wxMsgCatalog
{
public:
- // ctor & dtor
- wxMsgCatalog();
- ~wxMsgCatalog();
-
- // load the catalog from disk (szDirPrefix corresponds to language)
- bool Load(const wxChar *szDirPrefix, const wxChar *szName, bool bConvertEncoding = FALSE);
- bool IsLoaded() const { return m_pData != NULL; }
+ // load the catalog from disk (szDirPrefix corresponds to language)
+ bool Load(const wxChar *szDirPrefix, const wxChar *szName, bool bConvertEncoding = FALSE);
- // get name of the catalog
- const wxChar *GetName() const { return m_pszName; }
+ // get name of the catalog
+ wxString GetName() const { return m_name; }
- // get the translated string: returns NULL if not found
- const char *GetString(const char *sz) const;
+ // get the translated string: returns NULL if not found
+ const wxChar *GetString(const wxChar *sz) const;
- // public variable pointing to the next element in a linked list (or NULL)
- wxMsgCatalog *m_pNext;
+ // public variable pointing to the next element in a linked list (or NULL)
+ wxMsgCatalog *m_pNext;
private:
- // this implementation is binary compatible with GNU gettext() version 0.10
-
- // an entry in the string table
- struct wxMsgTableEntry
- {
- size_t32 nLen; // length of the string
- size_t32 ofsString; // pointer to the string
- };
-
- // header of a .mo file
- struct wxMsgCatalogHeader
- {
- size_t32 magic, // offset +00: magic id
- revision, // +04: revision
- numStrings; // +08: number of strings in the file
- size_t32 ofsOrigTable, // +0C: start of original string table
- ofsTransTable; // +10: start of translated string table
- size_t32 nHashSize, // +14: hash table size
- ofsHashTable; // +18: offset of hash table start
- };
-
- // all data is stored here, NULL if no data loaded
- size_t8 *m_pData;
-
- // data description
- size_t32 m_numStrings, // number of strings in this domain
- m_nHashSize; // number of entries in hash table
- size_t32 *m_pHashTable; // pointer to hash table
- wxMsgTableEntry *m_pOrigTable, // pointer to original strings
- *m_pTransTable; // translated
-
- const char *StringAtOfs(wxMsgTableEntry *pTable, size_t32 index) const
- { return (const char *)(m_pData + Swap(pTable[index].ofsString)); }
-
- // convert encoding to platform native one, if neccessary
- void ConvertEncoding();
-
- // utility functions
- // calculate the hash value of given string
- static inline size_t32 GetHash(const char *sz);
- // big<->little endian
- inline size_t32 Swap(size_t32 ui) const;
-
- // internal state
- bool HasHashTable() const // true if hash table is present
- { return m_nHashSize > 2 && m_pHashTable != NULL; }
-
- bool m_bSwapped; // wrong endianness?
-
- wxChar *m_pszName; // name of the domain
+ wxMessagesHash m_messages; // all messages in the catalog
+ wxString m_name; // name of the domain
};
// ----------------------------------------------------------------------------
// ============================================================================
// ----------------------------------------------------------------------------
-// wxMsgCatalog class
+// wxMsgCatalogFile class
// ----------------------------------------------------------------------------
-// calculate hash value using the so called hashpjw function by P.J. Weinberger
-// [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools]
-size_t32 wxMsgCatalog::GetHash(const char *sz)
-{
- #define HASHWORDBITS 32 // the length of size_t32
-
- size_t32 hval = 0;
- size_t32 g;
- while ( *sz != '\0' ) {
- hval <<= 4;
- hval += (size_t32)*sz++;
- g = hval & ((size_t32)0xf << (HASHWORDBITS - 4));
- if ( g != 0 ) {
- hval ^= g >> (HASHWORDBITS - 8);
- hval ^= g;
- }
- }
-
- return hval;
-}
-
-// swap the 2 halves of 32 bit integer if needed
-size_t32 wxMsgCatalog::Swap(size_t32 ui) const
+wxMsgCatalogFile::wxMsgCatalogFile()
{
- return m_bSwapped ? (ui << 24) | ((ui & 0xff00) << 8) |
- ((ui >> 8) & 0xff00) | (ui >> 24)
- : ui;
+ m_pData = NULL;
+ m_nSize = 0;
}
-wxMsgCatalog::wxMsgCatalog()
+wxMsgCatalogFile::~wxMsgCatalogFile()
{
- m_pData = NULL;
- m_pszName = NULL;
-}
-
-wxMsgCatalog::~wxMsgCatalog()
-{
- wxDELETEA(m_pData);
- wxDELETEA(m_pszName);
+ wxDELETEA(m_pData);
}
// return all directories to search for given prefix
// LC_PATH is a standard env var containing the search path for the .mo
// files
+#ifndef __WXWINCE__
const wxChar *pszLcPath = wxGetenv(wxT("LC_PATH"));
if ( pszLcPath != NULL )
searchPath << GetAllMsgCatalogSubdirs(pszLcPath, lang);
+#endif
- // then take the current directory
- // FIXME it should be the directory of the executable
- searchPath << GetAllMsgCatalogSubdirs(wxT("."), lang);
-
- // and finally add some standard ones
+#ifdef __UNIX__
+ // add some standard ones and the one in the tree where wxWin was installed:
searchPath
+ << GetAllMsgCatalogSubdirs(wxString(wxGetInstallPrefix()) + wxT("/share/locale"), lang)
<< GetAllMsgCatalogSubdirs(wxT("/usr/share/locale"), lang)
<< GetAllMsgCatalogSubdirs(wxT("/usr/lib/locale"), lang)
<< GetAllMsgCatalogSubdirs(wxT("/usr/local/share/locale"), lang);
+#endif // __UNIX__
+
+ // then take the current directory
+ // FIXME it should be the directory of the executable
+#ifdef __WXMAC__
+ wxChar cwd[512] ;
+ wxGetWorkingDirectory( cwd , sizeof( cwd ) ) ;
+ searchPath << GetAllMsgCatalogSubdirs(cwd, lang);
+ // generic search paths could be somewhere in the system folder preferences
+#else // !Mac
+ searchPath << GetAllMsgCatalogSubdirs(wxT("."), lang);
+
+#endif // platform
return searchPath;
}
// open disk file and read in it's contents
-bool wxMsgCatalog::Load(const wxChar *szDirPrefix, const wxChar *szName0, bool bConvertEncoding)
+bool wxMsgCatalogFile::Load(const wxChar *szDirPrefix, const wxChar *szName0)
{
/* We need to handle locales like de_AT.iso-8859-1
For this we first chop off the .CHARSET specifier and ignore it.
Swap(pHeader->ofsOrigTable));
m_pTransTable = (wxMsgTableEntry *)(m_pData +
Swap(pHeader->ofsTransTable));
-
- m_nHashSize = Swap(pHeader->nHashSize);
- m_pHashTable = (size_t32 *)(m_pData + Swap(pHeader->ofsHashTable));
-
- m_pszName = new wxChar[wxStrlen(szName) + 1];
- wxStrcpy(m_pszName, szName);
-
- if (bConvertEncoding)
- ConvertEncoding();
+ m_nSize = nSize;
// everything is fine
return TRUE;
}
-// search for a string
-const char *wxMsgCatalog::GetString(const char *szOrig) const
+void wxMsgCatalogFile::FillHash(wxMessagesHash& hash, bool convertEncoding) const
{
- if ( szOrig == NULL )
- return NULL;
+ wxString charset = GetCharset();
- if ( HasHashTable() ) { // use hash table for lookup if possible
- size_t32 nHashVal = GetHash(szOrig);
- size_t32 nIndex = nHashVal % m_nHashSize;
+#if wxUSE_WCHAR_T
+ wxCSConv *csConv = NULL;
+ if ( !!charset )
+ csConv = new wxCSConv(charset);
- size_t32 nIncr = 1 + (nHashVal % (m_nHashSize - 2));
+ wxMBConv& inputConv = csConv ? *((wxMBConv*)csConv) : *wxConvCurrent;
-#if defined(__VISAGECPP__)
-// VA just can't stand while(1) or while(TRUE)
- bool bOs2var = TRUE;
- while(bOs2var) {
-#else
- while (1) {
-#endif
- size_t32 nStr = Swap(m_pHashTable[nIndex]);
- if ( nStr == 0 )
- return NULL;
-
- if ( strcmp(szOrig, StringAtOfs(m_pOrigTable, nStr - 1)) == 0 )
- return StringAtOfs(m_pTransTable, nStr - 1);
+ for (size_t i = 0; i < m_numStrings; i++)
+ {
+ wxString key(StringAtOfs(m_pOrigTable, i), inputConv);
- if ( nIndex >= m_nHashSize - nIncr)
- nIndex -= m_nHashSize - nIncr;
- else
- nIndex += nIncr;
- }
- }
- else { // no hash table: use default binary search
- size_t32 bottom = 0,
- top = m_numStrings,
- current;
- while ( bottom < top ) {
- current = (bottom + top) / 2;
- int res = strcmp(szOrig, StringAtOfs(m_pOrigTable, current));
- if ( res < 0 )
- top = current;
- else if ( res > 0 )
- bottom = current + 1;
- else // found!
- return StringAtOfs(m_pTransTable, current);
+ #if wxUSE_UNICODE
+ hash[key] = wxString(StringAtOfs(m_pTransTable, i), inputConv);
+ #else
+ if ( convertEncoding )
+ hash[key] =
+ wxString(inputConv.cMB2WC(StringAtOfs(m_pTransTable, i)),
+ wxConvLocal);
+ else
+ hash[key] = StringAtOfs(m_pTransTable, i);
+ #endif
}
- }
- // not found
- return NULL;
-}
+ delete csConv;
+#else // !wxUSE_WCHAR_T
+ #if wxUSE_FONTMAP
+ if ( convertEncoding )
+ {
+ wxFontEncoding targetEnc = wxFONTENCODING_SYSTEM;
+ wxFontEncoding enc = wxFontMapper::Get()->CharsetToEncoding(charset, FALSE);
+ if ( enc == wxFONTENCODING_SYSTEM )
+ {
+ convertEncoding = FALSE; // unknown encoding
+ }
+ else
+ {
+ targetEnc = wxLocale::GetSystemEncoding();
+ if (targetEnc == wxFONTENCODING_SYSTEM)
+ {
+ wxFontEncodingArray a = wxEncodingConverter::GetPlatformEquivalents(enc);
+ if (a[0] == enc)
+ // no conversion needed, locale uses native encoding
+ convertEncoding = FALSE;
+ if (a.GetCount() == 0)
+ // we don't know common equiv. under this platform
+ convertEncoding = FALSE;
+ targetEnc = a[0];
+ }
+ }
+ if ( convertEncoding )
+ {
+ wxEncodingConverter converter;
+ converter.Init(enc, targetEnc);
-#if wxUSE_GUI
-#include "wx/fontmap.h"
-#include "wx/encconv.h"
-#endif
+ for (size_t i = 0; i < m_numStrings; i++)
+ {
+ wxString key(StringAtOfs(m_pOrigTable, i));
+ hash[key] =
+ converter.Convert(wxString(StringAtOfs(m_pTransTable, i)));
+ }
+ }
+ }
-void wxMsgCatalog::ConvertEncoding()
-{
-#if wxUSE_GUI
- wxFontEncoding enc;
+ if ( !convertEncoding )
+ #endif // wxUSE_FONTMAP/!wxUSE_FONTMAP
+ {
+ for (size_t i = 0; i < m_numStrings; i++)
+ {
+ wxString key(StringAtOfs(m_pOrigTable, i));
+ hash[key] = StringAtOfs(m_pTransTable, i);
+ }
+ }
+#endif // wxUSE_WCHAR_T/!wxUSE_WCHAR_T
+}
+wxString wxMsgCatalogFile::GetCharset() const
+{
// first, find encoding header:
const char *hdr = StringAtOfs(m_pOrigTable, 0);
- if (hdr == NULL) return; // not supported by this catalog, does not have non-fuzzy header
- if (hdr[0] != 0) return; // ditto
+ if ( hdr == NULL || hdr[0] != 0 )
+ {
+ // not supported by this catalog, does not have correct header
+ return wxEmptyString;
+ }
- /* we support catalogs with header (msgid "") that is _not_ marked as "#, fuzzy" (otherwise
- the string would not be included into compiled catalog) */
- wxString header(StringAtOfs(m_pTransTable, 0));
+ wxString header = wxString::FromAscii( StringAtOfs(m_pTransTable, 0));
wxString charset;
int pos = header.Find(wxT("Content-Type: text/plain; charset="));
- if (pos == wxNOT_FOUND)
- return; // incorrectly filled Content-Type header
+ if ( pos == wxNOT_FOUND )
+ {
+ // incorrectly filled Content-Type header
+ return wxEmptyString;
+ }
+
size_t n = pos + 34; /*strlen("Content-Type: text/plain; charset=")*/
- while (header[n] != wxT('\n'))
+ while ( header[n] != wxT('\n') )
charset << header[n++];
- enc = wxTheFontMapper->CharsetToEncoding(charset, FALSE);
- if ( enc == wxFONTENCODING_SYSTEM )
- return; // unknown encoding
+ if ( charset == wxT("CHARSET") )
+ {
+ // "CHARSET" is not valid charset, but lazy translator
+ return wxEmptyString;
+ }
- wxFontEncodingArray a = wxEncodingConverter::GetPlatformEquivalents(enc);
- if (a[0] == enc)
- return; // no conversion needed, locale uses native encoding
+ return charset;
+}
- if (a.GetCount() == 0)
- return; // we don't know common equiv. under this platform
+// ----------------------------------------------------------------------------
+// wxMsgCatalog class
+// ----------------------------------------------------------------------------
+
+bool wxMsgCatalog::Load(const wxChar *szDirPrefix, const wxChar *szName,
+ bool bConvertEncoding)
+{
+ wxMsgCatalogFile file;
- wxEncodingConverter converter;
+ m_name = szName;
- converter.Init(enc, a[0]);
- for (size_t i = 0; i < m_numStrings; i++)
- converter.Convert((char*)StringAtOfs(m_pTransTable, i));
-#endif
+ if ( file.Load(szDirPrefix, szName) )
+ {
+ file.FillHash(m_messages, bConvertEncoding);
+ return TRUE;
+ }
+
+ return FALSE;
}
+const wxChar *wxMsgCatalog::GetString(const wxChar *sz) const
+{
+ wxMessagesHash::const_iterator i = m_messages.find(sz);
+ if ( i != m_messages.end() )
+ {
+ return i->second.c_str();
+ }
+ else
+ return NULL;
+}
// ----------------------------------------------------------------------------
// wxLocale
WX_DECLARE_EXPORTED_OBJARRAY(wxLanguageInfo, wxLanguageInfoArray);
WX_DEFINE_OBJARRAY(wxLanguageInfoArray);
+wxLanguageInfoArray *wxLocale::ms_languagesDB = NULL;
+
+/*static*/ void wxLocale::CreateLanguagesDB()
+{
+ if (ms_languagesDB == NULL)
+ {
+ ms_languagesDB = new wxLanguageInfoArray;
+ InitLanguagesDB();
+ }
+}
+
+/*static*/ void wxLocale::DestroyLanguagesDB()
+{
+ delete ms_languagesDB;
+ ms_languagesDB = NULL;
+}
wxLocale::wxLocale()
{
m_pszOldLocale = NULL;
m_pMsgCat = NULL;
- m_languagesDB = NULL;
m_language = wxLANGUAGE_UNKNOWN;
}
{
// the argument to setlocale()
szLocale = szShort;
+
+ wxCHECK_MSG( szLocale, FALSE, _T("no locale to set in wxLocale::Init()") );
+ }
+
+#ifdef __WXWINCE__
+ // FIXME: I'm guessing here
+ wxChar localeName[256];
+ int ret = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLANGUAGE, localeName,
+ 256);
+ if (ret != 0)
+ {
+ m_pszOldLocale = wxStrdup(localeName);
}
- m_pszOldLocale = wxSetlocale(LC_ALL, szLocale);
+ else
+ m_pszOldLocale = NULL;
+
+ // TODO: how to find languageId
+ // SetLocaleInfo(languageId, SORT_DEFAULT, localeName);
+#else
+ m_pszOldLocale = wxStrdup(wxSetlocale(LC_ALL, szLocale));
+#endif
+
if ( m_pszOldLocale == NULL )
wxLogError(_("locale '%s' can not be set."), szLocale);
if ( m_strShort.IsEmpty() ) {
// FIXME I don't know how these 2 letter abbreviations are formed,
// this wild guess is surely wrong
- m_strShort = tolower(szLocale[0]) + tolower(szLocale[1]);
+ if ( szLocale[0] )
+ {
+ m_strShort += (wxChar)wxTolower(szLocale[0]);
+ if ( szLocale[1] )
+ m_strShort += (wxChar)wxTolower(szLocale[1]);
+ }
}
// save the old locale to be able to restore it later
}
-
-bool wxLocale::Init(int language, int flags)
+#if defined(__UNIX__) && wxUSE_UNICODE
+static wxWCharBuffer wxSetlocaleTryUTF(int c, const wxChar *lc)
{
- wxLanguageInfo *info = NULL;
- int lang = language;
-
- if (m_languagesDB == NULL)
+ wxMB2WXbuf l = wxSetlocale(c, lc);
+ if ( lc && lc[0] != 0 && !l )
{
- m_languagesDB = new wxLanguageInfoArray;
- InitLanguagesDB();
+ wxString buf(lc);
+ buf += wxT(".utf8");
+ l = wxSetlocale(c, buf.c_str());
}
+ return l;
+}
+#else
+#define wxSetlocaleTryUTF(c, lc) wxSetlocale(c, lc)
+#endif
- if (lang == wxLANGUAGE_DEFAULT) lang = GetSystemLanguage();
- if (lang != wxLANGUAGE_UNKNOWN)
+bool wxLocale::Init(int language, int flags)
+{
+ int lang = language;
+ if (lang == wxLANGUAGE_DEFAULT)
{
- for (size_t i = 0; i < m_languagesDB->GetCount(); i++)
- {
- if (m_languagesDB->Item(i).Language == lang)
- {
- info = &m_languagesDB->Item(i);
- break;
- }
- }
+ // auto detect the language
+ lang = GetSystemLanguage();
}
// We failed to detect system language, so we will use English:
{
return FALSE;
}
+
+ const wxLanguageInfo *info = GetLanguageInfo(lang);
+
// Unknown language:
if (info == NULL)
{
wxString name = info->Description;
wxString canonical = info->CanonicalName;
wxString locale;
- wxChar *retloc;
-
+
// Set the locale:
-#ifdef __UNIX__
- if (language == wxLANGUAGE_DEFAULT) locale = wxEmptyString;
- else locale = info->CanonicalName;
+#if defined(__UNIX__) && !defined(__WXMAC__)
+ if (language == wxLANGUAGE_DEFAULT)
+ locale = wxEmptyString;
+ else
+ locale = info->CanonicalName;
- retloc = wxSetlocale(LC_ALL, locale);
+ wxMB2WXbuf retloc = wxSetlocaleTryUTF(LC_ALL, locale);
- if (retloc == NULL)
+ if ( !retloc )
{
// Some C libraries don't like xx_YY form and require xx only
- retloc = wxSetlocale(LC_ALL, locale.Mid(0,2));
+ retloc = wxSetlocaleTryUTF(LC_ALL, locale.Mid(0,2));
}
- if (retloc == NULL)
+ if ( !retloc )
{
// Some C libraries (namely glibc) still use old ISO 639,
// so will translate the abbrev for them
wxString mid = locale.Mid(0,2);
- if (mid == wxT("he")) locale = wxT("iw") + locale.Mid(3);
- else if (mid == wxT("id")) locale = wxT("in") + locale.Mid(3);
- else if (mid == wxT("yi")) locale = wxT("ji") + locale.Mid(3);
- retloc = wxSetlocale(LC_ALL, locale);
+ if (mid == wxT("he"))
+ locale = wxT("iw") + locale.Mid(3);
+ else if (mid == wxT("id"))
+ locale = wxT("in") + locale.Mid(3);
+ else if (mid == wxT("yi"))
+ locale = wxT("ji") + locale.Mid(3);
+ else if (mid == wxT("nb"))
+ locale = wxT("no_NO");
+ else if (mid == wxT("nn"))
+ locale = wxT("no_NY");
+
+ retloc = wxSetlocaleTryUTF(LC_ALL, locale);
}
- if (retloc == NULL)
+ if ( !retloc )
{
// (This time, we changed locale in previous if-branch, so try again.)
// Some C libraries don't like xx_YY form and require xx only
- retloc = wxSetlocale(LC_ALL, locale.Mid(0,2));
+ retloc = wxSetlocaleTryUTF(LC_ALL, locale.Mid(0,2));
}
- if (retloc == NULL)
+ if ( !retloc )
{
wxLogError(wxT("Cannot set locale to '%s'."), locale.c_str());
return FALSE;
}
-
#elif defined(__WIN32__)
+
+ #if wxUSE_UNICODE && (defined(__VISUALC__) || defined(__MINGW32__))
+ // NB: setlocale() from msvcrt.dll (used by VC++ and Mingw)
+ // can't set locale to language that can only be written using
+ // Unicode. Therefore wxSetlocale call failed, but we don't want
+ // to report it as an error -- so that at least message catalogs
+ // can be used. Watch for code marked with
+ // #ifdef SETLOCALE_FAILS_ON_UNICODE_LANGS bellow.
+ #define SETLOCALE_FAILS_ON_UNICODE_LANGS
+ #endif
+
+ wxMB2WXbuf retloc = wxT("C");
if (language != wxLANGUAGE_DEFAULT)
{
if (info->WinLang == 0)
{
wxLogWarning(wxT("Locale '%s' not supported by OS."), name.c_str());
- retloc = wxT("C");
+ // retloc already set to "C"
}
else
- {
- wxUint32 lcid = MAKELCID(MAKELANGID(info->WinLang, info->WinSublang),
+ {
+ int codepage = -1;
+ wxUint32 lcid = MAKELCID(MAKELANGID(info->WinLang, info->WinSublang),
SORT_DEFAULT);
- if (SetThreadLocale(lcid))
- retloc = wxSetlocale(LC_ALL, wxEmptyString);
+ // FIXME
+#ifndef __WXWINCE__
+ SetThreadLocale(lcid);
+#endif
+ // NB: we must translate LCID to CRT's setlocale string ourselves,
+ // because SetThreadLocale does not modify change the
+ // interpretation of setlocale(LC_ALL, "") call:
+ wxChar buffer[256];
+ buffer[0] = wxT('\0');
+ GetLocaleInfo(lcid, LOCALE_SENGLANGUAGE, buffer, 256);
+ locale << buffer;
+ if (GetLocaleInfo(lcid, LOCALE_SENGCOUNTRY, buffer, 256) > 0)
+ locale << wxT("_") << buffer;
+ if (GetLocaleInfo(lcid, LOCALE_IDEFAULTANSICODEPAGE, buffer, 256) > 0)
+ {
+ codepage = wxAtoi(buffer);
+ if (codepage != 0)
+ locale << wxT(".") << buffer;
+ }
+ if (locale.IsEmpty())
+ {
+ wxLogLastError(wxT("SetThreadLocale"));
+ wxLogError(wxT("Cannot set locale to language %s."), name.c_str());
+ return FALSE;
+ }
else
{
- // Windows9X doesn't support SetThreadLocale, so we must
- // translate LCID to CRT's setlocale string ourselves
- locale.Empty();
- if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
- {
- wxChar buffer[256];
- buffer[0] = wxT('\0');
- GetLocaleInfo(lcid, LOCALE_SENGLANGUAGE, buffer, 256);
- locale << buffer;
- if (GetLocaleInfo(lcid, LOCALE_SENGCOUNTRY, buffer, 256) > 0)
- locale << wxT("_") << buffer;
- }
- if (locale.IsEmpty())
+ // FIXME
+#ifndef __WXWINCE__
+ retloc = wxSetlocale(LC_ALL, locale);
+#endif
+#ifdef SETLOCALE_FAILS_ON_UNICODE_LANGS
+ if (codepage == 0 && (const wxChar*)retloc == NULL)
{
- wxLogLastError(wxT("SetThreadLocale"));
- wxLogError(wxT("Cannot set locale to language %s."), name.c_str());
- return FALSE;
+ retloc = wxT("C");
}
- else
- retloc = wxSetlocale(LC_ALL, locale);
+#endif
}
}
}
else
+ {
+ // FIXME
+#ifndef __WXWINCE__
retloc = wxSetlocale(LC_ALL, wxEmptyString);
+#else
+ retloc = NULL;
+#endif
+#ifdef SETLOCALE_FAILS_ON_UNICODE_LANGS
+ if ((const wxChar*)retloc == NULL)
+ {
+ wxChar buffer[16];
+ if (GetLocaleInfo(LOCALE_USER_DEFAULT,
+ LOCALE_IDEFAULTANSICODEPAGE, buffer, 16) > 0 &&
+ wxStrcmp(buffer, wxT("0")) == 0)
+ {
+ retloc = wxT("C");
+ }
+ }
+#endif
+ }
- if (retloc == NULL)
+ if ( !retloc )
{
wxLogError(wxT("Cannot set locale to language %s."), name.c_str());
return FALSE;
}
-
+#elif defined(__WXMAC__) || defined(__WXPM__)
+ wxMB2WXbuf retloc = wxSetlocale(LC_ALL , wxEmptyString);
#else
return FALSE;
+ #define WX_NO_LOCALE_SUPPORT
+#endif
+
+#ifndef WX_NO_LOCALE_SUPPORT
+ wxChar *szLocale = retloc ? wxStrdup(retloc) : NULL;
+ bool ret = Init(name, canonical, retloc,
+ (flags & wxLOCALE_LOAD_DEFAULT) != 0,
+ (flags & wxLOCALE_CONV_ENCODING) != 0);
+ free(szLocale);
+
+ if ( ret )
+ m_language = lang;
+
+ return ret;
#endif
-
- return Init(name, canonical, wxString(retloc),
- (flags & wxLOCALE_LOAD_DEFAULT) != 0,
- (flags & wxLOCALE_CONV_ENCODING) != 0);
}
//else: already have it
}
-
-int wxLocale::GetSystemLanguage() const
+/*static*/ int wxLocale::GetSystemLanguage()
{
- int wxlang = wxLANGUAGE_UNKNOWN;
- size_t i;
+ CreateLanguagesDB();
+
+ // init i to avoid compiler warning
+ size_t i = 0,
+ count = ms_languagesDB->GetCount();
+
+#if defined(__UNIX__) && !defined(__WXMAC__)
+ // first get the string identifying the language from the environment
+ wxString langFull;
+ if (!wxGetEnv(wxT("LC_ALL"), &langFull) &&
+ !wxGetEnv(wxT("LC_MESSAGES"), &langFull) &&
+ !wxGetEnv(wxT("LANG"), &langFull))
+ {
+ // no language specified, threat it as English
+ return wxLANGUAGE_ENGLISH;
+ }
- wxASSERT_MSG(m_languagesDB != NULL, "Languages DB not initialized, call wxLocale::Init!");
-
-#if defined(__UNIX__)
- wxString lang;
- if (!wxGetEnv(wxT("LC_ALL"), &lang) &&
- !wxGetEnv(wxT("LC_MESSAGES"), &lang) &&
- !wxGetEnv(wxT("LANG"), &lang))
- return wxLANGUAGE_UNKNOWN;
-
- bool is_abbrev = lang.Len() == 2 ||
- (lang.Len() == 5 && lang[2] == wxT('_'));
-
- // 0. Make sure the abbrev is according to latest ISO 639
- // (this is neccessary because glibc uses iw and in instead
- // of he and id respectively).
- if (is_abbrev)
+ if ( langFull == _T("C") || langFull == _T("POSIX") )
{
- wxString mid = lang.Mid(0,2);
- if (mid == wxT("iw")) lang = wxT("he") + lang.Mid(3);
- else if (mid == wxT("in")) lang = wxT("id") + lang.Mid(3);
- else if (mid == wxT("ji")) lang = wxT("yi") + lang.Mid(3);
+ // default C locale
+ return wxLANGUAGE_ENGLISH;
}
- // 1. Try to find the lang as is:
- if (is_abbrev)
+ // the language string has the following form
+ //
+ // lang[_LANG][.encoding][@modifier]
+ //
+ // (see environ(5) in the Open Unix specification)
+ //
+ // where lang is the primary language, LANG is a sublang/territory,
+ // encoding is the charset to use and modifier "allows the user to select
+ // a specific instance of localization data within a single category"
+ //
+ // for example, the following strings are valid:
+ // fr
+ // fr_FR
+ // de_DE.iso88591
+ // de_DE@euro
+ // de_DE.iso88591@euro
+
+ // for now we don't use the encoding, although we probably should (doing
+ // translations of the msg catalogs on the fly as required) (TODO)
+ //
+ // we don't use the modifiers neither but we probably should translate
+ // "euro" into iso885915
+ size_t posEndLang = langFull.find_first_of(_T("@."));
+ if ( posEndLang != wxString::npos )
{
- for (i = 0; i < m_languagesDB->GetCount(); i++)
+ langFull.Truncate(posEndLang);
+ }
+
+ // in addition to the format above, we also can have full language names
+ // in LANG env var - for example, SuSE is known to use LANG="german" - so
+ // check for this
+
+ // do we have just the language (or sublang too)?
+ bool justLang = langFull.Len() == LEN_LANG;
+ if ( justLang ||
+ (langFull.Len() == LEN_FULL && langFull[LEN_LANG] == wxT('_')) )
+ {
+ // 0. Make sure the lang is according to latest ISO 639
+ // (this is neccessary because glibc uses iw and in instead
+ // of he and id respectively).
+
+ // the language itself (second part is the dialect/sublang)
+ wxString langOrig = ExtractLang(langFull);
+
+ wxString lang;
+ if ( langOrig == wxT("iw"))
+ lang = _T("he");
+ else if (langOrig == wxT("in"))
+ lang = wxT("id");
+ else if (langOrig == wxT("ji"))
+ lang = wxT("yi");
+ else if (langOrig == wxT("no_NO"))
+ lang = wxT("nb_NO");
+ else if (langOrig == wxT("no_NY"))
+ lang = wxT("nn_NO");
+ else if (langOrig == wxT("no"))
+ lang = wxT("nb_NO");
+ else
+ lang = langOrig;
+
+ // did we change it?
+ if ( lang != langOrig )
{
- if (m_languagesDB->Item(i).CanonicalName == lang)
+ langFull = lang + ExtractNotLang(langFull);
+ }
+
+ // 1. Try to find the language either as is:
+ for ( i = 0; i < count; i++ )
+ {
+ if ( ms_languagesDB->Item(i).CanonicalName == langFull )
{
- wxlang = m_languagesDB->Item(i).Language;
break;
}
}
- }
- // 2. If lang is of the form xx_YY, try to find xx:
- if (wxlang == wxLANGUAGE_UNKNOWN && is_abbrev && lang.Len() == 5)
- {
- wxString lang2 = lang.Mid(0,2);
- for (i = 0; i < m_languagesDB->GetCount(); i++)
+ // 2. If langFull is of the form xx_YY, try to find xx:
+ if ( i == count && !justLang )
{
- if (m_languagesDB->Item(i).CanonicalName == lang2)
+ for ( i = 0; i < count; i++ )
{
- wxlang = m_languagesDB->Item(i).Language;
- break;
+ if ( ms_languagesDB->Item(i).CanonicalName == lang )
+ {
+ break;
+ }
}
}
- }
- // 3. If lang is of the form xx, try to find any xx_YY record:
- if (wxlang == wxLANGUAGE_UNKNOWN && is_abbrev && lang.Len() == 2)
+ // 3. If langFull is of the form xx, try to find any xx_YY record:
+ if ( i == count && justLang )
+ {
+ for ( i = 0; i < count; i++ )
+ {
+ if ( ExtractLang(ms_languagesDB->Item(i).CanonicalName)
+ == langFull )
+ {
+ break;
+ }
+ }
+ }
+ }
+ else // not standard format
{
- for (i = 0; i < m_languagesDB->GetCount(); i++)
+ // try to find the name in verbose description
+ for ( i = 0; i < count; i++ )
{
- if (m_languagesDB->Item(i).CanonicalName.Mid(0,2) == lang)
+ if (ms_languagesDB->Item(i).Description.CmpNoCase(langFull) == 0)
{
- wxlang = m_languagesDB->Item(i).Language;
break;
}
}
}
+#elif defined(__WXMAC__)
+ const wxChar * lc = NULL ;
+ long lang = GetScriptVariable( smSystemScript, smScriptLang) ;
+ switch( GetScriptManagerVariable( smRegionCode ) ) {
+ case verUS :
+ lc = wxT("en_US") ;
+ break ;
+ case verFrance :
+ lc = wxT("fr_FR") ;
+ break ;
+ case verBritain :
+ lc = wxT("en_GB") ;
+ break ;
+ case verGermany :
+ lc = wxT("de_DE") ;
+ break ;
+ case verItaly :
+ lc = wxT("it_IT") ;
+ break ;
+ case verNetherlands :
+ lc = wxT("nl_NL") ;
+ break ;
+ case verFlemish :
+ lc = wxT("nl_BE") ;
+ break ;
+ case verSweden :
+ lc = wxT("sv_SE" );
+ break ;
+ case verSpain :
+ lc = wxT("es_ES" );
+ break ;
+ case verDenmark :
+ lc = wxT("da_DK") ;
+ break ;
+ case verPortugal :
+ lc = wxT("pt_PT") ;
+ break ;
+ case verFrCanada:
+ lc = wxT("fr_CA") ;
+ break ;
+ case verNorway:
+ lc = wxT("nb_NO") ;
+ break ;
+ case verIsrael:
+ lc = wxT("iw_IL") ;
+ break ;
+ case verJapan:
+ lc = wxT("ja_JP") ;
+ break ;
+ case verAustralia:
+ lc = wxT("en_AU") ;
+ break ;
+ case verArabic:
+ lc = wxT("ar") ;
+ break ;
+ case verFinland:
+ lc = wxT("fi_FI") ;
+ break ;
+ case verFrSwiss:
+ lc = wxT("fr_CH") ;
+ break ;
+ case verGrSwiss:
+ lc = wxT("de_CH") ;
+ break ;
+ case verGreece:
+ lc = wxT("el_GR") ;
+ break ;
+ case verIceland:
+ lc = wxT("is_IS") ;
+ break ;
+ case verMalta:
+ lc = wxT("mt_MT") ;
+ break ;
+ case verCyprus:
+ // _CY is not part of wx, so we have to translate according to the system language
+ if ( lang == langGreek ) {
+ lc = wxT("el_GR") ;
+ }
+ else if ( lang == langTurkish ) {
+ lc = wxT("tr_TR") ;
+ }
+ break ;
+ case verTurkey:
+ lc = wxT("tr_TR") ;
+ break ;
+ case verYugoCroatian:
+ lc = wxT("hr_HR") ;
+ break ;
+ case verIndiaHindi:
+ lc = wxT("hi_IN") ;
+ break ;
+ case verPakistanUrdu:
+ lc = wxT("ur_PK") ;
+ break ;
+ case verTurkishModified:
+ lc = wxT("tr_TR") ;
+ break ;
+ case verItalianSwiss:
+ lc = wxT("it_CH") ;
+ break ;
+ case verInternational:
+ lc = wxT("en") ;
+ break ;
+ case verRomania:
+ lc = wxT("ro_RO") ;
+ break ;
+ case verGreecePoly:
+ lc = wxT("el_GR") ;
+ break ;
+ case verLithuania:
+ lc = wxT("lt_LT") ;
+ break ;
+ case verPoland:
+ lc = wxT("pl_PL") ;
+ break ;
+ case verMagyar :
+ case verHungary:
+ lc = wxT("hu_HU") ;
+ break ;
+ case verEstonia:
+ lc = wxT("et_EE") ;
+ break ;
+ case verLatvia:
+ lc = wxT("lv_LV") ;
+ break ;
+ case verSami:
+ // not known
+ break ;
+ case verFaroeIsl:
+ lc = wxT("fo_FO") ;
+ break ;
+ case verIran:
+ lc = wxT("fa_IR") ;
+ break ;
+ case verRussia:
+ lc = wxT("ru_RU") ;
+ break ;
+ case verIreland:
+ lc = wxT("ga_IE") ;
+ break ;
+ case verKorea:
+ lc = wxT("ko_KR") ;
+ break ;
+ case verChina:
+ lc = wxT("zh_CN") ;
+ break ;
+ case verTaiwan:
+ lc = wxT("zh_TW") ;
+ break ;
+ case verThailand:
+ lc = wxT("th_TH") ;
+ break ;
+ case verCzech:
+ lc = wxT("cs_CZ") ;
+ break ;
+ case verSlovak:
+ lc = wxT("sk_SK") ;
+ break ;
+ case verBengali:
+ lc = wxT("bn") ;
+ break ;
+ case verByeloRussian:
+ lc = wxT("be_BY") ;
+ break ;
+ case verUkraine:
+ lc = wxT("uk_UA") ;
+ break ;
+ case verGreeceAlt:
+ lc = wxT("el_GR") ;
+ break ;
+ case verSerbian:
+ lc = wxT("sr_YU") ;
+ break ;
+ case verSlovenian:
+ lc = wxT("sl_SI") ;
+ break ;
+ case verMacedonian:
+ lc = wxT("mk_MK") ;
+ break ;
+ case verCroatia:
+ lc = wxT("hr_HR") ;
+ break ;
+ case verBrazil:
+ lc = wxT("pt_BR ") ;
+ break ;
+ case verBulgaria:
+ lc = wxT("bg_BG") ;
+ break ;
+ case verCatalonia:
+ lc = wxT("ca_ES") ;
+ break ;
+ case verScottishGaelic:
+ lc = wxT("gd") ;
+ break ;
+ case verManxGaelic:
+ lc = wxT("gv") ;
+ break ;
+ case verBreton:
+ lc = wxT("br") ;
+ break ;
+ case verNunavut:
+ lc = wxT("iu_CA") ;
+ break ;
+ case verWelsh:
+ lc = wxT("cy") ;
+ break ;
+ case verIrishGaelicScript:
+ lc = wxT("ga_IE") ;
+ break ;
+ case verEngCanada:
+ lc = wxT("en_CA") ;
+ break ;
+ case verBhutan:
+ lc = wxT("dz_BT") ;
+ break ;
+ case verArmenian:
+ lc = wxT("hy_AM") ;
+ break ;
+ case verGeorgian:
+ lc = wxT("ka_GE") ;
+ break ;
+ case verSpLatinAmerica:
+ lc = wxT("es_AR") ;
+ break ;
+ case verTonga:
+ lc = wxT("to_TO" );
+ break ;
+ case verFrenchUniversal:
+ lc = wxT("fr_FR") ;
+ break ;
+ case verAustria:
+ lc = wxT("de_AT") ;
+ break ;
+ case verGujarati:
+ lc = wxT("gu_IN") ;
+ break ;
+ case verPunjabi:
+ lc = wxT("pa") ;
+ break ;
+ case verIndiaUrdu:
+ lc = wxT("ur_IN") ;
+ break ;
+ case verVietnam:
+ lc = wxT("vi_VN") ;
+ break ;
+ case verFrBelgium:
+ lc = wxT("fr_BE") ;
+ break ;
+ case verUzbek:
+ lc = wxT("uz_UZ") ;
+ break ;
+ case verSingapore:
+ lc = wxT("zh_SG") ;
+ break ;
+ case verNynorsk:
+ lc = wxT("nn_NO") ;
+ break ;
+ case verAfrikaans:
+ lc = wxT("af_ZA") ;
+ break ;
+ case verEsperanto:
+ lc = wxT("eo") ;
+ break ;
+ case verMarathi:
+ lc = wxT("mr_IN") ;
+ break ;
+ case verTibetan:
+ lc = wxT("bo") ;
+ break ;
+ case verNepal:
+ lc = wxT("ne_NP") ;
+ break ;
+ case verGreenland:
+ lc = wxT("kl_GL") ;
+ break ;
+ default :
+ break ;
+ }
+ for ( i = 0; i < count; i++ )
+ {
+ if ( ms_languagesDB->Item(i).CanonicalName == lc )
+ {
+ break;
+ }
+ }
- // 4. If everything failed, try to find the name in verbose description
- // (SuSE is known to use LANG="german"):
- if (wxlang == wxLANGUAGE_UNKNOWN && !is_abbrev)
+#elif defined(__WIN32__)
+ LCID lcid = GetUserDefaultLCID();
+ if ( lcid != 0 )
{
- for (i = 0; i < m_languagesDB->GetCount(); i++)
+ wxUint32 lang = PRIMARYLANGID(LANGIDFROMLCID(lcid));
+ wxUint32 sublang = SUBLANGID(LANGIDFROMLCID(lcid));
+
+ for ( i = 0; i < count; i++ )
{
- if (m_languagesDB->Item(i).Description.CmpNoCase(lang) == 0)
+ if (ms_languagesDB->Item(i).WinLang == lang &&
+ ms_languagesDB->Item(i).WinSublang == sublang)
{
- wxlang = m_languagesDB->Item(i).Language;
break;
}
}
}
+ //else: leave wxlang == wxLANGUAGE_UNKNOWN
+#endif // Unix/Win32
-#elif defined(__WIN32__)
- LCID lcid = GetUserDefaultLCID();
- if (lcid == 0) return wxLANGUAGE_UNKNOWN;
- wxUint32 lang = PRIMARYLANGID(LANGIDFROMLCID(lcid));
- wxUint32 sublang = SUBLANGID(LANGIDFROMLCID(lcid));
+ if ( i < count )
+ {
+ // we did find a matching entry, use it
+ return ms_languagesDB->Item(i).Language;
+ }
+
+ // no info about this language in the database
+ return wxLANGUAGE_UNKNOWN;
+}
- for (i = 0; i < m_languagesDB->GetCount(); i++)
+// ----------------------------------------------------------------------------
+// encoding stuff
+// ----------------------------------------------------------------------------
+
+// this is a bit strange as under Windows we get the encoding name using its
+// numeric value and under Unix we do it the other way round, but this just
+// reflects the way different systems provide he encoding info
+
+/* static */
+wxString wxLocale::GetSystemEncodingName()
+{
+ wxString encname;
+
+#if defined(__WIN32__) && !defined(__WXMICROWIN__)
+ // FIXME: what is the error return value for GetACP()?
+ UINT codepage = ::GetACP();
+ encname.Printf(_T("windows-%u"), codepage);
+#elif defined(__UNIX_LIKE__)
+
+#if defined(HAVE_LANGINFO_H) && defined(CODESET)
+ // GNU libc provides current character set this way (this conforms
+ // to Unix98)
+ char *oldLocale = strdup(setlocale(LC_CTYPE, NULL));
+ setlocale(LC_CTYPE, "");
+ char *alang = nl_langinfo(CODESET);
+ setlocale(LC_CTYPE, oldLocale);
+ free(oldLocale);
+
+ if ( alang )
{
- if (m_languagesDB->Item(i).WinLang == lang &&
- m_languagesDB->Item(i).WinSublang == sublang)
+ // 7 bit ASCII encoding has several alternative names which we should
+ // recognize to avoid warnings about unrecognized encoding on each
+ // program startup
+
+ // nl_langinfo() under Solaris returns 646 by default which stands for
+ // ISO-646, i.e. 7 bit ASCII
+ //
+ // and recent glibc call it ANSI_X3.4-1968...
+ if ( strcmp(alang, "646") == 0 ||
+ strcmp(alang, "ANSI_X3.4-1968") == 0 )
{
- wxlang = m_languagesDB->Item(i).Language;
- break;
+ encname = _T("US-ASCII");
+ }
+ else
+ {
+ encname = wxString::FromAscii( alang );
}
}
-#endif
+ else
+#endif // HAVE_LANGINFO_H
+ {
+ // if we can't get at the character set directly, try to see if it's in
+ // the environment variables (in most cases this won't work, but I was
+ // out of ideas)
+ char *lang = getenv( "LC_ALL");
+ char *dot = lang ? strchr(lang, '.') : (char *)NULL;
+ if (!dot)
+ {
+ lang = getenv( "LC_CTYPE" );
+ if ( lang )
+ dot = strchr(lang, '.' );
+ }
+ if (!dot)
+ {
+ lang = getenv( "LANG");
+ if ( lang )
+ dot = strchr(lang, '.');
+ }
+
+ if ( dot )
+ {
+ encname = wxString::FromAscii( dot+1 );
+ }
+ }
+#endif // Win32/Unix
- return wxlang;
+ return encname;
}
+/* static */
+wxFontEncoding wxLocale::GetSystemEncoding()
+{
+#if defined(__WIN32__) && !defined(__WXMICROWIN__)
+ UINT codepage = ::GetACP();
+
+ // wxWindows only knows about CP1250-1257, 932, 936, 949, 950
+ if ( codepage >= 1250 && codepage <= 1257 )
+ {
+ return (wxFontEncoding)(wxFONTENCODING_CP1250 + codepage - 1250);
+ }
+
+ if ( codepage == 932 )
+ {
+ return wxFONTENCODING_CP932;
+ }
+
+ if ( codepage == 936 )
+ {
+ return wxFONTENCODING_CP936;
+ }
+
+ if ( codepage == 949 )
+ {
+ return wxFONTENCODING_CP949;
+ }
+
+ if ( codepage == 950 )
+ {
+ return wxFONTENCODING_CP950;
+ }
+#elif defined(__UNIX_LIKE__) && wxUSE_FONTMAP
+ wxString encname = GetSystemEncodingName();
+ if ( !encname.empty() )
+ {
+ wxFontEncoding enc = wxFontMapper::Get()->
+ CharsetToEncoding(encname, FALSE /* not interactive */);
+
+ // on some modern Linux systems (RedHat 8) the default system locale
+ // is UTF8 -- but it isn't supported by wxGTK in ANSI build at all so
+ // don't even try to use it in this case
+#if !wxUSE_UNICODE
+ if ( enc == wxFONTENCODING_UTF8 )
+ {
+ // the most similar supported encoding...
+ enc = wxFONTENCODING_ISO8859_1;
+ }
+#endif // !wxUSE_UNICODE
+
+ // this should probably be considered as a bug in CharsetToEncoding():
+ // it shouldn't return wxFONTENCODING_DEFAULT at all - but it does it
+ // for US-ASCII charset
+ //
+ // we, OTOH, definitely shouldn't return it as it doesn't make sense at
+ // all (which encoding is it?)
+ if ( enc != wxFONTENCODING_DEFAULT )
+ {
+ return enc;
+ }
+ //else: return wxFONTENCODING_SYSTEM below
+ }
+#endif // Win32/Unix
+ return wxFONTENCODING_SYSTEM;
+}
+/* static */
void wxLocale::AddLanguage(const wxLanguageInfo& info)
{
- wxASSERT_MSG(m_languagesDB != NULL, "Languages DB not initialized, call wxLocale::Init!");
- m_languagesDB->Add(info);
+ CreateLanguagesDB();
+ ms_languagesDB->Add(info);
}
+/* static */
+const wxLanguageInfo *wxLocale::GetLanguageInfo(int lang)
+{
+ CreateLanguagesDB();
+ const size_t count = ms_languagesDB->GetCount();
+ for ( size_t i = 0; i < count; i++ )
+ {
+ if ( ms_languagesDB->Item(i).Language == lang )
+ {
+ return &ms_languagesDB->Item(i);
+ }
+ }
-wxString wxLocale::GetSysName() const
+ return NULL;
+}
+
+/* static */
+wxString wxLocale::GetLanguageName(int lang)
{
- return wxSetlocale(LC_ALL, NULL);
+ const wxLanguageInfo *info = GetLanguageInfo(lang);
+ if ( !info )
+ return wxEmptyString;
+ else
+ return info->Description;
}
+/* static */
+const wxLanguageInfo *wxLocale::FindLanguageInfo(const wxString& locale)
+{
+ CreateLanguagesDB();
+ const wxLanguageInfo *infoRet = NULL;
+
+ const size_t count = ms_languagesDB->GetCount();
+ for ( size_t i = 0; i < count; i++ )
+ {
+ const wxLanguageInfo *info = &ms_languagesDB->Item(i);
+
+ if ( wxStricmp(locale, info->CanonicalName) == 0 ||
+ wxStricmp(locale, info->Description) == 0 )
+ {
+ // exact match, stop searching
+ infoRet = info;
+ break;
+ }
+
+ if ( wxStricmp(locale, info->CanonicalName.BeforeFirst(_T('_'))) == 0 )
+ {
+ // a match -- but maybe we'll find an exact one later, so continue
+ // looking
+ //
+ // OTOH, maybe we had already found a language match and in this
+ // case don't overwrite it becauce the entry for the default
+ // country always appears first in ms_languagesDB
+ if ( !infoRet )
+ infoRet = info;
+ }
+ }
+
+ return infoRet;
+}
+
+wxString wxLocale::GetSysName() const
+{
+ // FIXME
+#ifndef __WXWINCE__
+ return wxSetlocale(LC_ALL, NULL);
+#else
+ return wxEmptyString;
+#endif
+}
// clean up
wxLocale::~wxLocale()
delete pTmpCat;
}
- delete m_languagesDB;
-
// restore old locale
wxSetLocale(m_pOldLocale);
+ // FIXME
+#ifndef __WXWINCE__
wxSetlocale(LC_ALL, m_pszOldLocale);
+#endif
+ free((wxChar *)m_pszOldLocale); // const_cast
}
// get the translation of given string in current locale
-const wxMB2WXbuf wxLocale::GetString(const wxChar *szOrigString,
- const wxChar *szDomain) const
+const wxChar *wxLocale::GetString(const wxChar *szOrigString,
+ const wxChar *szDomain) const
{
- if ( wxIsEmpty(szOrigString) )
- return szDomain;
-
- const char *pszTrans = NULL;
-#if wxUSE_UNICODE
- const wxWX2MBbuf szOrgString = wxConvCurrent->cWX2MB(szOrigString);
-#else // ANSI
- #define szOrgString szOrigString
-#endif // Unicode/ANSI
-
- wxMsgCatalog *pMsgCat;
- if ( szDomain != NULL ) {
- pMsgCat = FindCatalog(szDomain);
-
- // does the catalog exist?
- if ( pMsgCat != NULL )
- pszTrans = pMsgCat->GetString(szOrgString);
- }
- else {
- // search in all domains
- for ( pMsgCat = m_pMsgCat; pMsgCat != NULL; pMsgCat = pMsgCat->m_pNext ) {
- pszTrans = pMsgCat->GetString(szOrgString);
- if ( pszTrans != NULL ) // take the first found
- break;
+ if ( wxIsEmpty(szOrigString) )
+ return _T("");
+
+ const wxChar *pszTrans = NULL;
+ wxMsgCatalog *pMsgCat;
+
+ if ( szDomain != NULL )
+ {
+ pMsgCat = FindCatalog(szDomain);
+
+ // does the catalog exist?
+ if ( pMsgCat != NULL )
+ pszTrans = pMsgCat->GetString(szOrigString);
+ }
+ else
+ {
+ // search in all domains
+ for ( pMsgCat = m_pMsgCat; pMsgCat != NULL; pMsgCat = pMsgCat->m_pNext )
+ {
+ pszTrans = pMsgCat->GetString(szOrigString);
+ if ( pszTrans != NULL ) // take the first found
+ break;
+ }
}
- }
- if ( pszTrans == NULL ) {
+ if ( pszTrans == NULL )
+ {
#ifdef __WXDEBUG__
- if ( !NoTransErr::Suppress() ) {
- NoTransErr noTransErr;
+ if ( !NoTransErr::Suppress() )
+ {
+ NoTransErr noTransErr;
- if ( szDomain != NULL )
- {
- wxLogDebug(_T("string '%s' not found in domain '%s' for locale '%s'."),
- szOrigString, szDomain, m_strLocale.c_str());
- }
- else
- {
- wxLogDebug(_T("string '%s' not found in locale '%s'."),
- szOrigString, m_strLocale.c_str());
- }
- }
+ if ( szDomain != NULL )
+ {
+ wxLogTrace(_T("i18n"),
+ _T("string '%s' not found in domain '%s' for locale '%s'."),
+ szOrigString, szDomain, m_strLocale.c_str());
+ }
+ else
+ {
+ wxLogTrace(_T("i18n"),
+ _T("string '%s' not found in locale '%s'."),
+ szOrigString, m_strLocale.c_str());
+ }
+ }
#endif // __WXDEBUG__
- return (wxMB2WXbuf)(szOrigString);
- }
- else
- {
- return wxConvertMB2WX(pszTrans); // or preferably wxCSConv(charset).cMB2WX(pszTrans) or something,
- // a macro similar to wxConvertMB2WX could be written for that
- }
+ return szOrigString;
+ }
- #undef szOrgString
+ return pszTrans;
}
// find catalog by name in a linked list, return NULL if !found
wxMsgCatalog *wxLocale::FindCatalog(const wxChar *szDomain) const
{
-// linear search in the linked list
- wxMsgCatalog *pMsgCat;
- for ( pMsgCat = m_pMsgCat; pMsgCat != NULL; pMsgCat = pMsgCat->m_pNext ) {
- if ( wxStricmp(pMsgCat->GetName(), szDomain) == 0 )
- return pMsgCat;
- }
+ // linear search in the linked list
+ wxMsgCatalog *pMsgCat;
+ for ( pMsgCat = m_pMsgCat; pMsgCat != NULL; pMsgCat = pMsgCat->m_pNext )
+ {
+ if ( wxStricmp(pMsgCat->GetName(), szDomain) == 0 )
+ return pMsgCat;
+ }
- return NULL;
+ return NULL;
}
// check if the given catalog is loaded
}
}
+// ----------------------------------------------------------------------------
+// accessors for locale-dependent data
+// ----------------------------------------------------------------------------
+#if 0
+#ifdef __WXMSW__
+/* static */
+wxString wxLocale::GetInfo(wxLocaleInfo index)
+{
+ wxString str;
+ wxChar buffer[256];
+ size_t count;
+ buffer[0] = wxT('\0');
+ switch (index)
+ {
+ case wxSYS_DECIMAL_SEPARATOR:
+ count = ::GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, buffer, 256);
+ if (!count)
+ str << ".";
+ else
+ str << buffer;
+ break;
+ case wxSYS_LIST_SEPARATOR:
+ count = ::GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLIST, buffer, 256);
+ if (!count)
+ str << ",";
+ else
+ str << buffer;
+ break;
+ case wxSYS_LEADING_ZERO: // 0 means no leading zero, 1 means leading zero
+ count = ::GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, buffer, 256);
+ if (!count)
+ str << "0";
+ else
+ str << buffer;
+ break;
+ default:
+ wxFAIL_MSG("Unknown System String !");
+ }
+ return str;
+}
+
+#else // !__WXMSW__
+
+/* static */
+wxString wxLocale::GetInfo(wxLocaleInfo index, wxLocaleCategory)
+{
+ return wxEmptyString;
+}
+#endif // __WXMSW__/!__WXMSW__
+
+#endif // 0
// ----------------------------------------------------------------------------
// global functions and variables
+// ----------------------------------------------------------------------------
+// wxLocale module (for lazy destruction of languagesDB)
+// ----------------------------------------------------------------------------
+
+class wxLocaleModule: public wxModule
+{
+ DECLARE_DYNAMIC_CLASS(wxLocaleModule)
+ public:
+ wxLocaleModule() {}
+ bool OnInit() { return TRUE; }
+ void OnExit() { wxLocale::DestroyLanguagesDB(); }
+};
+
+IMPLEMENT_DYNAMIC_CLASS(wxLocaleModule, wxModule)
+
+
// ----------------------------------------------------------------------------
// default languages table & initialization
// ----------------------------------------------------------------------------
+
+// --- --- --- generated code begins here --- --- ---
+
// This table is generated by misc/languages/genlang.py
// When making changes, please put them into misc/languages/langtabl.txt
-#ifndef __WIN32__
+#if !defined(__WIN32__) || defined(__WXMICROWIN__)
#define SETWINLANG(info,lang,sublang)
#define LNG(wxlang, canonical, winlang, winsublang, desc) \
info.Language = wxlang; \
info.CanonicalName = wxT(canonical); \
- info.Description = desc; \
+ info.Description = wxT(desc); \
SETWINLANG(info, winlang, winsublang) \
AddLanguage(info);
wxLanguageInfo info;
wxStringTokenizer tkn;
- LNG(wxLANGUAGE_ABKHAZIAN, "ab" , 0 , 0 , "Abkhazian")
+ LNG(wxLANGUAGE_ABKHAZIAN, "ab" , 0 , 0 , "Abkhazian")
LNG(wxLANGUAGE_AFAR, "aa" , 0 , 0 , "Afar")
LNG(wxLANGUAGE_AFRIKAANS, "af_ZA", LANG_AFRIKAANS , SUBLANG_DEFAULT , "Afrikaans")
LNG(wxLANGUAGE_ALBANIAN, "sq_AL", LANG_ALBANIAN , SUBLANG_DEFAULT , "Albanian")
LNG(wxLANGUAGE_CATALAN, "ca_ES", LANG_CATALAN , SUBLANG_DEFAULT , "Catalan")
LNG(wxLANGUAGE_CHINESE, "zh_CN", LANG_CHINESE , SUBLANG_DEFAULT , "Chinese")
LNG(wxLANGUAGE_CHINESE_SIMPLIFIED, "zh_CN", LANG_CHINESE , SUBLANG_CHINESE_SIMPLIFIED , "Chinese (Simplified)")
- LNG(wxLANGUAGE_CHINESE_TRADITIONAL, "zh_CN", LANG_CHINESE , SUBLANG_CHINESE_TRADITIONAL , "Chinese (Traditional)")
+ LNG(wxLANGUAGE_CHINESE_TRADITIONAL, "zh_TW", LANG_CHINESE , SUBLANG_CHINESE_TRADITIONAL , "Chinese (Traditional)")
LNG(wxLANGUAGE_CHINESE_HONGKONG, "zh_HK", LANG_CHINESE , SUBLANG_CHINESE_HONGKONG , "Chinese (Hongkong)")
LNG(wxLANGUAGE_CHINESE_MACAU, "zh_MO", LANG_CHINESE , SUBLANG_CHINESE_MACAU , "Chinese (Macau)")
LNG(wxLANGUAGE_CHINESE_SINGAPORE, "zh_SG", LANG_CHINESE , SUBLANG_CHINESE_SINGAPORE , "Chinese (Singapore)")
- LNG(wxLANGUAGE_CHINESE_TAIWAN, "zh_TW", 0 , 0 , "Chinese (Taiwan)")
+ LNG(wxLANGUAGE_CHINESE_TAIWAN, "zh_TW", LANG_CHINESE , SUBLANG_CHINESE_TRADITIONAL , "Chinese (Taiwan)")
LNG(wxLANGUAGE_CORSICAN, "co" , 0 , 0 , "Corsican")
LNG(wxLANGUAGE_CROATIAN, "hr_HR", LANG_CROATIAN , SUBLANG_DEFAULT , "Croatian")
LNG(wxLANGUAGE_CZECH, "cs_CZ", LANG_CZECH , SUBLANG_DEFAULT , "Czech")
LNG(wxLANGUAGE_NAURU, "na" , 0 , 0 , "Nauru")
LNG(wxLANGUAGE_NEPALI, "ne" , LANG_NEPALI , SUBLANG_DEFAULT , "Nepali")
LNG(wxLANGUAGE_NEPALI_INDIA, "ne_IN", LANG_NEPALI , SUBLANG_NEPALI_INDIA , "Nepali (India)")
- LNG(wxLANGUAGE_NORWEGIAN_BOKMAL, "no_NO", LANG_NORWEGIAN , SUBLANG_NORWEGIAN_BOKMAL , "Norwegian (Bokmal)")
+ LNG(wxLANGUAGE_NORWEGIAN_BOKMAL, "nb_NO", LANG_NORWEGIAN , SUBLANG_NORWEGIAN_BOKMAL , "Norwegian (Bokmal)")
LNG(wxLANGUAGE_NORWEGIAN_NYNORSK, "nn_NO", LANG_NORWEGIAN , SUBLANG_NORWEGIAN_NYNORSK , "Norwegian (Nynorsk)")
LNG(wxLANGUAGE_OCCITAN, "oc" , 0 , 0 , "Occitan")
LNG(wxLANGUAGE_ORIYA, "or" , LANG_ORIYA , SUBLANG_DEFAULT , "Oriya")
LNG(wxLANGUAGE_YORUBA, "yo" , 0 , 0 , "Yoruba")
LNG(wxLANGUAGE_ZHUANG, "za" , 0 , 0 , "Zhuang")
LNG(wxLANGUAGE_ZULU, "zu" , 0 , 0 , "Zulu")
-
+
};
#undef LNG
+// --- --- --- generated code ends here --- --- ---
#endif // wxUSE_INTL
projects / wxWidgets.git / blobdiff