/*

 * 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));

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

    _M_append_buffer();

  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();

    break;

  default:

    return pos_type(off_type(-1));

  }

  __off += __newoff;

  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));

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

    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: