annotate src/event-unixoid.c @ 153:25f70ba0133c r20-3b3

Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 376386a54a3c
children 3d6bfa290dbd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Code shared between all event loops that use select() and have a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 different input descriptor for each device.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 Copyright (C) 1995 Board of Trustees, University of Illinois.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 Copyright (C) 1995 Sun Microsystems, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 Copyright (C) 1995, 1996 Ben Wing.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 /* This file has been Mule-ized. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 #include <config.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #include "lisp.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "console-stream.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 #include "console-tty.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 #include "device.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #include "events.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 #include "process.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 #include "sysdep.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 #include "sysproc.h" /* select stuff */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 #include "systime.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41
153
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
42 #ifdef HAVE_GPM
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
43 #include "gpmevent.h"
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
44 #include <gpm.h>
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
45 #endif
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
46
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 /* Mask of bits indicating the descriptors that we wait for input on.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 These work as follows:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 input_wait_mask == mask of all file descriptors we select() on,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 including TTY/stream console descriptors,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 process descriptors, and the signal event pipe.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 Only used in event-tty.c; event-Xt.c uses
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 XtAppAddInput(), and the call to select() is down in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 the guts of Xt.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 non_fake_input_wait_mask == same as input_wait_mask but minus the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 signal event pipe. Also only used in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 event-tty.c.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 process_only_mask == only the process descriptors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 tty_only_mask == only the TTY/stream console descriptors.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 SELECT_TYPE input_wait_mask, non_fake_input_wait_mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 SELECT_TYPE process_only_mask, tty_only_mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 /* This is used to terminate the select(), when an event came in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 through a signal (e.g. window-change or C-g on controlling TTY). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 int signal_event_pipe[2];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 static int signal_event_pipe_initialized;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 int fake_event_occurred;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 read_event_from_tty_or_stream_desc (struct Lisp_Event *event,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 struct console *con, int fd)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 unsigned char ch;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 int nread;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 Lisp_Object console = Qnil;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 XSETCONSOLE (console, con);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85
153
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
86 #ifdef HAVE_GPM
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
87 if (fd == CONSOLE_TTY_MOUSE_FD (con)) {
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
88 return (handle_gpm_read (event,con,fd));
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
89 }
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
90 #endif
25f70ba0133c Import from CVS: tag r20-3b3
cvs
parents: 0
diff changeset
91
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 nread = read (fd, &ch, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 if (nread <= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 /* deleting the console might not be safe right now ... */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 enqueue_magic_eval_event (io_error_delete_console, console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 /* but we definitely need to unselect it to avoid infinite
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 loops reading EOF's */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 Fconsole_disable_input (console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 character_to_event (ch, event, con, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 event->channel = console;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 return 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 signal_fake_event (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 char byte = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 /* We do the write always. Formerly I tried to "optimize" this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 by setting a flag indicating whether we're blocking and only
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 doing the write in that case, but there is a race condition
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 if the signal occurs after we've checked for the signal
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 occurrence (which could occur in many places throughout
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 an iteration of the command loop, e.g. in status_notify()),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 but before we set the blocking flag.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 This should be OK as long as write() is reentrant, which
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 I'm fairly sure it is since it's a system call. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 if (signal_event_pipe_initialized)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 /* In case a signal comes through while we're dumping */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 int old_errno = errno;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 write (signal_event_pipe[1], &byte, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 errno = old_errno;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 drain_signal_event_pipe (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 char chars[128];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 /* The input end of the pipe has been set to non-blocking. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 while (read (signal_event_pipe[0], chars, sizeof (chars)) > 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 event_stream_unixoid_select_console (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 int infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 if (CONSOLE_STREAM_P (con))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 infd = fileno (CONSOLE_STREAM_DATA (con)->infd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 assert (CONSOLE_TTY_P (con));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 infd = CONSOLE_TTY_DATA (con)->infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 assert (infd >= 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 FD_SET (infd, &input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 FD_SET (infd, &non_fake_input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 FD_SET (infd, &tty_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 return infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 event_stream_unixoid_unselect_console (struct console *con)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 int infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 if (CONSOLE_STREAM_P (con))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 infd = fileno (CONSOLE_STREAM_DATA (con)->infd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 assert (CONSOLE_TTY_P (con));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 infd = CONSOLE_TTY_DATA (con)->infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 assert (infd >= 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 FD_CLR (infd, &input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 FD_CLR (infd, &non_fake_input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 FD_CLR (infd, &tty_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 return infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 event_stream_unixoid_select_process (struct Lisp_Process *proc)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 int infd, outfd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 get_process_file_descriptors (proc, &infd, &outfd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 assert (infd >= 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 FD_SET (infd, &input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 FD_SET (infd, &non_fake_input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 FD_SET (infd, &process_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 return infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 event_stream_unixoid_unselect_process (struct Lisp_Process *proc)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 int infd, outfd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 get_process_file_descriptors (proc, &infd, &outfd);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 assert (infd >= 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 FD_CLR (infd, &input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 FD_CLR (infd, &non_fake_input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 FD_CLR (infd, &process_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 return infd;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214 poll_fds_for_input (SELECT_TYPE mask)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 EMACS_TIME sometime;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 EMACS_SELECT_TIME select_time;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 SELECT_TYPE temp_mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 int retval;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 while (1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 EMACS_SET_SECS_USECS (sometime, 0, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 EMACS_TIME_TO_SELECT_TIME (sometime, select_time);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 temp_mask = mask;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 /* To effect a poll, tell select() to block for zero seconds. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 retval = select (MAXDESC, &temp_mask, 0, 0, &select_time);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 if (retval >= 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 return retval;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 if (errno != EINTR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 /* Something went seriously wrong; don't abort since maybe
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 the TTY just died at the wrong time. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 fprintf (stderr, "xemacs: select failed: errno = %d\n", errno);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 /* else, we got interrupted by a signal, so try again. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 RETURN_NOT_REACHED(0) /* not reached */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 init_event_unixoid (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 /* Do this first; the init_event_*_late() functions
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 pay attention to it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 if (pipe (signal_event_pipe) < 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 perror ("XEmacs: can't open pipe");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 exit (-1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 signal_event_pipe_initialized = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 /* Set it non-blocking so we can drain its output. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 set_descriptor_non_blocking (signal_event_pipe[0]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 /* Also set the write descriptor non-blocking so we don't
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 hang in case a long time passes between times when
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 we drain the pipe. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 set_descriptor_non_blocking (signal_event_pipe[1]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 /* WARNING: In order for the signal-event pipe to work correctly
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 and not cause lockups, the following need to be followed:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 1) event_pending_p() must ignore input on the signal-event pipe.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 2) As soon as next_event() notices input on the signal-event
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 pipe, it must drain it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 FD_ZERO (&input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 FD_ZERO (&non_fake_input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 FD_ZERO (&process_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 FD_ZERO (&tty_only_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275 FD_SET (signal_event_pipe[0], &input_wait_mask);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 }