38d4e6bb90a8b16e98b17a3a3511a8a1b98c4cfc
[ghc-hetmet.git] / ghc / lib / misc / cbits / listenSocket.c
1 #if 0
2 %
3 % (c) The GRASP/AQUA Project, Glasgow University, 1996
4 %
5 \subsection[listenSocket.lc]{Indicate willingness to receive connections}
6
7 \begin{code}
8 #endif
9
10 #define NON_POSIX_SOURCE
11 #include "rtsdefs.h"
12 #include "ghcSockets.h"
13
14 StgInt
15 listenSocket(I_ sockfd, I_ backlog)
16 {
17     int rc;
18     
19     while ((rc = listen((int) sockfd, (int) backlog)) < 0) {
20       if (errno != EINTR) {
21           cvtErrno();
22           stdErrno();
23           return -1;
24       }
25     }
26     return 0;
27 }