[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/10: socket: TCP_CORK, TCP_NODELAY
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/10: socket: TCP_CORK, TCP_NODELAY |
Date: |
Fri, 3 Jun 2016 21:03:47 +0000 (UTC) |
wingo pushed a commit to branch wip-ethreads
in repository guile.
commit 11f83ebd18b1ce516d90811774a75d904ee96a15
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 file changed, 9 insertions(+)
diff --git a/libguile/socket.c b/libguile/socket.c
index a6f1e5f..1c4f2ae 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>
@@ -1713,6 +1714,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));
- [Guile-commits] branch wip-ethreads created (now ddb971b), Andy Wingo, 2016/06/03
- [Guile-commits] 01/10: socket: TCP_CORK, TCP_NODELAY,
Andy Wingo <=
- [Guile-commits] 04/10: `accept' on nonblocking socket can return #f, Andy Wingo, 2016/06/03
- [Guile-commits] 06/10: Non-blocking accept/connect Scheme support, Andy Wingo, 2016/06/03
- [Guile-commits] 05/10: Support `connect' on nonblocking sockets, Andy Wingo, 2016/06/03
- [Guile-commits] 03/10: put-char in Scheme, Andy Wingo, 2016/06/03
- [Guile-commits] 07/10: add (ice-9 epoll), Andy Wingo, 2016/06/03
- [Guile-commits] 09/10: add examples/ethreads/memcached-{client, server}, Andy Wingo, 2016/06/03
- [Guile-commits] 08/10: add (ice-9 ethreads), Andy Wingo, 2016/06/03
- [Guile-commits] 10/10: add (web server ethreads), Andy Wingo, 2016/06/03
- [Guile-commits] 02/10: put-char, put-string in default namespace, Andy Wingo, 2016/06/03