mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
35 lines
1.2 KiB
C
35 lines
1.2 KiB
C
/*********************************************************************
|
|
*
|
|
* f c l o s e F u n c t i o n
|
|
* -----------------------------
|
|
* Copyright 1982 by Digital Research Inc. All rights reserved.
|
|
*
|
|
* "fclose" flushes a stream (buffered file) and releases the
|
|
* channel and any allocated buffers.
|
|
*
|
|
* Calling sequence:
|
|
* ret = fclose(stream)
|
|
* Where:
|
|
* stream -> file to be closed (FILE *)
|
|
* ret = SUCCESS or FAILURE (if IO error)
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#include "stdio.h"
|
|
|
|
WORD fclose(sp) /* CLEAR FUNCTION ***********/
|
|
REG FILE *sp; /* stream to close */
|
|
{ /* */
|
|
/****************************/
|
|
if( sp->_flag & (_IOREAD|_IOWRT) ) /* is it closeable? */
|
|
{ /* yup... */
|
|
fflush(sp); /* do the flush */
|
|
if( sp->_flag & _IOABUF ) /* was buf alloc'd? */
|
|
free(sp->_base); /* free it ifso */
|
|
sp->_base = sp->_ptr = NULL; /* reset these */
|
|
sp->_cnt = 0; /* */
|
|
} /* reset all flags */
|
|
sp->_flag &= ~(_IOREAD|_IOWRT|_IOABUF|_IONBUF|_IOERR|_IOEOF|_IOLBUF);
|
|
return(close(sp->_fd)); /* and return */
|
|
} /****************************/
|