X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/disorder/blobdiff_plain/763d5e6ad88ef3ba1cd1d7742d060e4f1e54c6b8..ad2f8275a5fc0dba29ca97bc02342d1f1627e590:/lib/syscalls.c

diff --git a/lib/syscalls.c b/lib/syscalls.c
index a84e2eb..66c3d47 100644
--- a/lib/syscalls.c
+++ b/lib/syscalls.c
@@ -47,8 +47,9 @@ pid_t xfork(void) {
   return pid;
 }
 
-void xclose(int fd) {
-  mustnotbeminus1("close", close(fd));
+void xclose_guts(const char *path, int line, int fd) {
+  if(close(fd) < 0)
+    fatal(errno, "%s:%d: close %d", path, line, fd);
 }
 
 void xdup2(int fd1, int fd2) {
@@ -66,6 +67,13 @@ void nonblock(int fd) {
 					fcntl(fd, F_GETFL)) | O_NONBLOCK));
 }
 
+void blocking(int fd) {
+  mustnotbeminus1("fcntl F_SETFL",
+		  fcntl(fd, F_SETFL,
+			mustnotbeminus1("fcntl F_GETFL",
+					fcntl(fd, F_GETFL)) & ~O_NONBLOCK));
+}
+
 void cloexec(int fd) {
   mustnotbeminus1("fcntl F_SETFD",
 		  fcntl(fd, F_SETFD,