/*

 * © 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.

 *

 */ 

// Implementation of the classes in header <strstream>.

// WARNING: The classes defined in <strstream> are DEPRECATED.  This

// header is defined in section D.7.1 of the C++ standard, and it

// MAY BE REMOVED in a future standard revision.  You should use the

// header <sstream> instead.

# include "stlport_prefix.h"

#include <stl/_strstream.h>

#include <stl/_algobase.h>

_STLP_BEGIN_NAMESPACE

// strstreambuf constructor, destructor.

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(streamsize initial_capacity)

   :  _M_alloc_fun(0), _M_free_fun(0),

     _M_dynamic(true), _M_frozen(false), _M_constant(false)  

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  streamsize n = (max)(initial_capacity, streamsize(16));

  char* buf = _M_alloc(n);

#ifdef __SYMBIAN32__  

  *buf = '\0';

#endif  

  if (buf) {

    setp(buf, buf + n);

    setg(buf, buf, buf);

  }

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(__alloc_fn alloc_f, __free_fn free_f)

  : _M_alloc_fun(alloc_f), _M_free_fun(free_f),

    _M_dynamic(true), _M_frozen(false), _M_constant(false)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  streamsize n = 16;

#ifndef __SYMBIAN32__  

  char* buf = _M_alloc(n);

#else

  char* buf = NULL;

  if(alloc_f!=NULL)

  	buf = (char*)_M_alloc_fun(n);

  else

  	buf = _M_alloc(n);

  if(buf)

  	*buf = '\0';

#endif 

  if (buf) {

    setp(buf, buf + n);

    setg(buf, buf, buf);

  }

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(char* get, streamsize n, char* put)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(false)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(get, put, n);

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(signed char* get, streamsize n, signed char* put)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(false)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(__REINTERPRET_CAST(char*,get), __REINTERPRET_CAST(char*,put), n);

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(unsigned char* get, streamsize n,

                           unsigned char* put)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(false)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(__REINTERPRET_CAST(char*,get), __REINTERPRET_CAST(char*,put), n);

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(const char* get, streamsize n)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(true)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(__CONST_CAST(char*,get), 0, n);

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(const signed char* get, streamsize n)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(true)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(__REINTERPRET_CAST(char*, __CONST_CAST(signed char*,get)), 0, n);

}

_STLP_EXP_DECLSPEC strstreambuf::strstreambuf(const unsigned char* get, streamsize n)

  : _M_alloc_fun(0), _M_free_fun(0),

    _M_dynamic(false), _M_frozen(false), _M_constant(true)

#ifdef __SYMBIAN32__

    , _pfrozenendsave(NULL)

    ,_pgetfrozenendsave( NULL)

#endif     

{

  _M_setup(__REINTERPRET_CAST(char*, __CONST_CAST(unsigned char*,get)), 0, n);

}

_STLP_EXP_DECLSPEC void strstreambuf::freeze(bool frozenflag)

{

#ifdef __SYMBIAN32__

  if (_M_dynamic)

  {

    //

	if (frozenflag && !_M_frozen)

		{	// disable writing

		_M_frozen = frozenflag;

		_pfrozenendsave = epptr();

        _pgetfrozenendsave = pptr();

		setp(pbase(), eback());

		}

	else if (!frozenflag && _M_frozen)

		{	// re-enable writing

		_M_frozen = frozenflag;

		if(_pfrozenendsave != NULL)

		    {

		    setp(pbase(), _pfrozenendsave);

		    setg(pbase(),  pbase(), _pgetfrozenendsave);

		    }

		}

  }

#else

  if (_M_dynamic)

    _M_frozen = frozenflag;

#endif

}

_STLP_EXP_DECLSPEC char* strstreambuf::str()

{

  freeze(true);

  return eback();

}

_STLP_EXP_DECLSPEC int strstreambuf::pcount() const

{

  return int(pptr() ? pptr() - pbase() : 0);

}

