tty-term.c

   1 /* $OpenBSD$ */
   2
   3 /*
   4  * Copyright (c) 2008 Nicholas Marriott <nicm@users.sourceforge.net>
   5  *
   6  * Permission to use, copy, modify, and distribute this software for any
   7  * purpose with or without fee is hereby granted, provided that the above
   8  * copyright notice and this permission notice appear in all copies.
   9  *
  10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14  * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
  15  * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
  16  * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17  */
  18
  19 #include <sys/types.h>
  20
  21 #include <curses.h>
  22 #include <fnmatch.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25 #include <term.h>
  26 #include <vis.h>
  27
  28 #include "tmux.h"
  29
  30 void     tty_term_override(struct tty_term *, const char *);
  31 char    *tty_term_strip(const char *);
  32
  33 struct tty_terms tty_terms = LIST_HEAD_INITIALIZER(tty_terms);
  34
  35 const struct tty_term_code_entry tty_term_codes[NTTYCODE] = {
  36         { TTYC_ACSC, TTYCODE_STRING, "acsc" },
  37         { TTYC_AX, TTYCODE_FLAG, "AX" },
  38         { TTYC_BEL, TTYCODE_STRING, "bel" },
  39         { TTYC_BLINK, TTYCODE_STRING, "blink" },
  40         { TTYC_BOLD, TTYCODE_STRING, "bold" },
  41         { TTYC_CIVIS, TTYCODE_STRING, "civis" },
  42         { TTYC_CLEAR, TTYCODE_STRING, "clear" },
  43         { TTYC_CNORM, TTYCODE_STRING, "cnorm" },
  44         { TTYC_COLORS, TTYCODE_NUMBER, "colors" },
  45         { TTYC_CSR, TTYCODE_STRING, "csr" },
  46         { TTYC_CUB, TTYCODE_STRING, "cub" },
  47         { TTYC_CUB1, TTYCODE_STRING, "cub1" },
  48         { TTYC_CUD, TTYCODE_STRING, "cud" },
  49         { TTYC_CUD1, TTYCODE_STRING, "cud1" },
  50         { TTYC_CUF, TTYCODE_STRING, "cuf" },
  51         { TTYC_CUF1, TTYCODE_STRING, "cuf1" },
  52         { TTYC_CUP, TTYCODE_STRING, "cup" },
  53         { TTYC_CUU, TTYCODE_STRING, "cuu" },
  54         { TTYC_CUU1, TTYCODE_STRING, "cuu1" },
  55         { TTYC_DCH, TTYCODE_STRING, "dch" },
  56         { TTYC_DCH1, TTYCODE_STRING, "dch1" },
  57         { TTYC_DIM, TTYCODE_STRING, "dim" },
  58         { TTYC_DL, TTYCODE_STRING, "dl" },
  59         { TTYC_DL1, TTYCODE_STRING, "dl1" },
  60         { TTYC_EL, TTYCODE_STRING, "el" },
  61         { TTYC_EL1, TTYCODE_STRING, "el1" },
  62         { TTYC_ENACS, TTYCODE_STRING, "enacs" },
  63         { TTYC_HOME, TTYCODE_STRING, "home" },
  64         { TTYC_HPA, TTYCODE_STRING, "hpa" },
  65         { TTYC_ICH, TTYCODE_STRING, "ich" },
  66         { TTYC_ICH1, TTYCODE_STRING, "ich1" },
  67         { TTYC_IL, TTYCODE_STRING, "il" },
  68         { TTYC_IL1, TTYCODE_STRING, "il1" },
  69         { TTYC_INVIS, TTYCODE_STRING, "invis" },
  70         { TTYC_IS1, TTYCODE_STRING, "is1" },
  71         { TTYC_IS2, TTYCODE_STRING, "is2" },
  72         { TTYC_IS3, TTYCODE_STRING, "is3" },
  73         { TTYC_KCBT, TTYCODE_STRING, "kcbt" },
  74         { TTYC_KCUB1, TTYCODE_STRING, "kcub1" },
  75         { TTYC_KCUD1, TTYCODE_STRING, "kcud1" },
  76         { TTYC_KCUF1, TTYCODE_STRING, "kcuf1" },
  77         { TTYC_KCUU1, TTYCODE_STRING, "kcuu1" },
  78         { TTYC_KDC2, TTYCODE_STRING, "kDC" },
  79         { TTYC_KDC3, TTYCODE_STRING, "kDC3" },
  80         { TTYC_KDC4, TTYCODE_STRING, "kDC4" },
  81         { TTYC_KDC5, TTYCODE_STRING, "kDC5" },
  82         { TTYC_KDC6, TTYCODE_STRING, "kDC6" },
  83         { TTYC_KDC7, TTYCODE_STRING, "kDC7" },
  84         { TTYC_KDCH1, TTYCODE_STRING, "kdch1" },
  85         { TTYC_KDN2, TTYCODE_STRING, "kDN" },
  86         { TTYC_KDN3, TTYCODE_STRING, "kDN3" },
  87         { TTYC_KDN4, TTYCODE_STRING, "kDN4" },
  88         { TTYC_KDN5, TTYCODE_STRING, "kDN5" },
  89         { TTYC_KDN6, TTYCODE_STRING, "kDN6" },
  90         { TTYC_KDN7, TTYCODE_STRING, "kDN7" },
  91         { TTYC_KEND, TTYCODE_STRING, "kend" },
  92         { TTYC_KEND2, TTYCODE_STRING, "kEND" },
  93         { TTYC_KEND3, TTYCODE_STRING, "kEND3" },
  94         { TTYC_KEND4, TTYCODE_STRING, "kEND4" },
  95         { TTYC_KEND5, TTYCODE_STRING, "kEND5" },
  96         { TTYC_KEND6, TTYCODE_STRING, "kEND6" },
  97         { TTYC_KEND7, TTYCODE_STRING, "kEND7" },
  98         { TTYC_KF1, TTYCODE_STRING, "kf1" },
  99         { TTYC_KF10, TTYCODE_STRING, "kf10" },
 100         { TTYC_KF11, TTYCODE_STRING, "kf11" },
 101         { TTYC_KF12, TTYCODE_STRING, "kf12" },
 102         { TTYC_KF13, TTYCODE_STRING, "kf13" },
 103         { TTYC_KF14, TTYCODE_STRING, "kf14" },
 104         { TTYC_KF15, TTYCODE_STRING, "kf15" },
 105         { TTYC_KF16, TTYCODE_STRING, "kf16" },
 106         { TTYC_KF17, TTYCODE_STRING, "kf17" },
 107         { TTYC_KF18, TTYCODE_STRING, "kf18" },
 108         { TTYC_KF19, TTYCODE_STRING, "kf19" },
 109         { TTYC_KF2, TTYCODE_STRING, "kf2" },
 110         { TTYC_KF20, TTYCODE_STRING, "kf20" },
 111         { TTYC_KF3, TTYCODE_STRING, "kf3" },
 112         { TTYC_KF4, TTYCODE_STRING, "kf4" },
 113         { TTYC_KF5, TTYCODE_STRING, "kf5" },
 114         { TTYC_KF6, TTYCODE_STRING, "kf6" },
 115         { TTYC_KF7, TTYCODE_STRING, "kf7" },
 116         { TTYC_KF8, TTYCODE_STRING, "kf8" },
 117         { TTYC_KF9, TTYCODE_STRING, "kf9" },
 118         { TTYC_KHOM2, TTYCODE_STRING, "kHOM" },
 119         { TTYC_KHOM3, TTYCODE_STRING, "kHOM3" },
 120         { TTYC_KHOM4, TTYCODE_STRING, "kHOM4" },
 121         { TTYC_KHOM5, TTYCODE_STRING, "kHOM5" },
 122         { TTYC_KHOM6, TTYCODE_STRING, "kHOM6" },
 123         { TTYC_KHOM7, TTYCODE_STRING, "kHOM7" },
 124         { TTYC_KHOME, TTYCODE_STRING, "khome" },
 125         { TTYC_KIC2, TTYCODE_STRING, "kIC" },
 126         { TTYC_KIC3, TTYCODE_STRING, "kIC3" },
 127         { TTYC_KIC4, TTYCODE_STRING, "kIC4" },
 128         { TTYC_KIC5, TTYCODE_STRING, "kIC5" },
 129         { TTYC_KIC6, TTYCODE_STRING, "kIC6" },
 130         { TTYC_KIC7, TTYCODE_STRING, "kIC7" },
 131         { TTYC_KICH1, TTYCODE_STRING, "kich1" },
 132         { TTYC_KLFT2, TTYCODE_STRING, "kLFT" },
 133         { TTYC_KLFT3, TTYCODE_STRING, "kLFT3" },
 134         { TTYC_KLFT4, TTYCODE_STRING, "kLFT4" },
 135         { TTYC_KLFT5, TTYCODE_STRING, "kLFT5" },
 136         { TTYC_KLFT6, TTYCODE_STRING, "kLFT6" },
 137         { TTYC_KLFT7, TTYCODE_STRING, "kLFT7" },
 138         { TTYC_KMOUS, TTYCODE_STRING, "kmous" },
 139         { TTYC_KNP, TTYCODE_STRING, "knp" },
 140         { TTYC_KNXT2, TTYCODE_STRING, "kNXT" },
 141         { TTYC_KNXT3, TTYCODE_STRING, "kNXT3" },
 142         { TTYC_KNXT4, TTYCODE_STRING, "kNXT4" },
 143         { TTYC_KNXT5, TTYCODE_STRING, "kNXT5" },
 144         { TTYC_KNXT6, TTYCODE_STRING, "kNXT6" },
 145         { TTYC_KNXT7, TTYCODE_STRING, "kNXT7" },
 146         { TTYC_KPP, TTYCODE_STRING, "kpp" },
 147         { TTYC_KPRV2, TTYCODE_STRING, "kPRV" },
 148         { TTYC_KPRV3, TTYCODE_STRING, "kPRV3" },
 149         { TTYC_KPRV4, TTYCODE_STRING, "kPRV4" },
 150         { TTYC_KPRV5, TTYCODE_STRING, "kPRV5" },
 151         { TTYC_KPRV6, TTYCODE_STRING, "kPRV6" },
 152         { TTYC_KPRV7, TTYCODE_STRING, "kPRV7" },
 153         { TTYC_KRIT2, TTYCODE_STRING, "kRIT" },
 154         { TTYC_KRIT3, TTYCODE_STRING, "kRIT3" },
 155         { TTYC_KRIT4, TTYCODE_STRING, "kRIT4" },
 156         { TTYC_KRIT5, TTYCODE_STRING, "kRIT5" },
 157         { TTYC_KRIT6, TTYCODE_STRING, "kRIT6" },
 158         { TTYC_KRIT7, TTYCODE_STRING, "kRIT7" },
 159         { TTYC_KUP2, TTYCODE_STRING, "kUP" },
 160         { TTYC_KUP3, TTYCODE_STRING, "kUP3" },
 161         { TTYC_KUP4, TTYCODE_STRING, "kUP4" },
 162         { TTYC_KUP5, TTYCODE_STRING, "kUP5" },
 163         { TTYC_KUP6, TTYCODE_STRING, "kUP6" },
 164         { TTYC_KUP7, TTYCODE_STRING, "kUP7" },
 165         { TTYC_OP, TTYCODE_STRING, "op" },
 166         { TTYC_REV, TTYCODE_STRING, "rev" },
 167         { TTYC_RI, TTYCODE_STRING, "ri" },
 168         { TTYC_RMACS, TTYCODE_STRING, "rmacs" },
 169         { TTYC_RMCUP, TTYCODE_STRING, "rmcup" },
 170         { TTYC_RMIR, TTYCODE_STRING, "rmir" },
 171         { TTYC_RMKX, TTYCODE_STRING, "rmkx" },
 172         { TTYC_SETAB, TTYCODE_STRING, "setab" },
 173         { TTYC_SETAF, TTYCODE_STRING, "setaf" },
 174         { TTYC_SGR0, TTYCODE_STRING, "sgr0" },
 175         { TTYC_SMACS, TTYCODE_STRING, "smacs" },
 176         { TTYC_SMCUP, TTYCODE_STRING, "smcup" },
 177         { TTYC_SMIR, TTYCODE_STRING, "smir" },
 178         { TTYC_SMKX, TTYCODE_STRING, "smkx" },
 179         { TTYC_SMSO, TTYCODE_STRING, "smso" },
 180         { TTYC_SMUL, TTYCODE_STRING, "smul" },
 181         { TTYC_VPA, TTYCODE_STRING, "vpa" },
 182         { TTYC_XENL, TTYCODE_FLAG, "xenl" },
 183 };
 184
 185 char *
 186 tty_term_strip(const char *s)
 187 {
 188         const char     *ptr;
 189         static char     buf[BUFSIZ];
 190         size_t          len;
 191
 192         /* Ignore strings with no padding. */
 193         if (strchr(s, '$') == NULL)
 194                 return (xstrdup(s));
 195
 196         len = 0;
 197         for (ptr = s; *ptr != '\0'; ptr++) {
 198                 if (*ptr == '$' && *(ptr + 1) == '<') {
 199                         while (*ptr != '\0' && *ptr != '>')
 200                                 ptr++;
 201                         if (*ptr == '>')
 202                                 ptr++;
 203                 }
 204
 205                 buf[len++] = *ptr;
 206                 if (len == (sizeof buf) - 1)
 207                         break;
 208         }
 209         buf[len] = '\0';
 210
 211         return (xstrdup(buf));
 212 }
 213
 214 void
 215 tty_term_override(struct tty_term *term, const char *overrides)
 216 {
 217         const struct tty_term_code_entry        *ent;
 218         struct tty_code                         *code;
 219         char                                    *termnext, *termstr;
 220         char                                    *entnext, *entstr;
 221         char                                    *s, *ptr, *val;
 222         const char                              *errstr;
 223         u_int                                    i;
 224         int                                      n, removeflag;
 225
 226         s = xstrdup(overrides);
 227
 228         termnext = s;
 229         while ((termstr = strsep(&termnext, ",")) != NULL) {
 230                 entnext = termstr;
 231
 232                 entstr = strsep(&entnext, ":");
 233                 if (entstr == NULL || entnext == NULL)
 234                         continue;
 235                 if (fnmatch(entstr, term->name, 0) != 0)
 236                         continue;
 237                 while ((entstr = strsep(&entnext, ":")) != NULL) {
 238                         if (*entstr == '\0')
 239                                 continue;
 240
 241                         val = NULL;
 242                         removeflag = 0;
 243                         if ((ptr = strchr(entstr, '=')) != NULL) {
 244                                 *ptr++ = '\0';
 245                                 val = xstrdup(ptr);
 246                                 if (strunvis(val, ptr) == -1) {
 247                                         xfree(val);
 248                                         val = xstrdup(ptr);
 249                                 }
 250                         } else if (entstr[strlen(entstr) - 1] == '@') {
 251                                 entstr[strlen(entstr) - 1] = '\0';
 252                                 removeflag = 1;
 253                         } else
 254                                 continue;
 255
 256                         for (i = 0; i < NTTYCODE; i++) {
 257                                 ent = &tty_term_codes[i];
 258                                 if (strcmp(entstr, ent->name) != 0)
 259                                         continue;
 260                                 code = &term->codes[ent->code];
 261
 262                                 if (removeflag) {
 263                                         code->type = TTYCODE_NONE;
 264                                         continue;
 265                                 }
 266                                 switch (ent->type) {
 267                                 case TTYCODE_NONE:
 268                                         break;
 269                                 case TTYCODE_STRING:
 270                                         if (code->type == TTYCODE_STRING)
 271                                                 xfree(code->value.string);
 272                                         code->value.string = xstrdup(val);
 273                                         code->type = ent->type;
 274                                         break;
 275                                 case TTYCODE_NUMBER:
 276                                         n = strtonum(val, 0, INT_MAX, &errstr);
 277                                         if (errstr != NULL)
 278                                                 break;
 279                                         code->value.number = n;
 280                                         code->type = ent->type;
 281                                         break;
 282                                 case TTYCODE_FLAG:
 283                                         code->value.flag = 1;
 284                                         code->type = ent->type;
 285                                         break;
 286                                 }
 287                         }
 288
 289                         if (val != NULL)
 290                                 xfree(val);
 291                 }
 292         }
 293
 294         xfree(s);
 295 }
 296
 297 struct tty_term *
 298 tty_term_find(char *name, int fd, const char *overrides, char **cause)
 299 {
 300         struct tty_term                         *term;
 301         const struct tty_term_code_entry        *ent;
 302         struct tty_code                         *code;
 303         u_int                                    i;
 304         int                                      n, error;
 305         char                                    *s;
 306         const char                              *acs;
 307
 308         LIST_FOREACH(term, &tty_terms, entry) {
 309                 if (strcmp(term->name, name) == 0) {
 310                         term->references++;
 311                         return (term);
 312                 }
 313         }
 314
 315         log_debug("new term: %s", name);
 316         term = xmalloc(sizeof *term);
 317         term->name = xstrdup(name);
 318         term->references = 1;
 319         term->flags = 0;
 320         memset(term->codes, 0, sizeof term->codes);
 321         LIST_INSERT_HEAD(&tty_terms, term, entry);
 322
 323         /* Set up curses terminal. */
 324         if (setupterm(name, fd, &error) != OK) {
 325                 switch (error) {
 326                 case 1:
 327                         xasprintf(
 328                             cause, "can't use hardcopy terminal: %s", name);
 329                         break;
 330                 case 0:
 331                         xasprintf(
 332                             cause, "missing or unsuitable terminal: %s", name);
 333                         break;
 334                 case -1:
 335                         xasprintf(cause, "can't find terminfo database");
 336                         break;
 337                 default:
 338                         xasprintf(cause, "unknown error");
 339                         break;
 340                 }
 341                 goto error;
 342         }
 343
 344         /* Fill in codes. */
 345         for (i = 0; i < NTTYCODE; i++) {
 346                 ent = &tty_term_codes[i];
 347
 348                 code = &term->codes[ent->code];
 349                 code->type = TTYCODE_NONE;
 350                 switch (ent->type) {
 351                 case TTYCODE_NONE:
 352                         break;
 353                 case TTYCODE_STRING:
 354                         s = tigetstr((char *) ent->name);
 355                         if (s == NULL || s == (char *) -1)
 356                                 break;
 357                         code->type = TTYCODE_STRING;
 358                         code->value.string = tty_term_strip(s);
 359                         break;
 360                 case TTYCODE_NUMBER:
 361                         n = tigetnum((char *) ent->name);
 362                         if (n == -1 || n == -2)
 363                                 break;
 364                         code->type = TTYCODE_NUMBER;
 365                         code->value.number = n;
 366                         break;
 367                 case TTYCODE_FLAG:
 368                         n = tigetflag((char *) ent->name);
 369                         if (n == -1)
 370                                 break;
 371                         code->type = TTYCODE_FLAG;
 372                         code->value.number = n;
 373                         break;
 374                 }
 375         }
 376         tty_term_override(term, overrides);
 377
 378         /* Delete curses data. */
 379         del_curterm(cur_term);
 380
 381         /* These are always required. */
 382         if (!tty_term_has(term, TTYC_CLEAR)) {
 383                 xasprintf(cause, "terminal does not support clear");
 384                 goto error;
 385         }
 386         if (!tty_term_has(term, TTYC_CUP)) {
 387                 xasprintf(cause, "terminal does not support cup");
 388                 goto error;
 389         }
 390
 391         /* These can be emulated so one of the two is required. */
 392         if (!tty_term_has(term, TTYC_CUD1) && !tty_term_has(term, TTYC_CUD)) {
 393                 xasprintf(cause, "terminal does not support cud1 or cud");
 394                 goto error;
 395         }
 396
 397         /* Figure out if we have 256 or 88 colours. */
 398         if (tty_term_number(term, TTYC_COLORS) == 256)
 399                 term->flags |= TERM_256COLOURS;
 400         if (tty_term_number(term, TTYC_COLORS) == 88)
 401                 term->flags |= TERM_88COLOURS;
 402
 403         /*
 404          * Terminals without xenl (eat newline glitch) wrap at at $COLUMNS - 1
 405          * rather than $COLUMNS (the cursor can never be beyond $COLUMNS - 1).
 406          *
 407          * This is irritating, most notably because it is impossible to write
 408          * to the very bottom-right of the screen without scrolling.
 409          *
 410          * Flag the terminal here and apply some workarounds in other places to
 411          * do the best possible.
 412          */
 413         if (!tty_term_flag(term, TTYC_XENL))
 414                 term->flags |= TERM_EARLYWRAP;
 415
 416         /* Generate ACS table. If none is present, use nearest ASCII. */
 417         memset(term->acs, 0, sizeof term->acs);
 418         if (tty_term_has(term, TTYC_ACSC))
 419                 acs = tty_term_string(term, TTYC_ACSC);
 420         else
 421                 acs = "a#j+k+l+m+n+o-p-q-r-s-t+u+v+w+x|y<z>~.";
 422         for (; acs[0] != '\0' && acs[1] != '\0'; acs += 2)
 423                 term->acs[(u_char) acs[0]][0] = acs[1];
 424
 425         return (term);
 426
 427 error:
 428         tty_term_free(term);
 429         return (NULL);
 430 }
 431
 432 void
 433 tty_term_free(struct tty_term *term)
 434 {
 435         u_int   i;
 436
 437         if (--term->references != 0)
 438                 return;
 439
 440         LIST_REMOVE(term, entry);
 441
 442         for (i = 0; i < NTTYCODE; i++) {
 443                 if (term->codes[i].type == TTYCODE_STRING)
 444                         xfree(term->codes[i].value.string);
 445         }
 446         xfree(term->name);
 447         xfree(term);
 448 }
 449
 450 int
 451 tty_term_has(struct tty_term *term, enum tty_code_code code)
 452 {
 453         return (term->codes[code].type != TTYCODE_NONE);
 454 }
 455
 456 const char *
 457 tty_term_string(struct tty_term *term, enum tty_code_code code)
 458 {
 459         if (!tty_term_has(term, code))
 460                 return ("");
 461         if (term->codes[code].type != TTYCODE_STRING)
 462                 log_fatalx("not a string: %d", code);
 463         return (term->codes[code].value.string);
 464 }
 465
 466 /* No vtparm. Fucking curses. */
 467 const char *
 468 tty_term_string1(struct tty_term *term, enum tty_code_code code, int a)
 469 {
 470         return (tparm((char *) tty_term_string(term, code), a));
 471 }
 472
 473 const char *
 474 tty_term_string2(struct tty_term *term, enum tty_code_code code, int a, int b)
 475 {
 476         return (tparm((char *) tty_term_string(term, code), a, b));
 477 }
 478
 479 int
 480 tty_term_number(struct tty_term *term, enum tty_code_code code)
 481 {
 482         if (!tty_term_has(term, code))
 483                 return (0);
 484         if (term->codes[code].type != TTYCODE_NUMBER)
 485                 log_fatalx("not a number: %d", code);
 486         return (term->codes[code].value.number);
 487 }
 488
 489 int
 490 tty_term_flag(struct tty_term *term, enum tty_code_code code)
 491 {
 492         if (!tty_term_has(term, code))
 493                 return (0);
 494         if (term->codes[code].type != TTYCODE_FLAG)
 495                 log_fatalx("not a flag: %d", code);
 496         return (term->codes[code].value.flag);
 497 }