/*

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

  *

  */

 #ifndef _STLP_IOMANIP

 #define _STLP_IOMANIP

 #ifndef _STLP_OUTERMOST_HEADER_ID

 #  define _STLP_OUTERMOST_HEADER_ID 0x1030

 #  include <stl/_prolog.h>

 #endif

 #ifdef _STLP_PRAGMA_ONCE

 #  pragma once

 #endif

 #include <stl/_ioserr.h>

 #include <stl/_istream.h>              // includes <ostream> and <ios>

 _STLP_BEGIN_NAMESPACE

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

 // Machinery for defining manipulators.

 // Class that calls one of ios_base's single-argument member functions.

 template <class _Arg>

 struct _Ios_Manip_1 {

    typedef _Arg (ios_base::*__f_ptr_type)(_Arg);

   _Ios_Manip_1(__f_ptr_type __f, const _Arg& __arg)

     : _M_f(__f), _M_arg(__arg) {}

   void operator()(ios_base& __ios) const

   { (__ios.*_M_f)(_M_arg); }

   __f_ptr_type _M_f;

   _Arg _M_arg;

 };

 // Class that calls one of ios_base's two-argument member functions.

 struct _Ios_Setf_Manip {

   ios_base::fmtflags _M_flag;

   ios_base::fmtflags _M_mask;

   bool _M_two_args;

   _Ios_Setf_Manip(ios_base::fmtflags __f)

     : _M_flag(__f), _M_mask(0), _M_two_args(false) {}

   _Ios_Setf_Manip(ios_base::fmtflags __f, ios_base::fmtflags __m)

     : _M_flag(__f), _M_mask(__m), _M_two_args(true) {}

   void operator()(ios_base& __ios) const {

     if (_M_two_args)

       __ios.setf(_M_flag, _M_mask);

     else

       __ios.setf(_M_flag);

   }

 };

 template <class _CharT, class _Traits, class _Arg>

 inline basic_istream<_CharT, _Traits>& _STLP_CALL

 operator>>(basic_istream<_CharT, _Traits>& __istr,

            const _Ios_Manip_1<_Arg>& __f) {

   __f(__istr);

   return __istr;

 }

 template <class _CharT, class _Traits, class _Arg>

 inline basic_ostream<_CharT, _Traits>& _STLP_CALL

 operator<<(basic_ostream<_CharT, _Traits>& __os,

            const _Ios_Manip_1<_Arg>& __f) {

   __f(__os);

   return __os;

 }

 template <class _CharT, class _Traits>

 inline basic_istream<_CharT, _Traits>& _STLP_CALL

 operator>>(basic_istream<_CharT, _Traits>& __istr, const _Ios_Setf_Manip& __f) {

   __f(__istr);

   return __istr;

 }

 template <class _CharT, class _Traits>

 inline basic_ostream<_CharT, _Traits>& _STLP_CALL

 operator<<(basic_ostream<_CharT, _Traits>& __os, const _Ios_Setf_Manip& __f) {

   __f(__os);

   return __os;

 }

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

 // The ios_base manipulators.

 inline _Ios_Setf_Manip  _STLP_CALL resetiosflags(ios_base::fmtflags __mask)

 { return _Ios_Setf_Manip(0, __mask); }

 inline _Ios_Setf_Manip _STLP_CALL setiosflags(ios_base::fmtflags __flag)

 { return _Ios_Setf_Manip(__flag); }

 inline _Ios_Setf_Manip _STLP_CALL setbase(int __n) {

   ios_base::fmtflags __base = __n == 8  ? ios_base::oct :

                               __n == 10 ? ios_base::dec :

                               __n == 16 ? ios_base::hex :

                               ios_base::fmtflags(0);

   return _Ios_Setf_Manip(__base, ios_base::basefield);

 }

 inline _Ios_Manip_1<streamsize> _STLP_CALL

 setprecision(int __n) {

   _Ios_Manip_1<streamsize>::__f_ptr_type __f = &ios_base::precision;

   return _Ios_Manip_1<streamsize>(__f, __n);

 }

 inline _Ios_Manip_1<streamsize>  _STLP_CALL

 setw(int __n) {

   _Ios_Manip_1<streamsize>::__f_ptr_type __f = &ios_base::width;  

   return _Ios_Manip_1<streamsize>(__f, __n);

 }

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

 // setfill, a manipulator that operates on basic_ios<> instead of ios_base.

 template <class _CharT>

 struct _Setfill_Manip {

   _Setfill_Manip(_CharT __c) : _M_c(__c) {}

   _CharT _M_c;

 };

 template <class _CharT, class _CharT2, class _Traits>

 inline basic_ostream<_CharT, _Traits>& _STLP_CALL

 operator<<(basic_ostream<_CharT, _Traits>& __os,

            const _Setfill_Manip<_CharT2>& __m) {

   __os.fill(__m._M_c);

   return __os;

 }

 template <class _CharT, class _CharT2, class _Traits>

 inline basic_istream<_CharT, _Traits>& _STLP_CALL

 operator>>(basic_istream<_CharT, _Traits>& __is,

            const _Setfill_Manip<_CharT2>& __m) {

   __is.fill(__m._M_c);

   return __is;

 }

 template <class _CharT>

 inline _Setfill_Manip<_CharT> _STLP_CALL

 setfill(_CharT __c) {

   return _Setfill_Manip<_CharT>(__c);

 }

 _STLP_END_NAMESPACE

 #if (_STLP_OUTERMOST_HEADER_ID == 0x1030)

 #  include <stl/_epilog.h>

 #  undef _STLP_OUTERMOST_HEADER_ID

 #endif

 #endif /* _STLP_IOMANIP */

 // Local Variables:

 // mode:C++

 // End: