// Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. // // This file is part of the GNU ISO C++ Library. This library is free // software; you can redistribute it and/or modify it under the // terms of the GNU General Public License as published by the // Free Software Foundation; either version 2, or (at your option) // any later version. // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // You should have received a copy of the GNU General Public License along // with this library; see the file COPYING. If not, write to the Free // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, // USA. // As a special exception, you may use this file as part of a free software // library without restriction. Specifically, if other files instantiate // templates or use macros or inline functions from this file, or you compile // this file and link it with other files to produce an executable, this // file does not by itself cause the resulting executable to be covered by // the GNU General Public License. This exception does not however // invalidate any other reasons why the executable file might be covered by // the GNU General Public License. // // ISO C++ 14882: 27.6.2 Output streams // #include namespace std { template basic_ostream<_CharT, _Traits>::sentry:: sentry(basic_ostream<_CharT,_Traits>& __os) : _M_ok(__os.good()), _M_os(__os) { // XXX MT if (_M_ok && __os.tie()) __os.tie()->flush(); } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>:: operator<<(__ostream_type& (*__pf)(__ostream_type&)) { sentry __cerb(*this); if (__cerb) { try { __pf(*this); } catch(exception& __fail) { // 27.6.2.5.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>:: operator<<(__ios_type& (*__pf)(__ios_type&)) { sentry __cerb(*this); if (__cerb) { try { __pf(*this); } catch(exception& __fail) { // 27.6.2.5.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>:: operator<<(ios_base& (*__pf)(ios_base&)) { sentry __cerb(*this); if (__cerb) { try { __pf(*this); } catch(exception& __fail) { // 27.6.2.5.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(bool __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(long __n) { sentry __cerb(*this); if (__cerb) { try { char_type __c = this->fill(); ios_base::fmtflags __fmt = this->flags() & ios_base::basefield; if (_M_check_facet(_M_fnumput)) { bool __b = false; if (__fmt & ios_base::oct || __fmt & ios_base::hex) { unsigned long __l = static_cast(__n); __b = _M_fnumput->put(*this, *this, __c, __l).failed(); } else __b = _M_fnumput->put(*this, *this, __c, __n).failed(); if (__b) this->setstate(ios_base::badbit); } } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(unsigned long __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } #ifdef _GLIBCPP_USE_LONG_LONG template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(long long __n) { sentry __cerb(*this); if (__cerb) { try { char_type __c = this->fill(); ios_base::fmtflags __fmt = this->flags() & ios_base::basefield; if (_M_check_facet(_M_fnumput)) { bool __b = false; if (__fmt & ios_base::oct || __fmt & ios_base::hex) { unsigned long long __l; __l = static_cast(__n); __b = _M_fnumput->put(*this, *this, __c, __l).failed(); } else __b = _M_fnumput->put(*this, *this, __c, __n).failed(); if (__b) this->setstate(ios_base::badbit); } } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(unsigned long long __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } #endif template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(double __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(long double __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(const void* __n) { sentry __cerb(*this); if (__cerb) { try { if (_M_check_facet(_M_fnumput)) if (_M_fnumput->put(*this, *this, this->fill(), __n).failed()) this->setstate(ios_base::badbit); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. this->setstate(ios_base::badbit); if ((this->exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::operator<<(__streambuf_type* __sbin) { streamsize __xtrct = 0; __streambuf_type* __sbout = this->rdbuf(); sentry __cerb(*this); if (__sbin && __cerb) __xtrct = __copy_streambufs(*this, __sbin, __sbout); if (!__sbin || !__xtrct) this->setstate(ios_base::failbit); return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::put(char_type __c) { sentry __cerb(*this); if (__cerb) { int_type __put = rdbuf()->sputc(__c); if (__put != traits_type::to_int_type(__c)) this->setstate(ios_base::badbit); } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::write(const _CharT* __s, streamsize __n) { sentry __cerb(*this); if (__cerb) { streamsize __put = this->rdbuf()->sputn(__s, __n); if ( __put != __n) this->setstate(ios_base::badbit); } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::flush() { sentry __cerb(*this); if (__cerb) { if (this->rdbuf() && this->rdbuf()->pubsync() == -1) this->setstate(ios_base::badbit); } return *this; } template typename basic_ostream<_CharT, _Traits>::pos_type basic_ostream<_CharT, _Traits>::tellp() { pos_type __ret = pos_type(-1); bool __testok = this->fail() != true; if (__testok) __ret = this->rdbuf()->pubseekoff(0, ios_base::cur, ios_base::out); return __ret; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>::seekp(pos_type __pos) { bool __testok = this->fail() != true; if (__testok) { #ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS // 136. seekp, seekg setting wrong streams? pos_type __err = this->rdbuf()->pubseekpos(__pos, ios_base::out); // 129. Need error indication from seekp() and seekg() if (__err == pos_type(off_type(-1))) this->setstate(failbit); #endif } return *this; } template basic_ostream<_CharT, _Traits>& basic_ostream<_CharT, _Traits>:: seekp(off_type __off, ios_base::seekdir __d) { bool __testok = this->fail() != true; if (__testok) { #ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS // 136. seekp, seekg setting wrong streams? pos_type __err = this->rdbuf()->pubseekoff(__off, __d, ios_base::out); // 129. Need error indication from seekp() and seekg() if (__err == pos_type(off_type(-1))) this->setstate(failbit); } #endif return *this; } // 27.6.2.5.4 Character inserters // Construct correctly padded string, as per 22.2.2.2.2 // Similar in theory to __pad_numeric, from num_put, but it doesn't // use _S_fill: perhaps it should. // Assumes // __newlen > __oldlen // __news is allocated for __newlen size template void __pad_char(basic_ios<_CharT, _Traits>& __ios, _CharT* __news, const _CharT* __olds, const streamsize __newlen, const streamsize __oldlen) { typedef _CharT char_type; typedef _Traits traits_type; typedef typename traits_type::int_type int_type; int_type __plen = static_cast(__newlen - __oldlen); char_type* __pads = static_cast(__builtin_alloca(sizeof(char_type) * __plen)); traits_type::assign(__pads, __plen, __ios.fill()); char_type* __beg; char_type* __end; size_t __mod = 0; size_t __beglen; //either __plen or __oldlen ios_base::fmtflags __fmt = __ios.flags() & ios_base::adjustfield; if (__fmt == ios_base::left) { // Padding last. __beg = const_cast(__olds); __beglen = __oldlen; __end = __pads; } else if (__fmt == ios_base::internal) { // Pad after the sign, if there is one. // Pad after 0[xX], if there is one. // Who came up with these rules, anyway? Jeeze. typedef _Format_cache<_CharT> __cache_type; __cache_type const* __fmt = __cache_type::_S_get(__ios); const char_type* __minus = traits_type::find(__olds, __oldlen, __fmt->_S_minus); const char_type* __plus = traits_type::find(__olds, __oldlen, __fmt->_S_plus); bool __testsign = __minus || __plus; bool __testhex = __olds[0] == '0' && (__olds[1] == 'x' || __olds[1] == 'X'); if (__testhex) { __news[0] = __olds[0]; __news[1] = __olds[1]; __mod += 2; __beg = const_cast(__olds + __mod); __beglen = __oldlen - __mod; __end = __pads; } else if (__testsign) { __mod += __plen; const char_type* __sign = __minus ? __minus + 1: __plus + 1; __beg = const_cast(__olds); __beglen = __sign - __olds; __end = const_cast(__sign + __plen); traits_type::copy(__news + __beglen, __pads, __plen); } else { // Padding first. __beg = __pads; __beglen = __plen; __end = const_cast(__olds); } } else { // Padding first. __beg = __pads; __beglen = __plen; __end = const_cast(__olds); } traits_type::copy(__news, __beg, __beglen); traits_type::copy(__news + __beglen, __end, __newlen - __beglen - __mod); } template basic_ostream<_CharT, _Traits>& operator<<(basic_ostream<_CharT, _Traits>& __out, _CharT __c) { typedef basic_ostream<_CharT, _Traits> __ostream_type; typename __ostream_type::sentry __cerb(__out); if (__cerb) { try { streamsize __w = __out.width(); _CharT* __pads = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT) * __w)); __pads[0] = __c; streamsize __len = 1; if (__w > __len) { __pad_char(__out, __pads, &__c, __w, __len); __len = __w; } __out.write(__pads, __len); __out.width(0); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. __out.setstate(ios_base::badbit); if ((__out.exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return __out; } // Specialization template basic_ostream& operator<<(basic_ostream& __out, char __c) { typedef basic_ostream __ostream_type; typename __ostream_type::sentry __cerb(__out); if (__cerb) { try { streamsize __w = __out.width(); char* __pads = static_cast(__builtin_alloca(__w + 1)); __pads[0] = __c; streamsize __len = 1; if (__w > __len) { __pad_char(__out, __pads, &__c, __w, __len); __len = __w; } __out.write(__pads, __len); __out.width(0); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. __out.setstate(ios_base::badbit); if ((__out.exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return __out; } template basic_ostream<_CharT, _Traits>& operator<<(basic_ostream<_CharT, _Traits>& __out, const _CharT* __s) { typedef basic_ostream<_CharT, _Traits> __ostream_type; typename __ostream_type::sentry __cerb(__out); if (__cerb) { try { streamsize __w = __out.width(); _CharT* __pads = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT) * __w)); streamsize __len = static_cast(_Traits::length(__s)); if (__w > __len) { __pad_char(__out, __pads, __s, __w, __len); __s = __pads; __len = __w; } __out.write(__s, __len); __out.width(0); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. __out.setstate(ios_base::badbit); if ((__out.exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return __out; } template basic_ostream<_CharT, _Traits>& operator<<(basic_ostream<_CharT, _Traits>& __out, const char* __s) { typedef basic_ostream<_CharT, _Traits> __ostream_type; #ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS // 167. Improper use of traits_type::length() typedef char_traits __ctraits_type; #endif typename __ostream_type::sentry __cerb(__out); if (__cerb) { size_t __clen = __ctraits_type::length(__s); _CharT* __ws = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT) * (__clen + 1))); for (size_t __i = 0; __i <= __clen; ++__i) __ws[__i] = __out.widen(__s[__i]); _CharT* __str = __ws; try { streamsize __len = static_cast(__clen); streamsize __w = __out.width(); _CharT* __pads = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT) * __w)); if (__w > __len) { __pad_char(__out, __pads, __ws, __w, __len); __str = __pads; __len = __w; } __out.write(__str, __len); __out.width(0); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. __out.setstate(ios_base::badbit); if ((__out.exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return __out; } // Partial specializationss template basic_ostream& operator<<(basic_ostream& __out, const char* __s) { typedef basic_ostream __ostream_type; typename __ostream_type::sentry __cerb(__out); if (__cerb) { try { streamsize __w = __out.width(); char* __pads = static_cast(__builtin_alloca(__w)); streamsize __len = static_cast(_Traits::length(__s)); if (__w > __len) { __pad_char(__out, __pads, __s, __w, __len); __s = __pads; __len = __w; } __out.write(__s, __len); __out.width(0); } catch(exception& __fail) { // 27.6.1.2.1 Common requirements. // Turn this on without causing an ios::failure to be thrown. __out.setstate(ios_base::badbit); if ((__out.exceptions() & ios_base::badbit) != 0) __throw_exception_again; } } return __out; } // 21.3.7.9 basic_string::operator<< template basic_ostream<_CharT, _Traits>& operator<<(basic_ostream<_CharT, _Traits>& __out, const basic_string<_CharT, _Traits, _Alloc>& __str) { typedef basic_ostream<_CharT, _Traits> __ostream_type; typename __ostream_type::sentry __cerb(__out); if (__cerb) { const _CharT* __s = __str.data(); streamsize __w = __out.width(); _CharT* __pads = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT) * __w)); streamsize __len = static_cast(__str.size()); #ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS // 25. String operator<< uses width() value wrong #endif if (__w > __len) { __pad_char(__out, __pads, __s, __w, __len); __s = __pads; __len = __w; } streamsize __res = __out.rdbuf()->sputn(__s, __len); __out.width(0); if (__res != __len) __out.setstate(ios_base::failbit); } return __out; } } // namespace std // Local Variables: // mode:C++ // End: