Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/cleanup.c

@@ -0,0 +1,20 @@
+/**********************************************************************
+*
+*			_ c l e a n u p   F u n c t i o n
+*			---------------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"_cleanup" closes all buffered files
+*
+*	Calling sequence:
+*		_cleanup()
+*
+***************************************************************************/
+#include <stdio.h>
+_cleanup()
+{
+REG	WORD ii;
+
+	for( ii=0; ii<MAXFILES; ii++ )
+		fclose(&_iob[ii]);
+}