Initial revision

lang/cem/libcc.ansi/stdio/fflush.c

@@ -0,0 +1,47 @@
+/*
+ * 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); 
+}