read.c revision 1.105 1 1.105 christos /* $NetBSD: read.c,v 1.105 2018/11/25 16:21:04 christos Exp $ */
2 1.2 lukem
3 1.1 cgd /*-
4 1.1 cgd * Copyright (c) 1992, 1993
5 1.1 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * This code is derived from software contributed to Berkeley by
8 1.1 cgd * Christos Zoulas of Cornell University.
9 1.1 cgd *
10 1.1 cgd * Redistribution and use in source and binary forms, with or without
11 1.1 cgd * modification, are permitted provided that the following conditions
12 1.1 cgd * are met:
13 1.1 cgd * 1. Redistributions of source code must retain the above copyright
14 1.1 cgd * notice, this list of conditions and the following disclaimer.
15 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 cgd * notice, this list of conditions and the following disclaimer in the
17 1.1 cgd * documentation and/or other materials provided with the distribution.
18 1.26 agc * 3. Neither the name of the University nor the names of its contributors
19 1.1 cgd * may be used to endorse or promote products derived from this software
20 1.1 cgd * without specific prior written permission.
21 1.1 cgd *
22 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 1.1 cgd * SUCH DAMAGE.
33 1.1 cgd */
34 1.1 cgd
35 1.21 christos #include "config.h"
36 1.1 cgd #if !defined(lint) && !defined(SCCSID)
37 1.2 lukem #if 0
38 1.1 cgd static char sccsid[] = "@(#)read.c 8.1 (Berkeley) 6/4/93";
39 1.2 lukem #else
40 1.105 christos __RCSID("$NetBSD: read.c,v 1.105 2018/11/25 16:21:04 christos Exp $");
41 1.2 lukem #endif
42 1.2 lukem #endif /* not lint && not SCCSID */
43 1.1 cgd
44 1.1 cgd /*
45 1.101 christos * read.c: Terminal read functions
46 1.1 cgd */
47 1.81 christos #include <ctype.h>
48 1.11 kleink #include <errno.h>
49 1.27 mycroft #include <fcntl.h>
50 1.82 christos #include <limits.h>
51 1.1 cgd #include <stdlib.h>
52 1.81 christos #include <string.h>
53 1.82 christos #include <unistd.h>
54 1.81 christos
55 1.1 cgd #include "el.h"
56 1.94 christos #include "fcns.h"
57 1.95 christos #include "read.h"
58 1.95 christos
59 1.97 christos #define EL_MAXMACRO 10
60 1.97 christos
61 1.97 christos struct macros {
62 1.97 christos wchar_t **macro;
63 1.97 christos int level;
64 1.97 christos int offset;
65 1.97 christos };
66 1.97 christos
67 1.95 christos struct el_read_t {
68 1.97 christos struct macros macros;
69 1.95 christos el_rfunc_t read_char; /* Function to read a character. */
70 1.98 christos int read_errno;
71 1.95 christos };
72 1.1 cgd
73 1.91 christos static int read__fixio(int, int);
74 1.91 christos static int read_char(EditLine *, wchar_t *);
75 1.91 christos static int read_getcmd(EditLine *, el_action_t *, wchar_t *);
76 1.97 christos static void read_clearmacros(struct macros *);
77 1.97 christos static void read_pop(struct macros *);
78 1.101 christos static const wchar_t *noedit_wgets(EditLine *, int *);
79 1.20 christos
80 1.20 christos /* read_init():
81 1.20 christos * Initialize the read stuff
82 1.20 christos */
83 1.96 christos libedit_private int
84 1.20 christos read_init(EditLine *el)
85 1.20 christos {
86 1.97 christos struct macros *ma;
87 1.97 christos
88 1.95 christos if ((el->el_read = el_malloc(sizeof(*el->el_read))) == NULL)
89 1.95 christos return -1;
90 1.97 christos
91 1.97 christos ma = &el->el_read->macros;
92 1.97 christos if ((ma->macro = el_malloc(EL_MAXMACRO *
93 1.97 christos sizeof(*ma->macro))) == NULL) {
94 1.97 christos free(el->el_read);
95 1.97 christos return -1;
96 1.97 christos }
97 1.97 christos ma->level = -1;
98 1.97 christos ma->offset = 0;
99 1.97 christos
100 1.20 christos /* builtin read_char */
101 1.95 christos el->el_read->read_char = read_char;
102 1.20 christos return 0;
103 1.20 christos }
104 1.20 christos
105 1.97 christos /* el_read_end():
106 1.97 christos * Free the data structures used by the read stuff.
107 1.97 christos */
108 1.97 christos libedit_private void
109 1.97 christos read_end(struct el_read_t *el_read)
110 1.97 christos {
111 1.97 christos read_clearmacros(&el_read->macros);
112 1.97 christos el_free(el_read->macros.macro);
113 1.97 christos el_read->macros.macro = NULL;
114 1.102 christos el_free(el_read);
115 1.97 christos }
116 1.20 christos
117 1.20 christos /* el_read_setfn():
118 1.20 christos * Set the read char function to the one provided.
119 1.20 christos * If it is set to EL_BUILTIN_GETCFN, then reset to the builtin one.
120 1.20 christos */
121 1.96 christos libedit_private int
122 1.95 christos el_read_setfn(struct el_read_t *el_read, el_rfunc_t rc)
123 1.20 christos {
124 1.95 christos el_read->read_char = (rc == EL_BUILTIN_GETCFN) ? read_char : rc;
125 1.20 christos return 0;
126 1.20 christos }
127 1.20 christos
128 1.20 christos
129 1.20 christos /* el_read_getfn():
130 1.20 christos * return the current read char function, or EL_BUILTIN_GETCFN
131 1.20 christos * if it is the default one
132 1.20 christos */
133 1.96 christos libedit_private el_rfunc_t
134 1.95 christos el_read_getfn(struct el_read_t *el_read)
135 1.20 christos {
136 1.95 christos return el_read->read_char == read_char ?
137 1.95 christos EL_BUILTIN_GETCFN : el_read->read_char;
138 1.20 christos }
139 1.20 christos
140 1.1 cgd
141 1.1 cgd /* read__fixio():
142 1.1 cgd * Try to recover from a read error
143 1.1 cgd */
144 1.10 christos /* ARGSUSED */
145 1.91 christos static int
146 1.25 christos read__fixio(int fd __attribute__((__unused__)), int e)
147 1.1 cgd {
148 1.17 lukem
149 1.17 lukem switch (e) {
150 1.17 lukem case -1: /* Make sure that the code is reachable */
151 1.1 cgd
152 1.1 cgd #ifdef EWOULDBLOCK
153 1.17 lukem case EWOULDBLOCK:
154 1.17 lukem #ifndef TRY_AGAIN
155 1.66 christos #define TRY_AGAIN
156 1.17 lukem #endif
157 1.1 cgd #endif /* EWOULDBLOCK */
158 1.1 cgd
159 1.1 cgd #if defined(POSIX) && defined(EAGAIN)
160 1.17 lukem #if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN
161 1.17 lukem case EAGAIN:
162 1.17 lukem #ifndef TRY_AGAIN
163 1.66 christos #define TRY_AGAIN
164 1.17 lukem #endif
165 1.17 lukem #endif /* EWOULDBLOCK && EWOULDBLOCK != EAGAIN */
166 1.1 cgd #endif /* POSIX && EAGAIN */
167 1.1 cgd
168 1.17 lukem e = 0;
169 1.1 cgd #ifdef TRY_AGAIN
170 1.17 lukem #if defined(F_SETFL) && defined(O_NDELAY)
171 1.17 lukem if ((e = fcntl(fd, F_GETFL, 0)) == -1)
172 1.65 christos return -1;
173 1.5 christos
174 1.17 lukem if (fcntl(fd, F_SETFL, e & ~O_NDELAY) == -1)
175 1.65 christos return -1;
176 1.5 christos else
177 1.17 lukem e = 1;
178 1.17 lukem #endif /* F_SETFL && O_NDELAY */
179 1.17 lukem
180 1.17 lukem #ifdef FIONBIO
181 1.17 lukem {
182 1.17 lukem int zero = 0;
183 1.17 lukem
184 1.64 christos if (ioctl(fd, FIONBIO, &zero) == -1)
185 1.65 christos return -1;
186 1.17 lukem else
187 1.17 lukem e = 1;
188 1.17 lukem }
189 1.17 lukem #endif /* FIONBIO */
190 1.1 cgd
191 1.1 cgd #endif /* TRY_AGAIN */
192 1.65 christos return e ? 0 : -1;
193 1.1 cgd
194 1.17 lukem case EINTR:
195 1.65 christos return 0;
196 1.1 cgd
197 1.17 lukem default:
198 1.65 christos return -1;
199 1.17 lukem }
200 1.1 cgd }
201 1.1 cgd
202 1.1 cgd
203 1.1 cgd /* el_push():
204 1.1 cgd * Push a macro
205 1.1 cgd */
206 1.91 christos void
207 1.90 christos el_wpush(EditLine *el, const wchar_t *str)
208 1.1 cgd {
209 1.97 christos struct macros *ma = &el->el_read->macros;
210 1.1 cgd
211 1.17 lukem if (str != NULL && ma->level + 1 < EL_MAXMACRO) {
212 1.17 lukem ma->level++;
213 1.89 christos if ((ma->macro[ma->level] = wcsdup(str)) != NULL)
214 1.30 christos return;
215 1.30 christos ma->level--;
216 1.17 lukem }
217 1.62 christos terminal_beep(el);
218 1.62 christos terminal__flush(el);
219 1.1 cgd }
220 1.1 cgd
221 1.1 cgd
222 1.1 cgd /* read_getcmd():
223 1.92 christos * Get next command from the input stream,
224 1.92 christos * return 0 on success or -1 on EOF or error.
225 1.53 christos * Character values > 255 are not looked up in the map, but inserted.
226 1.1 cgd */
227 1.91 christos static int
228 1.90 christos read_getcmd(EditLine *el, el_action_t *cmdnum, wchar_t *ch)
229 1.1 cgd {
230 1.90 christos static const wchar_t meta = (wchar_t)0x80;
231 1.23 christos el_action_t cmd;
232 1.1 cgd
233 1.23 christos do {
234 1.103 christos if (el_wgetc(el, ch) != 1)
235 1.92 christos return -1;
236 1.1 cgd
237 1.1 cgd #ifdef KANJI
238 1.75 christos if ((*ch & meta)) {
239 1.17 lukem el->el_state.metanext = 0;
240 1.17 lukem cmd = CcViMap[' '];
241 1.17 lukem break;
242 1.17 lukem } else
243 1.1 cgd #endif /* KANJI */
244 1.1 cgd
245 1.17 lukem if (el->el_state.metanext) {
246 1.17 lukem el->el_state.metanext = 0;
247 1.75 christos *ch |= meta;
248 1.17 lukem }
249 1.66 christos if (*ch >= N_KEYS)
250 1.66 christos cmd = ED_INSERT;
251 1.53 christos else
252 1.66 christos cmd = el->el_map.current[(unsigned char) *ch];
253 1.17 lukem if (cmd == ED_SEQUENCE_LEAD_IN) {
254 1.63 christos keymacro_value_t val;
255 1.63 christos switch (keymacro_get(el, ch, &val)) {
256 1.17 lukem case XK_CMD:
257 1.17 lukem cmd = val.cmd;
258 1.17 lukem break;
259 1.17 lukem case XK_STR:
260 1.89 christos el_wpush(el, val.str);
261 1.17 lukem break;
262 1.98 christos case XK_NOD:
263 1.98 christos return -1;
264 1.17 lukem default:
265 1.18 christos EL_ABORT((el->el_errfile, "Bad XK_ type \n"));
266 1.17 lukem break;
267 1.17 lukem }
268 1.17 lukem }
269 1.23 christos } while (cmd == ED_SEQUENCE_LEAD_IN);
270 1.17 lukem *cmdnum = cmd;
271 1.92 christos return 0;
272 1.1 cgd }
273 1.1 cgd
274 1.6 christos /* read_char():
275 1.6 christos * Read a character from the tty.
276 1.6 christos */
277 1.91 christos static int
278 1.84 christos read_char(EditLine *el, wchar_t *cp)
279 1.6 christos {
280 1.45 christos ssize_t num_read;
281 1.17 lukem int tried = 0;
282 1.66 christos char cbuf[MB_LEN_MAX];
283 1.66 christos size_t cbp = 0;
284 1.72 christos int save_errno = errno;
285 1.6 christos
286 1.46 christos again:
287 1.46 christos el->el_signal->sig_no = 0;
288 1.66 christos while ((num_read = read(el->el_infd, cbuf + cbp, (size_t)1)) == -1) {
289 1.68 christos int e = errno;
290 1.56 christos switch (el->el_signal->sig_no) {
291 1.56 christos case SIGCONT:
292 1.89 christos el_wset(el, EL_REFRESH);
293 1.57 christos /*FALLTHROUGH*/
294 1.56 christos case SIGWINCH:
295 1.46 christos sig_set(el);
296 1.46 christos goto again;
297 1.56 christos default:
298 1.56 christos break;
299 1.46 christos }
300 1.72 christos if (!tried && read__fixio(el->el_infd, e) == 0) {
301 1.72 christos errno = save_errno;
302 1.17 lukem tried = 1;
303 1.72 christos } else {
304 1.68 christos errno = e;
305 1.84 christos *cp = L'\0';
306 1.65 christos return -1;
307 1.17 lukem }
308 1.46 christos }
309 1.53 christos
310 1.70 christos /* Test for EOF */
311 1.70 christos if (num_read == 0) {
312 1.84 christos *cp = L'\0';
313 1.70 christos return 0;
314 1.70 christos }
315 1.70 christos
316 1.77 christos for (;;) {
317 1.88 christos mbstate_t mbs;
318 1.77 christos
319 1.53 christos ++cbp;
320 1.88 christos /* This only works because UTF8 is stateless. */
321 1.88 christos memset(&mbs, 0, sizeof(mbs));
322 1.88 christos switch (mbrtowc(cp, cbuf, cbp, &mbs)) {
323 1.72 christos case (size_t)-1:
324 1.72 christos if (cbp > 1) {
325 1.72 christos /*
326 1.72 christos * Invalid sequence, discard all bytes
327 1.72 christos * except the last one.
328 1.72 christos */
329 1.72 christos cbuf[0] = cbuf[cbp - 1];
330 1.72 christos cbp = 0;
331 1.77 christos break;
332 1.72 christos } else {
333 1.72 christos /* Invalid byte, discard it. */
334 1.72 christos cbp = 0;
335 1.72 christos goto again;
336 1.72 christos }
337 1.72 christos case (size_t)-2:
338 1.105 christos if (cbp >= MB_LEN_MAX) {
339 1.105 christos errno = EILSEQ;
340 1.105 christos *cp = L'\0';
341 1.105 christos return -1;
342 1.105 christos }
343 1.72 christos /* Incomplete sequence, read another byte. */
344 1.53 christos goto again;
345 1.72 christos default:
346 1.72 christos /* Valid character, process it. */
347 1.77 christos return 1;
348 1.53 christos }
349 1.77 christos }
350 1.6 christos }
351 1.6 christos
352 1.40 christos /* read_pop():
353 1.40 christos * Pop a macro from the stack
354 1.40 christos */
355 1.91 christos static void
356 1.97 christos read_pop(struct macros *ma)
357 1.40 christos {
358 1.40 christos int i;
359 1.40 christos
360 1.40 christos el_free(ma->macro[0]);
361 1.50 christos for (i = 0; i < ma->level; i++)
362 1.50 christos ma->macro[i] = ma->macro[i + 1];
363 1.51 christos ma->level--;
364 1.40 christos ma->offset = 0;
365 1.40 christos }
366 1.1 cgd
367 1.97 christos static void
368 1.97 christos read_clearmacros(struct macros *ma)
369 1.97 christos {
370 1.97 christos while (ma->level >= 0)
371 1.97 christos el_free(ma->macro[ma->level--]);
372 1.97 christos ma->offset = 0;
373 1.97 christos }
374 1.97 christos
375 1.83 christos /* el_wgetc():
376 1.83 christos * Read a wide character
377 1.1 cgd */
378 1.91 christos int
379 1.83 christos el_wgetc(EditLine *el, wchar_t *cp)
380 1.1 cgd {
381 1.97 christos struct macros *ma = &el->el_read->macros;
382 1.17 lukem int num_read;
383 1.1 cgd
384 1.62 christos terminal__flush(el);
385 1.17 lukem for (;;) {
386 1.17 lukem if (ma->level < 0)
387 1.17 lukem break;
388 1.12 simonb
389 1.40 christos if (ma->macro[0][ma->offset] == '\0') {
390 1.40 christos read_pop(ma);
391 1.17 lukem continue;
392 1.17 lukem }
393 1.40 christos
394 1.53 christos *cp = ma->macro[0][ma->offset++];
395 1.40 christos
396 1.40 christos if (ma->macro[0][ma->offset] == '\0') {
397 1.30 christos /* Needed for QuoteMode On */
398 1.40 christos read_pop(ma);
399 1.17 lukem }
400 1.40 christos
401 1.65 christos return 1;
402 1.1 cgd }
403 1.1 cgd
404 1.17 lukem if (tty_rawmode(el) < 0)/* make sure the tty is set up correctly */
405 1.65 christos return 0;
406 1.1 cgd
407 1.95 christos num_read = (*el->el_read->read_char)(el, cp);
408 1.98 christos
409 1.98 christos /*
410 1.98 christos * Remember the original reason of a read failure
411 1.98 christos * such that el_wgets() can restore it after doing
412 1.98 christos * various cleanup operation that might change errno.
413 1.98 christos */
414 1.68 christos if (num_read < 0)
415 1.98 christos el->el_read->read_errno = errno;
416 1.98 christos
417 1.65 christos return num_read;
418 1.1 cgd }
419 1.1 cgd
420 1.96 christos libedit_private void
421 1.33 christos read_prepare(EditLine *el)
422 1.28 christos {
423 1.28 christos if (el->el_flags & HANDLE_SIGNALS)
424 1.28 christos sig_set(el);
425 1.28 christos if (el->el_flags & NO_TTY)
426 1.28 christos return;
427 1.28 christos if ((el->el_flags & (UNBUFFERED|EDIT_DISABLED)) == UNBUFFERED)
428 1.28 christos tty_rawmode(el);
429 1.28 christos
430 1.28 christos /* This is relatively cheap, and things go terribly wrong if
431 1.28 christos we have the wrong size. */
432 1.28 christos el_resize(el);
433 1.28 christos re_clear_display(el); /* reset the display stuff */
434 1.97 christos ch_reset(el);
435 1.28 christos re_refresh(el); /* print the prompt */
436 1.35 christos
437 1.35 christos if (el->el_flags & UNBUFFERED)
438 1.62 christos terminal__flush(el);
439 1.28 christos }
440 1.28 christos
441 1.96 christos libedit_private void
442 1.28 christos read_finish(EditLine *el)
443 1.28 christos {
444 1.28 christos if ((el->el_flags & UNBUFFERED) == 0)
445 1.28 christos (void) tty_cookedmode(el);
446 1.28 christos if (el->el_flags & HANDLE_SIGNALS)
447 1.28 christos sig_clr(el);
448 1.28 christos }
449 1.1 cgd
450 1.101 christos static const wchar_t *
451 1.101 christos noedit_wgets(EditLine *el, int *nread)
452 1.101 christos {
453 1.101 christos el_line_t *lp = &el->el_line;
454 1.101 christos int num;
455 1.101 christos
456 1.101 christos while ((num = (*el->el_read->read_char)(el, lp->lastchar)) == 1) {
457 1.101 christos if (lp->lastchar + 1 >= lp->limit &&
458 1.101 christos !ch_enlargebufs(el, (size_t)2))
459 1.101 christos break;
460 1.101 christos lp->lastchar++;
461 1.101 christos if (el->el_flags & UNBUFFERED ||
462 1.101 christos lp->lastchar[-1] == '\r' ||
463 1.101 christos lp->lastchar[-1] == '\n')
464 1.101 christos break;
465 1.101 christos }
466 1.101 christos if (num == -1 && errno == EINTR)
467 1.101 christos lp->lastchar = lp->buffer;
468 1.101 christos lp->cursor = lp->lastchar;
469 1.101 christos *lp->lastchar = '\0';
470 1.101 christos *nread = (int)(lp->lastchar - lp->buffer);
471 1.101 christos return *nread ? lp->buffer : NULL;
472 1.101 christos }
473 1.101 christos
474 1.91 christos const wchar_t *
475 1.89 christos el_wgets(EditLine *el, int *nread)
476 1.1 cgd {
477 1.17 lukem int retval;
478 1.17 lukem el_action_t cmdnum = 0;
479 1.17 lukem int num; /* how many chars we have read at NL */
480 1.101 christos wchar_t ch;
481 1.49 christos int nrb;
482 1.1 cgd
483 1.49 christos if (nread == NULL)
484 1.49 christos nread = &nrb;
485 1.52 christos *nread = 0;
486 1.98 christos el->el_read->read_errno = 0;
487 1.49 christos
488 1.17 lukem if (el->el_flags & NO_TTY) {
489 1.101 christos el->el_line.lastchar = el->el_line.buffer;
490 1.101 christos return noedit_wgets(el, nread);
491 1.7 christos }
492 1.22 christos
493 1.1 cgd #ifdef FIONREAD
494 1.97 christos if (el->el_tty.t_mode == EX_IO && el->el_read->macros.level < 0) {
495 1.93 christos int chrs = 0;
496 1.1 cgd
497 1.64 christos (void) ioctl(el->el_infd, FIONREAD, &chrs);
498 1.17 lukem if (chrs == 0) {
499 1.17 lukem if (tty_rawmode(el) < 0) {
500 1.49 christos errno = 0;
501 1.49 christos *nread = 0;
502 1.65 christos return NULL;
503 1.17 lukem }
504 1.17 lukem }
505 1.1 cgd }
506 1.1 cgd #endif /* FIONREAD */
507 1.1 cgd
508 1.28 christos if ((el->el_flags & UNBUFFERED) == 0)
509 1.28 christos read_prepare(el);
510 1.13 sommerfe
511 1.17 lukem if (el->el_flags & EDIT_DISABLED) {
512 1.34 christos if ((el->el_flags & UNBUFFERED) == 0)
513 1.101 christos el->el_line.lastchar = el->el_line.buffer;
514 1.62 christos terminal__flush(el);
515 1.101 christos return noedit_wgets(el, nread);
516 1.13 sommerfe }
517 1.22 christos
518 1.92 christos for (num = -1; num == -1;) { /* while still editing this line */
519 1.17 lukem /* if EOF or error */
520 1.99 christos if (read_getcmd(el, &cmdnum, &ch) == -1)
521 1.17 lukem break;
522 1.99 christos if ((size_t)cmdnum >= el->el_map.nfunc) /* BUG CHECK command */
523 1.17 lukem continue; /* try again */
524 1.17 lukem /* now do the real command */
525 1.23 christos /* vi redo needs these way down the levels... */
526 1.23 christos el->el_state.thiscmd = cmdnum;
527 1.23 christos el->el_state.thisch = ch;
528 1.23 christos if (el->el_map.type == MAP_VI &&
529 1.23 christos el->el_map.current == el->el_map.key &&
530 1.23 christos el->el_chared.c_redo.pos < el->el_chared.c_redo.lim) {
531 1.23 christos if (cmdnum == VI_DELETE_PREV_CHAR &&
532 1.23 christos el->el_chared.c_redo.pos != el->el_chared.c_redo.buf
533 1.88 christos && iswprint(el->el_chared.c_redo.pos[-1]))
534 1.23 christos el->el_chared.c_redo.pos--;
535 1.23 christos else
536 1.23 christos *el->el_chared.c_redo.pos++ = ch;
537 1.23 christos }
538 1.17 lukem retval = (*el->el_map.func[cmdnum]) (el, ch);
539 1.17 lukem
540 1.17 lukem /* save the last command here */
541 1.17 lukem el->el_state.lastcmd = cmdnum;
542 1.1 cgd
543 1.17 lukem /* use any return value */
544 1.17 lukem switch (retval) {
545 1.17 lukem case CC_CURSOR:
546 1.17 lukem re_refresh_cursor(el);
547 1.17 lukem break;
548 1.17 lukem
549 1.17 lukem case CC_REDISPLAY:
550 1.17 lukem re_clear_lines(el);
551 1.17 lukem re_clear_display(el);
552 1.17 lukem /* FALLTHROUGH */
553 1.17 lukem
554 1.17 lukem case CC_REFRESH:
555 1.17 lukem re_refresh(el);
556 1.17 lukem break;
557 1.17 lukem
558 1.17 lukem case CC_REFRESH_BEEP:
559 1.17 lukem re_refresh(el);
560 1.62 christos terminal_beep(el);
561 1.17 lukem break;
562 1.17 lukem
563 1.17 lukem case CC_NORM: /* normal char */
564 1.17 lukem break;
565 1.1 cgd
566 1.17 lukem case CC_ARGHACK: /* Suggested by Rich Salz */
567 1.17 lukem /* <rsalz (at) pineapple.bbn.com> */
568 1.23 christos continue; /* keep going... */
569 1.1 cgd
570 1.17 lukem case CC_EOF: /* end of file typed */
571 1.29 christos if ((el->el_flags & UNBUFFERED) == 0)
572 1.29 christos num = 0;
573 1.29 christos else if (num == -1) {
574 1.31 christos *el->el_line.lastchar++ = CONTROL('d');
575 1.29 christos el->el_line.cursor = el->el_line.lastchar;
576 1.29 christos num = 1;
577 1.29 christos }
578 1.17 lukem break;
579 1.17 lukem
580 1.17 lukem case CC_NEWLINE: /* normal end of line */
581 1.45 christos num = (int)(el->el_line.lastchar - el->el_line.buffer);
582 1.17 lukem break;
583 1.17 lukem
584 1.17 lukem case CC_FATAL: /* fatal error, reset to known state */
585 1.17 lukem /* put (real) cursor in a known place */
586 1.17 lukem re_clear_display(el); /* reset the display stuff */
587 1.97 christos ch_reset(el); /* reset the input pointers */
588 1.97 christos read_clearmacros(&el->el_read->macros);
589 1.66 christos re_refresh(el); /* print the prompt again */
590 1.17 lukem break;
591 1.1 cgd
592 1.17 lukem case CC_ERROR:
593 1.17 lukem default: /* functions we don't know about */
594 1.62 christos terminal_beep(el);
595 1.62 christos terminal__flush(el);
596 1.17 lukem break;
597 1.17 lukem }
598 1.23 christos el->el_state.argument = 1;
599 1.23 christos el->el_state.doingarg = 0;
600 1.23 christos el->el_chared.c_vcmd.action = NOP;
601 1.28 christos if (el->el_flags & UNBUFFERED)
602 1.28 christos break;
603 1.1 cgd }
604 1.1 cgd
605 1.62 christos terminal__flush(el); /* flush any buffered output */
606 1.22 christos /* make sure the tty is set up correctly */
607 1.28 christos if ((el->el_flags & UNBUFFERED) == 0) {
608 1.28 christos read_finish(el);
609 1.49 christos *nread = num != -1 ? num : 0;
610 1.101 christos } else
611 1.49 christos *nread = (int)(el->el_line.lastchar - el->el_line.buffer);
612 1.101 christos
613 1.49 christos if (*nread == 0) {
614 1.49 christos if (num == -1) {
615 1.49 christos *nread = -1;
616 1.98 christos if (el->el_read->read_errno)
617 1.98 christos errno = el->el_read->read_errno;
618 1.49 christos }
619 1.49 christos return NULL;
620 1.49 christos } else
621 1.49 christos return el->el_line.buffer;
622 1.1 cgd }
623