]> git.saurik.com Git - wxWidgets.git/blobdiff - src/common/intl.cpp
Added OLE automation sample, changed BC++ makefiles
[wxWidgets.git] / src / common / intl.cpp
index eb52e900b9b6363263564ecafbfc7b71c0eeff4f..0a35449929c664ce67639a95ce1b94448f02c72e 100644 (file)
@@ -10,7 +10,7 @@
 /////////////////////////////////////////////////////////////////////////////
 
 // ============================================================================
-// declarations
+// declaration
 // ============================================================================
 
 // ----------------------------------------------------------------------------
 #pragma hdrstop
 #endif
 
-// wxWindows
-#ifndef  WX_PRECOMP
-  #include "wx/defs.h"
-  #include "wx/string.h"
-#endif //WX_PRECOMP
+// standard headers
+#include  <locale.h>
 
+// wxWindows
+#include "wx/defs.h"
+#include "wx/string.h"
 #include "wx/intl.h"
 #include "wx/file.h"
 #include "wx/log.h"
 #include "wx/utils.h"
 
-// standard headers
-#include <locale.h>
 #include <stdlib.h>
 
 // ----------------------------------------------------------------------------
 // ----------------------------------------------------------------------------
 
 // magic number identifying the .mo format file
-const uint32 MSGCATALOG_MAGIC    = 0x950412de;
-const uint32 MSGCATALOG_MAGIC_SW = 0xde120495;
+const size_t32 MSGCATALOG_MAGIC    = 0x950412de;
+const size_t32 MSGCATALOG_MAGIC_SW = 0xde120495;
 
 // extension of ".mo" files
 #define MSGCATALOG_EXTENSION  ".mo"
 
 // ----------------------------------------------------------------------------
-// global functions (private to this module)
+// global functions
 // ----------------------------------------------------------------------------
 
 // suppress further error messages about missing translations
 // (if you don't have one catalog file, you wouldn't like to see the
 //  error message for each string in it, so normally it's given only
 //  once)
-static void wxSuppressTransErrors();
+void wxSuppressTransErrors();
 
 // restore the logging
-static void wxRestoreTransErrors();
+void wxRestoreTransErrors();
 
 // get the current state
-static bool wxIsLoggingTransErrors();
+bool wxIsLoggingTransErrors();
 
-// get the current locale object (@@ may be NULL!)
-static wxLocale *wxSetLocale(wxLocale *pLocale);
+// get the current locale object (## may be NULL!)
+extern wxLocale *wxSetLocale(wxLocale *pLocale);
 
 // ----------------------------------------------------------------------------
 // wxMsgCatalog corresponds to one disk-file message catalog.
@@ -106,40 +104,40 @@ private:
   // an entry in the string table
   struct wxMsgTableEntry
   {
-    uint32   nLen;           // length of the string
-    uint32   ofsString;      // pointer to the string
+    size_t32   nLen;           // length of the string
+    size_t32   ofsString;      // pointer to the string
   };
 
   // header of a .mo file
   struct wxMsgCatalogHeader
   {
-    uint32  magic,          // offset +00:  magic id
+    size_t32  magic,          // offset +00:  magic id
             revision,       //        +04:  revision
             numStrings;     //        +08:  number of strings in the file
-    uint32  ofsOrigTable,   //        +0C:  start of original string table
+    size_t32  ofsOrigTable,   //        +0C:  start of original string table
             ofsTransTable;  //        +10:  start of translated string table
-    uint32  nHashSize,      //        +14:  hash table size
+    size_t32  nHashSize,      //        +14:  hash table size
             ofsHashTable;   //        +18:  offset of hash table start
   };                     
   
   // all data is stored here, NULL if no data loaded
-  uint8 *m_pData;
+  size_t8 *m_pData;
   
   // data description
-  uint32            m_numStrings,   // number of strings in this domain
+  size_t32            m_numStrings,   // number of strings in this domain
                     m_nHashSize;    // number of entries in hash table
-  uint32           *m_pHashTable;   // pointer to 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, uint32 index) const
+  const char *StringAtOfs(wxMsgTableEntry *pTable, size_t32 index) const
     { return (const char *)(m_pData + Swap(pTable[index].ofsString)); }
 
   // utility functions
     // calculate the hash value of given string
-  static inline uint32 GetHash(const char *sz);
+  static inline size_t32 GetHash(const char *sz);
     // big<->little endian
-  inline uint32 Swap(uint32 ui) const;
+  inline size_t32 Swap(size_t32 ui) const;
 
   // internal state
   bool HasHashTable() const // true if hash table is present
@@ -160,16 +158,16 @@ private:
 
 // calculate hash value using the so called hashpjw function by P.J. Weinberger
 // [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools]
-uint32 wxMsgCatalog::GetHash(const char *sz)
+size_t32 wxMsgCatalog::GetHash(const char *sz)
 {
-  #define HASHWORDBITS 32     // the length of uint32
+  #define HASHWORDBITS 32     // the length of size_t32
 
-  uint32 hval = 0;
-  uint32 g;
+  size_t32 hval = 0;
+  size_t32 g;
   while ( *sz != '\0' ) {
     hval <<= 4;
-    hval += (uint32)*sz++;
-    g = hval & ((uint32)0xf << (HASHWORDBITS - 4));
+    hval += (size_t32)*sz++;
+    g = hval & ((size_t32)0xf << (HASHWORDBITS - 4));
     if ( g != 0 ) {
       hval ^= g >> (HASHWORDBITS - 8);
       hval ^= g;
@@ -180,7 +178,7 @@ uint32 wxMsgCatalog::GetHash(const char *sz)
 }
 
 // swap the 2 halves of 32 bit integer if needed
-uint32 wxMsgCatalog::Swap(uint32 ui) const
+size_t32 wxMsgCatalog::Swap(size_t32 ui) const
 {
   return m_bSwapped ? (ui << 24) | ((ui & 0xff00) << 8) | 
                       ((ui >> 8) & 0xff00) | (ui >> 24)
@@ -195,12 +193,10 @@ wxMsgCatalog::wxMsgCatalog()
 
 wxMsgCatalog::~wxMsgCatalog() 
 { 
-  DELETEA(m_pData); 
-  DELETEA(m_pszName); 
+  wxDELETEA(m_pData); 
+  wxDELETEA(m_pszName); 
 }
 
-// a helper class which suppresses all translation error messages
-// from the moment of it's creation until it's destruction
 class NoTransErr
 {
   public:
@@ -211,15 +207,15 @@ class NoTransErr
 // open disk file and read in it's contents
 bool wxMsgCatalog::Load(const char *szDirPrefix, const char *szName)
 {
-  // search order (assume language 'lang') is
-  // 1) $LC_PATH/lang/LC_MESSAGES          (if LC_PATH set)
-  // 2) ./lang/LC_MESSAGES
-  // 3) ./lang
+  // search order (assume language 'foo') is
+  // 1) $LC_PATH/foo/LC_MESSAGES          (if LC_PATH set)
+  // 2) ./foo/LC_MESSAGES
+  // 3) ./foo
   // 4) . (Added by JACS)
   //
   // under UNIX we search also in:
-  // 5) /usr/share/locale/lang/LC_MESSAGES (Linux)
-  // 6) /usr/lib/locale/lang/LC_MESSAGES   (Solaris)
+  // 5) /usr/share/locale/foo/LC_MESSAGES (Linux)
+  // 6) /usr/lib/locale/foo/LC_MESSAGES   (Solaris)
   #define MSG_PATH FILE_SEP_PATH + "LC_MESSAGES" PATH_SEP
           
   wxString strPath("");
@@ -229,12 +225,12 @@ bool wxMsgCatalog::Load(const char *szDirPrefix, const char *szName)
   
   // NB: '<<' is unneeded between too literal strings: 
   //     they are concatenated at compile time
-  strPath << "./" << wxString(szDirPrefix) + MSG_PATH                 // (2)
-          << "./" << szDirPrefix << FILE_SEP_PATH << PATH_SEP         // (3)
-                     << "." << PATH_SEP                                          // (4)
+  strPath += "./" + wxString(szDirPrefix) + MSG_PATH                  // (2)
+          + "./" + szDirPrefix + FILE_SEP_PATH + PATH_SEP // (3)
+                 + "." + PATH_SEP
   #ifdef  __UNIX__
-             "/usr/share/locale/" << szDirPrefix << MSG_PATH          // (5)
-             "/usr/lib/locale/"  << szDirPrefix << MSG_PATH           // (6)
+             "/usr/share/locale/" + szDirPrefix + MSG_PATH  // (5)
+             "/usr/lib/locale/"  + szDirPrefix + MSG_PATH  // (6)
   #endif  //UNIX
           ;
   
@@ -247,8 +243,8 @@ bool wxMsgCatalog::Load(const char *szDirPrefix, const char *szName)
   // (we're using an object because we have several return paths)
   NoTransErr noTransErr;
 
-  wxLogVerbose(_("looking for catalog '%s' in path '%s'..."),
-               szName, strPath.c_str());
+  wxLogVerbose(_("looking for catalog '%s' in path '%s'."),
+             szName, strPath.c_str());
 
   wxString strFullName;
   if ( !wxFindFileInPath(&strFullName, strPath, strFile) ) {
@@ -257,36 +253,30 @@ bool wxMsgCatalog::Load(const char *szDirPrefix, const char *szName)
   }
 
   // open file
-  wxLogVerbose(_("catalog '%s' found in '%s'."), szName, strFullName.c_str());
+  wxLogVerbose(_("using catalog '%s' from '%s'."),
+             szName, strFullName.c_str());
   
-  // declare these vars here because we're using goto further down
-  bool bValid;
-  off_t nSize;
-
   wxFile fileMsg(strFullName);
   if ( !fileMsg.IsOpened() )
-    goto error;
+    return FALSE;
 
   // get the file size
-  nSize = fileMsg.Length();
-  if ( nSize == ofsInvalid )
-    goto error;
+  off_t nSize = fileMsg.Length();
+  if ( nSize == wxInvalidOffset )
+    return FALSE;
 
   // read the whole file in memory
-  m_pData = new uint8[nSize];
+  m_pData = new size_t8[nSize];
   if ( fileMsg.Read(m_pData, nSize) != nSize ) {
-    DELETEA(m_pData);
-    m_pData = NULL;
-    goto error;
+    wxDELETEA(m_pData);
+    return FALSE;
   }
     
   // examine header
-  bValid = (size_t)nSize > sizeof(wxMsgCatalogHeader);
+  bool bValid = (size_t)nSize > sizeof(wxMsgCatalogHeader);
   
-  wxMsgCatalogHeader *pHeader;
+  wxMsgCatalogHeader *pHeader = (wxMsgCatalogHeader *)m_pData;
   if ( bValid ) {
-    pHeader = (wxMsgCatalogHeader *)m_pData;
-
     // we'll have to swap all the integers if it's true
     m_bSwapped = pHeader->magic == MSGCATALOG_MAGIC_SW;
 
@@ -296,32 +286,27 @@ bool wxMsgCatalog::Load(const char *szDirPrefix, const char *szName)
   
   if ( !bValid ) {
     // it's either too short or has incorrect magic number
-    wxLogWarning(_("'%s' is not a valid message catalog."),
-                 strFullName.c_str());
+    wxLogWarning(_("'%s' is not a valid message catalog."), strFullName.c_str());
     
-    DELETEA(m_pData);
-    m_pData = NULL;
+    wxDELETEA(m_pData);
     return FALSE;
   }
       
   // initialize
   m_numStrings  = Swap(pHeader->numStrings);
-  m_pOrigTable  = (wxMsgTableEntry *)(m_pData + Swap(pHeader->ofsOrigTable));
-  m_pTransTable = (wxMsgTableEntry *)(m_pData + Swap(pHeader->ofsTransTable));
+  m_pOrigTable  = (wxMsgTableEntry *)(m_pData + 
+                   Swap(pHeader->ofsOrigTable));
+  m_pTransTable = (wxMsgTableEntry *)(m_pData + 
+                   Swap(pHeader->ofsTransTable));
 
   m_nHashSize   = Swap(pHeader->nHashSize);
-  m_pHashTable  = (uint32 *)(m_pData + Swap(pHeader->ofsHashTable));
+  m_pHashTable  = (size_t32 *)(m_pData + Swap(pHeader->ofsHashTable));
 
   m_pszName = new char[strlen(szName) + 1];
   strcpy(m_pszName, szName);
 
   // everything is fine
   return TRUE;
-
-error:
-  wxLogError(_("error opening message catalog '%s', not loaded."),
-             strFullName.c_str());
-  return FALSE;
 }
 
 // search for a string
@@ -331,13 +316,13 @@ const char *wxMsgCatalog::GetString(const char *szOrig) const
     return NULL;
 
   if ( HasHashTable() ) {   // use hash table for lookup if possible
-    uint32 nHashVal = GetHash(szOrig); 
-    uint32 nIndex   = nHashVal % m_nHashSize;
+    size_t32 nHashVal = GetHash(szOrig); 
+    size_t32 nIndex   = nHashVal % m_nHashSize;
 
-    uint32 nIncr = 1 + (nHashVal % (m_nHashSize - 2));
+    size_t32 nIncr = 1 + (nHashVal % (m_nHashSize - 2));
     
     while ( TRUE ) {
-      uint32 nStr = Swap(m_pHashTable[nIndex]);
+      size_t32 nStr = Swap(m_pHashTable[nIndex]);
       if ( nStr == 0 )
         return NULL;
       
@@ -351,7 +336,7 @@ const char *wxMsgCatalog::GetString(const char *szOrig) const
     }
   }
   else {                    // no hash table: use default binary search
-    uint32 bottom = 0,
+    size_t32 bottom = 0,
            top    = m_numStrings,
            current;
     while ( bottom < top ) {
@@ -374,13 +359,21 @@ const char *wxMsgCatalog::GetString(const char *szOrig) const
 // wxLocale
 // ----------------------------------------------------------------------------
 
-// NB: ctor has (desired) side effect of changing current locale
-wxLocale::wxLocale(const char *szName, 
-                   const char *szShort, 
-                   const char *szLocale,
-                   bool        bLoadDefault)
-        : m_strLocale(szName), m_strShort(szShort)
+wxLocale::wxLocale()
 {
+  m_pszOldLocale = NULL;
+  m_pMsgCat = NULL;
+}
+
+// NB: this function has (desired) side effect of changing current locale
+bool wxLocale::Init(const char *szName, 
+                    const char *szShort, 
+                    const char *szLocale,
+                    bool        bLoadDefault)
+{
+  m_strLocale = szName;
+  m_strShort = szShort;
+
   // change current locale (default: same as long name)
   if ( szLocale == NULL )
     szLocale = szName;
@@ -391,7 +384,7 @@ wxLocale::wxLocale(const char *szName,
   // the short name will be used to look for catalog files as well,
   // so we need something here
   if ( m_strShort.IsEmpty() ) {
-    // @@@@ I don't know how these 2 letter abbreviations are formed,
+    // #### I don't know how these 2 letter abbreviations are formed,
     //      this wild guess is almost surely wrong
     m_strShort = wxToLower(szLocale[0]) + wxToLower(szLocale[1]);
   }
@@ -401,8 +394,11 @@ wxLocale::wxLocale(const char *szName,
   
   // load the default catalog with wxWindows standard messages
   m_pMsgCat = NULL;
+  bool bOk = TRUE;
   if ( bLoadDefault )
-    AddCatalog("wxstd");
+    bOk = AddCatalog("wxstd");
+
+  return bOk;
 }
 
 // clean up
@@ -453,12 +449,11 @@ const char *wxLocale::GetString(const char *szOrigString,
       wxSuppressTransErrors();
       
       if ( szDomain != NULL )
-        wxLogWarning(_("string '%s' not found in domain '%s'"
-                       " for locale '%s'."),
-                     szOrigString, szDomain, m_strLocale.c_str());
+        wxLogWarning(_("string '%s' not found in domain '%s' for locale '%s'."),
+                    szOrigString, szDomain, m_strLocale.c_str());
       else
         wxLogWarning(_("string '%s' not found in locale '%s'."),
-                     szOrigString, m_strLocale.c_str());
+                   szOrigString, m_strLocale.c_str());
     }
 
     return szOrigString;
@@ -537,6 +532,11 @@ bool wxIsLoggingTransErrors()
 // the current locale object
 wxLocale *g_pLocale = NULL;
 
+wxLocale *wxGetLocale()
+{
+       return g_pLocale;
+}
+
 wxLocale *wxSetLocale(wxLocale *pLocale)
 {
        wxLocale *pOld = g_pLocale;