sl@0: /*
sl@0:  * © Portions copyright (c) 2006-2007 Nokia Corporation.  All rights reserved.
sl@0:  *
sl@0:  * Copyright (c) 1999
sl@0:  * Silicon Graphics Computer Systems, Inc.
sl@0:  *
sl@0:  * Copyright (c) 1999 
sl@0:  * Boris Fomitchev
sl@0:  *
sl@0:  * This material is provided "as is", with absolutely no warranty expressed
sl@0:  * or implied. Any use is at your own risk.
sl@0:  *
sl@0:  * Permission to use or copy this software for any purpose is hereby granted 
sl@0:  * without fee, provided the above notices are retained on all copies.
sl@0:  * Permission to modify the code and to distribute modified code is granted,
sl@0:  * provided the above notices are retained, and a notice that the code was
sl@0:  * modified is included with the above copyright notice.
sl@0:  *
sl@0:  */ 
sl@0: # include "stlport_prefix.h"
sl@0: 
sl@0: #include <hash_map>
sl@0: #include "locale_impl.h"
sl@0: #include "c_locale.h"
sl@0: 
sl@0: #include "locale_nonclassic.h"
sl@0: 
sl@0: 
sl@0: #include <stl/_codecvt.h>
sl@0: #include <stl/_collate.h>
sl@0: #include <stl/_ctype.h>
sl@0: #include <stl/_monetary.h>
sl@0: #include <stl/_time_facets.h>
sl@0: #include <stl/_messages_facets.h>
sl@0: #include <stl/_istream.h>
sl@0: #include <stl/_num_get.h>
sl@0: #include <stl/_num_put.h>
sl@0: 
sl@0: #include <algorithm>
sl@0: // #include <stl/_ctype.h>
sl@0: #include <stl/_function.h>
sl@0: #include "c_locale.h"
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: _Locale_ctype* __acquire_ctype(const char* name); 
sl@0: void __release_ctype(_Locale_ctype* cat);
sl@0: 
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // ctype_byname<char>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC ctype_byname<char>::ctype_byname(const char* name, size_t refs)
sl@0:   : ctype<char>(_M_byname_table+1, false, refs),
sl@0:   _M_ctype(__acquire_ctype(name))
sl@0: {
sl@0:   
sl@0:   if (!_M_ctype)
sl@0:     locale::_M_throw_runtime_error();
sl@0:   
sl@0:   // We have to do this, instead of just pointer twiddling, because
sl@0:   // ctype_base::mask isn't the same type as _Locale_mask_t.  
sl@0: 
sl@0:   const _Locale_mask_t* p = _Locale_ctype_table(_M_ctype);
sl@0: 
sl@0:    if (!p)
sl@0:      locale::_M_throw_runtime_error(); 
sl@0: 
sl@0:   for (size_t i = 0; i < table_size + 1; ++i) {
sl@0:     _Locale_mask_t __m = p[i];
sl@0:     if (__m & (upper | lower))
sl@0:       __m |= alpha;
sl@0:     _M_byname_table[i] = ctype_base::mask(__m);
sl@0:   }
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC ctype_byname<char>::~ctype_byname()
sl@0: {
sl@0:   __release_ctype(_M_ctype);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char ctype_byname<char>::do_toupper(char c) const 
sl@0: {
sl@0:   return _Locale_toupper(_M_ctype, c);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char ctype_byname<char>::do_tolower(char c) const 
sl@0: {
sl@0:   return _Locale_tolower(_M_ctype, c);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const char*
sl@0: ctype_byname<char>::do_toupper(char* first, const char* last) const
sl@0: {
sl@0:   for ( ; first != last ; ++first) 
sl@0:     *first = _Locale_toupper(_M_ctype, *first);
sl@0:   return last;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const char*
sl@0: ctype_byname<char>::do_tolower(char* first, const char* last) const
sl@0: {
sl@0:   for ( ; first != last ; ++first) 
sl@0:     *first = _Locale_tolower(_M_ctype, *first);
sl@0:   return last;
sl@0: }
sl@0: 
sl@0: 
sl@0: // Some helper functions used in ctype<>::scan_is and scan_is_not.
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: // ctype_byname<wchar_t>
sl@0: 
sl@0:   struct _Ctype_byname_w_is_mask {
sl@0:     typedef wchar_t argument_type;
sl@0:     typedef bool    result_type;
sl@0: 
sl@0:     /* ctype_base::mask*/ int  M;
sl@0:     _Locale_ctype* M_ctp;
sl@0: 
sl@0:     _Ctype_byname_w_is_mask(/* ctype_base::mask */ int m, _Locale_ctype* c) : M((int)m), M_ctp(c) {}
sl@0:     bool operator()(wchar_t c) const
sl@0:       { return (M & _Locale_wchar_ctype(M_ctp, c, M)) != 0; }
sl@0:   };
sl@0: 
sl@0: _STLP_EXP_DECLSPEC ctype_byname<wchar_t>::ctype_byname(const char* name, size_t refs)
sl@0:   : ctype<wchar_t>(refs),
sl@0:     _M_ctype(__acquire_ctype(name))
sl@0: {
sl@0:   if (!_M_ctype)
sl@0:     locale::_M_throw_runtime_error();    
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC ctype_byname<wchar_t>::~ctype_byname()
sl@0: {
sl@0:   __release_ctype(_M_ctype);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC bool ctype_byname<wchar_t>::do_is(ctype_base::mask  m, wchar_t c) const
sl@0: {
sl@0:   return (m & _Locale_wchar_ctype(_M_ctype, c, m)) != 0;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const wchar_t*
sl@0: ctype_byname<wchar_t>::do_is(const wchar_t* low, const wchar_t* high,
sl@0:                              ctype_base::mask * m) const
sl@0: {
sl@0:   ctype_base::mask all_bits = ctype_base::mask(
sl@0:     ctype_base::space |
sl@0:     ctype_base::print |
sl@0:     ctype_base::cntrl |
sl@0:     ctype_base::upper |
sl@0:     ctype_base::lower |
sl@0:     ctype_base::alpha |
sl@0:     ctype_base::digit |
sl@0:     ctype_base::punct |
sl@0:     ctype_base::xdigit);
sl@0: 
sl@0:   for ( ; low < high; ++low, ++m)
sl@0:     *m = ctype_base::mask (_Locale_wchar_ctype(_M_ctype, *low, all_bits));
sl@0:   return high;
sl@0: }
sl@0: 
sl@0:     
sl@0: _STLP_EXP_DECLSPEC const wchar_t*
sl@0: ctype_byname<wchar_t>
sl@0:   ::do_scan_is(ctype_base::mask  m, const wchar_t* low, const wchar_t* high) const
sl@0: {
sl@0:   return find_if(low, high, _Ctype_byname_w_is_mask(m, _M_ctype));
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const wchar_t*
sl@0: ctype_byname<wchar_t>
sl@0:   ::do_scan_not(ctype_base::mask  m, const wchar_t* low, const wchar_t* high) const
sl@0: {
sl@0:   return find_if(low, high, not1(_Ctype_byname_w_is_mask(m, _M_ctype)));
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t ctype_byname<wchar_t>::do_toupper(wchar_t c) const 
sl@0: {
sl@0:   return _Locale_wchar_toupper(_M_ctype, c);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const wchar_t* 
sl@0: ctype_byname<wchar_t>::do_toupper(wchar_t* low, const wchar_t* high) const
sl@0: {
sl@0:   for ( ; low < high; ++low)
sl@0:     *low = _Locale_wchar_toupper(_M_ctype, *low);
sl@0:   return high;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t ctype_byname<wchar_t>::do_tolower(wchar_t c) const 
sl@0: {
sl@0:   return _Locale_wchar_tolower(_M_ctype, c);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC const wchar_t* 
sl@0: ctype_byname<wchar_t>::do_tolower(wchar_t* low, const wchar_t* high) const
sl@0: {
sl@0:   for ( ; low < high; ++low)
sl@0:     *low = _Locale_wchar_tolower(_M_ctype, *low);
sl@0:   return high;
sl@0: }
sl@0: 
sl@0: # endif /* WCHAR_T */
sl@0: 
sl@0: _STLP_END_NAMESPACE
sl@0: 
sl@0: 
sl@0: // # include "collate_byname.cpp"
sl@0: 
sl@0: #include "stl/_collate.h"
sl@0: #include "c_locale.h"
sl@0: #include <vector>
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: // collate_byname<char>
sl@0: _Locale_collate* __acquire_collate(const char* name);
sl@0: void __release_collate(_Locale_collate* cat);
sl@0: 
sl@0: _STLP_EXP_DECLSPEC collate_byname<char>::collate_byname(const char* name, size_t refs)
sl@0:   : collate<char>(refs),
sl@0:     _M_collate(__acquire_collate(name))
sl@0: {
sl@0:   if (!_M_collate)
sl@0:     locale::_M_throw_runtime_error();
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC collate_byname<char>::~collate_byname()
sl@0: {
sl@0:   __release_collate(_M_collate);
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC int collate_byname<char>::do_compare(const char* __low1,
sl@0:                                      const char* __high1,
sl@0:                                      const char* __low2,
sl@0:                                      const char* __high2) const {
sl@0:   return _Locale_strcmp(_M_collate,
sl@0:                         __low1, __high1 - __low1, 
sl@0:                         __low2, __high2 - __low2);
sl@0: }
sl@0: 
sl@0: collate_byname<char>::string_type
sl@0:  _STLP_EXP_DECLSPEC collate_byname<char>::do_transform(const char* low, const char* high) const {
sl@0:   size_t n = _Locale_strxfrm(_M_collate,
sl@0:                              NULL, 0,
sl@0:                              low, high - low);
sl@0: 
sl@0:   __vector__<char, allocator<char> > buf(n+1);
sl@0:   _Locale_strxfrm(_M_collate, &buf.front(), n,
sl@0:                               low, high - low);
sl@0: 
sl@0:    char& __c1 = *(buf.begin());
sl@0:    char& __c2 = (n == (size_t)-1) ? *(buf.begin() + (high-low-1)) : *(buf.begin() + n);
sl@0:    //   char& __c2 = *(buf.begin() + n);
sl@0:    return string_type( &__c1, &__c2 );
sl@0: }
sl@0: 
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: // collate_byname<wchar_t>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC collate_byname<wchar_t>::collate_byname(const char* name, size_t refs)
sl@0:   : collate<wchar_t>(refs),
sl@0:     _M_collate(__acquire_collate(name))
sl@0: {
sl@0:   if (!_M_collate)
sl@0:     locale::_M_throw_runtime_error();
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC collate_byname<wchar_t>::~collate_byname() 
sl@0: {
sl@0:   __release_collate(_M_collate);
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC int collate_byname<wchar_t>::do_compare(const wchar_t* low1,
sl@0:                                         const wchar_t* high1,
sl@0:                                         const wchar_t* low2,
sl@0:                                         const wchar_t* high2) const
sl@0: {
sl@0:   return _Locale_strwcmp(_M_collate,
sl@0:                          low1, high1 - low1, 
sl@0:                          low2, high2 - low2);
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC collate_byname<wchar_t>::string_type
sl@0: collate_byname<wchar_t>
sl@0:   ::do_transform(const wchar_t* low, const wchar_t* high) const
sl@0: {
sl@0:   size_t n = _Locale_strwxfrm(_M_collate,
sl@0:                               NULL, 0,
sl@0:                               low, high - low);
sl@0: 
sl@0: //  __vector__<wchar_t, allocator<wchar_t> > buf(high - low); //gnu bug fix 3/1/07
sl@0: #ifdef	__SYMBIAN32__
sl@0: 	__vector__<wchar_t, allocator<wchar_t> > buf(n+1);  
sl@0:   	_Locale_strwxfrm(_M_collate, &buf.front(), n+1,
sl@0:                                low, high - low);
sl@0: #else  
sl@0:   __vector__<wchar_t, allocator<wchar_t> > buf(n);  
sl@0:   _Locale_strwxfrm(_M_collate, &buf.front(), n,
sl@0:                                low, high - low);
sl@0: #endif                               
sl@0:   wchar_t& __c1 = *(buf.begin());
sl@0:   wchar_t& __c2 = (n == (size_t)-1) ? *(buf.begin() + (high-low-1)) : *(buf.begin() + n);
sl@0:   // wchar_t& __c2 = *(buf.begin() + n);
sl@0:   return string_type( &__c1, &__c2 );
sl@0: }
sl@0: 
sl@0: # endif /*  _STLP_NO_WCHAR_T */
sl@0: 
sl@0: _STLP_END_NAMESPACE
sl@0: 
sl@0: # ifndef _STLP_NO_MBSTATE_T
sl@0: 
sl@0: #include <stl/_codecvt.h>
sl@0: #include <stl/_algobase.h>
sl@0: #include "c_locale.h"
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // codecvt_byname<char>
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC codecvt_byname<char, char, mbstate_t>
sl@0:   ::codecvt_byname(const char* /* name */, size_t refs)
sl@0:     : codecvt<char, char, mbstate_t>(refs)
sl@0: {}
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC codecvt_byname<char, char, mbstate_t>::~codecvt_byname() {}
sl@0: 
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // codecvt_byname<wchar_t>
sl@0: 
sl@0: _Locale_ctype* __acquire_ctype(const char* name);
sl@0: void __release_ctype(_Locale_ctype* cat);
sl@0: 
sl@0: _STLP_EXP_DECLSPEC codecvt_byname<wchar_t, char, mbstate_t>
sl@0:   ::codecvt_byname(const char* name, size_t refs)
sl@0:     : codecvt<wchar_t, char, mbstate_t>(refs),
sl@0:       _M_ctype(__acquire_ctype(name))
sl@0: {
sl@0:   if (!_M_ctype)
sl@0:     locale::_M_throw_runtime_error();
sl@0: }
sl@0: 
sl@0:  _STLP_EXP_DECLSPEC codecvt_byname<wchar_t, char, mbstate_t>::~codecvt_byname()
sl@0: {
sl@0:   __release_ctype(_M_ctype);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result  
sl@0: codecvt_byname<wchar_t, char, mbstate_t>
sl@0:   ::do_out(state_type&     state,
sl@0:            const wchar_t*  from,
sl@0:            const wchar_t*  from_end,
sl@0:            const wchar_t*& from_next,
sl@0:            char*           to,
sl@0:            char*           to_limit,
sl@0:            char*&          to_next) const
sl@0: {
sl@0:   while (from != from_end) {
sl@0:     size_t chars_stored = _Locale_wctomb(_M_ctype,
sl@0:                                          to, to_limit - to, *from,
sl@0:                                          &state);
sl@0:     if (chars_stored == (size_t) -1) {
sl@0:       from_next = from;
sl@0:       to_next   = to;
sl@0:       return error;
sl@0:     }
sl@0: 
sl@0:     else if (chars_stored == (size_t) -2) {
sl@0:       from_next = from;
sl@0:       to_next   = to;
sl@0:       return partial;
sl@0:     }
sl@0: 
sl@0:     ++from;
sl@0:     to += chars_stored;
sl@0:   }
sl@0: 
sl@0:   from_next = from;
sl@0:   to_next   = to;
sl@0:   return ok;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result  
sl@0: codecvt_byname<wchar_t, char, mbstate_t>
sl@0:   ::do_in(state_type&         state,
sl@0:           const extern_type*  from,
sl@0:           const extern_type*  from_end,
sl@0:           const extern_type*& from_next,
sl@0:           intern_type*        to,
sl@0:           intern_type*        to_limit,
sl@0:           intern_type*&       to_next) const
sl@0: {
sl@0:   while (from != from_end) {
sl@0:     int chars_write = 0;
sl@0:     size_t chars_read = _Locale_mbtowc(_M_ctype,
sl@0:                                        to, to_limit-to, from, from_end - from, &chars_write,
sl@0:                                        &state);
sl@0:     if (chars_read == (size_t) -1) {
sl@0:       from_next = from;
sl@0:       to_next   = to;
sl@0:       return error;
sl@0:     }
sl@0: 
sl@0:     if (chars_read == (size_t) -2) {
sl@0:       from_next = from;
sl@0:       to_next   = to;
sl@0:       return partial;
sl@0:     }
sl@0: 
sl@0:     from += chars_read;
sl@0:     to += chars_write;
sl@0:   }
sl@0: 
sl@0:   from_next = from;
sl@0:   to_next   = to;
sl@0:   return ok;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC codecvt<wchar_t, char, mbstate_t>::result  
sl@0: codecvt_byname<wchar_t, char, mbstate_t>
sl@0:   ::do_unshift(state_type&   state,
sl@0:                extern_type*  to,
sl@0:                extern_type*  to_limit,
sl@0:                extern_type*& to_next) const
sl@0: {
sl@0:   to_next = to;
sl@0:   size_t result = _Locale_unshift(_M_ctype, &state,
sl@0:                                   to, to_limit - to, &to_next);
sl@0:   if (result == (size_t) -1)
sl@0:     return error;
sl@0:   else if (result == (size_t) -2)
sl@0:     return partial;
sl@0:   else
sl@0: #ifdef __ISCPP__
sl@0:     return /*to_next == to ? noconv :*/ ok;
sl@0: #else
sl@0:     return to_next == to ? noconv : ok;
sl@0: #endif
sl@0: }
sl@0: 
sl@0: int  _STLP_EXP_DECLSPEC 
sl@0: codecvt_byname<wchar_t, char, mbstate_t>::do_encoding() const _STLP_NOTHROW
sl@0: {
sl@0:   if (_Locale_is_stateless(_M_ctype)) {
sl@0:     int max_width = _Locale_mb_cur_max(_M_ctype);
sl@0:     int min_width = _Locale_mb_cur_min(_M_ctype);
sl@0:     return min_width == max_width ? min_width : 0;
sl@0:   }
sl@0:   else
sl@0:     return -1;
sl@0: }
sl@0: 
sl@0: 
sl@0: _STLP_EXP_DECLSPEC bool codecvt_byname<wchar_t, char, mbstate_t>   
sl@0:   ::do_always_noconv() const _STLP_NOTHROW
sl@0: {
sl@0:   return false;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int   
sl@0: codecvt_byname<wchar_t, char, mbstate_t>::do_length(
sl@0:                                                     const state_type&,
sl@0:                                                     const  extern_type* from, const  extern_type* end,
sl@0:                                                     size_t mx) const 
sl@0: {
sl@0:   return (int)(min) ((size_t) (end - from), mx);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int 
sl@0: codecvt_byname<wchar_t, char, mbstate_t>::do_max_length() const _STLP_NOTHROW
sl@0: {
sl@0:   return _Locale_mb_cur_max(_M_ctype);
sl@0: }
sl@0: # endif /* WCHAR_T */
sl@0: 
sl@0: _STLP_END_NAMESPACE
sl@0: 
sl@0: # endif /* MBSTATE_T */
sl@0: 
sl@0: #include "locale_impl.h"
sl@0: # include <stl/_numpunct.h>
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: _Locale_numeric*  _STLP_CALL __acquire_numeric(const char* name);
sl@0: void  _STLP_CALL __release_numeric(_Locale_numeric* cat);
sl@0: 
sl@0: // numpunct_byname<char>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC numpunct_byname<char>::numpunct_byname(const char* name, size_t refs)
sl@0:   : numpunct<char>(refs),
sl@0:     _M_numeric(__acquire_numeric(name))
sl@0: {
sl@0:   if (!_M_numeric)
sl@0:     locale::_M_throw_runtime_error();
sl@0: 
sl@0: #if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)
sl@0:   numpunct<char>::GetNumPunct_M_truename()  = _Locale_true(_M_numeric);
sl@0:   numpunct<char>::GetNumPunct_M_falsename() = _Locale_false(_M_numeric);
sl@0: #else
sl@0:   _M_truename  = _Locale_true(_M_numeric);
sl@0:   _M_falsename = _Locale_false(_M_numeric);
sl@0: #endif
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC numpunct_byname<char>::~numpunct_byname()
sl@0: {
sl@0:   __release_numeric(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char numpunct_byname<char>::do_decimal_point() const {
sl@0:   return _Locale_decimal_point(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char numpunct_byname<char>::do_thousands_sep() const {
sl@0:   return _Locale_thousands_sep(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string numpunct_byname<char>::do_grouping() const {
sl@0:   const char * __grouping = _Locale_grouping(_M_numeric);
sl@0:   if (__grouping != NULL && __grouping[0] == CHAR_MAX)
sl@0:     __grouping = "";
sl@0:   return __grouping;
sl@0: }
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // numpunct<wchar_t>
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: // numpunct_byname<wchar_t> 
sl@0: 
sl@0: _STLP_EXP_DECLSPEC numpunct_byname<wchar_t>::numpunct_byname(const char* name, size_t refs)
sl@0:   : numpunct<wchar_t>(refs),
sl@0:     _M_numeric(__acquire_numeric(name))
sl@0: {
sl@0:   if (!_M_numeric)
sl@0:     locale::_M_throw_runtime_error();
sl@0: 
sl@0:   const char* truename  = _Locale_true(_M_numeric);
sl@0:   const char* falsename = _Locale_false(_M_numeric);
sl@0: #if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)
sl@0:   numpunct<wchar_t>::GetNumPunct_M_Wchar_truename().resize(strlen(truename));
sl@0:   numpunct<wchar_t>::GetNumPunct_M_Wchar_falsename().resize(strlen(falsename));
sl@0:   copy(truename,  truename  + strlen(truename), numpunct<wchar_t>::GetNumPunct_M_Wchar_truename().begin());
sl@0:   copy(falsename, falsename + strlen(falsename), numpunct<wchar_t>::GetNumPunct_M_Wchar_falsename().begin());
sl@0: #else
sl@0:   _M_truename.resize(strlen(truename));
sl@0:   _M_falsename.resize(strlen(falsename));
sl@0:   copy(truename,  truename  + strlen(truename), _M_truename.begin());
sl@0:   copy(falsename, falsename + strlen(falsename), _M_falsename.begin());
sl@0: #endif
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC numpunct_byname<wchar_t>::~numpunct_byname()
sl@0: {
sl@0:   __release_numeric(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t numpunct_byname<wchar_t>::do_decimal_point() const {
sl@0:   return (wchar_t) _Locale_decimal_point(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t numpunct_byname<wchar_t>::do_thousands_sep() const {
sl@0:   return (wchar_t) _Locale_thousands_sep(_M_numeric);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string numpunct_byname<wchar_t>::do_grouping() const {
sl@0:   const char * __grouping = _Locale_grouping(_M_numeric);
sl@0:   if (__grouping != NULL && __grouping[0] == CHAR_MAX)
sl@0:     __grouping = "";
sl@0:   return __grouping;
sl@0: }
sl@0: 
sl@0: # endif
sl@0: 
sl@0: _STLP_END_NAMESPACE
sl@0: 
sl@0: #include <stl/_monetary.h>
sl@0: // #include <stl/_ostream.h>
sl@0: // #include <stl/_istream.h>
sl@0: #include "c_locale.h"
sl@0: 
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: static void _Init_monetary_formats(money_base::pattern& pos_format,
sl@0:                                     money_base::pattern& neg_format,
sl@0:                                     _Locale_monetary * monetary) {
sl@0:   switch (_Locale_p_sign_posn(monetary)) {
sl@0:     case 0: case 1:
sl@0:       pos_format.field[0] = (char) money_base::sign;
sl@0:       if (_Locale_p_cs_precedes(monetary)) {
sl@0: 	pos_format.field[1] = (char) money_base::symbol;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[2] = (char) money_base::space;
sl@0: 	  pos_format.field[3] = (char) money_base::value;
sl@0: 	}
sl@0: 	else {
sl@0: 	  pos_format.field[2] = (char) money_base::value;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	//pos_format.field[2] = (char) money_base::value; //gnu bug fix, 3/1/07
sl@0: 	pos_format.field[1] = (char) money_base::value;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[2] = (char) money_base::space;
sl@0: 	  pos_format.field[3] = (char) money_base::symbol;
sl@0: 	}
sl@0: 	else {
sl@0: 	  pos_format.field[2] = (char) money_base::symbol;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }       
sl@0:       break;
sl@0:     case 2:
sl@0:       if (_Locale_p_cs_precedes(monetary)) {
sl@0: 	pos_format.field[0] = (char) money_base::symbol;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[1] = (char) money_base::space;
sl@0: 	  pos_format.field[2] = (char) money_base::value;
sl@0: 	  pos_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0: 	else {
sl@0: 	  pos_format.field[1] = (char) money_base::value;
sl@0: 	  pos_format.field[2] = (char) money_base::sign;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	pos_format.field[1] = (char) money_base::value;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[1] = (char) money_base::space;
sl@0: 	  pos_format.field[2] = (char) money_base::symbol;
sl@0: 	  pos_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0: 	else {
sl@0: 	  pos_format.field[1] = (char) money_base::symbol;
sl@0: 	  pos_format.field[2] = (char) money_base::sign;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       break;
sl@0:     case 3:
sl@0:       if (_Locale_p_cs_precedes(monetary)) {
sl@0: 	pos_format.field[0] = (char) money_base::sign;
sl@0: 	pos_format.field[1] = (char) money_base::symbol;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[2] = (char) money_base::space;
sl@0: 	  pos_format.field[3] = (char) money_base::value;
sl@0: 	}
sl@0: 	else {
sl@0: 	  pos_format.field[2] = (char) money_base::value;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	pos_format.field[0] = (char) money_base::value;
sl@0: 	pos_format.field[1] = (char) money_base::sign;
sl@0: 	pos_format.field[2] = (char) money_base::symbol;
sl@0: 	pos_format.field[3] = (char) money_base::none;
sl@0:       }
sl@0:       break;
sl@0:     case 4: default:
sl@0:       if (_Locale_p_cs_precedes(monetary)) {
sl@0: 	pos_format.field[0] = (char) money_base::symbol;
sl@0: 	pos_format.field[1] = (char) money_base::sign;
sl@0: 	pos_format.field[2] = (char) money_base::value;
sl@0: 	pos_format.field[3] = (char) money_base::none;
sl@0:       }
sl@0:       else {
sl@0: 	pos_format.field[0] = (char) money_base::value;
sl@0: 	if (_Locale_p_sep_by_space(monetary)) {
sl@0: 	  pos_format.field[1] = (char) money_base::space;
sl@0: 	  pos_format.field[2] = (char) money_base::symbol;
sl@0: 	  pos_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0:         else {
sl@0: 	  pos_format.field[1] = (char) money_base::symbol;
sl@0: 	  pos_format.field[2] = (char) money_base::sign;
sl@0: 	  pos_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:     break;
sl@0:   }
sl@0: 
sl@0:   switch (_Locale_n_sign_posn(monetary)) {
sl@0:     case 0: case 1:
sl@0:       neg_format.field[0] = (char) money_base::sign;
sl@0:       if (_Locale_n_cs_precedes(monetary)) {
sl@0:         neg_format.field[1] = (char) money_base::symbol;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[2] = (char) money_base::space;
sl@0: 	  neg_format.field[3] = (char) money_base::value;
sl@0: 	}
sl@0: 	else {
sl@0: 	  neg_format.field[2] = (char) money_base::value;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	neg_format.field[2] = (char) money_base::value;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[2] = (char) money_base::space;
sl@0: 	  neg_format.field[3] = (char) money_base::symbol;
sl@0: 	}
sl@0: 	else {
sl@0: 	  neg_format.field[2] = (char) money_base::symbol;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }       
sl@0:       break;
sl@0:     case 2:
sl@0:       if (_Locale_n_cs_precedes(monetary)) {
sl@0: 	neg_format.field[0] = (char) money_base::symbol;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[1] = (char) money_base::space;
sl@0: 	  neg_format.field[2] = (char) money_base::value;
sl@0: 	  neg_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0: 	else {
sl@0: 	  neg_format.field[1] = (char) money_base::value;
sl@0: 	  neg_format.field[2] = (char) money_base::sign;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	neg_format.field[1] = (char) money_base::value;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[1] = (char) money_base::space;
sl@0: 	  neg_format.field[2] = (char) money_base::symbol;
sl@0: 	  neg_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0: 	else {
sl@0: 	  neg_format.field[1] = (char) money_base::symbol;
sl@0: 	  neg_format.field[2] = (char) money_base::sign;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       break;
sl@0:     case 3:
sl@0:       if (_Locale_n_cs_precedes(monetary)) {
sl@0: 	neg_format.field[0] = (char) money_base::sign;
sl@0: 	neg_format.field[1] = (char) money_base::symbol;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[2] = (char) money_base::space;
sl@0: 	  neg_format.field[3] = (char) money_base::value;
sl@0: 	}
sl@0: 	else {
sl@0: 	  neg_format.field[2] = (char) money_base::value;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       else {
sl@0: 	neg_format.field[0] = (char) money_base::value;
sl@0: 	neg_format.field[1] = (char) money_base::sign;
sl@0: 	neg_format.field[2] = (char) money_base::symbol;
sl@0: 	neg_format.field[3] = (char) money_base::none;
sl@0:       }
sl@0:       break;
sl@0:     case 4: default:
sl@0:       if (_Locale_n_cs_precedes(monetary)) {
sl@0: 	neg_format.field[0] = (char) money_base::symbol;
sl@0: 	neg_format.field[1] = (char) money_base::sign;
sl@0: 	neg_format.field[2] = (char) money_base::value;
sl@0: 	neg_format.field[3] = (char) money_base::none;
sl@0:       }
sl@0:       else {
sl@0: 	neg_format.field[0] = (char) money_base::value;
sl@0: 	if (_Locale_n_sep_by_space(monetary)) {
sl@0: 	  neg_format.field[1] = (char) money_base::space;
sl@0: 	  neg_format.field[2] = (char) money_base::symbol;
sl@0: 	  neg_format.field[3] = (char) money_base::sign;
sl@0: 	}
sl@0:         else {
sl@0: 	  neg_format.field[1] = (char) money_base::symbol;
sl@0: 	  neg_format.field[2] = (char) money_base::sign;
sl@0: 	  neg_format.field[3] = (char) money_base::none;
sl@0: 	}
sl@0:       }
sl@0:       break;
sl@0:   }
sl@0: }
sl@0: 
sl@0: 
sl@0: //
sl@0: // moneypunct_byname<>
sl@0: //
sl@0: 
sl@0: _Locale_monetary* __acquire_monetary(const char* name);
sl@0: void __release_monetary(_Locale_monetary* mon);
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<char, true>::moneypunct_byname(const char * name,
sl@0: 						 size_t refs):
sl@0:   moneypunct<char, true>(refs),
sl@0:   _M_monetary(__acquire_monetary(name))
sl@0: {
sl@0:   if (!_M_monetary)
sl@0:     locale::_M_throw_runtime_error();
sl@0:   _Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<char, true>::~moneypunct_byname()
sl@0: {
sl@0:   __release_monetary(_M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char moneypunct_byname<char, true>::do_decimal_point() const 
sl@0:   {return _Locale_mon_decimal_point(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char moneypunct_byname<char, true>::do_thousands_sep() const
sl@0:   {return _Locale_mon_thousands_sep(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_grouping() const
sl@0:   {return _Locale_mon_grouping(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_curr_symbol() const
sl@0:   {return _Locale_int_curr_symbol(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_positive_sign() const
sl@0:   {return _Locale_positive_sign(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, true>::do_negative_sign() const
sl@0:   {return _Locale_negative_sign(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int moneypunct_byname<char, true>::do_frac_digits() const 
sl@0:   {return _Locale_int_frac_digits(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<char, false>::moneypunct_byname(const char * name,
sl@0: 						  size_t refs):
sl@0:   moneypunct<char, false>(refs),
sl@0:   _M_monetary(__acquire_monetary(name))
sl@0: {
sl@0:   if (!_M_monetary)
sl@0:     locale::_M_throw_runtime_error();
sl@0:   _Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<char, false>::~moneypunct_byname()
sl@0: {
sl@0:   __release_monetary(_M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char moneypunct_byname<char, false>::do_decimal_point() const
sl@0:   {return _Locale_mon_decimal_point(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char moneypunct_byname<char, false>::do_thousands_sep() const
sl@0:   {return _Locale_mon_thousands_sep(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_grouping() const
sl@0:   {return _Locale_mon_grouping(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_curr_symbol() const
sl@0:   {return _Locale_currency_symbol(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_positive_sign() const
sl@0:   {return _Locale_positive_sign(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<char, false>::do_negative_sign() const
sl@0:   {return _Locale_negative_sign(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int moneypunct_byname<char, false>::do_frac_digits() const 
sl@0:   {return _Locale_frac_digits(_M_monetary);}
sl@0: 
sl@0: //
sl@0: // moneypunct_byname<wchar_t>
sl@0: //
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, true>::moneypunct_byname(const char * name,
sl@0: 						 size_t refs):
sl@0:   moneypunct<wchar_t, true>(refs),
sl@0:   _M_monetary(__acquire_monetary(name))
sl@0: {
sl@0:   if (!_M_monetary)
sl@0:     locale::_M_throw_runtime_error();
sl@0:   _Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, true>::~moneypunct_byname() 
sl@0: {
sl@0:   __release_monetary(_M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, true>::do_decimal_point() const
sl@0:   {return _Locale_mon_decimal_point(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, true>::do_thousands_sep() const
sl@0:   {return _Locale_mon_thousands_sep(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<wchar_t, true>::do_grouping() const
sl@0:   {return _Locale_mon_grouping(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_curr_symbol() const
sl@0: {
sl@0:   string str = _Locale_int_curr_symbol(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_positive_sign() const
sl@0: {
sl@0:   string str = _Locale_positive_sign(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, true>::do_negative_sign() const
sl@0: {
sl@0:   string str = _Locale_negative_sign(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC)  || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int moneypunct_byname<wchar_t, true>::do_frac_digits() const 
sl@0:   {return _Locale_int_frac_digits(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC  moneypunct_byname<wchar_t, false>::moneypunct_byname(const char * name,
sl@0: 						 size_t refs):
sl@0:   moneypunct<wchar_t, false>(refs),
sl@0:   _M_monetary(__acquire_monetary(name))
sl@0: {
sl@0:   if (!_M_monetary)
sl@0:     locale::_M_throw_runtime_error() ;
sl@0:   _Init_monetary_formats(_M_pos_format, _M_neg_format, _M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC moneypunct_byname<wchar_t, false>::~moneypunct_byname()
sl@0: {
sl@0:   __release_monetary(_M_monetary);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, false>::do_decimal_point() const
sl@0:   {return _Locale_mon_decimal_point(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wchar_t moneypunct_byname<wchar_t, false>::do_thousands_sep() const
sl@0:   {return _Locale_mon_thousands_sep(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC string moneypunct_byname<wchar_t, false>::do_grouping() const
sl@0:   {return _Locale_mon_grouping(_M_monetary);}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_curr_symbol() const
sl@0: {
sl@0:   string str =  _Locale_currency_symbol(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_positive_sign() const
sl@0: {
sl@0:   string str = _Locale_positive_sign(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC wstring moneypunct_byname<wchar_t, false>::do_negative_sign() const
sl@0: {
sl@0:   string str = _Locale_negative_sign(_M_monetary);
sl@0: # if defined (_STLP_NO_MEMBER_TEMPLATES) || defined (_STLP_MSVC) || defined(__MRC__) || defined(__SC__)		//*ty 05/26/2001 - added workaround for mpw
sl@0:   wstring result(wstring::_Reserve_t(), str.size());
sl@0:   copy(str.begin(), str.end(), result.begin());
sl@0: # else
sl@0:   wstring result(str.begin(), str.end());
sl@0: # endif
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC int moneypunct_byname<wchar_t, false>::do_frac_digits() const 
sl@0:   {return _Locale_frac_digits(_M_monetary);}
sl@0: 
sl@0: # endif
sl@0: 
sl@0: _STLP_END_NAMESPACE  
sl@0: 
sl@0: #include <stl/_messages_facets.h>
sl@0: #include "message_facets.h"
sl@0: #include <typeinfo>
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: void _Catalog_locale_map::insert(int key, const locale& L)
sl@0: {
sl@0: # ifdef _STLP_NO_WCHAR_T
sl@0:   typedef char _Char;
sl@0: # else
sl@0:   typedef wchar_t _Char;
sl@0: # endif
sl@0: #if !defined(_STLP_NO_TYPEINFO)
sl@0:   // Don't bother to do anything unless we're using a non-default ctype facet
sl@0:   _STLP_TRY {
sl@0:     typedef ctype<_Char> wctype;
sl@0:     wctype& wct = (wctype &)use_facet<wctype>(L);
sl@0:     wctype* zz;
sl@0:     if (typeid(&wct) != typeid(zz)) {
sl@0:       if (!M)
sl@0:         M = new hash_map<int, locale, hash<int>, equal_to<int> >;
sl@0: 
sl@0: #if defined(__SC__)
sl@0:       if (!M) delete M;
sl@0: #endif
sl@0:       if (M->find(key) == M->end())
sl@0:         M->insert(pair<const int, locale>(key, L));
sl@0:     }
sl@0:   }
sl@0:   _STLP_CATCH_ALL {}
sl@0: # endif /* _STLP_NO_TYPEINFO */
sl@0: }
sl@0: 
sl@0: void _Catalog_locale_map::erase(int key)
sl@0: {
sl@0:   if (M)
sl@0:     M->erase(key);
sl@0: }
sl@0: 
sl@0: locale _Catalog_locale_map::lookup(int key) const
sl@0: {
sl@0:   if (M) {
sl@0:     hash_map<int, locale, hash<int>, equal_to<int> >::iterator i = M->find(key);
sl@0:     return i != M->end() ? (*i).second : locale::classic();
sl@0:   }
sl@0:   else
sl@0:     return locale::classic();
sl@0: }
sl@0: 
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: //
sl@0: //
sl@0: 
sl@0: _Messages_impl::_Messages_impl(bool is_wide) : 
sl@0:   _M_message_obj(0), _M_map(0)
sl@0: { 
sl@0:   _M_delete = true;
sl@0:   if (is_wide) 
sl@0:     _M_map = new _Catalog_locale_map;
sl@0:   _M_message_obj = __acquire_messages("C");
sl@0: }
sl@0: 
sl@0: _Messages_impl::_Messages_impl(bool is_wide, _Locale_messages* msg_obj ) : 
sl@0:   _M_message_obj(msg_obj), _M_map(0)
sl@0: { 
sl@0:   _M_delete = true;
sl@0:   if (is_wide) 
sl@0:     _M_map = new _Catalog_locale_map;
sl@0: }
sl@0: 
sl@0: _Messages_impl::~_Messages_impl()
sl@0: {
sl@0:   __release_messages(_M_message_obj);
sl@0:   if (_M_map) delete _M_map;
sl@0: }
sl@0: 
sl@0: int _Messages_impl::do_open(const string& filename, const locale& L) const
sl@0: {  
sl@0:   int result = _M_message_obj
sl@0:     ? _Locale_catopen(_M_message_obj, filename.c_str())
sl@0:     : -1;
sl@0: 
sl@0:   if (result >= 0 && _M_map != 0)
sl@0:     _M_map->insert(result, L);
sl@0: 
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: string _Messages_impl::do_get(catalog cat,
sl@0:                               int set, int p_id, const string& dfault) const
sl@0: {
sl@0:   return _M_message_obj != 0 && cat >= 0
sl@0:     ? string(_Locale_catgets(_M_message_obj, cat, set, p_id, dfault.c_str()))
sl@0:     : dfault;
sl@0: }
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: wstring
sl@0: _Messages_impl::do_get(catalog thecat,
sl@0: 		       int set, int p_id, const wstring& dfault) const
sl@0: {
sl@0:   typedef ctype<wchar_t> wctype;
sl@0:   const wctype& ct = use_facet<wctype>(_M_map->lookup(thecat));
sl@0: 
sl@0:   const char* str = _Locale_catgets(_M_message_obj, thecat, set, p_id, "");
sl@0: 
sl@0:   // Verify that the lookup failed; an empty string might represent success.
sl@0:   if (!str)
sl@0:     return dfault;
sl@0:   else if (str[0] == '\0') {
sl@0:     const char* str2 = _Locale_catgets(_M_message_obj, thecat, set, p_id, "*");
sl@0:     if (!str2 || strcmp(str2, "*") == 0)
sl@0:       return dfault;
sl@0:   }
sl@0: 
sl@0:   // str is correct.  Now we must widen it to get a wstring.
sl@0:   size_t n = strlen(str);
sl@0: 
sl@0:   // NOT PORTABLE.  What we're doing relies on internal details of the 
sl@0:   // string implementation.  (Contiguity of string elements.)
sl@0:   wstring result(n, wchar_t(0));
sl@0:   ct.widen(str, str + n, &*result.begin());
sl@0:   return result;
sl@0: }
sl@0: 
sl@0: # endif
sl@0: 
sl@0: void _Messages_impl::do_close(catalog thecat) const
sl@0: {
sl@0:   if (_M_message_obj)
sl@0:     _Locale_catclose(_M_message_obj, thecat);
sl@0:   if (_M_map) _M_map->erase(thecat);
sl@0: }
sl@0: 
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // messages<char>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages<char>::messages(size_t refs)  : 
sl@0:   _BaseFacet(refs), _M_impl(new _Messages_impl(false))
sl@0: {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages<char>::messages(size_t refs, _Locale_messages* msg_obj) : _BaseFacet(refs), 
sl@0:   _M_impl(new _Messages_impl(false, msg_obj))
sl@0: {}
sl@0: 
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // messages_byname<char>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages_byname<char>::messages_byname(const char* name, size_t refs)
sl@0:   : messages<char>(refs, name ? __acquire_messages(name) : 0)
sl@0: {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages_byname<char>::~messages_byname()
sl@0: {}
sl@0: 
sl@0: # ifndef _STLP_NO_WCHAR_T
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // messages<wchar_t>
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages<wchar_t>::messages(size_t refs)  : 
sl@0:   _BaseFacet(refs), _M_impl(new _Messages_impl(true))
sl@0: {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages<wchar_t>::messages(size_t refs, _Locale_messages* msg_obj)
sl@0:   : _BaseFacet(refs),
sl@0:     _M_impl(new _Messages_impl(true, msg_obj))
sl@0: {}
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // messages_byname<wchar_t>
sl@0: 
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages_byname<wchar_t>::messages_byname(const char* name, size_t refs)
sl@0:   : messages<wchar_t>(refs, name ? __acquire_messages(name) : 0)
sl@0: {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC messages_byname<wchar_t>::~messages_byname()
sl@0: {}
sl@0: 
sl@0: # endif
sl@0: 
sl@0: _STLP_END_NAMESPACE
sl@0: