ack/lang/cem/libcc.ansi/stdio/fflush.c
1989-05-30 13:34:25 +00:00

48 lines
864 B
C

/*
* fflush.c - flush stream(s)
*/
/* $Header$ */
#include <stdio.h>
#include "loc_incl.h"
int write(int d, static char *buf, int nbytes);
int
fflush(FILE *stream)
{
int count, c1, i, retval = 0;
if (!stream) {
for(i= 0; i < FOPEN_MAX; i++)
if (_iotable[i] && fflush(_iotable[i]))
retval = EOF;
return retval;
}
if (!stream->_buf ||
io_testflag(stream,_IONBF) ||
!io_testflag(stream,_IOWRITE) )
return(0);
if (io_testflag(stream, _IOLBF))
count = -stream->_count;
else count = stream->_bufsiz - stream->_count;
if ( count <= 0 )
return(0);
c1 = write(stream->_fd, (char *)stream->_buf, count);
if ( count == c1 ) {
if (io_testflag(stream, _IOLBF))
stream->_count = 0;
else stream->_count = stream->_bufsiz;
stream->_ptr = stream->_buf;
return(count);
}
stream->_flags |= _IOERR;
return(EOF);
}