[Guile-commits] 11/23: socket: TCP_CORK, TCP_NODELAY

[Andy Wingo]

wingo pushed a commit to branch wip-ethreads
in repository guile.

commit a30c7699d4a937f915e76929f08a4883caf918e0
Author: Andy Wingo <address@hidden>
Date:   Mon Mar 26 00:25:03 2012 +0200

    socket: TCP_CORK, TCP_NODELAY
    
    * libguile/socket.c (scm_init_socket): Define TCP_NODELAY and TCP_CORK
      if they are available.
---
 libguile/socket.c |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/libguile/socket.c b/libguile/socket.c
index d886105..86c6191 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -40,6 +40,7 @@
 #include <sys/un.h>
 #endif
 #include <netinet/in.h>
+#include <netinet/tcp.h>
 #include <netdb.h>
 #include <arpa/inet.h>
 
@@ -1743,6 +1744,14 @@ scm_init_socket ()
   scm_c_define ("MSG_DONTROUTE", scm_from_int (MSG_DONTROUTE));
 #endif
 
+  /* TCP options.  */
+#ifdef TCP_NODELAY
+  scm_c_define ("TCP_NODELAY", scm_from_int (TCP_NODELAY));
+#endif
+#ifdef TCP_CORK
+  scm_c_define ("TCP_CORK", scm_from_int (TCP_CORK));
+#endif
+
 #ifdef IP_ADD_MEMBERSHIP
   scm_c_define ("IP_ADD_MEMBERSHIP", scm_from_int (IP_ADD_MEMBERSHIP));
   scm_c_define ("IP_DROP_MEMBERSHIP", scm_from_int (IP_DROP_MEMBERSHIP));