7b6abc487998891bce4e21845b5374acd6596166
[ncurses.git] / ncurses / tinfo / tinfo_driver.c
1 /****************************************************************************
2  * Copyright (c) 2008-2012,2013 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 /****************************************************************************
30  *  Author: Juergen Pfeifer                                                 *
31  *                                                                          *
32  ****************************************************************************/
33
34 #include <curses.priv.h>
35 #define CUR ((TERMINAL*)TCB)->type.
36 #include <tic.h>
37
38 #if HAVE_NANOSLEEP
39 #include <time.h>
40 #if HAVE_SYS_TIME_H
41 #include <sys/time.h>           /* needed for MacOS X DP3 */
42 #endif
43 #endif
44
45 #if HAVE_SIZECHANGE
46 # if !defined(sun) || !TERMIOS
47 #  if HAVE_SYS_IOCTL_H
48 #   include <sys/ioctl.h>
49 #  endif
50 # endif
51 #endif
52
53 MODULE_ID("$Id: tinfo_driver.c,v 1.29 2013/01/12 22:01:43 tom Exp $")
54
55 /*
56  * SCO defines TIOCGSIZE and the corresponding struct.  Other systems (SunOS,
57  * Solaris, IRIX) define TIOCGWINSZ and struct winsize.
58  */
59 #ifdef TIOCGSIZE
60 # define IOCTL_WINSIZE TIOCGSIZE
61 # define STRUCT_WINSIZE struct ttysize
62 # define WINSIZE_ROWS(n) (int)n.ts_lines
63 # define WINSIZE_COLS(n) (int)n.ts_cols
64 #else
65 # ifdef TIOCGWINSZ
66 #  define IOCTL_WINSIZE TIOCGWINSZ
67 #  define STRUCT_WINSIZE struct winsize
68 #  define WINSIZE_ROWS(n) (int)n.ws_row
69 #  define WINSIZE_COLS(n) (int)n.ws_col
70 # endif
71 #endif
72
73 /*
74  * These should be screen structure members.  They need to be globals for
75  * historical reasons.  So we assign them in start_color() and also in
76  * set_term()'s screen-switching logic.
77  */
78 #if USE_REENTRANT
79 NCURSES_EXPORT(int)
80 NCURSES_PUBLIC_VAR(COLOR_PAIRS) (void)
81 {
82     return CURRENT_SCREEN ? CURRENT_SCREEN->_pair_count : -1;
83 }
84 NCURSES_EXPORT(int)
85 NCURSES_PUBLIC_VAR(COLORS) (void)
86 {
87     return CURRENT_SCREEN ? CURRENT_SCREEN->_color_count : -1;
88 }
89 #else
90 NCURSES_EXPORT_VAR(int) COLOR_PAIRS = 0;
91 NCURSES_EXPORT_VAR(int) COLORS = 0;
92 #endif
93
94 #define TCBMAGIC NCDRV_MAGIC(NCDRV_TINFO)
95 #define AssertTCB() assert(TCB!=0 && TCB->magic==TCBMAGIC)
96 #define SetSP() assert(TCB->csp!=0); sp = TCB->csp; (void) sp
97
98 /*
99  * This routine needs to do all the work to make curscr look
100  * like newscr.
101  */
102 static int
103 drv_doupdate(TERMINAL_CONTROL_BLOCK * TCB)
104 {
105     AssertTCB();
106     return TINFO_DOUPDATE(TCB->csp);
107 }
108
109 static bool
110 drv_CanHandle(TERMINAL_CONTROL_BLOCK * TCB, const char *tname, int *errret)
111 {
112     bool result = FALSE;
113     int status;
114     TERMINAL *termp;
115     SCREEN *sp;
116
117     assert(TCB != 0 && tname != 0);
118     termp = (TERMINAL *) TCB;
119     sp = TCB->csp;
120     TCB->magic = TCBMAGIC;
121
122 #if (USE_DATABASE || USE_TERMCAP)
123     status = _nc_setup_tinfo(tname, &termp->type);
124 #else
125     status = TGETENT_NO;
126 #endif
127
128     /* try fallback list if entry on disk */
129     if (status != TGETENT_YES) {
130         const TERMTYPE *fallback = _nc_fallback(tname);
131
132         if (fallback) {
133             termp->type = *fallback;
134             status = TGETENT_YES;
135         }
136     }
137
138     if (status != TGETENT_YES) {
139         NCURSES_SP_NAME(del_curterm) (NCURSES_SP_ARGx termp);
140         if (status == TGETENT_ERR) {
141             ret_error0(status, "terminals database is inaccessible\n");
142         } else if (status == TGETENT_NO) {
143             ret_error1(status, "unknown terminal type.\n", tname);
144         }
145     }
146     result = TRUE;
147 #if !USE_REENTRANT
148     strncpy(ttytype, termp->type.term_names, (size_t) NAMESIZE - 1);
149     ttytype[NAMESIZE - 1] = '\0';
150 #endif
151
152     if (command_character)
153         _nc_tinfo_cmdch(termp, *command_character);
154
155     if (generic_type) {
156         /*
157          * BSD 4.3's termcap contains mis-typed "gn" for wy99.  Do a sanity
158          * check before giving up.
159          */
160         if ((VALID_STRING(cursor_address)
161              || (VALID_STRING(cursor_down) && VALID_STRING(cursor_home)))
162             && VALID_STRING(clear_screen)) {
163             ret_error1(TGETENT_YES, "terminal is not really generic.\n", tname);
164         } else {
165             ret_error1(TGETENT_NO, "I need something more specific.\n", tname);
166         }
167     }
168     if (hard_copy) {
169         ret_error1(TGETENT_YES, "I can't handle hardcopy terminals.\n", tname);
170     }
171
172     return result;
173 }
174
175 static int
176 drv_dobeepflash(TERMINAL_CONTROL_BLOCK * TCB, int beepFlag)
177 {
178     SCREEN *sp;
179     int res = ERR;
180
181     AssertTCB();
182     SetSP();
183
184     /* FIXME: should make sure that we are not in altchar mode */
185     if (beepFlag) {
186         if (bell) {
187             res = NCURSES_PUTP2("bell", bell);
188             NCURSES_SP_NAME(_nc_flush) (sp);
189         } else if (flash_screen) {
190             res = NCURSES_PUTP2("flash_screen", flash_screen);
191             NCURSES_SP_NAME(_nc_flush) (sp);
192         }
193     } else {
194         if (flash_screen) {
195             res = NCURSES_PUTP2("flash_screen", flash_screen);
196             NCURSES_SP_NAME(_nc_flush) (sp);
197         } else if (bell) {
198             res = NCURSES_PUTP2("bell", bell);
199             NCURSES_SP_NAME(_nc_flush) (sp);
200         }
201     }
202     return res;
203 }
204
205 /*
206  * SVr4 curses is known to interchange color codes (1,4) and (3,6), possibly
207  * to maintain compatibility with a pre-ANSI scheme.  The same scheme is
208  * also used in the FreeBSD syscons.
209  */
210 static int
211 toggled_colors(int c)
212 {
213     if (c < 16) {
214         static const int table[] =
215         {0, 4, 2, 6, 1, 5, 3, 7,
216          8, 12, 10, 14, 9, 13, 11, 15};
217         c = table[c];
218     }
219     return c;
220 }
221
222 static int
223 drv_print(TERMINAL_CONTROL_BLOCK * TCB, char *data, int len)
224 {
225     SCREEN *sp;
226
227     AssertTCB();
228     SetSP();
229 #if NCURSES_EXT_FUNCS
230     return NCURSES_SP_NAME(mcprint) (TCB->csp, data, len);
231 #else
232     return ERR;
233 #endif
234 }
235
236 static int
237 drv_defaultcolors(TERMINAL_CONTROL_BLOCK * TCB, int fg, int bg)
238 {
239     SCREEN *sp;
240     int code = ERR;
241
242     AssertTCB();
243     SetSP();
244
245     if (sp != 0 && orig_pair && orig_colors && (initialize_pair != 0)) {
246 #if NCURSES_EXT_FUNCS
247         sp->_default_color = isDefaultColor(fg) || isDefaultColor(bg);
248         sp->_has_sgr_39_49 = (NCURSES_SP_NAME(tigetflag) (NCURSES_SP_ARGx
249                                                           "AX")
250                               == TRUE);
251         sp->_default_fg = isDefaultColor(fg) ? COLOR_DEFAULT : (fg & C_MASK);
252         sp->_default_bg = isDefaultColor(bg) ? COLOR_DEFAULT : (bg & C_MASK);
253         if (sp->_color_pairs != 0) {
254             bool save = sp->_default_color;
255             sp->_default_color = TRUE;
256             NCURSES_SP_NAME(init_pair) (NCURSES_SP_ARGx
257                                         0,
258                                         (short)fg,
259                                         (short)bg);
260             sp->_default_color = save;
261         }
262 #endif
263         code = OK;
264     }
265     return (code);
266 }
267
268 static void
269 drv_setcolor(TERMINAL_CONTROL_BLOCK * TCB,
270              int fore,
271              int color,
272              NCURSES_SP_OUTC outc)
273 {
274     SCREEN *sp;
275
276     AssertTCB();
277     SetSP();
278
279     if (fore) {
280         if (set_a_foreground) {
281             TPUTS_TRACE("set_a_foreground");
282             NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx
283                                     TPARM_1(set_a_foreground, color), 1, outc);
284         } else {
285             TPUTS_TRACE("set_foreground");
286             NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx
287                                     TPARM_1(set_foreground,
288                                             toggled_colors(color)), 1, outc);
289         }
290     } else {
291         if (set_a_background) {
292             TPUTS_TRACE("set_a_background");
293             NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx
294                                     TPARM_1(set_a_background, color), 1, outc);
295         } else {
296             TPUTS_TRACE("set_background");
297             NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx
298                                     TPARM_1(set_background,
299                                             toggled_colors(color)), 1, outc);
300         }
301     }
302 }
303
304 static bool
305 drv_rescol(TERMINAL_CONTROL_BLOCK * TCB)
306 {
307     bool result = FALSE;
308     SCREEN *sp;
309
310     AssertTCB();
311     SetSP();
312
313     if (orig_pair != 0) {
314         NCURSES_PUTP2("orig_pair", orig_pair);
315         result = TRUE;
316     }
317     return result;
318 }
319
320 static bool
321 drv_rescolors(TERMINAL_CONTROL_BLOCK * TCB)
322 {
323     int result = FALSE;
324     SCREEN *sp;
325
326     AssertTCB();
327     SetSP();
328
329     if (orig_colors != 0) {
330         NCURSES_PUTP2("orig_colors", orig_colors);
331         result = TRUE;
332     }
333     return result;
334 }
335
336 static int
337 drv_size(TERMINAL_CONTROL_BLOCK * TCB, int *linep, int *colp)
338 {
339     SCREEN *sp;
340     bool useEnv = TRUE;
341     bool useTioctl = TRUE;
342
343     AssertTCB();
344     sp = TCB->csp;              /* can be null here */
345
346     if (sp) {
347         useEnv = sp->_use_env;
348         useTioctl = sp->_use_tioctl;
349     } else {
350         useEnv = _nc_prescreen.use_env;
351         useTioctl = _nc_prescreen.use_tioctl;
352     }
353
354     /* figure out the size of the screen */
355     T(("screen size: terminfo lines = %d columns = %d", lines, columns));
356
357     *linep = (int) lines;
358     *colp = (int) columns;
359
360     if (useEnv || useTioctl) {
361         int value;
362
363 #ifdef __EMX__
364         {
365             int screendata[2];
366             _scrsize(screendata);
367             *colp = screendata[0];
368             *linep = ((sp != 0 && sp->_filtered)
369                       ? 1
370                       : screendata[1]);
371             T(("EMX screen size: environment LINES = %d COLUMNS = %d",
372                *linep, *colp));
373         }
374 #endif
375 #if HAVE_SIZECHANGE
376         /* try asking the OS */
377         {
378             TERMINAL *termp = (TERMINAL *) TCB;
379             if (isatty(termp->Filedes)) {
380                 STRUCT_WINSIZE size;
381
382                 errno = 0;
383                 do {
384                     if (ioctl(termp->Filedes, IOCTL_WINSIZE, &size) >= 0) {
385                         *linep = ((sp != 0 && sp->_filtered)
386                                   ? 1
387                                   : WINSIZE_ROWS(size));
388                         *colp = WINSIZE_COLS(size);
389                         T(("SYS screen size: environment LINES = %d COLUMNS = %d",
390                            *linep, *colp));
391                         break;
392                     }
393                 } while
394                     (errno == EINTR);
395             }
396         }
397 #endif /* HAVE_SIZECHANGE */
398
399         if (useEnv) {
400             if (useTioctl) {
401                 /*
402                  * If environment variables are used, update them.
403                  */
404                 if ((sp == 0 || !sp->_filtered) && _nc_getenv_num("LINES") > 0) {
405                     _nc_setenv_num("LINES", *linep);
406                 }
407                 if (_nc_getenv_num("COLUMNS") > 0) {
408                     _nc_setenv_num("COLUMNS", *colp);
409                 }
410             }
411
412             /*
413              * Finally, look for environment variables.
414              *
415              * Solaris lets users override either dimension with an environment
416              * variable.
417              */
418             if ((value = _nc_getenv_num("LINES")) > 0) {
419                 *linep = value;
420                 T(("screen size: environment LINES = %d", *linep));
421             }
422             if ((value = _nc_getenv_num("COLUMNS")) > 0) {
423                 *colp = value;
424                 T(("screen size: environment COLUMNS = %d", *colp));
425             }
426         }
427
428         /* if we can't get dynamic info about the size, use static */
429         if (*linep <= 0) {
430             *linep = (int) lines;
431         }
432         if (*colp <= 0) {
433             *colp = (int) columns;
434         }
435
436         /* the ultimate fallback, assume fixed 24x80 size */
437         if (*linep <= 0) {
438             *linep = 24;
439         }
440         if (*colp <= 0) {
441             *colp = 80;
442         }
443
444         /*
445          * Put the derived values back in the screen-size caps, so
446          * tigetnum() and tgetnum() will do the right thing.
447          */
448         lines = (short) (*linep);
449         columns = (short) (*colp);
450     }
451
452     T(("screen size is %dx%d", *linep, *colp));
453     return OK;
454 }
455
456 static int
457 drv_getsize(TERMINAL_CONTROL_BLOCK * TCB, int *l, int *c)
458 {
459     AssertTCB();
460     assert(l != 0 && c != 0);
461     *l = lines;
462     *c = columns;
463     return OK;
464 }
465
466 static int
467 drv_setsize(TERMINAL_CONTROL_BLOCK * TCB, int l, int c)
468 {
469     AssertTCB();
470     lines = (short) l;
471     columns = (short) c;
472     return OK;
473 }
474
475 static int
476 drv_sgmode(TERMINAL_CONTROL_BLOCK * TCB, int setFlag, TTY * buf)
477 {
478     SCREEN *sp = TCB->csp;
479     TERMINAL *_term = (TERMINAL *) TCB;
480     int result = OK;
481
482     AssertTCB();
483     if (setFlag) {
484         for (;;) {
485             if (SET_TTY(_term->Filedes, buf) != 0) {
486                 if (errno == EINTR)
487                     continue;
488                 if (errno == ENOTTY) {
489                     if (sp)
490                         sp->_notty = TRUE;
491                 }
492                 result = ERR;
493             }
494             break;
495         }
496     } else {
497         for (;;) {
498             if (GET_TTY(_term->Filedes, buf) != 0) {
499                 if (errno == EINTR)
500                     continue;
501                 result = ERR;
502             }
503             break;
504         }
505     }
506     return result;
507 }
508
509 static int
510 drv_mode(TERMINAL_CONTROL_BLOCK * TCB, int progFlag, int defFlag)
511 {
512     SCREEN *sp;
513     TERMINAL *_term = (TERMINAL *) TCB;
514     int code = ERR;
515
516     AssertTCB();
517     sp = TCB->csp;
518
519     if (progFlag)               /* prog mode */
520     {
521         if (defFlag) {
522             /* def_prog_mode */
523             /*
524              * Turn off the XTABS bit in the tty structure if it was on.
525              */
526             if ((drv_sgmode(TCB, FALSE, &(_term->Nttyb)) == OK)) {
527 #ifdef TERMIOS
528                 _term->Nttyb.c_oflag &= (unsigned) ~OFLAGS_TABS;
529 #else
530                 _term->Nttyb.sg_flags &= (unsigned) ~XTABS;
531 #endif
532                 code = OK;
533             }
534         } else {
535             /* reset_prog_mode */
536             if (drv_sgmode(TCB, TRUE, &(_term->Nttyb)) == OK) {
537                 if (sp) {
538                     if (sp->_keypad_on)
539                         _nc_keypad(sp, TRUE);
540                     NC_BUFFERED(sp, TRUE);
541                 }
542                 code = OK;
543             }
544         }
545     } else {                    /* shell mode */
546         if (defFlag) {
547             /* def_shell_mode */
548             /*
549              * If XTABS was on, remove the tab and backtab capabilities.
550              */
551             if (drv_sgmode(TCB, FALSE, &(_term->Ottyb)) == OK) {
552 #ifdef TERMIOS
553                 if (_term->Ottyb.c_oflag & OFLAGS_TABS)
554                     tab = back_tab = NULL;
555 #else
556                 if (_term->Ottyb.sg_flags & XTABS)
557                     tab = back_tab = NULL;
558 #endif
559                 code = OK;
560             }
561         } else {
562             /* reset_shell_mode */
563             if (sp) {
564                 _nc_keypad(sp, FALSE);
565                 NCURSES_SP_NAME(_nc_flush) (sp);
566                 NC_BUFFERED(sp, FALSE);
567             }
568             code = drv_sgmode(TCB, TRUE, &(_term->Ottyb));
569         }
570     }
571     return (code);
572 }
573
574 static void
575 drv_wrap(SCREEN *sp)
576 {
577     if (sp) {
578         sp->_mouse_wrap(sp);
579         NCURSES_SP_NAME(_nc_screen_wrap) (sp);
580         NCURSES_SP_NAME(_nc_mvcur_wrap) (sp);   /* wrap up cursor addressing */
581     }
582 }
583
584 static void
585 drv_release(TERMINAL_CONTROL_BLOCK * TCB GCC_UNUSED)
586 {
587 }
588
589 #  define SGR0_TEST(mode) (mode != 0) && (exit_attribute_mode == 0 || strcmp(mode, exit_attribute_mode))
590
591 static void
592 drv_screen_init(SCREEN *sp)
593 {
594     TERMINAL_CONTROL_BLOCK *TCB = TCBOf(sp);
595
596     AssertTCB();
597
598     /*
599      * Check for mismatched graphic-rendition capabilities.  Most SVr4
600      * terminfo trees contain entries that have rmul or rmso equated to
601      * sgr0 (Solaris curses copes with those entries).  We do this only
602      * for curses, since many termcap applications assume that
603      * smso/rmso and smul/rmul are paired, and will not function
604      * properly if we remove rmso or rmul.  Curses applications
605      * shouldn't be looking at this detail.
606      */
607     sp->_use_rmso = SGR0_TEST(exit_standout_mode);
608     sp->_use_rmul = SGR0_TEST(exit_underline_mode);
609
610     /*
611      * Check whether we can optimize scrolling under dumb terminals in
612      * case we do not have any of these capabilities, scrolling
613      * optimization will be useless.
614      */
615     sp->_scrolling = ((scroll_forward && scroll_reverse) ||
616                       ((parm_rindex ||
617                         parm_insert_line ||
618                         insert_line) &&
619                        (parm_index ||
620                         parm_delete_line ||
621                         delete_line)));
622
623     NCURSES_SP_NAME(baudrate) (sp);
624
625     NCURSES_SP_NAME(_nc_mvcur_init) (sp);
626     /* initialize terminal to a sane state */
627     NCURSES_SP_NAME(_nc_screen_init) (sp);
628 }
629
630 static void
631 drv_init(TERMINAL_CONTROL_BLOCK * TCB)
632 {
633     TERMINAL *trm;
634
635     AssertTCB();
636
637     trm = (TERMINAL *) TCB;
638
639     TCB->info.initcolor = VALID_STRING(initialize_color);
640     TCB->info.canchange = can_change;
641     TCB->info.hascolor = ((VALID_NUMERIC(max_colors) && VALID_NUMERIC(max_pairs)
642                            && (((set_foreground != NULL)
643                                 && (set_background != NULL))
644                                || ((set_a_foreground != NULL)
645                                    && (set_a_background != NULL))
646                                || set_color_pair)) ? TRUE : FALSE);
647
648     TCB->info.caninit = !(exit_ca_mode && non_rev_rmcup);
649
650     TCB->info.maxpairs = VALID_NUMERIC(max_pairs) ? max_pairs : 0;
651     TCB->info.maxcolors = VALID_NUMERIC(max_colors) ? max_colors : 0;
652     TCB->info.numlabels = VALID_NUMERIC(num_labels) ? num_labels : 0;
653     TCB->info.labelwidth = VALID_NUMERIC(label_width) ? label_width : 0;
654     TCB->info.labelheight = VALID_NUMERIC(label_height) ? label_height : 0;
655     TCB->info.nocolorvideo = VALID_NUMERIC(no_color_video) ? no_color_video
656         : 0;
657     TCB->info.tabsize = VALID_NUMERIC(init_tabs) ? (int) init_tabs : 8;
658
659     TCB->info.defaultPalette = hue_lightness_saturation ? _nc_hls_palette : _nc_cga_palette;
660
661     /*
662      * If an application calls setupterm() rather than initscr() or
663      * newterm(), we will not have the def_prog_mode() call in
664      * _nc_setupscreen().  Do it now anyway, so we can initialize the
665      * baudrate.
666      */
667     if (isatty(trm->Filedes)) {
668         TCB->drv->mode(TCB, TRUE, TRUE);
669     }
670 }
671
672 #define MAX_PALETTE     8
673 #define InPalette(n)    ((n) >= 0 && (n) < MAX_PALETTE)
674
675 static void
676 drv_initpair(TERMINAL_CONTROL_BLOCK * TCB, int pair, int f, int b)
677 {
678     SCREEN *sp;
679
680     AssertTCB();
681     SetSP();
682
683     if ((initialize_pair != NULL) && InPalette(f) && InPalette(b)) {
684         const color_t *tp = InfoOf(sp).defaultPalette;
685
686         TR(TRACE_ATTRS,
687            ("initializing pair: pair = %d, fg=(%d,%d,%d), bg=(%d,%d,%d)",
688             pair,
689             tp[f].red, tp[f].green, tp[f].blue,
690             tp[b].red, tp[b].green, tp[b].blue));
691
692         NCURSES_PUTP2("initialize_pair",
693                       TPARM_7(initialize_pair,
694                               pair,
695                               tp[f].red, tp[f].green, tp[f].blue,
696                               tp[b].red, tp[b].green, tp[b].blue));
697     }
698 }
699
700 static int
701 default_fg(SCREEN *sp)
702 {
703 #if NCURSES_EXT_FUNCS
704     return (sp != 0) ? sp->_default_fg : COLOR_WHITE;
705 #else
706     return COLOR_WHITE;
707 #endif
708 }
709
710 static int
711 default_bg(SCREEN *sp)
712 {
713 #if NCURSES_EXT_FUNCS
714     return sp != 0 ? sp->_default_bg : COLOR_BLACK;
715 #else
716     return COLOR_BLACK;
717 #endif
718 }
719
720 static void
721 drv_initcolor(TERMINAL_CONTROL_BLOCK * TCB,
722               int color, int r, int g, int b)
723 {
724     SCREEN *sp = TCB->csp;
725
726     AssertTCB();
727     if (initialize_color != NULL) {
728         NCURSES_PUTP2("initialize_color",
729                       TPARM_4(initialize_color, color, r, g, b));
730     }
731 }
732
733 static void
734 drv_do_color(TERMINAL_CONTROL_BLOCK * TCB,
735              int old_pair,
736              int pair,
737              int reverse,
738              NCURSES_SP_OUTC outc)
739 {
740     SCREEN *sp = TCB->csp;
741     NCURSES_COLOR_T fg = COLOR_DEFAULT;
742     NCURSES_COLOR_T bg = COLOR_DEFAULT;
743     NCURSES_COLOR_T old_fg, old_bg;
744
745     AssertTCB();
746     if (sp == 0)
747         return;
748
749     if (pair < 0 || pair >= COLOR_PAIRS) {
750         return;
751     } else if (pair != 0) {
752         if (set_color_pair) {
753             TPUTS_TRACE("set_color_pair");
754             NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx
755                                     TPARM_1(set_color_pair, pair), 1, outc);
756             return;
757         } else if (sp != 0) {
758             NCURSES_SP_NAME(pair_content) (NCURSES_SP_ARGx
759                                            (short) pair,
760                                            &fg,
761                                            &bg);
762         }
763     }
764
765     if (old_pair >= 0
766         && sp != 0
767         && NCURSES_SP_NAME(pair_content) (NCURSES_SP_ARGx
768                                           (short) old_pair,
769                                           &old_fg,
770                                           &old_bg) !=ERR) {
771         if ((isDefaultColor(fg) && !isDefaultColor(old_fg))
772             || (isDefaultColor(bg) && !isDefaultColor(old_bg))) {
773 #if NCURSES_EXT_FUNCS
774             /*
775              * A minor optimization - but extension.  If "AX" is specified in
776              * the terminal description, treat it as screen's indicator of ECMA
777              * SGR 39 and SGR 49, and assume the two sequences are independent.
778              */
779             if (sp->_has_sgr_39_49
780                 && isDefaultColor(old_bg)
781                 && !isDefaultColor(old_fg)) {
782                 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx "\033[39m", 1, outc);
783             } else if (sp->_has_sgr_39_49
784                        && isDefaultColor(old_fg)
785                        && !isDefaultColor(old_bg)) {
786                 NCURSES_SP_NAME(tputs) (NCURSES_SP_ARGx "\033[49m", 1, outc);
787             } else
788 #endif
789                 drv_rescol(TCB);
790         }
791     } else {
792         drv_rescol(TCB);
793         if (old_pair < 0)
794             return;
795     }
796
797 #if NCURSES_EXT_FUNCS
798     if (isDefaultColor(fg))
799         fg = (NCURSES_COLOR_T) default_fg(sp);
800     if (isDefaultColor(bg))
801         bg = (NCURSES_COLOR_T) default_bg(sp);
802 #endif
803
804     if (reverse) {
805         NCURSES_COLOR_T xx = fg;
806         fg = bg;
807         bg = xx;
808     }
809
810     TR(TRACE_ATTRS, ("setting colors: pair = %d, fg = %d, bg = %d", pair,
811                      fg, bg));
812
813     if (!isDefaultColor(fg)) {
814         drv_setcolor(TCB, TRUE, fg, outc);
815     }
816     if (!isDefaultColor(bg)) {
817         drv_setcolor(TCB, FALSE, bg, outc);
818     }
819 }
820
821 #define xterm_kmous "\033[M"
822 static void
823 init_xterm_mouse(SCREEN *sp)
824 {
825     sp->_mouse_type = M_XTERM;
826     sp->_mouse_xtermcap = NCURSES_SP_NAME(tigetstr) (NCURSES_SP_ARGx "XM");
827     if (!VALID_STRING(sp->_mouse_xtermcap))
828         sp->_mouse_xtermcap = "\033[?1000%?%p1%{1}%=%th%el%;";
829 }
830
831 static void
832 drv_initmouse(TERMINAL_CONTROL_BLOCK * TCB)
833 {
834     SCREEN *sp;
835
836     AssertTCB();
837     SetSP();
838
839     /* we know how to recognize mouse events under "xterm" */
840     if (sp != 0) {
841         if (key_mouse != 0) {
842             if (!strcmp(key_mouse, xterm_kmous)
843                 || strstr(TerminalOf(sp)->type.term_names, "xterm") != 0) {
844                 init_xterm_mouse(sp);
845             }
846         } else if (strstr(TerminalOf(sp)->type.term_names, "xterm") != 0) {
847             if (_nc_add_to_try(&(sp->_keytry), xterm_kmous, KEY_MOUSE) == OK)
848                 init_xterm_mouse(sp);
849         }
850     }
851 }
852
853 static int
854 drv_testmouse(TERMINAL_CONTROL_BLOCK * TCB,
855               int delay
856               EVENTLIST_2nd(_nc_eventlist * evl))
857 {
858     int rc = 0;
859     SCREEN *sp;
860
861     AssertTCB();
862     SetSP();
863
864 #if USE_SYSMOUSE
865     if ((sp->_mouse_type == M_SYSMOUSE)
866         && (sp->_sysmouse_head < sp->_sysmouse_tail)) {
867         rc = TW_MOUSE;
868     } else
869 #endif
870     {
871         rc = TCBOf(sp)->drv->twait(TCBOf(sp),
872                                    TWAIT_MASK,
873                                    delay,
874                                    (int *) 0
875                                    EVENTLIST_2nd(evl));
876 #if USE_SYSMOUSE
877         if ((sp->_mouse_type == M_SYSMOUSE)
878             && (sp->_sysmouse_head < sp->_sysmouse_tail)
879             && (rc == 0)
880             && (errno == EINTR)) {
881             rc |= TW_MOUSE;
882         }
883 #endif
884     }
885     return rc;
886 }
887
888 static int
889 drv_mvcur(TERMINAL_CONTROL_BLOCK * TCB, int yold, int xold, int ynew, int xnew)
890 {
891     SCREEN *sp = TCB->csp;
892     AssertTCB();
893     return NCURSES_SP_NAME(_nc_mvcur) (sp, yold, xold, ynew, xnew);
894 }
895
896 static void
897 drv_hwlabel(TERMINAL_CONTROL_BLOCK * TCB, int labnum, char *text)
898 {
899     SCREEN *sp = TCB->csp;
900
901     AssertTCB();
902     if (labnum > 0 && labnum <= num_labels) {
903         NCURSES_PUTP2("plab_norm",
904                       TPARM_2(plab_norm, labnum, text));
905     }
906 }
907
908 static void
909 drv_hwlabelOnOff(TERMINAL_CONTROL_BLOCK * TCB, int OnFlag)
910 {
911     SCREEN *sp = TCB->csp;
912
913     AssertTCB();
914     if (OnFlag) {
915         NCURSES_PUTP2("label_on", label_on);
916     } else {
917         NCURSES_PUTP2("label_off", label_off);
918     }
919 }
920
921 static chtype
922 drv_conattr(TERMINAL_CONTROL_BLOCK * TCB)
923 {
924     SCREEN *sp = TCB->csp;
925     chtype attrs = A_NORMAL;
926
927     AssertTCB();
928     if (enter_alt_charset_mode)
929         attrs |= A_ALTCHARSET;
930
931     if (enter_blink_mode)
932         attrs |= A_BLINK;
933
934     if (enter_bold_mode)
935         attrs |= A_BOLD;
936
937     if (enter_dim_mode)
938         attrs |= A_DIM;
939
940     if (enter_reverse_mode)
941         attrs |= A_REVERSE;
942
943     if (enter_standout_mode)
944         attrs |= A_STANDOUT;
945
946     if (enter_protected_mode)
947         attrs |= A_PROTECT;
948
949     if (enter_secure_mode)
950         attrs |= A_INVIS;
951
952     if (enter_underline_mode)
953         attrs |= A_UNDERLINE;
954
955     if (sp && sp->_coloron)
956         attrs |= A_COLOR;
957
958     return (attrs);
959 }
960
961 static void
962 drv_setfilter(TERMINAL_CONTROL_BLOCK * TCB)
963 {
964     AssertTCB();
965
966     clear_screen = 0;
967     cursor_down = parm_down_cursor = 0;
968     cursor_address = 0;
969     cursor_up = parm_up_cursor = 0;
970     row_address = 0;
971     cursor_home = carriage_return;
972 }
973
974 static void
975 drv_initacs(TERMINAL_CONTROL_BLOCK * TCB, chtype *real_map, chtype *fake_map)
976 {
977     SCREEN *sp = TCB->csp;
978
979     AssertTCB();
980     assert(sp != 0);
981     if (ena_acs != NULL) {
982         NCURSES_PUTP2("ena_acs", ena_acs);
983     }
984 #if NCURSES_EXT_FUNCS
985     /*
986      * Linux console "supports" the "PC ROM" character set by the coincidence
987      * that smpch/rmpch and smacs/rmacs have the same values.  ncurses has
988      * no codepage support (see SCO Merge for an example).  Outside of the
989      * values defined in acsc, there are no definitions for the "PC ROM"
990      * character set (assumed by some applications to be codepage 437), but we
991      * allow those applications to use those codepoints.
992      *
993      * test/blue.c uses this feature.
994      */
995 #define PCH_KLUDGE(a,b) (a != 0 && b != 0 && !strcmp(a,b))
996     if (PCH_KLUDGE(enter_pc_charset_mode, enter_alt_charset_mode) &&
997         PCH_KLUDGE(exit_pc_charset_mode, exit_alt_charset_mode)) {
998         size_t i;
999         for (i = 1; i < ACS_LEN; ++i) {
1000             if (real_map[i] == 0) {
1001                 real_map[i] = i;
1002                 if (real_map != fake_map) {
1003                     if (sp != 0)
1004                         sp->_screen_acs_map[i] = TRUE;
1005                 }
1006             }
1007         }
1008     }
1009 #endif
1010
1011     if (acs_chars != NULL) {
1012         size_t i = 0;
1013         size_t length = strlen(acs_chars);
1014
1015         while (i + 1 < length) {
1016             if (acs_chars[i] != 0 && UChar(acs_chars[i]) < ACS_LEN) {
1017                 real_map[UChar(acs_chars[i])] = UChar(acs_chars[i + 1]) | A_ALTCHARSET;
1018                 if (sp != 0)
1019                     sp->_screen_acs_map[UChar(acs_chars[i])] = TRUE;
1020             }
1021             i += 2;
1022         }
1023     }
1024 #ifdef TRACE
1025     /* Show the equivalent mapping, noting if it does not match the
1026      * given attribute, whether by re-ordering or duplication.
1027      */
1028     if (USE_TRACEF(TRACE_CALLS)) {
1029         size_t n, m;
1030         char show[ACS_LEN * 2 + 1];
1031         for (n = 1, m = 0; n < ACS_LEN; n++) {
1032             if (real_map[n] != 0) {
1033                 show[m++] = (char) n;
1034                 show[m++] = (char) ChCharOf(real_map[n]);
1035             }
1036         }
1037         show[m] = 0;
1038         if (acs_chars == NULL || strcmp(acs_chars, show))
1039             _tracef("%s acs_chars %s",
1040                     (acs_chars == NULL) ? "NULL" : "READ",
1041                     _nc_visbuf(acs_chars));
1042         _tracef("%s acs_chars %s",
1043                 (acs_chars == NULL)
1044                 ? "NULL"
1045                 : (strcmp(acs_chars, show)
1046                    ? "DIFF"
1047                    : "SAME"),
1048                 _nc_visbuf(show));
1049
1050         _nc_unlock_global(tracef);
1051     }
1052 #endif /* TRACE */
1053 }
1054
1055 #define ENSURE_TINFO(sp) (TCBOf(sp)->drv->isTerminfo)
1056
1057 NCURSES_EXPORT(void)
1058 _nc_cookie_init(SCREEN *sp)
1059 {
1060     bool support_cookies = USE_XMC_SUPPORT;
1061     TERMINAL_CONTROL_BLOCK *TCB = (TERMINAL_CONTROL_BLOCK *) (sp->_term);
1062
1063     if (sp == 0 || !ENSURE_TINFO(sp))
1064         return;
1065
1066 #if USE_XMC_SUPPORT
1067     /*
1068      * If we have no magic-cookie support compiled-in, or if it is suppressed
1069      * in the environment, reset the support-flag.
1070      */
1071     if (magic_cookie_glitch >= 0) {
1072         if (getenv("NCURSES_NO_MAGIC_COOKIE") != 0) {
1073             support_cookies = FALSE;
1074         }
1075     }
1076 #endif
1077
1078     if (!support_cookies && magic_cookie_glitch >= 0) {
1079         T(("will disable attributes to work w/o magic cookies"));
1080     }
1081
1082     if (magic_cookie_glitch > 0) {      /* tvi, wyse */
1083
1084         sp->_xmc_triggers = sp->_ok_attributes & (
1085                                                      A_STANDOUT |
1086                                                      A_UNDERLINE |
1087                                                      A_REVERSE |
1088                                                      A_BLINK |
1089                                                      A_DIM |
1090                                                      A_BOLD |
1091                                                      A_INVIS |
1092                                                      A_PROTECT
1093             );
1094 #if 0
1095         /*
1096          * We "should" treat colors as an attribute.  The wyse350 (and its
1097          * clones) appear to be the only ones that have both colors and magic
1098          * cookies.
1099          */
1100         if (has_colors()) {
1101             sp->_xmc_triggers |= A_COLOR;
1102         }
1103 #endif
1104         sp->_xmc_suppress = sp->_xmc_triggers & (chtype) ~(A_BOLD);
1105
1106         T(("magic cookie attributes %s", _traceattr(sp->_xmc_suppress)));
1107         /*
1108          * Supporting line-drawing may be possible.  But make the regular
1109          * video attributes work first.
1110          */
1111         acs_chars = ABSENT_STRING;
1112         ena_acs = ABSENT_STRING;
1113         enter_alt_charset_mode = ABSENT_STRING;
1114         exit_alt_charset_mode = ABSENT_STRING;
1115 #if USE_XMC_SUPPORT
1116         /*
1117          * To keep the cookie support simple, suppress all of the optimization
1118          * hooks except for clear_screen and the cursor addressing.
1119          */
1120         if (support_cookies) {
1121             clr_eol = ABSENT_STRING;
1122             clr_eos = ABSENT_STRING;
1123             set_attributes = ABSENT_STRING;
1124         }
1125 #endif
1126     } else if (magic_cookie_glitch == 0) {      /* hpterm */
1127     }
1128
1129     /*
1130      * If magic cookies are not supported, cancel the strings that set
1131      * video attributes.
1132      */
1133     if (!support_cookies && magic_cookie_glitch >= 0) {
1134         magic_cookie_glitch = ABSENT_NUMERIC;
1135         set_attributes = ABSENT_STRING;
1136         enter_blink_mode = ABSENT_STRING;
1137         enter_bold_mode = ABSENT_STRING;
1138         enter_dim_mode = ABSENT_STRING;
1139         enter_reverse_mode = ABSENT_STRING;
1140         enter_standout_mode = ABSENT_STRING;
1141         enter_underline_mode = ABSENT_STRING;
1142     }
1143
1144     /* initialize normal acs before wide, since we use mapping in the latter */
1145 #if !USE_WIDEC_SUPPORT
1146     if (_nc_unicode_locale() && _nc_locale_breaks_acs(sp->_term)) {
1147         acs_chars = NULL;
1148         ena_acs = NULL;
1149         enter_alt_charset_mode = NULL;
1150         exit_alt_charset_mode = NULL;
1151         set_attributes = NULL;
1152     }
1153 #endif
1154 }
1155
1156 static int
1157 drv_twait(TERMINAL_CONTROL_BLOCK * TCB,
1158           int mode,
1159           int milliseconds,
1160           int *timeleft
1161           EVENTLIST_2nd(_nc_eventlist * evl))
1162 {
1163     SCREEN *sp;
1164
1165     AssertTCB();
1166     SetSP();
1167
1168     return _nc_timed_wait(sp, mode, milliseconds, timeleft EVENTLIST_2nd(evl));
1169 }
1170
1171 static int
1172 drv_read(TERMINAL_CONTROL_BLOCK * TCB, int *buf)
1173 {
1174     SCREEN *sp;
1175     unsigned char c2 = 0;
1176     int n;
1177
1178     AssertTCB();
1179     assert(buf);
1180     SetSP();
1181
1182 # if USE_PTHREADS_EINTR
1183     if ((pthread_self) && (pthread_kill) && (pthread_equal))
1184         _nc_globals.read_thread = pthread_self();
1185 # endif
1186     n = read(sp->_ifd, &c2, (size_t) 1);
1187 #if USE_PTHREADS_EINTR
1188     _nc_globals.read_thread = 0;
1189 #endif
1190     *buf = (int) c2;
1191     return n;
1192 }
1193
1194 static int
1195 drv_nap(TERMINAL_CONTROL_BLOCK * TCB GCC_UNUSED, int ms)
1196 {
1197 #if HAVE_NANOSLEEP
1198     {
1199         struct timespec request, remaining;
1200         request.tv_sec = ms / 1000;
1201         request.tv_nsec = (ms % 1000) * 1000000;
1202         while (nanosleep(&request, &remaining) == -1
1203                && errno == EINTR) {
1204             request = remaining;
1205         }
1206     }
1207 #else
1208     _nc_timed_wait(0, 0, ms, (int *) 0 EVENTLIST_2nd(0));
1209 #endif
1210     return OK;
1211 }
1212
1213 static int
1214 __nc_putp(SCREEN *sp, const char *name GCC_UNUSED, const char *value)
1215 {
1216     int rc = ERR;
1217
1218     if (value) {
1219         rc = NCURSES_PUTP2(name, value);
1220     }
1221     return rc;
1222 }
1223
1224 static int
1225 __nc_putp_flush(SCREEN *sp, const char *name, const char *value)
1226 {
1227     int rc = __nc_putp(sp, name, value);
1228     if (rc != ERR) {
1229         NCURSES_SP_NAME(_nc_flush) (sp);
1230     }
1231     return rc;
1232 }
1233
1234 static int
1235 drv_kpad(TERMINAL_CONTROL_BLOCK * TCB, int flag)
1236 {
1237     int ret = ERR;
1238     SCREEN *sp;
1239
1240     AssertTCB();
1241
1242     sp = TCB->csp;
1243
1244     if (sp) {
1245         if (flag) {
1246             (void) __nc_putp_flush(sp, "keypad_xmit", keypad_xmit);
1247         } else if (!flag && keypad_local) {
1248             (void) __nc_putp_flush(sp, "keypad_local", keypad_local);
1249         }
1250         if (flag && !sp->_tried) {
1251             _nc_init_keytry(sp);
1252             sp->_tried = TRUE;
1253         }
1254         ret = OK;
1255     }
1256
1257     return ret;
1258 }
1259
1260 static int
1261 drv_keyok(TERMINAL_CONTROL_BLOCK * TCB, int c, int flag)
1262 {
1263     SCREEN *sp;
1264     int code = ERR;
1265     int count = 0;
1266     char *s;
1267
1268     AssertTCB();
1269     SetSP();
1270
1271     if (c >= 0) {
1272         unsigned ch = (unsigned) c;
1273         if (flag) {
1274             while ((s = _nc_expand_try(sp->_key_ok,
1275                                        ch, &count, (size_t) 0)) != 0
1276                    && _nc_remove_key(&(sp->_key_ok), ch)) {
1277                 code = _nc_add_to_try(&(sp->_keytry), s, ch);
1278                 free(s);
1279                 count = 0;
1280                 if (code != OK)
1281                     break;
1282             }
1283         } else {
1284             while ((s = _nc_expand_try(sp->_keytry,
1285                                        ch, &count, (size_t) 0)) != 0
1286                    && _nc_remove_key(&(sp->_keytry), ch)) {
1287                 code = _nc_add_to_try(&(sp->_key_ok), s, ch);
1288                 free(s);
1289                 count = 0;
1290                 if (code != OK)
1291                     break;
1292             }
1293         }
1294     }
1295     return (code);
1296 }
1297
1298 static bool
1299 drv_kyExist(TERMINAL_CONTROL_BLOCK * TCB, int key)
1300 {
1301     bool res = FALSE;
1302
1303     AssertTCB();
1304     if (TCB->csp)
1305         res = TINFO_HAS_KEY(TCB->csp, key) == 0 ? FALSE : TRUE;
1306
1307     return res;
1308 }
1309
1310 NCURSES_EXPORT_VAR (TERM_DRIVER) _nc_TINFO_DRIVER = {
1311     TRUE,
1312         drv_CanHandle,          /* CanHandle */
1313         drv_init,               /* init */
1314         drv_release,            /* release */
1315         drv_size,               /* size */
1316         drv_sgmode,             /* sgmode */
1317         drv_conattr,            /* conattr */
1318         drv_mvcur,              /* hwcur */
1319         drv_mode,               /* mode */
1320         drv_rescol,             /* rescol */
1321         drv_rescolors,          /* rescolors */
1322         drv_setcolor,           /* color */
1323         drv_dobeepflash,        /* doBeepOrFlash */
1324         drv_initpair,           /* initpair */
1325         drv_initcolor,          /* initcolor */
1326         drv_do_color,           /* docolor */
1327         drv_initmouse,          /* initmouse */
1328         drv_testmouse,          /* testmouse */
1329         drv_setfilter,          /* setfilter */
1330         drv_hwlabel,            /* hwlabel */
1331         drv_hwlabelOnOff,       /* hwlabelOnOff */
1332         drv_doupdate,           /* update */
1333         drv_defaultcolors,      /* defaultcolors */
1334         drv_print,              /* print */
1335         drv_getsize,            /* getsize */
1336         drv_setsize,            /* setsize */
1337         drv_initacs,            /* initacs */
1338         drv_screen_init,        /* scinit */
1339         drv_wrap,               /* scexit */
1340         drv_twait,              /* twait  */
1341         drv_read,               /* read */
1342         drv_nap,                /* nap */
1343         drv_kpad,               /* kpad */
1344         drv_keyok,              /* kyOk */
1345         drv_kyExist             /* kyExist */
1346 };