From f836c4db47939bffd79a6fb281ef9f175667240b Mon Sep 17 00:00:00 2001 From: OGINO Masanori Date: Wed, 24 Jun 2015 18:44:44 +0900 Subject: [PATCH] Correct visibility of symbols in (srfi 106). Signed-off-by: OGINO Masanori --- contrib/40.srfi/src/106.c | 100 +++++++++++++++++++------------------- 1 file changed, 50 insertions(+), 50 deletions(-) diff --git a/contrib/40.srfi/src/106.c b/contrib/40.srfi/src/106.c index c90f5c9a..e31831a2 100644 --- a/contrib/40.srfi/src/106.c +++ b/contrib/40.srfi/src/106.c @@ -400,122 +400,122 @@ void pic_init_socket(pic_state *pic) { pic_deflibrary (pic, "(srfi 106)") { - pic_defun(pic, "socket?", pic_socket_socket_p); - pic_defun(pic, "make-socket", pic_socket_make_socket); - pic_defun(pic, "socket-accept", pic_socket_socket_accept); - pic_defun(pic, "socket-send", pic_socket_socket_send); - pic_defun(pic, "socket-recv", pic_socket_socket_recv); - pic_defun(pic, "socket-shutdown", pic_socket_socket_shutdown); - pic_defun(pic, "socket-close", pic_socket_socket_close); - 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, "call-with-socket", pic_socket_call_with_socket); + pic_defun_(pic, "socket?", pic_socket_socket_p); + pic_defun_(pic, "make-socket", pic_socket_make_socket); + pic_defun_(pic, "socket-accept", pic_socket_socket_accept); + pic_defun_(pic, "socket-send", pic_socket_socket_send); + pic_defun_(pic, "socket-recv", pic_socket_socket_recv); + pic_defun_(pic, "socket-shutdown", pic_socket_socket_shutdown); + pic_defun_(pic, "socket-close", pic_socket_socket_close); + 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, "call-with-socket", pic_socket_call_with_socket); #ifdef AF_INET - pic_define(pic, "*af-inet*", pic_int_value(AF_INET)); + pic_define_(pic, "*af-inet*", pic_int_value(AF_INET)); #else - pic_define(pic, "*af-inet*", pic_false_value()); + pic_define_(pic, "*af-inet*", pic_false_value()); #endif #ifdef AF_INET6 - pic_define(pic, "*af-inet6*", pic_int_value(AF_INET6)); + pic_define_(pic, "*af-inet6*", pic_int_value(AF_INET6)); #else - pic_define(pic, "*af-inet6*", pic_false_value()); + pic_define_(pic, "*af-inet6*", pic_false_value()); #endif #ifdef AF_UNSPEC - pic_define(pic, "*af-unspec*", pic_int_value(AF_UNSPEC)); + pic_define_(pic, "*af-unspec*", pic_int_value(AF_UNSPEC)); #else - pic_define(pic, "*af-unspec*", pic_false_value()); + pic_define_(pic, "*af-unspec*", pic_false_value()); #endif #ifdef SOCK_STREAM - pic_define(pic, "*sock-stream*", pic_int_value(SOCK_STREAM)); + pic_define_(pic, "*sock-stream*", pic_int_value(SOCK_STREAM)); #else - pic_define(pic, "*sock-stream*", pic_false_value()); + pic_define_(pic, "*sock-stream*", pic_false_value()); #endif #ifdef SOCK_DGRAM - pic_define(pic, "*sock-dgram*", pic_int_value(SOCK_DGRAM)); + pic_define_(pic, "*sock-dgram*", pic_int_value(SOCK_DGRAM)); #else - pic_define(pic, "*sock-dgram*", pic_false_value()); + pic_define_(pic, "*sock-dgram*", pic_false_value()); #endif #ifdef AI_CANONNAME - pic_define(pic, "*ai-canonname*", pic_int_value(AI_CANONNAME)); + pic_define_(pic, "*ai-canonname*", pic_int_value(AI_CANONNAME)); #else - pic_define(pic, "*ai-canonname*", pic_false_value()); + pic_define_(pic, "*ai-canonname*", pic_false_value()); #endif #ifdef AI_NUMERICHOST - pic_define(pic, "*ai-numerichost*", pic_int_value(AI_NUMERICHOST)); + pic_define_(pic, "*ai-numerichost*", pic_int_value(AI_NUMERICHOST)); #else - pic_define(pic, "*ai-numerichost*", pic_false_value()); + pic_define_(pic, "*ai-numerichost*", pic_false_value()); #endif /* AI_V4MAPPED and AI_ALL are not supported by *BSDs, even though they are defined in netdb.h. */ #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 - pic_define(pic, "*ai-v4mapped*", pic_false_value()); + pic_define_(pic, "*ai-v4mapped*", pic_false_value()); #endif #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 - pic_define(pic, "*ai-all*", pic_false_value()); + pic_define_(pic, "*ai-all*", pic_false_value()); #endif #ifdef AI_ADDRCONFIG - pic_define(pic, "*ai-addrconfig*", pic_int_value(AI_ADDRCONFIG)); + pic_define_(pic, "*ai-addrconfig*", pic_int_value(AI_ADDRCONFIG)); #else - pic_define(pic, "*ai-addrconfig*", pic_false_value()); + pic_define_(pic, "*ai-addrconfig*", pic_false_value()); #endif #ifdef AI_PASSIVE - pic_define(pic, "*ai-passive*", pic_int_value(AI_PASSIVE)); + pic_define_(pic, "*ai-passive*", pic_int_value(AI_PASSIVE)); #else - pic_define(pic, "*ai-passive*", pic_false_value()); + pic_define_(pic, "*ai-passive*", pic_false_value()); #endif #ifdef IPPROTO_IP - pic_define(pic, "*ipproto-ip*", pic_int_value(IPPROTO_IP)); + pic_define_(pic, "*ipproto-ip*", pic_int_value(IPPROTO_IP)); #else - pic_define(pic, "*ipproto-ip*", pic_false_value()); + pic_define_(pic, "*ipproto-ip*", pic_false_value()); #endif #ifdef IPPROTO_TCP - pic_define(pic, "*ipproto-tcp*", pic_int_value(IPPROTO_TCP)); + pic_define_(pic, "*ipproto-tcp*", pic_int_value(IPPROTO_TCP)); #else - pic_define(pic, "*ipproto-tcp*", pic_false_value()); + pic_define_(pic, "*ipproto-tcp*", pic_false_value()); #endif #ifdef IPPROTO_UDP - pic_define(pic, "*ipproto-udp*", pic_int_value(IPPROTO_UDP)); + pic_define_(pic, "*ipproto-udp*", pic_int_value(IPPROTO_UDP)); #else - pic_define(pic, "*ipproto-udp*", pic_false_value()); + pic_define_(pic, "*ipproto-udp*", pic_false_value()); #endif #ifdef MSG_PEEK - pic_define(pic, "*msg-peek*", pic_int_value(MSG_PEEK)); + pic_define_(pic, "*msg-peek*", pic_int_value(MSG_PEEK)); #else - pic_define(pic, "*msg-peek*", pic_false_value()); + pic_define_(pic, "*msg-peek*", pic_false_value()); #endif #ifdef MSG_OOB - pic_define(pic, "*msg-oob*", pic_int_value(MSG_OOB)); + pic_define_(pic, "*msg-oob*", pic_int_value(MSG_OOB)); #else - pic_define(pic, "*msg-oob*", pic_false_value()); + pic_define_(pic, "*msg-oob*", pic_false_value()); #endif #ifdef MSG_WAITALL - pic_define(pic, "*msg-waitall*", pic_int_value(MSG_WAITALL)); + pic_define_(pic, "*msg-waitall*", pic_int_value(MSG_WAITALL)); #else - pic_define(pic, "*msg-waitall*", pic_false_value()); + pic_define_(pic, "*msg-waitall*", pic_false_value()); #endif #ifdef SHUT_RD - pic_define(pic, "*shut-rd*", pic_int_value(SHUT_RD)); + pic_define_(pic, "*shut-rd*", pic_int_value(SHUT_RD)); #else - pic_define(pic, "*shut-rd*", pic_false_value()); + pic_define_(pic, "*shut-rd*", pic_false_value()); #endif #ifdef SHUT_WR - pic_define(pic, "*shut-wr*", pic_int_value(SHUT_WR)); + pic_define_(pic, "*shut-wr*", pic_int_value(SHUT_WR)); #else - pic_define(pic, "*shut-wr*", pic_false_value()); + pic_define_(pic, "*shut-wr*", pic_false_value()); #endif #ifdef SHUT_RDWR - pic_define(pic, "*shut-rdwr*", pic_int_value(SHUT_RDWR)); + pic_define_(pic, "*shut-rdwr*", pic_int_value(SHUT_RDWR)); #else - pic_define(pic, "*shut-rdwr*", pic_false_value()); + pic_define_(pic, "*shut-rdwr*", pic_false_value()); #endif } }