mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
53 lines
1.8 KiB
C
53 lines
1.8 KiB
C
/****************************************************************************
|
|
*
|
|
* 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); /* */
|
|
} /****************************/
|