diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-08-17 23:44:25 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-08-17 23:44:25 +0000 |
commit | 6f637a1bc0a597bf0fe87dc950617804d2092394 (patch) | |
tree | 9a31723554949a07756bea648934af26a6016a60 | |
parent | 52d1e968ac7df6df8a31ef7ebce63f3a8249c2c5 (diff) | |
download | guile-6f637a1bc0a597bf0fe87dc950617804d2092394.tar.gz |
(scm_init_socket): Add SOCK_SEQPACKET and SOCK_RDM.
-rw-r--r-- | libguile/socket.c | 12 |
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 |