/*

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

 *

 */ 

# include "stlport_prefix.h"

#include <stl/_streambuf.h>

#include <stl/_algobase.h>

// Implementation of non-inline member functions of class

// basic_streambuf<char, char_traits<char> >

# if defined (__hpux)

#  define FILE_CAST(x) (__REINTERPRET_CAST(FILE*, x))

# else

#  define FILE_CAST(x) x

# endif

_STLP_BEGIN_NAMESPACE

#if !defined(_STLP_WINCE)

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::~basic_streambuf() {}

// This constructor is an extension.  It is for streambuf subclasses that

// are synchronized with C stdio files.

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >

  ::basic_streambuf(FILE* __get, FILE* __put)

    : _M_get(__get ? __get : FILE_CAST(&_M_default_get)),

      _M_put(__put ? __put : FILE_CAST(&_M_default_put)),

      _M_locale()

{

  _M_lock._M_initialize();

  if (_M_get == FILE_CAST(&_M_default_get))

    _FILE_I_set(_M_get, 0, 0, 0);

  if (_M_put == FILE_CAST(&_M_default_put))

    _FILE_O_set(_M_put, 0, 0, 0);      

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >

        ::basic_streambuf _STLP_PSPEC2(char, char_traits<char>) ()

    : _M_get(__REINTERPRET_CAST(FILE*,&_M_default_get)),

      _M_put(__REINTERPRET_CAST(FILE*,&_M_default_put)), _M_locale()

  {

    // _M_lock._M_initialize();

    _FILE_I_set(_M_get, 0, 0, 0);

    _FILE_O_set(_M_put, 0, 0, 0);

  }

// virtual functions

_STLP_EXP_DECLSPEC void basic_streambuf<char, char_traits<char> >::imbue(const locale&)

{}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >*

basic_streambuf<char, char_traits<char> >::setbuf(char*, streamsize)

{

  return this;

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::pos_type

basic_streambuf<char, char_traits<char> >

  ::seekoff(off_type, ios_base::seekdir, ios_base::openmode)

{

  return pos_type(-1);

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::pos_type

basic_streambuf<char, char_traits<char> >

  ::seekpos(pos_type, ios_base::openmode)

{

  return pos_type(-1);

}

_STLP_EXP_DECLSPEC int basic_streambuf<char, char_traits<char> >::sync()

{

  return 0;

}

_STLP_EXP_DECLSPEC streamsize basic_streambuf<char, char_traits<char> >::showmanyc()

{

  return 0;

}

_STLP_EXP_DECLSPEC streamsize basic_streambuf<char, char_traits<char> >

  ::xsgetn(char* s, streamsize n)

{

  streamsize result = 0;

  const int_type eof = traits_type::eof();

  while (result < n) {

    if (_FILE_I_avail(_M_get) > 0) {

      size_t chunk = (min) (__STATIC_CAST(size_t,_FILE_I_avail(_M_get)),

                         __STATIC_CAST(size_t,n - result));

      traits_type::copy(s, _FILE_I_next(_M_get), chunk);

      result += chunk;

      s += chunk;

      _FILE_I_bump(_M_get, chunk);

    }

    else {

      int_type c = sbumpc();

      if (c != eof) {

        *s = c;

        ++result;

	++s;

      }

      else

        break; 

    }

  }

  return result;

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::int_type

basic_streambuf<char, char_traits<char> >::underflow()

{

  return traits_type::eof();

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::int_type

basic_streambuf<char, char_traits<char> >::uflow()

{

  const int_type eof = traits_type::eof();

  return this->underflow() == eof 

    ? eof

    : traits_type::to_int_type(_FILE_I_postincr(_M_get));

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::int_type

basic_streambuf<char, char_traits<char> >::pbackfail(int_type /* __c */)

{

  return traits_type::eof();

}

_STLP_EXP_DECLSPEC streamsize basic_streambuf<char, char_traits<char> >

  ::xsputn(const char* s, streamsize n)

{

  streamsize result = 0;

  const int_type eof = traits_type::eof();

  while (result < n) {

    if (_FILE_O_avail(_M_put) > 0) {

      size_t chunk = (min) (__STATIC_CAST(size_t,_FILE_O_avail(_M_put)),

                         __STATIC_CAST(size_t,n - result));

      traits_type::copy(_FILE_O_next(_M_put), s, chunk);

      result += chunk;

      s += chunk;

      _FILE_O_bump(_M_put, (int)chunk);

    }

    else if (this->overflow(traits_type::to_int_type(*s)) != eof) {

      ++result;

      ++s;

    }

    else

      break;

  }

  return result;

}

_STLP_EXP_DECLSPEC streamsize basic_streambuf<char, char_traits<char> >

  ::_M_xsputnc(char c, streamsize n)

{

  streamsize result = 0;

  const int_type eof = traits_type::eof();

  while (result < n) {

    if (_FILE_O_avail(_M_put) > 0) {

      size_t chunk = (min) (__STATIC_CAST(size_t,_FILE_O_avail(_M_put)),

                         __STATIC_CAST(size_t,n - result));

      traits_type::assign(_FILE_O_next(_M_put), chunk, c);

      result += chunk;

      _FILE_O_bump(_M_put, (int)chunk);

    }

    else if (this->overflow(traits_type::to_int_type(c)) != eof)

      ++result;

    else

      break;

  }

  return result;

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::int_type

basic_streambuf<char, char_traits<char> >::overflow(int_type/*  c */)

{

  return traits_type::eof();

}

_STLP_EXP_DECLSPEC basic_streambuf<char, char_traits<char> >::int_type

basic_streambuf<char, char_traits<char> >::_M_snextc_aux()

{

  int_type eof = traits_type::eof();

  if (_FILE_I_avail(_M_get) == 0)

    return this->uflow() == eof ? eof : this->sgetc();

  else {

    _FILE_I_set(_M_get,

              _FILE_I_begin(_M_get), _FILE_I_end(_M_get), _FILE_I_end(_M_get));

    return this->underflow();

  }

}

_STLP_EXP_DECLSPEC locale basic_streambuf<char, char_traits<char> >::pubimbue(const locale& loc)

{

  this->imbue(loc);

  locale tmp = _M_locale;

  _M_locale = loc;

  return tmp;

}

#else

#if !defined(_STLP_NO_FORCE_INSTANTIATE)

template class basic_streambuf<char, char_traits<char> >;

#endif

#endif /* _STLP_WINCE */

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

// Force instantiation of basic_streambuf

// not basic_streambuf<char>, because it's specialized.

#if !defined(_STLP_NO_FORCE_INSTANTIATE)

#if !defined (_STLP_NO_WCHAR_T)

template class basic_streambuf<wchar_t, char_traits<wchar_t> >;

#endif /* INSTANTIATE_WIDE_STREAMS */

#endif

_STLP_END_NAMESPACE

// Local Variables:

// mode:C++

// End: