ghc/lib/misc/cbits/connectSocket.c

   1 #if 0
   2 %
   3 % (c) The GRASP/AQUA Project, Glasgow University, 1995
   4 %
   5 \subsection[connectSocket.lc]{Assign name to client socket}
   6
   7 \begin{code}
   8 #endif
   9
  10 #define NON_POSIX_SOURCE
  11 #include "rtsdefs.h"
  12 #include "ghcSockets.h"
  13
  14 StgInt
  15 connectSocket(sockfd, servaddr, addrlen, isUnixDomain)
  16 StgInt  sockfd;
  17 StgAddr servaddr;
  18 StgInt  addrlen;
  19 StgInt isUnixDomain;
  20 {
  21     int rc;
  22
  23     while ((rc = connect((int)sockfd, (struct sockaddr *)servaddr, (int)addrlen)) < 0) {
  24       if (errno != EINTR) {
  25           cvtErrno();
  26           stdErrno();
  27           return -1;
  28       }
  29     }
  30     return 0;
  31 }