Mercurial > hg > octave-nkf > gnulib-hg

annotate lib/select.c @ 12319:02b65a16c35d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
build: avoid compiler warnings Silence some warnings found on mingw. * lib/select.c (rpl_select): Delete unused variable. * lib/setsockopt.c (rpl_setsockopt): Avoid incompatible pointer. Signed-off-by: Eric Blake <ebb9@byu.net>
author Eric Blake <ebb9@byu.net>
date Wed, 18 Nov 2009 21:46:35 -0700 (2009-11-19)
parents c9032834d889
children e8d2c6fc33ad
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Emulation for select(2)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
2 Contributed by Paolo Bonzini.
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3
11398
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
4 Copyright 2008-2009 Free Software Foundation, Inc.
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 This file is part of gnulib.
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8 This program is free software; you can redistribute it and/or modify
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 any later version.
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13 This program is distributed in the hope that it will be useful,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16 GNU General Public License for more details.
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License along
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19 with this program; if not, write to the Free Software Foundation,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22 #include <config.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23 #include <alloca.h>
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
24 #include <assert.h>
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
11398
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
27 /* Native Win32. */
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
28
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
29 #include <sys/types.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
30 #include <stdbool.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
31 #include <errno.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
32 #include <limits.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
33
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
34 #include <winsock2.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
35 #include <windows.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
36 #include <io.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
37 #include <stdio.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38 #include <conio.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39 #include <time.h>
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41 struct bitset {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 unsigned char in[FD_SETSIZE / CHAR_BIT];
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43 unsigned char out[FD_SETSIZE / CHAR_BIT];
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44 };
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
45
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
46 /* Declare data structures for ntdll functions. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
47 typedef struct _FILE_PIPE_LOCAL_INFORMATION {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
48 ULONG NamedPipeType;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
49 ULONG NamedPipeConfiguration;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
50 ULONG MaximumInstances;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
51 ULONG CurrentInstances;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
52 ULONG InboundQuota;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53 ULONG ReadDataAvailable;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
54 ULONG OutboundQuota;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
55 ULONG WriteQuotaAvailable;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
56 ULONG NamedPipeState;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57 ULONG NamedPipeEnd;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
58 } FILE_PIPE_LOCAL_INFORMATION, *PFILE_PIPE_LOCAL_INFORMATION;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
59
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
60 typedef struct _IO_STATUS_BLOCK
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
61 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
62 union {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
63 DWORD Status;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
64 PVOID Pointer;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
65 } u;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
66 ULONG_PTR Information;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
67 } IO_STATUS_BLOCK, *PIO_STATUS_BLOCK;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
68
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
69 typedef enum _FILE_INFORMATION_CLASS {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
70 FilePipeLocalInformation = 24
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
71 } FILE_INFORMATION_CLASS, *PFILE_INFORMATION_CLASS;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
72
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
73 typedef DWORD (WINAPI *PNtQueryInformationFile)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
74 (HANDLE, IO_STATUS_BLOCK *, VOID *, ULONG, FILE_INFORMATION_CLASS);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
75
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
76 #ifndef PIPE_BUF
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
77 #define PIPE_BUF 512
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
78 #endif
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
79
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
80 #define IsConsoleHandle(h) (((long) (h) & 3) == 3)
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
81
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
82 static BOOL
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
83 IsSocketHandle(HANDLE h)
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
84 {
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
85 WSANETWORKEVENTS ev;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
86
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
87 if (IsConsoleHandle (h))
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
88 return FALSE;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
89
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
90 /* Under Wine, it seems that getsockopt returns 0 for pipes too.
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
91 WSAEnumNetworkEvents instead distinguishes the two correctly. */
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
92 ev.lNetworkEvents = 0xDEADBEEF;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
93 WSAEnumNetworkEvents ((SOCKET) h, NULL, &ev);
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
94 return ev.lNetworkEvents != 0xDEADBEEF;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
95 }
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
96
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
97 /* Compute output fd_sets for libc descriptor FD (whose Win32 handle is H). */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
98
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
99 static int
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
100 win32_poll_handle (HANDLE h, int fd, struct bitset *rbits, struct bitset *wbits,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
101 struct bitset *xbits)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
102 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
103 BOOL read, write, except;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
104 int i, ret;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
105 INPUT_RECORD *irbuffer;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
106 DWORD avail, nbuffer;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
107 BOOL bRet;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
108 IO_STATUS_BLOCK iosb;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
109 FILE_PIPE_LOCAL_INFORMATION fpli;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
110 static PNtQueryInformationFile NtQueryInformationFile;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
111 static BOOL once_only;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
112
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
113 read = write = except = FALSE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
114 switch (GetFileType (h))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
115 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
116 case FILE_TYPE_DISK:
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
117 read = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
118 write = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
119 break;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
120
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
121 case FILE_TYPE_PIPE:
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
122 if (!once_only)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
123 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
124 NtQueryInformationFile = (PNtQueryInformationFile)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
125 GetProcAddress (GetModuleHandle ("ntdll.dll"),
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
126 "NtQueryInformationFile");
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
127 once_only = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
128 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
129
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
130 if (PeekNamedPipe (h, NULL, 0, NULL, &avail, NULL) != 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
131 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
132 if (avail)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
133 read = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
134 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
135
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
136 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
137 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
138 /* It was the write-end of the pipe. Check if it is writable.
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
139 If NtQueryInformationFile fails, optimistically assume the pipe is
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
140 writable. This could happen on Win9x, where NtQueryInformationFile
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
141 is not available, or if we inherit a pipe that doesn't permit
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
142 FILE_READ_ATTRIBUTES access on the write end (I think this should
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
143 not happen since WinXP SP2; WINE seems fine too). Otherwise,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
144 ensure that enough space is available for atomic writes. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
145 memset (&iosb, 0, sizeof (iosb));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
146 memset (&fpli, 0, sizeof (fpli));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
147
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
148 if (!NtQueryInformationFile
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
149 || NtQueryInformationFile (h, &iosb, &fpli, sizeof (fpli),
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
150 FilePipeLocalInformation)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
151 || fpli.WriteQuotaAvailable >= PIPE_BUF
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
152 || (fpli.OutboundQuota < PIPE_BUF &&
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
153 fpli.WriteQuotaAvailable == fpli.OutboundQuota))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
154 write = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
155 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
156 break;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
157
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
158 case FILE_TYPE_CHAR:
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
159 write = TRUE;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
160 if (!(rbits->in[fd / CHAR_BIT] & (1 << (fd & (CHAR_BIT - 1)))))
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
161 break;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
162
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
163 ret = WaitForSingleObject (h, 0);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
164 if (ret == WAIT_OBJECT_0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
165 {
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
166 if (!IsConsoleHandle (h))
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
167 {
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
168 read = TRUE;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
169 break;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
170 }
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
171
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
172 nbuffer = avail = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
173 bRet = GetNumberOfConsoleInputEvents (h, &nbuffer);
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
174
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
175 /* Screen buffers handles are filtered earlier. */
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
176 assert (bRet);
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
177 if (nbuffer == 0)
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
178 {
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
179 except = TRUE;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
180 break;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
181 }
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
182
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
183 irbuffer = (INPUT_RECORD *) alloca (nbuffer * sizeof (INPUT_RECORD));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
184 bRet = PeekConsoleInput (h, irbuffer, nbuffer, &avail);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
185 if (!bRet || avail == 0)
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
186 {
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
187 except = TRUE;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
188 break;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
189 }
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
190
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
191 for (i = 0; i < avail; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
192 if (irbuffer[i].EventType == KEY_EVENT)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
193 read = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
194 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
195 break;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
196
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
197 default:
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
198 ret = WaitForSingleObject (h, 0);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
199 write = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
200 if (ret == WAIT_OBJECT_0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
201 read = TRUE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
202
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
203 break;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
204 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
205
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
206 ret = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
207 if (read && (rbits->in[fd / CHAR_BIT] & (1 << (fd & (CHAR_BIT - 1)))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
208 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
209 rbits->out[fd / CHAR_BIT] |= (1 << (fd & (CHAR_BIT - 1)));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
210 ret++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
211 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
212
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
213 if (write && (wbits->in[fd / CHAR_BIT] & (1 << (fd & (CHAR_BIT - 1)))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
214 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
215 wbits->out[fd / CHAR_BIT] |= (1 << (fd & (CHAR_BIT - 1)));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
216 ret++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
217 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
218
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
219 if (except && (xbits->in[fd / CHAR_BIT] & (1 << (fd & (CHAR_BIT - 1)))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
220 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
221 xbits->out[fd / CHAR_BIT] |= (1 << (fd & (CHAR_BIT - 1)));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
222 ret++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
223 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
224
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
225 return ret;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
226 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
227
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
228 int
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
229 rpl_select (int nfds, fd_set *rfds, fd_set *wfds, fd_set *xfds,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
230 struct timeval *timeout)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
231 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
232 static struct timeval tv0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
233 static HANDLE hEvent;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
234 HANDLE h, handle_array[FD_SETSIZE + 2];
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
235 fd_set handle_rfds, handle_wfds, handle_xfds;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
236 struct bitset rbits, wbits, xbits;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
237 unsigned char anyfds_in[FD_SETSIZE / CHAR_BIT];
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
238 DWORD ret, wait_timeout, nhandles, nsock, nbuffer;
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
239 MSG msg;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
240 int i, fd, rc;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
241
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
242 if (nfds > FD_SETSIZE)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
243 nfds = FD_SETSIZE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
244
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
245 if (!timeout)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
246 wait_timeout = INFINITE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
247 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
248 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
249 wait_timeout = timeout->tv_sec + timeout->tv_usec / 1000;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
250
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
251 /* select is also used as a portable usleep. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
252 if (!rfds && !wfds && !xfds)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
253 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
254 Sleep (wait_timeout);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
255 return 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
256 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
257 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
258
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
259 if (!hEvent)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
260 hEvent = CreateEvent (NULL, FALSE, FALSE, NULL);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
261
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
262 handle_array[0] = hEvent;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
263 nhandles = 1;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
264 nsock = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
265
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
266 /* Copy descriptors to bitsets. At the same time, eliminate
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
267 bits in the "wrong" direction for console input buffers
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
268 and screen buffers, because screen buffers are waitable
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
269 and they will block until a character is available. */
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
270 memset (&rbits, 0, sizeof (rbits));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
271 memset (&wbits, 0, sizeof (wbits));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
272 memset (&xbits, 0, sizeof (xbits));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
273 memset (anyfds_in, 0, sizeof (anyfds_in));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
274 if (rfds)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
275 for (i = 0; i < rfds->fd_count; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
276 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
277 fd = rfds->fd_array[i];
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
278 h = (HANDLE) _get_osfhandle (fd);
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
279 if (IsConsoleHandle (h)
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
280 && !GetNumberOfConsoleInputEvents (h, &nbuffer))
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
281 continue;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
282
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
283 rbits.in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
284 anyfds_in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
285 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
286 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
287 rfds = (fd_set *) alloca (sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
288
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
289 if (wfds)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
290 for (i = 0; i < wfds->fd_count; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
291 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
292 fd = wfds->fd_array[i];
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
293 h = (HANDLE) _get_osfhandle (fd);
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
294 if (IsConsoleHandle (h)
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
295 && GetNumberOfConsoleInputEvents (h, &nbuffer))
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
296 continue;
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
297
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
298 wbits.in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
299 anyfds_in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
300 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
301 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
302 wfds = (fd_set *) alloca (sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
303
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
304 if (xfds)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
305 for (i = 0; i < xfds->fd_count; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
306 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
307 fd = xfds->fd_array[i];
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
308 xbits.in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
309 anyfds_in[fd / CHAR_BIT] |= 1 << (fd & (CHAR_BIT - 1));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
310 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
311 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
312 xfds = (fd_set *) alloca (sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
313
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
314 /* Zero all the fd_sets, including the application's. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
315 FD_ZERO (rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
316 FD_ZERO (wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
317 FD_ZERO (xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
318 FD_ZERO (&handle_rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
319 FD_ZERO (&handle_wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
320 FD_ZERO (&handle_xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
321
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
322 /* Classify handles. Create fd sets for sockets, poll the others. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
323 for (i = 0; i < nfds; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
324 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
325 if ((anyfds_in[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1)))) == 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
326 continue;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
327
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
328 h = (HANDLE) _get_osfhandle (i);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
329 if (!h)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
330 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
331 errno = EBADF;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
332 return -1;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
333 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
334
11852
c9032834d889 Fix polling for writeability of a screen buffer.
Paolo Bonzini <bonzini@gnu.org>
parents: 11398
diff changeset
335 if (IsSocketHandle (h))
11397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
336 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
337 int requested = FD_CLOSE;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
338
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
339 /* See above; socket handles are mapped onto select, but we
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
340 need to map descriptors to handles. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
341 if (rbits.in[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
342 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
343 requested |= FD_READ | FD_ACCEPT;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
344 FD_SET ((SOCKET) h, rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
345 FD_SET ((SOCKET) h, &handle_rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
346 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
347 if (wbits.in[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
348 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
349 requested |= FD_WRITE | FD_CONNECT;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
350 FD_SET ((SOCKET) h, wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
351 FD_SET ((SOCKET) h, &handle_wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
352 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
353 if (xbits.in[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
354 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
355 requested |= FD_OOB;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
356 FD_SET ((SOCKET) h, xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
357 FD_SET ((SOCKET) h, &handle_xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
358 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
359
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
360 WSAEventSelect ((SOCKET) h, hEvent, requested);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
361 nsock++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
362 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
363 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
364 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
365 handle_array[nhandles++] = h;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
366
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
367 /* Poll now. If we get an event, do not wait below. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
368 if (wait_timeout != 0
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
369 && win32_poll_handle (h, i, &rbits, &wbits, &xbits))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
370 wait_timeout = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
371 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
372 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
373
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
374 if (wait_timeout == 0 || nsock == 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
375 rc = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
376 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
377 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
378 /* See if we need to wait in the loop below. If any select is ready,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
379 do MsgWaitForMultipleObjects anyway to dispatch messages, but
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
380 no need to call select again. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
381 rc = select (0, &handle_rfds, &handle_wfds, &handle_xfds, &tv0);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
382 if (rc == 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
383 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
384 /* Restore the fd_sets for the other select we do below. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
385 memcpy (&handle_rfds, rfds, sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
386 memcpy (&handle_wfds, wfds, sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
387 memcpy (&handle_xfds, xfds, sizeof (fd_set));
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
388 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
389 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
390 wait_timeout = 0;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
391 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
392
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
393 for (;;)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
394 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
395 ret = MsgWaitForMultipleObjects (nhandles, handle_array, FALSE,
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
396 wait_timeout, QS_ALLINPUT);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
397
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
398 if (ret == WAIT_OBJECT_0 + nhandles)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
399 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
400 /* new input of some other kind */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
401 BOOL bRet;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
402 while ((bRet = PeekMessage (&msg, NULL, 0, 0, PM_REMOVE)) != 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
403 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
404 TranslateMessage (&msg);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
405 DispatchMessage (&msg);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
406 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
407 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
408 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
409 break;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
410 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
411
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
412 /* If we haven't done it yet, check the status of the sockets. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
413 if (rc == 0 && nsock > 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
414 rc = select (0, &handle_rfds, &handle_wfds, &handle_xfds, &tv0);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
415
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
416 /* Now fill in the results. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
417 FD_ZERO (rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
418 FD_ZERO (wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
419 FD_ZERO (xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
420
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
421 /* Place a sentinel at the end of the array. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
422 handle_array[nhandles] = NULL;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
423 nhandles = 1;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
424 for (i = 0; i < nfds; i++)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
425 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
426 if ((anyfds_in[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1)))) == 0)
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
427 continue;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
428
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
429 h = (HANDLE) _get_osfhandle (i);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
430 if (h != handle_array[nhandles])
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
431 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
432 /* Perform handle->descriptor mapping. Don't update rc, as these
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
433 results are counted in the return value of Winsock's select. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
434 WSAEventSelect ((SOCKET) h, NULL, 0);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
435 if (FD_ISSET (h, &handle_rfds))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
436 FD_SET (i, rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
437 if (FD_ISSET (h, &handle_wfds))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
438 FD_SET (i, wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
439 if (FD_ISSET (h, &handle_xfds))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
440 FD_SET (i, xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
441 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
442 else
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
443 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
444 /* Not a socket. */
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
445 nhandles++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
446 win32_poll_handle (h, i, &rbits, &wbits, &xbits);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
447 if (rbits.out[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
448 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
449 rc++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
450 FD_SET (i, rfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
451 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
452 if (wbits.out[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
453 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
454 rc++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
455 FD_SET (i, wfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
456 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
457 if (xbits.out[i / CHAR_BIT] & (1 << (i & (CHAR_BIT - 1))))
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
458 {
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
459 rc++;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
460 FD_SET (i, xfds);
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
461 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
462 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
463 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
464
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
465 return rc;
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
466 }
bbd55a939862 Rename lib/winsock-select.c to lib/select.c.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
467
11398
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
468 #else /* ! Native Win32. */
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
469
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
470 #include <sys/select.h>
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
471
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
472 #undef select
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
473
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
474 int
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
475 rpl_select (int nfds, fd_set *rfds, fd_set *wfds, fd_set *xfds,
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
476 struct timeval *timeout)
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
477 {
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
478 /* Interix 3.5 has a bug: it does not support nfds == 0. */
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
479 if (nfds == 0)
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
480 {
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
481 nfds = 1;
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
482 rfds = NULL;
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
483 wfds = NULL;
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
484 xfds = NULL;
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
485 }
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
486 return select (nfds, rfds, wfds, xfds, timeout);
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
487 }
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
488
2de4c4d41f01 Work around select() bug on Interix 3.5.
Bruno Haible <bruno@clisp.org>
parents: 11397
diff changeset
489 #endif