mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 16:04:18 +00:00
55 lines
1.9 KiB
C
55 lines
1.9 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); /* */
|
||
} /****************************/
|
||
**********************/
|
||
**********************/
|