_STLP_EXP_DECLSPEC strstreambuf::int_type strstreambuf::overflow(int_type c) {

  if (c == traits_type::eof())

    return traits_type::not_eof(c);

#ifdef __SYMBIAN32__

  if (pptr() != 0 && pptr() < epptr())

  {

    *pptr() = c;

    pbump(1);

    return c;

  }

  if (!_M_dynamic || _M_constant || _M_frozen)

  	return (EOF);	// can't extend

#endif

  // Try to expand the buffer.

  if (pptr() == epptr() && _M_dynamic && !_M_frozen && !_M_constant) {

    ptrdiff_t old_size = epptr() - pbase();

    ptrdiff_t new_size = (max)(2 * old_size, ptrdiff_t(1));

    char* buf = _M_alloc(new_size);

    if (buf) {

      memcpy(buf, pbase(), old_size);

      char* old_buffer = pbase();

      bool reposition_get = false;

      ptrdiff_t old_get_offset;

      if (gptr() != 0) {

        reposition_get = true;

        old_get_offset = gptr() - eback();

      }

      setp(buf, buf + new_size);

      pbump((int)old_size);

      if (reposition_get) 

        setg(buf, buf + old_get_offset, buf + (max)(old_get_offset, old_size));

      _M_free(old_buffer);

    }

  }

  if (pptr() != epptr()) {

    *pptr() = c;

    pbump(1);

    return c;

  }

  else

    return traits_type::eof();

}

_STLP_EXP_DECLSPEC strstreambuf::int_type strstreambuf::pbackfail(int_type c)

{

  if (gptr() != eback()) {

    if (c == _Traits::eof()) {

      gbump(-1);

      return _Traits::not_eof(c);

    }

    else if (c == gptr()[-1]) {

      gbump(-1);

      return c;

    }

    else if (!_M_constant) {

      gbump(-1);

      *gptr() = c;

      return c;

    }

  }

  return _Traits::eof();

}

_STLP_EXP_DECLSPEC strstreambuf::int_type strstreambuf::underflow()

