williamr@2: /*
williamr@4:  * Portions Copyright (c) 2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
williamr@2:  *
williamr@2:  * Copyright (c) 1999
williamr@2:  * Silicon Graphics Computer Systems, Inc.
williamr@2:  *
williamr@4:  * Copyright (c) 1999
williamr@2:  * Boris Fomitchev
williamr@2:  *
williamr@2:  * This material is provided "as is", with absolutely no warranty expressed
williamr@2:  * or implied. Any use is at your own risk.
williamr@2:  *
williamr@4:  * Permission to use or copy this software for any purpose is hereby granted
williamr@2:  * without fee, provided the above notices are retained on all copies.
williamr@2:  * Permission to modify the code and to distribute modified code is granted,
williamr@2:  * provided the above notices are retained, and a notice that the code was
williamr@2:  * modified is included with the above copyright notice.
williamr@2:  *
williamr@4:  */
williamr@2: #ifndef _STLP_NUM_PUT_C
williamr@2: #define _STLP_NUM_PUT_C
williamr@2: 
williamr@2: #ifndef _STLP_INTERNAL_NUM_PUT_H
williamr@4: #  include <stl/_num_put.h>
williamr@2: #endif
williamr@2: 
williamr@4: #ifndef _STLP_INTERNAL_LIMITS
williamr@4: #  include <stl/_limits.h>
williamr@2: #endif
williamr@2: 
williamr@2: _STLP_BEGIN_NAMESPACE
williamr@2: 
williamr@4: _STLP_MOVE_TO_PRIV_NAMESPACE
williamr@4: 
williamr@4: // __do_put_float and its helper functions.  Strategy: write the output
williamr@2: // to a buffer of char, transform the buffer to _CharT, and then copy
williamr@2: // it to the output.
williamr@2: 
williamr@2: //----------------------------------------------------------------------
williamr@2: // num_put facet
williamr@2: 
williamr@2: template <class _CharT, class _OutputIter>
williamr@2: _OutputIter  _STLP_CALL
williamr@2: __copy_float_and_fill(const _CharT* __first, const _CharT* __last,
williamr@4:                       _OutputIter __oi,
williamr@2:                       ios_base::fmtflags __flags,
williamr@2:                       streamsize __width, _CharT __fill,
williamr@2:                       _CharT __xplus, _CharT __xminus) {
williamr@2:   if (__width <= __last - __first)
williamr@4:     return copy(__first, __last, __oi);
williamr@2:   else {
williamr@2:     streamsize __pad = __width - (__last - __first);
williamr@2:     ios_base::fmtflags __dir = __flags & ios_base::adjustfield;
williamr@2: 
williamr@2:     if (__dir == ios_base::left) {
williamr@4:       __oi = copy(__first, __last, __oi);
williamr@4:       return __fill_n(__oi, __pad, __fill);
williamr@2:     }
williamr@2:     else if (__dir == ios_base::internal && __first != __last &&
williamr@2:              (*__first == __xplus || *__first == __xminus)) {
williamr@4:       *__oi++ = *__first++;
williamr@4:       __oi = __fill_n(__oi, __pad, __fill);
williamr@4:       return copy(__first, __last, __oi);
williamr@2:     }
williamr@2:     else {
williamr@4:       __oi = __fill_n(__oi, __pad, __fill);
williamr@4:       return copy(__first, __last, __oi);
williamr@2:     }
williamr@2:   }
williamr@2: }
williamr@2: 
williamr@4: #if !defined (_STLP_NO_WCHAR_T)
williamr@2: // Helper routine for wchar_t
williamr@2: template <class _OutputIter>
williamr@2: _OutputIter  _STLP_CALL
williamr@4: __put_float(__iostring &__str, _OutputIter __oi,
williamr@2:             ios_base& __f, wchar_t __fill,
williamr@4:             wchar_t __decimal_point, wchar_t __sep,
williamr@4:             size_t __group_pos, const string& __grouping) {
williamr@4:   const ctype<wchar_t>& __ct = *__STATIC_CAST(const ctype<wchar_t>*, __f._M_ctype_facet());
williamr@2: 
williamr@4:   __iowstring __wbuf;
williamr@4:   __convert_float_buffer(__str, __wbuf, __ct, __decimal_point);
williamr@4: 
williamr@2:   if (!__grouping.empty()) {
williamr@4:     __insert_grouping(__wbuf, __group_pos, __grouping,
williamr@4:                       __sep, __ct.widen('+'), __ct.widen('-'), 0);
williamr@2:   }
williamr@2: 
williamr@4:   return __copy_float_and_fill(__CONST_CAST(wchar_t*, __wbuf.data()),
williamr@4:                                __CONST_CAST(wchar_t*, __wbuf.data()) + __wbuf.size(), __oi,
williamr@4:                                __f.flags(), __f.width(0), __fill, __ct.widen('+'), __ct.widen('-'));
williamr@2: }
williamr@4: #endif /* WCHAR_T */
williamr@2: 
williamr@2: // Helper routine for char
williamr@2: template <class _OutputIter>
williamr@2: _OutputIter  _STLP_CALL
williamr@4: __put_float(__iostring &__str, _OutputIter __oi,
williamr@2:             ios_base& __f, char __fill,
williamr@4:             char __decimal_point, char __sep,
williamr@4:             size_t __group_pos, const string& __grouping) {
williamr@4:   if ((__group_pos < __str.size()) && (__str[__group_pos] == '.')) {
williamr@4:     __str[__group_pos] = __decimal_point;
williamr@2:   }
williamr@2: 
williamr@4:   if (!__grouping.empty()) {
williamr@4:     __insert_grouping(__str, __group_pos,
williamr@4:                       __grouping, __sep, '+', '-', 0);
williamr@4:   }
williamr@4: 
williamr@4:   return __copy_float_and_fill(__CONST_CAST(char*, __str.data()),
williamr@4:                                __CONST_CAST(char*, __str.data()) + __str.size(), __oi,
williamr@2:                                __f.flags(), __f.width(0), __fill, '+', '-');
williamr@2: }
williamr@2: 
williamr@4: template <class _CharT, class _OutputIter, class _Float>
williamr@4: _OutputIter _STLP_CALL
williamr@4: __do_put_float(_OutputIter __s, ios_base& __f,
williamr@4:                 _CharT __fill, _Float __x) {
williamr@4:   __iostring __buf;
williamr@2: 
williamr@4:   size_t __group_pos = __write_float(__buf, __f.flags(), (int)__f.precision(), __x);
williamr@2: 
williamr@4:   const numpunct<_CharT>& __np = *__STATIC_CAST(const numpunct<_CharT>*, __f._M_numpunct_facet());
williamr@4: 
williamr@4:   return __put_float(__buf, __s, __f, __fill,
williamr@4:                      __np.decimal_point(), __np.thousands_sep(),
williamr@4:                      __group_pos, __f._M_grouping());
williamr@2: }
williamr@2: 
williamr@4: inline void __get_money_digits_aux (__iostring &__buf, ios_base &, _STLP_LONGEST_FLOAT_TYPE __x)
williamr@4: { __get_floor_digits(__buf, __x); }
williamr@2: 
williamr@4: #if !defined (_STLP_NO_WCHAR_T)
williamr@4: inline void __get_money_digits_aux (__iowstring &__wbuf, ios_base &__f, _STLP_LONGEST_FLOAT_TYPE __x) {
williamr@4:   __iostring __buf;
williamr@4:   __get_floor_digits(__buf, __x);
williamr@4: 
williamr@4:   const ctype<wchar_t>& __ct = *__STATIC_CAST(const ctype<wchar_t>*, __f._M_ctype_facet());
williamr@4:   __convert_float_buffer(__buf, __wbuf, __ct, wchar_t(0), false);
williamr@4: }
williamr@2: #endif
williamr@2: 
williamr@4: template <class _CharT>
williamr@4: void _STLP_CALL __get_money_digits(_STLP_BASIC_IOSTRING(_CharT) &__buf, ios_base& __f, _STLP_LONGEST_FLOAT_TYPE __x)
williamr@4: { __get_money_digits_aux(__buf, __f, __x); }
williamr@2: 
williamr@2: // _M_do_put_integer and its helper functions.
williamr@2: 
williamr@2: template <class _CharT, class _OutputIter>
williamr@2: _OutputIter _STLP_CALL
williamr@2: __copy_integer_and_fill(const _CharT* __buf, ptrdiff_t __len,
williamr@4:                         _OutputIter __oi,
williamr@2:                         ios_base::fmtflags __flg, streamsize __wid, _CharT __fill,
williamr@4:                         _CharT __xplus, _CharT __xminus) {
williamr@2:   if (__len >= __wid)
williamr@4:     return copy(__buf, __buf + __len, __oi);
williamr@2:   else {
williamr@4:     //casting numeric_limits<ptrdiff_t>::max to streamsize only works is ptrdiff_t is signed or streamsize representation
williamr@4:     //is larger than ptrdiff_t one.
williamr@4:     _STLP_STATIC_ASSERT((sizeof(streamsize) > sizeof(ptrdiff_t)) ||
williamr@4:                         (sizeof(streamsize) == sizeof(ptrdiff_t)) && numeric_limits<ptrdiff_t>::is_signed)
williamr@4:     ptrdiff_t __pad = __STATIC_CAST(ptrdiff_t, (min) (__STATIC_CAST(streamsize, (numeric_limits<ptrdiff_t>::max)()),
williamr@4:                                                       __STATIC_CAST(streamsize, __wid - __len)));
williamr@2:     ios_base::fmtflags __dir = __flg & ios_base::adjustfield;
williamr@2: 
williamr@2:     if (__dir == ios_base::left) {
williamr@4:       __oi = copy(__buf, __buf + __len, __oi);
williamr@4:       return __fill_n(__oi, __pad, __fill);
williamr@2:     }
williamr@2:     else if (__dir == ios_base::internal && __len != 0 &&
williamr@2:              (__buf[0] == __xplus || __buf[0] == __xminus)) {
williamr@4:       *__oi++ = __buf[0];
williamr@4:       __oi = __fill_n(__oi, __pad, __fill);
williamr@4:       return copy(__buf + 1, __buf + __len, __oi);
williamr@2:     }
williamr@4:     else if (__dir == ios_base::internal && __len >= 2  &&
williamr@2:              (__flg & ios_base::showbase) &&
williamr@2:              (__flg & ios_base::basefield) == ios_base::hex) {
williamr@4:       *__oi++ = __buf[0];
williamr@4:       *__oi++ = __buf[1];
williamr@4:       __oi = __fill_n(__oi, __pad, __fill);
williamr@4:       return copy(__buf + 2, __buf + __len, __oi);
williamr@2:     }
williamr@2:     else {
williamr@4:       __oi = __fill_n(__oi, __pad, __fill);
williamr@4:       return copy(__buf, __buf + __len, __oi);
williamr@2:     }
williamr@2:   }
williamr@2: }
williamr@2: 
williamr@4: #if !defined (_STLP_NO_WCHAR_T)
williamr@2: // Helper function for wchar_t
williamr@2: template <class _OutputIter>
williamr@2: _OutputIter _STLP_CALL
williamr@2: __put_integer(char* __buf, char* __iend, _OutputIter __s,
williamr@2:               ios_base& __f,
williamr@4:               ios_base::fmtflags __flags, wchar_t __fill) {
williamr@2:   locale __loc = __f.getloc();
williamr@4:   //  const ctype<wchar_t>& __ct = use_facet<ctype<wchar_t> >(__loc);
williamr@4:   const ctype<wchar_t>& __ct = *__STATIC_CAST(const ctype<wchar_t>*, __f._M_ctype_facet());
williamr@2: 
williamr@2:   wchar_t __xplus  = __ct.widen('+');
williamr@2:   wchar_t __xminus = __ct.widen('-');
williamr@2: 
williamr@2:   wchar_t __wbuf[64];
williamr@2:   __ct.widen(__buf, __iend, __wbuf);
williamr@2:   ptrdiff_t __len = __iend - __buf;
williamr@2:   wchar_t* __eend = __wbuf + __len;
williamr@2: 
williamr@4:   //  const numpunct<wchar_t>& __np = use_facet<numpunct<wchar_t> >(__loc);
williamr@4:   //  const string& __grouping = __np.grouping();
williamr@2: 
williamr@4:   const numpunct<wchar_t>& __np = *__STATIC_CAST(const numpunct<wchar_t>*, __f._M_numpunct_facet());
williamr@4:   const string& __grouping = __f._M_grouping();
williamr@2: 
williamr@2:   if (!__grouping.empty()) {
williamr@2:     int __basechars;
williamr@2:     if (__flags & ios_base::showbase)
williamr@2:       switch (__flags & ios_base::basefield) {
williamr@4:         case ios_base::hex: __basechars = 2; break;
williamr@4:         case ios_base::oct: __basechars = 1; break;
williamr@4:         default: __basechars = 0;
williamr@2:       }
williamr@2:     else
williamr@2:       __basechars = 0;
williamr@2: 
williamr@2:     __len = __insert_grouping(__wbuf, __eend, __grouping, __np.thousands_sep(),
williamr@4:                               __xplus, __xminus, __basechars);
williamr@2:   }
williamr@2: 
williamr@2:   return __copy_integer_and_fill((wchar_t*)__wbuf, __len, __s,
williamr@2:                                  __flags, __f.width(0), __fill, __xplus, __xminus);
williamr@2: }
williamr@2: #endif
williamr@2: 
williamr@4: // Helper function for char
williamr@4: template <class _OutputIter>
williamr@2: _OutputIter _STLP_CALL
williamr@2: __put_integer(char* __buf, char* __iend, _OutputIter __s,
williamr@4:               ios_base& __f, ios_base::fmtflags __flags, char __fill) {
williamr@4:   char __grpbuf[64];
williamr@4:   ptrdiff_t __len = __iend - __buf;
williamr@2: 
williamr@4:   //  const numpunct<char>& __np = use_facet<numpunct<char> >(__f.getloc());
williamr@4:   //  const string& __grouping = __np.grouping();
williamr@2: 
williamr@4:   const numpunct<char>& __np = *__STATIC_CAST(const numpunct<char>*, __f._M_numpunct_facet());
williamr@4:   const string& __grouping = __f._M_grouping();
williamr@2: 
williamr@2:   if (!__grouping.empty()) {
williamr@2:     int __basechars;
williamr@2:     if (__flags & ios_base::showbase)
williamr@2:       switch (__flags & ios_base::basefield) {
williamr@4:         case ios_base::hex: __basechars = 2; break;
williamr@4:         case ios_base::oct: __basechars = 1; break;
williamr@4:         default: __basechars = 0;
williamr@2:       }
williamr@2:     else
williamr@2:       __basechars = 0;
williamr@2: 
williamr@4:      // make sure there is room at the end of the buffer
williamr@4:      // we pass to __insert_grouping
williamr@4:     copy(__buf, __iend, (char *) __grpbuf);
williamr@4:     __buf = __grpbuf;
williamr@4:     __iend = __grpbuf + __len;
williamr@2:     __len = __insert_grouping(__buf, __iend, __grouping, __np.thousands_sep(),
williamr@4:                               '+', '-', __basechars);
williamr@2:   }
williamr@2: 
williamr@2:   return __copy_integer_and_fill(__buf, __len, __s, __flags, __f.width(0), __fill, '+', '-');
williamr@2: }
williamr@2: 
williamr@4: #if defined (_STLP_LONG_LONG)
williamr@2: typedef _STLP_LONG_LONG __max_int_t;
williamr@2: typedef unsigned _STLP_LONG_LONG __umax_int_t;
williamr@2: #else
williamr@2: typedef long __max_int_t;
williamr@2: typedef unsigned long __umax_int_t;
williamr@2: #endif
williamr@2: 
williamr@4: _STLP_DECLSPEC const char* _STLP_CALL __hex_char_table_lo();
williamr@4: _STLP_DECLSPEC const char* _STLP_CALL __hex_char_table_hi();
williamr@2: 
williamr@2: template <class _Integer>
williamr@2: inline char* _STLP_CALL
williamr@4: __write_decimal_backward(char* __ptr, _Integer __x, ios_base::fmtflags __flags, const __true_type& /* is_signed */) {
williamr@2:   const bool __negative = __x < 0 ;
williamr@2:   __max_int_t __temp = __x;
williamr@2:   __umax_int_t __utemp = __negative?-__temp:__temp;
williamr@2: 
williamr@2:   for (; __utemp != 0; __utemp /= 10)
williamr@4:     *--__ptr = (char)((int)(__utemp % 10) + '0');
williamr@2:   // put sign if needed or requested
williamr@2:   if (__negative)
williamr@2:     *--__ptr = '-';
williamr@2:   else if (__flags & ios_base::showpos)
williamr@2:     *--__ptr = '+';
williamr@2:   return __ptr;
williamr@2: }
williamr@2: 
williamr@2: template <class _Integer>
williamr@2: inline char* _STLP_CALL
williamr@4: __write_decimal_backward(char* __ptr, _Integer __x, ios_base::fmtflags __flags, const __false_type& /* is_signed */) {
williamr@2:   for (; __x != 0; __x /= 10)
williamr@4:     *--__ptr = (char)((int)(__x % 10) + '0');
williamr@2:   // put sign if requested
williamr@2:   if (__flags & ios_base::showpos)
williamr@2:     *--__ptr = '+';
williamr@2:   return __ptr;
williamr@2: }
williamr@2: 
williamr@2: template <class _Integer>
williamr@2: char* _STLP_CALL
williamr@4: __write_integer_backward(char* __buf, ios_base::fmtflags __flags, _Integer __x) {
williamr@2:   char* __ptr = __buf;
williamr@2: 
williamr@2:   if (__x == 0) {
williamr@2:     *--__ptr = '0';
williamr@4:     if ((__flags & ios_base::showpos) && ((__flags & (ios_base::oct | ios_base::hex)) == 0))
williamr@2:       *--__ptr = '+';
williamr@4:     // oct or hex base shall not be added to the 0 value (see '#' flag in C formating strings)
williamr@2:   }
williamr@2:   else {
williamr@2:     switch (__flags & ios_base::basefield) {
williamr@4:       case ios_base::oct:
williamr@4:         {
williamr@4:           __umax_int_t __temp = __x;
williamr@4:           // if the size of integer is less than 8, clear upper part
williamr@4:           if ( sizeof(__x) < 8  && sizeof(__umax_int_t) >= 8 )
williamr@4:             __temp &= 0xFFFFFFFF;
williamr@2: 
williamr@4:           for (; __temp != 0; __temp >>=3)
williamr@4:             *--__ptr = (char)((((unsigned)__temp)& 0x7) + '0');
williamr@2: 
williamr@4:           // put leading '0' if showbase is set
williamr@4:           if (__flags & ios_base::showbase)
williamr@4:             *--__ptr = '0';
williamr@2:         }
williamr@4:         break;
williamr@4:       case ios_base::hex:
williamr@4:         {
williamr@4:           const char* __table_ptr = (__flags & ios_base::uppercase) ?
williamr@4:             __hex_char_table_hi() : __hex_char_table_lo();
williamr@4:           __umax_int_t __temp = __x;
williamr@4:           // if the size of integer is less than 8, clear upper part
williamr@4:           if ( sizeof(__x) < 8  && sizeof(__umax_int_t) >= 8 )
williamr@4:             __temp &= 0xFFFFFFFF;
williamr@4: 
williamr@4:           for (; __temp != 0; __temp >>=4)
williamr@4:             *--__ptr = __table_ptr[((unsigned)__temp & 0xF)];
williamr@4: 
williamr@4:           if (__flags & ios_base::showbase) {
williamr@4:             *--__ptr = __table_ptr[16];
williamr@4:             *--__ptr = '0';
williamr@4:           }
williamr@4:         }
williamr@4:         break;
williamr@4:       //case ios_base::dec:
williamr@4:       default:
williamr@4:         {
williamr@2: #if defined(__HP_aCC) && (__HP_aCC == 1)
williamr@4:           bool _IsSigned = !((_Integer)-1 > 0);
williamr@4:           if (_IsSigned)
williamr@4:             __ptr = __write_decimal_backward(__ptr, __x, __flags, __true_type() );
williamr@4:           else
williamr@4:             __ptr = __write_decimal_backward(__ptr, __x, __flags, __false_type() );
williamr@2: #else
williamr@4:           typedef typename __bool2type<numeric_limits<_Integer>::is_signed>::_Ret _IsSigned;
williamr@4:           __ptr = __write_decimal_backward(__ptr, __x, __flags, _IsSigned());
williamr@4: #endif
williamr@4:         }
williamr@4:         break;
williamr@4:     }
williamr@2:   }
williamr@4: 
williamr@2:   // return pointer to beginning of the string
williamr@2:   return __ptr;
williamr@2: }
williamr@2: 
williamr@4: template <class _CharT, class _OutputIter, class _Integer>
williamr@4: _OutputIter _STLP_CALL
williamr@4: __do_put_integer(_OutputIter __s, ios_base& __f, _CharT __fill, _Integer __x) {
williamr@4:   // buffer size = number of bytes * number of digit necessary in the smallest Standard base (base 8, 3 digits/byte)
williamr@4:   //               plus the longest base representation '0x'
williamr@4:   // Do not use __buf_size to define __buf static buffer, some compilers (HP aCC) do not accept const variable as
williamr@4:   // the specification of a static buffer size.
williamr@4:   char __buf[sizeof(_Integer) * 3 + 2];
williamr@4:   const ptrdiff_t __buf_size = sizeof(__buf) / sizeof(char);
williamr@4:   ios_base::fmtflags __flags = __f.flags();
williamr@4:   char* __ibeg = __write_integer_backward((char*)__buf+__buf_size, __flags, __x);
williamr@4:   return __put_integer(__ibeg, (char*)__buf+__buf_size, __s, __f, __flags, __fill);
williamr@4: }
williamr@4: 
williamr@4: _STLP_MOVE_TO_STD_NAMESPACE
williamr@4: 
williamr@2: //
williamr@2: // num_put<>
williamr@2: //
williamr@2: 
williamr@4: #if (_STLP_STATIC_TEMPLATE_DATA > 0)
williamr@4: # if !defined(__SYMBIAN32__WSD__)
williamr@4: #  if !defined (__BORLANDC__) && defined (__SYMBIAN32__) && defined(_STLP_DESIGNATED_DLL)
williamr@2: template <class _CharT, class _OutputIterator>
williamr@2: locale::id num_put<_CharT, _OutputIterator>::id;
williamr@4: #  endif
williamr@2: 
williamr@4: #  if ((defined (__CYGWIN__) || defined (__MINGW32__)) && \
williamr@4:        defined (_STLP_USE_DYNAMIC_LIB) && !defined (__BUILDING_STLPORT)) || (defined (__SYMBIAN32__) && defined(_STLP_DESIGNATED_DLL))
williamr@4: /*
williamr@4:  * Under cygwin, when STLport is used as a shared library, the id needs
williamr@4:  * to be specified as imported otherwise they will be duplicated in the
williamr@4:  * calling executable.
williamr@4:  */
williamr@4: #    if defined(__SYMBIAN32__)
williamr@4: template <>
williamr@4: locale::id num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id; //data should not be exported in symbian
williamr@4: /*
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<char, char*>::id;
williamr@4: */
williamr@2: 
williamr@4: #    if !defined (_STLP_NO_WCHAR_T)
williamr@4: template <>
williamr@4: locale::id num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
williamr@4: /*
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<wchar_t, wchar_t*>::id;
williamr@4: */
williamr@4: #    endif
williamr@4: 
williamr@4: #    else
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id;
williamr@4: /*
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<char, char*>::id;
williamr@4: */
williamr@4: 
williamr@4: #    if !defined (_STLP_NO_WCHAR_T)
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
williamr@4: /*
williamr@4: template <>
williamr@4: _STLP_DECLSPEC locale::id num_put<wchar_t, wchar_t*>::id;
williamr@4: */
williamr@4: #    endif
williamr@4: 
williamr@4: #    endif //__SYMBIAN32__
williamr@4: 
williamr@4: #  endif /* __CYGWIN__ && _STLP_USE_DYNAMIC_LIB */
williamr@4: #endif /*__SYMBIAN32__WSD__ */
williamr@4: #else /* ( _STLP_STATIC_TEMPLATE_DATA > 0 ) */
williamr@4: 
williamr@4: //typedef num_put<char, char*> num_put_char;
williamr@4: typedef num_put<char, ostreambuf_iterator<char, char_traits<char> > > num_put_char_2;
williamr@4: 
williamr@4: //__DECLARE_INSTANCE(locale::id, num_put_char::id, );
williamr@2: __DECLARE_INSTANCE(locale::id, num_put_char_2::id, );
williamr@2: 
williamr@4: #  if !defined (_STLP_NO_WCHAR_T)
williamr@2: 
williamr@4: //typedef num_put<wchar_t, wchar_t*> num_put_wchar_t;
williamr@4: typedef num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > num_put_wchar_t_2;
williamr@2: 
williamr@4: //__DECLARE_INSTANCE(locale::id, num_put_wchar_t::id, );
williamr@2: __DECLARE_INSTANCE(locale::id, num_put_wchar_t_2::id, );
williamr@2: 
williamr@4: #  endif
williamr@2: 
williamr@4: #endif /* ( _STLP_STATIC_TEMPLATE_DATA > 0 ) */
williamr@2: 
williamr@2: // issue 118
williamr@2: 
williamr@4: #if !defined (_STLP_NO_BOOL)
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@4: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f,
williamr@2:                                      char_type __fill,  bool __val) const {
williamr@2:   if (!(__f.flags() & ios_base::boolalpha))
williamr@2:     return this->do_put(__s, __f, __fill, __STATIC_CAST(long,__val));
williamr@2: 
williamr@2:   locale __loc = __f.getloc();
williamr@4:   //  typedef numpunct<_CharT> _Punct;
williamr@4:   //  const _Punct& __np = use_facet<_Punct>(__loc);
williamr@2: 
williamr@4:   const numpunct<_CharT>& __np = *__STATIC_CAST(const numpunct<_CharT>*, __f._M_numpunct_facet());
williamr@2: 
williamr@2:   basic_string<_CharT> __str = __val ? __np.truename() : __np.falsename();
williamr@2: 
williamr@2:   // Reuse __copy_integer_and_fill.  Since internal padding makes no
williamr@2:   // sense for bool, though, make sure we use something else instead.
williamr@2:   // The last two argument to __copy_integer_and_fill are dummies.
williamr@2:   ios_base::fmtflags __flags = __f.flags();
williamr@2:   if ((__flags & ios_base::adjustfield) == ios_base::internal)
williamr@2:     __flags = (__flags & ~ios_base::adjustfield) | ios_base::right;
williamr@2: 
williamr@4:   return _STLP_PRIV __copy_integer_and_fill(__str.c_str(), __str.size(), __s,
williamr@4:                                             __flags, __f.width(0), __fill,
williamr@4:                                             (_CharT) 0, (_CharT) 0);
williamr@2: }
williamr@2: 
williamr@4: #endif
williamr@2: 
williamr@2: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@2: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      long __val) const
williamr@4: { return _STLP_PRIV __do_put_integer(__s, __f, __fill, __val); }
williamr@2: 
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@4: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      unsigned long __val) const
williamr@4: { return _STLP_PRIV __do_put_integer(__s, __f, __fill, __val); }
williamr@2: 
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@4: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      double __val) const
williamr@4: { return _STLP_PRIV __do_put_float(__s, __f, __fill, __val); }
williamr@2: 
williamr@4: #if !defined (_STLP_NO_LONG_DOUBLE)
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@2: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      long double __val) const
williamr@4: { return _STLP_PRIV __do_put_float(__s, __f, __fill, __val); }
williamr@2: #endif
williamr@2: 
williamr@4: #if defined (_STLP_LONG_LONG)
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@2: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      _STLP_LONG_LONG __val) const
williamr@4: { return _STLP_PRIV __do_put_integer(__s, __f, __fill, __val); }
williamr@2: 
williamr@4: template <class _CharT, class _OutputIter>
williamr@4: _OutputIter
williamr@2: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT __fill,
williamr@4:                                      unsigned _STLP_LONG_LONG __val) const
williamr@4: { return _STLP_PRIV __do_put_integer(__s, __f, __fill, __val); }
williamr@2: #endif /* _STLP_LONG_LONG */
williamr@2: 
williamr@2: 
williamr@2: // lib.facet.num.put.virtuals "12 For conversion from void* the specifier is %p."
williamr@2: template <class _CharT, class _OutputIter>
williamr@2: _OutputIter
williamr@2: num_put<_CharT, _OutputIter>::do_put(_OutputIter __s, ios_base& __f, _CharT /*__fill*/,
williamr@4:                                      const void* __val) const {
williamr@4:   const ctype<_CharT>& __c_type = *__STATIC_CAST(const ctype<_CharT>*, __f._M_ctype_facet());
williamr@2:   ios_base::fmtflags __save_flags = __f.flags();
williamr@2: 
williamr@2:   __f.setf(ios_base::hex, ios_base::basefield);
williamr@2:   __f.setf(ios_base::showbase);
williamr@2:   __f.setf(ios_base::internal, ios_base::adjustfield);
williamr@4:   __f.width((sizeof(void*) * 2) + 2); // digits in pointer type plus '0x' prefix
williamr@2: # if defined(_STLP_LONG_LONG) && !defined(__MRC__) //*ty 11/24/2001 - MrCpp can not cast from void* to long long
williamr@2:   _OutputIter result = this->do_put(__s, __f, __c_type.widen('0'), __REINTERPRET_CAST(unsigned _STLP_LONG_LONG,__val));
williamr@2: # else
williamr@2:   _OutputIter result = this->do_put(__s, __f, __c_type.widen('0'), __REINTERPRET_CAST(unsigned long,__val));
williamr@2: # endif
williamr@2:   __f.flags(__save_flags);
williamr@2:   return result;
williamr@2: }
williamr@2: 
williamr@2: _STLP_END_NAMESPACE
williamr@2: 
williamr@2: #endif /* _STLP_NUM_PUT_C */
williamr@2: 
williamr@2: // Local Variables:
williamr@2: // mode:C++
williamr@2: // End: