#include "sfhdr.h"
#if __STD_C
int _sfexcept(Sfio_t* f, int type, ssize_t io, Sfdisc_t* disc)
#else
int _sfexcept(f,type,io,disc)
Sfio_t* f;
int type;
ssize_t io;
Sfdisc_t* disc;
#endif
{
reg int ev, local, lock;
reg ssize_t size;
reg uchar* data;
SFMTXSTART(f,-1);
GETLOCAL(f,local);
lock = f->mode&SF_LOCK;
if(local && io <= 0)
f->flags |= io < 0 ? SF_ERROR : SF_EOF;
if(disc && disc->exceptf)
{
if(local && lock)
SFOPEN(f,0);
_Sfi = f->val = io;
ev = (*(disc->exceptf))(f,type,&io,disc);
if(local && lock)
SFLOCK(f,0);
if(io > 0 && !(f->flags&SF_STRING) )
SFMTXRETURN(f, ev);
if(ev < 0)
SFMTXRETURN(f, SF_EDONE);
if(ev > 0)
SFMTXRETURN(f, SF_EDISC);
}
if(f->flags&SF_STRING)
{ if(type == SF_READ)
goto chk_stack;
else if(type != SF_WRITE && type != SF_SEEK)
SFMTXRETURN(f, SF_EDONE);
if(local && io >= 0)
{ if(f->size >= 0 && !(f->flags&SF_MALLOC))
goto chk_stack;
if((size = f->size) < 0)
size = 0;
if((io -= size) <= 0)
io = SF_GRAIN;
size = ((size+io+SF_GRAIN-1)/SF_GRAIN)*SF_GRAIN;
if(f->size > 0)
data = (uchar*)realloc((char*)f->data,size);
else data = (uchar*)malloc(size);
if(!data)
goto chk_stack;
f->endb = data + size;
f->next = data + (f->next - f->data);
f->endr = f->endw = f->data = data;
f->size = size;
}
SFMTXRETURN(f, SF_EDISC);
}
if(errno == EINTR)
{ if(_Sfexiting || (f->bits&SF_ENDING))
SFMTXRETURN(f, SF_EDONE);
errno = 0;
f->flags &= ~(SF_EOF|SF_ERROR);
SFMTXRETURN(f, SF_ECONT);
}
chk_stack:
if(local && f->push &&
((type == SF_READ && f->next >= f->endb) ||
(type == SF_WRITE && f->next <= f->data)))
{
reg Sfio_t *pf;
if(lock)
SFOPEN(f,0);
pf = (*_Sfstack)(f,NIL(Sfio_t*));
if((ev = sfclose(pf)) < 0)
(*_Sfstack)(f,pf);
if(lock)
SFLOCK(f,0);
ev = ev < 0 ? SF_EDONE : SF_ESTACK;
}
else ev = SF_EDONE;
SFMTXRETURN(f, ev);
}