/****************************************************************************
*
*			f f l u s h   F u n c t i o n
*			-----------------------------
*	Copyright 1982 by Digital Research Inc.  All rights reserved.
*
*	'fflush' causes any buffered data in a stream to be written out
*	to the file.  The stream remains open.
*
*	Calling sequence:
*		ret = fflush(stream)
*	Where:
*		stream is a (FILE *)
*		ret = SUCCESS or FAILURE (I/O error)
*
*	9/83 fix fseek(stream,xx,1) bug   whf
*
*****************************************************************************/

#include "stdio.h"

WORD	fflush(sp)				/* CLEAR FUNCTION ***********/
REG	FILE *sp;				/* stream to flush	    */
{						/****************************/
REG	WORD	n,				/* num written		    */
		ns;				/* num sposed to be written */
						/****************************/
	if((sp->_flag&(_IONBUF|_IOWRT))==_IOWRT /* does it have a wrt buf?  */
	    && (ns=(WORD)(sp->_ptr-sp->_base)) > 0)/*  and does buf need wrt?*/
	{					/* yes!			    */
		n=write(sp->_fd,sp->_base,ns);	/* do it		    */
		if(ns!=n)			/* did they all git writ?   */
		{				/* oooops	  	    */
			sp->_flag |= _IOERR;	/*   this stream no good    */
			return(FAILURE);	/*   let em know	    */
		}				/*			    */
	}					/****************************/
	if( sp->_flag & _IOWRT )		/* is this a writable file? */
	{					/*			    */
	    if( sp->_base != NULL )		/* written to already?	    */
	    {					/*			    */
		if(sp->_flag&_IONBUF)		/* is this a nobuf stream?  */
			sp->_cnt = 1;		/* yes			    */
		else	sp->_cnt = BUFSIZ-1;	/* standard size	    */
	    }					/*			    */
	} else {				/* is a readable file	    */
	    lseek(sp->_fd,(LONG) -(sp->_cnt),1);/* back up cur position ptr */
	    sp->_cnt = 0;			/* zap out count	    */
	}					/*			    */
	sp->_ptr=sp->_base;			/* reset buf		    */
	return(SUCCESS);			/*			    */
}						/****************************/
**********************/
**********************/