/*
 * Portions Copyright (c) 2008 Nokia Corporation and/or its subsidiary(-ies). 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.
 *
 */

#include "stlport_prefix.h"

#include <locale>
#include <ostream>

#ifdef __SYMBIAN32__WSD__
#include <libstdcppwsd.h>
#endif //__SYMBIAN32__WSD__

_STLP_BEGIN_NAMESPACE

// Note that grouping[0] is the number of digits in the *rightmost* group.
// We assume, without checking, that *last is null and that there is enough
// space in the buffer to extend the number past [first, last).
template <class Char>
static ptrdiff_t
__insert_grouping_aux(Char* first, Char* last, const string& grouping,
                      Char separator, Char Plus, Char Minus,
                      int basechars) {
  typedef string::size_type str_size;

  if (first == last)
    return 0;

  int sign = 0;

  if (*first == Plus || *first == Minus) {
    sign = 1;
    ++first;
  }

  first += basechars;
  str_size n = 0;               // Index of the current group.
  Char* cur_group = last;       // Points immediately beyond the rightmost
                                // digit of the current group.
  int groupsize = 0;            // Size of the current group.

  for (;;) {
    groupsize = n < grouping.size() ? grouping[n] : groupsize;
    ++n;

    if (groupsize <= 0 || groupsize >= cur_group - first)
      break;

    // Insert a separator character just before position cur_group - groupsize
    cur_group -= groupsize;
    ++last;
    copy_backward(cur_group, last, last + 1);
    *cur_group = separator;
  }

  return (last - first) + sign + basechars;
}

//Dynamic output buffer version.
template <class Char, class Str>
static void
__insert_grouping_aux( /* __basic_iostring<Char> */ Str& iostr, size_t __group_pos,
                      const string& grouping,
                      Char separator, Char Plus, Char Minus,
                      int basechars) {
  typedef string::size_type str_size;

  if (iostr.size() < __group_pos)
    return;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT
  int __first_pos = 0;
#else
  size_t __first_pos = 0;
#endif
  Char __first = *iostr.begin();

  if (__first == Plus || __first == Minus) {
    ++__first_pos;
  }

  __first_pos += basechars;
#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT
  typename basic_string<Char>::iterator cur_group(iostr.begin() + __group_pos);  // Points immediately beyond the rightmost
  																	// digit of the current group.
  int groupsize = 0; // Size of the current group (if grouping.size() == 0, size
                     // of group unlimited: we force condition (groupsize <= 0))

  for ( str_size n = 0; ; ) { // Index of the current group
    if ( n < grouping.size() ) {
      groupsize = __STATIC_CAST( int, grouping[n++] );
    }

    if ( (groupsize <= 0) || (groupsize >= ((cur_group - iostr.begin()) - __first_pos)) ||
         (groupsize == CHAR_MAX)) {
      break;
    }
#else
  str_size n = 0;                                                   // Index of the current group.
  typename basic_string<Char>::iterator cur_group(iostr.begin() + __group_pos);  // Points immediately beyond the rightmost
                                                                    // digit of the current group.
  unsigned int groupsize = 0;                                       // Size of the current group.

  for (;;) {
    groupsize = n < grouping.size() ? grouping[n] : groupsize;
    ++n;

    if (groupsize <= 0 || groupsize >= ((cur_group - iostr.begin()) + __first_pos))
      break;
#endif

    // Insert a separator character just before position cur_group - groupsize
    cur_group -= groupsize;
    cur_group = iostr.insert(cur_group, separator);
  }
}

//----------------------------------------------------------------------
// num_put

_STLP_MOVE_TO_PRIV_NAMESPACE

_STLP_DECLSPEC const char* _STLP_CALL __hex_char_table_lo()
{ return "0123456789abcdefx"; }

_STLP_DECLSPEC const char* _STLP_CALL __hex_char_table_hi()
{ return "0123456789ABCDEFX"; }

char* _STLP_CALL
__write_integer(char* buf, ios_base::fmtflags flags, long x) {
  char tmp[64];
  char* bufend = tmp+64;
  char* beg = __write_integer_backward(bufend, flags, x);
  return copy(beg, bufend, buf);
}

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

_STLP_DECLSPEC ptrdiff_t _STLP_CALL
__insert_grouping(char * first, char * last, const string& grouping,
                  char separator, char Plus, char Minus, int basechars) {
  return __insert_grouping_aux(first, last, grouping,
                               separator, Plus, Minus, basechars);
}

_STLP_DECLSPEC void _STLP_CALL
__insert_grouping(__iostring &str, size_t group_pos, const string& grouping,
                  char separator, char Plus, char Minus, int basechars) {
  __insert_grouping_aux(str, group_pos, grouping, separator, Plus, Minus, basechars);
}

#if !defined (_STLP_NO_WCHAR_T)
_STLP_DECLSPEC ptrdiff_t _STLP_CALL
__insert_grouping(wchar_t* first, wchar_t* last, const string& grouping,
                  wchar_t separator, wchar_t Plus, wchar_t Minus,
                  int basechars) {
  return __insert_grouping_aux(first, last, grouping, separator,
                               Plus, Minus, basechars);
}

_STLP_DECLSPEC void _STLP_CALL
__insert_grouping(__iowstring &str, size_t group_pos, const string& grouping,
                  wchar_t separator, wchar_t Plus, wchar_t Minus,
                  int basechars) {
  __insert_grouping_aux(str, group_pos, grouping, separator, Plus, Minus, basechars);
}
#endif

_STLP_MOVE_TO_STD_NAMESPACE

#if defined (__SYMBIAN32__WSD__)
template <>
_STLP_DECLSPEC locale::id& num_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
    {
	return get_libcpp_wsd().num_put_char_ostreambuf_iterator_id;
    }
#  ifndef _STLP_NO_WCHAR_T
template <>
_STLP_DECLSPEC locale::id& num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()
    {
	return get_libcpp_wsd().num_put_wchar_ostreambuf_iterator_id;
    }
#  endif /* _STLP_NO_WCHAR_T */
#endif /* __SYMBIAN32__WSD__ */

//----------------------------------------------------------------------
// Force instantiation of num_put<>
#if !defined(_STLP_NO_FORCE_INSTANTIATE)
template class _STLP_CLASS_DECLSPEC ostreambuf_iterator<char, char_traits<char> >;
// template class num_put<char, char*>;
template class num_put<char, ostreambuf_iterator<char, char_traits<char> > >;
# ifndef _STLP_NO_WCHAR_T
template class ostreambuf_iterator<wchar_t, char_traits<wchar_t> >;
template class num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
// template class num_put<wchar_t, wchar_t*>;
# endif /* INSTANTIATE_WIDE_STREAMS */
#endif

#if defined(__EPOC32__)
template <>
locale::id num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id={14};

# if !defined (_STLP_NO_WCHAR_T)
template <>
locale::id num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id={33};
# endif

#endif

_STLP_END_NAMESPACE

// Local Variables:
// mode:C++
// End: