windows-nt/Source/XPSP1/NT/base/crts/libw32/inc64/ostream

468 lines
13 KiB
Plaintext
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
// ostream standard header
#ifndef _OSTREAM_
#define _OSTREAM_
#include <ios>
#ifdef _MSC_VER
#pragma pack(push,8)
#endif /* _MSC_VER */
// I/O exception macros
#define _TRY_IO_BEGIN _TRY_BEGIN
#define _CATCH_IO_END _CATCH_ALL \
setstate(ios_base::badbit, true); _CATCH_END
#define _CATCH_IO_(x) _CATCH_ALL \
(x).setstate(ios_base::badbit, true); _CATCH_END
_STD_BEGIN
// TEMPLATE CLASS basic_ostream
template<class _E, class _Tr = char_traits<_E> >
class basic_ostream : virtual public basic_ios<_E, _Tr> {
public:
typedef basic_ostream<_E, _Tr> _Myt;
typedef basic_ios<_E, _Tr> _Myios;
typedef basic_streambuf<_E, _Tr> _Mysb;
typedef ostreambuf_iterator<_E, _Tr> _Iter;
typedef num_put<_E, _Iter> _Nput;
explicit basic_ostream(basic_streambuf<_E, _Tr> *_S,
bool _Isstd = false, bool _Doinit = true)
{if (_Doinit)
init(_S, _Isstd); }
basic_ostream(_Uninitialized)
{_Addstd(); }
virtual ~basic_ostream()
{}
class sentry {
public:
explicit sentry(_Myt& _Os)
: _Ok(_Os.opfx()), _Ostr(_Os) {}
~sentry()
{if (!uncaught_exception())
_Ostr.osfx(); }
operator bool() const
{return (_Ok); }
private:
bool _Ok;
_Myt& _Ostr;
};
bool opfx()
{if (good() && tie() != 0)
tie()->flush();
return (good()); }
void osfx()
{if (flags() & unitbuf)
flush(); }
_Myt& operator<<(_Myt& (__cdecl *_F)(_Myt&))
{return ((*_F)(*this)); }
_Myt& operator<<(_Myios& (__cdecl *_F)(_Myios&))
{(*_F)(*(_Myios *)this);
return (*this); }
_Myt& operator<<(ios_base& (__cdecl *_F)(ios_base&))
{(*_F)(*(ios_base *)this);
return (*this); }
_Myt& operator<<(_Bool _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(short _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
fmtflags _Bfl = flags() & basefield;
long _Y = (_Bfl == oct || _Bfl == hex)
? (long)(unsigned short)_X : (long)_X;
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _Y).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(unsigned short _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), (unsigned long)_X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(int _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
fmtflags _Bfl = flags() & basefield;
long _Y = (_Bfl == oct || _Bfl == hex)
? (long)(unsigned int)_X : (long)_X;
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _Y).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(unsigned int _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), (unsigned long)_X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(long _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(unsigned long _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
#ifdef _WIN64
_Myt& operator<<(__int64 _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(unsigned __int64 _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
#endif // _WIN64
_Myt& operator<<(float _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), (double)_X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(double _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(long double _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(const void *_X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (_Ok)
{const _Nput& _Fac = _USE(getloc(), _Nput);
_TRY_IO_BEGIN
if (_Fac.put(_Iter(rdbuf()), *this,
fill(), _X).failed())
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& operator<<(_Mysb *_Pb)
{iostate _St = goodbit;
bool _Copied = false;
const sentry _Ok(*this);
if (_Ok && _Pb != 0)
for (int_type _C = _Tr::eof(); ; _Copied = true)
{_TRY_BEGIN
_C = _Tr::eq_int_type(_Tr::eof(), _C)
? _Pb->sgetc() : _Pb->snextc();
_CATCH_ALL
setstate(failbit);
_RERAISE;
_CATCH_END
if (_Tr::eq_int_type(_Tr::eof(),_C))
break;
_TRY_IO_BEGIN
if (_Tr::eq_int_type(_Tr::eof(),
rdbuf()->sputc(_Tr::to_char_type(_C))))
{_St |= badbit;
break; }
_CATCH_IO_END }
width(0);
setstate(!_Copied ? _St | failbit : _St);
return (*this); }
_Myt& put(_E _X)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (!_Ok)
_St |= badbit;
else
{_TRY_IO_BEGIN
if (_Tr::eq_int_type(_Tr::eof(),
rdbuf()->sputc(_X)))
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& write(const _E *_S, streamsize _N)
{iostate _St = goodbit;
const sentry _Ok(*this);
if (!_Ok)
_St |= badbit;
else
{_TRY_IO_BEGIN
if (rdbuf()->sputn(_S, _N) != _N)
_St |= badbit;
_CATCH_IO_END }
setstate(_St);
return (*this); }
_Myt& flush()
{iostate _St = goodbit;
if (!fail() && rdbuf()->pubsync() == -1)
_St |= badbit;
setstate(_St);
return (*this); }
_Myt& seekp(pos_type _P)
{if (!fail())
rdbuf()->pubseekpos(_P, out);
return (*this); }
_Myt& seekp(off_type _O, ios_base::seekdir _W)
{if (!fail())
rdbuf()->pubseekoff(_O, _W, out);
return (*this); }
pos_type tellp()
{if (!fail())
return (rdbuf()->pubseekoff(0, cur, out));
else
return (streampos(_BADOFF)); }
};
#ifdef _DLL
#pragma warning(disable:4231) /* the extern before template is a non-standard extension */
extern template class _CRTIMP basic_ostream<char, char_traits<char> >;
extern template class _CRTIMP basic_ostream<wchar_t, char_traits<wchar_t> >;
#pragma warning(default:4231) /* restore previous warning */
#endif // _DLL
// INSERTERS
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const _E *_X)
{typedef basic_ostream<_E, _Tr> _Myos;
ios_base::iostate _St = ios_base::goodbit;
size_t _N = _Tr::length(_X);
size_t _M = _O.width() <= 0 || _O.width() <= _N
? 0 : _O.width() - _N;
const _Myos::sentry _Ok(_O);
if (!_Ok)
_St |= ios_base::badbit;
else
{_TRY_IO_BEGIN
if ((_O.flags() & ios_base::adjustfield)
!= ios_base::left)
for (; 0 < _M; --_M)
if (_Tr::eq_int_type(_Tr::eof(),
_O.rdbuf()->sputc(_O.fill())))
{_St |= ios_base::badbit;
break; }
if (_St == ios_base::goodbit
&& _O.rdbuf()->sputn(_X, (int)_N) != _N)
_St |= ios_base::badbit;
if (_St == ios_base::goodbit)
for (; 0 < _M; --_M)
if (_Tr::eq_int_type(_Tr::eof(),
_O.rdbuf()->sputc(_O.fill())))
{_St |= ios_base::badbit;
break; }
_O.width(0);
_CATCH_IO_(_O) }
_O.setstate(_St);
return (_O); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, _E _C)
{typedef basic_ostream<_E, _Tr> _Myos;
ios_base::iostate _St = ios_base::goodbit;
const _Myos::sentry _Ok(_O);
if (_Ok)
{size_t _M = _O.width() <= 1 ? 0 : _O.width() - 1;
_TRY_IO_BEGIN
if ((_O.flags() & ios_base::adjustfield)
!= ios_base::left)
for (; _St == ios_base::goodbit && 0 < _M; --_M)
if (_Tr::eq_int_type(_Tr::eof(),
_O.rdbuf()->sputc(_O.fill())))
_St |= ios_base::badbit;
if (_St == ios_base::goodbit
&& _Tr::eq_int_type(_Tr::eof(),
_O.rdbuf()->sputc(_C)))
_St |= ios_base::badbit;
for (; _St == ios_base::goodbit && 0 < _M; --_M)
if (_Tr::eq_int_type(_Tr::eof(),
_O.rdbuf()->sputc(_O.fill())))
_St |= ios_base::badbit;
_CATCH_IO_(_O) }
_O.width(0);
_O.setstate(_St);
return (_O); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const signed char *_X)
{return (_O << (const char *)_X); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const signed char _C)
{return (_O << (char)_C); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const unsigned char *_X)
{return (_O << (const char *)_X); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const unsigned char _C)
{return (_O << (char)_C); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>& __cdecl operator<<(
basic_ostream<_E, _Tr>& _O, const signed short *_X)
{return (_O << (const wchar_t *)_X); }
// MANIPULATORS
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>&
__cdecl endl(basic_ostream<_E, _Tr>& _O)
{_O.put(_O.widen('\n'));
_O.flush();
return (_O); }
_CRTIMP inline basic_ostream<char, char_traits<char> >&
__cdecl endl(basic_ostream<char, char_traits<char> >& _O)
{_O.put('\n');
_O.flush();
return (_O); }
_CRTIMP inline basic_ostream<wchar_t, char_traits<wchar_t> >&
__cdecl endl(basic_ostream<wchar_t,
char_traits<wchar_t> >& _O)
{_O.put('\n');
_O.flush();
return (_O); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>&
__cdecl ends(basic_ostream<_E, _Tr>& _O)
{_O.put(_E('\0'));
return (_O); }
_CRTIMP inline basic_ostream<char, char_traits<char> >&
__cdecl ends(basic_ostream<char, char_traits<char> >& _O)
{_O.put('\0');
return (_O); }
_CRTIMP inline basic_ostream<wchar_t, char_traits<wchar_t> >&
__cdecl ends(basic_ostream<wchar_t,
char_traits<wchar_t> >& _O)
{_O.put('\0');
return (_O); }
template<class _E, class _Tr> inline
basic_ostream<_E, _Tr>&
__cdecl flush(basic_ostream<_E, _Tr>& _O)
{_O.flush();
return (_O); }
_CRTIMP inline basic_ostream<char, char_traits<char> >&
__cdecl flush(basic_ostream<char, char_traits<char> >& _O)
{_O.flush();
return (_O); }
_CRTIMP inline basic_ostream<wchar_t, char_traits<wchar_t> >&
__cdecl flush(basic_ostream<wchar_t,
char_traits<wchar_t> >& _O)
{_O.flush();
return (_O); }
#ifdef _DLL
#pragma warning(disable:4231) /* the extern before template is a non-standard extension */
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, const char *);
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, char);
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, const signed char *);
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, const signed char);
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, const unsigned char *);
extern template _CRTIMP basic_ostream<char, char_traits<char> >& __cdecl operator<<(
basic_ostream<char, char_traits<char> >&, const unsigned char);
extern template _CRTIMP basic_ostream<wchar_t, char_traits<wchar_t> >& __cdecl operator<<(
basic_ostream<wchar_t, char_traits<wchar_t> >&, const wchar_t *);
extern template _CRTIMP basic_ostream<wchar_t, char_traits<wchar_t> >& __cdecl operator<<(
basic_ostream<wchar_t, char_traits<wchar_t> >&, wchar_t);
extern template _CRTIMP basic_ostream<wchar_t, char_traits<wchar_t> >& __cdecl operator<<(
basic_ostream<wchar_t, char_traits<wchar_t> >&, const signed short *);
#pragma warning(default:4231) /* restore previous warning */
#endif // _DLL
_STD_END
#ifdef _MSC_VER
#pragma pack(pop)
#endif /* _MSC_VER */
#endif /* _OSTREAM_ */
/*
* Copyright (c) 1994 by P.J. Plauger. ALL RIGHTS RESERVED.
* Consult your license regarding permissions and restrictions.
*/