{

  if (gptr() == egptr() && pptr() && pptr() > egptr())

    setg(eback(), gptr(), pptr());

  if (gptr() != egptr())

    return (unsigned char) *gptr();

  else

    return _Traits::eof();

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >* 

strstreambuf::setbuf(char*, streamsize)

{

  return this;

}

_STLP_EXP_DECLSPEC strstreambuf::pos_type

strstreambuf::seekoff(off_type off,

                      ios_base::seekdir dir, ios_base::openmode mode)

{

  bool do_get = false;

  bool do_put = false;

  if ((mode & (ios_base::in | ios_base::out)) ==

          (ios_base::in | ios_base::out) &&

      (dir == ios_base::beg || dir == ios_base::end))

    do_get = do_put = true;

  else if (mode & ios_base::in)

    do_get = true;

  else if (mode & ios_base::out)

    do_put = true;

  // !gptr() is here because, according to D.7.1 paragraph 4, the seekable

  // area is undefined if there is no get area.

  if ((!do_get && !do_put) || (do_put && !pptr()) || !gptr())

    return pos_type(off_type(-1));

  char* seeklow  = eback();

  char* seekhigh = epptr() ? epptr() : egptr();

  off_type newoff;

  switch(dir) {

  case ios_base::beg:

    newoff = 0;

    break;

  case ios_base::end:

    newoff = seekhigh - seeklow;

    break;

  case ios_base::cur:

    newoff = do_put ? pptr() - seeklow : gptr() - seeklow;

    break;

  default:

    return pos_type(off_type(-1));

  }

  off += newoff;

  if (off < 0 || off > seekhigh - seeklow)

    return pos_type(off_type(-1));

  if (do_put) {

    if (seeklow + off < pbase()) {

      setp(seeklow, epptr());

      pbump((int)off);

    }

    else {

      setp(pbase(), epptr());

      pbump((int)(off - (pbase() - seeklow)));

    }

  }

  if (do_get) {

    if (off <= egptr() - seeklow)

      setg(seeklow, seeklow + off, egptr());

    else if (off <= pptr() - seeklow)

      setg(seeklow, seeklow + off, pptr());

    else

      setg(seeklow, seeklow + off, epptr());

  }

#ifndef __SYMBIAN32__

  return pos_type(newoff);

#else

  return pos_type(off);

#endif  

}

_STLP_EXP_DECLSPEC strstreambuf::pos_type

strstreambuf::seekpos(pos_type pos, ios_base::openmode mode)

{

  return seekoff(pos - pos_type(off_type(0)), ios_base::beg, mode);

}

char* strstreambuf::_M_alloc(size_t n)

{

  if (_M_alloc_fun)

    return __STATIC_CAST(char*,_M_alloc_fun(n));

  else

    return new char[n];

}

void strstreambuf::_M_setup(char* get, char* put, streamsize n)

{

  if (get) {

    size_t N = n > 0 ? size_t(n) : n == 0 ? strlen(get) : size_t(INT_MAX);

    if (put) {

      if(put == get)

        setg(get, get, put + N);

      else

#ifndef __SYMBIAN32__      

      	setg(get, get, put);      

      	setp(put, put + N);

#else

		setg(get, get, put + N-(put-get));      

		setp(put, put + N-(put-get));

#endif      	

    }

    else {

      setg(get, get, get + N);

    }

  }

}

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

// Class istrstream

_STLP_EXP_DECLSPEC istrstream::istrstream(char* s)

  : basic_istream<char, char_traits<char> >(0), _M_buf(s, 0)

{

  this->init(&_M_buf);

}

_STLP_EXP_DECLSPEC istrstream::istrstream(const char* s)

  : basic_istream<char, char_traits<char> >(0), _M_buf(s, 0)

{

  this->init(&_M_buf);

}

_STLP_EXP_DECLSPEC istrstream::istrstream(char* s, streamsize n)

  : basic_istream<char, char_traits<char> >(0), _M_buf(s, n)

{

  this->init(&_M_buf);

}

_STLP_EXP_DECLSPEC istrstream::istrstream(const char* s, streamsize n)

  : basic_istream<char, char_traits<char> >(0), _M_buf(s, n)

{

  this->init(&_M_buf);

}

_STLP_EXP_DECLSPEC istrstream::~istrstream() {}

_STLP_EXP_DECLSPEC strstreambuf* istrstream::rdbuf() const {

  return __CONST_CAST(strstreambuf*,&_M_buf);

}

_STLP_EXP_DECLSPEC char* istrstream::str() { return _M_buf.str(); }

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

// Class ostrstream

_STLP_EXP_DECLSPEC ostrstream::ostrstream()

  : basic_ostream<char, char_traits<char> >(0), _M_buf()

{

  basic_ios<char, char_traits<char> >::init(&_M_buf);

}

_STLP_EXP_DECLSPEC ostrstream::ostrstream(char* s, int n, ios_base::openmode mode)

  : basic_ostream<char, char_traits<char> >(0), 

    _M_buf(s, n, mode & ios_base::app ? s + strlen(s) : s)

{

  basic_ios<char, char_traits<char> >::init(&_M_buf);

}

_STLP_EXP_DECLSPEC ostrstream::~ostrstream() {}

_STLP_EXP_DECLSPEC strstreambuf* ostrstream::rdbuf() const 

{

  return __CONST_CAST(strstreambuf*,&_M_buf);

}

_STLP_EXP_DECLSPEC void ostrstream::freeze(bool freezeflag)

{

  _M_buf.freeze(freezeflag);

}

_STLP_EXP_DECLSPEC char* ostrstream::str()

{

  return _M_buf.str();

}

_STLP_EXP_DECLSPEC int ostrstream::pcount() const

{

  return _M_buf.pcount();

}

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

// Class strstream

_STLP_EXP_DECLSPEC strstream::strstream()

  : basic_iostream<char, char_traits<char> >(0), _M_buf()

{

  basic_ios<char, char_traits<char> >::init(&_M_buf);

}

_STLP_EXP_DECLSPEC strstream::strstream(char* s, int n, ios_base::openmode mode)

  : basic_iostream<char, char_traits<char> >(0), 

    _M_buf(s, n, mode & ios_base::app ? s + strlen(s) : s)

{

  basic_ios<char, char_traits<char> >::init(&_M_buf);

}

_STLP_EXP_DECLSPEC strstream::~strstream() {}

_STLP_EXP_DECLSPEC strstreambuf* strstream::rdbuf() const

{

  return __CONST_CAST(strstreambuf*,&_M_buf);

}

_STLP_EXP_DECLSPEC void strstream::freeze(bool freezeflag)

{

  _M_buf.freeze(freezeflag);

}

_STLP_EXP_DECLSPEC int strstream::pcount() const

{

  return _M_buf.pcount();

}

_STLP_EXP_DECLSPEC char* strstream::str()

{

  return _M_buf.str();

}

_STLP_END_NAMESPACE

// Local Variables:

// mode:C++

// End: