/*

  * 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_SSTREAM_C

 #define _STLP_SSTREAM_C

 #ifndef _STLP_INTERNAL_SSTREAM

 #  include <stl/_sstream.h>

 #endif

 #if defined ( _STLP_NESTED_TYPE_PARAM_BUG )

 // no wint_t is supported for this mode

 #  define __BSB_int_type__ int

 #  define __BSB_pos_type__ streampos

 #else

 #  define __BSB_int_type__ _STLP_TYPENAME_ON_RETURN_TYPE basic_stringbuf<_CharT, _Traits, _Alloc>::int_type

 #  define __BSB_pos_type__ _STLP_TYPENAME_ON_RETURN_TYPE basic_stringbuf<_CharT, _Traits, _Alloc>::pos_type

 #endif

 _STLP_BEGIN_NAMESPACE

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

 // Non-inline stringbuf member functions.

 // Constructors.  Note that the base class constructor sets all of the

 // get and area pointers to null.

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringbuf<_CharT, _Traits, _Alloc>

   ::basic_stringbuf(ios_base::openmode __mode)

     : basic_streambuf<_CharT, _Traits>(), _M_mode(__mode), _M_str()

 {}

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringbuf<_CharT, _Traits, _Alloc>

   ::basic_stringbuf(const basic_string<_CharT, _Traits, _Alloc>& __s, ios_base::openmode __mode)

     : basic_streambuf<_CharT, _Traits>(), _M_mode(__mode), _M_str(__s)

 {

   _M_set_ptrs();

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringbuf<_CharT, _Traits, _Alloc>::~basic_stringbuf()

 {}

 // Set the underlying string to a new value.

 template <class _CharT, class _Traits, class _Alloc>

 void

 basic_stringbuf<_CharT, _Traits, _Alloc>::str(const basic_string<_CharT, _Traits, _Alloc>& __s)

 {

   _M_str = __s;

   _M_set_ptrs();

 }

 template <class _CharT, class _Traits, class _Alloc>

 void

 basic_stringbuf<_CharT, _Traits, _Alloc>::_M_set_ptrs() {

   _CharT* __data_ptr = __CONST_CAST(_CharT*,_M_str.data());

   _CharT* __data_end = __data_ptr + _M_str.size();

   // The initial read position is the beginning of the string.

   if (_M_mode & ios_base::in) {

     if (_M_mode & ios_base::ate)

       this->setg(__data_ptr, __data_end, __data_end);

     else

       this->setg(__data_ptr, __data_ptr, __data_end);

   }

   // The initial write position is the beginning of the string.

   if (_M_mode & ios_base::out) {

     if (_M_mode & (ios_base::app | ios_base::ate))

       this->setp(__data_end, __data_end);

     else

       this->setp(__data_ptr, __data_end);

   }

 }

 // Precondition: gptr() >= egptr().  Returns a character, if one is available.

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_int_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>::underflow() {

   return this->gptr() != this->egptr()

     ? _Traits::to_int_type(*this->gptr())

     : _Traits::eof();

 }

 // Precondition: gptr() >= egptr().

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_int_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>::uflow() {

   if (this->gptr() != this->egptr()) {

     int_type __c = _Traits::to_int_type(*this->gptr());

     this->gbump(1);

     return __c;

   }

   else

     return _Traits::eof();

 }

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_int_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>::pbackfail(int_type __c) {

   if (this->gptr() != this->eback()) {

     if (!_Traits::eq_int_type(__c, _Traits::eof())) {

       if (_Traits::eq(_Traits::to_char_type(__c), this->gptr()[-1])) {

         this->gbump(-1);

         return __c;

       }

       else if (_M_mode & ios_base::out) {

         this->gbump(-1);

         *this->gptr() = _Traits::to_char_type(__c);

         return __c;

       }

       else

         return _Traits::eof();

     }

     else {

       this->gbump(-1);

       return _Traits::not_eof(__c);

     }

   }

   else

     return _Traits::eof();

 }

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_int_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>::overflow(int_type __c) {

   // fbp : reverse order of "ifs" to pass Dietmar's test.

   // Apparently, standard allows overflow with eof even for read-only streams.

   if (!_Traits::eq_int_type(__c, _Traits::eof())) {

     if (_M_mode & ios_base::out) {

       if (!(_M_mode & ios_base::in)) {

         // It's a write-only streambuf, so we can use special append buffer.

         if (this->pptr() == this->epptr())

           this->_M_append_buffer();

         if (this->pptr() != this->epptr()) {

           *this->pptr() = _Traits::to_char_type(__c);

           this->pbump(1);

           return __c;

         }

         else

           return _Traits::eof();

       }

       else {

         // We're not using a special append buffer, just the string itself.

         if (this->pptr() == this->epptr()) {

           ptrdiff_t __offset = this->gptr() - this->eback();

           _M_str.push_back(_Traits::to_char_type(__c));

           _CharT* __data_ptr = __CONST_CAST(_CharT*,_M_str.data());

           size_t __data_size = _M_str.size();

           this->setg(__data_ptr, __data_ptr + __offset, __data_ptr+__data_size);

           this->setp(__data_ptr, __data_ptr + __data_size);

           this->pbump((int)__data_size);

           return __c;

         }

         else {

           *this->pptr() = _Traits::to_char_type(__c);

           this->pbump(1);

           return __c;

         }

       }

     }

     else                          // Overflow always fails if it's read-only

       return _Traits::eof();

   }

   else                        // __c is EOF, so we don't have to do anything

     return _Traits::not_eof(__c);

 }

 template <class _CharT, class _Traits, class _Alloc>

 streamsize

 basic_stringbuf<_CharT, _Traits, _Alloc>::xsputn(const char_type* __s,

                                                  streamsize __n) {

   streamsize __nwritten = 0;

   if ((_M_mode & ios_base::out) && __n > 0) {

     // If the put pointer is somewhere in the middle of the string,

     // then overwrite instead of append.

     if (this->pbase() == _M_str.data() ) {

       ptrdiff_t __avail = _M_str.data() + _M_str.size() - this->pptr();

       if (__avail > __n) {

         _Traits::copy(this->pptr(), __s, __STATIC_CAST(size_t, __n));

         this->pbump((int)__n);

         return __n;

       }

       else {

         _Traits::copy(this->pptr(), __s, __avail);

         __nwritten += __avail;

         __n -= __avail;

         __s += __avail;

         this->setp(_M_Buf, _M_Buf + __STATIC_CAST(int,_S_BufSiz));

       }

     }

     // At this point we know we're appending.

     if (_M_mode & ios_base::in) {

       ptrdiff_t __get_offset = this->gptr() - this->eback();

       _M_str.append(__s, __s + __STATIC_CAST(ptrdiff_t, __n));

       _CharT* __data_ptr = __CONST_CAST(_CharT*, _M_str.data());

       size_t __data_size = _M_str.size();

       this->setg(__data_ptr, __data_ptr + __get_offset, __data_ptr + __data_size);

       this->setp(__data_ptr, __data_ptr + __data_size);

       this->pbump((int)__data_size);

     }

     else {

       _M_append_buffer();

       _M_str.append(__s, __s + __STATIC_CAST(ptrdiff_t, __n));

     }

     __nwritten += __n;

   }

   return __nwritten;

 }

 template <class _CharT, class _Traits, class _Alloc>

 streamsize

 basic_stringbuf<_CharT, _Traits, _Alloc>::_M_xsputnc(char_type __c,

                                                      streamsize __n) {

   streamsize __nwritten = 0;

   if ((_M_mode & ios_base::out) && __n > 0) {

     // If the put pointer is somewhere in the middle of the string,

     // then overwrite instead of append.

     if (this->pbase() == _M_str.data()) {

       ptrdiff_t __avail = _M_str.data() + _M_str.size() - this->pptr();

       if (__avail > __n) {

         _Traits::assign(this->pptr(), __STATIC_CAST(size_t, __n), __c);

         this->pbump(__STATIC_CAST(int, __n));

         return __n;

       }

       else {

         _Traits::assign(this->pptr(), __avail, __c);

         __nwritten += __avail;

         __n -= __avail;

         this->setp(_M_Buf, _M_Buf + __STATIC_CAST(int,_S_BufSiz));

       }

     }

     // At this point we know we're appending.

     size_t __app_size = sizeof(streamsize) > sizeof(size_t) ? __STATIC_CAST(size_t, (min)(__n, __STATIC_CAST(streamsize, _M_str.max_size())))

                                                             : __STATIC_CAST(size_t, __n);

     if (this->_M_mode & ios_base::in) {

       ptrdiff_t __get_offset = this->gptr() - this->eback();

       _M_str.append(__app_size, __c);

       _CharT* __data_ptr = __CONST_CAST(_CharT*,_M_str.data());

       size_t __data_size = _M_str.size();

       this->setg(__data_ptr, __data_ptr + __get_offset, __data_ptr + __data_size);

       this->setp(__data_ptr, __data_ptr + __data_size);

       this->pbump((int)__data_size);

     }

     else {

       _M_append_buffer();

       _M_str.append(__app_size, __c);

     }

     __nwritten += __app_size;

   }

   return __nwritten;

 }

 // According to the C++ standard the effects of setbuf are implementation

 // defined, except that setbuf(0, 0) has no effect.  In this implementation,

 // setbuf(<anything>, n), for n > 0, calls reserve(n) on the underlying

 // string.

 template <class _CharT, class _Traits, class _Alloc>

 basic_streambuf<_CharT, _Traits>*

 basic_stringbuf<_CharT, _Traits, _Alloc>::setbuf(_CharT*, streamsize __n) {

   if (__n > 0) {

     bool __do_get_area = false;

     bool __do_put_area = false;

     ptrdiff_t __offg = 0;

     ptrdiff_t __offp = 0;

     if (this->pbase() == _M_str.data()) {

       __do_put_area = true;

       __offp = this->pptr() - this->pbase();

     }

     if (this->eback() == _M_str.data()) {

       __do_get_area = true;

       __offg = this->gptr() - this->eback();

     }

     if ((_M_mode & ios_base::out) && !(_M_mode & ios_base::in))

       _M_append_buffer();

     _M_str.reserve(sizeof(streamsize) > sizeof(size_t) ? __STATIC_CAST(size_t, (min)(__n, __STATIC_CAST(streamsize, _M_str.max_size())))

                                                        : __STATIC_CAST(size_t, __n));

     _CharT* __data_ptr = __CONST_CAST(_CharT*, _M_str.data());

     size_t __data_size = _M_str.size();

     if (__do_get_area) {

       this->setg(__data_ptr, __data_ptr + __offg, __data_ptr + __data_size);

     }

     if (__do_put_area) {

       this->setp(__data_ptr, __data_ptr + __data_size);

       this->pbump((int)__offp);

     }

   }

   return this;

 }

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_pos_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>

   ::seekoff(off_type __off,

             ios_base::seekdir __dir,

             ios_base::openmode __mode) {

   __mode &= _M_mode;

   bool __imode  = (__mode & ios_base::in) != 0;

   bool __omode = (__mode & ios_base::out) != 0;

   if ( !(__imode || __omode) )

     return pos_type(off_type(-1));

   if ( (__imode && (this->gptr() == 0)) || (__omode && (this->pptr() == 0)) )

     return pos_type(off_type(-1));

 #ifndef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

   if ((_M_mode & ios_base::out) && !(_M_mode & ios_base::in))

     _M_append_buffer();

 #endif

   streamoff __newoff;

   switch(__dir) {

   case ios_base::beg:

     __newoff = 0;

     break;

   case ios_base::end:

     __newoff = _M_str.size();

     break;

   case ios_base::cur:

     __newoff = __imode ? this->gptr() - this->eback() : this->pptr() - this->pbase();

 #ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

       if ( __off == 0 ) {

         return pos_type(__newoff);

       }

 #endif

     break;

   default:

     return pos_type(off_type(-1));

   }

   __off += __newoff;

 #ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

   _CharT* __data_ptr = __CONST_CAST(_CharT*, _M_str.data());

   size_t __data_size = _M_str.size();

 #endif

   if (__imode) {

     ptrdiff_t __n = this->egptr() - this->eback();

     if (__off < 0 || __off > __n)

       return pos_type(off_type(-1));

     this->setg(this->eback(), this->eback() + __STATIC_CAST(ptrdiff_t, __off),

                               this->eback() + __STATIC_CAST(ptrdiff_t, __n));

   }

   if (__omode) {

     ptrdiff_t __n = this->epptr() - this->pbase();

     if (__off < 0 || __off > __n)

       return pos_type(off_type(-1));

 #ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

  this->setp(__data_ptr, __data_ptr+__data_size);

 #else

     this->setp(this->pbase(), this->pbase() + __n);

 #endif

     this->pbump((int)__off);

   }

   return pos_type(__off);

 }

 template <class _CharT, class _Traits, class _Alloc>

 __BSB_pos_type__

 basic_stringbuf<_CharT, _Traits, _Alloc>

   ::seekpos(pos_type __pos, ios_base::openmode __mode) {

   __mode &= _M_mode;

   bool __imode  = (__mode & ios_base::in) != 0;

   bool __omode = (__mode & ios_base::out) != 0;

   if ( !(__imode || __omode) )

     return pos_type(off_type(-1));

   if ( (__imode && (this->gptr() == 0)) || (__omode && (this->pptr() == 0)) )

     return pos_type(off_type(-1));

   const off_type __n = __pos - pos_type(off_type(0));

   if ((_M_mode & ios_base::out) && !(_M_mode & ios_base::in))

     _M_append_buffer();

   if (__imode) {

     if (__n < 0 || __n > this->egptr() - this->eback())

       return pos_type(off_type(-1));

     this->setg(this->eback(), this->eback() + __STATIC_CAST(ptrdiff_t, __n), this->egptr());

   }

   if (__omode) {

     if (__n < 0 || size_t(__n) > _M_str.size())

       return pos_type(off_type(-1));

     _CharT* __data_ptr = __CONST_CAST(_CharT*,_M_str.data());

     size_t __data_size = _M_str.size();

     this->setp(__data_ptr, __data_ptr+__data_size);

     this->pbump((int)__n);

   }

   return __pos;

 }

 // This is declared as a const member function because it is

 // called by basic_stringbuf<>::str().  Precondition: this is a

 // write-only stringbuf.  We can't use an output buffer for read-

 // write stringbufs.  Postcondition: pptr is reset to the beginning

 // of the buffer.

 template <class _CharT, class _Traits, class _Alloc>

 void basic_stringbuf<_CharT, _Traits, _Alloc>::_M_append_buffer() const {

   // Do we have a buffer to append?

   if (this->pbase() == this->_M_Buf && this->pptr() != this->_M_Buf) {

     basic_stringbuf<_CharT, _Traits, _Alloc>* __this = __CONST_CAST(_Self*,this);

     __this->_M_str.append((const _CharT*)this->pbase(), (const _CharT*)this->pptr());

 #ifndef __MWERKS__

     __this->setp(__CONST_CAST(_CharT*,_M_Buf),

                  __CONST_CAST(_CharT*,_M_Buf + __STATIC_CAST(int,_S_BufSiz)));

 #else // CodeWarrior treat const char * and const char [8] as different types

     __this->setp((_CharT*)_M_Buf,

                  (_CharT*)(_M_Buf + __STATIC_CAST(int,_S_BufSiz)));

 #endif

   }

   // Have we run off the end of the string?

   else if (this->pptr() == this->epptr()) {

     basic_stringbuf<_CharT, _Traits, _Alloc>* __this = __CONST_CAST(_Self*,this);

 #ifndef __MWERKS__

     __this->setp(__CONST_CAST(_CharT*,_M_Buf),

                  __CONST_CAST(_CharT*,_M_Buf + __STATIC_CAST(int,_S_BufSiz)));

 #else // CodeWarrior treat const char * and const char [8] as different types

     __this->setp((_CharT*)_M_Buf,

                  (_CharT*)(_M_Buf + __STATIC_CAST(int,_S_BufSiz)));

 #endif

   }

 }

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

 // Non-inline istringstream member functions.

 template <class _CharT, class _Traits, class _Alloc>

 basic_istringstream<_CharT, _Traits, _Alloc>

   ::basic_istringstream(ios_base::openmode __mode)

     : basic_istream<_CharT, _Traits>(0),

       _M_buf(__mode | ios_base::in) {

   this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_istringstream<_CharT, _Traits, _Alloc>

   ::basic_istringstream(const _String& __str,ios_base::openmode __mode)

     : basic_istream<_CharT, _Traits>(0),

       _M_buf(__str, __mode | ios_base::in) {

   this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_istringstream<_CharT, _Traits, _Alloc>::~basic_istringstream()

 {}

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

 // Non-inline ostringstream member functions.

 template <class _CharT, class _Traits, class _Alloc>

 basic_ostringstream<_CharT, _Traits, _Alloc>

   ::basic_ostringstream(ios_base::openmode __mode)

     : basic_ostream<_CharT, _Traits>(0),

       _M_buf(__mode | ios_base::out) {

   this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_ostringstream<_CharT, _Traits, _Alloc>

   ::basic_ostringstream(const _String& __str, ios_base::openmode __mode)

     : basic_ostream<_CharT, _Traits>(0),

       _M_buf(__str, __mode | ios_base::out) {

   this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_ostringstream<_CharT, _Traits, _Alloc>::~basic_ostringstream()

 {}

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

 // Non-inline stringstream member functions.

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringstream<_CharT, _Traits, _Alloc>

   ::basic_stringstream(ios_base::openmode __mode)

     : basic_iostream<_CharT, _Traits>(0), _M_buf(__mode) {

    this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringstream<_CharT, _Traits, _Alloc>

   ::basic_stringstream(const _String& __str, ios_base::openmode __mode)

     : basic_iostream<_CharT, _Traits>(0), _M_buf(__str, __mode) {

   this->init(&_M_buf);

 }

 template <class _CharT, class _Traits, class _Alloc>

 basic_stringstream<_CharT, _Traits, _Alloc>::~basic_stringstream()

 {}

 _STLP_END_NAMESPACE

 # undef __BSB_int_type__

 # undef __BSB_pos_type__

 #endif /* _STLP_SSTREAM_C */

 // Local Variables:

 // mode:C++

 // End: