diff options
| author | sof <unknown> | 1999-05-05 10:33:17 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-05-05 10:33:17 +0000 |
| commit | e548e8aa01501daa9ac475af7e8318ff888dc2da (patch) | |
| tree | e083d122c6fca781a4160a4dd12566b5ee59c1c6 /ghc/lib/std/cbits/filePutc.c | |
| parent | bdfb8e754737017c7f4a65d71464cb8878b65f10 (diff) | |
| download | haskell-e548e8aa01501daa9ac475af7e8318ff888dc2da.tar.gz | |
[project @ 1999-05-05 10:33:13 by sof]
Winsock support
Diffstat (limited to 'ghc/lib/std/cbits/filePutc.c')
| -rw-r--r-- | ghc/lib/std/cbits/filePutc.c | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/ghc/lib/std/cbits/filePutc.c b/ghc/lib/std/cbits/filePutc.c index 6c0e999c9f..e6234eea01 100644 --- a/ghc/lib/std/cbits/filePutc.c +++ b/ghc/lib/std/cbits/filePutc.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: filePutc.c,v 1.4 1999/01/12 10:53:02 sewardj Exp $ + * $Id: filePutc.c,v 1.5 1999/05/05 10:33:15 sof Exp $ * * hPutChar Runtime Support */ @@ -10,6 +10,10 @@ #include "stgio.h" #include "error.h" +#ifdef HAVE_WINSOCK_H +#include <winsock.h> +#endif + #define TERMINATE_LINE(x) ((x) == '\n') StgInt @@ -74,8 +78,14 @@ StgChar c; return FILEOBJ_BLOCKED_WRITE; /* Unbuffered, write the character directly. */ - while ((rc = write(fo->fd, &c, 1)) == 0 && errno == EINTR) ; - + while ((rc = ( +#ifdef HAVE_WINSOCK_H + fo->flags & FILEOBJ_WINSOCK ? + send(fo->fd, &c, 1, 0) : + write(fo->fd, &c, 1))) == 0 && errno == EINTR) ; +#else + write(fo->fd, &c, 1))) == 0 && errno == EINTR) ; +#endif if (rc == 0) { cvtErrno(); stdErrno(); |