sl@0: /*
sl@0:  * © Portions copyright (c) 2006-2007 Nokia Corporation.  All rights reserved.
sl@0:  *
sl@0:  * Copyright (c) 1999
sl@0:  * Silicon Graphics Computer Systems, Inc.
sl@0:  *
sl@0:  * Copyright (c) 1999 
sl@0:  * Boris Fomitchev
sl@0:  *
sl@0:  * This material is provided "as is", with absolutely no warranty expressed
sl@0:  * or implied. Any use is at your own risk.
sl@0:  *
sl@0:  * Permission to use or copy this software for any purpose is hereby granted 
sl@0:  * without fee, provided the above notices are retained on all copies.
sl@0:  * Permission to modify the code and to distribute modified code is granted,
sl@0:  * provided the above notices are retained, and a notice that the code was
sl@0:  * modified is included with the above copyright notice.
sl@0:  *
sl@0:  */ 
sl@0: # include "stlport_prefix.h"
sl@0: #include <stdio_streambuf>
sl@0: 
sl@0: #ifdef _STLP_UNIX
sl@0: #include <sys/types.h>
sl@0: #include <sys/stat.h>
sl@0: #endif /* __unix */
sl@0: 
sl@0: #include <stl/_fstream.h>
sl@0: #include "fstream_impl.h"
sl@0: 
sl@0: # if defined (_STLP_USE_WIN32_IO) && !defined(_STLP_WINCE)
sl@0: # if defined (__BORLANDC__)
sl@0: // #  include <cio.h>
sl@0: #  include <cfcntl.h>
sl@0: # else
sl@0: #  include <io.h>
sl@0: #  include <fcntl.h>
sl@0: # endif
sl@0: 
sl@0: #  include <sys/stat.h>
sl@0: # endif
sl@0: 
sl@0: __SGI_BEGIN_NAMESPACE
sl@0: //----------------------------------------------------------------------
sl@0: // Class stdio_streambuf_base
sl@0: 
sl@0: stdio_streambuf_base::stdio_streambuf_base(FILE* file)
sl@0:   : _STLP_STD::basic_streambuf<char, _STLP_STD::char_traits<char> >(file, 0),
sl@0:     _M_file(file)
sl@0: {}
sl@0: 
sl@0: stdio_streambuf_base::~stdio_streambuf_base()
sl@0: {
sl@0:   _STLP_VENDOR_CSTD::fflush(_M_file);
sl@0: }
sl@0: 
sl@0: _STLP_STD::streambuf* stdio_streambuf_base::setbuf(char* s, streamsize n)
sl@0: {
sl@0:   _STLP_VENDOR_CSTD::setvbuf(_M_file, s, (s == 0 && n == 0) ? _IONBF : _IOFBF, n);
sl@0:   return this;
sl@0: }
sl@0: 
sl@0: stdio_streambuf_base::pos_type
sl@0: stdio_streambuf_base::seekoff(off_type off, ios_base::seekdir dir,
sl@0:                               ios_base::openmode /* mode */)
sl@0: {
sl@0:   int whence;
sl@0:   switch(dir) {
sl@0:   case ios_base::beg:
sl@0:     whence = SEEK_SET;
sl@0:     break;
sl@0:   case ios_base::cur:
sl@0:     whence = SEEK_CUR;
sl@0:     break;
sl@0:   case ios_base::end:
sl@0:     whence = SEEK_END;
sl@0:     break;
sl@0:   default:
sl@0:     return pos_type(-1);
sl@0:   }
sl@0:       
sl@0:   if (_STLP_VENDOR_CSTD::fseek(_M_file, off, whence) == 0) {
sl@0:     fpos_t pos;
sl@0:     _STLP_VENDOR_CSTD::fgetpos(_M_file, &pos);
sl@0:     // added 21 june 00 mdb,rjf,wjs: glibc 2.2 changed fpos_t to be a struct instead
sl@0:     // of a primitive type
sl@0: #if (defined(__GLIBC__) && ( (__GLIBC__ > 2) || ( (__GLIBC__ == 2) && (__GLIBC_MINOR__ >= 2) ) ) )
sl@0:     return pos_type((streamoff)pos.__pos);
sl@0: #elif defined(__ISCPP__) || defined(__MVS__) || (__OS400__)
sl@0:      return pos_type(pos.__fpos_elem[ 0 ]);
sl@0: #elif defined (__EMX__)
sl@0:      return pos_type((streamoff)pos._pos);
sl@0: #else
sl@0:     return pos_type(pos);
sl@0: #endif
sl@0:   }
sl@0:   else
sl@0:     return pos_type(-1);
sl@0: }
sl@0: 
sl@0: 
sl@0: stdio_streambuf_base::pos_type
sl@0: stdio_streambuf_base::seekpos(pos_type pos, ios_base::openmode /* mode */)   // dwa 4/27/00 - suppress unused parameter warning
sl@0: {
sl@0: 
sl@0:   // added 21 june 00 mdb,rjf,wjs: glibc 2.2 changed fpos_t to be a struct instead
sl@0:   // of a primitive type
sl@0: #if (defined(__GLIBC__) && ( (__GLIBC__ > 2) || ( (__GLIBC__ == 2) && (__GLIBC_MINOR__ >= 2) ) ) )
sl@0:   fpos_t p;
sl@0:   p.__pos = pos;
sl@0:   memset( &(p.__state), 0, sizeof(p.__state) );
sl@0: #elif defined(__MVS__) || (__OS400__)
sl@0:   fpos_t p;
sl@0:   p.__fpos_elem[0] = pos;
sl@0: #elif defined(__EMX__)
sl@0:   fpos_t p;
sl@0:   p._pos = pos;
sl@0:   memset( &(p._mbstate), 0, sizeof(p._mbstate) );
sl@0: #else
sl@0:   fpos_t p(pos);
sl@0: #endif
sl@0: 
sl@0:   if (_STLP_VENDOR_CSTD::fsetpos(_M_file, &p) == 0)
sl@0:     return pos;
sl@0:   else
sl@0:     return pos_type(-1);
sl@0: }
sl@0: 
sl@0: int stdio_streambuf_base::sync()
sl@0: {
sl@0:   return _STLP_VENDOR_CSTD::fflush(_M_file) == 0 ? 0 : -1;
sl@0: }
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // Class stdio_istreambuf
sl@0: 
sl@0: stdio_istreambuf::~stdio_istreambuf() {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC streamsize stdio_istreambuf::showmanyc()
sl@0: {
sl@0:   if (feof(_M_file)) 
sl@0:     return -1;
sl@0:   else {
sl@0:     int fd = _FILE_fd(_M_file);
sl@0: # ifdef _STLP_USE_WIN32_IO
sl@0:     // in this case, __file_size works with Win32 fh , not libc one
sl@0:     streamoff size;
sl@0:     struct stat buf;
sl@0: # ifdef __BORLANDC__
sl@0:     if(fstat(fd, &buf) == 0 && S_ISREG( buf.st_mode ) )
sl@0: # else
sl@0:     if(fstat(fd, &buf) == 0 && ( _S_IFREG & buf.st_mode ) )
sl@0: # endif
sl@0:       size = ( buf.st_size > 0  ? buf.st_size : 0);
sl@0:     else
sl@0:       size = 0;
sl@0: # else
sl@0:     streamoff size = _SgI::__file_size(fd);
sl@0: # endif
sl@0:     // fbp : we can use ftell as this flavour always use stdio.
sl@0:     long pos = _STLP_VENDOR_CSTD::ftell(_M_file);
sl@0:     return pos >= 0 && size > pos ? size - pos : 0;
sl@0:   }
sl@0: }
sl@0: 
sl@0: stdio_istreambuf::int_type stdio_istreambuf::underflow()
sl@0: {
sl@0:   int c = getc(_M_file);
sl@0:   if (c != EOF) {
sl@0:     _STLP_VENDOR_CSTD::ungetc(c, _M_file);
sl@0:     return c;
sl@0:   }
sl@0:   else
sl@0:     return traits_type::eof();
sl@0: }
sl@0: 
sl@0: stdio_istreambuf::int_type stdio_istreambuf::uflow()
sl@0: {
sl@0: #ifdef __SYMBIAN32__
sl@0:   const int_type eof = traits_type::eof();
sl@0:   return this->underflow() == eof 
sl@0:     ? eof
sl@0:     : traits_type::to_int_type(_FILE_I_postincr(_M_file));
sl@0: #else
sl@0:   int c = getc(_M_file);
sl@0:   return c != EOF ? c : traits_type::eof();
sl@0: #endif    
sl@0: }
sl@0: 
sl@0: stdio_istreambuf::int_type stdio_istreambuf::pbackfail(int_type c)
sl@0: {
sl@0:   if (c != traits_type::eof()) {
sl@0:     int result = _STLP_VENDOR_CSTD::ungetc(c, _M_file);
sl@0:     return result != EOF ? result : traits_type::eof();
sl@0:   }
sl@0:   else{
sl@0:     if (this->eback() < this->gptr()) {
sl@0:       this->gbump(-1);
sl@0:       return traits_type::not_eof(c);
sl@0:     }
sl@0:     else
sl@0:       return traits_type::eof();
sl@0:   }
sl@0: }
sl@0: 
sl@0: //----------------------------------------------------------------------
sl@0: // Class stdio_ostreambuf
sl@0: 
sl@0: stdio_ostreambuf::~stdio_ostreambuf() {}
sl@0: 
sl@0: _STLP_EXP_DECLSPEC streamsize stdio_ostreambuf::showmanyc()
sl@0: {
sl@0:   return -1;
sl@0: }
sl@0: 
sl@0: stdio_ostreambuf::int_type stdio_ostreambuf::overflow(int_type c)
sl@0: {
sl@0:   // Write the existing buffer, without writing any additional character.
sl@0:   if (c == traits_type::eof()) {
sl@0:     // Do we have a buffer to write?
sl@0:     ptrdiff_t unwritten = this->pptr() - this->pbase();
sl@0:     if (unwritten != 0) {
sl@0:       _STLP_VENDOR_CSTD::fflush(_M_file);
sl@0:       // Test if the write succeeded.
sl@0:       if (this->pptr() - this->pbase() < unwritten)
sl@0:         return traits_type::not_eof(c);
sl@0:       else
sl@0:         return traits_type::eof();
sl@0:     }
sl@0: 
sl@0:     // We always succeed if we don't have to do anything.
sl@0:     else
sl@0:       return traits_type::not_eof(c);
sl@0:   }
sl@0: 
sl@0:   // Write the character c, and whatever else might be in the buffer.
sl@0:   else {
sl@0:     int result = putc(c, _M_file);
sl@0:     return result != EOF ? result : traits_type::eof();
sl@0:   }
sl@0: }
sl@0: 
sl@0: __SGI_END_NAMESPACE
sl@0: 
sl@0: // Local Variables:
sl@0: // mode:C++
sl@0: // End:
sl@0: