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