read.c revision 1.28 1 1.28 christos /* $NetBSD: read.c,v 1.28 2003/09/26 17:44:51 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.28 christos __RCSID("$NetBSD: read.c,v 1.28 2003/09/26 17:44:51 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.1 cgd * read.c: Clean this junk up! This is horrible code.
46 1.1 cgd * Terminal read functions
47 1.1 cgd */
48 1.11 kleink #include <errno.h>
49 1.27 mycroft #include <fcntl.h>
50 1.1 cgd #include <unistd.h>
51 1.1 cgd #include <stdlib.h>
52 1.1 cgd #include "el.h"
53 1.1 cgd
54 1.17 lukem #define OKCMD -1
55 1.1 cgd
56 1.17 lukem private int read__fixio(int, int);
57 1.17 lukem private int read_preread(EditLine *);
58 1.20 christos private int read_char(EditLine *, char *);
59 1.17 lukem private int read_getcmd(EditLine *, el_action_t *, char *);
60 1.20 christos
61 1.20 christos /* read_init():
62 1.20 christos * Initialize the read stuff
63 1.20 christos */
64 1.20 christos protected int
65 1.20 christos read_init(EditLine *el)
66 1.20 christos {
67 1.20 christos /* builtin read_char */
68 1.20 christos el->el_read.read_char = read_char;
69 1.20 christos return 0;
70 1.20 christos }
71 1.20 christos
72 1.20 christos
73 1.20 christos /* el_read_setfn():
74 1.20 christos * Set the read char function to the one provided.
75 1.20 christos * If it is set to EL_BUILTIN_GETCFN, then reset to the builtin one.
76 1.20 christos */
77 1.20 christos protected int
78 1.20 christos el_read_setfn(EditLine *el, el_rfunc_t rc)
79 1.20 christos {
80 1.20 christos el->el_read.read_char = (rc == EL_BUILTIN_GETCFN) ? read_char : rc;
81 1.20 christos return 0;
82 1.20 christos }
83 1.20 christos
84 1.20 christos
85 1.20 christos /* el_read_getfn():
86 1.20 christos * return the current read char function, or EL_BUILTIN_GETCFN
87 1.20 christos * if it is the default one
88 1.20 christos */
89 1.20 christos protected el_rfunc_t
90 1.20 christos el_read_getfn(EditLine *el)
91 1.20 christos {
92 1.20 christos return (el->el_read.read_char == read_char) ?
93 1.20 christos EL_BUILTIN_GETCFN : el->el_read.read_char;
94 1.20 christos }
95 1.20 christos
96 1.1 cgd
97 1.25 christos #ifndef MIN
98 1.25 christos #define MIN(A,B) ((A) < (B) ? (A) : (B))
99 1.25 christos #endif
100 1.25 christos
101 1.1 cgd #ifdef DEBUG_EDIT
102 1.1 cgd private void
103 1.17 lukem read_debug(EditLine *el)
104 1.1 cgd {
105 1.1 cgd
106 1.17 lukem if (el->el_line.cursor > el->el_line.lastchar)
107 1.17 lukem (void) fprintf(el->el_errfile, "cursor > lastchar\r\n");
108 1.17 lukem if (el->el_line.cursor < el->el_line.buffer)
109 1.17 lukem (void) fprintf(el->el_errfile, "cursor < buffer\r\n");
110 1.17 lukem if (el->el_line.cursor > el->el_line.limit)
111 1.17 lukem (void) fprintf(el->el_errfile, "cursor > limit\r\n");
112 1.17 lukem if (el->el_line.lastchar > el->el_line.limit)
113 1.17 lukem (void) fprintf(el->el_errfile, "lastchar > limit\r\n");
114 1.17 lukem if (el->el_line.limit != &el->el_line.buffer[EL_BUFSIZ - 2])
115 1.17 lukem (void) fprintf(el->el_errfile, "limit != &buffer[EL_BUFSIZ-2]\r\n");
116 1.1 cgd }
117 1.1 cgd #endif /* DEBUG_EDIT */
118 1.1 cgd
119 1.17 lukem
120 1.1 cgd /* read__fixio():
121 1.1 cgd * Try to recover from a read error
122 1.1 cgd */
123 1.10 christos /* ARGSUSED */
124 1.1 cgd private int
125 1.25 christos read__fixio(int fd __attribute__((__unused__)), int e)
126 1.1 cgd {
127 1.17 lukem
128 1.17 lukem switch (e) {
129 1.17 lukem case -1: /* Make sure that the code is reachable */
130 1.1 cgd
131 1.1 cgd #ifdef EWOULDBLOCK
132 1.17 lukem case EWOULDBLOCK:
133 1.17 lukem #ifndef TRY_AGAIN
134 1.17 lukem #define TRY_AGAIN
135 1.17 lukem #endif
136 1.1 cgd #endif /* EWOULDBLOCK */
137 1.1 cgd
138 1.1 cgd #if defined(POSIX) && defined(EAGAIN)
139 1.17 lukem #if defined(EWOULDBLOCK) && EWOULDBLOCK != EAGAIN
140 1.17 lukem case EAGAIN:
141 1.17 lukem #ifndef TRY_AGAIN
142 1.17 lukem #define TRY_AGAIN
143 1.17 lukem #endif
144 1.17 lukem #endif /* EWOULDBLOCK && EWOULDBLOCK != EAGAIN */
145 1.1 cgd #endif /* POSIX && EAGAIN */
146 1.1 cgd
147 1.17 lukem e = 0;
148 1.1 cgd #ifdef TRY_AGAIN
149 1.17 lukem #if defined(F_SETFL) && defined(O_NDELAY)
150 1.17 lukem if ((e = fcntl(fd, F_GETFL, 0)) == -1)
151 1.17 lukem return (-1);
152 1.5 christos
153 1.17 lukem if (fcntl(fd, F_SETFL, e & ~O_NDELAY) == -1)
154 1.17 lukem return (-1);
155 1.5 christos else
156 1.17 lukem e = 1;
157 1.17 lukem #endif /* F_SETFL && O_NDELAY */
158 1.17 lukem
159 1.17 lukem #ifdef FIONBIO
160 1.17 lukem {
161 1.17 lukem int zero = 0;
162 1.17 lukem
163 1.17 lukem if (ioctl(fd, FIONBIO, (ioctl_t) & zero) == -1)
164 1.17 lukem return (-1);
165 1.17 lukem else
166 1.17 lukem e = 1;
167 1.17 lukem }
168 1.17 lukem #endif /* FIONBIO */
169 1.1 cgd
170 1.1 cgd #endif /* TRY_AGAIN */
171 1.17 lukem return (e ? 0 : -1);
172 1.1 cgd
173 1.17 lukem case EINTR:
174 1.17 lukem return (0);
175 1.1 cgd
176 1.17 lukem default:
177 1.17 lukem return (-1);
178 1.17 lukem }
179 1.1 cgd }
180 1.1 cgd
181 1.1 cgd
182 1.1 cgd /* read_preread():
183 1.1 cgd * Try to read the stuff in the input queue;
184 1.1 cgd */
185 1.1 cgd private int
186 1.17 lukem read_preread(EditLine *el)
187 1.1 cgd {
188 1.17 lukem int chrs = 0;
189 1.1 cgd
190 1.17 lukem if (el->el_chared.c_macro.nline) {
191 1.17 lukem el_free((ptr_t) el->el_chared.c_macro.nline);
192 1.17 lukem el->el_chared.c_macro.nline = NULL;
193 1.17 lukem }
194 1.17 lukem if (el->el_tty.t_mode == ED_IO)
195 1.17 lukem return (0);
196 1.1 cgd
197 1.1 cgd #ifdef FIONREAD
198 1.17 lukem (void) ioctl(el->el_infd, FIONREAD, (ioctl_t) & chrs);
199 1.17 lukem if (chrs > 0) {
200 1.17 lukem char buf[EL_BUFSIZ];
201 1.1 cgd
202 1.17 lukem chrs = read(el->el_infd, buf,
203 1.17 lukem (size_t) MIN(chrs, EL_BUFSIZ - 1));
204 1.17 lukem if (chrs > 0) {
205 1.17 lukem buf[chrs] = '\0';
206 1.17 lukem el->el_chared.c_macro.nline = strdup(buf);
207 1.17 lukem el_push(el, el->el_chared.c_macro.nline);
208 1.17 lukem }
209 1.1 cgd }
210 1.17 lukem #endif /* FIONREAD */
211 1.1 cgd
212 1.17 lukem return (chrs > 0);
213 1.1 cgd }
214 1.1 cgd
215 1.1 cgd
216 1.1 cgd /* el_push():
217 1.1 cgd * Push a macro
218 1.1 cgd */
219 1.1 cgd public void
220 1.21 christos el_push(EditLine *el, char *str)
221 1.1 cgd {
222 1.17 lukem c_macro_t *ma = &el->el_chared.c_macro;
223 1.1 cgd
224 1.17 lukem if (str != NULL && ma->level + 1 < EL_MAXMACRO) {
225 1.17 lukem ma->level++;
226 1.21 christos ma->macro[ma->level] = str;
227 1.17 lukem } else {
228 1.17 lukem term_beep(el);
229 1.17 lukem term__flush();
230 1.17 lukem }
231 1.1 cgd }
232 1.1 cgd
233 1.1 cgd
234 1.1 cgd /* read_getcmd():
235 1.1 cgd * Return next command from the input stream.
236 1.1 cgd */
237 1.1 cgd private int
238 1.17 lukem read_getcmd(EditLine *el, el_action_t *cmdnum, char *ch)
239 1.1 cgd {
240 1.23 christos el_action_t cmd;
241 1.17 lukem int num;
242 1.1 cgd
243 1.23 christos do {
244 1.17 lukem if ((num = el_getc(el, ch)) != 1) /* if EOF or error */
245 1.17 lukem return (num);
246 1.1 cgd
247 1.1 cgd #ifdef KANJI
248 1.17 lukem if ((*ch & 0200)) {
249 1.17 lukem el->el_state.metanext = 0;
250 1.17 lukem cmd = CcViMap[' '];
251 1.17 lukem break;
252 1.17 lukem } else
253 1.1 cgd #endif /* KANJI */
254 1.1 cgd
255 1.17 lukem if (el->el_state.metanext) {
256 1.17 lukem el->el_state.metanext = 0;
257 1.17 lukem *ch |= 0200;
258 1.17 lukem }
259 1.17 lukem cmd = el->el_map.current[(unsigned char) *ch];
260 1.17 lukem if (cmd == ED_SEQUENCE_LEAD_IN) {
261 1.17 lukem key_value_t val;
262 1.17 lukem switch (key_get(el, ch, &val)) {
263 1.17 lukem case XK_CMD:
264 1.17 lukem cmd = val.cmd;
265 1.17 lukem break;
266 1.17 lukem case XK_STR:
267 1.17 lukem el_push(el, val.str);
268 1.17 lukem break;
269 1.1 cgd #ifdef notyet
270 1.17 lukem case XK_EXE:
271 1.17 lukem /* XXX: In the future to run a user function */
272 1.17 lukem RunCommand(val.str);
273 1.17 lukem break;
274 1.1 cgd #endif
275 1.17 lukem default:
276 1.18 christos EL_ABORT((el->el_errfile, "Bad XK_ type \n"));
277 1.17 lukem break;
278 1.17 lukem }
279 1.17 lukem }
280 1.17 lukem if (el->el_map.alt == NULL)
281 1.17 lukem el->el_map.current = el->el_map.key;
282 1.23 christos } while (cmd == ED_SEQUENCE_LEAD_IN);
283 1.17 lukem *cmdnum = cmd;
284 1.17 lukem return (OKCMD);
285 1.1 cgd }
286 1.1 cgd
287 1.17 lukem
288 1.6 christos /* read_char():
289 1.6 christos * Read a character from the tty.
290 1.6 christos */
291 1.6 christos private int
292 1.17 lukem read_char(EditLine *el, char *cp)
293 1.6 christos {
294 1.17 lukem int num_read;
295 1.17 lukem int tried = 0;
296 1.6 christos
297 1.17 lukem while ((num_read = read(el->el_infd, cp, 1)) == -1)
298 1.17 lukem if (!tried && read__fixio(el->el_infd, errno) == 0)
299 1.17 lukem tried = 1;
300 1.17 lukem else {
301 1.17 lukem *cp = '\0';
302 1.17 lukem return (-1);
303 1.17 lukem }
304 1.6 christos
305 1.17 lukem return (num_read);
306 1.6 christos }
307 1.6 christos
308 1.1 cgd
309 1.1 cgd /* el_getc():
310 1.1 cgd * Read a character
311 1.1 cgd */
312 1.1 cgd public int
313 1.17 lukem el_getc(EditLine *el, char *cp)
314 1.1 cgd {
315 1.17 lukem int num_read;
316 1.17 lukem c_macro_t *ma = &el->el_chared.c_macro;
317 1.1 cgd
318 1.17 lukem term__flush();
319 1.17 lukem for (;;) {
320 1.17 lukem if (ma->level < 0) {
321 1.17 lukem if (!read_preread(el))
322 1.17 lukem break;
323 1.17 lukem }
324 1.17 lukem if (ma->level < 0)
325 1.17 lukem break;
326 1.12 simonb
327 1.17 lukem if (*ma->macro[ma->level] == 0) {
328 1.17 lukem ma->level--;
329 1.17 lukem continue;
330 1.17 lukem }
331 1.17 lukem *cp = *ma->macro[ma->level]++ & 0377;
332 1.17 lukem if (*ma->macro[ma->level] == 0) { /* Needed for QuoteMode
333 1.17 lukem * On */
334 1.17 lukem ma->level--;
335 1.17 lukem }
336 1.17 lukem return (1);
337 1.1 cgd }
338 1.1 cgd
339 1.1 cgd #ifdef DEBUG_READ
340 1.17 lukem (void) fprintf(el->el_errfile, "Turning raw mode on\n");
341 1.1 cgd #endif /* DEBUG_READ */
342 1.17 lukem if (tty_rawmode(el) < 0)/* make sure the tty is set up correctly */
343 1.17 lukem return (0);
344 1.1 cgd
345 1.1 cgd #ifdef DEBUG_READ
346 1.17 lukem (void) fprintf(el->el_errfile, "Reading a character\n");
347 1.1 cgd #endif /* DEBUG_READ */
348 1.20 christos num_read = (*el->el_read.read_char)(el, cp);
349 1.1 cgd #ifdef DEBUG_READ
350 1.17 lukem (void) fprintf(el->el_errfile, "Got it %c\n", *cp);
351 1.1 cgd #endif /* DEBUG_READ */
352 1.17 lukem return (num_read);
353 1.1 cgd }
354 1.1 cgd
355 1.28 christos protected void
356 1.28 christos read_prepare(EditLine *el)
357 1.28 christos {
358 1.28 christos if (el->el_flags & HANDLE_SIGNALS)
359 1.28 christos sig_set(el);
360 1.28 christos if (el->el_flags & NO_TTY)
361 1.28 christos return;
362 1.28 christos if ((el->el_flags & (UNBUFFERED|EDIT_DISABLED)) == UNBUFFERED)
363 1.28 christos tty_rawmode(el);
364 1.28 christos
365 1.28 christos /* This is relatively cheap, and things go terribly wrong if
366 1.28 christos we have the wrong size. */
367 1.28 christos el_resize(el);
368 1.28 christos re_clear_display(el); /* reset the display stuff */
369 1.28 christos ch_reset(el);
370 1.28 christos re_refresh(el); /* print the prompt */
371 1.28 christos }
372 1.28 christos
373 1.28 christos protected void
374 1.28 christos read_finish(EditLine *el)
375 1.28 christos {
376 1.28 christos if ((el->el_flags & UNBUFFERED) == 0)
377 1.28 christos (void) tty_cookedmode(el);
378 1.28 christos if (el->el_flags & HANDLE_SIGNALS)
379 1.28 christos sig_clr(el);
380 1.28 christos }
381 1.1 cgd
382 1.1 cgd public const char *
383 1.17 lukem el_gets(EditLine *el, int *nread)
384 1.1 cgd {
385 1.17 lukem int retval;
386 1.17 lukem el_action_t cmdnum = 0;
387 1.17 lukem int num; /* how many chars we have read at NL */
388 1.17 lukem char ch;
389 1.28 christos int crlf = 0;
390 1.8 lukem #ifdef FIONREAD
391 1.17 lukem c_macro_t *ma = &el->el_chared.c_macro;
392 1.8 lukem #endif /* FIONREAD */
393 1.1 cgd
394 1.17 lukem if (el->el_flags & NO_TTY) {
395 1.17 lukem char *cp = el->el_line.buffer;
396 1.19 jdolecek size_t idx;
397 1.6 christos
398 1.20 christos while ((*el->el_read.read_char)(el, cp) == 1) {
399 1.19 jdolecek /* make sure there is space for next character */
400 1.19 jdolecek if (cp + 1 >= el->el_line.limit) {
401 1.19 jdolecek idx = (cp - el->el_line.buffer);
402 1.19 jdolecek if (!ch_enlargebufs(el, 2))
403 1.19 jdolecek break;
404 1.19 jdolecek cp = &el->el_line.buffer[idx];
405 1.19 jdolecek }
406 1.17 lukem cp++;
407 1.28 christos if (el->el_flags & UNBUFFERED)
408 1.28 christos break;
409 1.17 lukem if (cp[-1] == '\r' || cp[-1] == '\n')
410 1.17 lukem break;
411 1.6 christos }
412 1.19 jdolecek
413 1.17 lukem el->el_line.cursor = el->el_line.lastchar = cp;
414 1.17 lukem *cp = '\0';
415 1.17 lukem if (nread)
416 1.17 lukem *nread = el->el_line.cursor - el->el_line.buffer;
417 1.17 lukem return (el->el_line.buffer);
418 1.7 christos }
419 1.22 christos
420 1.1 cgd
421 1.1 cgd #ifdef FIONREAD
422 1.17 lukem if (el->el_tty.t_mode == EX_IO && ma->level < 0) {
423 1.17 lukem long chrs = 0;
424 1.1 cgd
425 1.17 lukem (void) ioctl(el->el_infd, FIONREAD, (ioctl_t) & chrs);
426 1.17 lukem if (chrs == 0) {
427 1.17 lukem if (tty_rawmode(el) < 0) {
428 1.17 lukem if (nread)
429 1.17 lukem *nread = 0;
430 1.17 lukem return (NULL);
431 1.17 lukem }
432 1.17 lukem }
433 1.1 cgd }
434 1.1 cgd #endif /* FIONREAD */
435 1.1 cgd
436 1.28 christos if ((el->el_flags & UNBUFFERED) == 0)
437 1.28 christos read_prepare(el);
438 1.13 sommerfe
439 1.17 lukem if (el->el_flags & EDIT_DISABLED) {
440 1.17 lukem char *cp = el->el_line.buffer;
441 1.19 jdolecek size_t idx;
442 1.13 sommerfe
443 1.17 lukem term__flush();
444 1.17 lukem
445 1.20 christos while ((*el->el_read.read_char)(el, cp) == 1) {
446 1.19 jdolecek /* make sure there is space next character */
447 1.19 jdolecek if (cp + 1 >= el->el_line.limit) {
448 1.19 jdolecek idx = (cp - el->el_line.buffer);
449 1.19 jdolecek if (!ch_enlargebufs(el, 2))
450 1.19 jdolecek break;
451 1.19 jdolecek cp = &el->el_line.buffer[idx];
452 1.19 jdolecek }
453 1.24 christos if (*cp == 4) /* ought to be stty eof */
454 1.24 christos break;
455 1.17 lukem cp++;
456 1.28 christos crlf = cp[-1] == '\r' || cp[-1] == '\n';
457 1.28 christos if (el->el_flags & UNBUFFERED)
458 1.28 christos break;
459 1.28 christos if (crlf)
460 1.17 lukem break;
461 1.19 jdolecek }
462 1.13 sommerfe
463 1.17 lukem el->el_line.cursor = el->el_line.lastchar = cp;
464 1.17 lukem *cp = '\0';
465 1.17 lukem if (nread)
466 1.17 lukem *nread = el->el_line.cursor - el->el_line.buffer;
467 1.17 lukem return (el->el_line.buffer);
468 1.13 sommerfe }
469 1.22 christos
470 1.17 lukem for (num = OKCMD; num == OKCMD;) { /* while still editing this
471 1.17 lukem * line */
472 1.1 cgd #ifdef DEBUG_EDIT
473 1.17 lukem read_debug(el);
474 1.1 cgd #endif /* DEBUG_EDIT */
475 1.17 lukem /* if EOF or error */
476 1.17 lukem if ((num = read_getcmd(el, &cmdnum, &ch)) != OKCMD) {
477 1.1 cgd #ifdef DEBUG_READ
478 1.17 lukem (void) fprintf(el->el_errfile,
479 1.17 lukem "Returning from el_gets %d\n", num);
480 1.1 cgd #endif /* DEBUG_READ */
481 1.17 lukem break;
482 1.17 lukem }
483 1.23 christos if ((uint)cmdnum >= el->el_map.nfunc) { /* BUG CHECK command */
484 1.1 cgd #ifdef DEBUG_EDIT
485 1.17 lukem (void) fprintf(el->el_errfile,
486 1.17 lukem "ERROR: illegal command from key 0%o\r\n", ch);
487 1.1 cgd #endif /* DEBUG_EDIT */
488 1.17 lukem continue; /* try again */
489 1.17 lukem }
490 1.17 lukem /* now do the real command */
491 1.1 cgd #ifdef DEBUG_READ
492 1.17 lukem {
493 1.17 lukem el_bindings_t *b;
494 1.17 lukem for (b = el->el_map.help; b->name; b++)
495 1.17 lukem if (b->func == cmdnum)
496 1.17 lukem break;
497 1.17 lukem if (b->name)
498 1.17 lukem (void) fprintf(el->el_errfile,
499 1.17 lukem "Executing %s\n", b->name);
500 1.17 lukem else
501 1.17 lukem (void) fprintf(el->el_errfile,
502 1.17 lukem "Error command = %d\n", cmdnum);
503 1.17 lukem }
504 1.1 cgd #endif /* DEBUG_READ */
505 1.23 christos /* vi redo needs these way down the levels... */
506 1.23 christos el->el_state.thiscmd = cmdnum;
507 1.23 christos el->el_state.thisch = ch;
508 1.23 christos if (el->el_map.type == MAP_VI &&
509 1.23 christos el->el_map.current == el->el_map.key &&
510 1.23 christos el->el_chared.c_redo.pos < el->el_chared.c_redo.lim) {
511 1.23 christos if (cmdnum == VI_DELETE_PREV_CHAR &&
512 1.23 christos el->el_chared.c_redo.pos != el->el_chared.c_redo.buf
513 1.23 christos && isprint(el->el_chared.c_redo.pos[-1]))
514 1.23 christos el->el_chared.c_redo.pos--;
515 1.23 christos else
516 1.23 christos *el->el_chared.c_redo.pos++ = ch;
517 1.23 christos }
518 1.17 lukem retval = (*el->el_map.func[cmdnum]) (el, ch);
519 1.22 christos #ifdef DEBUG_READ
520 1.22 christos (void) fprintf(el->el_errfile,
521 1.22 christos "Returned state %d\n", retval );
522 1.22 christos #endif /* DEBUG_READ */
523 1.17 lukem
524 1.17 lukem /* save the last command here */
525 1.17 lukem el->el_state.lastcmd = cmdnum;
526 1.1 cgd
527 1.17 lukem /* use any return value */
528 1.17 lukem switch (retval) {
529 1.17 lukem case CC_CURSOR:
530 1.17 lukem re_refresh_cursor(el);
531 1.17 lukem break;
532 1.17 lukem
533 1.17 lukem case CC_REDISPLAY:
534 1.17 lukem re_clear_lines(el);
535 1.17 lukem re_clear_display(el);
536 1.17 lukem /* FALLTHROUGH */
537 1.17 lukem
538 1.17 lukem case CC_REFRESH:
539 1.17 lukem re_refresh(el);
540 1.17 lukem break;
541 1.17 lukem
542 1.17 lukem case CC_REFRESH_BEEP:
543 1.17 lukem re_refresh(el);
544 1.17 lukem term_beep(el);
545 1.17 lukem break;
546 1.17 lukem
547 1.17 lukem case CC_NORM: /* normal char */
548 1.17 lukem break;
549 1.1 cgd
550 1.17 lukem case CC_ARGHACK: /* Suggested by Rich Salz */
551 1.17 lukem /* <rsalz (at) pineapple.bbn.com> */
552 1.23 christos continue; /* keep going... */
553 1.1 cgd
554 1.17 lukem case CC_EOF: /* end of file typed */
555 1.17 lukem num = 0;
556 1.17 lukem break;
557 1.17 lukem
558 1.17 lukem case CC_NEWLINE: /* normal end of line */
559 1.17 lukem num = el->el_line.lastchar - el->el_line.buffer;
560 1.17 lukem break;
561 1.17 lukem
562 1.17 lukem case CC_FATAL: /* fatal error, reset to known state */
563 1.1 cgd #ifdef DEBUG_READ
564 1.17 lukem (void) fprintf(el->el_errfile,
565 1.17 lukem "*** editor fatal ERROR ***\r\n\n");
566 1.1 cgd #endif /* DEBUG_READ */
567 1.17 lukem /* put (real) cursor in a known place */
568 1.17 lukem re_clear_display(el); /* reset the display stuff */
569 1.17 lukem ch_reset(el); /* reset the input pointers */
570 1.17 lukem re_refresh(el); /* print the prompt again */
571 1.17 lukem break;
572 1.1 cgd
573 1.17 lukem case CC_ERROR:
574 1.17 lukem default: /* functions we don't know about */
575 1.1 cgd #ifdef DEBUG_READ
576 1.17 lukem (void) fprintf(el->el_errfile,
577 1.17 lukem "*** editor ERROR ***\r\n\n");
578 1.1 cgd #endif /* DEBUG_READ */
579 1.17 lukem term_beep(el);
580 1.17 lukem term__flush();
581 1.17 lukem break;
582 1.17 lukem }
583 1.23 christos el->el_state.argument = 1;
584 1.23 christos el->el_state.doingarg = 0;
585 1.23 christos el->el_chared.c_vcmd.action = NOP;
586 1.28 christos if (el->el_flags & UNBUFFERED)
587 1.28 christos break;
588 1.1 cgd }
589 1.1 cgd
590 1.22 christos term__flush(); /* flush any buffered output */
591 1.22 christos /* make sure the tty is set up correctly */
592 1.28 christos if ((el->el_flags & UNBUFFERED) == 0) {
593 1.28 christos read_finish(el);
594 1.28 christos if (nread)
595 1.28 christos *nread = num;
596 1.28 christos } else {
597 1.28 christos if (nread)
598 1.28 christos *nread = el->el_line.lastchar - el->el_line.buffer;
599 1.28 christos }
600 1.17 lukem return (num ? el->el_line.buffer : NULL);
601 1.1 cgd }
602