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.
9 * $FreeBSD: src/contrib/nvi/cl/cl_screen.c,v 1.1.1.1.8.1 2001/11/24 00:02:11 rwatson Exp $
10 * $DragonFly: src/contrib/nvi/cl/cl_screen.c,v 1.2 2003/06/17 04:24:04 dillon Exp $
16 static const char sccsid[] = "@(#)cl_screen.c 10.49 (Berkeley) 9/24/96";
19 #include <sys/types.h>
20 #include <sys/queue.h>
22 #include <bitstring.h>
33 #include "../common/common.h"
36 static int cl_ex_end __P((GS *));
37 static int cl_ex_init __P((SCR *));
38 static void cl_freecap __P((CL_PRIVATE *));
39 static int cl_vi_end __P((GS *));
40 static int cl_vi_init __P((SCR *));
41 static int cl_putenv __P((char *, char *, u_long));
45 * Switch screen types.
47 * PUBLIC: int cl_screen __P((SCR *, u_int32_t));
60 /* See if the current information is incorrect. */
61 if (F_ISSET(gp, G_SRESTART)) {
64 F_CLR(gp, G_SRESTART);
67 /* See if we're already in the right mode. */
68 if (LF_ISSET(SC_EX) && F_ISSET(sp, SC_SCR_EX) ||
69 LF_ISSET(SC_VI) && F_ISSET(sp, SC_SCR_VI))
73 * Fake leaving ex mode.
75 * We don't actually exit ex or vi mode unless forced (e.g. by a window
76 * size change). This is because many curses implementations can't be
77 * called twice in a single program. Plus, it's faster. If the editor
78 * "leaves" vi to enter ex, when it exits ex we'll just fall back into
81 if (F_ISSET(sp, SC_SCR_EX))
85 * Fake leaving vi mode.
87 * Clear out the rest of the screen if we're in the middle of a split
88 * screen. Move to the last line in the current screen -- this makes
89 * terminal scrolling happen naturally. Note: *don't* move past the
90 * end of the screen, as there are ex commands (e.g., :read ! cat file)
91 * that don't want to. Don't clear the info line, its contents may be
92 * valid, e.g. :file|append.
94 if (F_ISSET(sp, SC_SCR_VI)) {
97 if (sp->q.cqe_next != (void *)&gp->dq) {
98 (void)move(RLNO(sp, sp->rows), 0);
101 (void)move(RLNO(sp, sp->rows) - 1, 0);
105 /* Enter the requested mode. */
106 if (LF_ISSET(SC_EX)) {
109 F_SET(clp, CL_IN_EX | CL_SCR_EX_INIT);
112 * If doing an ex screen for ex mode, move to the last line
115 if (F_ISSET(sp, SC_EX) && clp->cup != NULL)
116 tputs(tgoto(clp->cup,
117 0, O_VAL(sp, O_LINES) - 1), 1, cl_putchar);
121 F_CLR(clp, CL_IN_EX);
122 F_SET(clp, CL_SCR_VI_INIT);
129 * Shutdown the screens.
131 * PUBLIC: int cl_quit __P((GS *));
144 * If we weren't really running, ignore it. This happens if the
145 * screen changes size before we've called curses.
147 if (!F_ISSET(clp, CL_SCR_EX_INIT | CL_SCR_VI_INIT))
150 /* Clean up the terminal mappings. */
154 /* Really leave vi mode. */
155 if (F_ISSET(clp, CL_STDIN_TTY) &&
156 F_ISSET(clp, CL_SCR_VI_INIT) && cl_vi_end(gp))
159 /* Really leave ex mode. */
160 if (F_ISSET(clp, CL_STDIN_TTY) &&
161 F_ISSET(clp, CL_SCR_EX_INIT) && cl_ex_end(gp))
165 * If we were running ex when we quit, or we're using an implementation
166 * of curses where endwin() doesn't get this right, restore the original
170 * We always do this because it's too hard to figure out what curses
171 * implementations get it wrong. It may discard type-ahead characters
172 * from the tty queue.
174 (void)tcsetattr(STDIN_FILENO, TCSADRAIN | TCSASOFT, &clp->orig);
176 F_CLR(clp, CL_SCR_EX_INIT | CL_SCR_VI_INIT);
182 * Initialize the curses vi screen.
190 char *o_cols, *o_lines, *o_term, *ttype;
195 /* If already initialized, just set the terminal modes. */
196 if (F_ISSET(clp, CL_SCR_VI_INIT))
199 /* Curses vi always reads from (and writes to) a terminal. */
200 if (!F_ISSET(clp, CL_STDIN_TTY) || !isatty(STDOUT_FILENO)) {
202 "016|Vi's standard input and output must be a terminal");
206 /* We'll need a terminal type. */
207 if (opts_empty(sp, O_TERM, 0))
209 ttype = O_STR(sp, O_TERM);
213 * Changing the row/column and terminal values is done by putting them
214 * into the environment, which is then read by curses. What this loses
215 * in ugliness, it makes up for in stupidity. We can't simply put the
216 * values into the environment ourselves, because in the presence of a
217 * kernel mechanism for returning the window size, entering values into
218 * the environment will screw up future screen resizing events, e.g. if
219 * the user enters a :shell command and then resizes their window. So,
220 * if they weren't already in the environment, we make sure to delete
221 * them immediately after setting them.
224 * Putting the TERM variable into the environment is necessary, even
225 * though we're using newterm() here. We may be using initscr() as
226 * the underlying function.
228 o_term = getenv("TERM");
229 cl_putenv("TERM", ttype, 0);
230 o_lines = getenv("LINES");
231 cl_putenv("LINES", NULL, (u_long)O_VAL(sp, O_LINES));
232 o_cols = getenv("COLUMNS");
233 cl_putenv("COLUMNS", NULL, (u_long)O_VAL(sp, O_COLUMNS));
236 * We don't care about the SCREEN reference returned by newterm, we
237 * never have more than one SCREEN at a time.
240 * The SunOS initscr() can't be called twice. Don't even think about
241 * using it. It fails in subtle ways (e.g. select(2) on fileno(stdin)
242 * stops working). (The SVID notes that applications should only call
246 * The HP/UX newterm doesn't support the NULL first argument, so we
247 * have to specify the terminal type.
250 if (newterm(ttype, stdout, stdin) == NULL) {
252 msgq(sp, M_SYSERR, "%s", ttype);
254 msgq(sp, M_ERR, "%s: unknown terminal type", ttype);
267 * Someone got let out alone without adult supervision -- the SunOS
268 * newterm resets the signal handlers. There's a race, but it's not
271 (void)sig_init(sp->gp, sp);
274 * We use raw mode. What we want is 8-bit clean, however, signals
275 * and flow control should continue to work. Admittedly, it sounds
276 * like cbreak, but it isn't. Using cbreak() can get you additional
277 * things like IEXTEN, which turns on flags like DISCARD and LNEXT.
280 * If raw isn't turning off echo and newlines, something's wrong.
281 * However, it shouldn't hurt.
283 noecho(); /* No character echo. */
284 nonl(); /* No CR/NL translation. */
285 raw(); /* 8-bit clean. */
286 idlok(stdscr, 1); /* Use hardware insert/delete line. */
288 /* Put the cursor keys into application mode. */
289 (void)keypad(stdscr, TRUE);
293 * The screen TI sequence just got sent. See the comment in
294 * cl_funcs.c:cl_attr().
296 clp->ti_te = TI_SENT;
300 * Historic implementations of curses handled SIGTSTP signals
301 * in one of three ways. They either:
303 * 1: Set their own handler, regardless.
304 * 2: Did not set a handler if a handler was already installed.
305 * 3: Set their own handler, but then called any previously set
306 * handler after completing their own cleanup.
308 * We don't try and figure out which behavior is in place, we force
309 * it to SIG_DFL after initializing the curses interface, which means
310 * that curses isn't going to take the signal. Since curses isn't
311 * reentrant (i.e., the whole curses SIGTSTP interface is a fantasy),
312 * we're doing The Right Thing.
314 (void)signal(SIGTSTP, SIG_DFL);
317 * If flow control was on, turn it back on. Turn signals on. ISIG
318 * turns on VINTR, VQUIT, VDSUSP and VSUSP. The main curses code
319 * already installed a handler for VINTR. We're going to disable the
323 * We want to use ^Y as a vi scrolling command. If the user has the
324 * DSUSP character set to ^Y (common practice) clean it up. As it's
325 * equally possible that the user has VDSUSP set to 'a', we disable
326 * it regardless. It doesn't make much sense to suspend vi at read,
327 * so I don't think anyone will care. Alternatively, we could look
328 * it up in the table of legal command characters and turn it off if
329 * it matches one. VDSUSP wasn't in POSIX 1003.1-1990, so we test for
333 * We don't check to see if the user had signals enabled originally.
334 * If they didn't, it's unclear what we're supposed to do here, but
335 * it's also pretty unlikely.
337 if (tcgetattr(STDIN_FILENO, &clp->vi_enter)) {
338 msgq(sp, M_SYSERR, "tcgetattr");
341 if (clp->orig.c_iflag & IXON)
342 clp->vi_enter.c_iflag |= IXON;
343 if (clp->orig.c_iflag & IXOFF)
344 clp->vi_enter.c_iflag |= IXOFF;
346 clp->vi_enter.c_lflag |= ISIG;
348 clp->vi_enter.c_cc[VDSUSP] = _POSIX_VDISABLE;
350 clp->vi_enter.c_cc[VQUIT] = _POSIX_VDISABLE;
351 clp->vi_enter.c_cc[VSUSP] = _POSIX_VDISABLE;
355 * OSF/1 doesn't turn off the <discard>, <literal-next> or <status>
356 * characters when curses switches into raw mode. It should be OK
357 * to do it explicitly for everyone.
360 clp->vi_enter.c_cc[VDISCARD] = _POSIX_VDISABLE;
363 clp->vi_enter.c_cc[VLNEXT] = _POSIX_VDISABLE;
366 clp->vi_enter.c_cc[VSTATUS] = _POSIX_VDISABLE;
369 /* Initialize terminal based information. */
370 if (cl_term_init(sp))
373 fast: /* Set the terminal modes. */
374 if (tcsetattr(STDIN_FILENO, TCSASOFT | TCSADRAIN, &clp->vi_enter)) {
377 msgq(sp, M_SYSERR, "tcsetattr");
378 err: (void)cl_vi_end(sp->gp);
386 * Shutdown the vi screen.
396 /* Restore the cursor keys to normal mode. */
397 (void)keypad(stdscr, FALSE);
400 * If we were running vi when we quit, scroll the screen up a single
401 * line so we don't lose any information.
403 * Move to the bottom of the window (some endwin implementations don't
406 if (!F_ISSET(clp, CL_IN_EX)) {
409 (void)move(LINES - 1, 0);
415 /* End curses window. */
420 * The screen TE sequence just got sent. See the comment in
421 * cl_funcs.c:cl_attr().
423 clp->ti_te = TE_SENT;
430 * Initialize the ex screen.
440 /* If already initialized, just set the terminal modes. */
441 if (F_ISSET(clp, CL_SCR_EX_INIT))
444 /* If not reading from a file, we're done. */
445 if (!F_ISSET(clp, CL_STDIN_TTY))
448 /* Get the ex termcap/terminfo strings. */
449 (void)cl_getcap(sp, "cup", &clp->cup);
450 (void)cl_getcap(sp, "smso", &clp->smso);
451 (void)cl_getcap(sp, "rmso", &clp->rmso);
452 (void)cl_getcap(sp, "el", &clp->el);
453 (void)cl_getcap(sp, "cuu1", &clp->cuu1);
455 /* Enter_standout_mode and exit_standout_mode are paired. */
456 if (clp->smso == NULL || clp->rmso == NULL) {
457 if (clp->smso != NULL) {
461 if (clp->rmso != NULL) {
468 * Turn on canonical mode, with normal input and output processing.
469 * Start with the original terminal settings as the user probably
470 * had them (including any local extensions) set correctly for the
474 * We can't get everything that we need portably; for example, ONLCR,
475 * mapping <newline> to <carriage-return> on output isn't required
476 * by POSIX 1003.1b-1993. If this turns out to be a problem, then
477 * we'll either have to play some games on the mapping, or we'll have
478 * to make all ex printf's output \r\n instead of \n.
480 clp->ex_enter = clp->orig;
481 clp->ex_enter.c_lflag |= ECHO | ECHOE | ECHOK | ICANON | IEXTEN | ISIG;
483 clp->ex_enter.c_lflag |= ECHOCTL;
486 clp->ex_enter.c_lflag |= ECHOKE;
488 clp->ex_enter.c_iflag |= ICRNL;
489 clp->ex_enter.c_oflag |= OPOST;
491 clp->ex_enter.c_oflag |= ONLCR;
494 fast: if (tcsetattr(STDIN_FILENO, TCSADRAIN | TCSASOFT, &clp->ex_enter)) {
497 msgq(sp, M_SYSERR, "tcsetattr");
505 * Shutdown the ex screen.
522 * Retrieve termcap/terminfo strings.
524 * PUBLIC: int cl_getcap __P((SCR *, char *, char **));
527 cl_getcap(sp, name, elementp)
529 char *name, **elementp;
534 if ((t = tigetstr(name)) != NULL &&
535 t != (char *)-1 && (len = strlen(t)) != 0) {
536 MALLOC_RET(sp, *elementp, char *, len + 1);
537 memmove(*elementp, t, len + 1);
544 * Free any allocated termcap/terminfo strings.
550 if (clp->el != NULL) {
554 if (clp->cup != NULL) {
558 if (clp->cuu1 != NULL) {
562 if (clp->rmso != NULL) {
566 if (clp->smso != NULL) {
574 * Put a value into the environment.
577 cl_putenv(name, str, value)
585 (void)snprintf(buf, sizeof(buf), "%lu", value);
586 return (setenv(name, buf, 1));
588 return (setenv(name, str, 1));