#include "sfhdr.h"
#if __STD_C
int _sfflsbuf(reg Sfio_t* f, reg int c)
#else
int _sfflsbuf(f,c)
reg Sfio_t* f;
reg int c;
#endif
{
reg ssize_t n, w;
reg uchar* data;
uchar outc;
reg int local, isall;
int inpc = c;
SFMTXSTART(f,-1);
GETLOCAL(f,local);
for(;; f->mode &= ~SF_LOCK)
{
if(SFMODE(f,local) != SF_WRITE && _sfmode(f,SF_WRITE,local) < 0)
SFMTXRETURN(f, -1);
SFLOCK(f,local);
n = f->next - (data = f->data);
if(n == (f->endb-data) && (f->flags&SF_STRING))
{
(void)SFWR(f,data,1,f->disc);
if(f->next < f->endb || !(f->flags&SF_STRING) )
n = f->next - (data = f->data);
else
{ SFOPEN(f,local);
SFMTXRETURN(f, -1);
}
}
if(c >= 0)
{
if(n < (f->endb - (data = f->data)))
{ *f->next++ = c;
if(c == '\n' &&
(f->flags&SF_LINE) && !(f->flags&SF_STRING))
{ c = -1;
n += 1;
}
else break;
}
else if(n == 0)
{
outc = (uchar)c;
data = &outc;
c = -1;
n = 1;
}
}
if(n == 0 || (f->flags&SF_STRING))
break;
isall = SFISALL(f,isall);
if((w = SFWR(f,data,n,f->disc)) > 0)
{ if((n -= w) > 0)
memcpy((char*)f->data,(char*)data+w,n);
f->next = f->data+n;
if(c < 0 && (!isall || n == 0))
break;
}
else if(w == 0)
{ SFOPEN(f,local);
SFMTXRETURN(f, -1);
}
else if(c < 0)
break;
}
SFOPEN(f,local);
if(inpc < 0)
inpc = f->endb-f->next;
SFMTXRETURN(f,inpc);
}