diff options
| author | simonmar <unknown> | 1999-11-26 16:29:44 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-11-26 16:29:44 +0000 |
| commit | 7700dda03d273676b274bc148491a4e02a7c5ae0 (patch) | |
| tree | 09de9743e3b9f9c7a4108660230969ce893947df /ghc/lib/misc/cbits/initWinSock.c | |
| parent | ef33ed94129ee17b577add392e04619ec1f53800 (diff) | |
| download | haskell-7700dda03d273676b274bc148491a4e02a7c5ae0.tar.gz | |
[project @ 1999-11-26 16:29:09 by simonmar]
GHC bits for new library organisation.
Diffstat (limited to 'ghc/lib/misc/cbits/initWinSock.c')
| -rw-r--r-- | ghc/lib/misc/cbits/initWinSock.c | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/ghc/lib/misc/cbits/initWinSock.c b/ghc/lib/misc/cbits/initWinSock.c deleted file mode 100644 index 672a098e97..0000000000 --- a/ghc/lib/misc/cbits/initWinSock.c +++ /dev/null @@ -1,59 +0,0 @@ - -#define NON_POSIX_SOURCE -#include "Rts.h" -#include "ghcSockets.h" -#include "stgio.h" - - -#if defined(HAVE_WINSOCK_H) && !defined(__CYGWIN__) && !defined(__CYGWIN32__) -#define USE_WINSOCK -#endif - -#ifdef USE_WINSOCK - -static int winsock_inited = 0; -static int winsock_uninited = 0; - -/* Initialising WinSock... */ -StgInt -initWinSock () -{ - WORD wVersionRequested; - WSADATA wsaData; - int err; - - if (!winsock_inited) { - wVersionRequested = MAKEWORD( 1, 1 ); - - err = WSAStartup ( wVersionRequested, &wsaData ); - - if ( err != 0 ) { - return err; - } - - if ( LOBYTE( wsaData.wVersion ) != 1 || - HIBYTE( wsaData.wVersion ) != 1 ) { - WSACleanup(); - return (-1); - } - winsock_inited = 1; - } - return 0; -} - -static void -shutdownHandler() -{ - WSACleanup(); -} - -void -shutdownWinSock() -{ - if (!winsock_uninited) { - atexit(shutdownHandler); - winsock_uninited = 1; - } -} - -#endif |