forked from KolibriOS/kolibrios
756 lines
21 KiB
C++
756 lines
21 KiB
C++
// 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 <bits/std_locale.h>
|
|
|
|
namespace std
|
|
{
|
|
template<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<unsigned long>(__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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<unsigned long long>(__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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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 _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<typename _CharT, typename _Traits>
|
|
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<size_t>(__newlen - __oldlen);
|
|
char_type* __pads = static_cast<char_type*>(__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<char_type*>(__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<char_type*>(__olds + __mod);
|
|
__beglen = __oldlen - __mod;
|
|
__end = __pads;
|
|
}
|
|
else if (__testsign)
|
|
{
|
|
__mod += __plen;
|
|
const char_type* __sign = __minus ? __minus + 1: __plus + 1;
|
|
__beg = const_cast<char_type*>(__olds);
|
|
__beglen = __sign - __olds;
|
|
__end = const_cast<char_type*>(__sign + __plen);
|
|
traits_type::copy(__news + __beglen, __pads, __plen);
|
|
}
|
|
else
|
|
{
|
|
// Padding first.
|
|
__beg = __pads;
|
|
__beglen = __plen;
|
|
__end = const_cast<char_type*>(__olds);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// Padding first.
|
|
__beg = __pads;
|
|
__beglen = __plen;
|
|
__end = const_cast<char_type*>(__olds);
|
|
}
|
|
|
|
traits_type::copy(__news, __beg, __beglen);
|
|
traits_type::copy(__news + __beglen, __end, __newlen - __beglen - __mod);
|
|
}
|
|
|
|
template<typename _CharT, typename _Traits>
|
|
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 <class _Traits>
|
|
basic_ostream<char, _Traits>&
|
|
operator<<(basic_ostream<char, _Traits>& __out, char __c)
|
|
{
|
|
typedef basic_ostream<char, _Traits> __ostream_type;
|
|
typename __ostream_type::sentry __cerb(__out);
|
|
if (__cerb)
|
|
{
|
|
try
|
|
{
|
|
streamsize __w = __out.width();
|
|
char* __pads = static_cast<char*>(__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<typename _CharT, typename _Traits>
|
|
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<streamsize>(_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<typename _CharT, typename _Traits>
|
|
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<char> __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<streamsize>(__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<class _Traits>
|
|
basic_ostream<char, _Traits>&
|
|
operator<<(basic_ostream<char, _Traits>& __out, const char* __s)
|
|
{
|
|
typedef basic_ostream<char, _Traits> __ostream_type;
|
|
typename __ostream_type::sentry __cerb(__out);
|
|
if (__cerb)
|
|
{
|
|
try
|
|
{
|
|
streamsize __w = __out.width();
|
|
char* __pads = static_cast<char*>(__builtin_alloca(__w));
|
|
streamsize __len = static_cast<streamsize>(_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<typename _CharT, typename _Traits, typename _Alloc>
|
|
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<streamsize>(__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:
|
|
|