2 * Copyright (c) 1993, 1994
3 * The Regents of the University of California. All rights reserved.
4 * Copyright (c) 1993, 1994, 1995, 1996
5 * Keith Bostic. All rights reserved.
7 * See the LICENSE file for redistribution information.
13 static const char sccsid[] = "@(#)cl_read.c 10.15 (Berkeley) 9/24/96";
16 #include <sys/types.h>
17 #include <sys/queue.h>
18 #ifdef HAVE_SYS_SELECT_H
19 #include <sys/select.h>
23 #include <bitstring.h>
34 #include "../common/common.h"
35 #include "../ex/script.h"
38 static input_t cl_read __P((SCR *,
39 u_int32_t, CHAR_T *, size_t, int *, struct timeval *));
40 static int cl_resize __P((SCR *, size_t, size_t));
44 * Return a single event.
46 * PUBLIC: int cl_event __P((SCR *, EVENT *, u_int32_t, int));
49 cl_event(sp, evp, flags, ms)
55 struct timeval t, *tp;
57 size_t lines, columns;
61 * Queue signal based events. We never clear SIGHUP or SIGTERM events,
62 * so that we just keep returning them until the editor dies.
65 retest: if (LF_ISSET(EC_INTERRUPT) || F_ISSET(clp, CL_SIGINT)) {
66 if (F_ISSET(clp, CL_SIGINT)) {
67 F_CLR(clp, CL_SIGINT);
68 evp->e_event = E_INTERRUPT;
70 evp->e_event = E_TIMEOUT;
73 if (F_ISSET(clp, CL_SIGHUP | CL_SIGTERM | CL_SIGWINCH)) {
74 if (F_ISSET(clp, CL_SIGHUP)) {
75 evp->e_event = E_SIGHUP;
78 if (F_ISSET(clp, CL_SIGTERM)) {
79 evp->e_event = E_SIGTERM;
82 if (F_ISSET(clp, CL_SIGWINCH)) {
83 F_CLR(clp, CL_SIGWINCH);
84 if (cl_ssize(sp, 1, &lines, &columns, &changed))
87 (void)cl_resize(sp, lines, columns);
88 evp->e_event = E_WRESIZE;
91 /* No real change, ignore the signal. */
100 t.tv_usec = (ms % 1000) * 1000;
104 /* Read input characters. */
105 switch (cl_read(sp, LF_ISSET(EC_QUOTED | EC_RAW),
106 clp->ibuf, sizeof(clp->ibuf), &nr, tp)) {
108 evp->e_csp = clp->ibuf;
110 evp->e_event = E_STRING;
113 evp->e_event = E_EOF;
116 evp->e_event = E_ERR;
121 evp->e_event = E_TIMEOUT;
131 * Read characters from the input.
134 cl_read(sp, flags, bp, blen, nrp, tp)
142 struct termios term1, term2;
149 int maxfd, nr, term_reset;
156 * 1: A read from a file or a pipe. In this case, the reads
157 * never timeout regardless. This means that we can hang
158 * when trying to complete a map, but we're going to hang
159 * on the next read anyway.
161 if (!F_ISSET(clp, CL_STDIN_TTY)) {
162 nr = extpread(STDIN_FILENO, bp, blen, O_FBLOCKING, -1);
176 * 2: A read with an associated timeout, e.g., trying to complete
177 * a map sequence. If input exists, we fall into #3.
183 FD_SET(STDIN_FILENO, &rdfd);
184 switch (select(STDIN_FILENO + 1,
185 &rdfd, NULL, NULL, tp == NULL ? &poll : tp)) {
187 return (INP_TIMEOUT);
196 * The user can enter a key in the editor to quote a character. If we
197 * get here and the next key is supposed to be quoted, do what we can.
198 * Reset the tty so that the user can enter a ^C, ^Q, ^S. There's an
199 * obvious race here, when the key has already been entered, but there's
200 * nothing that we can do to fix that problem.
202 * The editor can ask for the next literal character even thought it's
203 * generally running in line-at-a-time mode. Do what we can.
205 if (LF_ISSET(EC_QUOTED | EC_RAW) && !tcgetattr(STDIN_FILENO, &term1)) {
207 if (LF_ISSET(EC_QUOTED)) {
209 term2.c_lflag &= ~ISIG;
210 term2.c_iflag &= ~(IXON | IXOFF);
211 (void)tcsetattr(STDIN_FILENO,
212 TCSASOFT | TCSADRAIN, &term2);
214 (void)tcsetattr(STDIN_FILENO,
215 TCSASOFT | TCSADRAIN, &clp->vi_enter);
221 * Select on the command input and scripting window file descriptors.
222 * It's ugly that we wait on scripting file descriptors here, but it's
223 * the only way to keep from locking out scripting windows.
225 if (F_ISSET(gp, G_SCRWIN)) {
226 loop: FD_ZERO(&rdfd);
227 FD_SET(STDIN_FILENO, &rdfd);
228 maxfd = STDIN_FILENO;
229 for (tsp = gp->dq.cqh_first;
230 tsp != (void *)&gp->dq; tsp = tsp->q.cqe_next)
231 if (F_ISSET(sp, SC_SCRIPT)) {
232 FD_SET(sp->script->sh_master, &rdfd);
233 if (sp->script->sh_master > maxfd)
234 maxfd = sp->script->sh_master;
236 switch (select(maxfd + 1, &rdfd, NULL, NULL, NULL)) {
244 if (!FD_ISSET(STDIN_FILENO, &rdfd)) {
255 * What's going on here is some scary stuff. Ex runs the terminal in
256 * canonical mode. So, the <newline> character terminating a line of
257 * input is returned in the buffer, but a trailing <EOF> character is
258 * not similarly included. As ex uses 0<EOF> and ^<EOF> as autoindent
259 * commands, it has to see the trailing <EOF> characters to determine
260 * the difference between the user entering "0ab" and "0<EOF>ab". We
261 * leave an extra slot in the buffer, so that we can add a trailing
262 * <EOF> character if the buffer isn't terminated by a <newline>. We
263 * lose if the buffer is too small for the line and exactly N characters
264 * are entered followed by an <EOF> character.
266 #define ONE_FOR_EOF 1
267 nr = extpread(STDIN_FILENO, bp, blen - ONE_FOR_EOF, O_FBLOCKING, -1);
271 * ^D in canonical mode returns a read of 0, i.e. EOF. EOF is
272 * a valid command, but we don't want to loop forever because
273 * the terminal driver is returning EOF because the user has
274 * disconnected. The editor will almost certainly try to write
275 * something before this fires, which should kill us, but You
278 if (++clp->eof_count < 50) {
279 bp[0] = clp->orig.c_cc[VEOF];
286 case -1: /* Error or interrupt. */
287 err: if (errno == EINTR)
291 msgq(sp, M_SYSERR, "input");
294 default: /* Input characters. */
295 if (F_ISSET(sp, SC_EX) && bp[nr - 1] != '\n')
296 bp[nr++] = clp->orig.c_cc[VEOF];
303 /* Restore the terminal state if it was modified. */
305 (void)tcsetattr(STDIN_FILENO, TCSASOFT | TCSADRAIN, &term1);
311 * Reset the options for a resize event.
314 cl_resize(sp, lines, columns)
316 size_t lines, columns;
327 (void)snprintf(b1, sizeof(b1), "lines=%lu", (u_long)lines);
329 if (opts_set(sp, argv, NULL))
331 (void)snprintf(b1, sizeof(b1), "columns=%lu", (u_long)columns);
333 if (opts_set(sp, argv, NULL))