142 lines
3.1 KiB
C++
142 lines
3.1 KiB
C++
|
// ios_base -- ios_base basic members
|
||
|
|
#include <new>
|
||
|
|
#include <xiosbase>
|
||
|
|
#include <xstddef>
|
||
|
|
_STD_BEGIN
|
||
|
|
|
||
|
|
#define NSTDSTR 8 /* cin, wcin, etc. */
|
||
|
|
|
||
|
|
extern _CRTIMP2 const fpos_t _Fpz;
|
||
|
|
|
||
|
|
int ios_base::_Index = 0;
|
||
|
|
bool ios_base::_Sync = true;
|
||
|
|
const fpos_t _Fpz = {0};
|
||
|
|
|
||
|
|
static ios_base *stdstr[NSTDSTR + 1] = {0};
|
||
|
|
static char stdopens[NSTDSTR + 1] = {0};
|
||
|
|
|
||
|
|
void ios_base::clear(iostate ns, bool ex)
|
||
|
|
{ // clear all but selected state bits
|
||
|
|
_State = (iostate)(ns & _Statmask);
|
||
|
|
if ((_State & _Except) == 0)
|
||
|
|
;
|
||
|
|
else if (ex)
|
||
|
|
_RERAISE;
|
||
|
|
else
|
||
|
|
_THROW(failure,
|
||
|
|
_State & _Except & badbit ? "ios::badbit set"
|
||
|
|
: _State & _Except & failbit ? "ios::failbit set"
|
||
|
|
: "ios::eofbit set");
|
||
|
|
}
|
||
|
|
|
||
|
|
ios_base& ios_base::copyfmt(const ios_base& rhs)
|
||
|
|
{ // copy format info from another ios_base
|
||
|
|
if (this != &rhs)
|
||
|
|
{ // copy all but _State
|
||
|
|
_Tidy();
|
||
|
|
_Loc = rhs._Loc;
|
||
|
|
_Fmtfl = rhs._Fmtfl;
|
||
|
|
_Prec = rhs._Prec;
|
||
|
|
_Wide = rhs._Wide;
|
||
|
|
_Iosarray *p = rhs._Arr;
|
||
|
|
for (_Arr = 0; p != 0; p = p->_Next)
|
||
|
|
if (p->_Lo != 0 || p->_Vp != 0)
|
||
|
|
{ // copy over nonzero array values
|
||
|
|
iword(p->_Index) = p->_Lo;
|
||
|
|
pword(p->_Index) = p->_Vp;
|
||
|
|
}
|
||
|
|
_Callfns(copyfmt_event);
|
||
|
|
exceptions(rhs._Except); // cause any throw at end
|
||
|
|
}
|
||
|
|
return (*this);
|
||
|
|
}
|
||
|
|
|
||
|
|
locale ios_base::imbue(const locale& _Ln)
|
||
|
|
{ // imbue a new locale into stream
|
||
|
|
locale _Lo = _Loc;
|
||
|
|
_Loc = _Ln;
|
||
|
|
_Callfns(imbue_event);
|
||
|
|
return (_Lo);
|
||
|
|
}
|
||
|
|
|
||
|
|
void ios_base::register_callback(event_callback _P, int _Idx)
|
||
|
|
{ // register a callback function
|
||
|
|
if ((_Calls = new _Fnarray(_Idx, _P, _Calls)) == 0)
|
||
|
|
_Nomemory();
|
||
|
|
}
|
||
|
|
|
||
|
|
ios_base::~ios_base()
|
||
|
|
{ // destruct an ios_base
|
||
|
|
if (0 < _Stdstr && 0 < --stdopens[_Stdstr])
|
||
|
|
return;
|
||
|
|
_Tidy();
|
||
|
|
}
|
||
|
|
|
||
|
|
void ios_base::_Callfns(event ev)
|
||
|
|
{ // call registered functions
|
||
|
|
_Fnarray *p;
|
||
|
|
for (p = _Calls; p != 0; p = p->_Next)
|
||
|
|
(*p->_Pfn)(ev, *this, p->_Index);
|
||
|
|
}
|
||
|
|
|
||
|
|
ios_base::_Iosarray& ios_base::_Findarr(int idx)
|
||
|
|
{ // locate or make a variable array element
|
||
|
|
_Iosarray *p, *q;
|
||
|
|
if (idx < 0)
|
||
|
|
_THROW(failure, "invalid ios::iword/pword index");
|
||
|
|
for (p = _Arr, q = 0; p != 0; p = p->_Next)
|
||
|
|
if (p->_Index == idx)
|
||
|
|
return (*p);
|
||
|
|
else if (q == 0 && p->_Lo == 0 && p->_Vp == 0)
|
||
|
|
q = p;
|
||
|
|
if (q != 0)
|
||
|
|
{ // recycle existing element
|
||
|
|
q->_Index = idx;
|
||
|
|
return (*q);
|
||
|
|
}
|
||
|
|
if ((_Arr = new _Iosarray(idx, _Arr)) == 0)
|
||
|
|
_Nomemory();
|
||
|
|
return (*_Arr);
|
||
|
|
}
|
||
|
|
|
||
|
|
void ios_base::_Addstd()
|
||
|
|
{ // add standard stream to destructor list
|
||
|
|
_Lockit _Lk;
|
||
|
|
for (; _Stdstr < NSTDSTR; ++_Stdstr)
|
||
|
|
if (stdstr[_Stdstr] == 0 || stdstr[_Stdstr] == this)
|
||
|
|
break;
|
||
|
|
stdstr[_Stdstr] = this;
|
||
|
|
++stdopens[_Stdstr];
|
||
|
|
}
|
||
|
|
|
||
|
|
void ios_base::_Init()
|
||
|
|
{ // initialize a new ios_base
|
||
|
|
new (&_Loc) locale;
|
||
|
|
_Except = goodbit;
|
||
|
|
_Fmtfl = skipws | dec;
|
||
|
|
_Prec = 6;
|
||
|
|
_Wide = 0;
|
||
|
|
_Arr = 0;
|
||
|
|
_Calls = 0;
|
||
|
|
clear(goodbit);
|
||
|
|
}
|
||
|
|
|
||
|
|
void ios_base::_Tidy()
|
||
|
|
{ // discard storage for an ios_base
|
||
|
|
_Callfns(erase_event);
|
||
|
|
_Iosarray *q1, *q2;
|
||
|
|
for (q1 = _Arr; q1 != 0; q1 = q2)
|
||
|
|
q2 = q1->_Next, delete q1;
|
||
|
|
_Arr = 0;
|
||
|
|
_Fnarray *q3, *q4;
|
||
|
|
for (q3 = _Calls; q3 != 0; q3 = q4)
|
||
|
|
q4 = q3->_Next, delete q3;
|
||
|
|
_Calls = 0;
|
||
|
|
}
|
||
|
|
_STD_END
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Copyright (c) 1994 by P.J. Plauger. ALL RIGHTS RESERVED.
|
||
|
|
* Consult your license regarding permissions and restrictions.
|
||
|
|
*/
|