lib/3rdparty/stlport/src/messages.cpp

   1 /*
   2  * Copyright (c) 1999
   3  * Silicon Graphics Computer Systems, Inc.
   4  *
   5  * Copyright (c) 1999
   6  * Boris Fomitchev
   7  *
   8  * This material is provided "as is", with absolutely no warranty expressed
   9  * or implied. Any use is at your own risk.
  10  *
  11  * Permission to use or copy this software for any purpose is hereby granted
  12  * without fee, provided the above notices are retained on all copies.
  13  * Permission to modify the code and to distribute modified code is granted,
  14  * provided the above notices are retained, and a notice that the code was
  15  * modified is included with the above copyright notice.
  16  *
  17  */
  18 #include "stlport_prefix.h"
  19
  20 #include <typeinfo>
  21
  22 #include "message_facets.h"
  23 #include "acquire_release.h"
  24
  25 _STLP_BEGIN_NAMESPACE
  26
  27 _STLP_MOVE_TO_PRIV_NAMESPACE
  28
  29 void _Catalog_locale_map::insert(nl_catd_type key, const locale& L) {
  30   _STLP_TRY {
  31 #if !defined (_STLP_NO_TYPEINFO) && !defined (_STLP_NO_RTTI)
  32     // Don't bother to do anything unless we're using a non-default ctype facet
  33 #  ifdef _STLP_NO_WCHAR_T
  34     typedef char _Char;
  35 #  else
  36     typedef wchar_t _Char;
  37 #  endif
  38
  39     typedef ctype<_Char> wctype;
  40     wctype const& wct = use_facet<wctype>(L);
  41     if (typeid(wct) != typeid(wctype)) {
  42 #endif
  43       if (!M)
  44         M = new map_type;
  45
  46       M->insert(map_type::value_type(key, L));
  47 #if !defined (_STLP_NO_TYPEINFO) && !defined (_STLP_NO_RTTI)
  48     }
  49 #endif
  50   }
  51   _STLP_CATCH_ALL {}
  52 }
  53
  54 void _Catalog_locale_map::erase(nl_catd_type key) {
  55   if (M)
  56     M->erase(key);
  57 }
  58
  59 locale _Catalog_locale_map::lookup(nl_catd_type key) const {
  60   if (M) {
  61     map_type::const_iterator i = M->find(key);
  62     return i != M->end() ? (*i).second : locale::classic();
  63   }
  64   else
  65     return locale::classic();
  66 }
  67
  68
  69 #if defined (_STLP_USE_NL_CATD_MAPPING)
  70 _STLP_VOLATILE __stl_atomic_t _Catalog_nl_catd_map::_count = 0;
  71
  72 messages_base::catalog _Catalog_nl_catd_map::insert(nl_catd_type cat) {
  73   messages_base::catalog &res = Mr[cat];
  74   if ( res == 0 ) {
  75 #if defined (_STLP_ATOMIC_INCREMENT)
  76     res = __STATIC_CAST(int, _STLP_ATOMIC_INCREMENT(&_count));
  77 #else
  78     static _STLP_STATIC_MUTEX _Count_lock _STLP_MUTEX_INITIALIZER;
  79     {
  80       _STLP_auto_lock sentry(_Count_lock);
  81       res = __STATIC_CAST(int, ++_count);
  82     }
  83 #endif
  84     M[res] = cat;
  85   }
  86   return res;
  87 }
  88
  89 void _Catalog_nl_catd_map::erase(messages_base::catalog cat) {
  90   map_type::iterator mit(M.find(cat));
  91   if (mit != M.end()) {
  92     Mr.erase((*mit).second);
  93     M.erase(mit);
  94   }
  95 }
  96 #endif
  97
  98 //----------------------------------------------------------------------
  99 //
 100 _Messages::_Messages(bool is_wide, const char *name) :
 101   _M_message_obj(0), _M_map(0) {
 102   if (!name)
 103     locale::_M_throw_on_null_name();
 104
 105   int __err_code;
 106   char buf[_Locale_MAX_SIMPLE_NAME];
 107   _M_message_obj = _STLP_PRIV __acquire_messages(name, buf, 0, &__err_code);
 108   if (!_M_message_obj)
 109     locale::_M_throw_on_creation_failure(__err_code, name, "messages");
 110
 111   if (is_wide)
 112     _M_map = new _Catalog_locale_map;
 113 }
 114
 115 _Messages::_Messages(bool is_wide, _Locale_messages* msg) :
 116   _M_message_obj(msg), _M_map(is_wide ? new _Catalog_locale_map() : 0)
 117 {}
 118
 119 _Messages::~_Messages() {
 120   __release_messages(_M_message_obj);
 121   delete _M_map;
 122 }
 123
 124 _Messages::catalog _Messages::do_open(const string& filename, const locale& L) const {
 125   nl_catd_type result = _M_message_obj ? _Locale_catopen(_M_message_obj, filename.c_str())
 126     : (nl_catd_type)(-1);
 127
 128   if ( result != (nl_catd_type)(-1) ) {
 129     if ( _M_map != 0 ) {
 130       _M_map->insert(result, L);
 131     }
 132     return _STLP_MUTABLE(_Messages_impl, _M_cat).insert( result );
 133   }
 134
 135   return -1;
 136 }
 137
 138 string _Messages::do_get(catalog cat,
 139                          int set, int p_id, const string& dfault) const {
 140   return _M_message_obj != 0 && cat >= 0
 141     ? string(_Locale_catgets(_M_message_obj, _STLP_MUTABLE(_Messages_impl, _M_cat)[cat],
 142                              set, p_id, dfault.c_str()))
 143     : dfault;
 144 }
 145
 146 #if !defined (_STLP_NO_WCHAR_T)
 147
 148 wstring
 149 _Messages::do_get(catalog thecat,
 150                   int set, int p_id, const wstring& dfault) const {
 151   typedef ctype<wchar_t> wctype;
 152   const wctype& ct = use_facet<wctype>(_M_map->lookup(_STLP_MUTABLE(_Messages_impl, _M_cat)[thecat]));
 153
 154   const char* str = _Locale_catgets(_M_message_obj, _STLP_MUTABLE(_Messages_impl, _M_cat)[thecat], set, p_id, "");
 155
 156   // Verify that the lookup failed; an empty string might represent success.
 157   if (!str)
 158     return dfault;
 159   else if (str[0] == '\0') {
 160     const char* str2 = _Locale_catgets(_M_message_obj, _STLP_MUTABLE(_Messages_impl, _M_cat)[thecat], set, p_id, "*");
 161     if (!str2 || ((str2[0] == '*') && (str2[1] == '\0')))
 162       return dfault;
 163   }
 164
 165   // str is correct.  Now we must widen it to get a wstring.
 166   size_t n = strlen(str);
 167
 168   // NOT PORTABLE.  What we're doing relies on internal details of the
 169   // string implementation.  (Contiguity of string elements.)
 170   wstring result(n, wchar_t(0));
 171   ct.widen(str, str + n, &*result.begin());
 172   return result;
 173 }
 174
 175 #endif
 176
 177 void _Messages::do_close(catalog thecat) const {
 178   if (_M_message_obj)
 179     _Locale_catclose(_M_message_obj, _STLP_MUTABLE(_Messages_impl, _M_cat)[thecat]);
 180   if (_M_map) _M_map->erase(_STLP_MUTABLE(_Messages_impl, _M_cat)[thecat]);
 181   _STLP_MUTABLE(_Messages_impl, _M_cat).erase( thecat );
 182 }
 183
 184 _STLP_MOVE_TO_STD_NAMESPACE
 185
 186 //----------------------------------------------------------------------
 187 // messages<char>
 188 messages<char>::messages(size_t refs)
 189   : locale::facet(refs) {}
 190
 191 messages_byname<char>::messages_byname(const char *name, size_t refs)
 192   : messages<char>(refs), _M_impl(new _STLP_PRIV _Messages(false, name)) {}
 193
 194 messages_byname<char>::messages_byname(_Locale_messages* msg)
 195   : messages<char>(0), _M_impl(new _STLP_PRIV _Messages(false, msg)) {}
 196
 197 messages_byname<char>::~messages_byname()
 198 { delete _M_impl; }
 199
 200 messages_byname<char>::catalog
 201 messages_byname<char>::do_open(const string& filename, const locale& l) const
 202 { return _M_impl->do_open(filename, l); }
 203
 204 string
 205 messages_byname<char>::do_get(catalog cat, int set, int p_id,
 206                               const string& dfault) const
 207 { return _M_impl->do_get(cat, set, p_id, dfault); }
 208
 209 void messages_byname<char>::do_close(catalog cat) const
 210 { _M_impl->do_close(cat); }
 211
 212 #if !defined (_STLP_NO_WCHAR_T)
 213
 214 //----------------------------------------------------------------------
 215 // messages<wchar_t>
 216
 217 messages<wchar_t>::messages(size_t refs)
 218   : locale::facet(refs) {}
 219
 220 messages_byname<wchar_t>::messages_byname(const char *name, size_t refs)
 221   : messages<wchar_t>(refs), _M_impl(new _STLP_PRIV _Messages(true, name)) {}
 222
 223 messages_byname<wchar_t>::messages_byname(_Locale_messages* msg)
 224   : messages<wchar_t>(0), _M_impl(new _STLP_PRIV _Messages(true, msg)) {}
 225
 226 messages_byname<wchar_t>::~messages_byname()
 227 { delete _M_impl; }
 228
 229 messages_byname<wchar_t>::catalog
 230 messages_byname<wchar_t>::do_open(const string& filename, const locale& L) const
 231 { return _M_impl->do_open(filename, L); }
 232
 233 wstring
 234 messages_byname<wchar_t>::do_get(catalog thecat,
 235                                  int set, int p_id, const wstring& dfault) const
 236 { return _M_impl->do_get(thecat, set, p_id, dfault); }
 237
 238 void messages_byname<wchar_t>::do_close(catalog cat) const
 239 { _M_impl->do_close(cat); }
 240
 241 #endif
 242
 243 _STLP_END_NAMESPACE
 244
 245 // Local Variables:
 246 // mode:C++
 247 // End: