diff options
Diffstat (limited to 'ghc/lib/misc/cbits/createSocket.c')
| -rw-r--r-- | ghc/lib/misc/cbits/createSocket.c | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/ghc/lib/misc/cbits/createSocket.c b/ghc/lib/misc/cbits/createSocket.c new file mode 100644 index 0000000000..ccab6887da --- /dev/null +++ b/ghc/lib/misc/cbits/createSocket.c @@ -0,0 +1,51 @@ +#if 0 +% +% (c) The GRASP/AQUA Project, Glasgow University, 1995 +% +\subsection[createSocket.lc]{Create a socket file descriptor} + +\begin{code} +#endif + +#define NON_POSIX_SOURCE +#include "rtsdefs.h" +#include "ghcSockets.h" + +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; +} |