From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Thu, 18 Sep 2014 18:55:44 +0000
Subject: initial commit with rc for skalibs-2.0.0.0

---
 src/libstddjb/socketpair_internal.c | 56 +++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 src/libstddjb/socketpair_internal.c

(limited to 'src/libstddjb/socketpair_internal.c')

diff --git a/src/libstddjb/socketpair_internal.c b/src/libstddjb/socketpair_internal.c
new file mode 100644
index 0000000..8e62bdf
--- /dev/null
+++ b/src/libstddjb/socketpair_internal.c
@@ -0,0 +1,56 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/nonposix.h>
+#include <sys/socket.h>
+#include <errno.h>
+#include <skalibs/djbunix.h>
+
+#ifdef SKALIBS_HASACCEPT4
+
+int socketpair_internal (int domain, int type, int protocol, unsigned int flags, int *sv)
+{
+  return socketpair(domain, type | ((flags & DJBUNIX_FLAG_NB) ? SOCK_NONBLOCK : 0) | ((flags & DJBUNIX_FLAG_COE) ? SOCK_CLOEXEC : 0), protocol, sv) ;
+}
+
+#else
+
+int socketpair_internal (int domain, int type, int protocol, unsigned int flags, int *sv)
+{
+  int fd[2] ;
+  if (socketpair(domain, type, protocol, fd) < 0) return -1 ;
+  if (flags & DJBUNIX_FLAG_NB)
+  {
+    if (ndelay_on(fd[0]) < 0) goto err ;
+    if (ndelay_on(fd[1]) < 0) goto err ;
+  }
+  else
+  {
+    if (ndelay_off(fd[0]) < 0) goto err ;
+    if (ndelay_off(fd[1]) < 0) goto err ;
+  }
+  if (flags & DJBUNIX_FLAG_COE)
+  {
+    if (coe(fd[0]) < 0) goto err ;
+    if (coe(fd[1]) < 0) goto err ;
+  }
+  else
+  {
+    if (uncoe(fd[0]) < 0) goto err ;
+    if (uncoe(fd[1]) < 0) goto err ;
+  }
+  sv[0] = fd[0] ;
+  sv[1] = fd[1] ;
+  return 0 ;
+
+ err:
+  {
+    register int e = errno ;
+    fd_close(fd[1]) ;
+    fd_close(fd[0]) ;
+    errno = e ;
+  }
+  return -1 ;
+}
+
+#endif
-- 
cgit v1.3.1