/*

 * © Portions copyright (c) 2006-2007 Nokia Corporation.  All rights reserved.

 *

 * Copyright (c) 1999

 * Silicon Graphics Computer Systems, Inc.

 *

 * Copyright (c) 1999 

 * Boris Fomitchev

 *

 * This material is provided "as is", with absolutely no warranty expressed

 * or implied. Any use is at your own risk.

 *

 * Permission to use or copy this software for any purpose is hereby granted 

 * without fee, provided the above notices are retained on all copies.

 * Permission to modify the code and to distribute modified code is granted,

 * provided the above notices are retained, and a notice that the code was

 * modified is included with the above copyright notice.

 *

 */ 

#ifndef _STLP_NUM_PUT_C

#define _STLP_NUM_PUT_C

#ifndef _STLP_INTERNAL_NUM_PUT_H

# include <stl/_num_put.h>

#endif

# if defined (_STLP_EXPOSE_STREAM_IMPLEMENTATION)

#ifndef _STLP_LIMITS_H

# include <stl/_limits.h>

#endif

_STLP_BEGIN_NAMESPACE

// _M_do_put_float and its helper functions.  Strategy: write the output

// to a buffer of char, transform the buffer to _CharT, and then copy

// it to the output.

template <class _CharT, class _OutputIter,class _Float>

_OutputIter _STLP_CALL

_M_do_put_float(_OutputIter __s, ios_base& __f, _CharT __fill,_Float    __x);

//----------------------------------------------------------------------

// num_put facet

template <class _CharT, class _OutputIter>

_OutputIter  _STLP_CALL

__copy_float_and_fill(const _CharT* __first, const _CharT* __last,

                      _OutputIter __stl_out,

                      ios_base::fmtflags __flags,

                      streamsize __width, _CharT __fill,

                      _CharT __xplus, _CharT __xminus) {

  if (__width <= __last - __first)

    return copy(__first, __last, __stl_out);

  else {

    streamsize __pad = __width - (__last - __first);

    ios_base::fmtflags __dir = __flags & ios_base::adjustfield;

    if (__dir == ios_base::left) {

      __stl_out = copy(__first, __last, __stl_out);

      return fill_n(__stl_out, __pad, __fill);

    }

    else if (__dir == ios_base::internal && __first != __last &&

             (*__first == __xplus || *__first == __xminus)) {

      *__stl_out++ = *__first++;

      __stl_out = fill_n(__stl_out, __pad, __fill);

      return copy(__first, __last, __stl_out);

    }

    else {

      __stl_out = fill_n(__stl_out, __pad, __fill);

      return copy(__first, __last, __stl_out);

    }

  }

}

#ifndef _STLP_NO_WCHAR_T

// Helper routine for wchar_t

template <class _OutputIter>

_OutputIter  _STLP_CALL

__put_float(char* __ibuf, char* __iend, _OutputIter __stl_out,

            ios_base& __f, wchar_t __fill,

            wchar_t __decimal_point,

            wchar_t __sep, const string& __grouping)

{

  //const ctype<wchar_t>& __ct = *(ctype<wchar_t>*)__f._M_ctype_facet() ;

    const ctype<wchar_t>& __ct  = use_facet< ctype<wchar_t> >(__f.getloc());

 // wchar_t __wbuf[128]; //stdcxx fix

  wchar_t __wbuf[256+10];

  wchar_t* __eend = __convert_float_buffer(__ibuf, __iend, __wbuf,

                                           __ct, __decimal_point);

  if (!__grouping.empty()) {

    // In order to do separator-insertion only to the left of the

    // decimal point, we adjust the size of the first (right-most)

    // group.  We need to be careful if there is only one entry in

    // grouping:  in this case we need to duplicate the first entry.

    string __new_grouping = __grouping;

    wchar_t* __decimal_pos = find(__wbuf, __eend, __decimal_point);

    if (__grouping.size() == 1)

      __new_grouping.push_back(__grouping[0]);

	// dwa 1/24/00 - try as I might, there doesn't seem to be a way

    // to suppress the warning

    __new_grouping[0] += __STATIC_CAST(char, __eend - __decimal_pos);

    ptrdiff_t __len = __insert_grouping(__wbuf, __eend, __new_grouping,

					__sep,

					__ct.widen('+'), __ct.widen('-'),

					0);

    __eend = __wbuf + __len;

  }

  return __copy_float_and_fill(__wbuf, __eend, __stl_out,

                               __f.flags(), __f.width(0), __fill,

                               __ct.widen('+'), __ct.widen('-')); 

}

# endif /* WCHAR_T */

#ifdef __SYMBIAN32__

template<class _CharT>

ptrdiff_t _STLP_CALL

__insert_grouping(_CharT * first, _CharT * last, const string& grouping,

		  _CharT separator, _CharT Plus, _CharT Minus, int basechars)

{

	int length = last-first;

	ptrdiff_t res;	

	char*	str = new char(length+64); //morespace for seperators

	memset(str,'\0',length+64);

	memcpy(str,first, length);

	char _separator = (char)separator;

	char _Plus = (char)Plus;

	char _Minus = (char)Minus;

  	res = __insert_grouping(str, str+length, grouping, 

			       _separator, _Plus, _Minus, basechars);

	memcpy(first,str,res);

	delete str;

	return res;

}

#endif

// Helper routine for char

template <class _OutputIter>

_OutputIter  _STLP_CALL

__put_float(char* __ibuf, char* __iend, _OutputIter __stl_out,

            ios_base& __f, char __fill,

            char __decimal_point,

            char __sep, const string& __grouping)

{

  __adjust_float_buffer(__ibuf, __iend, __decimal_point);

  if (!__grouping.empty()) {

    string __new_grouping = __grouping;

    const char * __decimal_pos = find(__ibuf, __iend, __decimal_point);

    if (__grouping.size() == 1)

      __new_grouping.push_back(__grouping[0]);

    __new_grouping[0] += __STATIC_CAST(char, (__iend - __decimal_pos));

    ptrdiff_t __len = __insert_grouping(__ibuf, __iend, __new_grouping,

					__sep, '+', '-', 0);

    __iend = __ibuf + __len;

  }

  return __copy_float_and_fill(__ibuf, __iend, __stl_out,

                               __f.flags(), __f.width(0), __fill, '+', '-');

}

#ifdef __SYMBIAN32__

template <class _CharT, class _OutputIter>

_OutputIter  _STLP_CALL

__put_float(char* __ibuf, char* __iend, _OutputIter __stl_out,

            ios_base& __f, _CharT __fill,

            _CharT __decimal_point,

            _CharT __sep, const string& __grouping)

{

  __adjust_float_buffer(__ibuf, __iend, __decimal_point);

  if (!__grouping.empty()) {

    string __new_grouping = __grouping;

    const char * __decimal_pos = find(__ibuf, __iend, __decimal_point);

    if (__grouping.size() == 1)

      __new_grouping.push_back(__grouping[0]);

    __new_grouping[0] += __STATIC_CAST(char, (__iend - __decimal_pos));

    ptrdiff_t __len = __insert_grouping(__ibuf, __iend, __new_grouping,

					__sep, '+', '-', 0);

    __iend = __ibuf + __len;

  }

	_CharT __wbuf[64];

	locale __loc = __f.getloc();

	const ctype<_CharT>& __ct = use_facet<ctype<_CharT> >(__loc);

	__ct.widen(__ibuf, __iend, __wbuf);

 	ptrdiff_t __len  =  __iend - __ibuf; 

  return __copy_float_and_fill(__wbuf, __wbuf+__len, __stl_out,

                               __f.flags(), __f.width(0), __fill, (_CharT)'+', (_CharT)'-');

}

#endif

template <class _CharT, class _OutputIter, class _Float>

_OutputIter _STLP_CALL

_M_do_put_float(_OutputIter __s, ios_base& __f,

                _CharT __fill, _Float __x)

