summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c82
1 files changed, 41 insertions, 41 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index 4e4aedab1..811aef925 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -85,7 +85,7 @@ SCM_DEFINE (scm_htons, "htons", 1, 0, 0,
if (c_in != SCM_INUM (value))
SCM_OUT_OF_RANGE (1, value);
- return SCM_MAKINUM (htons (c_in));
+ return SCM_I_MAKINUM (htons (c_in));
}
#undef FUNC_NAME
@@ -102,7 +102,7 @@ SCM_DEFINE (scm_ntohs, "ntohs", 1, 0, 0,
if (c_in != SCM_INUM (value))
SCM_OUT_OF_RANGE (1, value);
- return SCM_MAKINUM (ntohs (c_in));
+ return SCM_I_MAKINUM (ntohs (c_in));
}
#undef FUNC_NAME
@@ -590,7 +590,7 @@ SCM_DEFINE (scm_getsockopt, "getsockopt", 3, 0, 0,
scm_long2num (ling->l_linger));
#else
return scm_cons (scm_long2num (*(int *) optval),
- SCM_MAKINUM (0));
+ SCM_I_MAKINUM (0));
#endif
}
else
@@ -847,7 +847,7 @@ scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg,
}
#endif
default:
- scm_out_of_range (proc, SCM_MAKINUM (fam));
+ scm_out_of_range (proc, SCM_I_MAKINUM (fam));
}
}
#undef FUNC_NAME
@@ -1038,7 +1038,7 @@ scm_addr_vector (const struct sockaddr *address, int addr_size,
#endif
default:
scm_misc_error (proc, "Unrecognised address family: ~A",
- scm_list_1 (SCM_MAKINUM (fam)));
+ scm_list_1 (SCM_I_MAKINUM (fam)));
}
return result;
}
@@ -1175,7 +1175,7 @@ SCM_DEFINE (scm_recv, "recv!", 2, 1, 0,
if (rv == -1)
SCM_SYSERROR;
- return SCM_MAKINUM (rv);
+ return SCM_I_MAKINUM (rv);
}
#undef FUNC_NAME
@@ -1208,7 +1208,7 @@ SCM_DEFINE (scm_send, "send", 2, 1, 0,
SCM_SYSCALL (rv = send (fd, SCM_STRING_CHARS (message), SCM_STRING_LENGTH (message), flg));
if (rv == -1)
SCM_SYSERROR;
- return SCM_MAKINUM (rv);
+ return SCM_I_MAKINUM (rv);
}
#undef FUNC_NAME
@@ -1268,7 +1268,7 @@ SCM_DEFINE (scm_recvfrom, "recvfrom!", 2, 3, 0,
else
address = SCM_BOOL_F;
- return scm_cons (SCM_MAKINUM (rv), address);
+ return scm_cons (SCM_I_MAKINUM (rv), address);
}
#undef FUNC_NAME
@@ -1324,7 +1324,7 @@ SCM_DEFINE (scm_sendto, "sendto", 4, 0, 1,
SCM_SYSERROR;
}
free (soka);
- return SCM_MAKINUM (rv);
+ return SCM_I_MAKINUM (rv);
}
#undef FUNC_NAME
@@ -1335,29 +1335,29 @@ scm_init_socket ()
{
/* protocol families. */
#ifdef AF_UNSPEC
- scm_c_define ("AF_UNSPEC", SCM_MAKINUM (AF_UNSPEC));
+ scm_c_define ("AF_UNSPEC", SCM_I_MAKINUM (AF_UNSPEC));
#endif
#ifdef AF_UNIX
- scm_c_define ("AF_UNIX", SCM_MAKINUM (AF_UNIX));
+ scm_c_define ("AF_UNIX", SCM_I_MAKINUM (AF_UNIX));
#endif
#ifdef AF_INET
- scm_c_define ("AF_INET", SCM_MAKINUM (AF_INET));
+ scm_c_define ("AF_INET", SCM_I_MAKINUM (AF_INET));
#endif
#ifdef AF_INET6
- scm_c_define ("AF_INET6", SCM_MAKINUM (AF_INET6));
+ scm_c_define ("AF_INET6", SCM_I_MAKINUM (AF_INET6));
#endif
#ifdef PF_UNSPEC
- scm_c_define ("PF_UNSPEC", SCM_MAKINUM (PF_UNSPEC));
+ scm_c_define ("PF_UNSPEC", SCM_I_MAKINUM (PF_UNSPEC));
#endif
#ifdef PF_UNIX
- scm_c_define ("PF_UNIX", SCM_MAKINUM (PF_UNIX));
+ scm_c_define ("PF_UNIX", SCM_I_MAKINUM (PF_UNIX));
#endif
#ifdef PF_INET
- scm_c_define ("PF_INET", SCM_MAKINUM (PF_INET));
+ scm_c_define ("PF_INET", SCM_I_MAKINUM (PF_INET));
#endif
#ifdef PF_INET6
- scm_c_define ("PF_INET6", SCM_MAKINUM (PF_INET6));
+ scm_c_define ("PF_INET6", SCM_I_MAKINUM (PF_INET6));
#endif
/* standard addresses. */
@@ -1376,82 +1376,82 @@ scm_init_socket ()
/* socket types. */
#ifdef SOCK_STREAM
- scm_c_define ("SOCK_STREAM", SCM_MAKINUM (SOCK_STREAM));
+ scm_c_define ("SOCK_STREAM", SCM_I_MAKINUM (SOCK_STREAM));
#endif
#ifdef SOCK_DGRAM
- scm_c_define ("SOCK_DGRAM", SCM_MAKINUM (SOCK_DGRAM));
+ scm_c_define ("SOCK_DGRAM", SCM_I_MAKINUM (SOCK_DGRAM));
#endif
#ifdef SOCK_RAW
- scm_c_define ("SOCK_RAW", SCM_MAKINUM (SOCK_RAW));
+ scm_c_define ("SOCK_RAW", SCM_I_MAKINUM (SOCK_RAW));
#endif
/* setsockopt level. */
#ifdef SOL_SOCKET
- scm_c_define ("SOL_SOCKET", SCM_MAKINUM (SOL_SOCKET));
+ scm_c_define ("SOL_SOCKET", SCM_I_MAKINUM (SOL_SOCKET));
#endif
#ifdef SOL_IP
- scm_c_define ("SOL_IP", SCM_MAKINUM (SOL_IP));
+ scm_c_define ("SOL_IP", SCM_I_MAKINUM (SOL_IP));
#endif
#ifdef SOL_TCP
- scm_c_define ("SOL_TCP", SCM_MAKINUM (SOL_TCP));
+ scm_c_define ("SOL_TCP", SCM_I_MAKINUM (SOL_TCP));
#endif
#ifdef SOL_UDP
- scm_c_define ("SOL_UDP", SCM_MAKINUM (SOL_UDP));
+ scm_c_define ("SOL_UDP", SCM_I_MAKINUM (SOL_UDP));
#endif
/* setsockopt names. */
#ifdef SO_DEBUG
- scm_c_define ("SO_DEBUG", SCM_MAKINUM (SO_DEBUG));
+ scm_c_define ("SO_DEBUG", SCM_I_MAKINUM (SO_DEBUG));
#endif
#ifdef SO_REUSEADDR
- scm_c_define ("SO_REUSEADDR", SCM_MAKINUM (SO_REUSEADDR));
+ scm_c_define ("SO_REUSEADDR", SCM_I_MAKINUM (SO_REUSEADDR));
#endif
#ifdef SO_STYLE
- scm_c_define ("SO_STYLE", SCM_MAKINUM (SO_STYLE));
+ scm_c_define ("SO_STYLE", SCM_I_MAKINUM (SO_STYLE));
#endif
#ifdef SO_TYPE
- scm_c_define ("SO_TYPE", SCM_MAKINUM (SO_TYPE));
+ scm_c_define ("SO_TYPE", SCM_I_MAKINUM (SO_TYPE));
#endif
#ifdef SO_ERROR
- scm_c_define ("SO_ERROR", SCM_MAKINUM (SO_ERROR));
+ scm_c_define ("SO_ERROR", SCM_I_MAKINUM (SO_ERROR));
#endif
#ifdef SO_DONTROUTE
- scm_c_define ("SO_DONTROUTE", SCM_MAKINUM (SO_DONTROUTE));
+ scm_c_define ("SO_DONTROUTE", SCM_I_MAKINUM (SO_DONTROUTE));
#endif
#ifdef SO_BROADCAST
- scm_c_define ("SO_BROADCAST", SCM_MAKINUM (SO_BROADCAST));
+ scm_c_define ("SO_BROADCAST", SCM_I_MAKINUM (SO_BROADCAST));
#endif
#ifdef SO_SNDBUF
- scm_c_define ("SO_SNDBUF", SCM_MAKINUM (SO_SNDBUF));
+ scm_c_define ("SO_SNDBUF", SCM_I_MAKINUM (SO_SNDBUF));
#endif
#ifdef SO_RCVBUF
- scm_c_define ("SO_RCVBUF", SCM_MAKINUM (SO_RCVBUF));
+ scm_c_define ("SO_RCVBUF", SCM_I_MAKINUM (SO_RCVBUF));
#endif
#ifdef SO_KEEPALIVE
- scm_c_define ("SO_KEEPALIVE", SCM_MAKINUM (SO_KEEPALIVE));
+ scm_c_define ("SO_KEEPALIVE", SCM_I_MAKINUM (SO_KEEPALIVE));
#endif
#ifdef SO_OOBINLINE
- scm_c_define ("SO_OOBINLINE", SCM_MAKINUM (SO_OOBINLINE));
+ scm_c_define ("SO_OOBINLINE", SCM_I_MAKINUM (SO_OOBINLINE));
#endif
#ifdef SO_NO_CHECK
- scm_c_define ("SO_NO_CHECK", SCM_MAKINUM (SO_NO_CHECK));
+ scm_c_define ("SO_NO_CHECK", SCM_I_MAKINUM (SO_NO_CHECK));
#endif
#ifdef SO_PRIORITY
- scm_c_define ("SO_PRIORITY", SCM_MAKINUM (SO_PRIORITY));
+ scm_c_define ("SO_PRIORITY", SCM_I_MAKINUM (SO_PRIORITY));
#endif
#ifdef SO_LINGER
- scm_c_define ("SO_LINGER", SCM_MAKINUM (SO_LINGER));
+ scm_c_define ("SO_LINGER", SCM_I_MAKINUM (SO_LINGER));
#endif
/* recv/send options. */
#ifdef MSG_OOB
- scm_c_define ("MSG_OOB", SCM_MAKINUM (MSG_OOB));
+ scm_c_define ("MSG_OOB", SCM_I_MAKINUM (MSG_OOB));
#endif
#ifdef MSG_PEEK
- scm_c_define ("MSG_PEEK", SCM_MAKINUM (MSG_PEEK));
+ scm_c_define ("MSG_PEEK", SCM_I_MAKINUM (MSG_PEEK));
#endif
#ifdef MSG_DONTROUTE
- scm_c_define ("MSG_DONTROUTE", SCM_MAKINUM (MSG_DONTROUTE));
+ scm_c_define ("MSG_DONTROUTE", SCM_I_MAKINUM (MSG_DONTROUTE));
#endif
#ifdef __MINGW32__