Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/fflush.c

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