conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct visibility of symbols in (srfi 106). 

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-06-24 18:44:44 +09:00
parent f323e9d232
commit f836c4db47
1 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
contrib/40.srfi/src/106.c
View File

@ -400,122 +400,122 @@ void
pic_init_socket(pic_state *pic) pic_init_socket(pic_state *pic)
{ {
pic_deflibrary (pic, "(srfi 106)") { pic_deflibrary (pic, "(srfi 106)") {
pic_defun(pic, "socket?", pic_socket_socket_p); pic_defun_(pic, "socket?", pic_socket_socket_p);
pic_defun(pic, "make-socket", pic_socket_make_socket); pic_defun_(pic, "make-socket", pic_socket_make_socket);
pic_defun(pic, "socket-accept", pic_socket_socket_accept); pic_defun_(pic, "socket-accept", pic_socket_socket_accept);
pic_defun(pic, "socket-send", pic_socket_socket_send); pic_defun_(pic, "socket-send", pic_socket_socket_send);
pic_defun(pic, "socket-recv", pic_socket_socket_recv); pic_defun_(pic, "socket-recv", pic_socket_socket_recv);
pic_defun(pic, "socket-shutdown", pic_socket_socket_shutdown); pic_defun_(pic, "socket-shutdown", pic_socket_socket_shutdown);
pic_defun(pic, "socket-close", pic_socket_socket_close); pic_defun_(pic, "socket-close", pic_socket_socket_close);
pic_defun(pic, "socket-input-port", pic_socket_socket_input_port); pic_defun_(pic, "socket-input-port", pic_socket_socket_input_port);
pic_defun(pic, "socket-output-port", pic_socket_socket_output_port); pic_defun_(pic, "socket-output-port", pic_socket_socket_output_port);
pic_defun(pic, "call-with-socket", pic_socket_call_with_socket); pic_defun_(pic, "call-with-socket", pic_socket_call_with_socket);
#ifdef AF_INET #ifdef AF_INET
pic_define(pic, "*af-inet*", pic_int_value(AF_INET)); pic_define_(pic, "*af-inet*", pic_int_value(AF_INET));
#else #else
pic_define(pic, "*af-inet*", pic_false_value()); pic_define_(pic, "*af-inet*", pic_false_value());
#endif #endif
#ifdef AF_INET6 #ifdef AF_INET6
pic_define(pic, "*af-inet6*", pic_int_value(AF_INET6)); pic_define_(pic, "*af-inet6*", pic_int_value(AF_INET6));
#else #else
pic_define(pic, "*af-inet6*", pic_false_value()); pic_define_(pic, "*af-inet6*", pic_false_value());
#endif #endif
#ifdef AF_UNSPEC #ifdef AF_UNSPEC
pic_define(pic, "*af-unspec*", pic_int_value(AF_UNSPEC)); pic_define_(pic, "*af-unspec*", pic_int_value(AF_UNSPEC));
#else #else
pic_define(pic, "*af-unspec*", pic_false_value()); pic_define_(pic, "*af-unspec*", pic_false_value());
#endif #endif
#ifdef SOCK_STREAM #ifdef SOCK_STREAM
pic_define(pic, "*sock-stream*", pic_int_value(SOCK_STREAM)); pic_define_(pic, "*sock-stream*", pic_int_value(SOCK_STREAM));
#else #else
pic_define(pic, "*sock-stream*", pic_false_value()); pic_define_(pic, "*sock-stream*", pic_false_value());
#endif #endif
#ifdef SOCK_DGRAM #ifdef SOCK_DGRAM
pic_define(pic, "*sock-dgram*", pic_int_value(SOCK_DGRAM)); pic_define_(pic, "*sock-dgram*", pic_int_value(SOCK_DGRAM));
#else #else
pic_define(pic, "*sock-dgram*", pic_false_value()); pic_define_(pic, "*sock-dgram*", pic_false_value());
#endif #endif
#ifdef AI_CANONNAME #ifdef AI_CANONNAME
pic_define(pic, "*ai-canonname*", pic_int_value(AI_CANONNAME)); pic_define_(pic, "*ai-canonname*", pic_int_value(AI_CANONNAME));
#else #else
pic_define(pic, "*ai-canonname*", pic_false_value()); pic_define_(pic, "*ai-canonname*", pic_false_value());
#endif #endif
#ifdef AI_NUMERICHOST #ifdef AI_NUMERICHOST
pic_define(pic, "*ai-numerichost*", pic_int_value(AI_NUMERICHOST)); pic_define_(pic, "*ai-numerichost*", pic_int_value(AI_NUMERICHOST));
#else #else
pic_define(pic, "*ai-numerichost*", pic_false_value()); pic_define_(pic, "*ai-numerichost*", pic_false_value());
#endif #endif
/* AI_V4MAPPED and AI_ALL are not supported by *BSDs, even though they are defined in netdb.h. */ /* AI_V4MAPPED and AI_ALL are not supported by *BSDs, even though they are defined in netdb.h. */
#if defined(AI_V4MAPPED) && !defined(BSD) #if defined(AI_V4MAPPED) && !defined(BSD)
pic_define(pic, "*ai-v4mapped*", pic_int_value(AI_V4MAPPED)); pic_define_(pic, "*ai-v4mapped*", pic_int_value(AI_V4MAPPED));
#else #else
pic_define(pic, "*ai-v4mapped*", pic_false_value()); pic_define_(pic, "*ai-v4mapped*", pic_false_value());
#endif #endif
#if defined(AI_ALL) && !defined(BSD) #if defined(AI_ALL) && !defined(BSD)
pic_define(pic, "*ai-all*", pic_int_value(AI_ALL)); pic_define_(pic, "*ai-all*", pic_int_value(AI_ALL));
#else #else
pic_define(pic, "*ai-all*", pic_false_value()); pic_define_(pic, "*ai-all*", pic_false_value());
#endif #endif
#ifdef AI_ADDRCONFIG #ifdef AI_ADDRCONFIG
pic_define(pic, "*ai-addrconfig*", pic_int_value(AI_ADDRCONFIG)); pic_define_(pic, "*ai-addrconfig*", pic_int_value(AI_ADDRCONFIG));
#else #else
pic_define(pic, "*ai-addrconfig*", pic_false_value()); pic_define_(pic, "*ai-addrconfig*", pic_false_value());
#endif #endif
#ifdef AI_PASSIVE #ifdef AI_PASSIVE
pic_define(pic, "*ai-passive*", pic_int_value(AI_PASSIVE)); pic_define_(pic, "*ai-passive*", pic_int_value(AI_PASSIVE));
#else #else
pic_define(pic, "*ai-passive*", pic_false_value()); pic_define_(pic, "*ai-passive*", pic_false_value());
#endif #endif
#ifdef IPPROTO_IP #ifdef IPPROTO_IP
pic_define(pic, "*ipproto-ip*", pic_int_value(IPPROTO_IP)); pic_define_(pic, "*ipproto-ip*", pic_int_value(IPPROTO_IP));
#else #else
pic_define(pic, "*ipproto-ip*", pic_false_value()); pic_define_(pic, "*ipproto-ip*", pic_false_value());
#endif #endif
#ifdef IPPROTO_TCP #ifdef IPPROTO_TCP
pic_define(pic, "*ipproto-tcp*", pic_int_value(IPPROTO_TCP)); pic_define_(pic, "*ipproto-tcp*", pic_int_value(IPPROTO_TCP));
#else #else
pic_define(pic, "*ipproto-tcp*", pic_false_value()); pic_define_(pic, "*ipproto-tcp*", pic_false_value());
#endif #endif
#ifdef IPPROTO_UDP #ifdef IPPROTO_UDP
pic_define(pic, "*ipproto-udp*", pic_int_value(IPPROTO_UDP)); pic_define_(pic, "*ipproto-udp*", pic_int_value(IPPROTO_UDP));
#else #else
pic_define(pic, "*ipproto-udp*", pic_false_value()); pic_define_(pic, "*ipproto-udp*", pic_false_value());
#endif #endif
#ifdef MSG_PEEK #ifdef MSG_PEEK
pic_define(pic, "*msg-peek*", pic_int_value(MSG_PEEK)); pic_define_(pic, "*msg-peek*", pic_int_value(MSG_PEEK));
#else #else
pic_define(pic, "*msg-peek*", pic_false_value()); pic_define_(pic, "*msg-peek*", pic_false_value());
#endif #endif
#ifdef MSG_OOB #ifdef MSG_OOB
pic_define(pic, "*msg-oob*", pic_int_value(MSG_OOB)); pic_define_(pic, "*msg-oob*", pic_int_value(MSG_OOB));
#else #else
pic_define(pic, "*msg-oob*", pic_false_value()); pic_define_(pic, "*msg-oob*", pic_false_value());
#endif #endif
#ifdef MSG_WAITALL #ifdef MSG_WAITALL
pic_define(pic, "*msg-waitall*", pic_int_value(MSG_WAITALL)); pic_define_(pic, "*msg-waitall*", pic_int_value(MSG_WAITALL));
#else #else
pic_define(pic, "*msg-waitall*", pic_false_value()); pic_define_(pic, "*msg-waitall*", pic_false_value());
#endif #endif
#ifdef SHUT_RD #ifdef SHUT_RD
pic_define(pic, "*shut-rd*", pic_int_value(SHUT_RD)); pic_define_(pic, "*shut-rd*", pic_int_value(SHUT_RD));
#else #else
pic_define(pic, "*shut-rd*", pic_false_value()); pic_define_(pic, "*shut-rd*", pic_false_value());
#endif #endif
#ifdef SHUT_WR #ifdef SHUT_WR
pic_define(pic, "*shut-wr*", pic_int_value(SHUT_WR)); pic_define_(pic, "*shut-wr*", pic_int_value(SHUT_WR));
#else #else
pic_define(pic, "*shut-wr*", pic_false_value()); pic_define_(pic, "*shut-wr*", pic_false_value());
#endif #endif
#ifdef SHUT_RDWR #ifdef SHUT_RDWR
pic_define(pic, "*shut-rdwr*", pic_int_value(SHUT_RDWR)); pic_define_(pic, "*shut-rdwr*", pic_int_value(SHUT_RDWR));
#else #else
pic_define(pic, "*shut-rdwr*", pic_false_value()); pic_define_(pic, "*shut-rdwr*", pic_false_value());
#endif #endif
} }
} }