Mercurial > hg > octave-nkf > gnulib-hg

annotate lib/poll.c @ 10997:92c82a6f26db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
poll: filter through cppi * lib/poll.c: Indent cpp directives to reflect nesting.
author Jim Meyering <meyering@redhat.com>
date Wed, 07 Jan 2009 21:02:12 +0100
parents 724ce887ae63
children 7b796798b7bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Emulation for poll(2)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
2 Contributed by Paolo Bonzini.
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3
10996
724ce887ae63 poll: don't return uninitialized
Daniel P. Berrange <berrange@redhat.com>
parents: 10562
diff changeset
4 Copyright 2001-2003, 2006-2009 Free Software Foundation, Inc.
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 This file is part of gnulib.
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7
4435
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
8 This program is free software; you can redistribute it and/or modify
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
9 it under the terms of the GNU General Public License as published by
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 any later version.
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12
4435
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
13 This program is distributed in the hope that it will be useful,
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
16 GNU General Public License for more details.
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17
4435
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
18 You should have received a copy of the GNU General Public License along
d4efdb886b2a Switch from LGPL to GPL.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4242
diff changeset
19 with this program; if not, write to the Free Software Foundation,
5848
a48fb0e98c8c *** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents: 4435
diff changeset
20 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21
9644
42367c277240 Prefer <config.h> over "config.h". See autoconf doc for explanation.
Jim Meyering <meyering@redhat.com>
parents: 8500
diff changeset
22 #include <config.h>
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
23 #include <alloca.h>
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25 #include <sys/types.h>
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26 #include "poll.h"
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27 #include <errno.h>
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
28 #include <limits.h>
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
29 #include <assert.h>
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
30
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
31 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
32 # define WIN32_NATIVE
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
33 # include <winsock2.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
34 # include <windows.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
35 # include <io.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
36 # include <stdio.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
37 # include <conio.h>
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
38 #else
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
39 # include <sys/time.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
40 # include <sys/socket.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
41 # include <sys/select.h>
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
42 # include <unistd.h>
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
43 #endif
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44
7382
8eedfb060b79 2006-09-28 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 6259
diff changeset
45 #ifdef HAVE_SYS_IOCTL_H
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
46 # include <sys/ioctl.h>
7382
8eedfb060b79 2006-09-28 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 6259
diff changeset
47 #endif
8eedfb060b79 2006-09-28 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 6259
diff changeset
48 #ifdef HAVE_SYS_FILIO_H
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
49 # include <sys/filio.h>
7382
8eedfb060b79 2006-09-28 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 6259
diff changeset
50 #endif
8eedfb060b79 2006-09-28 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 6259
diff changeset
51
7908
d41d48e822b4 * lib/poll.c: Include sys/time.h and time.h unconditionally,
Paul Eggert <eggert@cs.ucla.edu>
parents: 7776
diff changeset
52 #include <time.h>
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
54 #ifndef INFTIM
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
55 # define INFTIM (-1)
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
56 #endif
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57
8500
6c3093c67379 Fix compilation error on BeOS.
Bruno Haible <bruno@clisp.org>
parents: 7921
diff changeset
58 /* BeOS does not have MSG_PEEK. */
6c3093c67379 Fix compilation error on BeOS.
Bruno Haible <bruno@clisp.org>
parents: 7921
diff changeset
59 #ifndef MSG_PEEK
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
60 # define MSG_PEEK 0
8500
6c3093c67379 Fix compilation error on BeOS.
Bruno Haible <bruno@clisp.org>
parents: 7921
diff changeset
61 #endif
6c3093c67379 Fix compilation error on BeOS.
Bruno Haible <bruno@clisp.org>
parents: 7921
diff changeset
62
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
63 #ifdef WIN32_NATIVE
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
64
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
65 /* Declare data structures for ntdll functions. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
66 typedef struct _FILE_PIPE_LOCAL_INFORMATION {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
67 ULONG NamedPipeType;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
68 ULONG NamedPipeConfiguration;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
69 ULONG MaximumInstances;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
70 ULONG CurrentInstances;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
71 ULONG InboundQuota;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
72 ULONG ReadDataAvailable;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
73 ULONG OutboundQuota;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
74 ULONG WriteQuotaAvailable;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
75 ULONG NamedPipeState;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
76 ULONG NamedPipeEnd;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
77 } FILE_PIPE_LOCAL_INFORMATION, *PFILE_PIPE_LOCAL_INFORMATION;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
78
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
79 typedef struct _IO_STATUS_BLOCK
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
80 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
81 union {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
82 DWORD Status;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
83 PVOID Pointer;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
84 } u;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
85 ULONG_PTR Information;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
86 } IO_STATUS_BLOCK, *PIO_STATUS_BLOCK;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
87
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
88 typedef enum _FILE_INFORMATION_CLASS {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
89 FilePipeLocalInformation = 24
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
90 } FILE_INFORMATION_CLASS, *PFILE_INFORMATION_CLASS;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
91
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
92 typedef DWORD (WINAPI *PNtQueryInformationFile)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
93 (HANDLE, IO_STATUS_BLOCK *, VOID *, ULONG, FILE_INFORMATION_CLASS);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
94
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
95 # ifndef PIPE_BUF
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
96 # define PIPE_BUF 512
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
97 # endif
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
98
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
99 /* Compute revents values for file handle H. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
100
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
101 static int
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
102 win32_compute_revents (HANDLE h, int sought)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
103 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
104 int i, ret, happened;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
105 INPUT_RECORD *irbuffer;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
106 DWORD avail, nbuffer;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
107 BOOL bRet;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
108 IO_STATUS_BLOCK iosb;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
109 FILE_PIPE_LOCAL_INFORMATION fpli;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
110 static PNtQueryInformationFile NtQueryInformationFile;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
111 static BOOL once_only;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
112
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
113 switch (GetFileType (h))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
114 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
115 case FILE_TYPE_PIPE:
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
116 if (!once_only)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
117 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
118 NtQueryInformationFile = (PNtQueryInformationFile)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
119 GetProcAddress (GetModuleHandle ("ntdll.dll"),
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
120 "NtQueryInformationFile");
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
121 once_only = TRUE;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
122 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
123
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
124 happened = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
125 if (PeekNamedPipe (h, NULL, 0, NULL, &avail, NULL) != 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
126 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
127 if (avail)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
128 happened |= sought & (POLLIN | POLLRDNORM);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
129 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
130
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
131 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
132 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
133 /* It was the write-end of the pipe. Check if it is writable.
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
134 If NtQueryInformationFile fails, optimistically assume the pipe is
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
135 writable. This could happen on Win9x, where NtQueryInformationFile
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
136 is not available, or if we inherit a pipe that doesn't permit
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
137 FILE_READ_ATTRIBUTES access on the write end (I think this should
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
138 not happen since WinXP SP2; WINE seems fine too). Otherwise,
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
139 ensure that enough space is available for atomic writes. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
140 memset (&iosb, 0, sizeof (iosb));
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
141 memset (&fpli, 0, sizeof (fpli));
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
142
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
143 if (!NtQueryInformationFile
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
144 || NtQueryInformationFile (h, &iosb, &fpli, sizeof (fpli),
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
145 FilePipeLocalInformation)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
146 || fpli.WriteQuotaAvailable >= PIPE_BUF
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
147 || (fpli.OutboundQuota < PIPE_BUF &&
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
148 fpli.WriteQuotaAvailable == fpli.OutboundQuota))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
149 happened |= sought & (POLLOUT | POLLWRNORM | POLLWRBAND);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
150 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
151 return happened;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
152
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
153 case FILE_TYPE_CHAR:
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
154 ret = WaitForSingleObject (h, 0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
155 if (ret == WAIT_OBJECT_0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
156 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
157 nbuffer = avail = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
158 bRet = GetNumberOfConsoleInputEvents (h, &nbuffer);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
159 if (!bRet || nbuffer == 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
160 return POLLHUP;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
161
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
162 irbuffer = (INPUT_RECORD *) alloca (nbuffer * sizeof (INPUT_RECORD));
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
163 bRet = PeekConsoleInput (h, irbuffer, nbuffer, &avail);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
164 if (!bRet || avail == 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
165 return POLLHUP;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
166
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
167 for (i = 0; i < avail; i++)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
168 if (irbuffer[i].EventType == KEY_EVENT)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
169 return sought & ~(POLLPRI | POLLRDBAND);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
170 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
171 break;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
172
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
173 default:
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
174 ret = WaitForSingleObject (h, 0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
175 if (ret == WAIT_OBJECT_0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
176 return sought & ~(POLLPRI | POLLRDBAND);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
177
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
178 break;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
179 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
180
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
181 return sought & (POLLOUT | POLLWRNORM | POLLWRBAND);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
182 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
183
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
184 /* Convert fd_sets returned by select into revents values. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
185
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
186 static int
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
187 win32_compute_revents_socket (SOCKET h, int sought, long lNetworkEvents)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
188 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
189 int happened = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
190
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
191 if ((lNetworkEvents & (FD_READ | FD_ACCEPT | FD_CLOSE)) == FD_ACCEPT)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
192 happened |= (POLLIN | POLLRDNORM) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
193
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
194 else if (lNetworkEvents & (FD_READ | FD_ACCEPT | FD_CLOSE))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
195 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
196 int r, error;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
197
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
198 char data[64];
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
199 WSASetLastError (0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
200 r = recv (h, data, sizeof (data), MSG_PEEK);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
201 error = WSAGetLastError ();
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
202 WSASetLastError (0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
203
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
204 if (r > 0 || error == WSAENOTCONN)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
205 happened |= (POLLIN | POLLRDNORM) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
206
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
207 /* Distinguish hung-up sockets from other errors. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
208 else if (r == 0 || error == WSAESHUTDOWN || error == WSAECONNRESET
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
209 || error == WSAECONNABORTED || error == WSAENETRESET)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
210 happened |= POLLHUP;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
211
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
212 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
213 happened |= POLLERR;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
214 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
215
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
216 if (lNetworkEvents & (FD_WRITE | FD_CONNECT))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
217 happened |= (POLLOUT | POLLWRNORM | POLLWRBAND) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
218
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
219 if (lNetworkEvents & FD_OOB)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
220 happened |= (POLLPRI | POLLRDBAND) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
221
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
222 return happened;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
223 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
224
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
225 #else /* !MinGW */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
226
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
227 /* Convert select(2) returned fd_sets into poll(2) revents values. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
228 static int
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
229 compute_revents (int fd, int sought, fd_set *rfds, fd_set *wfds, fd_set *efds)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
230 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
231 int happened = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
232 if (FD_ISSET (fd, rfds))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
233 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
234 int r;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
235 int socket_errno;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
236
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
237 # if defined __MACH__ && defined __APPLE__
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
238 /* There is a bug in Mac OS X that causes it to ignore MSG_PEEK
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
239 for some kinds of descriptors. Detect if this descriptor is a
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
240 connected socket, a server socket, or something else using a
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
241 0-byte recv, and use ioctl(2) to detect POLLHUP. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
242 r = recv (fd, NULL, 0, MSG_PEEK);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
243 socket_errno = (r < 0) ? errno : 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
244 if (r == 0 || socket_errno == ENOTSOCK)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
245 ioctl (fd, FIONREAD, &r);
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
246 # else
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
247 char data[64];
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
248 r = recv (fd, data, sizeof (data), MSG_PEEK);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
249 socket_errno = (r < 0) ? errno : 0;
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
250 # endif
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
251 if (r == 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
252 happened |= POLLHUP;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
253
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
254 /* If the event happened on an unconnected server socket,
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
255 that's fine. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
256 else if (r > 0 || ( /* (r == -1) && */ socket_errno == ENOTCONN))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
257 happened |= (POLLIN | POLLRDNORM) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
258
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
259 /* Distinguish hung-up sockets from other errors. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
260 else if (socket_errno == ESHUTDOWN || socket_errno == ECONNRESET
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
261 || socket_errno == ECONNABORTED || socket_errno == ENETRESET)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
262 happened |= POLLHUP;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
263
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
264 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
265 happened |= POLLERR;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
266 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
267
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
268 if (FD_ISSET (fd, wfds))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
269 happened |= (POLLOUT | POLLWRNORM | POLLWRBAND) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
270
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
271 if (FD_ISSET (fd, efds))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
272 happened |= (POLLPRI | POLLRDBAND) & sought;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
273
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
274 return happened;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
275 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
276 #endif /* !MinGW */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
277
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
278 int
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
279 poll (pfd, nfd, timeout)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
280 struct pollfd *pfd;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
281 nfds_t nfd;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
282 int timeout;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
283 {
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
284 #ifndef WIN32_NATIVE
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
285 fd_set rfds, wfds, efds;
10310
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
286 struct timeval tv;
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
287 struct timeval *ptv;
7776
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
288 int maxfd, rc;
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
289 nfds_t i;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
290
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
291 # ifdef _SC_OPEN_MAX
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
292 static int sc_open_max = -1;
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
293
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
294 if (nfd < 0
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
295 || (nfd > sc_open_max
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
296 && (sc_open_max != -1
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
297 || nfd > (sc_open_max = sysconf (_SC_OPEN_MAX)))))
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
298 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
299 errno = EINVAL;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
300 return -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
301 }
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
302 # else /* !_SC_OPEN_MAX */
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
303 # ifdef OPEN_MAX
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
304 if (nfd < 0 || nfd > OPEN_MAX)
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
305 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
306 errno = EINVAL;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
307 return -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
308 }
10997
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
309 # endif /* OPEN_MAX -- else, no check is needed */
92c82a6f26db poll: filter through cppi
Jim Meyering <meyering@redhat.com>
parents: 10996
diff changeset
310 # endif /* !_SC_OPEN_MAX */
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
311
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
312 /* EFAULT is not necessary to implement, but let's do it in the
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
313 simplest case. */
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
314 if (!pfd)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
315 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
316 errno = EFAULT;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
317 return -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
318 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
319
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
320 /* convert timeout number into a timeval structure */
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
321 if (timeout == 0)
10310
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
322 {
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
323 ptv = &tv;
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
324 ptv->tv_sec = 0;
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
325 ptv->tv_usec = 0;
b48c3c82f4d9 Further micro-optimization.
Bruno Haible <bruno@clisp.org>
parents: 10308
diff changeset
326 }
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
327 else if (timeout > 0)
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
328 {
10308
c3ecbe083a26 microoptimization of lib/poll.c
Paolo Bonzini <bonzini@gnu.org>
parents: 9831
diff changeset
329 ptv = &tv;
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
330 ptv->tv_sec = timeout / 1000;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
331 ptv->tv_usec = (timeout % 1000) * 1000;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
332 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
333 else if (timeout == INFTIM)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
334 /* wait forever */
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
335 ptv = NULL;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
336 else
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
337 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
338 errno = EINVAL;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
339 return -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
340 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
341
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
342 /* create fd sets and determine max fd */
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
343 maxfd = -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
344 FD_ZERO (&rfds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
345 FD_ZERO (&wfds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
346 FD_ZERO (&efds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
347 for (i = 0; i < nfd; i++)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
348 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
349 if (pfd[i].fd < 0)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
350 continue;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
351
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
352 if (pfd[i].events & (POLLIN | POLLRDNORM))
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
353 FD_SET (pfd[i].fd, &rfds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
354
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
355 /* see select(2): "the only exceptional condition detectable
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
356 is out-of-band data received on a socket", hence we push
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
357 POLLWRBAND events onto wfds instead of efds. */
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
358 if (pfd[i].events & (POLLOUT | POLLWRNORM | POLLWRBAND))
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
359 FD_SET (pfd[i].fd, &wfds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
360 if (pfd[i].events & (POLLPRI | POLLRDBAND))
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
361 FD_SET (pfd[i].fd, &efds);
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
362 if (pfd[i].fd >= maxfd
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
363 && (pfd[i].events & (POLLIN | POLLOUT | POLLPRI
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
364 | POLLRDNORM | POLLRDBAND
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
365 | POLLWRNORM | POLLWRBAND)))
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
366 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
367 maxfd = pfd[i].fd;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
368 if (maxfd > FD_SETSIZE)
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
369 {
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
370 errno = EOVERFLOW;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
371 return -1;
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
372 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
373 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
374 }
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
375
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
376 /* examine fd sets */
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
377 rc = select (maxfd + 1, &rfds, &wfds, &efds, ptv);
7776
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
378 if (rc < 0)
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
379 return rc;
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
380
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
381 /* establish results */
7776
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
382 rc = 0;
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
383 for (i = 0; i < nfd; i++)
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
384 if (pfd[i].fd < 0)
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
385 pfd[i].revents = 0;
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
386 else
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
387 {
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
388 int happened = compute_revents (pfd[i].fd, pfd[i].events,
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
389 &rfds, &wfds, &efds);
7776
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
390 if (happened)
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
391 {
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
392 pfd[i].revents = happened;
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
393 rc++;
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
394 }
35d644ee8b48 2007-01-03 Paolo Bonzini <bonzini@gnu.org>
Paolo Bonzini <bonzini@gnu.org>
parents: 7382
diff changeset
395 }
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
396
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
397 return rc;
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
398 #else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
399 static struct timeval tv0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
400 static HANDLE hEvent;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
401 WSANETWORKEVENTS ev;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
402 HANDLE h, handle_array[FD_SETSIZE + 2];
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
403 DWORD ret, wait_timeout, nhandles;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
404 fd_set rfds, wfds, xfds;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
405 BOOL poll_again;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
406 MSG msg;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
407 char sockbuf[256];
10996
724ce887ae63 poll: don't return uninitialized
Daniel P. Berrange <berrange@redhat.com>
parents: 10562
diff changeset
408 int rc = 0;
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
409 nfds_t i;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
410
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
411 if (nfd < 0 || timeout < -1)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
412 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
413 errno = EINVAL;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
414 return -1;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
415 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
416
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
417 if (!hEvent)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
418 hEvent = CreateEvent (NULL, FALSE, FALSE, NULL);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
419
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
420 handle_array[0] = hEvent;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
421 nhandles = 1;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
422 FD_ZERO (&rfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
423 FD_ZERO (&wfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
424 FD_ZERO (&xfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
425
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
426 /* Classify socket handles and create fd sets. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
427 for (i = 0; i < nfd; i++)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
428 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
429 size_t optlen = sizeof(sockbuf);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
430 pfd[i].revents = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
431 if (pfd[i].fd < 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
432 continue;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
433 if (!(pfd[i].events & (POLLIN | POLLRDNORM |
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
434 POLLOUT | POLLWRNORM | POLLWRBAND)))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
435 continue;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
436
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
437 h = (HANDLE) _get_osfhandle (pfd[i].fd);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
438 assert (h != NULL);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
439
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
440 /* Under Wine, it seems that getsockopt returns 0 for pipes too.
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
441 WSAEnumNetworkEvents instead distinguishes the two correctly. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
442 ev.lNetworkEvents = 0xDEADBEEF;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
443 WSAEnumNetworkEvents ((SOCKET) h, NULL, &ev);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
444 if (ev.lNetworkEvents != 0xDEADBEEF)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
445 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
446 int requested = FD_CLOSE;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
447
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
448 /* see above; socket handles are mapped onto select. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
449 if (pfd[i].events & (POLLIN | POLLRDNORM))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
450 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
451 requested |= FD_READ | FD_ACCEPT;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
452 FD_SET ((SOCKET) h, &rfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
453 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
454 if (pfd[i].events & (POLLOUT | POLLWRNORM | POLLWRBAND))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
455 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
456 requested |= FD_WRITE | FD_CONNECT;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
457 FD_SET ((SOCKET) h, &wfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
458 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
459 if (pfd[i].events & (POLLPRI | POLLRDBAND))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
460 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
461 requested |= FD_OOB;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
462 FD_SET ((SOCKET) h, &xfds);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
463 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
464
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
465 if (requested)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
466 WSAEventSelect ((SOCKET) h, hEvent, requested);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
467 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
468 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
469 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
470 handle_array[nhandles++] = h;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
471
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
472 /* Poll now. If we get an event, do not poll again. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
473 pfd[i].revents = win32_compute_revents (h, pfd[i].events);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
474 if (pfd[i].revents)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
475 wait_timeout = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
476 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
477 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
478
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
479 if (select (0, &rfds, &wfds, &xfds, &tv0) > 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
480 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
481 /* Do MsgWaitForMultipleObjects anyway to dispatch messages, but
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
482 no need to call select again. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
483 poll_again = FALSE;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
484 wait_timeout = 0;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
485 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
486 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
487 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
488 poll_again = TRUE;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
489 if (timeout == INFTIM)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
490 wait_timeout = INFINITE;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
491 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
492 wait_timeout = timeout;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
493 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
494
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
495 for (;;)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
496 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
497 ret = MsgWaitForMultipleObjects (nhandles, handle_array, FALSE,
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
498 wait_timeout, QS_ALLINPUT);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
499
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
500 if (ret == WAIT_OBJECT_0 + nhandles)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
501 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
502 /* new input of some other kind */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
503 BOOL bRet;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
504 while ((bRet = PeekMessage (&msg, NULL, 0, 0, PM_REMOVE)) != 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
505 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
506 TranslateMessage (&msg);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
507 DispatchMessage (&msg);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
508 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
509 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
510 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
511 break;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
512 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
513
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
514 if (poll_again)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
515 select (0, &rfds, &wfds, &xfds, &tv0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
516
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
517 /* Place a sentinel at the end of the array. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
518 handle_array[nhandles] = NULL;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
519 nhandles = 1;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
520 for (i = 0; i < nfd; i++)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
521 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
522 int happened;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
523
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
524 if (pfd[i].fd < 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
525 continue;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
526 if (!(pfd[i].events & (POLLIN | POLLRDNORM |
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
527 POLLOUT | POLLWRNORM | POLLWRBAND)))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
528 continue;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
529
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
530 h = (HANDLE) _get_osfhandle (pfd[i].fd);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
531 if (h != handle_array[nhandles])
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
532 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
533 /* It's a socket. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
534 WSAEnumNetworkEvents ((SOCKET) h, NULL, &ev);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
535 WSAEventSelect ((SOCKET) h, 0, 0);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
536
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
537 /* If we're lucky, WSAEnumNetworkEvents already provided a way
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
538 to distinguish FD_READ and FD_ACCEPT; this saves a recv later. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
539 if (FD_ISSET ((SOCKET) h, &rfds)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
540 && !(ev.lNetworkEvents & (FD_READ | FD_ACCEPT)))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
541 ev.lNetworkEvents |= FD_READ | FD_ACCEPT;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
542 if (FD_ISSET ((SOCKET) h, &wfds))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
543 ev.lNetworkEvents |= FD_WRITE | FD_CONNECT;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
544 if (FD_ISSET ((SOCKET) h, &xfds))
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
545 ev.lNetworkEvents |= FD_OOB;
10562
ebbb50a36a9f remove trailing spaces
Jim Meyering <meyering@redhat.com>
parents: 10467
diff changeset
546
10467
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
547 happened = win32_compute_revents_socket ((SOCKET) h, pfd[i].events,
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
548 ev.lNetworkEvents);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
549 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
550 else
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
551 {
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
552 /* Not a socket. */
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
553 nhandles++;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
554 happened = win32_compute_revents (h, pfd[i].events);
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
555 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
556
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
557 if ((pfd[i].revents |= happened) != 0)
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
558 rc++;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
559 }
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
560
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
561 return rc;
f96117307f4a implement a native version of poll for Win32
Paolo Bonzini <bonzini@gnu.org>
parents: 10414
diff changeset
562 #endif
4242
eec6ba9ed532 New module poll, from Paolo Bonzini <bonzini@gnu.org>.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
563 }