+++ /dev/null
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[closeFile.lc]{hClose Runtime Support}
-
-\begin{code}
-
-#include "rtsdefs.h"
-#include "stgio.h"
-
-StgInt
-closeFile(fp)
-StgForeignObj fp;
-{
- int rc;
-
- if (unlockFile(fileno((FILE *) fp))) {
- /* If it has been unlocked, don't bother fclose()ing */
- return 0;
- }
-
- while ((rc = fclose((FILE *) fp)) != 0) {
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return rc;
- }
- }
- return 0;
-}
-
-\end{code}
-
-
-