{

  string __buf;

  __buf.reserve(256+10); //+2 - 10/1/07

  __write_float(__buf, __f.flags(), (int)__f.precision(), __x);

  //const numpunct<_CharT>& __np = *(const numpunct<_CharT>*)__f._M_numpunct_facet();

  const numpunct<_CharT>& __np = use_facet< numpunct<_CharT> >(__f.getloc());

  return __put_float(__CONST_CAST(char*, __buf.c_str()), 

                     __CONST_CAST(char*, __buf.c_str()) + __buf.size(),

                     __s, __f, __fill,

                     __np.decimal_point(),

	//	                 __np.thousands_sep(), __f._M_grouping()); //stdcxx fix - 17/1/07

			__np.thousands_sep(), __np.grouping());

}

// _M_do_put_integer and its helper functions.

template <class _CharT, class _OutputIter>

_OutputIter _STLP_CALL

__copy_integer_and_fill(const _CharT* __buf, ptrdiff_t __len,

                        _OutputIter __stl_out,

                        ios_base::fmtflags __flg, streamsize __wid, _CharT __fill,

                        _CharT __xplus, _CharT __xminus)

{

  if (__len >= __wid)

    return copy(__buf, __buf + __len, __stl_out);

  else {

    ptrdiff_t __pad = __wid - __len;

    ios_base::fmtflags __dir = __flg & ios_base::adjustfield;

    if (__dir == ios_base::left) {

      __stl_out = copy(__buf, __buf + __len, __stl_out);

      return fill_n(__stl_out, __pad, __fill);

    }

    else if (__dir == ios_base::internal && __len != 0 &&

             (__buf[0] == __xplus || __buf[0] == __xminus)) {

      *__stl_out++ = __buf[0];

      __stl_out = fill_n(__stl_out, __pad, __fill);

      return copy(__buf + 1, __buf + __len, __stl_out);

    }

    else if (__dir == ios_base::internal && __len >= 2 &&

             (__flg & ios_base::showbase) &&

             (__flg & ios_base::basefield) == ios_base::hex) {

      *__stl_out++ = __buf[0];

      *__stl_out++ = __buf[1];

      __stl_out = fill_n(__stl_out, __pad, __fill);

      return copy(__buf + 2, __buf + __len, __stl_out);

    }

    else {

      __stl_out = fill_n(__stl_out, __pad, __fill);

      return copy(__buf, __buf + __len, __stl_out);

    }

  }

}

#ifndef _STLP_NO_WCHAR_T

// Helper function for wchar_t

template <class _OutputIter>

_OutputIter _STLP_CALL

__put_integer(char* __buf, char* __iend, _OutputIter __s,

              ios_base& __f,

              ios_base::fmtflags __flags, wchar_t __fill)

{

  locale __loc = __f.getloc();

   const ctype<wchar_t>& __ct = use_facet<ctype<wchar_t> >(__loc);

  //const ctype<wchar_t>& __ct = *(const ctype<wchar_t>*)__f._M_ctype_facet();

  wchar_t __xplus  = __ct.widen('+');

  wchar_t __xminus = __ct.widen('-');

  wchar_t __wbuf[64];

  __ct.widen(__buf, __iend, __wbuf);

  ptrdiff_t __len = __iend - __buf;

  wchar_t* __eend = __wbuf + __len;

    const numpunct<wchar_t>& __np = use_facet<numpunct<wchar_t> >(__loc);

    const string& __grouping = __np.grouping();

  //const numpunct<wchar_t>& __np = *(const numpunct<wchar_t>*)__f._M_numpunct_facet();

 // const string& __grouping = __f._M_grouping();

  if (!__grouping.empty()) {

    int __basechars;

    if (__flags & ios_base::showbase)

      switch (__flags & ios_base::basefield) {

	case ios_base::hex: __basechars = 2; break;

	case ios_base::oct: __basechars = 1; break;

	default: __basechars = 0;

      }

    else

      __basechars = 0;

    __len = __insert_grouping(__wbuf, __eend, __grouping, __np.thousands_sep(),

			      __xplus, __xminus, __basechars);

  }

  return __copy_integer_and_fill((wchar_t*)__wbuf, __len, __s,

                                 __flags, __f.width(0), __fill, __xplus, __xminus);

}

#endif

#ifdef	__SYMBIAN32__

template <class _CharT, class _OutputIter>

_OutputIter _STLP_CALL

__put_integer(char* __buf, char* __iend, _OutputIter __s,

              ios_base& __f,

              ios_base::fmtflags __flags, _CharT __fill)

{

  locale __loc = __f.getloc();

   const ctype<_CharT>& __ct = use_facet<ctype<_CharT> >(__loc);

  //const ctype<wchar_t>& __ct = *(const ctype<wchar_t>*)__f._M_ctype_facet();

  _CharT __xplus  = '+';

  _CharT __xminus = '-';

  _CharT __wbuf[64];

  ptrdiff_t __len = __iend - __buf;

  _CharT* __eend = __wbuf + __len;

    const numpunct<char>& __np = use_facet<numpunct<char> >(__loc);

    const string& __grouping = __np.grouping();

  //const numpunct<wchar_t>& __np = *(const numpunct<wchar_t>*)__f._M_numpunct_facet();

 // const string& __grouping = __f._M_grouping();

  if (!__grouping.empty()) {

    int __basechars;

    if (__flags & ios_base::showbase)

      switch (__flags & ios_base::basefield) {

	case ios_base::hex: __basechars = 2; break;

	case ios_base::oct: __basechars = 1; break;

	default: __basechars = 0;

      }

    else

      __basechars = 0;

    __len = __insert_grouping(__buf, __iend, __grouping, __np.thousands_sep(),

			     __ct.narrow( __xplus, '+'), __ct.narrow(__xminus, '-'), __basechars);

	__ct.widen(__buf, __iend, __wbuf);

  }

  return __copy_integer_and_fill(__wbuf, __len, __s,

                                 __flags, __f.width(0), __fill, __xplus, __xminus);

}

#endif

// Helper function for char

template <class _OutputIter>

_OutputIter _STLP_CALL

__put_integer(char* __buf, char* __iend, _OutputIter __s,

              ios_base& __f, ios_base::fmtflags __flags, char __fill)

{

  ptrdiff_t __len = __iend - __buf;

  char __grpbuf[64];

  //  const numpunct<char>& __np = use_facet<numpunct<char> >(__f.getloc());

  //  const string& __grouping = __np.grouping();

  const numpunct<char>& __np = *(const numpunct<char>*)__f._M_numpunct_facet();

//  const string& __grouping = __f._M_grouping(); //stdcxx fix, 17/1/07

  const string& __grouping = __np.grouping();

  if (!__grouping.empty()) {

    int __basechars;

    if (__flags & ios_base::showbase)

      switch (__flags & ios_base::basefield) {

	case ios_base::hex: __basechars = 2; break;

	case ios_base::oct: __basechars = 1; break;

	default: __basechars = 0;

      }

    else

      __basechars = 0;

     // make sure there is room at the end of the buffer

     // we pass to __insert_grouping

    copy(__buf, __iend, (char *) __grpbuf);

    __buf = __grpbuf;

    __iend = __grpbuf + __len; 

    __len = __insert_grouping(__buf, __iend, __grouping, __np.thousands_sep(), 

                              '+', '-', __basechars);

  }

  return __copy_integer_and_fill(__buf, __len, __s, __flags, __f.width(0), __fill, '+', '-');

}

#ifdef _STLP_LONG_LONG

typedef _STLP_LONG_LONG __max_int_t;

typedef unsigned _STLP_LONG_LONG __umax_int_t;

#else

typedef long __max_int_t;

typedef unsigned long __umax_int_t;

#endif

extern _STLP_DECLSPEC const char* get_hex_char_table_lo();

extern _STLP_DECLSPEC const char* get_hex_char_table_hi();

template <class _Integer>

inline char* _STLP_CALL

__write_decimal_backward(char* __ptr, _Integer __x, ios_base::fmtflags __flags, const __true_type& /* is_signed */)

{

  const bool __negative = __x < 0 ;

  __max_int_t __temp = __x;

  __umax_int_t __utemp = __negative?-__temp:__temp;

  for (; __utemp != 0; __utemp /= 10)

    *--__ptr = (int)(__utemp % 10) + '0';	  

  // put sign if needed or requested

  if (__negative)

    *--__ptr = '-';

  else if (__flags & ios_base::showpos)

    *--__ptr = '+';

  return __ptr;

}

