%
% (c) The GRASP/AQUA Project, Glasgow University, 1995
%
\subsection[createSocket.lc]{Create a socket file descriptor}

\begin{code}

#include "rtsdefs.h"
#include "stgio.h"

#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif

#ifdef HAVE_SYS_SOCKET_H
#include <sys/socket.h>
#endif

StgInt
createSocket(I_ family, I_ type, I_ protocol)
{
    int fd;

    if ((fd = socket((int)family, (int)type, (int)protocol)) < 0) {
      if (errno != EINTR) {
	  cvtErrno();
	  switch (ghc_errno) {
	  default:
	      stdErrno();
	      break;
	  case GHC_EACCES:
	      ghc_errtype = ERR_PERMISSIONDENIED;
	      ghc_errstr  = "cannot create socket";
	      break;
	  case GHC_EMFILE:
	      ghc_errtype = ERR_RESOURCEEXHAUSTED;
	      ghc_errstr  = "Too many open files";
	      break;
	  case GHC_ENFILE:
	      ghc_errtype = ERR_RESOURCEEXHAUSTED;
	      ghc_errstr  = "System file table overflow";
	      break;
	  case GHC_EPROTONOSUPPORT:
	      ghc_errtype = ERR_UNSUPPORTEDOPERATION;
	      ghc_errstr  = "Protocol type not supported";
	      break;
	  case GHC_EPROTOTYPE:
	      ghc_errtype = ERR_INAPPROPRIATETYPE;
	      ghc_errstr  = "Protocol wrong type for socket";
	      break;
	  }
	  return (StgInt)-1;
      }
    }
    return (StgInt)fd;
}

\end{code}