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