template <class _Integer>

inline char* _STLP_CALL

__write_decimal_backward(char* __ptr, _Integer __x, ios_base::fmtflags __flags, const __false_type& /* is_signed */)

{

  for (; __x != 0; __x /= 10)

    *--__ptr = (int)(__x % 10) + '0';

  // put sign if requested

  if (__flags & ios_base::showpos)

    *--__ptr = '+';

  return __ptr;

}

template <class _Integer>

char* _STLP_CALL

__write_integer_backward(char* __buf, ios_base::fmtflags __flags, _Integer __x)

{

  char* __ptr = __buf;

  __umax_int_t __temp;

  if (__x == 0) {

    *--__ptr = '0';

    if ((__flags & ios_base::showpos) && ( (__flags & (ios_base::hex | ios_base::oct)) == 0 ))

      *--__ptr = '+';

  }

  else {

    switch (__flags & ios_base::basefield) {

    case ios_base::oct:

      __temp = __x;

      // if the size of integer is less than 8, clear upper part

      if ( sizeof(__x) < 8  && sizeof(__umax_int_t) >= 8 )

        __temp &= 0xFFFFFFFF;

      for (; __temp != 0; __temp >>=3)

        *--__ptr = (((unsigned)__temp)& 0x7) + '0';

      // put leading '0' is showbase is set

      if (__flags & ios_base::showbase)

        *--__ptr = '0';

      break;

    case ios_base::hex: 

      {

        const char* __table_ptr = (__flags & ios_base::uppercase) ? 

          get_hex_char_table_hi() : get_hex_char_table_lo();

      __temp = __x;

      // if the size of integer is less than 8, clear upper part

      if ( sizeof(__x) < 8  && sizeof(__umax_int_t) >= 8 )

        __temp &= 0xFFFFFFFF;

        for (; __temp != 0; __temp >>=4)

          *--__ptr = __table_ptr[((unsigned)__temp & 0xF)];

        if (__flags & ios_base::showbase) {

          *--__ptr = __table_ptr[16];

          *--__ptr = '0';

        }

      }

      break;

    default: 

      {

#if defined(__HP_aCC) && (__HP_aCC == 1)

        bool _IsSigned = !((_Integer)-1 > 0);

	if (_IsSigned)

	  __ptr = __write_decimal_backward(__ptr, __x, __flags, __true_type() );

        else

	  __ptr = __write_decimal_backward(__ptr, __x, __flags, __false_type() );

#else

	typedef typename __bool2type<numeric_limits<_Integer>::is_signed>::_Ret _IsSigned;

	__ptr = __write_decimal_backward(__ptr, __x, __flags, _IsSigned());

# endif

      }

      break;

    }  

  }

  // return pointer to beginning of the string

  return __ptr;

}

//

// num_put<>

//

# if ( _STLP_STATIC_TEMPLATE_DATA > 0 )

# if !defined(__LIBSTD_CPP_SYMBIAN32_WSD__) && !defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

template <class _CharT, class _OutputIterator>

locale::id num_put<_CharT, _OutputIterator>::id;

#endif

# else /* ( _STLP_STATIC_TEMPLATE_DATA > 0 ) */

typedef num_put<char, const char*> num_put_char;

typedef num_put<char, char*> num_put_char_2;

typedef num_put<char, ostreambuf_iterator<char, char_traits<char> > > num_put_char_3;

typedef num_put<char, back_insert_iterator<string> > num_put_char_4;

#ifndef __SYMBIAN32__

__DECLARE_INSTANCE(locale::id, num_put_char::id, );

__DECLARE_INSTANCE(locale::id, num_put_char_2::id, );

__DECLARE_INSTANCE(locale::id, num_put_char_3::id, );

#endif

# ifndef _STLP_NO_WCHAR_T

typedef num_put<wchar_t, const wchar_t*> num_put_wchar_t;

typedef num_put<wchar_t, wchar_t*> num_put_wchar_t_2;

typedef num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > num_put_wchar_t_3;