1 files changed, 58 insertions, 0 deletions
diff --git a/libc/reent/closer.c b/libc/reent/closer.c
new file mode 100644
index 0000000..aeacebd
--- /dev/null
+++ b/libc/reent/closer.c
@@ -0,0 +1,58 @@
+/* Reentrant version of close system call.  */
+
+#include <reent.h>
+#include <unistd.h>
+#include <_syslist.h>
+
+/* Some targets provides their own versions of this functions.  Those
+   targets should define REENTRANT_SYSCALLS_PROVIDED in TARGET_CFLAGS.  */
+
+#ifdef _REENT_ONLY
+#ifndef REENTRANT_SYSCALLS_PROVIDED
+#define REENTRANT_SYSCALLS_PROVIDED
+#endif
+#endif
+
+#ifndef REENTRANT_SYSCALLS_PROVIDED
+
+/* We use the errno variable used by the system dependent layer.  */
+#undef errno
+extern int errno;
+
+/*
+FUNCTION
+	<<_close_r>>---Reentrant version of close
+	
+INDEX
+	_close_r
+
+ANSI_SYNOPSIS
+	#include <reent.h>
+	int _close_r(struct _reent *<[ptr]>, int <[fd]>);
+
+TRAD_SYNOPSIS
+	#include <reent.h>
+	int _close_r(<[ptr]>, <[fd]>)
+	struct _reent *<[ptr]>;
+	int <[fd]>;
+
+DESCRIPTION
+	This is a reentrant version of <<close>>.  It
+	takes a pointer to the global data block, which holds
+	<<errno>>.
+*/
+
+int
+_close_r (ptr, fd)
+     struct _reent *ptr;
+     int fd;
+{
+  int ret;
+
+  errno = 0;
+  if ((ret = _close (fd)) == -1 && errno != 0)
+    ptr->_errno = errno;
+  return ret;
+}
+
+#endif /* ! defined (REENTRANT_SYSCALLS_PROVIDED) */