1ded2d6917573ea6bd8054299639beacaeaba23a
[ghc-hetmet.git] / ghc / lib / misc / cbits / acceptSocket.c
1 #if 0
2 %
3 % (c) The GRASP/AQUA Project, Glasgow University, 1996
4 %
5 \subsection[acceptSocket.lc]{Server wait for client to connect}
6
7 \begin{code}
8 #endif
9
10 #define NON_POSIX_SOURCE
11 #include "rtsdefs.h"
12 #include "ghcSockets.h"
13
14 StgInt
15 acceptSocket(I_ sockfd, A_ peer, A_ addrlen)
16 {
17     StgInt fd;
18     
19     while ((fd = accept((int)sockfd, (struct sockaddr *)peer, (int *)addrlen)) < 0) {
20       if (errno != EINTR) {
21           cvtErrno();
22           stdErrno();
23           return -1;
24       }
25     }
26     return fd;
27 }