summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-08-17 23:44:25 +0000
committerKevin Ryde <user42@zip.com.au>2004-08-17 23:44:25 +0000
commit6f637a1bc0a597bf0fe87dc950617804d2092394 (patch)
tree9a31723554949a07756bea648934af26a6016a60
parent52d1e968ac7df6df8a31ef7ebce63f3a8249c2c5 (diff)
downloadguile-6f637a1bc0a597bf0fe87dc950617804d2092394.tar.gz
(scm_init_socket): Add SOCK_SEQPACKET and SOCK_RDM.
-rw-r--r--libguile/socket.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index 53034f678..374c162c7 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1364,16 +1364,26 @@ scm_init_socket ()
scm_c_define ("INADDR_LOOPBACK", scm_from_ulong (INADDR_LOOPBACK));
#endif
- /* socket types. */
+ /* socket types.
+
+ SOCK_PACKET is deliberately omitted, the GNU/Linux socket(2) and
+ packet(7) advise that it's obsolete and strongly deprecated. */
+
#ifdef SOCK_STREAM
scm_c_define ("SOCK_STREAM", scm_from_int (SOCK_STREAM));
#endif
#ifdef SOCK_DGRAM
scm_c_define ("SOCK_DGRAM", scm_from_int (SOCK_DGRAM));
#endif
+#ifdef SOCK_SEQPACKET
+ scm_c_define ("SOCK_SEQPACKET", scm_from_int (SOCK_SEQPACKET));
+#endif
#ifdef SOCK_RAW
scm_c_define ("SOCK_RAW", scm_from_int (SOCK_RAW));
#endif
+#ifdef SOCK_RDM
+ scm_c_define ("SOCK_RDM", scm_from_int (SOCK_RDM));
+#endif
/* setsockopt level. */
#ifdef SOL_SOCKET