5 integer f_clos(a) cllist *a;
16 #if defined (MSDOS) && !defined (GO32)
20 extern "C" int unlink(const char*);
22 extern int unlink(const char*);
27 integer f_clos(cllist *a)
32 f__fatal (131, "I/O recursion");
33 if(a->cunit >= MXUNIT) return(0);
34 b= &f__units[a->cunit];
58 unlink(b->ufnm); /*SYSDEP*/
77 return; /* Not initialized, so no open units. */
78 /* I/O no longer in progress. If, during an I/O operation (such
79 as waiting for the user to enter a line), there is an
80 interrupt (such as ^C to stop the program on a UNIX system),
81 f_exit() is called, but there is no longer any I/O in
82 progress. Without turning off this flag, f_clos() would
83 think that there is an I/O recursion in this circumstance. */
102 for(i=0;i<MXUNIT;i++)
103 if(f__units[i].ufd != NULL && f__units[i].uwrt)
104 fflush(f__units[i].ufd);