suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use closesocket() etc. for scheme_close_socket_fd()

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-30 14:34:47 -06:00
parent 468bfc5437
commit 5978717fa3
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/racket/src/network.c
View File

@ -2514,32 +2514,32 @@ void scheme_socket_to_ports(intptr_t s, const char *name, int takeover,
}
intptr_t scheme_dup_socket(intptr_t fd) {
#ifdef USE_WINSOCK_TCP
#ifdef USE_SOCKETS_TCP
# ifdef USE_WINSOCK_TCP
intptr_t nsocket;
WSAPROTOCOL_INFO protocolInfo;
WSADuplicateSocket(fd, GetCurrentProcessId(), &protocolInfo);
nsocket = WSASocket(FROM_PROTOCOL_INFO, FROM_PROTOCOL_INFO, FROM_PROTOCOL_INFO, &protocolInfo, 0, WSA_FLAG_OVERLAPPED);
REGISTER_SOCKET(nsocket);
return nsocket;
#else
# else
intptr_t nfd;
do {
nfd = dup(fd);
} while (nfd == -1 && errno == EINTR);
return nfd;
# endif
#else
return -1;
#endif
}
void scheme_close_socket_fd(intptr_t fd) {
# ifdef USE_WINSOCK_TCP
close(fd);
# else
{
intptr_t rc;
do {
rc = close(fd);
} while (rc == -1 && errno == EINTR);
}
# endif
void scheme_close_socket_fd(intptr_t fd)
{
#ifdef USE_SOCKETS_TCP
UNREGISTER_SOCKET(fd);
closesocket(fd);
#endif
}
/*========================================================================*/