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
[] = "$Id: cl_screen.c,v 10.53 2000/07/23 11:14:45 skimo Exp $ (Berkeley) $Date: 2000/07/23 11:14:45 $";
16 #include <sys/types.h>
17 #include <sys/queue.h>
19 #include <bitstring.h>
28 #include "../common/common.h"
31 static int cl_ex_end
__P((GS
*));
32 static int cl_ex_init
__P((SCR
*));
33 static void cl_freecap
__P((CL_PRIVATE
*));
34 static int cl_vi_end
__P((GS
*));
35 static int cl_vi_init
__P((SCR
*));
36 static int cl_putenv
__P((char *, char *, u_long
));
40 * Switch screen types.
42 * PUBLIC: int cl_screen __P((SCR *, u_int32_t));
55 win
= CLSP(sp
) ? CLSP(sp
) : stdscr
;
57 /* See if the current information is incorrect. */
58 if (F_ISSET(gp
, G_SRESTART
)) {
65 F_CLR(gp
, G_SRESTART
);
68 /* See if we're already in the right mode. */
69 if (LF_ISSET(SC_EX
) && F_ISSET(sp
, SC_SCR_EX
) ||
70 LF_ISSET(SC_VI
) && F_ISSET(sp
, SC_SCR_VI
))
74 * Fake leaving ex mode.
76 * We don't actually exit ex or vi mode unless forced (e.g. by a window
77 * size change). This is because many curses implementations can't be
78 * called twice in a single program. Plus, it's faster. If the editor
79 * "leaves" vi to enter ex, when it exits ex we'll just fall back into
82 if (F_ISSET(sp
, SC_SCR_EX
))
86 * Fake leaving vi mode.
88 * Clear out the rest of the screen if we're in the middle of a split
89 * screen. Move to the last line in the current screen -- this makes
90 * terminal scrolling happen naturally. Note: *don't* move past the
91 * end of the screen, as there are ex commands (e.g., :read ! cat file)
92 * that don't want to. Don't clear the info line, its contents may be
93 * valid, e.g. :file|append.
95 if (F_ISSET(sp
, SC_SCR_VI
)) {
98 if (sp
->q
.cqe_next
!= (void *)&sp
->wp
->scrq
) {
99 (void)wmove(win
, RLNO(sp
, sp
->rows
), 0);
102 (void)wmove(win
, RLNO(sp
, sp
->rows
) - 1, 0);
106 /* Enter the requested mode. */
107 if (LF_ISSET(SC_EX
)) {
110 F_SET(clp
, CL_IN_EX
| CL_SCR_EX_INIT
);
113 * If doing an ex screen for ex mode, move to the last line
116 if (F_ISSET(sp
, SC_EX
) && clp
->cup
!= NULL
)
117 tputs(tgoto(clp
->cup
,
118 0, O_VAL(sp
, O_LINES
) - 1), 1, cl_putchar
);
122 F_CLR(clp
, CL_IN_EX
);
123 F_SET(clp
, CL_SCR_VI_INIT
);
130 * Shutdown the screens.
132 * PUBLIC: int cl_quit __P((GS *));
145 * If we weren't really running, ignore it. This happens if the
146 * screen changes size before we've called curses.
148 if (!F_ISSET(clp
, CL_SCR_EX_INIT
| CL_SCR_VI_INIT
))
151 /* Clean up the terminal mappings. */
155 /* Really leave vi mode. */
156 if (F_ISSET(clp
, CL_STDIN_TTY
) &&
157 F_ISSET(clp
, CL_SCR_VI_INIT
) && cl_vi_end(gp
))
160 /* Really leave ex mode. */
161 if (F_ISSET(clp
, CL_STDIN_TTY
) &&
162 F_ISSET(clp
, CL_SCR_EX_INIT
) && cl_ex_end(gp
))
166 * If we were running ex when we quit, or we're using an implementation
167 * of curses where endwin() doesn't get this right, restore the original
171 * We always do this because it's too hard to figure out what curses
172 * implementations get it wrong. It may discard type-ahead characters
173 * from the tty queue.
175 (void)tcsetattr(STDIN_FILENO
, TCSADRAIN
| TCSASOFT
, &clp
->orig
);
177 F_CLR(clp
, CL_SCR_EX_INIT
| CL_SCR_VI_INIT
);
183 * Initialize the curses vi screen.
191 char *o_cols
, *o_lines
, *o_term
, *ttype
;
196 /* If already initialized, just set the terminal modes. */
197 if (F_ISSET(clp
, CL_SCR_VI_INIT
))
200 /* Curses vi always reads from (and writes to) a terminal. */
201 if (!F_ISSET(clp
, CL_STDIN_TTY
) || !isatty(STDOUT_FILENO
)) {
203 "016|Vi's standard input and output must be a terminal");
207 /* We'll need a terminal type. */
208 if (opts_empty(sp
, O_TERM
, 0))
210 ttype
= O_STR(sp
, O_TERM
);
214 * Changing the row/column and terminal values is done by putting them
215 * into the environment, which is then read by curses. What this loses
216 * in ugliness, it makes up for in stupidity. We can't simply put the
217 * values into the environment ourselves, because in the presence of a
218 * kernel mechanism for returning the window size, entering values into
219 * the environment will screw up future screen resizing events, e.g. if
220 * the user enters a :shell command and then resizes their window. So,
221 * if they weren't already in the environment, we make sure to delete
222 * them immediately after setting them.
225 * Putting the TERM variable into the environment is necessary, even
226 * though we're using newterm() here. We may be using initscr() as
227 * the underlying function.
229 o_term
= getenv("TERM");
230 cl_putenv("TERM", ttype
, 0);
231 o_lines
= getenv("LINES");
232 cl_putenv("LINES", NULL
, (u_long
)O_VAL(sp
, O_LINES
));
233 o_cols
= getenv("COLUMNS");
234 cl_putenv("COLUMNS", NULL
, (u_long
)O_VAL(sp
, O_COLUMNS
));
237 * We don't care about the SCREEN reference returned by newterm, we
238 * never have more than one SCREEN at a time.
241 * The SunOS initscr() can't be called twice. Don't even think about
242 * using it. It fails in subtle ways (e.g. select(2) on fileno(stdin)
243 * stops working). (The SVID notes that applications should only call
247 * The HP/UX newterm doesn't support the NULL first argument, so we
248 * have to specify the terminal type.
251 if (newterm(ttype
, stdout
, stdin
) == NULL
) {
253 msgq(sp
, M_SYSERR
, "%s", ttype
);
255 msgq(sp
, M_ERR
, "%s: unknown terminal type", ttype
);
268 * Someone got let out alone without adult supervision -- the SunOS
269 * newterm resets the signal handlers. There's a race, but it's not
272 (void)sig_init(sp
->gp
, sp
);
275 * We use raw mode. What we want is 8-bit clean, however, signals
276 * and flow control should continue to work. Admittedly, it sounds
277 * like cbreak, but it isn't. Using cbreak() can get you additional
278 * things like IEXTEN, which turns on flags like DISCARD and LNEXT.
281 * If raw isn't turning off echo and newlines, something's wrong.
282 * However, it shouldn't hurt.
284 noecho(); /* No character echo. */
285 nonl(); /* No CR/NL translation. */
286 raw(); /* 8-bit clean. */
287 idlok(stdscr
, 1); /* Use hardware insert/delete line. */
289 /* Put the cursor keys into application mode. */
290 (void)keypad(stdscr
, TRUE
);
294 * The screen TI sequence just got sent. See the comment in
295 * cl_funcs.c:cl_attr().
297 clp
->ti_te
= TI_SENT
;
301 * Historic implementations of curses handled SIGTSTP signals
302 * in one of three ways. They either:
304 * 1: Set their own handler, regardless.
305 * 2: Did not set a handler if a handler was already installed.
306 * 3: Set their own handler, but then called any previously set
307 * handler after completing their own cleanup.
309 * We don't try and figure out which behavior is in place, we force
310 * it to SIG_DFL after initializing the curses interface, which means
311 * that curses isn't going to take the signal. Since curses isn't
312 * reentrant (i.e., the whole curses SIGTSTP interface is a fantasy),
313 * we're doing The Right Thing.
315 (void)signal(SIGTSTP
, SIG_DFL
);
318 * If flow control was on, turn it back on. Turn signals on. ISIG
319 * turns on VINTR, VQUIT, VDSUSP and VSUSP. The main curses code
320 * already installed a handler for VINTR. We're going to disable the
324 * We want to use ^Y as a vi scrolling command. If the user has the
325 * DSUSP character set to ^Y (common practice) clean it up. As it's
326 * equally possible that the user has VDSUSP set to 'a', we disable
327 * it regardless. It doesn't make much sense to suspend vi at read,
328 * so I don't think anyone will care. Alternatively, we could look
329 * it up in the table of legal command characters and turn it off if
330 * it matches one. VDSUSP wasn't in POSIX 1003.1-1990, so we test for
334 * We don't check to see if the user had signals enabled originally.
335 * If they didn't, it's unclear what we're supposed to do here, but
336 * it's also pretty unlikely.
338 if (tcgetattr(STDIN_FILENO
, &clp
->vi_enter
)) {
339 msgq(sp
, M_SYSERR
, "tcgetattr");
342 if (clp
->orig
.c_iflag
& IXON
)
343 clp
->vi_enter
.c_iflag
|= IXON
;
344 if (clp
->orig
.c_iflag
& IXOFF
)
345 clp
->vi_enter
.c_iflag
|= IXOFF
;
347 clp
->vi_enter
.c_lflag
|= ISIG
;
349 clp
->vi_enter
.c_cc
[VDSUSP
] = _POSIX_VDISABLE
;
351 clp
->vi_enter
.c_cc
[VQUIT
] = _POSIX_VDISABLE
;
352 clp
->vi_enter
.c_cc
[VSUSP
] = _POSIX_VDISABLE
;
356 * OSF/1 doesn't turn off the <discard>, <literal-next> or <status>
357 * characters when curses switches into raw mode. It should be OK
358 * to do it explicitly for everyone.
361 clp
->vi_enter
.c_cc
[VDISCARD
] = _POSIX_VDISABLE
;
364 clp
->vi_enter
.c_cc
[VLNEXT
] = _POSIX_VDISABLE
;
367 clp
->vi_enter
.c_cc
[VSTATUS
] = _POSIX_VDISABLE
;
370 /* Initialize terminal based information. */
371 if (cl_term_init(sp
))
374 fast
: /* Set the terminal modes. */
375 if (tcsetattr(STDIN_FILENO
, TCSASOFT
| TCSADRAIN
, &clp
->vi_enter
)) {
376 msgq(sp
, M_SYSERR
, "tcsetattr");
377 err
: (void)cl_vi_end(sp
->gp
);
385 * Shutdown the vi screen.
395 /* Restore the cursor keys to normal mode. */
396 (void)keypad(stdscr
, FALSE
);
399 * If we were running vi when we quit, scroll the screen up a single
400 * line so we don't lose any information.
402 * Move to the bottom of the window (some endwin implementations don't
405 if (!F_ISSET(clp
, CL_IN_EX
)) {
408 (void)move(LINES
- 1, 0);
414 /* End curses window. */
419 * The screen TE sequence just got sent. See the comment in
420 * cl_funcs.c:cl_attr().
422 clp
->ti_te
= TE_SENT
;
429 * Initialize the ex screen.
439 /* If already initialized, just set the terminal modes. */
440 if (F_ISSET(clp
, CL_SCR_EX_INIT
))
443 /* If not reading from a file, we're done. */
444 if (!F_ISSET(clp
, CL_STDIN_TTY
))
447 /* Get the ex termcap/terminfo strings. */
448 (void)cl_getcap(sp
, "cup", &clp
->cup
);
449 (void)cl_getcap(sp
, "smso", &clp
->smso
);
450 (void)cl_getcap(sp
, "rmso", &clp
->rmso
);
451 (void)cl_getcap(sp
, "el", &clp
->el
);
452 (void)cl_getcap(sp
, "cuu1", &clp
->cuu1
);
454 /* Enter_standout_mode and exit_standout_mode are paired. */
455 if (clp
->smso
== NULL
|| clp
->rmso
== NULL
) {
456 if (clp
->smso
!= NULL
) {
460 if (clp
->rmso
!= NULL
) {
467 * Turn on canonical mode, with normal input and output processing.
468 * Start with the original terminal settings as the user probably
469 * had them (including any local extensions) set correctly for the
473 * We can't get everything that we need portably; for example, ONLCR,
474 * mapping <newline> to <carriage-return> on output isn't required
475 * by POSIX 1003.1b-1993. If this turns out to be a problem, then
476 * we'll either have to play some games on the mapping, or we'll have
477 * to make all ex printf's output \r\n instead of \n.
479 clp
->ex_enter
= clp
->orig
;
480 clp
->ex_enter
.c_lflag
|= ECHO
| ECHOE
| ECHOK
| ICANON
| IEXTEN
| ISIG
;
482 clp
->ex_enter
.c_lflag
|= ECHOCTL
;
485 clp
->ex_enter
.c_lflag
|= ECHOKE
;
487 clp
->ex_enter
.c_iflag
|= ICRNL
;
488 clp
->ex_enter
.c_oflag
|= OPOST
;
490 clp
->ex_enter
.c_oflag
|= ONLCR
;
493 fast
: if (tcsetattr(STDIN_FILENO
, TCSADRAIN
| TCSASOFT
, &clp
->ex_enter
)) {
494 msgq(sp
, M_SYSERR
, "tcsetattr");
502 * Shutdown the ex screen.
519 * Retrieve termcap/terminfo strings.
521 * PUBLIC: int cl_getcap __P((SCR *, char *, char **));
524 cl_getcap(sp
, name
, elementp
)
526 char *name
, **elementp
;
531 if ((t
= tigetstr(name
)) != NULL
&&
532 t
!= (char *)-1 && (len
= strlen(t
)) != 0) {
533 MALLOC_RET(sp
, *elementp
, char *, len
+ 1);
534 memmove(*elementp
, t
, len
+ 1);
541 * Free any allocated termcap/terminfo strings.
547 if (clp
->el
!= NULL
) {
551 if (clp
->cup
!= NULL
) {
555 if (clp
->cuu1
!= NULL
) {
559 if (clp
->rmso
!= NULL
) {
563 if (clp
->smso
!= NULL
) {
571 * Put a value into the environment.
574 cl_putenv(name
, str
, value
)
582 (void)snprintf(buf
, sizeof(buf
), "%lu", value
);
583 return (setenv(name
, buf
, 1));
585 return (setenv(name
, str
, 1));