Upload

Digital Research

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

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