[project @ 1999-11-26 16:29:09 by simonmar]

[ghc-hetmet.git] / ghc / lib / misc / cbits / selectFrom.c

diff --git a/ghc/lib/misc/cbits/selectFrom.c b/ghc/lib/misc/cbits/selectFrom.c
deleted file mode 100644 (file)
index 55e6516..0000000
--- a/ghc/lib/misc/cbits/selectFrom.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/*
- * (c) sof, 1999
- *
- * Stubs to help implement Select module.
- */
-
-/* we're outside the realms of POSIX here... */
-#define NON_POSIX_SOURCE
-
-#include "Rts.h"
-#include "selectFrom.h"
-#include "stgio.h"
-
-# if defined(HAVE_SYS_TYPES_H)
-#  include <sys/types.h>
-# endif
-
-# ifdef HAVE_SYS_TIME_H
-#  include <sys/time.h>
-# endif
-
-
-/* Helpers for the Haskell-side unmarshalling */
-
-int
-sizeof_fd_set__()
-{
- return (sizeof(fd_set));
-}
-
-void
-fd_zero__(StgByteArray a)
-{
-  FD_ZERO((fd_set*)a);
-}
-
-void
-fd_set__(StgByteArray a, StgInt fd)
-{
-  FD_SET(fd,(fd_set*)a);
-}
-
-int
-is_fd_set__(StgByteArray a, StgInt fd)
-{
-  return FD_ISSET(fd,(fd_set*)a);
-}
-
-StgInt
-selectFrom__( StgByteArray rfd
-            , StgByteArray wfd
-           , StgByteArray efd
-           , StgInt mFd
-           , StgInt tout
-           )
-{
- int rc, i;
- struct timeval tv;
-
- if (tout != (-1)) {
-   tv.tv_sec = tout / 1000000;
-   tv.tv_usec = tout % 1000000;
- }
-
- while ((rc = select(mFd, (fd_set*)rfd, (fd_set*)wfd, (fd_set*)efd, (tout == -1 ? NULL : &tv))) < 0) {
-      if (errno != EINTR) {
-       break;
-      }
- }
- return 0;
-}
-