1 /* vi:set ts=8 sts=4 sw=4 noet: 2 * 3 * VIM - Vi IMproved by Bram Moolenaar 4 * 5 * Do ":help uganda" in Vim to read copying and usage conditions. 6 * Do ":help credits" in Vim to see a list of people who contributed. 7 * See README.txt for an overview of the Vim source code. 8 */ 9 /* 10 * 11 * term.c: functions for controlling the terminal 12 * 13 * primitive termcap support for Amiga and Win32 included 14 * 15 * NOTE: padding and variable substitution is not performed, 16 * when compiling without HAVE_TGETENT, we use tputs() and tgoto() dummies. 17 */ 18 19 /* 20 * Some systems have a prototype for tgetstr() with (char *) instead of 21 * (char **). This define removes that prototype. We include our own prototype 22 * below. 23 */ 24 25 #define tgetstr tgetstr_defined_wrong 26 #include "vim.h" 27 28 #ifdef HAVE_TGETENT 29 # ifdef HAVE_TERMIOS_H 30 # include <termios.h> /* seems to be required for some Linux */ 31 # endif 32 # ifdef HAVE_TERMCAP_H 33 # include <termcap.h> 34 # endif 35 36 /* 37 * A few linux systems define outfuntype in termcap.h to be used as the third 38 * argument for tputs(). 39 */ 40 # ifdef VMS 41 # define TPUTSFUNCAST 42 # else 43 # ifdef HAVE_OUTFUNTYPE 44 # define TPUTSFUNCAST (outfuntype) 45 # else 46 # define TPUTSFUNCAST (int (*)()) 47 # endif 48 # endif 49 #endif 50 51 #undef tgetstr 52 53 /* 54 * Here are the builtin termcap entries. They are not stored as complete 55 * structures with all entries, as such a structure is too big. 56 * 57 * The entries are compact, therefore they normally are included even when 58 * HAVE_TGETENT is defined. When HAVE_TGETENT is defined, the builtin entries 59 * can be accessed with "builtin_amiga", "builtin_ansi", "builtin_debug", etc. 60 * 61 * Each termcap is a list of builtin_term structures. It always starts with 62 * KS_NAME, which separates the entries. See parse_builtin_tcap() for all 63 * details. 64 * bt_entry is either a KS_xxx code (>= 0), or a K_xxx code. 65 * 66 * Entries marked with "guessed" may be wrong. 67 */ 68 struct builtin_term 69 { 70 int bt_entry; 71 char *bt_string; 72 }; 73 74 /* start of keys that are not directly used by Vim but can be mapped */ 75 #define BT_EXTRA_KEYS 0x101 76 77 static void parse_builtin_tcap(char_u *s); 78 static void gather_termleader(void); 79 #ifdef FEAT_TERMRESPONSE 80 static void req_codes_from_term(void); 81 static void req_more_codes_from_term(void); 82 static void got_code_from_term(char_u *code, int len); 83 static void check_for_codes_from_term(void); 84 #endif 85 #if defined(FEAT_GUI) \ 86 || (defined(FEAT_MOUSE) && (!defined(UNIX) || defined(FEAT_MOUSE_XTERM) \ 87 || defined(FEAT_MOUSE_GPM) || defined(FEAT_SYSMOUSE))) 88 static int get_bytes_from_buf(char_u *, char_u *, int); 89 #endif 90 static void del_termcode_idx(int idx); 91 static int term_is_builtin(char_u *name); 92 static int term_7to8bit(char_u *p); 93 94 #ifdef HAVE_TGETENT 95 static char *tgetent_error(char_u *, char_u *); 96 97 /* 98 * Here is our own prototype for tgetstr(), any prototypes from the include 99 * files have been disabled by the define at the start of this file. 100 */ 101 char *tgetstr(char *, char **); 102 103 # ifdef FEAT_TERMRESPONSE 104 /* Change this to "if 1" to debug what happens with termresponse. */ 105 # if 0 106 # define DEBUG_TERMRESPONSE 107 static void log_tr(const char *fmt, ...); 108 # define LOG_TR(msg) log_tr msg 109 # else 110 # define LOG_TR(msg) do { /**/ } while (0) 111 # endif 112 113 # define STATUS_GET 1 /* send request when switching to RAW mode */ 114 # define STATUS_SENT 2 /* did send request, waiting for response */ 115 # define STATUS_GOT 3 /* received response */ 116 117 /* Request Terminal Version status: */ 118 static int crv_status = STATUS_GET; 119 120 /* Request Cursor position report: */ 121 static int u7_status = STATUS_GET; 122 123 # ifdef FEAT_TERMINAL 124 /* Request foreground color report: */ 125 static int rfg_status = STATUS_GET; 126 static int fg_r = 0; 127 static int fg_g = 0; 128 static int fg_b = 0; 129 static int bg_r = 255; 130 static int bg_g = 255; 131 static int bg_b = 255; 132 # endif 133 134 /* Request background color report: */ 135 static int rbg_status = STATUS_GET; 136 137 /* Request cursor blinking mode report: */ 138 static int rbm_status = STATUS_GET; 139 140 /* Request cursor style report: */ 141 static int rcs_status = STATUS_GET; 142 143 /* Request windos position report: */ 144 static int winpos_status = STATUS_GET; 145 # endif 146 147 /* 148 * Don't declare these variables if termcap.h contains them. 149 * Autoconf checks if these variables should be declared extern (not all 150 * systems have them). 151 * Some versions define ospeed to be speed_t, but that is incompatible with 152 * BSD, where ospeed is short and speed_t is long. 153 */ 154 # ifndef HAVE_OSPEED 155 # ifdef OSPEED_EXTERN 156 extern short ospeed; 157 # else 158 short ospeed; 159 # endif 160 # endif 161 # ifndef HAVE_UP_BC_PC 162 # ifdef UP_BC_PC_EXTERN 163 extern char *UP, *BC, PC; 164 # else 165 char *UP, *BC, PC; 166 # endif 167 # endif 168 169 # define TGETSTR(s, p) vim_tgetstr((s), (p)) 170 # define TGETENT(b, t) tgetent((char *)(b), (char *)(t)) 171 static char_u *vim_tgetstr(char *s, char_u **pp); 172 #endif /* HAVE_TGETENT */ 173 174 static int detected_8bit = FALSE; /* detected 8-bit terminal */ 175 176 #ifdef FEAT_TERMRESPONSE 177 /* When the cursor shape was detected these values are used: 178 * 1: block, 2: underline, 3: vertical bar */ 179 static int initial_cursor_shape = 0; 180 181 /* The blink flag from the style response may be inverted from the actual 182 * blinking state, xterm XORs the flags. */ 183 static int initial_cursor_shape_blink = FALSE; 184 185 /* The blink flag from the blinking-cursor mode response */ 186 static int initial_cursor_blink = FALSE; 187 #endif 188 189 static struct builtin_term builtin_termcaps[] = 190 { 191 192 #if defined(FEAT_GUI) 193 /* 194 * GUI pseudo term-cap. 195 */ 196 {(int)KS_NAME, "gui"}, 197 {(int)KS_CE, IF_EB("\033|$", ESC_STR "|$")}, 198 {(int)KS_AL, IF_EB("\033|i", ESC_STR "|i")}, 199 # ifdef TERMINFO 200 {(int)KS_CAL, IF_EB("\033|%p1%dI", ESC_STR "|%p1%dI")}, 201 # else 202 {(int)KS_CAL, IF_EB("\033|%dI", ESC_STR "|%dI")}, 203 # endif 204 {(int)KS_DL, IF_EB("\033|d", ESC_STR "|d")}, 205 # ifdef TERMINFO 206 {(int)KS_CDL, IF_EB("\033|%p1%dD", ESC_STR "|%p1%dD")}, 207 {(int)KS_CS, IF_EB("\033|%p1%d;%p2%dR", ESC_STR "|%p1%d;%p2%dR")}, 208 {(int)KS_CSV, IF_EB("\033|%p1%d;%p2%dV", ESC_STR "|%p1%d;%p2%dV")}, 209 # else 210 {(int)KS_CDL, IF_EB("\033|%dD", ESC_STR "|%dD")}, 211 {(int)KS_CS, IF_EB("\033|%d;%dR", ESC_STR "|%d;%dR")}, 212 {(int)KS_CSV, IF_EB("\033|%d;%dV", ESC_STR "|%d;%dV")}, 213 # endif 214 {(int)KS_CL, IF_EB("\033|C", ESC_STR "|C")}, 215 /* attributes switched on with 'h', off with * 'H' */ 216 {(int)KS_ME, IF_EB("\033|31H", ESC_STR "|31H")}, /* HL_ALL */ 217 {(int)KS_MR, IF_EB("\033|1h", ESC_STR "|1h")}, /* HL_INVERSE */ 218 {(int)KS_MD, IF_EB("\033|2h", ESC_STR "|2h")}, /* HL_BOLD */ 219 {(int)KS_SE, IF_EB("\033|16H", ESC_STR "|16H")}, /* HL_STANDOUT */ 220 {(int)KS_SO, IF_EB("\033|16h", ESC_STR "|16h")}, /* HL_STANDOUT */ 221 {(int)KS_UE, IF_EB("\033|8H", ESC_STR "|8H")}, /* HL_UNDERLINE */ 222 {(int)KS_US, IF_EB("\033|8h", ESC_STR "|8h")}, /* HL_UNDERLINE */ 223 {(int)KS_UCE, IF_EB("\033|8C", ESC_STR "|8C")}, /* HL_UNDERCURL */ 224 {(int)KS_UCS, IF_EB("\033|8c", ESC_STR "|8c")}, /* HL_UNDERCURL */ 225 {(int)KS_STE, IF_EB("\033|4C", ESC_STR "|4C")}, /* HL_STRIKETHROUGH */ 226 {(int)KS_STS, IF_EB("\033|4c", ESC_STR "|4c")}, /* HL_STRIKETHROUGH */ 227 {(int)KS_CZR, IF_EB("\033|4H", ESC_STR "|4H")}, /* HL_ITALIC */ 228 {(int)KS_CZH, IF_EB("\033|4h", ESC_STR "|4h")}, /* HL_ITALIC */ 229 {(int)KS_VB, IF_EB("\033|f", ESC_STR "|f")}, 230 {(int)KS_MS, "y"}, 231 {(int)KS_UT, "y"}, 232 {(int)KS_XN, "y"}, 233 {(int)KS_LE, "\b"}, /* cursor-left = BS */ 234 {(int)KS_ND, "\014"}, /* cursor-right = CTRL-L */ 235 # ifdef TERMINFO 236 {(int)KS_CM, IF_EB("\033|%p1%d;%p2%dM", ESC_STR "|%p1%d;%p2%dM")}, 237 # else 238 {(int)KS_CM, IF_EB("\033|%d;%dM", ESC_STR "|%d;%dM")}, 239 # endif 240 /* there are no key sequences here, the GUI sequences are recognized 241 * in check_termcode() */ 242 #endif 243 244 #ifndef NO_BUILTIN_TCAPS 245 246 # if defined(AMIGA) || defined(ALL_BUILTIN_TCAPS) 247 /* 248 * Amiga console window, default for Amiga 249 */ 250 {(int)KS_NAME, "amiga"}, 251 {(int)KS_CE, "\033[K"}, 252 {(int)KS_CD, "\033[J"}, 253 {(int)KS_AL, "\033[L"}, 254 # ifdef TERMINFO 255 {(int)KS_CAL, "\033[%p1%dL"}, 256 # else 257 {(int)KS_CAL, "\033[%dL"}, 258 # endif 259 {(int)KS_DL, "\033[M"}, 260 # ifdef TERMINFO 261 {(int)KS_CDL, "\033[%p1%dM"}, 262 # else 263 {(int)KS_CDL, "\033[%dM"}, 264 # endif 265 {(int)KS_CL, "\014"}, 266 {(int)KS_VI, "\033[0 p"}, 267 {(int)KS_VE, "\033[1 p"}, 268 {(int)KS_ME, "\033[0m"}, 269 {(int)KS_MR, "\033[7m"}, 270 {(int)KS_MD, "\033[1m"}, 271 {(int)KS_SE, "\033[0m"}, 272 {(int)KS_SO, "\033[33m"}, 273 {(int)KS_US, "\033[4m"}, 274 {(int)KS_UE, "\033[0m"}, 275 {(int)KS_CZH, "\033[3m"}, 276 {(int)KS_CZR, "\033[0m"}, 277 #if defined(__MORPHOS__) || defined(__AROS__) 278 {(int)KS_CCO, "8"}, /* allow 8 colors */ 279 # ifdef TERMINFO 280 {(int)KS_CAB, "\033[4%p1%dm"},/* set background color */ 281 {(int)KS_CAF, "\033[3%p1%dm"},/* set foreground color */ 282 # else 283 {(int)KS_CAB, "\033[4%dm"}, /* set background color */ 284 {(int)KS_CAF, "\033[3%dm"}, /* set foreground color */ 285 # endif 286 {(int)KS_OP, "\033[m"}, /* reset colors */ 287 #endif 288 {(int)KS_MS, "y"}, 289 {(int)KS_UT, "y"}, /* guessed */ 290 {(int)KS_LE, "\b"}, 291 # ifdef TERMINFO 292 {(int)KS_CM, "\033[%i%p1%d;%p2%dH"}, 293 # else 294 {(int)KS_CM, "\033[%i%d;%dH"}, 295 # endif 296 #if defined(__MORPHOS__) 297 {(int)KS_SR, "\033M"}, 298 #endif 299 # ifdef TERMINFO 300 {(int)KS_CRI, "\033[%p1%dC"}, 301 # else 302 {(int)KS_CRI, "\033[%dC"}, 303 # endif 304 {K_UP, "\233A"}, 305 {K_DOWN, "\233B"}, 306 {K_LEFT, "\233D"}, 307 {K_RIGHT, "\233C"}, 308 {K_S_UP, "\233T"}, 309 {K_S_DOWN, "\233S"}, 310 {K_S_LEFT, "\233 A"}, 311 {K_S_RIGHT, "\233 @"}, 312 {K_S_TAB, "\233Z"}, 313 {K_F1, "\233\060~"},/* some compilers don't dig "\2330" */ 314 {K_F2, "\233\061~"}, 315 {K_F3, "\233\062~"}, 316 {K_F4, "\233\063~"}, 317 {K_F5, "\233\064~"}, 318 {K_F6, "\233\065~"}, 319 {K_F7, "\233\066~"}, 320 {K_F8, "\233\067~"}, 321 {K_F9, "\233\070~"}, 322 {K_F10, "\233\071~"}, 323 {K_S_F1, "\233\061\060~"}, 324 {K_S_F2, "\233\061\061~"}, 325 {K_S_F3, "\233\061\062~"}, 326 {K_S_F4, "\233\061\063~"}, 327 {K_S_F5, "\233\061\064~"}, 328 {K_S_F6, "\233\061\065~"}, 329 {K_S_F7, "\233\061\066~"}, 330 {K_S_F8, "\233\061\067~"}, 331 {K_S_F9, "\233\061\070~"}, 332 {K_S_F10, "\233\061\071~"}, 333 {K_HELP, "\233?~"}, 334 {K_INS, "\233\064\060~"}, /* 101 key keyboard */ 335 {K_PAGEUP, "\233\064\061~"}, /* 101 key keyboard */ 336 {K_PAGEDOWN, "\233\064\062~"}, /* 101 key keyboard */ 337 {K_HOME, "\233\064\064~"}, /* 101 key keyboard */ 338 {K_END, "\233\064\065~"}, /* 101 key keyboard */ 339 340 {BT_EXTRA_KEYS, ""}, 341 {TERMCAP2KEY('#', '2'), "\233\065\064~"}, /* shifted home key */ 342 {TERMCAP2KEY('#', '3'), "\233\065\060~"}, /* shifted insert key */ 343 {TERMCAP2KEY('*', '7'), "\233\065\065~"}, /* shifted end key */ 344 # endif 345 346 # if defined(__BEOS__) || defined(ALL_BUILTIN_TCAPS) 347 /* 348 * almost standard ANSI terminal, default for bebox 349 */ 350 {(int)KS_NAME, "beos-ansi"}, 351 {(int)KS_CE, "\033[K"}, 352 {(int)KS_CD, "\033[J"}, 353 {(int)KS_AL, "\033[L"}, 354 # ifdef TERMINFO 355 {(int)KS_CAL, "\033[%p1%dL"}, 356 # else 357 {(int)KS_CAL, "\033[%dL"}, 358 # endif 359 {(int)KS_DL, "\033[M"}, 360 # ifdef TERMINFO 361 {(int)KS_CDL, "\033[%p1%dM"}, 362 # else 363 {(int)KS_CDL, "\033[%dM"}, 364 # endif 365 #ifdef BEOS_PR_OR_BETTER 366 # ifdef TERMINFO 367 {(int)KS_CS, "\033[%i%p1%d;%p2%dr"}, 368 # else 369 {(int)KS_CS, "\033[%i%d;%dr"}, /* scroll region */ 370 # endif 371 #endif 372 {(int)KS_CL, "\033[H\033[2J"}, 373 #ifdef notyet 374 {(int)KS_VI, "[VI]"}, /* cursor invisible, VT320: CSI ? 25 l */ 375 {(int)KS_VE, "[VE]"}, /* cursor visible, VT320: CSI ? 25 h */ 376 #endif 377 {(int)KS_ME, "\033[m"}, /* normal mode */ 378 {(int)KS_MR, "\033[7m"}, /* reverse */ 379 {(int)KS_MD, "\033[1m"}, /* bold */ 380 {(int)KS_SO, "\033[31m"}, /* standout mode: red */ 381 {(int)KS_SE, "\033[m"}, /* standout end */ 382 {(int)KS_CZH, "\033[35m"}, /* italic: purple */ 383 {(int)KS_CZR, "\033[m"}, /* italic end */ 384 {(int)KS_US, "\033[4m"}, /* underscore mode */ 385 {(int)KS_UE, "\033[m"}, /* underscore end */ 386 {(int)KS_CCO, "8"}, /* allow 8 colors */ 387 # ifdef TERMINFO 388 {(int)KS_CAB, "\033[4%p1%dm"},/* set background color */ 389 {(int)KS_CAF, "\033[3%p1%dm"},/* set foreground color */ 390 # else 391 {(int)KS_CAB, "\033[4%dm"}, /* set background color */ 392 {(int)KS_CAF, "\033[3%dm"}, /* set foreground color */ 393 # endif 394 {(int)KS_OP, "\033[m"}, /* reset colors */ 395 {(int)KS_MS, "y"}, /* safe to move cur in reverse mode */ 396 {(int)KS_UT, "y"}, /* guessed */ 397 {(int)KS_LE, "\b"}, 398 # ifdef TERMINFO 399 {(int)KS_CM, "\033[%i%p1%d;%p2%dH"}, 400 # else 401 {(int)KS_CM, "\033[%i%d;%dH"}, 402 # endif 403 {(int)KS_SR, "\033M"}, 404 # ifdef TERMINFO 405 {(int)KS_CRI, "\033[%p1%dC"}, 406 # else 407 {(int)KS_CRI, "\033[%dC"}, 408 # endif 409 # if defined(BEOS_DR8) 410 {(int)KS_DB, ""}, /* hack! see screen.c */ 411 # endif 412 413 {K_UP, "\033[A"}, 414 {K_DOWN, "\033[B"}, 415 {K_LEFT, "\033[D"}, 416 {K_RIGHT, "\033[C"}, 417 # endif 418 419 # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS) || defined(SOME_BUILTIN_TCAPS) 420 /* 421 * standard ANSI terminal, default for unix 422 */ 423 {(int)KS_NAME, "ansi"}, 424 {(int)KS_CE, IF_EB("\033[K", ESC_STR "[K")}, 425 {(int)KS_AL, IF_EB("\033[L", ESC_STR "[L")}, 426 # ifdef TERMINFO 427 {(int)KS_CAL, IF_EB("\033[%p1%dL", ESC_STR "[%p1%dL")}, 428 # else 429 {(int)KS_CAL, IF_EB("\033[%dL", ESC_STR "[%dL")}, 430 # endif 431 {(int)KS_DL, IF_EB("\033[M", ESC_STR "[M")}, 432 # ifdef TERMINFO 433 {(int)KS_CDL, IF_EB("\033[%p1%dM", ESC_STR "[%p1%dM")}, 434 # else 435 {(int)KS_CDL, IF_EB("\033[%dM", ESC_STR "[%dM")}, 436 # endif 437 {(int)KS_CL, IF_EB("\033[H\033[2J", ESC_STR "[H" ESC_STR_nc "[2J")}, 438 {(int)KS_ME, IF_EB("\033[0m", ESC_STR "[0m")}, 439 {(int)KS_MR, IF_EB("\033[7m", ESC_STR "[7m")}, 440 {(int)KS_MS, "y"}, 441 {(int)KS_UT, "y"}, /* guessed */ 442 {(int)KS_LE, "\b"}, 443 # ifdef TERMINFO 444 {(int)KS_CM, IF_EB("\033[%i%p1%d;%p2%dH", ESC_STR "[%i%p1%d;%p2%dH")}, 445 # else 446 {(int)KS_CM, IF_EB("\033[%i%d;%dH", ESC_STR "[%i%d;%dH")}, 447 # endif 448 # ifdef TERMINFO 449 {(int)KS_CRI, IF_EB("\033[%p1%dC", ESC_STR "[%p1%dC")}, 450 # else 451 {(int)KS_CRI, IF_EB("\033[%dC", ESC_STR "[%dC")}, 452 # endif 453 # endif 454 455 # if defined(ALL_BUILTIN_TCAPS) 456 /* 457 * These codes are valid when nansi.sys or equivalent has been installed. 458 * Function keys on a PC are preceded with a NUL. These are converted into 459 * K_NUL '\316' in mch_inchar(), because we cannot handle NULs in key codes. 460 * CTRL-arrow is used instead of SHIFT-arrow. 461 */ 462 {(int)KS_NAME, "pcansi"}, 463 {(int)KS_DL, "\033[M"}, 464 {(int)KS_AL, "\033[L"}, 465 {(int)KS_CE, "\033[K"}, 466 {(int)KS_CL, "\033[2J"}, 467 {(int)KS_ME, "\033[0m"}, 468 {(int)KS_MR, "\033[5m"}, /* reverse: black on lightgrey */ 469 {(int)KS_MD, "\033[1m"}, /* bold: white text */ 470 {(int)KS_SE, "\033[0m"}, /* standout end */ 471 {(int)KS_SO, "\033[31m"}, /* standout: white on blue */ 472 {(int)KS_CZH, "\033[34;43m"}, /* italic mode: blue text on yellow */ 473 {(int)KS_CZR, "\033[0m"}, /* italic mode end */ 474 {(int)KS_US, "\033[36;41m"}, /* underscore mode: cyan text on red */ 475 {(int)KS_UE, "\033[0m"}, /* underscore mode end */ 476 {(int)KS_CCO, "8"}, /* allow 8 colors */ 477 # ifdef TERMINFO 478 {(int)KS_CAB, "\033[4%p1%dm"},/* set background color */ 479 {(int)KS_CAF, "\033[3%p1%dm"},/* set foreground color */ 480 # else 481 {(int)KS_CAB, "\033[4%dm"}, /* set background color */ 482 {(int)KS_CAF, "\033[3%dm"}, /* set foreground color */ 483 # endif 484 {(int)KS_OP, "\033[0m"}, /* reset colors */ 485 {(int)KS_MS, "y"}, 486 {(int)KS_UT, "y"}, /* guessed */ 487 {(int)KS_LE, "\b"}, 488 # ifdef TERMINFO 489 {(int)KS_CM, "\033[%i%p1%d;%p2%dH"}, 490 # else 491 {(int)KS_CM, "\033[%i%d;%dH"}, 492 # endif 493 # ifdef TERMINFO 494 {(int)KS_CRI, "\033[%p1%dC"}, 495 # else 496 {(int)KS_CRI, "\033[%dC"}, 497 # endif 498 {K_UP, "\316H"}, 499 {K_DOWN, "\316P"}, 500 {K_LEFT, "\316K"}, 501 {K_RIGHT, "\316M"}, 502 {K_S_LEFT, "\316s"}, 503 {K_S_RIGHT, "\316t"}, 504 {K_F1, "\316;"}, 505 {K_F2, "\316<"}, 506 {K_F3, "\316="}, 507 {K_F4, "\316>"}, 508 {K_F5, "\316?"}, 509 {K_F6, "\316@"}, 510 {K_F7, "\316A"}, 511 {K_F8, "\316B"}, 512 {K_F9, "\316C"}, 513 {K_F10, "\316D"}, 514 {K_F11, "\316\205"}, /* guessed */ 515 {K_F12, "\316\206"}, /* guessed */ 516 {K_S_F1, "\316T"}, 517 {K_S_F2, "\316U"}, 518 {K_S_F3, "\316V"}, 519 {K_S_F4, "\316W"}, 520 {K_S_F5, "\316X"}, 521 {K_S_F6, "\316Y"}, 522 {K_S_F7, "\316Z"}, 523 {K_S_F8, "\316["}, 524 {K_S_F9, "\316\\"}, 525 {K_S_F10, "\316]"}, 526 {K_S_F11, "\316\207"}, /* guessed */ 527 {K_S_F12, "\316\210"}, /* guessed */ 528 {K_INS, "\316R"}, 529 {K_DEL, "\316S"}, 530 {K_HOME, "\316G"}, 531 {K_END, "\316O"}, 532 {K_PAGEDOWN, "\316Q"}, 533 {K_PAGEUP, "\316I"}, 534 # endif 535 536 # if defined(WIN3264) || defined(ALL_BUILTIN_TCAPS) 537 /* 538 * These codes are valid for the Win32 Console . The entries that start with 539 * ESC | are translated into console calls in os_win32.c. The function keys 540 * are also translated in os_win32.c. 541 */ 542 {(int)KS_NAME, "win32"}, 543 {(int)KS_CE, "\033|K"}, /* clear to end of line */ 544 {(int)KS_AL, "\033|L"}, /* add new blank line */ 545 # ifdef TERMINFO 546 {(int)KS_CAL, "\033|%p1%dL"}, /* add number of new blank lines */ 547 # else 548 {(int)KS_CAL, "\033|%dL"}, /* add number of new blank lines */ 549 # endif 550 {(int)KS_DL, "\033|M"}, /* delete line */ 551 # ifdef TERMINFO 552 {(int)KS_CDL, "\033|%p1%dM"}, /* delete number of lines */ 553 # else 554 {(int)KS_CDL, "\033|%dM"}, /* delete number of lines */ 555 # endif 556 {(int)KS_CL, "\033|J"}, /* clear screen */ 557 {(int)KS_CD, "\033|j"}, /* clear to end of display */ 558 {(int)KS_VI, "\033|v"}, /* cursor invisible */ 559 {(int)KS_VE, "\033|V"}, /* cursor visible */ 560 561 {(int)KS_ME, "\033|0m"}, /* normal */ 562 {(int)KS_MR, "\033|112m"}, /* reverse: black on lightgray */ 563 {(int)KS_MD, "\033|15m"}, /* bold: white on black */ 564 #if 1 565 {(int)KS_SO, "\033|31m"}, /* standout: white on blue */ 566 {(int)KS_SE, "\033|0m"}, /* standout end */ 567 #else 568 {(int)KS_SO, "\033|F"}, /* standout: high intensity */ 569 {(int)KS_SE, "\033|f"}, /* standout end */ 570 #endif 571 {(int)KS_CZH, "\033|225m"}, /* italic: blue text on yellow */ 572 {(int)KS_CZR, "\033|0m"}, /* italic end */ 573 {(int)KS_US, "\033|67m"}, /* underscore: cyan text on red */ 574 {(int)KS_UE, "\033|0m"}, /* underscore end */ 575 {(int)KS_CCO, "16"}, /* allow 16 colors */ 576 # ifdef TERMINFO 577 {(int)KS_CAB, "\033|%p1%db"}, /* set background color */ 578 {(int)KS_CAF, "\033|%p1%df"}, /* set foreground color */ 579 # else 580 {(int)KS_CAB, "\033|%db"}, /* set background color */ 581 {(int)KS_CAF, "\033|%df"}, /* set foreground color */ 582 # endif 583 584 {(int)KS_MS, "y"}, /* save to move cur in reverse mode */ 585 {(int)KS_UT, "y"}, 586 {(int)KS_XN, "y"}, 587 {(int)KS_LE, "\b"}, 588 # ifdef TERMINFO 589 {(int)KS_CM, "\033|%i%p1%d;%p2%dH"},/* cursor motion */ 590 # else 591 {(int)KS_CM, "\033|%i%d;%dH"},/* cursor motion */ 592 # endif 593 {(int)KS_VB, "\033|B"}, /* visual bell */ 594 {(int)KS_TI, "\033|S"}, /* put terminal in termcap mode */ 595 {(int)KS_TE, "\033|E"}, /* out of termcap mode */ 596 # ifdef TERMINFO 597 {(int)KS_CS, "\033|%i%p1%d;%p2%dr"},/* scroll region */ 598 # else 599 {(int)KS_CS, "\033|%i%d;%dr"},/* scroll region */ 600 # endif 601 # ifdef FEAT_TERMGUICOLORS 602 {(int)KS_8F, "\033|38;2;%lu;%lu;%lum"}, 603 {(int)KS_8B, "\033|48;2;%lu;%lu;%lum"}, 604 # endif 605 606 {K_UP, "\316H"}, 607 {K_DOWN, "\316P"}, 608 {K_LEFT, "\316K"}, 609 {K_RIGHT, "\316M"}, 610 {K_S_UP, "\316\304"}, 611 {K_S_DOWN, "\316\317"}, 612 {K_S_LEFT, "\316\311"}, 613 {K_C_LEFT, "\316s"}, 614 {K_S_RIGHT, "\316\313"}, 615 {K_C_RIGHT, "\316t"}, 616 {K_S_TAB, "\316\017"}, 617 {K_F1, "\316;"}, 618 {K_F2, "\316<"}, 619 {K_F3, "\316="}, 620 {K_F4, "\316>"}, 621 {K_F5, "\316?"}, 622 {K_F6, "\316@"}, 623 {K_F7, "\316A"}, 624 {K_F8, "\316B"}, 625 {K_F9, "\316C"}, 626 {K_F10, "\316D"}, 627 {K_F11, "\316\205"}, 628 {K_F12, "\316\206"}, 629 {K_S_F1, "\316T"}, 630 {K_S_F2, "\316U"}, 631 {K_S_F3, "\316V"}, 632 {K_S_F4, "\316W"}, 633 {K_S_F5, "\316X"}, 634 {K_S_F6, "\316Y"}, 635 {K_S_F7, "\316Z"}, 636 {K_S_F8, "\316["}, 637 {K_S_F9, "\316\\"}, 638 {K_S_F10, "\316]"}, 639 {K_S_F11, "\316\207"}, 640 {K_S_F12, "\316\210"}, 641 {K_INS, "\316R"}, 642 {K_DEL, "\316S"}, 643 {K_HOME, "\316G"}, 644 {K_S_HOME, "\316\302"}, 645 {K_C_HOME, "\316w"}, 646 {K_END, "\316O"}, 647 {K_S_END, "\316\315"}, 648 {K_C_END, "\316u"}, 649 {K_PAGEDOWN, "\316Q"}, 650 {K_PAGEUP, "\316I"}, 651 {K_KPLUS, "\316N"}, 652 {K_KMINUS, "\316J"}, 653 {K_KMULTIPLY, "\316\067"}, 654 {K_K0, "\316\332"}, 655 {K_K1, "\316\336"}, 656 {K_K2, "\316\342"}, 657 {K_K3, "\316\346"}, 658 {K_K4, "\316\352"}, 659 {K_K5, "\316\356"}, 660 {K_K6, "\316\362"}, 661 {K_K7, "\316\366"}, 662 {K_K8, "\316\372"}, 663 {K_K9, "\316\376"}, 664 # endif 665 666 # if defined(VMS) || defined(ALL_BUILTIN_TCAPS) 667 /* 668 * VT320 is working as an ANSI terminal compatible DEC terminal. 669 * (it covers VT1x0, VT2x0 and VT3x0 up to VT320 on VMS as well) 670 * TODO:- rewrite ESC[ codes to CSI 671 * - keyboard languages (CSI ? 26 n) 672 */ 673 {(int)KS_NAME, "vt320"}, 674 {(int)KS_CE, IF_EB("\033[K", ESC_STR "[K")}, 675 {(int)KS_AL, IF_EB("\033[L", ESC_STR "[L")}, 676 # ifdef TERMINFO 677 {(int)KS_CAL, IF_EB("\033[%p1%dL", ESC_STR "[%p1%dL")}, 678 # else 679 {(int)KS_CAL, IF_EB("\033[%dL", ESC_STR "[%dL")}, 680 # endif 681 {(int)KS_DL, IF_EB("\033[M", ESC_STR "[M")}, 682 # ifdef TERMINFO 683 {(int)KS_CDL, IF_EB("\033[%p1%dM", ESC_STR "[%p1%dM")}, 684 # else 685 {(int)KS_CDL, IF_EB("\033[%dM", ESC_STR "[%dM")}, 686 # endif 687 {(int)KS_CL, IF_EB("\033[H\033[2J", ESC_STR "[H" ESC_STR_nc "[2J")}, 688 {(int)KS_CD, IF_EB("\033[J", ESC_STR "[J")}, 689 {(int)KS_CCO, "8"}, /* allow 8 colors */ 690 {(int)KS_ME, IF_EB("\033[0m", ESC_STR "[0m")}, 691 {(int)KS_MR, IF_EB("\033[7m", ESC_STR "[7m")}, 692 {(int)KS_MD, IF_EB("\033[1m", ESC_STR "[1m")}, /* bold mode */ 693 {(int)KS_SE, IF_EB("\033[22m", ESC_STR "[22m")},/* normal mode */ 694 {(int)KS_UE, IF_EB("\033[24m", ESC_STR "[24m")},/* exit underscore mode */ 695 {(int)KS_US, IF_EB("\033[4m", ESC_STR "[4m")}, /* underscore mode */ 696 {(int)KS_CZH, IF_EB("\033[34;43m", ESC_STR "[34;43m")}, /* italic mode: blue text on yellow */ 697 {(int)KS_CZR, IF_EB("\033[0m", ESC_STR "[0m")}, /* italic mode end */ 698 {(int)KS_CAB, IF_EB("\033[4%dm", ESC_STR "[4%dm")}, /* set background color (ANSI) */ 699 {(int)KS_CAF, IF_EB("\033[3%dm", ESC_STR "[3%dm")}, /* set foreground color (ANSI) */ 700 {(int)KS_CSB, IF_EB("\033[102;%dm", ESC_STR "[102;%dm")}, /* set screen background color */ 701 {(int)KS_CSF, IF_EB("\033[101;%dm", ESC_STR "[101;%dm")}, /* set screen foreground color */ 702 {(int)KS_MS, "y"}, 703 {(int)KS_UT, "y"}, 704 {(int)KS_XN, "y"}, 705 {(int)KS_LE, "\b"}, 706 # ifdef TERMINFO 707 {(int)KS_CM, IF_EB("\033[%i%p1%d;%p2%dH", 708 ESC_STR "[%i%p1%d;%p2%dH")}, 709 # else 710 {(int)KS_CM, IF_EB("\033[%i%d;%dH", ESC_STR "[%i%d;%dH")}, 711 # endif 712 # ifdef TERMINFO 713 {(int)KS_CRI, IF_EB("\033[%p1%dC", ESC_STR "[%p1%dC")}, 714 # else 715 {(int)KS_CRI, IF_EB("\033[%dC", ESC_STR "[%dC")}, 716 # endif 717 {K_UP, IF_EB("\033[A", ESC_STR "[A")}, 718 {K_DOWN, IF_EB("\033[B", ESC_STR "[B")}, 719 {K_RIGHT, IF_EB("\033[C", ESC_STR "[C")}, 720 {K_LEFT, IF_EB("\033[D", ESC_STR "[D")}, 721 // Note: cursor key sequences for application cursor mode are omitted, 722 // because they interfere with typed commands: <Esc>OA. 723 {K_F1, IF_EB("\033[11~", ESC_STR "[11~")}, 724 {K_F2, IF_EB("\033[12~", ESC_STR "[12~")}, 725 {K_F3, IF_EB("\033[13~", ESC_STR "[13~")}, 726 {K_F4, IF_EB("\033[14~", ESC_STR "[14~")}, 727 {K_F5, IF_EB("\033[15~", ESC_STR "[15~")}, 728 {K_F6, IF_EB("\033[17~", ESC_STR "[17~")}, 729 {K_F7, IF_EB("\033[18~", ESC_STR "[18~")}, 730 {K_F8, IF_EB("\033[19~", ESC_STR "[19~")}, 731 {K_F9, IF_EB("\033[20~", ESC_STR "[20~")}, 732 {K_F10, IF_EB("\033[21~", ESC_STR "[21~")}, 733 {K_F11, IF_EB("\033[23~", ESC_STR "[23~")}, 734 {K_F12, IF_EB("\033[24~", ESC_STR "[24~")}, 735 {K_F13, IF_EB("\033[25~", ESC_STR "[25~")}, 736 {K_F14, IF_EB("\033[26~", ESC_STR "[26~")}, 737 {K_F15, IF_EB("\033[28~", ESC_STR "[28~")}, /* Help */ 738 {K_F16, IF_EB("\033[29~", ESC_STR "[29~")}, /* Select */ 739 {K_F17, IF_EB("\033[31~", ESC_STR "[31~")}, 740 {K_F18, IF_EB("\033[32~", ESC_STR "[32~")}, 741 {K_F19, IF_EB("\033[33~", ESC_STR "[33~")}, 742 {K_F20, IF_EB("\033[34~", ESC_STR "[34~")}, 743 {K_INS, IF_EB("\033[2~", ESC_STR "[2~")}, 744 {K_DEL, IF_EB("\033[3~", ESC_STR "[3~")}, 745 {K_HOME, IF_EB("\033[1~", ESC_STR "[1~")}, 746 {K_END, IF_EB("\033[4~", ESC_STR "[4~")}, 747 {K_PAGEUP, IF_EB("\033[5~", ESC_STR "[5~")}, 748 {K_PAGEDOWN, IF_EB("\033[6~", ESC_STR "[6~")}, 749 // These sequences starting with <Esc> O may interfere with what the user 750 // is typing. Remove these if that bothers you. 751 {K_KPLUS, IF_EB("\033Ok", ESC_STR "Ok")}, /* keypad plus */ 752 {K_KMINUS, IF_EB("\033Om", ESC_STR "Om")}, /* keypad minus */ 753 {K_KDIVIDE, IF_EB("\033Oo", ESC_STR "Oo")}, /* keypad / */ 754 {K_KMULTIPLY, IF_EB("\033Oj", ESC_STR "Oj")}, /* keypad * */ 755 {K_KENTER, IF_EB("\033OM", ESC_STR "OM")}, /* keypad Enter */ 756 {K_K0, IF_EB("\033Op", ESC_STR "Op")}, /* keypad 0 */ 757 {K_K1, IF_EB("\033Oq", ESC_STR "Oq")}, /* keypad 1 */ 758 {K_K2, IF_EB("\033Or", ESC_STR "Or")}, /* keypad 2 */ 759 {K_K3, IF_EB("\033Os", ESC_STR "Os")}, /* keypad 3 */ 760 {K_K4, IF_EB("\033Ot", ESC_STR "Ot")}, /* keypad 4 */ 761 {K_K5, IF_EB("\033Ou", ESC_STR "Ou")}, /* keypad 5 */ 762 {K_K6, IF_EB("\033Ov", ESC_STR "Ov")}, /* keypad 6 */ 763 {K_K7, IF_EB("\033Ow", ESC_STR "Ow")}, /* keypad 7 */ 764 {K_K8, IF_EB("\033Ox", ESC_STR "Ox")}, /* keypad 8 */ 765 {K_K9, IF_EB("\033Oy", ESC_STR "Oy")}, /* keypad 9 */ 766 {K_BS, "\x7f"}, /* for some reason 0177 doesn't work */ 767 # endif 768 769 # if defined(ALL_BUILTIN_TCAPS) || defined(__MINT__) 770 /* 771 * Ordinary vt52 772 */ 773 {(int)KS_NAME, "vt52"}, 774 {(int)KS_CE, IF_EB("\033K", ESC_STR "K")}, 775 {(int)KS_CD, IF_EB("\033J", ESC_STR "J")}, 776 # ifdef TERMINFO 777 {(int)KS_CM, IF_EB("\033Y%p1%' '%+%c%p2%' '%+%c", 778 ESC_STR "Y%p1%' '%+%c%p2%' '%+%c")}, 779 # else 780 {(int)KS_CM, IF_EB("\033Y%+ %+ ", ESC_STR "Y%+ %+ ")}, 781 # endif 782 {(int)KS_LE, "\b"}, 783 {(int)KS_SR, IF_EB("\033I", ESC_STR "I")}, 784 {(int)KS_AL, IF_EB("\033L", ESC_STR "L")}, 785 {(int)KS_DL, IF_EB("\033M", ESC_STR "M")}, 786 {K_UP, IF_EB("\033A", ESC_STR "A")}, 787 {K_DOWN, IF_EB("\033B", ESC_STR "B")}, 788 {K_LEFT, IF_EB("\033D", ESC_STR "D")}, 789 {K_RIGHT, IF_EB("\033C", ESC_STR "C")}, 790 {K_F1, IF_EB("\033P", ESC_STR "P")}, 791 {K_F2, IF_EB("\033Q", ESC_STR "Q")}, 792 {K_F3, IF_EB("\033R", ESC_STR "R")}, 793 # ifdef __MINT__ 794 {(int)KS_CL, IF_EB("\033E", ESC_STR "E")}, 795 {(int)KS_VE, IF_EB("\033e", ESC_STR "e")}, 796 {(int)KS_VI, IF_EB("\033f", ESC_STR "f")}, 797 {(int)KS_SO, IF_EB("\033p", ESC_STR "p")}, 798 {(int)KS_SE, IF_EB("\033q", ESC_STR "q")}, 799 {K_S_UP, IF_EB("\033a", ESC_STR "a")}, 800 {K_S_DOWN, IF_EB("\033b", ESC_STR "b")}, 801 {K_S_LEFT, IF_EB("\033d", ESC_STR "d")}, 802 {K_S_RIGHT, IF_EB("\033c", ESC_STR "c")}, 803 {K_F4, IF_EB("\033S", ESC_STR "S")}, 804 {K_F5, IF_EB("\033T", ESC_STR "T")}, 805 {K_F6, IF_EB("\033U", ESC_STR "U")}, 806 {K_F7, IF_EB("\033V", ESC_STR "V")}, 807 {K_F8, IF_EB("\033W", ESC_STR "W")}, 808 {K_F9, IF_EB("\033X", ESC_STR "X")}, 809 {K_F10, IF_EB("\033Y", ESC_STR "Y")}, 810 {K_S_F1, IF_EB("\033p", ESC_STR "p")}, 811 {K_S_F2, IF_EB("\033q", ESC_STR "q")}, 812 {K_S_F3, IF_EB("\033r", ESC_STR "r")}, 813 {K_S_F4, IF_EB("\033s", ESC_STR "s")}, 814 {K_S_F5, IF_EB("\033t", ESC_STR "t")}, 815 {K_S_F6, IF_EB("\033u", ESC_STR "u")}, 816 {K_S_F7, IF_EB("\033v", ESC_STR "v")}, 817 {K_S_F8, IF_EB("\033w", ESC_STR "w")}, 818 {K_S_F9, IF_EB("\033x", ESC_STR "x")}, 819 {K_S_F10, IF_EB("\033y", ESC_STR "y")}, 820 {K_INS, IF_EB("\033I", ESC_STR "I")}, 821 {K_HOME, IF_EB("\033E", ESC_STR "E")}, 822 {K_PAGEDOWN, IF_EB("\033b", ESC_STR "b")}, 823 {K_PAGEUP, IF_EB("\033a", ESC_STR "a")}, 824 # else 825 {(int)KS_CL, IF_EB("\033H\033J", ESC_STR "H" ESC_STR_nc "J")}, 826 {(int)KS_MS, "y"}, 827 # endif 828 # endif 829 830 # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS) || defined(SOME_BUILTIN_TCAPS) 831 {(int)KS_NAME, "xterm"}, 832 {(int)KS_CE, IF_EB("\033[K", ESC_STR "[K")}, 833 {(int)KS_AL, IF_EB("\033[L", ESC_STR "[L")}, 834 # ifdef TERMINFO 835 {(int)KS_CAL, IF_EB("\033[%p1%dL", ESC_STR "[%p1%dL")}, 836 # else 837 {(int)KS_CAL, IF_EB("\033[%dL", ESC_STR "[%dL")}, 838 # endif 839 {(int)KS_DL, IF_EB("\033[M", ESC_STR "[M")}, 840 # ifdef TERMINFO 841 {(int)KS_CDL, IF_EB("\033[%p1%dM", ESC_STR "[%p1%dM")}, 842 # else 843 {(int)KS_CDL, IF_EB("\033[%dM", ESC_STR "[%dM")}, 844 # endif 845 # ifdef TERMINFO 846 {(int)KS_CS, IF_EB("\033[%i%p1%d;%p2%dr", 847 ESC_STR "[%i%p1%d;%p2%dr")}, 848 # else 849 {(int)KS_CS, IF_EB("\033[%i%d;%dr", ESC_STR "[%i%d;%dr")}, 850 # endif 851 {(int)KS_CL, IF_EB("\033[H\033[2J", ESC_STR "[H" ESC_STR_nc "[2J")}, 852 {(int)KS_CD, IF_EB("\033[J", ESC_STR "[J")}, 853 {(int)KS_ME, IF_EB("\033[m", ESC_STR "[m")}, 854 {(int)KS_MR, IF_EB("\033[7m", ESC_STR "[7m")}, 855 {(int)KS_MD, IF_EB("\033[1m", ESC_STR "[1m")}, 856 {(int)KS_UE, IF_EB("\033[m", ESC_STR "[m")}, 857 {(int)KS_US, IF_EB("\033[4m", ESC_STR "[4m")}, 858 {(int)KS_STE, IF_EB("\033[29m", ESC_STR "[29m")}, 859 {(int)KS_STS, IF_EB("\033[9m", ESC_STR "[9m")}, 860 {(int)KS_MS, "y"}, 861 {(int)KS_UT, "y"}, 862 {(int)KS_LE, "\b"}, 863 {(int)KS_VI, IF_EB("\033[?25l", ESC_STR "[?25l")}, 864 {(int)KS_VE, IF_EB("\033[?25h", ESC_STR "[?25h")}, 865 {(int)KS_VS, IF_EB("\033[?12h", ESC_STR "[?12h")}, 866 {(int)KS_CVS, IF_EB("\033[?12l", ESC_STR "[?12l")}, 867 # ifdef TERMINFO 868 {(int)KS_CSH, IF_EB("\033[%p1%d q", ESC_STR "[%p1%d q")}, 869 # else 870 {(int)KS_CSH, IF_EB("\033[%d q", ESC_STR "[%d q")}, 871 # endif 872 {(int)KS_CRC, IF_EB("\033[?12$p", ESC_STR "[?12$p")}, 873 {(int)KS_CRS, IF_EB("\033P$q q\033\\", ESC_STR "P$q q" ESC_STR "\\")}, 874 # ifdef TERMINFO 875 {(int)KS_CM, IF_EB("\033[%i%p1%d;%p2%dH", 876 ESC_STR "[%i%p1%d;%p2%dH")}, 877 # else 878 {(int)KS_CM, IF_EB("\033[%i%d;%dH", ESC_STR "[%i%d;%dH")}, 879 # endif 880 {(int)KS_SR, IF_EB("\033M", ESC_STR "M")}, 881 # ifdef TERMINFO 882 {(int)KS_CRI, IF_EB("\033[%p1%dC", ESC_STR "[%p1%dC")}, 883 # else 884 {(int)KS_CRI, IF_EB("\033[%dC", ESC_STR "[%dC")}, 885 # endif 886 {(int)KS_KS, IF_EB("\033[?1h\033=", ESC_STR "[?1h" ESC_STR_nc "=")}, 887 {(int)KS_KE, IF_EB("\033[?1l\033>", ESC_STR "[?1l" ESC_STR_nc ">")}, 888 # ifdef FEAT_XTERM_SAVE 889 {(int)KS_TI, IF_EB("\0337\033[?47h", ESC_STR "7" ESC_STR_nc "[?47h")}, 890 {(int)KS_TE, IF_EB("\033[2J\033[?47l\0338", 891 ESC_STR "[2J" ESC_STR_nc "[?47l" ESC_STR_nc "8")}, 892 # endif 893 {(int)KS_CIS, IF_EB("\033]1;", ESC_STR "]1;")}, 894 {(int)KS_CIE, "\007"}, 895 {(int)KS_TS, IF_EB("\033]2;", ESC_STR "]2;")}, 896 {(int)KS_FS, "\007"}, 897 {(int)KS_CSC, IF_EB("\033]12;", ESC_STR "]12;")}, 898 {(int)KS_CEC, "\007"}, 899 # ifdef TERMINFO 900 {(int)KS_CWS, IF_EB("\033[8;%p1%d;%p2%dt", 901 ESC_STR "[8;%p1%d;%p2%dt")}, 902 {(int)KS_CWP, IF_EB("\033[3;%p1%d;%p2%dt", 903 ESC_STR "[3;%p1%d;%p2%dt")}, 904 {(int)KS_CGP, IF_EB("\033[13t", ESC_STR "[13t")}, 905 # else 906 {(int)KS_CWS, IF_EB("\033[8;%d;%dt", ESC_STR "[8;%d;%dt")}, 907 {(int)KS_CWP, IF_EB("\033[3;%d;%dt", ESC_STR "[3;%d;%dt")}, 908 {(int)KS_CGP, IF_EB("\033[13t", ESC_STR "[13t")}, 909 # endif 910 {(int)KS_CRV, IF_EB("\033[>c", ESC_STR "[>c")}, 911 {(int)KS_RFG, IF_EB("\033]10;?\007", ESC_STR "]10;?\007")}, 912 {(int)KS_RBG, IF_EB("\033]11;?\007", ESC_STR "]11;?\007")}, 913 {(int)KS_U7, IF_EB("\033[6n", ESC_STR "[6n")}, 914 # ifdef FEAT_TERMGUICOLORS 915 /* These are printf strings, not terminal codes. */ 916 {(int)KS_8F, IF_EB("\033[38;2;%lu;%lu;%lum", ESC_STR "[38;2;%lu;%lu;%lum")}, 917 {(int)KS_8B, IF_EB("\033[48;2;%lu;%lu;%lum", ESC_STR "[48;2;%lu;%lu;%lum")}, 918 # endif 919 {(int)KS_CBE, IF_EB("\033[?2004h", ESC_STR "[?2004h")}, 920 {(int)KS_CBD, IF_EB("\033[?2004l", ESC_STR "[?2004l")}, 921 {(int)KS_CST, IF_EB("\033[22;2t", ESC_STR "[22;2t")}, 922 {(int)KS_CRT, IF_EB("\033[23;2t", ESC_STR "[23;2t")}, 923 {(int)KS_SSI, IF_EB("\033[22;1t", ESC_STR "[22;1t")}, 924 {(int)KS_SRI, IF_EB("\033[23;1t", ESC_STR "[23;1t")}, 925 926 {K_UP, IF_EB("\033O*A", ESC_STR "O*A")}, 927 {K_DOWN, IF_EB("\033O*B", ESC_STR "O*B")}, 928 {K_RIGHT, IF_EB("\033O*C", ESC_STR "O*C")}, 929 {K_LEFT, IF_EB("\033O*D", ESC_STR "O*D")}, 930 /* An extra set of cursor keys for vt100 mode */ 931 {K_XUP, IF_EB("\033[1;*A", ESC_STR "[1;*A")}, 932 {K_XDOWN, IF_EB("\033[1;*B", ESC_STR "[1;*B")}, 933 {K_XRIGHT, IF_EB("\033[1;*C", ESC_STR "[1;*C")}, 934 {K_XLEFT, IF_EB("\033[1;*D", ESC_STR "[1;*D")}, 935 /* An extra set of function keys for vt100 mode */ 936 {K_XF1, IF_EB("\033O*P", ESC_STR "O*P")}, 937 {K_XF2, IF_EB("\033O*Q", ESC_STR "O*Q")}, 938 {K_XF3, IF_EB("\033O*R", ESC_STR "O*R")}, 939 {K_XF4, IF_EB("\033O*S", ESC_STR "O*S")}, 940 {K_F1, IF_EB("\033[11;*~", ESC_STR "[11;*~")}, 941 {K_F2, IF_EB("\033[12;*~", ESC_STR "[12;*~")}, 942 {K_F3, IF_EB("\033[13;*~", ESC_STR "[13;*~")}, 943 {K_F4, IF_EB("\033[14;*~", ESC_STR "[14;*~")}, 944 {K_F5, IF_EB("\033[15;*~", ESC_STR "[15;*~")}, 945 {K_F6, IF_EB("\033[17;*~", ESC_STR "[17;*~")}, 946 {K_F7, IF_EB("\033[18;*~", ESC_STR "[18;*~")}, 947 {K_F8, IF_EB("\033[19;*~", ESC_STR "[19;*~")}, 948 {K_F9, IF_EB("\033[20;*~", ESC_STR "[20;*~")}, 949 {K_F10, IF_EB("\033[21;*~", ESC_STR "[21;*~")}, 950 {K_F11, IF_EB("\033[23;*~", ESC_STR "[23;*~")}, 951 {K_F12, IF_EB("\033[24;*~", ESC_STR "[24;*~")}, 952 {K_S_TAB, IF_EB("\033[Z", ESC_STR "[Z")}, 953 {K_HELP, IF_EB("\033[28;*~", ESC_STR "[28;*~")}, 954 {K_UNDO, IF_EB("\033[26;*~", ESC_STR "[26;*~")}, 955 {K_INS, IF_EB("\033[2;*~", ESC_STR "[2;*~")}, 956 {K_HOME, IF_EB("\033[1;*H", ESC_STR "[1;*H")}, 957 /* {K_S_HOME, IF_EB("\033O2H", ESC_STR "O2H")}, */ 958 /* {K_C_HOME, IF_EB("\033O5H", ESC_STR "O5H")}, */ 959 {K_KHOME, IF_EB("\033[1;*~", ESC_STR "[1;*~")}, 960 {K_XHOME, IF_EB("\033O*H", ESC_STR "O*H")}, /* other Home */ 961 {K_ZHOME, IF_EB("\033[7;*~", ESC_STR "[7;*~")}, /* other Home */ 962 {K_END, IF_EB("\033[1;*F", ESC_STR "[1;*F")}, 963 /* {K_S_END, IF_EB("\033O2F", ESC_STR "O2F")}, */ 964 /* {K_C_END, IF_EB("\033O5F", ESC_STR "O5F")}, */ 965 {K_KEND, IF_EB("\033[4;*~", ESC_STR "[4;*~")}, 966 {K_XEND, IF_EB("\033O*F", ESC_STR "O*F")}, /* other End */ 967 {K_ZEND, IF_EB("\033[8;*~", ESC_STR "[8;*~")}, 968 {K_PAGEUP, IF_EB("\033[5;*~", ESC_STR "[5;*~")}, 969 {K_PAGEDOWN, IF_EB("\033[6;*~", ESC_STR "[6;*~")}, 970 {K_KPLUS, IF_EB("\033O*k", ESC_STR "O*k")}, /* keypad plus */ 971 {K_KMINUS, IF_EB("\033O*m", ESC_STR "O*m")}, /* keypad minus */ 972 {K_KDIVIDE, IF_EB("\033O*o", ESC_STR "O*o")}, /* keypad / */ 973 {K_KMULTIPLY, IF_EB("\033O*j", ESC_STR "O*j")}, /* keypad * */ 974 {K_KENTER, IF_EB("\033O*M", ESC_STR "O*M")}, /* keypad Enter */ 975 {K_KPOINT, IF_EB("\033O*n", ESC_STR "O*n")}, /* keypad . */ 976 {K_K0, IF_EB("\033O*p", ESC_STR "O*p")}, /* keypad 0 */ 977 {K_K1, IF_EB("\033O*q", ESC_STR "O*q")}, /* keypad 1 */ 978 {K_K2, IF_EB("\033O*r", ESC_STR "O*r")}, /* keypad 2 */ 979 {K_K3, IF_EB("\033O*s", ESC_STR "O*s")}, /* keypad 3 */ 980 {K_K4, IF_EB("\033O*t", ESC_STR "O*t")}, /* keypad 4 */ 981 {K_K5, IF_EB("\033O*u", ESC_STR "O*u")}, /* keypad 5 */ 982 {K_K6, IF_EB("\033O*v", ESC_STR "O*v")}, /* keypad 6 */ 983 {K_K7, IF_EB("\033O*w", ESC_STR "O*w")}, /* keypad 7 */ 984 {K_K8, IF_EB("\033O*x", ESC_STR "O*x")}, /* keypad 8 */ 985 {K_K9, IF_EB("\033O*y", ESC_STR "O*y")}, /* keypad 9 */ 986 {K_KDEL, IF_EB("\033[3;*~", ESC_STR "[3;*~")}, /* keypad Del */ 987 {K_PS, IF_EB("\033[200~", ESC_STR "[200~")}, /* paste start */ 988 {K_PE, IF_EB("\033[201~", ESC_STR "[201~")}, /* paste end */ 989 990 {BT_EXTRA_KEYS, ""}, 991 {TERMCAP2KEY('k', '0'), IF_EB("\033[10;*~", ESC_STR "[10;*~")}, /* F0 */ 992 {TERMCAP2KEY('F', '3'), IF_EB("\033[25;*~", ESC_STR "[25;*~")}, /* F13 */ 993 /* F14 and F15 are missing, because they send the same codes as the undo 994 * and help key, although they don't work on all keyboards. */ 995 {TERMCAP2KEY('F', '6'), IF_EB("\033[29;*~", ESC_STR "[29;*~")}, /* F16 */ 996 {TERMCAP2KEY('F', '7'), IF_EB("\033[31;*~", ESC_STR "[31;*~")}, /* F17 */ 997 {TERMCAP2KEY('F', '8'), IF_EB("\033[32;*~", ESC_STR "[32;*~")}, /* F18 */ 998 {TERMCAP2KEY('F', '9'), IF_EB("\033[33;*~", ESC_STR "[33;*~")}, /* F19 */ 999 {TERMCAP2KEY('F', 'A'), IF_EB("\033[34;*~", ESC_STR "[34;*~")}, /* F20 */ 1000 1001 {TERMCAP2KEY('F', 'B'), IF_EB("\033[42;*~", ESC_STR "[42;*~")}, /* F21 */ 1002 {TERMCAP2KEY('F', 'C'), IF_EB("\033[43;*~", ESC_STR "[43;*~")}, /* F22 */ 1003 {TERMCAP2KEY('F', 'D'), IF_EB("\033[44;*~", ESC_STR "[44;*~")}, /* F23 */ 1004 {TERMCAP2KEY('F', 'E'), IF_EB("\033[45;*~", ESC_STR "[45;*~")}, /* F24 */ 1005 {TERMCAP2KEY('F', 'F'), IF_EB("\033[46;*~", ESC_STR "[46;*~")}, /* F25 */ 1006 {TERMCAP2KEY('F', 'G'), IF_EB("\033[47;*~", ESC_STR "[47;*~")}, /* F26 */ 1007 {TERMCAP2KEY('F', 'H'), IF_EB("\033[48;*~", ESC_STR "[48;*~")}, /* F27 */ 1008 {TERMCAP2KEY('F', 'I'), IF_EB("\033[49;*~", ESC_STR "[49;*~")}, /* F28 */ 1009 {TERMCAP2KEY('F', 'J'), IF_EB("\033[50;*~", ESC_STR "[50;*~")}, /* F29 */ 1010 {TERMCAP2KEY('F', 'K'), IF_EB("\033[51;*~", ESC_STR "[51;*~")}, /* F30 */ 1011 1012 {TERMCAP2KEY('F', 'L'), IF_EB("\033[52;*~", ESC_STR "[52;*~")}, /* F31 */ 1013 {TERMCAP2KEY('F', 'M'), IF_EB("\033[53;*~", ESC_STR "[53;*~")}, /* F32 */ 1014 {TERMCAP2KEY('F', 'N'), IF_EB("\033[54;*~", ESC_STR "[54;*~")}, /* F33 */ 1015 {TERMCAP2KEY('F', 'O'), IF_EB("\033[55;*~", ESC_STR "[55;*~")}, /* F34 */ 1016 {TERMCAP2KEY('F', 'P'), IF_EB("\033[56;*~", ESC_STR "[56;*~")}, /* F35 */ 1017 {TERMCAP2KEY('F', 'Q'), IF_EB("\033[57;*~", ESC_STR "[57;*~")}, /* F36 */ 1018 {TERMCAP2KEY('F', 'R'), IF_EB("\033[58;*~", ESC_STR "[58;*~")}, /* F37 */ 1019 # endif 1020 1021 # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS) 1022 /* 1023 * iris-ansi for Silicon Graphics machines. 1024 */ 1025 {(int)KS_NAME, "iris-ansi"}, 1026 {(int)KS_CE, "\033[K"}, 1027 {(int)KS_CD, "\033[J"}, 1028 {(int)KS_AL, "\033[L"}, 1029 # ifdef TERMINFO 1030 {(int)KS_CAL, "\033[%p1%dL"}, 1031 # else 1032 {(int)KS_CAL, "\033[%dL"}, 1033 # endif 1034 {(int)KS_DL, "\033[M"}, 1035 # ifdef TERMINFO 1036 {(int)KS_CDL, "\033[%p1%dM"}, 1037 # else 1038 {(int)KS_CDL, "\033[%dM"}, 1039 # endif 1040 #if 0 /* The scroll region is not working as Vim expects. */ 1041 # ifdef TERMINFO 1042 {(int)KS_CS, "\033[%i%p1%d;%p2%dr"}, 1043 # else 1044 {(int)KS_CS, "\033[%i%d;%dr"}, 1045 # endif 1046 #endif 1047 {(int)KS_CL, "\033[H\033[2J"}, 1048 {(int)KS_VE, "\033[9/y\033[12/y"}, /* These aren't documented */ 1049 {(int)KS_VS, "\033[10/y\033[=1h\033[=2l"}, /* These aren't documented */ 1050 {(int)KS_TI, "\033[=6h"}, 1051 {(int)KS_TE, "\033[=6l"}, 1052 {(int)KS_SE, "\033[21;27m"}, 1053 {(int)KS_SO, "\033[1;7m"}, 1054 {(int)KS_ME, "\033[m"}, 1055 {(int)KS_MR, "\033[7m"}, 1056 {(int)KS_MD, "\033[1m"}, 1057 {(int)KS_CCO, "8"}, /* allow 8 colors */ 1058 {(int)KS_CZH, "\033[3m"}, /* italic mode on */ 1059 {(int)KS_CZR, "\033[23m"}, /* italic mode off */ 1060 {(int)KS_US, "\033[4m"}, /* underline on */ 1061 {(int)KS_UE, "\033[24m"}, /* underline off */ 1062 # ifdef TERMINFO 1063 {(int)KS_CAB, "\033[4%p1%dm"}, /* set background color (ANSI) */ 1064 {(int)KS_CAF, "\033[3%p1%dm"}, /* set foreground color (ANSI) */ 1065 {(int)KS_CSB, "\033[102;%p1%dm"}, /* set screen background color */ 1066 {(int)KS_CSF, "\033[101;%p1%dm"}, /* set screen foreground color */ 1067 # else 1068 {(int)KS_CAB, "\033[4%dm"}, /* set background color (ANSI) */ 1069 {(int)KS_CAF, "\033[3%dm"}, /* set foreground color (ANSI) */ 1070 {(int)KS_CSB, "\033[102;%dm"}, /* set screen background color */ 1071 {(int)KS_CSF, "\033[101;%dm"}, /* set screen foreground color */ 1072 # endif 1073 {(int)KS_MS, "y"}, /* guessed */ 1074 {(int)KS_UT, "y"}, /* guessed */ 1075 {(int)KS_LE, "\b"}, 1076 # ifdef TERMINFO 1077 {(int)KS_CM, "\033[%i%p1%d;%p2%dH"}, 1078 # else 1079 {(int)KS_CM, "\033[%i%d;%dH"}, 1080 # endif 1081 {(int)KS_SR, "\033M"}, 1082 # ifdef TERMINFO 1083 {(int)KS_CRI, "\033[%p1%dC"}, 1084 # else 1085 {(int)KS_CRI, "\033[%dC"}, 1086 # endif 1087 {(int)KS_CIS, "\033P3.y"}, 1088 {(int)KS_CIE, "\234"}, /* ST "String Terminator" */ 1089 {(int)KS_TS, "\033P1.y"}, 1090 {(int)KS_FS, "\234"}, /* ST "String Terminator" */ 1091 # ifdef TERMINFO 1092 {(int)KS_CWS, "\033[203;%p1%d;%p2%d/y"}, 1093 {(int)KS_CWP, "\033[205;%p1%d;%p2%d/y"}, 1094 # else 1095 {(int)KS_CWS, "\033[203;%d;%d/y"}, 1096 {(int)KS_CWP, "\033[205;%d;%d/y"}, 1097 # endif 1098 {K_UP, "\033[A"}, 1099 {K_DOWN, "\033[B"}, 1100 {K_LEFT, "\033[D"}, 1101 {K_RIGHT, "\033[C"}, 1102 {K_S_UP, "\033[161q"}, 1103 {K_S_DOWN, "\033[164q"}, 1104 {K_S_LEFT, "\033[158q"}, 1105 {K_S_RIGHT, "\033[167q"}, 1106 {K_F1, "\033[001q"}, 1107 {K_F2, "\033[002q"}, 1108 {K_F3, "\033[003q"}, 1109 {K_F4, "\033[004q"}, 1110 {K_F5, "\033[005q"}, 1111 {K_F6, "\033[006q"}, 1112 {K_F7, "\033[007q"}, 1113 {K_F8, "\033[008q"}, 1114 {K_F9, "\033[009q"}, 1115 {K_F10, "\033[010q"}, 1116 {K_F11, "\033[011q"}, 1117 {K_F12, "\033[012q"}, 1118 {K_S_F1, "\033[013q"}, 1119 {K_S_F2, "\033[014q"}, 1120 {K_S_F3, "\033[015q"}, 1121 {K_S_F4, "\033[016q"}, 1122 {K_S_F5, "\033[017q"}, 1123 {K_S_F6, "\033[018q"}, 1124 {K_S_F7, "\033[019q"}, 1125 {K_S_F8, "\033[020q"}, 1126 {K_S_F9, "\033[021q"}, 1127 {K_S_F10, "\033[022q"}, 1128 {K_S_F11, "\033[023q"}, 1129 {K_S_F12, "\033[024q"}, 1130 {K_INS, "\033[139q"}, 1131 {K_HOME, "\033[H"}, 1132 {K_END, "\033[146q"}, 1133 {K_PAGEUP, "\033[150q"}, 1134 {K_PAGEDOWN, "\033[154q"}, 1135 # endif 1136 1137 # if defined(DEBUG) || defined(ALL_BUILTIN_TCAPS) 1138 /* 1139 * for debugging 1140 */ 1141 {(int)KS_NAME, "debug"}, 1142 {(int)KS_CE, "[CE]"}, 1143 {(int)KS_CD, "[CD]"}, 1144 {(int)KS_AL, "[AL]"}, 1145 # ifdef TERMINFO 1146 {(int)KS_CAL, "[CAL%p1%d]"}, 1147 # else 1148 {(int)KS_CAL, "[CAL%d]"}, 1149 # endif 1150 {(int)KS_DL, "[DL]"}, 1151 # ifdef TERMINFO 1152 {(int)KS_CDL, "[CDL%p1%d]"}, 1153 # else 1154 {(int)KS_CDL, "[CDL%d]"}, 1155 # endif 1156 # ifdef TERMINFO 1157 {(int)KS_CS, "[%p1%dCS%p2%d]"}, 1158 # else 1159 {(int)KS_CS, "[%dCS%d]"}, 1160 # endif 1161 # ifdef TERMINFO 1162 {(int)KS_CSV, "[%p1%dCSV%p2%d]"}, 1163 # else 1164 {(int)KS_CSV, "[%dCSV%d]"}, 1165 # endif 1166 # ifdef TERMINFO 1167 {(int)KS_CAB, "[CAB%p1%d]"}, 1168 {(int)KS_CAF, "[CAF%p1%d]"}, 1169 {(int)KS_CSB, "[CSB%p1%d]"}, 1170 {(int)KS_CSF, "[CSF%p1%d]"}, 1171 # else 1172 {(int)KS_CAB, "[CAB%d]"}, 1173 {(int)KS_CAF, "[CAF%d]"}, 1174 {(int)KS_CSB, "[CSB%d]"}, 1175 {(int)KS_CSF, "[CSF%d]"}, 1176 # endif 1177 {(int)KS_OP, "[OP]"}, 1178 {(int)KS_LE, "[LE]"}, 1179 {(int)KS_CL, "[CL]"}, 1180 {(int)KS_VI, "[VI]"}, 1181 {(int)KS_VE, "[VE]"}, 1182 {(int)KS_VS, "[VS]"}, 1183 {(int)KS_ME, "[ME]"}, 1184 {(int)KS_MR, "[MR]"}, 1185 {(int)KS_MB, "[MB]"}, 1186 {(int)KS_MD, "[MD]"}, 1187 {(int)KS_SE, "[SE]"}, 1188 {(int)KS_SO, "[SO]"}, 1189 {(int)KS_UE, "[UE]"}, 1190 {(int)KS_US, "[US]"}, 1191 {(int)KS_UCE, "[UCE]"}, 1192 {(int)KS_UCS, "[UCS]"}, 1193 {(int)KS_STE, "[STE]"}, 1194 {(int)KS_STS, "[STS]"}, 1195 {(int)KS_MS, "[MS]"}, 1196 {(int)KS_UT, "[UT]"}, 1197 {(int)KS_XN, "[XN]"}, 1198 # ifdef TERMINFO 1199 {(int)KS_CM, "[%p1%dCM%p2%d]"}, 1200 # else 1201 {(int)KS_CM, "[%dCM%d]"}, 1202 # endif 1203 {(int)KS_SR, "[SR]"}, 1204 # ifdef TERMINFO 1205 {(int)KS_CRI, "[CRI%p1%d]"}, 1206 # else 1207 {(int)KS_CRI, "[CRI%d]"}, 1208 # endif 1209 {(int)KS_VB, "[VB]"}, 1210 {(int)KS_KS, "[KS]"}, 1211 {(int)KS_KE, "[KE]"}, 1212 {(int)KS_TI, "[TI]"}, 1213 {(int)KS_TE, "[TE]"}, 1214 {(int)KS_CIS, "[CIS]"}, 1215 {(int)KS_CIE, "[CIE]"}, 1216 {(int)KS_CSC, "[CSC]"}, 1217 {(int)KS_CEC, "[CEC]"}, 1218 {(int)KS_TS, "[TS]"}, 1219 {(int)KS_FS, "[FS]"}, 1220 # ifdef TERMINFO 1221 {(int)KS_CWS, "[%p1%dCWS%p2%d]"}, 1222 {(int)KS_CWP, "[%p1%dCWP%p2%d]"}, 1223 # else 1224 {(int)KS_CWS, "[%dCWS%d]"}, 1225 {(int)KS_CWP, "[%dCWP%d]"}, 1226 # endif 1227 {(int)KS_CRV, "[CRV]"}, 1228 {(int)KS_U7, "[U7]"}, 1229 {(int)KS_RFG, "[RFG]"}, 1230 {(int)KS_RBG, "[RBG]"}, 1231 {K_UP, "[KU]"}, 1232 {K_DOWN, "[KD]"}, 1233 {K_LEFT, "[KL]"}, 1234 {K_RIGHT, "[KR]"}, 1235 {K_XUP, "[xKU]"}, 1236 {K_XDOWN, "[xKD]"}, 1237 {K_XLEFT, "[xKL]"}, 1238 {K_XRIGHT, "[xKR]"}, 1239 {K_S_UP, "[S-KU]"}, 1240 {K_S_DOWN, "[S-KD]"}, 1241 {K_S_LEFT, "[S-KL]"}, 1242 {K_C_LEFT, "[C-KL]"}, 1243 {K_S_RIGHT, "[S-KR]"}, 1244 {K_C_RIGHT, "[C-KR]"}, 1245 {K_F1, "[F1]"}, 1246 {K_XF1, "[xF1]"}, 1247 {K_F2, "[F2]"}, 1248 {K_XF2, "[xF2]"}, 1249 {K_F3, "[F3]"}, 1250 {K_XF3, "[xF3]"}, 1251 {K_F4, "[F4]"}, 1252 {K_XF4, "[xF4]"}, 1253 {K_F5, "[F5]"}, 1254 {K_F6, "[F6]"}, 1255 {K_F7, "[F7]"}, 1256 {K_F8, "[F8]"}, 1257 {K_F9, "[F9]"}, 1258 {K_F10, "[F10]"}, 1259 {K_F11, "[F11]"}, 1260 {K_F12, "[F12]"}, 1261 {K_S_F1, "[S-F1]"}, 1262 {K_S_XF1, "[S-xF1]"}, 1263 {K_S_F2, "[S-F2]"}, 1264 {K_S_XF2, "[S-xF2]"}, 1265 {K_S_F3, "[S-F3]"}, 1266 {K_S_XF3, "[S-xF3]"}, 1267 {K_S_F4, "[S-F4]"}, 1268 {K_S_XF4, "[S-xF4]"}, 1269 {K_S_F5, "[S-F5]"}, 1270 {K_S_F6, "[S-F6]"}, 1271 {K_S_F7, "[S-F7]"}, 1272 {K_S_F8, "[S-F8]"}, 1273 {K_S_F9, "[S-F9]"}, 1274 {K_S_F10, "[S-F10]"}, 1275 {K_S_F11, "[S-F11]"}, 1276 {K_S_F12, "[S-F12]"}, 1277 {K_HELP, "[HELP]"}, 1278 {K_UNDO, "[UNDO]"}, 1279 {K_BS, "[BS]"}, 1280 {K_INS, "[INS]"}, 1281 {K_KINS, "[KINS]"}, 1282 {K_DEL, "[DEL]"}, 1283 {K_KDEL, "[KDEL]"}, 1284 {K_HOME, "[HOME]"}, 1285 {K_S_HOME, "[C-HOME]"}, 1286 {K_C_HOME, "[C-HOME]"}, 1287 {K_KHOME, "[KHOME]"}, 1288 {K_XHOME, "[XHOME]"}, 1289 {K_ZHOME, "[ZHOME]"}, 1290 {K_END, "[END]"}, 1291 {K_S_END, "[C-END]"}, 1292 {K_C_END, "[C-END]"}, 1293 {K_KEND, "[KEND]"}, 1294 {K_XEND, "[XEND]"}, 1295 {K_ZEND, "[ZEND]"}, 1296 {K_PAGEUP, "[PAGEUP]"}, 1297 {K_PAGEDOWN, "[PAGEDOWN]"}, 1298 {K_KPAGEUP, "[KPAGEUP]"}, 1299 {K_KPAGEDOWN, "[KPAGEDOWN]"}, 1300 {K_MOUSE, "[MOUSE]"}, 1301 {K_KPLUS, "[KPLUS]"}, 1302 {K_KMINUS, "[KMINUS]"}, 1303 {K_KDIVIDE, "[KDIVIDE]"}, 1304 {K_KMULTIPLY, "[KMULTIPLY]"}, 1305 {K_KENTER, "[KENTER]"}, 1306 {K_KPOINT, "[KPOINT]"}, 1307 {K_PS, "[PASTE-START]"}, 1308 {K_PE, "[PASTE-END]"}, 1309 {K_K0, "[K0]"}, 1310 {K_K1, "[K1]"}, 1311 {K_K2, "[K2]"}, 1312 {K_K3, "[K3]"}, 1313 {K_K4, "[K4]"}, 1314 {K_K5, "[K5]"}, 1315 {K_K6, "[K6]"}, 1316 {K_K7, "[K7]"}, 1317 {K_K8, "[K8]"}, 1318 {K_K9, "[K9]"}, 1319 # endif 1320 1321 #endif /* NO_BUILTIN_TCAPS */ 1322 1323 /* 1324 * The most minimal terminal: only clear screen and cursor positioning 1325 * Always included. 1326 */ 1327 {(int)KS_NAME, "dumb"}, 1328 {(int)KS_CL, "\014"}, 1329 #ifdef TERMINFO 1330 {(int)KS_CM, IF_EB("\033[%i%p1%d;%p2%dH", 1331 ESC_STR "[%i%p1%d;%p2%dH")}, 1332 #else 1333 {(int)KS_CM, IF_EB("\033[%i%d;%dH", ESC_STR "[%i%d;%dH")}, 1334 #endif 1335 1336 /* 1337 * end marker 1338 */ 1339 {(int)KS_NAME, NULL} 1340 1341 }; /* end of builtin_termcaps */ 1342 1343 #if defined(FEAT_TERMGUICOLORS) || defined(PROTO) 1344 guicolor_T 1345 termgui_mch_get_color(char_u *name) 1346 { 1347 return gui_get_color_cmn(name); 1348 } 1349 1350 guicolor_T 1351 termgui_get_color(char_u *name) 1352 { 1353 guicolor_T t; 1354 1355 if (*name == NUL) 1356 return INVALCOLOR; 1357 t = termgui_mch_get_color(name); 1358 1359 if (t == INVALCOLOR) 1360 semsg(_("E254: Cannot allocate color %s"), name); 1361 return t; 1362 } 1363 1364 guicolor_T 1365 termgui_mch_get_rgb(guicolor_T color) 1366 { 1367 return color; 1368 } 1369 #endif 1370 1371 /* 1372 * DEFAULT_TERM is used, when no terminal is specified with -T option or $TERM. 1373 */ 1374 #ifdef AMIGA 1375 # define DEFAULT_TERM (char_u *)"amiga" 1376 #endif 1377 1378 #ifdef MSWIN 1379 # define DEFAULT_TERM (char_u *)"win32" 1380 #endif 1381 1382 #if defined(UNIX) && !defined(__MINT__) 1383 # define DEFAULT_TERM (char_u *)"ansi" 1384 #endif 1385 1386 #ifdef __MINT__ 1387 # define DEFAULT_TERM (char_u *)"vt52" 1388 #endif 1389 1390 #ifdef VMS 1391 # define DEFAULT_TERM (char_u *)"vt320" 1392 #endif 1393 1394 #ifdef __BEOS__ 1395 # undef DEFAULT_TERM 1396 # define DEFAULT_TERM (char_u *)"beos-ansi" 1397 #endif 1398 1399 #ifndef DEFAULT_TERM 1400 # define DEFAULT_TERM (char_u *)"dumb" 1401 #endif 1402 1403 /* 1404 * Term_strings contains currently used terminal output strings. 1405 * It is initialized with the default values by parse_builtin_tcap(). 1406 * The values can be changed by setting the option with the same name. 1407 */ 1408 char_u *(term_strings[(int)KS_LAST + 1]); 1409 1410 static int need_gather = FALSE; /* need to fill termleader[] */ 1411 static char_u termleader[256 + 1]; /* for check_termcode() */ 1412 #ifdef FEAT_TERMRESPONSE 1413 static int check_for_codes = FALSE; /* check for key code response */ 1414 static int is_not_xterm = FALSE; /* recognized not-really-xterm */ 1415 #endif 1416 1417 static struct builtin_term * 1418 find_builtin_term(char_u *term) 1419 { 1420 struct builtin_term *p; 1421 1422 p = builtin_termcaps; 1423 while (p->bt_string != NULL) 1424 { 1425 if (p->bt_entry == (int)KS_NAME) 1426 { 1427 #ifdef UNIX 1428 if (STRCMP(p->bt_string, "iris-ansi") == 0 && vim_is_iris(term)) 1429 return p; 1430 else if (STRCMP(p->bt_string, "xterm") == 0 && vim_is_xterm(term)) 1431 return p; 1432 else 1433 #endif 1434 #ifdef VMS 1435 if (STRCMP(p->bt_string, "vt320") == 0 && vim_is_vt300(term)) 1436 return p; 1437 else 1438 #endif 1439 if (STRCMP(term, p->bt_string) == 0) 1440 return p; 1441 } 1442 ++p; 1443 } 1444 return p; 1445 } 1446 1447 /* 1448 * Parsing of the builtin termcap entries. 1449 * Caller should check if 'name' is a valid builtin term. 1450 * The terminal's name is not set, as this is already done in termcapinit(). 1451 */ 1452 static void 1453 parse_builtin_tcap(char_u *term) 1454 { 1455 struct builtin_term *p; 1456 char_u name[2]; 1457 int term_8bit; 1458 1459 p = find_builtin_term(term); 1460 term_8bit = term_is_8bit(term); 1461 1462 /* Do not parse if builtin term not found */ 1463 if (p->bt_string == NULL) 1464 return; 1465 1466 for (++p; p->bt_entry != (int)KS_NAME && p->bt_entry != BT_EXTRA_KEYS; ++p) 1467 { 1468 if ((int)p->bt_entry >= 0) /* KS_xx entry */ 1469 { 1470 /* Only set the value if it wasn't set yet. */ 1471 if (term_strings[p->bt_entry] == NULL 1472 || term_strings[p->bt_entry] == empty_option) 1473 { 1474 #ifdef FEAT_EVAL 1475 int opt_idx = -1; 1476 #endif 1477 /* 8bit terminal: use CSI instead of <Esc>[ */ 1478 if (term_8bit && term_7to8bit((char_u *)p->bt_string) != 0) 1479 { 1480 char_u *s, *t; 1481 1482 s = vim_strsave((char_u *)p->bt_string); 1483 if (s != NULL) 1484 { 1485 for (t = s; *t; ++t) 1486 if (term_7to8bit(t)) 1487 { 1488 *t = term_7to8bit(t); 1489 STRMOVE(t + 1, t + 2); 1490 } 1491 term_strings[p->bt_entry] = s; 1492 #ifdef FEAT_EVAL 1493 opt_idx = 1494 #endif 1495 set_term_option_alloced( 1496 &term_strings[p->bt_entry]); 1497 } 1498 } 1499 else 1500 { 1501 term_strings[p->bt_entry] = (char_u *)p->bt_string; 1502 #ifdef FEAT_EVAL 1503 opt_idx = get_term_opt_idx(&term_strings[p->bt_entry]); 1504 #endif 1505 } 1506 #ifdef FEAT_EVAL 1507 set_term_option_sctx_idx(NULL, opt_idx); 1508 #endif 1509 } 1510 } 1511 else 1512 { 1513 name[0] = KEY2TERMCAP0((int)p->bt_entry); 1514 name[1] = KEY2TERMCAP1((int)p->bt_entry); 1515 if (find_termcode(name) == NULL) 1516 add_termcode(name, (char_u *)p->bt_string, term_8bit); 1517 } 1518 } 1519 } 1520 1521 /* 1522 * Set number of colors. 1523 * Store it as a number in t_colors. 1524 * Store it as a string in T_CCO (using nr_colors[]). 1525 */ 1526 static void 1527 set_color_count(int nr) 1528 { 1529 char_u nr_colors[20]; /* string for number of colors */ 1530 1531 t_colors = nr; 1532 if (t_colors > 1) 1533 sprintf((char *)nr_colors, "%d", t_colors); 1534 else 1535 *nr_colors = NUL; 1536 set_string_option_direct((char_u *)"t_Co", -1, nr_colors, OPT_FREE, 0); 1537 } 1538 1539 #if defined(FEAT_TERMRESPONSE) 1540 /* 1541 * Set the color count to "val" and redraw if it changed. 1542 */ 1543 static void 1544 may_adjust_color_count(int val) 1545 { 1546 if (val != t_colors) 1547 { 1548 /* Nr of colors changed, initialize highlighting and 1549 * redraw everything. This causes a redraw, which usually 1550 * clears the message. Try keeping the message if it 1551 * might work. */ 1552 set_keep_msg_from_hist(); 1553 set_color_count(val); 1554 init_highlight(TRUE, FALSE); 1555 # ifdef DEBUG_TERMRESPONSE 1556 { 1557 int r = redraw_asap(CLEAR); 1558 1559 log_tr("Received t_Co, redraw_asap(): %d", r); 1560 } 1561 #else 1562 redraw_asap(CLEAR); 1563 #endif 1564 } 1565 } 1566 #endif 1567 1568 #ifdef HAVE_TGETENT 1569 static char *(key_names[]) = 1570 { 1571 #ifdef FEAT_TERMRESPONSE 1572 /* Do this one first, it may cause a screen redraw. */ 1573 "Co", 1574 #endif 1575 "ku", "kd", "kr", "kl", 1576 "#2", "#4", "%i", "*7", 1577 "k1", "k2", "k3", "k4", "k5", "k6", 1578 "k7", "k8", "k9", "k;", "F1", "F2", 1579 "%1", "&8", "kb", "kI", "kD", "kh", 1580 "@7", "kP", "kN", "K1", "K3", "K4", "K5", "kB", 1581 NULL 1582 }; 1583 #endif 1584 1585 #ifdef HAVE_TGETENT 1586 static void 1587 get_term_entries(int *height, int *width) 1588 { 1589 static struct { 1590 enum SpecialKey dest; /* index in term_strings[] */ 1591 char *name; /* termcap name for string */ 1592 } string_names[] = 1593 { {KS_CE, "ce"}, {KS_AL, "al"}, {KS_CAL,"AL"}, 1594 {KS_DL, "dl"}, {KS_CDL,"DL"}, {KS_CS, "cs"}, 1595 {KS_CL, "cl"}, {KS_CD, "cd"}, 1596 {KS_VI, "vi"}, {KS_VE, "ve"}, {KS_MB, "mb"}, 1597 {KS_ME, "me"}, {KS_MR, "mr"}, 1598 {KS_MD, "md"}, {KS_SE, "se"}, {KS_SO, "so"}, 1599 {KS_CZH,"ZH"}, {KS_CZR,"ZR"}, {KS_UE, "ue"}, 1600 {KS_US, "us"}, {KS_UCE, "Ce"}, {KS_UCS, "Cs"}, 1601 {KS_STE,"Te"}, {KS_STS,"Ts"}, 1602 {KS_CM, "cm"}, {KS_SR, "sr"}, 1603 {KS_CRI,"RI"}, {KS_VB, "vb"}, {KS_KS, "ks"}, 1604 {KS_KE, "ke"}, {KS_TI, "ti"}, {KS_TE, "te"}, 1605 {KS_BC, "bc"}, {KS_CSB,"Sb"}, {KS_CSF,"Sf"}, 1606 {KS_CAB,"AB"}, {KS_CAF,"AF"}, {KS_LE, "le"}, 1607 {KS_ND, "nd"}, {KS_OP, "op"}, {KS_CRV, "RV"}, 1608 {KS_VS, "vs"}, {KS_CVS, "VS"}, 1609 {KS_CIS, "IS"}, {KS_CIE, "IE"}, 1610 {KS_CSC, "SC"}, {KS_CEC, "EC"}, 1611 {KS_TS, "ts"}, {KS_FS, "fs"}, 1612 {KS_CWP, "WP"}, {KS_CWS, "WS"}, 1613 {KS_CSI, "SI"}, {KS_CEI, "EI"}, 1614 {KS_U7, "u7"}, {KS_RFG, "RF"}, {KS_RBG, "RB"}, 1615 {KS_8F, "8f"}, {KS_8B, "8b"}, 1616 {KS_CBE, "BE"}, {KS_CBD, "BD"}, 1617 {KS_CPS, "PS"}, {KS_CPE, "PE"}, 1618 {KS_CST, "ST"}, {KS_CRT, "RT"}, 1619 {KS_SSI, "Si"}, {KS_SRI, "Ri"}, 1620 {(enum SpecialKey)0, NULL} 1621 }; 1622 int i; 1623 char_u *p; 1624 static char_u tstrbuf[TBUFSZ]; 1625 char_u *tp = tstrbuf; 1626 1627 /* 1628 * get output strings 1629 */ 1630 for (i = 0; string_names[i].name != NULL; ++i) 1631 { 1632 if (TERM_STR(string_names[i].dest) == NULL 1633 || TERM_STR(string_names[i].dest) == empty_option) 1634 { 1635 TERM_STR(string_names[i].dest) = TGETSTR(string_names[i].name, &tp); 1636 #ifdef FEAT_EVAL 1637 set_term_option_sctx_idx(string_names[i].name, -1); 1638 #endif 1639 } 1640 } 1641 1642 /* tgetflag() returns 1 if the flag is present, 0 if not and 1643 * possibly -1 if the flag doesn't exist. */ 1644 if ((T_MS == NULL || T_MS == empty_option) && tgetflag("ms") > 0) 1645 T_MS = (char_u *)"y"; 1646 if ((T_XS == NULL || T_XS == empty_option) && tgetflag("xs") > 0) 1647 T_XS = (char_u *)"y"; 1648 if ((T_XN == NULL || T_XN == empty_option) && tgetflag("xn") > 0) 1649 T_XN = (char_u *)"y"; 1650 if ((T_DB == NULL || T_DB == empty_option) && tgetflag("db") > 0) 1651 T_DB = (char_u *)"y"; 1652 if ((T_DA == NULL || T_DA == empty_option) && tgetflag("da") > 0) 1653 T_DA = (char_u *)"y"; 1654 if ((T_UT == NULL || T_UT == empty_option) && tgetflag("ut") > 0) 1655 T_UT = (char_u *)"y"; 1656 1657 /* 1658 * get key codes 1659 */ 1660 for (i = 0; key_names[i] != NULL; ++i) 1661 if (find_termcode((char_u *)key_names[i]) == NULL) 1662 { 1663 p = TGETSTR(key_names[i], &tp); 1664 /* if cursor-left == backspace, ignore it (televideo 925) */ 1665 if (p != NULL 1666 && (*p != Ctrl_H 1667 || key_names[i][0] != 'k' 1668 || key_names[i][1] != 'l')) 1669 add_termcode((char_u *)key_names[i], p, FALSE); 1670 } 1671 1672 if (*height == 0) 1673 *height = tgetnum("li"); 1674 if (*width == 0) 1675 *width = tgetnum("co"); 1676 1677 /* 1678 * Get number of colors (if not done already). 1679 */ 1680 if (TERM_STR(KS_CCO) == NULL || TERM_STR(KS_CCO) == empty_option) 1681 { 1682 set_color_count(tgetnum("Co")); 1683 #ifdef FEAT_EVAL 1684 set_term_option_sctx_idx("Co", -1); 1685 #endif 1686 } 1687 1688 # ifndef hpux 1689 BC = (char *)TGETSTR("bc", &tp); 1690 UP = (char *)TGETSTR("up", &tp); 1691 p = TGETSTR("pc", &tp); 1692 if (p) 1693 PC = *p; 1694 # endif 1695 } 1696 #endif 1697 1698 static void 1699 report_term_error(char *error_msg, char_u *term) 1700 { 1701 struct builtin_term *termp; 1702 1703 mch_errmsg("\r\n"); 1704 if (error_msg != NULL) 1705 { 1706 mch_errmsg(error_msg); 1707 mch_errmsg("\r\n"); 1708 } 1709 mch_errmsg("'"); 1710 mch_errmsg((char *)term); 1711 mch_errmsg(_("' not known. Available builtin terminals are:")); 1712 mch_errmsg("\r\n"); 1713 for (termp = &(builtin_termcaps[0]); termp->bt_string != NULL; ++termp) 1714 { 1715 if (termp->bt_entry == (int)KS_NAME) 1716 { 1717 #ifdef HAVE_TGETENT 1718 mch_errmsg(" builtin_"); 1719 #else 1720 mch_errmsg(" "); 1721 #endif 1722 mch_errmsg(termp->bt_string); 1723 mch_errmsg("\r\n"); 1724 } 1725 } 1726 } 1727 1728 static void 1729 report_default_term(char_u *term) 1730 { 1731 mch_errmsg(_("defaulting to '")); 1732 mch_errmsg((char *)term); 1733 mch_errmsg("'\r\n"); 1734 if (emsg_silent == 0) 1735 { 1736 screen_start(); /* don't know where cursor is now */ 1737 out_flush(); 1738 if (!is_not_a_term()) 1739 ui_delay(2000L, TRUE); 1740 } 1741 } 1742 1743 /* 1744 * Set terminal options for terminal "term". 1745 * Return OK if terminal 'term' was found in a termcap, FAIL otherwise. 1746 * 1747 * While doing this, until ttest(), some options may be NULL, be careful. 1748 */ 1749 int 1750 set_termname(char_u *term) 1751 { 1752 struct builtin_term *termp; 1753 #ifdef HAVE_TGETENT 1754 int builtin_first = p_tbi; 1755 int try; 1756 int termcap_cleared = FALSE; 1757 #endif 1758 int width = 0, height = 0; 1759 char *error_msg = NULL; 1760 char_u *bs_p, *del_p; 1761 1762 /* In silect mode (ex -s) we don't use the 'term' option. */ 1763 if (silent_mode) 1764 return OK; 1765 1766 detected_8bit = FALSE; /* reset 8-bit detection */ 1767 1768 if (term_is_builtin(term)) 1769 { 1770 term += 8; 1771 #ifdef HAVE_TGETENT 1772 builtin_first = 1; 1773 #endif 1774 } 1775 1776 /* 1777 * If HAVE_TGETENT is not defined, only the builtin termcap is used, otherwise: 1778 * If builtin_first is TRUE: 1779 * 0. try builtin termcap 1780 * 1. try external termcap 1781 * 2. if both fail default to a builtin terminal 1782 * If builtin_first is FALSE: 1783 * 1. try external termcap 1784 * 2. try builtin termcap, if both fail default to a builtin terminal 1785 */ 1786 #ifdef HAVE_TGETENT 1787 for (try = builtin_first ? 0 : 1; try < 3; ++try) 1788 { 1789 /* 1790 * Use external termcap 1791 */ 1792 if (try == 1) 1793 { 1794 char_u tbuf[TBUFSZ]; 1795 1796 /* 1797 * If the external termcap does not have a matching entry, try the 1798 * builtin ones. 1799 */ 1800 if ((error_msg = tgetent_error(tbuf, term)) == NULL) 1801 { 1802 if (!termcap_cleared) 1803 { 1804 clear_termoptions(); /* clear old options */ 1805 termcap_cleared = TRUE; 1806 } 1807 1808 get_term_entries(&height, &width); 1809 } 1810 } 1811 else /* try == 0 || try == 2 */ 1812 #endif /* HAVE_TGETENT */ 1813 /* 1814 * Use builtin termcap 1815 */ 1816 { 1817 #ifdef HAVE_TGETENT 1818 /* 1819 * If builtin termcap was already used, there is no need to search 1820 * for the builtin termcap again, quit now. 1821 */ 1822 if (try == 2 && builtin_first && termcap_cleared) 1823 break; 1824 #endif 1825 /* 1826 * search for 'term' in builtin_termcaps[] 1827 */ 1828 termp = find_builtin_term(term); 1829 if (termp->bt_string == NULL) /* did not find it */ 1830 { 1831 #ifdef HAVE_TGETENT 1832 /* 1833 * If try == 0, first try the external termcap. If that is not 1834 * found we'll get back here with try == 2. 1835 * If termcap_cleared is set we used the external termcap, 1836 * don't complain about not finding the term in the builtin 1837 * termcap. 1838 */ 1839 if (try == 0) /* try external one */ 1840 continue; 1841 if (termcap_cleared) /* found in external termcap */ 1842 break; 1843 #endif 1844 report_term_error(error_msg, term); 1845 1846 /* when user typed :set term=xxx, quit here */ 1847 if (starting != NO_SCREEN) 1848 { 1849 screen_start(); /* don't know where cursor is now */ 1850 wait_return(TRUE); 1851 return FAIL; 1852 } 1853 term = DEFAULT_TERM; 1854 report_default_term(term); 1855 set_string_option_direct((char_u *)"term", -1, term, 1856 OPT_FREE, 0); 1857 display_errors(); 1858 } 1859 out_flush(); 1860 #ifdef HAVE_TGETENT 1861 if (!termcap_cleared) 1862 { 1863 #endif 1864 clear_termoptions(); /* clear old options */ 1865 #ifdef HAVE_TGETENT 1866 termcap_cleared = TRUE; 1867 } 1868 #endif 1869 parse_builtin_tcap(term); 1870 #ifdef FEAT_GUI 1871 if (term_is_gui(term)) 1872 { 1873 out_flush(); 1874 gui_init(); 1875 /* If starting the GUI failed, don't do any of the other 1876 * things for this terminal */ 1877 if (!gui.in_use) 1878 return FAIL; 1879 #ifdef HAVE_TGETENT 1880 break; /* don't try using external termcap */ 1881 #endif 1882 } 1883 #endif /* FEAT_GUI */ 1884 } 1885 #ifdef HAVE_TGETENT 1886 } 1887 #endif 1888 1889 /* 1890 * special: There is no info in the termcap about whether the cursor 1891 * positioning is relative to the start of the screen or to the start of the 1892 * scrolling region. We just guess here. Only msdos pcterm is known to do it 1893 * relative. 1894 */ 1895 if (STRCMP(term, "pcterm") == 0) 1896 T_CCS = (char_u *)"yes"; 1897 else 1898 T_CCS = empty_option; 1899 1900 #ifdef UNIX 1901 /* 1902 * Any "stty" settings override the default for t_kb from the termcap. 1903 * This is in os_unix.c, because it depends a lot on the version of unix that 1904 * is being used. 1905 * Don't do this when the GUI is active, it uses "t_kb" and "t_kD" directly. 1906 */ 1907 # ifdef FEAT_GUI 1908 if (!gui.in_use) 1909 # endif 1910 get_stty(); 1911 #endif 1912 1913 /* 1914 * If the termcap has no entry for 'bs' and/or 'del' and the ioctl() also 1915 * didn't work, use the default CTRL-H 1916 * The default for t_kD is DEL, unless t_kb is DEL. 1917 * The vim_strsave'd strings are probably lost forever, well it's only two 1918 * bytes. Don't do this when the GUI is active, it uses "t_kb" and "t_kD" 1919 * directly. 1920 */ 1921 #ifdef FEAT_GUI 1922 if (!gui.in_use) 1923 #endif 1924 { 1925 bs_p = find_termcode((char_u *)"kb"); 1926 del_p = find_termcode((char_u *)"kD"); 1927 if (bs_p == NULL || *bs_p == NUL) 1928 add_termcode((char_u *)"kb", (bs_p = (char_u *)CTRL_H_STR), FALSE); 1929 if ((del_p == NULL || *del_p == NUL) && 1930 (bs_p == NULL || *bs_p != DEL)) 1931 add_termcode((char_u *)"kD", (char_u *)DEL_STR, FALSE); 1932 } 1933 1934 #if defined(UNIX) || defined(VMS) 1935 term_is_xterm = vim_is_xterm(term); 1936 #endif 1937 1938 #ifdef FEAT_MOUSE 1939 # if defined(UNIX) || defined(VMS) 1940 # ifdef FEAT_MOUSE_TTY 1941 /* 1942 * For Unix, set the 'ttymouse' option to the type of mouse to be used. 1943 * The termcode for the mouse is added as a side effect in option.c. 1944 */ 1945 { 1946 char_u *p = (char_u *)""; 1947 1948 # ifdef FEAT_MOUSE_XTERM 1949 if (use_xterm_like_mouse(term)) 1950 { 1951 if (use_xterm_mouse()) 1952 p = NULL; /* keep existing value, might be "xterm2" */ 1953 else 1954 p = (char_u *)"xterm"; 1955 } 1956 # endif 1957 if (p != NULL) 1958 { 1959 set_option_value((char_u *)"ttym", 0L, p, 0); 1960 /* Reset the WAS_SET flag, 'ttymouse' can be set to "sgr" or 1961 * "xterm2" in check_termcode(). */ 1962 reset_option_was_set((char_u *)"ttym"); 1963 } 1964 if (p == NULL 1965 # ifdef FEAT_GUI 1966 || gui.in_use 1967 # endif 1968 ) 1969 check_mouse_termcode(); /* set mouse termcode anyway */ 1970 } 1971 # endif 1972 # else 1973 set_mouse_termcode(KS_MOUSE, (char_u *)"\233M"); 1974 # endif 1975 #endif /* FEAT_MOUSE */ 1976 1977 #ifdef USE_TERM_CONSOLE 1978 /* DEFAULT_TERM indicates that it is the machine console. */ 1979 if (STRCMP(term, DEFAULT_TERM) != 0) 1980 term_console = FALSE; 1981 else 1982 { 1983 term_console = TRUE; 1984 # ifdef AMIGA 1985 win_resize_on(); /* enable window resizing reports */ 1986 # endif 1987 } 1988 #endif 1989 1990 #if defined(UNIX) || defined(VMS) 1991 /* 1992 * 'ttyfast' is default on for xterm, iris-ansi and a few others. 1993 */ 1994 if (vim_is_fastterm(term)) 1995 p_tf = TRUE; 1996 #endif 1997 #ifdef USE_TERM_CONSOLE 1998 /* 1999 * 'ttyfast' is default on consoles 2000 */ 2001 if (term_console) 2002 p_tf = TRUE; 2003 #endif 2004 2005 ttest(TRUE); /* make sure we have a valid set of terminal codes */ 2006 2007 full_screen = TRUE; /* we can use termcap codes from now on */ 2008 set_term_defaults(); /* use current values as defaults */ 2009 #ifdef FEAT_TERMRESPONSE 2010 LOG_TR(("setting crv_status to STATUS_GET")); 2011 crv_status = STATUS_GET; /* Get terminal version later */ 2012 #endif 2013 2014 /* 2015 * Initialize the terminal with the appropriate termcap codes. 2016 * Set the mouse and window title if possible. 2017 * Don't do this when starting, need to parse the .vimrc first, because it 2018 * may redefine t_TI etc. 2019 */ 2020 if (starting != NO_SCREEN) 2021 { 2022 starttermcap(); /* may change terminal mode */ 2023 #ifdef FEAT_MOUSE 2024 setmouse(); /* may start using the mouse */ 2025 #endif 2026 #ifdef FEAT_TITLE 2027 maketitle(); /* may display window title */ 2028 #endif 2029 } 2030 2031 /* display initial screen after ttest() checking. jw. */ 2032 if (width <= 0 || height <= 0) 2033 { 2034 /* termcap failed to report size */ 2035 /* set defaults, in case ui_get_shellsize() also fails */ 2036 width = 80; 2037 #if defined(WIN3264) 2038 height = 25; /* console is often 25 lines */ 2039 #else 2040 height = 24; /* most terminals are 24 lines */ 2041 #endif 2042 } 2043 set_shellsize(width, height, FALSE); /* may change Rows */ 2044 if (starting != NO_SCREEN) 2045 { 2046 if (scroll_region) 2047 scroll_region_reset(); /* In case Rows changed */ 2048 check_map_keycodes(); /* check mappings for terminal codes used */ 2049 2050 { 2051 bufref_T old_curbuf; 2052 2053 /* 2054 * Execute the TermChanged autocommands for each buffer that is 2055 * loaded. 2056 */ 2057 set_bufref(&old_curbuf, curbuf); 2058 FOR_ALL_BUFFERS(curbuf) 2059 { 2060 if (curbuf->b_ml.ml_mfp != NULL) 2061 apply_autocmds(EVENT_TERMCHANGED, NULL, NULL, FALSE, 2062 curbuf); 2063 } 2064 if (bufref_valid(&old_curbuf)) 2065 curbuf = old_curbuf.br_buf; 2066 } 2067 } 2068 2069 #ifdef FEAT_TERMRESPONSE 2070 may_req_termresponse(); 2071 #endif 2072 2073 return OK; 2074 } 2075 2076 #if defined(FEAT_MOUSE) || defined(PROTO) 2077 2078 # ifdef FEAT_MOUSE_TTY 2079 # define HMT_NORMAL 1 2080 # define HMT_NETTERM 2 2081 # define HMT_DEC 4 2082 # define HMT_JSBTERM 8 2083 # define HMT_PTERM 16 2084 # define HMT_URXVT 32 2085 # define HMT_SGR 64 2086 # define HMT_SGR_REL 128 2087 static int has_mouse_termcode = 0; 2088 # endif 2089 2090 # if (!defined(UNIX) || defined(FEAT_MOUSE_TTY)) || defined(PROTO) 2091 void 2092 set_mouse_termcode( 2093 int n, /* KS_MOUSE, KS_NETTERM_MOUSE or KS_DEC_MOUSE */ 2094 char_u *s) 2095 { 2096 char_u name[2]; 2097 2098 name[0] = n; 2099 name[1] = KE_FILLER; 2100 add_termcode(name, s, FALSE); 2101 # ifdef FEAT_MOUSE_TTY 2102 # ifdef FEAT_MOUSE_JSB 2103 if (n == KS_JSBTERM_MOUSE) 2104 has_mouse_termcode |= HMT_JSBTERM; 2105 else 2106 # endif 2107 # ifdef FEAT_MOUSE_NET 2108 if (n == KS_NETTERM_MOUSE) 2109 has_mouse_termcode |= HMT_NETTERM; 2110 else 2111 # endif 2112 # ifdef FEAT_MOUSE_DEC 2113 if (n == KS_DEC_MOUSE) 2114 has_mouse_termcode |= HMT_DEC; 2115 else 2116 # endif 2117 # ifdef FEAT_MOUSE_PTERM 2118 if (n == KS_PTERM_MOUSE) 2119 has_mouse_termcode |= HMT_PTERM; 2120 else 2121 # endif 2122 # ifdef FEAT_MOUSE_URXVT 2123 if (n == KS_URXVT_MOUSE) 2124 has_mouse_termcode |= HMT_URXVT; 2125 else 2126 # endif 2127 # ifdef FEAT_MOUSE_SGR 2128 if (n == KS_SGR_MOUSE) 2129 has_mouse_termcode |= HMT_SGR; 2130 else if (n == KS_SGR_MOUSE_RELEASE) 2131 has_mouse_termcode |= HMT_SGR_REL; 2132 else 2133 # endif 2134 has_mouse_termcode |= HMT_NORMAL; 2135 # endif 2136 } 2137 # endif 2138 2139 # if ((defined(UNIX) || defined(VMS)) \ 2140 && defined(FEAT_MOUSE_TTY)) || defined(PROTO) 2141 void 2142 del_mouse_termcode( 2143 int n) /* KS_MOUSE, KS_NETTERM_MOUSE or KS_DEC_MOUSE */ 2144 { 2145 char_u name[2]; 2146 2147 name[0] = n; 2148 name[1] = KE_FILLER; 2149 del_termcode(name); 2150 # ifdef FEAT_MOUSE_TTY 2151 # ifdef FEAT_MOUSE_JSB 2152 if (n == KS_JSBTERM_MOUSE) 2153 has_mouse_termcode &= ~HMT_JSBTERM; 2154 else 2155 # endif 2156 # ifdef FEAT_MOUSE_NET 2157 if (n == KS_NETTERM_MOUSE) 2158 has_mouse_termcode &= ~HMT_NETTERM; 2159 else 2160 # endif 2161 # ifdef FEAT_MOUSE_DEC 2162 if (n == KS_DEC_MOUSE) 2163 has_mouse_termcode &= ~HMT_DEC; 2164 else 2165 # endif 2166 # ifdef FEAT_MOUSE_PTERM 2167 if (n == KS_PTERM_MOUSE) 2168 has_mouse_termcode &= ~HMT_PTERM; 2169 else 2170 # endif 2171 # ifdef FEAT_MOUSE_URXVT 2172 if (n == KS_URXVT_MOUSE) 2173 has_mouse_termcode &= ~HMT_URXVT; 2174 else 2175 # endif 2176 # ifdef FEAT_MOUSE_SGR 2177 if (n == KS_SGR_MOUSE) 2178 has_mouse_termcode &= ~HMT_SGR; 2179 else if (n == KS_SGR_MOUSE_RELEASE) 2180 has_mouse_termcode &= ~HMT_SGR_REL; 2181 else 2182 # endif 2183 has_mouse_termcode &= ~HMT_NORMAL; 2184 # endif 2185 } 2186 # endif 2187 #endif 2188 2189 #ifdef HAVE_TGETENT 2190 /* 2191 * Call tgetent() 2192 * Return error message if it fails, NULL if it's OK. 2193 */ 2194 static char * 2195 tgetent_error(char_u *tbuf, char_u *term) 2196 { 2197 int i; 2198 2199 i = TGETENT(tbuf, term); 2200 if (i < 0 /* -1 is always an error */ 2201 # ifdef TGETENT_ZERO_ERR 2202 || i == 0 /* sometimes zero is also an error */ 2203 # endif 2204 ) 2205 { 2206 /* On FreeBSD tputs() gets a SEGV after a tgetent() which fails. Call 2207 * tgetent() with the always existing "dumb" entry to avoid a crash or 2208 * hang. */ 2209 (void)TGETENT(tbuf, "dumb"); 2210 2211 if (i < 0) 2212 # ifdef TGETENT_ZERO_ERR 2213 return _("E557: Cannot open termcap file"); 2214 if (i == 0) 2215 # endif 2216 #ifdef TERMINFO 2217 return _("E558: Terminal entry not found in terminfo"); 2218 #else 2219 return _("E559: Terminal entry not found in termcap"); 2220 #endif 2221 } 2222 return NULL; 2223 } 2224 2225 /* 2226 * Some versions of tgetstr() have been reported to return -1 instead of NULL. 2227 * Fix that here. 2228 */ 2229 static char_u * 2230 vim_tgetstr(char *s, char_u **pp) 2231 { 2232 char *p; 2233 2234 p = tgetstr(s, (char **)pp); 2235 if (p == (char *)-1) 2236 p = NULL; 2237 return (char_u *)p; 2238 } 2239 #endif /* HAVE_TGETENT */ 2240 2241 #if defined(HAVE_TGETENT) && (defined(UNIX) || defined(VMS) || defined(MACOS_X)) 2242 /* 2243 * Get Columns and Rows from the termcap. Used after a window signal if the 2244 * ioctl() fails. It doesn't make sense to call tgetent each time if the "co" 2245 * and "li" entries never change. But on some systems this works. 2246 * Errors while getting the entries are ignored. 2247 */ 2248 void 2249 getlinecol( 2250 long *cp, /* pointer to columns */ 2251 long *rp) /* pointer to rows */ 2252 { 2253 char_u tbuf[TBUFSZ]; 2254 2255 if (T_NAME != NULL && *T_NAME != NUL && tgetent_error(tbuf, T_NAME) == NULL) 2256 { 2257 if (*cp == 0) 2258 *cp = tgetnum("co"); 2259 if (*rp == 0) 2260 *rp = tgetnum("li"); 2261 } 2262 } 2263 #endif /* defined(HAVE_TGETENT) && defined(UNIX) */ 2264 2265 /* 2266 * Get a string entry from the termcap and add it to the list of termcodes. 2267 * Used for <t_xx> special keys. 2268 * Give an error message for failure when not sourcing. 2269 * If force given, replace an existing entry. 2270 * Return FAIL if the entry was not found, OK if the entry was added. 2271 */ 2272 int 2273 add_termcap_entry(char_u *name, int force) 2274 { 2275 char_u *term; 2276 int key; 2277 struct builtin_term *termp; 2278 #ifdef HAVE_TGETENT 2279 char_u *string; 2280 int i; 2281 int builtin_first; 2282 char_u tbuf[TBUFSZ]; 2283 char_u tstrbuf[TBUFSZ]; 2284 char_u *tp = tstrbuf; 2285 char *error_msg = NULL; 2286 #endif 2287 2288 /* 2289 * If the GUI is running or will start in a moment, we only support the keys 2290 * that the GUI can produce. 2291 */ 2292 #ifdef FEAT_GUI 2293 if (gui.in_use || gui.starting) 2294 return gui_mch_haskey(name); 2295 #endif 2296 2297 if (!force && find_termcode(name) != NULL) /* it's already there */ 2298 return OK; 2299 2300 term = T_NAME; 2301 if (term == NULL || *term == NUL) /* 'term' not defined yet */ 2302 return FAIL; 2303 2304 if (term_is_builtin(term)) /* name starts with "builtin_" */ 2305 { 2306 term += 8; 2307 #ifdef HAVE_TGETENT 2308 builtin_first = TRUE; 2309 #endif 2310 } 2311 #ifdef HAVE_TGETENT 2312 else 2313 builtin_first = p_tbi; 2314 #endif 2315 2316 #ifdef HAVE_TGETENT 2317 /* 2318 * We can get the entry from the builtin termcap and from the external one. 2319 * If 'ttybuiltin' is on or the terminal name starts with "builtin_", try 2320 * builtin termcap first. 2321 * If 'ttybuiltin' is off, try external termcap first. 2322 */ 2323 for (i = 0; i < 2; ++i) 2324 { 2325 if ((!builtin_first) == i) 2326 #endif 2327 /* 2328 * Search in builtin termcap 2329 */ 2330 { 2331 termp = find_builtin_term(term); 2332 if (termp->bt_string != NULL) /* found it */ 2333 { 2334 key = TERMCAP2KEY(name[0], name[1]); 2335 ++termp; 2336 while (termp->bt_entry != (int)KS_NAME) 2337 { 2338 if ((int)termp->bt_entry == key) 2339 { 2340 add_termcode(name, (char_u *)termp->bt_string, 2341 term_is_8bit(term)); 2342 return OK; 2343 } 2344 ++termp; 2345 } 2346 } 2347 } 2348 #ifdef HAVE_TGETENT 2349 else 2350 /* 2351 * Search in external termcap 2352 */ 2353 { 2354 error_msg = tgetent_error(tbuf, term); 2355 if (error_msg == NULL) 2356 { 2357 string = TGETSTR((char *)name, &tp); 2358 if (string != NULL && *string != NUL) 2359 { 2360 add_termcode(name, string, FALSE); 2361 return OK; 2362 } 2363 } 2364 } 2365 } 2366 #endif 2367 2368 if (sourcing_name == NULL) 2369 { 2370 #ifdef HAVE_TGETENT 2371 if (error_msg != NULL) 2372 emsg(error_msg); 2373 else 2374 #endif 2375 semsg(_("E436: No \"%s\" entry in termcap"), name); 2376 } 2377 return FAIL; 2378 } 2379 2380 static int 2381 term_is_builtin(char_u *name) 2382 { 2383 return (STRNCMP(name, "builtin_", (size_t)8) == 0); 2384 } 2385 2386 /* 2387 * Return TRUE if terminal "name" uses CSI instead of <Esc>[. 2388 * Assume that the terminal is using 8-bit controls when the name contains 2389 * "8bit", like in "xterm-8bit". 2390 */ 2391 int 2392 term_is_8bit(char_u *name) 2393 { 2394 return (detected_8bit || strstr((char *)name, "8bit") != NULL); 2395 } 2396 2397 /* 2398 * Translate terminal control chars from 7-bit to 8-bit: 2399 * <Esc>[ -> CSI <M_C_[> 2400 * <Esc>] -> OSC <M-C-]> 2401 * <Esc>O -> <M-C-O> 2402 */ 2403 static int 2404 term_7to8bit(char_u *p) 2405 { 2406 if (*p == ESC) 2407 { 2408 if (p[1] == '[') 2409 return CSI; 2410 if (p[1] == ']') 2411 return OSC; 2412 if (p[1] == 'O') 2413 return 0x8f; 2414 } 2415 return 0; 2416 } 2417 2418 #if defined(FEAT_GUI) || defined(PROTO) 2419 int 2420 term_is_gui(char_u *name) 2421 { 2422 return (STRCMP(name, "builtin_gui") == 0 || STRCMP(name, "gui") == 0); 2423 } 2424 #endif 2425 2426 #if !defined(HAVE_TGETENT) || defined(AMIGA) || defined(PROTO) 2427 2428 char_u * 2429 tltoa(unsigned long i) 2430 { 2431 static char_u buf[16]; 2432 char_u *p; 2433 2434 p = buf + 15; 2435 *p = '\0'; 2436 do 2437 { 2438 --p; 2439 *p = (char_u) (i % 10 + '0'); 2440 i /= 10; 2441 } 2442 while (i > 0 && p > buf); 2443 return p; 2444 } 2445 #endif 2446 2447 #ifndef HAVE_TGETENT 2448 2449 /* 2450 * minimal tgoto() implementation. 2451 * no padding and we only parse for %i %d and %+char 2452 */ 2453 static char * 2454 tgoto(char *cm, int x, int y) 2455 { 2456 static char buf[30]; 2457 char *p, *s, *e; 2458 2459 if (!cm) 2460 return "OOPS"; 2461 e = buf + 29; 2462 for (s = buf; s < e && *cm; cm++) 2463 { 2464 if (*cm != '%') 2465 { 2466 *s++ = *cm; 2467 continue; 2468 } 2469 switch (*++cm) 2470 { 2471 case 'd': 2472 p = (char *)tltoa((unsigned long)y); 2473 y = x; 2474 while (*p) 2475 *s++ = *p++; 2476 break; 2477 case 'i': 2478 x++; 2479 y++; 2480 break; 2481 case '+': 2482 *s++ = (char)(*++cm + y); 2483 y = x; 2484 break; 2485 case '%': 2486 *s++ = *cm; 2487 break; 2488 default: 2489 return "OOPS"; 2490 } 2491 } 2492 *s = '\0'; 2493 return buf; 2494 } 2495 2496 #endif /* HAVE_TGETENT */ 2497 2498 /* 2499 * Set the terminal name and initialize the terminal options. 2500 * If "name" is NULL or empty, get the terminal name from the environment. 2501 * If that fails, use the default terminal name. 2502 */ 2503 void 2504 termcapinit(char_u *name) 2505 { 2506 char_u *term; 2507 2508 if (name != NULL && *name == NUL) 2509 name = NULL; /* empty name is equal to no name */ 2510 term = name; 2511 2512 #ifdef __BEOS__ 2513 /* 2514 * TERM environment variable is normally set to 'ansi' on the Bebox; 2515 * Since the BeBox doesn't quite support full ANSI yet, we use our 2516 * own custom 'ansi-beos' termcap instead, unless the -T option has 2517 * been given on the command line. 2518 */ 2519 if (term == NULL 2520 && strcmp((char *)mch_getenv((char_u *)"TERM"), "ansi") == 0) 2521 term = DEFAULT_TERM; 2522 #endif 2523 #ifndef MSWIN 2524 if (term == NULL) 2525 term = mch_getenv((char_u *)"TERM"); 2526 #endif 2527 if (term == NULL || *term == NUL) 2528 term = DEFAULT_TERM; 2529 set_string_option_direct((char_u *)"term", -1, term, OPT_FREE, 0); 2530 2531 /* Set the default terminal name. */ 2532 set_string_default("term", term); 2533 set_string_default("ttytype", term); 2534 2535 /* 2536 * Avoid using "term" here, because the next mch_getenv() may overwrite it. 2537 */ 2538 set_termname(T_NAME != NULL ? T_NAME : term); 2539 } 2540 2541 /* 2542 * the number of calls to ui_write is reduced by using the buffer "out_buf" 2543 */ 2544 #define OUT_SIZE 2047 2545 /* Add one to allow mch_write() in os_win32.c to append a NUL */ 2546 static char_u out_buf[OUT_SIZE + 1]; 2547 static int out_pos = 0; /* number of chars in out_buf */ 2548 2549 /* 2550 * out_flush(): flush the output buffer 2551 */ 2552 void 2553 out_flush(void) 2554 { 2555 int len; 2556 2557 if (out_pos != 0) 2558 { 2559 /* set out_pos to 0 before ui_write, to avoid recursiveness */ 2560 len = out_pos; 2561 out_pos = 0; 2562 ui_write(out_buf, len); 2563 } 2564 } 2565 2566 /* 2567 * out_flush_cursor(): flush the output buffer and redraw the cursor. 2568 * Does not flush recursively in the GUI to avoid slow drawing. 2569 */ 2570 void 2571 out_flush_cursor( 2572 int force UNUSED, /* when TRUE, update cursor even when not moved */ 2573 int clear_selection UNUSED) /* clear selection under cursor */ 2574 { 2575 mch_disable_flush(); 2576 out_flush(); 2577 mch_enable_flush(); 2578 #ifdef FEAT_GUI 2579 if (gui.in_use) 2580 { 2581 gui_update_cursor(force, clear_selection); 2582 gui_may_flush(); 2583 } 2584 #endif 2585 } 2586 2587 2588 #if defined(FEAT_MBYTE) || defined(PROTO) 2589 /* 2590 * Sometimes a byte out of a multi-byte character is written with out_char(). 2591 * To avoid flushing half of the character, call this function first. 2592 */ 2593 void 2594 out_flush_check(void) 2595 { 2596 if (enc_dbcs != 0 && out_pos >= OUT_SIZE - MB_MAXBYTES) 2597 out_flush(); 2598 } 2599 #endif 2600 2601 #ifdef FEAT_GUI 2602 /* 2603 * out_trash(): Throw away the contents of the output buffer 2604 */ 2605 void 2606 out_trash(void) 2607 { 2608 out_pos = 0; 2609 } 2610 #endif 2611 2612 /* 2613 * out_char(c): put a byte into the output buffer. 2614 * Flush it if it becomes full. 2615 * This should not be used for outputting text on the screen (use functions 2616 * like msg_puts() and screen_putchar() for that). 2617 */ 2618 void 2619 out_char(unsigned c) 2620 { 2621 #if defined(UNIX) || defined(VMS) || defined(AMIGA) || defined(MACOS_X) 2622 if (c == '\n') /* turn LF into CR-LF (CRMOD doesn't seem to do this) */ 2623 out_char('\r'); 2624 #endif 2625 2626 out_buf[out_pos++] = c; 2627 2628 /* For testing we flush each time. */ 2629 if (out_pos >= OUT_SIZE || p_wd) 2630 out_flush(); 2631 } 2632 2633 static void out_char_nf(unsigned); 2634 2635 /* 2636 * out_char_nf(c): like out_char(), but don't flush when p_wd is set 2637 */ 2638 static void 2639 out_char_nf(unsigned c) 2640 { 2641 #if defined(UNIX) || defined(VMS) || defined(AMIGA) || defined(MACOS_X) 2642 if (c == '\n') /* turn LF into CR-LF (CRMOD doesn't seem to do this) */ 2643 out_char_nf('\r'); 2644 #endif 2645 2646 out_buf[out_pos++] = c; 2647 2648 if (out_pos >= OUT_SIZE) 2649 out_flush(); 2650 } 2651 2652 #if defined(FEAT_TITLE) || defined(FEAT_MOUSE_TTY) || defined(FEAT_GUI) \ 2653 || defined(FEAT_TERMRESPONSE) || defined(PROTO) 2654 /* 2655 * A never-padding out_str. 2656 * use this whenever you don't want to run the string through tputs. 2657 * tputs above is harmless, but tputs from the termcap library 2658 * is likely to strip off leading digits, that it mistakes for padding 2659 * information, and "%i", "%d", etc. 2660 * This should only be used for writing terminal codes, not for outputting 2661 * normal text (use functions like msg_puts() and screen_putchar() for that). 2662 */ 2663 void 2664 out_str_nf(char_u *s) 2665 { 2666 if (out_pos > OUT_SIZE - 20) /* avoid terminal strings being split up */ 2667 out_flush(); 2668 while (*s) 2669 out_char_nf(*s++); 2670 2671 /* For testing we write one string at a time. */ 2672 if (p_wd) 2673 out_flush(); 2674 } 2675 #endif 2676 2677 /* 2678 * A conditional-flushing out_str, mainly for visualbell. 2679 * Handles a delay internally, because termlib may not respect the delay or do 2680 * it at the wrong time. 2681 * Note: Only for terminal strings. 2682 */ 2683 void 2684 out_str_cf(char_u *s) 2685 { 2686 if (s != NULL && *s) 2687 { 2688 #ifdef HAVE_TGETENT 2689 char_u *p; 2690 #endif 2691 2692 #ifdef FEAT_GUI 2693 /* Don't use tputs() when GUI is used, ncurses crashes. */ 2694 if (gui.in_use) 2695 { 2696 out_str_nf(s); 2697 return; 2698 } 2699 #endif 2700 if (out_pos > OUT_SIZE - 20) 2701 out_flush(); 2702 #ifdef HAVE_TGETENT 2703 for (p = s; *s; ++s) 2704 { 2705 /* flush just before delay command */ 2706 if (*s == '$' && *(s + 1) == '<') 2707 { 2708 char_u save_c = *s; 2709 int duration = atoi((char *)s + 2); 2710 2711 *s = NUL; 2712 tputs((char *)p, 1, TPUTSFUNCAST out_char_nf); 2713 *s = save_c; 2714 out_flush(); 2715 # ifdef ELAPSED_FUNC 2716 /* Only sleep here if we can limit this happening in 2717 * vim_beep(). */ 2718 p = vim_strchr(s, '>'); 2719 if (p == NULL || duration <= 0) 2720 { 2721 /* can't parse the time, don't sleep here */ 2722 p = s; 2723 } 2724 else 2725 { 2726 ++p; 2727 do_sleep(duration); 2728 } 2729 # else 2730 /* Rely on the terminal library to sleep. */ 2731 p = s; 2732 # endif 2733 break; 2734 } 2735 } 2736 tputs((char *)p, 1, TPUTSFUNCAST out_char_nf); 2737 #else 2738 while (*s) 2739 out_char_nf(*s++); 2740 #endif 2741 2742 /* For testing we write one string at a time. */ 2743 if (p_wd) 2744 out_flush(); 2745 } 2746 } 2747 2748 /* 2749 * out_str(s): Put a character string a byte at a time into the output buffer. 2750 * If HAVE_TGETENT is defined use the termcap parser. (jw) 2751 * This should only be used for writing terminal codes, not for outputting 2752 * normal text (use functions like msg_puts() and screen_putchar() for that). 2753 */ 2754 void 2755 out_str(char_u *s) 2756 { 2757 if (s != NULL && *s) 2758 { 2759 #ifdef FEAT_GUI 2760 /* Don't use tputs() when GUI is used, ncurses crashes. */ 2761 if (gui.in_use) 2762 { 2763 out_str_nf(s); 2764 return; 2765 } 2766 #endif 2767 /* avoid terminal strings being split up */ 2768 if (out_pos > OUT_SIZE - 20) 2769 out_flush(); 2770 #ifdef HAVE_TGETENT 2771 tputs((char *)s, 1, TPUTSFUNCAST out_char_nf); 2772 #else 2773 while (*s) 2774 out_char_nf(*s++); 2775 #endif 2776 2777 /* For testing we write one string at a time. */ 2778 if (p_wd) 2779 out_flush(); 2780 } 2781 } 2782 2783 /* 2784 * cursor positioning using termcap parser. (jw) 2785 */ 2786 void 2787 term_windgoto(int row, int col) 2788 { 2789 OUT_STR(tgoto((char *)T_CM, col, row)); 2790 } 2791 2792 void 2793 term_cursor_right(int i) 2794 { 2795 OUT_STR(tgoto((char *)T_CRI, 0, i)); 2796 } 2797 2798 void 2799 term_append_lines(int line_count) 2800 { 2801 OUT_STR(tgoto((char *)T_CAL, 0, line_count)); 2802 } 2803 2804 void 2805 term_delete_lines(int line_count) 2806 { 2807 OUT_STR(tgoto((char *)T_CDL, 0, line_count)); 2808 } 2809 2810 #if defined(HAVE_TGETENT) || defined(PROTO) 2811 void 2812 term_set_winpos(int x, int y) 2813 { 2814 /* Can't handle a negative value here */ 2815 if (x < 0) 2816 x = 0; 2817 if (y < 0) 2818 y = 0; 2819 OUT_STR(tgoto((char *)T_CWP, y, x)); 2820 } 2821 2822 # if defined(FEAT_TERMRESPONSE) || defined(PROTO) 2823 /* 2824 * Return TRUE if we can request the terminal for a response. 2825 */ 2826 static int 2827 can_get_termresponse() 2828 { 2829 return cur_tmode == TMODE_RAW 2830 && termcap_active 2831 # ifdef UNIX 2832 && (is_not_a_term() || (isatty(1) && isatty(read_cmd_fd))) 2833 # endif 2834 && p_ek; 2835 } 2836 2837 static int winpos_x = -1; 2838 static int winpos_y = -1; 2839 static int did_request_winpos = 0; 2840 2841 /* 2842 * Try getting the Vim window position from the terminal. 2843 * Returns OK or FAIL. 2844 */ 2845 int 2846 term_get_winpos(int *x, int *y, varnumber_T timeout) 2847 { 2848 int count = 0; 2849 int prev_winpos_x = winpos_x; 2850 int prev_winpos_y = winpos_y; 2851 2852 if (*T_CGP == NUL || !can_get_termresponse()) 2853 return FAIL; 2854 winpos_x = -1; 2855 winpos_y = -1; 2856 ++did_request_winpos; 2857 winpos_status = STATUS_SENT; 2858 OUT_STR(T_CGP); 2859 out_flush(); 2860 2861 /* Try reading the result for "timeout" msec. */ 2862 while (count++ <= timeout / 10 && !got_int) 2863 { 2864 (void)vpeekc_nomap(); 2865 if (winpos_x >= 0 && winpos_y >= 0) 2866 { 2867 *x = winpos_x; 2868 *y = winpos_y; 2869 return OK; 2870 } 2871 ui_delay(10, FALSE); 2872 } 2873 /* Do not reset "did_request_winpos", if we timed out the response might 2874 * still come later and we must consume it. */ 2875 2876 winpos_x = prev_winpos_x; 2877 winpos_y = prev_winpos_y; 2878 if (timeout < 10 && prev_winpos_y >= 0 && prev_winpos_x >= 0) 2879 { 2880 /* Polling: return previous values if we have them. */ 2881 *x = winpos_x; 2882 *y = winpos_y; 2883 return OK; 2884 } 2885 2886 return FALSE; 2887 } 2888 # endif 2889 2890 void 2891 term_set_winsize(int height, int width) 2892 { 2893 OUT_STR(tgoto((char *)T_CWS, width, height)); 2894 } 2895 #endif 2896 2897 static void 2898 term_color(char_u *s, int n) 2899 { 2900 char buf[20]; 2901 int i = *s == CSI ? 1 : 2; 2902 /* index in s[] just after <Esc>[ or CSI */ 2903 2904 /* Special handling of 16 colors, because termcap can't handle it */ 2905 /* Also accept "\e[3%dm" for TERMINFO, it is sometimes used */ 2906 /* Also accept CSI instead of <Esc>[ */ 2907 if (n >= 8 && t_colors >= 16 2908 && ((s[0] == ESC && s[1] == '[') 2909 #if defined(FEAT_VTP) && defined(FEAT_TERMGUICOLORS) 2910 || (s[0] == ESC && s[1] == '|') 2911 #endif 2912 || (s[0] == CSI && (i = 1) == 1)) 2913 && s[i] != NUL 2914 && (STRCMP(s + i + 1, "%p1%dm") == 0 2915 || STRCMP(s + i + 1, "%dm") == 0) 2916 && (s[i] == '3' || s[i] == '4')) 2917 { 2918 #ifdef TERMINFO 2919 char *format = "%s%s%%p1%%dm"; 2920 #else 2921 char *format = "%s%s%%dm"; 2922 #endif 2923 char *lead = i == 2 ? ( 2924 #if defined(FEAT_VTP) && defined(FEAT_TERMGUICOLORS) 2925 s[1] == '|' ? IF_EB("\033|", ESC_STR "|") : 2926 #endif 2927 IF_EB("\033[", ESC_STR "[")) : "\233"; 2928 char *tail = s[i] == '3' ? (n >= 16 ? "38;5;" : "9") 2929 : (n >= 16 ? "48;5;" : "10"); 2930 2931 sprintf(buf, format, lead, tail); 2932 OUT_STR(tgoto(buf, 0, n >= 16 ? n : n - 8)); 2933 } 2934 else 2935 OUT_STR(tgoto((char *)s, 0, n)); 2936 } 2937 2938 void 2939 term_fg_color(int n) 2940 { 2941 /* Use "AF" termcap entry if present, "Sf" entry otherwise */ 2942 if (*T_CAF) 2943 term_color(T_CAF, n); 2944 else if (*T_CSF) 2945 term_color(T_CSF, n); 2946 } 2947 2948 void 2949 term_bg_color(int n) 2950 { 2951 /* Use "AB" termcap entry if present, "Sb" entry otherwise */ 2952 if (*T_CAB) 2953 term_color(T_CAB, n); 2954 else if (*T_CSB) 2955 term_color(T_CSB, n); 2956 } 2957 2958 #if defined(FEAT_TERMGUICOLORS) || defined(PROTO) 2959 2960 #define RED(rgb) (((long_u)(rgb) >> 16) & 0xFF) 2961 #define GREEN(rgb) (((long_u)(rgb) >> 8) & 0xFF) 2962 #define BLUE(rgb) (((long_u)(rgb) ) & 0xFF) 2963 2964 static void 2965 term_rgb_color(char_u *s, guicolor_T rgb) 2966 { 2967 #define MAX_COLOR_STR_LEN 100 2968 char buf[MAX_COLOR_STR_LEN]; 2969 2970 vim_snprintf(buf, MAX_COLOR_STR_LEN, 2971 (char *)s, RED(rgb), GREEN(rgb), BLUE(rgb)); 2972 OUT_STR(buf); 2973 } 2974 2975 void 2976 term_fg_rgb_color(guicolor_T rgb) 2977 { 2978 term_rgb_color(T_8F, rgb); 2979 } 2980 2981 void 2982 term_bg_rgb_color(guicolor_T rgb) 2983 { 2984 term_rgb_color(T_8B, rgb); 2985 } 2986 #endif 2987 2988 #if (defined(FEAT_TITLE) && (defined(UNIX) || defined(VMS) \ 2989 || defined(MACOS_X))) || defined(PROTO) 2990 /* 2991 * Generic function to set window title, using t_ts and t_fs. 2992 */ 2993 void 2994 term_settitle(char_u *title) 2995 { 2996 /* t_ts takes one argument: column in status line */ 2997 OUT_STR(tgoto((char *)T_TS, 0, 0)); /* set title start */ 2998 out_str_nf(title); 2999 out_str(T_FS); /* set title end */ 3000 out_flush(); 3001 } 3002 3003 /* 3004 * Tell the terminal to push (save) the title and/or icon, so that it can be 3005 * popped (restored) later. 3006 */ 3007 void 3008 term_push_title(int which) 3009 { 3010 if ((which & SAVE_RESTORE_TITLE) && *T_CST != NUL) 3011 { 3012 OUT_STR(T_CST); 3013 out_flush(); 3014 } 3015 3016 if ((which & SAVE_RESTORE_ICON) && *T_SSI != NUL) 3017 { 3018 OUT_STR(T_SSI); 3019 out_flush(); 3020 } 3021 } 3022 3023 /* 3024 * Tell the terminal to pop the title and/or icon. 3025 */ 3026 void 3027 term_pop_title(int which) 3028 { 3029 if ((which & SAVE_RESTORE_TITLE) && *T_CRT != NUL) 3030 { 3031 OUT_STR(T_CRT); 3032 out_flush(); 3033 } 3034 3035 if ((which & SAVE_RESTORE_ICON) && *T_SRI != NUL) 3036 { 3037 OUT_STR(T_SRI); 3038 out_flush(); 3039 } 3040 } 3041 #endif 3042 3043 /* 3044 * Make sure we have a valid set or terminal options. 3045 * Replace all entries that are NULL by empty_option 3046 */ 3047 void 3048 ttest(int pairs) 3049 { 3050 char_u *env_colors; 3051 3052 check_options(); /* make sure no options are NULL */ 3053 3054 /* 3055 * MUST have "cm": cursor motion. 3056 */ 3057 if (*T_CM == NUL) 3058 emsg(_("E437: terminal capability \"cm\" required")); 3059 3060 /* 3061 * if "cs" defined, use a scroll region, it's faster. 3062 */ 3063 if (*T_CS != NUL) 3064 scroll_region = TRUE; 3065 else 3066 scroll_region = FALSE; 3067 3068 if (pairs) 3069 { 3070 /* 3071 * optional pairs 3072 */ 3073 /* TP goes to normal mode for TI (invert) and TB (bold) */ 3074 if (*T_ME == NUL) 3075 T_ME = T_MR = T_MD = T_MB = empty_option; 3076 if (*T_SO == NUL || *T_SE == NUL) 3077 T_SO = T_SE = empty_option; 3078 if (*T_US == NUL || *T_UE == NUL) 3079 T_US = T_UE = empty_option; 3080 if (*T_CZH == NUL || *T_CZR == NUL) 3081 T_CZH = T_CZR = empty_option; 3082 3083 /* T_VE is needed even though T_VI is not defined */ 3084 if (*T_VE == NUL) 3085 T_VI = empty_option; 3086 3087 /* if 'mr' or 'me' is not defined use 'so' and 'se' */ 3088 if (*T_ME == NUL) 3089 { 3090 T_ME = T_SE; 3091 T_MR = T_SO; 3092 T_MD = T_SO; 3093 } 3094 3095 /* if 'so' or 'se' is not defined use 'mr' and 'me' */ 3096 if (*T_SO == NUL) 3097 { 3098 T_SE = T_ME; 3099 if (*T_MR == NUL) 3100 T_SO = T_MD; 3101 else 3102 T_SO = T_MR; 3103 } 3104 3105 /* if 'ZH' or 'ZR' is not defined use 'mr' and 'me' */ 3106 if (*T_CZH == NUL) 3107 { 3108 T_CZR = T_ME; 3109 if (*T_MR == NUL) 3110 T_CZH = T_MD; 3111 else 3112 T_CZH = T_MR; 3113 } 3114 3115 /* "Sb" and "Sf" come in pairs */ 3116 if (*T_CSB == NUL || *T_CSF == NUL) 3117 { 3118 T_CSB = empty_option; 3119 T_CSF = empty_option; 3120 } 3121 3122 /* "AB" and "AF" come in pairs */ 3123 if (*T_CAB == NUL || *T_CAF == NUL) 3124 { 3125 T_CAB = empty_option; 3126 T_CAF = empty_option; 3127 } 3128 3129 /* if 'Sb' and 'AB' are not defined, reset "Co" */ 3130 if (*T_CSB == NUL && *T_CAB == NUL) 3131 free_one_termoption(T_CCO); 3132 3133 /* Set 'weirdinvert' according to value of 't_xs' */ 3134 p_wiv = (*T_XS != NUL); 3135 } 3136 need_gather = TRUE; 3137 3138 /* Set t_colors to the value of $COLORS or t_Co. */ 3139 t_colors = atoi((char *)T_CCO); 3140 env_colors = mch_getenv((char_u *)"COLORS"); 3141 if (env_colors != NULL && isdigit(*env_colors)) 3142 { 3143 int colors = atoi((char *)env_colors); 3144 3145 if (colors != t_colors) 3146 set_color_count(colors); 3147 } 3148 } 3149 3150 #if (defined(FEAT_GUI) && (defined(FEAT_MENU) || !defined(USE_ON_FLY_SCROLL))) \ 3151 || defined(PROTO) 3152 /* 3153 * Represent the given long_u as individual bytes, with the most significant 3154 * byte first, and store them in dst. 3155 */ 3156 void 3157 add_long_to_buf(long_u val, char_u *dst) 3158 { 3159 int i; 3160 int shift; 3161 3162 for (i = 1; i <= (int)sizeof(long_u); i++) 3163 { 3164 shift = 8 * (sizeof(long_u) - i); 3165 dst[i - 1] = (char_u) ((val >> shift) & 0xff); 3166 } 3167 } 3168 3169 /* 3170 * Interpret the next string of bytes in buf as a long integer, with the most 3171 * significant byte first. Note that it is assumed that buf has been through 3172 * inchar(), so that NUL and K_SPECIAL will be represented as three bytes each. 3173 * Puts result in val, and returns the number of bytes read from buf 3174 * (between sizeof(long_u) and 2 * sizeof(long_u)), or -1 if not enough bytes 3175 * were present. 3176 */ 3177 static int 3178 get_long_from_buf(char_u *buf, long_u *val) 3179 { 3180 int len; 3181 char_u bytes[sizeof(long_u)]; 3182 int i; 3183 int shift; 3184 3185 *val = 0; 3186 len = get_bytes_from_buf(buf, bytes, (int)sizeof(long_u)); 3187 if (len != -1) 3188 { 3189 for (i = 0; i < (int)sizeof(long_u); i++) 3190 { 3191 shift = 8 * (sizeof(long_u) - 1 - i); 3192 *val += (long_u)bytes[i] << shift; 3193 } 3194 } 3195 return len; 3196 } 3197 #endif 3198 3199 #if defined(FEAT_GUI) \ 3200 || (defined(FEAT_MOUSE) && (!defined(UNIX) || defined(FEAT_MOUSE_XTERM) \ 3201 || defined(FEAT_MOUSE_GPM) || defined(FEAT_SYSMOUSE))) 3202 /* 3203 * Read the next num_bytes bytes from buf, and store them in bytes. Assume 3204 * that buf has been through inchar(). Returns the actual number of bytes used 3205 * from buf (between num_bytes and num_bytes*2), or -1 if not enough bytes were 3206 * available. 3207 */ 3208 static int 3209 get_bytes_from_buf(char_u *buf, char_u *bytes, int num_bytes) 3210 { 3211 int len = 0; 3212 int i; 3213 char_u c; 3214 3215 for (i = 0; i < num_bytes; i++) 3216 { 3217 if ((c = buf[len++]) == NUL) 3218 return -1; 3219 if (c == K_SPECIAL) 3220 { 3221 if (buf[len] == NUL || buf[len + 1] == NUL) /* cannot happen? */ 3222 return -1; 3223 if (buf[len++] == (int)KS_ZERO) 3224 c = NUL; 3225 /* else it should be KS_SPECIAL; when followed by KE_FILLER c is 3226 * K_SPECIAL, or followed by KE_CSI and c must be CSI. */ 3227 if (buf[len++] == (int)KE_CSI) 3228 c = CSI; 3229 } 3230 else if (c == CSI && buf[len] == KS_EXTRA 3231 && buf[len + 1] == (int)KE_CSI) 3232 /* CSI is stored as CSI KS_SPECIAL KE_CSI to avoid confusion with 3233 * the start of a special key, see add_to_input_buf_csi(). */ 3234 len += 2; 3235 bytes[i] = c; 3236 } 3237 return len; 3238 } 3239 #endif 3240 3241 /* 3242 * Check if the new shell size is valid, correct it if it's too small or way 3243 * too big. 3244 */ 3245 void 3246 check_shellsize(void) 3247 { 3248 if (Rows < min_rows()) /* need room for one window and command line */ 3249 Rows = min_rows(); 3250 limit_screen_size(); 3251 } 3252 3253 /* 3254 * Limit Rows and Columns to avoid an overflow in Rows * Columns. 3255 */ 3256 void 3257 limit_screen_size(void) 3258 { 3259 if (Columns < MIN_COLUMNS) 3260 Columns = MIN_COLUMNS; 3261 else if (Columns > 10000) 3262 Columns = 10000; 3263 if (Rows > 1000) 3264 Rows = 1000; 3265 } 3266 3267 /* 3268 * Invoked just before the screen structures are going to be (re)allocated. 3269 */ 3270 void 3271 win_new_shellsize(void) 3272 { 3273 static int old_Rows = 0; 3274 static int old_Columns = 0; 3275 3276 if (old_Rows != Rows || old_Columns != Columns) 3277 ui_new_shellsize(); 3278 if (old_Rows != Rows) 3279 { 3280 /* if 'window' uses the whole screen, keep it using that */ 3281 if (p_window == old_Rows - 1 || old_Rows == 0) 3282 p_window = Rows - 1; 3283 old_Rows = Rows; 3284 shell_new_rows(); /* update window sizes */ 3285 } 3286 if (old_Columns != Columns) 3287 { 3288 old_Columns = Columns; 3289 shell_new_columns(); /* update window sizes */ 3290 } 3291 } 3292 3293 /* 3294 * Call this function when the Vim shell has been resized in any way. 3295 * Will obtain the current size and redraw (also when size didn't change). 3296 */ 3297 void 3298 shell_resized(void) 3299 { 3300 set_shellsize(0, 0, FALSE); 3301 } 3302 3303 /* 3304 * Check if the shell size changed. Handle a resize. 3305 * When the size didn't change, nothing happens. 3306 */ 3307 void 3308 shell_resized_check(void) 3309 { 3310 int old_Rows = Rows; 3311 int old_Columns = Columns; 3312 3313 if (!exiting 3314 #ifdef FEAT_GUI 3315 /* Do not get the size when executing a shell command during 3316 * startup. */ 3317 && !gui.starting 3318 #endif 3319 ) 3320 { 3321 (void)ui_get_shellsize(); 3322 check_shellsize(); 3323 if (old_Rows != Rows || old_Columns != Columns) 3324 shell_resized(); 3325 } 3326 } 3327 3328 /* 3329 * Set size of the Vim shell. 3330 * If 'mustset' is TRUE, we must set Rows and Columns, do not get the real 3331 * window size (this is used for the :win command). 3332 * If 'mustset' is FALSE, we may try to get the real window size and if 3333 * it fails use 'width' and 'height'. 3334 */ 3335 void 3336 set_shellsize(int width, int height, int mustset) 3337 { 3338 static int busy = FALSE; 3339 3340 /* 3341 * Avoid recursiveness, can happen when setting the window size causes 3342 * another window-changed signal. 3343 */ 3344 if (busy) 3345 return; 3346 3347 if (width < 0 || height < 0) /* just checking... */ 3348 return; 3349 3350 if (State == HITRETURN || State == SETWSIZE) 3351 { 3352 /* postpone the resizing */ 3353 State = SETWSIZE; 3354 return; 3355 } 3356 3357 /* curwin->w_buffer can be NULL when we are closing a window and the 3358 * buffer has already been closed and removing a scrollbar causes a resize 3359 * event. Don't resize then, it will happen after entering another buffer. 3360 */ 3361 if (curwin->w_buffer == NULL) 3362 return; 3363 3364 ++busy; 3365 3366 #ifdef AMIGA 3367 out_flush(); /* must do this before mch_get_shellsize() for 3368 some obscure reason */ 3369 #endif 3370 3371 if (mustset || (ui_get_shellsize() == FAIL && height != 0)) 3372 { 3373 Rows = height; 3374 Columns = width; 3375 check_shellsize(); 3376 ui_set_shellsize(mustset); 3377 } 3378 else 3379 check_shellsize(); 3380 3381 /* The window layout used to be adjusted here, but it now happens in 3382 * screenalloc() (also invoked from screenclear()). That is because the 3383 * "busy" check above may skip this, but not screenalloc(). */ 3384 3385 if (State != ASKMORE && State != EXTERNCMD && State != CONFIRM) 3386 screenclear(); 3387 else 3388 screen_start(); /* don't know where cursor is now */ 3389 3390 if (starting != NO_SCREEN) 3391 { 3392 #ifdef FEAT_TITLE 3393 maketitle(); 3394 #endif 3395 changed_line_abv_curs(); 3396 invalidate_botline(); 3397 3398 /* 3399 * We only redraw when it's needed: 3400 * - While at the more prompt or executing an external command, don't 3401 * redraw, but position the cursor. 3402 * - While editing the command line, only redraw that. 3403 * - in Ex mode, don't redraw anything. 3404 * - Otherwise, redraw right now, and position the cursor. 3405 * Always need to call update_screen() or screenalloc(), to make 3406 * sure Rows/Columns and the size of ScreenLines[] is correct! 3407 */ 3408 if (State == ASKMORE || State == EXTERNCMD || State == CONFIRM 3409 || exmode_active) 3410 { 3411 screenalloc(FALSE); 3412 repeat_message(); 3413 } 3414 else 3415 { 3416 if (curwin->w_p_scb) 3417 do_check_scrollbind(TRUE); 3418 if (State & CMDLINE) 3419 { 3420 update_screen(NOT_VALID); 3421 redrawcmdline(); 3422 } 3423 else 3424 { 3425 update_topline(); 3426 #if defined(FEAT_INS_EXPAND) 3427 if (pum_visible()) 3428 { 3429 redraw_later(NOT_VALID); 3430 ins_compl_show_pum(); 3431 } 3432 #endif 3433 update_screen(NOT_VALID); 3434 if (redrawing()) 3435 setcursor(); 3436 } 3437 } 3438 cursor_on(); /* redrawing may have switched it off */ 3439 } 3440 out_flush(); 3441 --busy; 3442 } 3443 3444 /* 3445 * Set the terminal to TMODE_RAW (for Normal mode) or TMODE_COOK (for external 3446 * commands and Ex mode). 3447 */ 3448 void 3449 settmode(int tmode) 3450 { 3451 #ifdef FEAT_GUI 3452 /* don't set the term where gvim was started to any mode */ 3453 if (gui.in_use) 3454 return; 3455 #endif 3456 3457 if (full_screen) 3458 { 3459 /* 3460 * When returning after calling a shell we want to really set the 3461 * terminal to raw mode, even though we think it already is, because 3462 * the shell program may have reset the terminal mode. 3463 * When we think the terminal is normal, don't try to set it to 3464 * normal again, because that causes problems (logout!) on some 3465 * machines. 3466 */ 3467 if (tmode != TMODE_COOK || cur_tmode != TMODE_COOK) 3468 { 3469 #ifdef FEAT_TERMRESPONSE 3470 # ifdef FEAT_GUI 3471 if (!gui.in_use && !gui.starting) 3472 # endif 3473 { 3474 /* May need to check for T_CRV response and termcodes, it 3475 * doesn't work in Cooked mode, an external program may get 3476 * them. */ 3477 if (tmode != TMODE_RAW && (crv_status == STATUS_SENT 3478 || u7_status == STATUS_SENT 3479 #ifdef FEAT_TERMINAL 3480 || rfg_status == STATUS_SENT 3481 #endif 3482 || rbg_status == STATUS_SENT 3483 || rbm_status == STATUS_SENT 3484 || rcs_status == STATUS_SENT 3485 || winpos_status == STATUS_SENT)) 3486 (void)vpeekc_nomap(); 3487 check_for_codes_from_term(); 3488 } 3489 #endif 3490 #ifdef FEAT_MOUSE_TTY 3491 if (tmode != TMODE_RAW) 3492 mch_setmouse(FALSE); /* switch mouse off */ 3493 #endif 3494 if (tmode != TMODE_RAW) 3495 out_str(T_BD); /* disable bracketed paste mode */ 3496 out_flush(); 3497 mch_settmode(tmode); /* machine specific function */ 3498 cur_tmode = tmode; 3499 #ifdef FEAT_MOUSE 3500 if (tmode == TMODE_RAW) 3501 setmouse(); /* may switch mouse on */ 3502 #endif 3503 if (tmode == TMODE_RAW) 3504 out_str(T_BE); /* enable bracketed paste mode */ 3505 out_flush(); 3506 } 3507 #ifdef FEAT_TERMRESPONSE 3508 may_req_termresponse(); 3509 #endif 3510 } 3511 } 3512 3513 void 3514 starttermcap(void) 3515 { 3516 if (full_screen && !termcap_active) 3517 { 3518 out_str(T_TI); /* start termcap mode */ 3519 out_str(T_KS); /* start "keypad transmit" mode */ 3520 out_str(T_BE); /* enable bracketed paste mode */ 3521 out_flush(); 3522 termcap_active = TRUE; 3523 screen_start(); /* don't know where cursor is now */ 3524 #ifdef FEAT_TERMRESPONSE 3525 # ifdef FEAT_GUI 3526 if (!gui.in_use && !gui.starting) 3527 # endif 3528 { 3529 may_req_termresponse(); 3530 /* Immediately check for a response. If t_Co changes, we don't 3531 * want to redraw with wrong colors first. */ 3532 if (crv_status == STATUS_SENT) 3533 check_for_codes_from_term(); 3534 } 3535 #endif 3536 } 3537 } 3538 3539 void 3540 stoptermcap(void) 3541 { 3542 screen_stop_highlight(); 3543 reset_cterm_colors(); 3544 if (termcap_active) 3545 { 3546 #ifdef FEAT_TERMRESPONSE 3547 # ifdef FEAT_GUI 3548 if (!gui.in_use && !gui.starting) 3549 # endif 3550 { 3551 /* May need to discard T_CRV, T_U7 or T_RBG response. */ 3552 if (crv_status == STATUS_SENT 3553 || u7_status == STATUS_SENT 3554 # ifdef FEAT_TERMINAL 3555 || rfg_status == STATUS_SENT 3556 # endif 3557 || rbg_status == STATUS_SENT 3558 || rbm_status == STATUS_SENT 3559 || rcs_status == STATUS_SENT 3560 || winpos_status == STATUS_SENT) 3561 { 3562 # ifdef UNIX 3563 /* Give the terminal a chance to respond. */ 3564 mch_delay(100L, FALSE); 3565 # endif 3566 # ifdef TCIFLUSH 3567 /* Discard data received but not read. */ 3568 if (exiting) 3569 tcflush(fileno(stdin), TCIFLUSH); 3570 # endif 3571 } 3572 /* Check for termcodes first, otherwise an external program may 3573 * get them. */ 3574 check_for_codes_from_term(); 3575 } 3576 #endif 3577 out_str(T_BD); /* disable bracketed paste mode */ 3578 out_str(T_KE); /* stop "keypad transmit" mode */ 3579 out_flush(); 3580 termcap_active = FALSE; 3581 cursor_on(); /* just in case it is still off */ 3582 out_str(T_TE); /* stop termcap mode */ 3583 screen_start(); /* don't know where cursor is now */ 3584 out_flush(); 3585 } 3586 } 3587 3588 #if defined(FEAT_TERMRESPONSE) || defined(PROTO) 3589 /* 3590 * Request version string (for xterm) when needed. 3591 * Only do this after switching to raw mode, otherwise the result will be 3592 * echoed. 3593 * Only do this after startup has finished, to avoid that the response comes 3594 * while executing "-c !cmd" or even after "-c quit". 3595 * Only do this after termcap mode has been started, otherwise the codes for 3596 * the cursor keys may be wrong. 3597 * Only do this when 'esckeys' is on, otherwise the response causes trouble in 3598 * Insert mode. 3599 * On Unix only do it when both output and input are a tty (avoid writing 3600 * request to terminal while reading from a file). 3601 * The result is caught in check_termcode(). 3602 */ 3603 void 3604 may_req_termresponse(void) 3605 { 3606 if (crv_status == STATUS_GET 3607 && can_get_termresponse() 3608 && starting == 0 3609 && *T_CRV != NUL) 3610 { 3611 LOG_TR(("Sending CRV request")); 3612 out_str(T_CRV); 3613 crv_status = STATUS_SENT; 3614 /* check for the characters now, otherwise they might be eaten by 3615 * get_keystroke() */ 3616 out_flush(); 3617 (void)vpeekc_nomap(); 3618 } 3619 } 3620 3621 # if defined(FEAT_MBYTE) || defined(PROTO) 3622 /* 3623 * Check how the terminal treats ambiguous character width (UAX #11). 3624 * First, we move the cursor to (1, 0) and print a test ambiguous character 3625 * \u25bd (WHITE DOWN-POINTING TRIANGLE) and query current cursor position. 3626 * If the terminal treats \u25bd as single width, the position is (1, 1), 3627 * or if it is treated as double width, that will be (1, 2). 3628 * This function has the side effect that changes cursor position, so 3629 * it must be called immediately after entering termcap mode. 3630 */ 3631 void 3632 may_req_ambiguous_char_width(void) 3633 { 3634 if (u7_status == STATUS_GET 3635 && can_get_termresponse() 3636 && starting == 0 3637 && *T_U7 != NUL 3638 && !option_was_set((char_u *)"ambiwidth")) 3639 { 3640 char_u buf[16]; 3641 3642 LOG_TR(("Sending U7 request")); 3643 /* Do this in the second row. In the first row the returned sequence 3644 * may be CSI 1;2R, which is the same as <S-F3>. */ 3645 term_windgoto(1, 0); 3646 buf[mb_char2bytes(0x25bd, buf)] = 0; 3647 out_str(buf); 3648 out_str(T_U7); 3649 u7_status = STATUS_SENT; 3650 out_flush(); 3651 3652 /* This overwrites a few characters on the screen, a redraw is needed 3653 * after this. Clear them out for now. */ 3654 term_windgoto(1, 0); 3655 out_str((char_u *)" "); 3656 term_windgoto(0, 0); 3657 3658 /* Need to reset the known cursor position. */ 3659 screen_start(); 3660 3661 /* check for the characters now, otherwise they might be eaten by 3662 * get_keystroke() */ 3663 out_flush(); 3664 (void)vpeekc_nomap(); 3665 } 3666 } 3667 # endif 3668 3669 /* 3670 * Similar to requesting the version string: Request the terminal background 3671 * color when it is the right moment. 3672 */ 3673 void 3674 may_req_bg_color(void) 3675 { 3676 if (can_get_termresponse() && starting == 0) 3677 { 3678 int didit = FALSE; 3679 3680 # ifdef FEAT_TERMINAL 3681 /* Only request foreground if t_RF is set. */ 3682 if (rfg_status == STATUS_GET && *T_RFG != NUL) 3683 { 3684 LOG_TR(("Sending FG request")); 3685 out_str(T_RFG); 3686 rfg_status = STATUS_SENT; 3687 didit = TRUE; 3688 } 3689 # endif 3690 3691 /* Only request background if t_RB is set. */ 3692 if (rbg_status == STATUS_GET && *T_RBG != NUL) 3693 { 3694 LOG_TR(("Sending BG request")); 3695 out_str(T_RBG); 3696 rbg_status = STATUS_SENT; 3697 didit = TRUE; 3698 } 3699 3700 if (didit) 3701 { 3702 /* check for the characters now, otherwise they might be eaten by 3703 * get_keystroke() */ 3704 out_flush(); 3705 (void)vpeekc_nomap(); 3706 } 3707 } 3708 } 3709 3710 # ifdef DEBUG_TERMRESPONSE 3711 static void 3712 log_tr(const char *fmt, ...) 3713 { 3714 static FILE *fd_tr = NULL; 3715 static proftime_T start; 3716 proftime_T now; 3717 va_list ap; 3718 3719 if (fd_tr == NULL) 3720 { 3721 fd_tr = fopen("termresponse.log", "w"); 3722 profile_start(&start); 3723 } 3724 now = start; 3725 profile_end(&now); 3726 fprintf(fd_tr, "%s: %s ", profile_msg(&now), 3727 must_redraw == NOT_VALID ? "NV" 3728 : must_redraw == CLEAR ? "CL" : " "); 3729 va_start(ap, fmt); 3730 vfprintf(fd_tr, fmt, ap); 3731 va_end(ap); 3732 fputc('\n', fd_tr); 3733 fflush(fd_tr); 3734 } 3735 # endif 3736 #endif 3737 3738 /* 3739 * Return TRUE when saving and restoring the screen. 3740 */ 3741 int 3742 swapping_screen(void) 3743 { 3744 return (full_screen && *T_TI != NUL); 3745 } 3746 3747 #if defined(FEAT_MOUSE) || defined(PROTO) 3748 /* 3749 * setmouse() - switch mouse on/off depending on current mode and 'mouse' 3750 */ 3751 void 3752 setmouse(void) 3753 { 3754 # ifdef FEAT_MOUSE_TTY 3755 int checkfor; 3756 # endif 3757 3758 # ifdef FEAT_MOUSESHAPE 3759 update_mouseshape(-1); 3760 # endif 3761 3762 # ifdef FEAT_MOUSE_TTY /* Should be outside proc, but may break MOUSESHAPE */ 3763 # ifdef FEAT_GUI 3764 /* In the GUI the mouse is always enabled. */ 3765 if (gui.in_use) 3766 return; 3767 # endif 3768 /* be quick when mouse is off */ 3769 if (*p_mouse == NUL || has_mouse_termcode == 0) 3770 return; 3771 3772 /* don't switch mouse on when not in raw mode (Ex mode) */ 3773 if (cur_tmode != TMODE_RAW) 3774 { 3775 mch_setmouse(FALSE); 3776 return; 3777 } 3778 3779 if (VIsual_active) 3780 checkfor = MOUSE_VISUAL; 3781 else if (State == HITRETURN || State == ASKMORE || State == SETWSIZE) 3782 checkfor = MOUSE_RETURN; 3783 else if (State & INSERT) 3784 checkfor = MOUSE_INSERT; 3785 else if (State & CMDLINE) 3786 checkfor = MOUSE_COMMAND; 3787 else if (State == CONFIRM || State == EXTERNCMD) 3788 checkfor = ' '; /* don't use mouse for ":confirm" or ":!cmd" */ 3789 else 3790 checkfor = MOUSE_NORMAL; /* assume normal mode */ 3791 3792 if (mouse_has(checkfor)) 3793 mch_setmouse(TRUE); 3794 else 3795 mch_setmouse(FALSE); 3796 # endif 3797 } 3798 3799 /* 3800 * Return TRUE if 3801 * - "c" is in 'mouse', or 3802 * - 'a' is in 'mouse' and "c" is in MOUSE_A, or 3803 * - the current buffer is a help file and 'h' is in 'mouse' and we are in a 3804 * normal editing mode (not at hit-return message). 3805 */ 3806 int 3807 mouse_has(int c) 3808 { 3809 char_u *p; 3810 3811 for (p = p_mouse; *p; ++p) 3812 switch (*p) 3813 { 3814 case 'a': if (vim_strchr((char_u *)MOUSE_A, c) != NULL) 3815 return TRUE; 3816 break; 3817 case MOUSE_HELP: if (c != MOUSE_RETURN && curbuf->b_help) 3818 return TRUE; 3819 break; 3820 default: if (c == *p) return TRUE; break; 3821 } 3822 return FALSE; 3823 } 3824 3825 /* 3826 * Return TRUE when 'mousemodel' is set to "popup" or "popup_setpos". 3827 */ 3828 int 3829 mouse_model_popup(void) 3830 { 3831 return (p_mousem[0] == 'p'); 3832 } 3833 #endif 3834 3835 /* 3836 * By outputting the 'cursor very visible' termcap code, for some windowed 3837 * terminals this makes the screen scrolled to the correct position. 3838 * Used when starting Vim or returning from a shell. 3839 */ 3840 void 3841 scroll_start(void) 3842 { 3843 if (*T_VS != NUL && *T_CVS != NUL) 3844 { 3845 out_str(T_VS); 3846 out_str(T_CVS); 3847 screen_start(); /* don't know where cursor is now */ 3848 } 3849 } 3850 3851 static int cursor_is_off = FALSE; 3852 3853 /* 3854 * Enable the cursor without checking if it's already enabled. 3855 */ 3856 void 3857 cursor_on_force(void) 3858 { 3859 out_str(T_VE); 3860 cursor_is_off = FALSE; 3861 } 3862 3863 /* 3864 * Enable the cursor if it's currently off. 3865 */ 3866 void 3867 cursor_on(void) 3868 { 3869 if (cursor_is_off) 3870 cursor_on_force(); 3871 } 3872 3873 /* 3874 * Disable the cursor. 3875 */ 3876 void 3877 cursor_off(void) 3878 { 3879 if (full_screen && !cursor_is_off) 3880 { 3881 out_str(T_VI); /* disable cursor */ 3882 cursor_is_off = TRUE; 3883 } 3884 } 3885 3886 #if defined(CURSOR_SHAPE) || defined(PROTO) 3887 /* 3888 * Set cursor shape to match Insert or Replace mode. 3889 */ 3890 void 3891 term_cursor_mode(int forced) 3892 { 3893 static int showing_mode = -1; 3894 char_u *p; 3895 3896 /* Only do something when redrawing the screen and we can restore the 3897 * mode. */ 3898 if (!full_screen || *T_CEI == NUL) 3899 { 3900 # ifdef FEAT_TERMRESPONSE 3901 if (forced && initial_cursor_shape > 0) 3902 /* Restore to initial values. */ 3903 term_cursor_shape(initial_cursor_shape, initial_cursor_blink); 3904 # endif 3905 return; 3906 } 3907 3908 if ((State & REPLACE) == REPLACE) 3909 { 3910 if (forced || showing_mode != REPLACE) 3911 { 3912 if (*T_CSR != NUL) 3913 p = T_CSR; /* Replace mode cursor */ 3914 else 3915 p = T_CSI; /* fall back to Insert mode cursor */ 3916 if (*p != NUL) 3917 { 3918 out_str(p); 3919 showing_mode = REPLACE; 3920 } 3921 } 3922 } 3923 else if (State & INSERT) 3924 { 3925 if ((forced || showing_mode != INSERT) && *T_CSI != NUL) 3926 { 3927 out_str(T_CSI); /* Insert mode cursor */ 3928 showing_mode = INSERT; 3929 } 3930 } 3931 else if (forced || showing_mode != NORMAL) 3932 { 3933 out_str(T_CEI); /* non-Insert mode cursor */ 3934 showing_mode = NORMAL; 3935 } 3936 } 3937 3938 # if defined(FEAT_TERMINAL) || defined(PROTO) 3939 void 3940 term_cursor_color(char_u *color) 3941 { 3942 if (*T_CSC != NUL) 3943 { 3944 out_str(T_CSC); /* set cursor color start */ 3945 out_str_nf(color); 3946 out_str(T_CEC); /* set cursor color end */ 3947 out_flush(); 3948 } 3949 } 3950 # endif 3951 3952 int 3953 blink_state_is_inverted() 3954 { 3955 #ifdef FEAT_TERMRESPONSE 3956 return rbm_status == STATUS_GOT && rcs_status == STATUS_GOT 3957 && initial_cursor_blink != initial_cursor_shape_blink; 3958 #else 3959 return FALSE; 3960 #endif 3961 } 3962 3963 /* 3964 * "shape": 1 = block, 2 = underline, 3 = vertical bar 3965 */ 3966 void 3967 term_cursor_shape(int shape, int blink) 3968 { 3969 if (*T_CSH != NUL) 3970 { 3971 OUT_STR(tgoto((char *)T_CSH, 0, shape * 2 - blink)); 3972 out_flush(); 3973 } 3974 else 3975 { 3976 int do_blink = blink; 3977 3978 /* t_SH is empty: try setting just the blink state. 3979 * The blink flags are XORed together, if the initial blinking from 3980 * style and shape differs, we need to invert the flag here. */ 3981 if (blink_state_is_inverted()) 3982 do_blink = !blink; 3983 3984 if (do_blink && *T_VS != NUL) 3985 { 3986 out_str(T_VS); 3987 out_flush(); 3988 } 3989 else if (!do_blink && *T_CVS != NUL) 3990 { 3991 out_str(T_CVS); 3992 out_flush(); 3993 } 3994 } 3995 } 3996 #endif 3997 3998 /* 3999 * Set scrolling region for window 'wp'. 4000 * The region starts 'off' lines from the start of the window. 4001 * Also set the vertical scroll region for a vertically split window. Always 4002 * the full width of the window, excluding the vertical separator. 4003 */ 4004 void 4005 scroll_region_set(win_T *wp, int off) 4006 { 4007 OUT_STR(tgoto((char *)T_CS, W_WINROW(wp) + wp->w_height - 1, 4008 W_WINROW(wp) + off)); 4009 if (*T_CSV != NUL && wp->w_width != Columns) 4010 OUT_STR(tgoto((char *)T_CSV, wp->w_wincol + wp->w_width - 1, 4011 wp->w_wincol)); 4012 screen_start(); /* don't know where cursor is now */ 4013 } 4014 4015 /* 4016 * Reset scrolling region to the whole screen. 4017 */ 4018 void 4019 scroll_region_reset(void) 4020 { 4021 OUT_STR(tgoto((char *)T_CS, (int)Rows - 1, 0)); 4022 if (*T_CSV != NUL) 4023 OUT_STR(tgoto((char *)T_CSV, (int)Columns - 1, 0)); 4024 screen_start(); /* don't know where cursor is now */ 4025 } 4026 4027 4028 /* 4029 * List of terminal codes that are currently recognized. 4030 */ 4031 4032 static struct termcode 4033 { 4034 char_u name[2]; /* termcap name of entry */ 4035 char_u *code; /* terminal code (in allocated memory) */ 4036 int len; /* STRLEN(code) */ 4037 int modlen; /* length of part before ";*~". */ 4038 } *termcodes = NULL; 4039 4040 static int tc_max_len = 0; /* number of entries that termcodes[] can hold */ 4041 static int tc_len = 0; /* current number of entries in termcodes[] */ 4042 4043 static int termcode_star(char_u *code, int len); 4044 4045 void 4046 clear_termcodes(void) 4047 { 4048 while (tc_len > 0) 4049 vim_free(termcodes[--tc_len].code); 4050 VIM_CLEAR(termcodes); 4051 tc_max_len = 0; 4052 4053 #ifdef HAVE_TGETENT 4054 BC = (char *)empty_option; 4055 UP = (char *)empty_option; 4056 PC = NUL; /* set pad character to NUL */ 4057 ospeed = 0; 4058 #endif 4059 4060 need_gather = TRUE; /* need to fill termleader[] */ 4061 } 4062 4063 #define ATC_FROM_TERM 55 4064 4065 /* 4066 * Add a new entry to the list of terminal codes. 4067 * The list is kept alphabetical for ":set termcap" 4068 * "flags" is TRUE when replacing 7-bit by 8-bit controls is desired. 4069 * "flags" can also be ATC_FROM_TERM for got_code_from_term(). 4070 */ 4071 void 4072 add_termcode(char_u *name, char_u *string, int flags) 4073 { 4074 struct termcode *new_tc; 4075 int i, j; 4076 char_u *s; 4077 int len; 4078 4079 if (string == NULL || *string == NUL) 4080 { 4081 del_termcode(name); 4082 return; 4083 } 4084 4085 #if defined(WIN3264) && !defined(FEAT_GUI) 4086 s = vim_strnsave(string, (int)STRLEN(string) + 1); 4087 #else 4088 s = vim_strsave(string); 4089 #endif 4090 if (s == NULL) 4091 return; 4092 4093 /* Change leading <Esc>[ to CSI, change <Esc>O to <M-O>. */ 4094 if (flags != 0 && flags != ATC_FROM_TERM && term_7to8bit(string) != 0) 4095 { 4096 STRMOVE(s, s + 1); 4097 s[0] = term_7to8bit(string); 4098 } 4099 4100 #if defined(WIN3264) && !defined(FEAT_GUI) 4101 if (s[0] == K_NUL) 4102 { 4103 STRMOVE(s + 1, s); 4104 s[1] = 3; 4105 } 4106 #endif 4107 4108 len = (int)STRLEN(s); 4109 4110 need_gather = TRUE; /* need to fill termleader[] */ 4111 4112 /* 4113 * need to make space for more entries 4114 */ 4115 if (tc_len == tc_max_len) 4116 { 4117 tc_max_len += 20; 4118 new_tc = (struct termcode *)alloc( 4119 (unsigned)(tc_max_len * sizeof(struct termcode))); 4120 if (new_tc == NULL) 4121 { 4122 tc_max_len -= 20; 4123 return; 4124 } 4125 for (i = 0; i < tc_len; ++i) 4126 new_tc[i] = termcodes[i]; 4127 vim_free(termcodes); 4128 termcodes = new_tc; 4129 } 4130 4131 /* 4132 * Look for existing entry with the same name, it is replaced. 4133 * Look for an existing entry that is alphabetical higher, the new entry 4134 * is inserted in front of it. 4135 */ 4136 for (i = 0; i < tc_len; ++i) 4137 { 4138 if (termcodes[i].name[0] < name[0]) 4139 continue; 4140 if (termcodes[i].name[0] == name[0]) 4141 { 4142 if (termcodes[i].name[1] < name[1]) 4143 continue; 4144 /* 4145 * Exact match: May replace old code. 4146 */ 4147 if (termcodes[i].name[1] == name[1]) 4148 { 4149 if (flags == ATC_FROM_TERM && (j = termcode_star( 4150 termcodes[i].code, termcodes[i].len)) > 0) 4151 { 4152 /* Don't replace ESC[123;*X or ESC O*X with another when 4153 * invoked from got_code_from_term(). */ 4154 if (len == termcodes[i].len - j 4155 && STRNCMP(s, termcodes[i].code, len - 1) == 0 4156 && s[len - 1] 4157 == termcodes[i].code[termcodes[i].len - 1]) 4158 { 4159 /* They are equal but for the ";*": don't add it. */ 4160 vim_free(s); 4161 return; 4162 } 4163 } 4164 else 4165 { 4166 /* Replace old code. */ 4167 vim_free(termcodes[i].code); 4168 --tc_len; 4169 break; 4170 } 4171 } 4172 } 4173 /* 4174 * Found alphabetical larger entry, move rest to insert new entry 4175 */ 4176 for (j = tc_len; j > i; --j) 4177 termcodes[j] = termcodes[j - 1]; 4178 break; 4179 } 4180 4181 termcodes[i].name[0] = name[0]; 4182 termcodes[i].name[1] = name[1]; 4183 termcodes[i].code = s; 4184 termcodes[i].len = len; 4185 4186 /* For xterm we recognize special codes like "ESC[42;*X" and "ESC O*X" that 4187 * accept modifiers. */ 4188 termcodes[i].modlen = 0; 4189 j = termcode_star(s, len); 4190 if (j > 0) 4191 termcodes[i].modlen = len - 1 - j; 4192 ++tc_len; 4193 } 4194 4195 /* 4196 * Check termcode "code[len]" for ending in ;*X or *X. 4197 * The "X" can be any character. 4198 * Return 0 if not found, 2 for ;*X and 1 for *X. 4199 */ 4200 static int 4201 termcode_star(char_u *code, int len) 4202 { 4203 /* Shortest is <M-O>*X. With ; shortest is <CSI>1;*X */ 4204 if (len >= 3 && code[len - 2] == '*') 4205 { 4206 if (len >= 5 && code[len - 3] == ';') 4207 return 2; 4208 else 4209 return 1; 4210 } 4211 return 0; 4212 } 4213 4214 char_u * 4215 find_termcode(char_u *name) 4216 { 4217 int i; 4218 4219 for (i = 0; i < tc_len; ++i) 4220 if (termcodes[i].name[0] == name[0] && termcodes[i].name[1] == name[1]) 4221 return termcodes[i].code; 4222 return NULL; 4223 } 4224 4225 #if defined(FEAT_CMDL_COMPL) || defined(PROTO) 4226 char_u * 4227 get_termcode(int i) 4228 { 4229 if (i >= tc_len) 4230 return NULL; 4231 return &termcodes[i].name[0]; 4232 } 4233 #endif 4234 4235 void 4236 del_termcode(char_u *name) 4237 { 4238 int i; 4239 4240 if (termcodes == NULL) /* nothing there yet */ 4241 return; 4242 4243 need_gather = TRUE; /* need to fill termleader[] */ 4244 4245 for (i = 0; i < tc_len; ++i) 4246 if (termcodes[i].name[0] == name[0] && termcodes[i].name[1] == name[1]) 4247 { 4248 del_termcode_idx(i); 4249 return; 4250 } 4251 /* not found. Give error message? */ 4252 } 4253 4254 static void 4255 del_termcode_idx(int idx) 4256 { 4257 int i; 4258 4259 vim_free(termcodes[idx].code); 4260 --tc_len; 4261 for (i = idx; i < tc_len; ++i) 4262 termcodes[i] = termcodes[i + 1]; 4263 } 4264 4265 #ifdef FEAT_TERMRESPONSE 4266 /* 4267 * Called when detected that the terminal sends 8-bit codes. 4268 * Convert all 7-bit codes to their 8-bit equivalent. 4269 */ 4270 static void 4271 switch_to_8bit(void) 4272 { 4273 int i; 4274 int c; 4275 4276 /* Only need to do something when not already using 8-bit codes. */ 4277 if (!term_is_8bit(T_NAME)) 4278 { 4279 for (i = 0; i < tc_len; ++i) 4280 { 4281 c = term_7to8bit(termcodes[i].code); 4282 if (c != 0) 4283 { 4284 STRMOVE(termcodes[i].code + 1, termcodes[i].code + 2); 4285 termcodes[i].code[0] = c; 4286 } 4287 } 4288 need_gather = TRUE; /* need to fill termleader[] */ 4289 } 4290 detected_8bit = TRUE; 4291 LOG_TR(("Switching to 8 bit")); 4292 } 4293 #endif 4294 4295 #ifdef CHECK_DOUBLE_CLICK 4296 static linenr_T orig_topline = 0; 4297 # ifdef FEAT_DIFF 4298 static int orig_topfill = 0; 4299 # endif 4300 #endif 4301 #if defined(CHECK_DOUBLE_CLICK) || defined(PROTO) 4302 /* 4303 * Checking for double clicks ourselves. 4304 * "orig_topline" is used to avoid detecting a double-click when the window 4305 * contents scrolled (e.g., when 'scrolloff' is non-zero). 4306 */ 4307 /* 4308 * Set orig_topline. Used when jumping to another window, so that a double 4309 * click still works. 4310 */ 4311 void 4312 set_mouse_topline(win_T *wp) 4313 { 4314 orig_topline = wp->w_topline; 4315 # ifdef FEAT_DIFF 4316 orig_topfill = wp->w_topfill; 4317 # endif 4318 } 4319 #endif 4320 4321 /* 4322 * Check if typebuf.tb_buf[] contains a terminal key code. 4323 * Check from typebuf.tb_buf[typebuf.tb_off] to typebuf.tb_buf[typebuf.tb_off 4324 * + max_offset]. 4325 * Return 0 for no match, -1 for partial match, > 0 for full match. 4326 * Return KEYLEN_REMOVED when a key code was deleted. 4327 * With a match, the match is removed, the replacement code is inserted in 4328 * typebuf.tb_buf[] and the number of characters in typebuf.tb_buf[] is 4329 * returned. 4330 * When "buf" is not NULL, buf[bufsize] is used instead of typebuf.tb_buf[]. 4331 * "buflen" is then the length of the string in buf[] and is updated for 4332 * inserts and deletes. 4333 */ 4334 int 4335 check_termcode( 4336 int max_offset, 4337 char_u *buf, 4338 int bufsize, 4339 int *buflen) 4340 { 4341 char_u *tp; 4342 char_u *p; 4343 int slen = 0; /* init for GCC */ 4344 int modslen; 4345 int len; 4346 int retval = 0; 4347 int offset; 4348 char_u key_name[2]; 4349 int modifiers; 4350 char_u *modifiers_start = NULL; 4351 int key; 4352 int new_slen; 4353 int extra; 4354 char_u string[MAX_KEY_CODE_LEN + 1]; 4355 int i, j; 4356 int idx = 0; 4357 #ifdef FEAT_MOUSE 4358 # if !defined(UNIX) || defined(FEAT_MOUSE_XTERM) || defined(FEAT_GUI) \ 4359 || defined(FEAT_MOUSE_GPM) || defined(FEAT_SYSMOUSE) 4360 char_u bytes[6]; 4361 int num_bytes; 4362 # endif 4363 int mouse_code = 0; /* init for GCC */ 4364 int is_click, is_drag; 4365 int wheel_code = 0; 4366 int current_button; 4367 static int held_button = MOUSE_RELEASE; 4368 static int orig_num_clicks = 1; 4369 static int orig_mouse_code = 0x0; 4370 # ifdef CHECK_DOUBLE_CLICK 4371 static int orig_mouse_col = 0; 4372 static int orig_mouse_row = 0; 4373 static struct timeval orig_mouse_time = {0, 0}; 4374 /* time of previous mouse click */ 4375 struct timeval mouse_time; /* time of current mouse click */ 4376 long timediff; /* elapsed time in msec */ 4377 # endif 4378 #endif 4379 int cpo_koffset; 4380 #ifdef FEAT_MOUSE_GPM 4381 extern int gpm_flag; /* gpm library variable */ 4382 #endif 4383 4384 cpo_koffset = (vim_strchr(p_cpo, CPO_KOFFSET) != NULL); 4385 4386 /* 4387 * Speed up the checks for terminal codes by gathering all first bytes 4388 * used in termleader[]. Often this is just a single <Esc>. 4389 */ 4390 if (need_gather) 4391 gather_termleader(); 4392 4393 /* 4394 * Check at several positions in typebuf.tb_buf[], to catch something like 4395 * "x<Up>" that can be mapped. Stop at max_offset, because characters 4396 * after that cannot be used for mapping, and with @r commands 4397 * typebuf.tb_buf[] can become very long. 4398 * This is used often, KEEP IT FAST! 4399 */ 4400 for (offset = 0; offset < max_offset; ++offset) 4401 { 4402 if (buf == NULL) 4403 { 4404 if (offset >= typebuf.tb_len) 4405 break; 4406 tp = typebuf.tb_buf + typebuf.tb_off + offset; 4407 len = typebuf.tb_len - offset; /* length of the input */ 4408 } 4409 else 4410 { 4411 if (offset >= *buflen) 4412 break; 4413 tp = buf + offset; 4414 len = *buflen - offset; 4415 } 4416 4417 /* 4418 * Don't check characters after K_SPECIAL, those are already 4419 * translated terminal chars (avoid translating ~@^Hx). 4420 */ 4421 if (*tp == K_SPECIAL) 4422 { 4423 offset += 2; /* there are always 2 extra characters */ 4424 continue; 4425 } 4426 4427 /* 4428 * Skip this position if the character does not appear as the first 4429 * character in term_strings. This speeds up a lot, since most 4430 * termcodes start with the same character (ESC or CSI). 4431 */ 4432 i = *tp; 4433 for (p = termleader; *p && *p != i; ++p) 4434 ; 4435 if (*p == NUL) 4436 continue; 4437 4438 /* 4439 * Skip this position if p_ek is not set and tp[0] is an ESC and we 4440 * are in Insert mode. 4441 */ 4442 if (*tp == ESC && !p_ek && (State & INSERT)) 4443 continue; 4444 4445 key_name[0] = NUL; /* no key name found yet */ 4446 key_name[1] = NUL; /* no key name found yet */ 4447 modifiers = 0; /* no modifiers yet */ 4448 4449 #ifdef FEAT_GUI 4450 if (gui.in_use) 4451 { 4452 /* 4453 * GUI special key codes are all of the form [CSI xx]. 4454 */ 4455 if (*tp == CSI) /* Special key from GUI */ 4456 { 4457 if (len < 3) 4458 return -1; /* Shouldn't happen */ 4459 slen = 3; 4460 key_name[0] = tp[1]; 4461 key_name[1] = tp[2]; 4462 } 4463 } 4464 else 4465 #endif /* FEAT_GUI */ 4466 { 4467 for (idx = 0; idx < tc_len; ++idx) 4468 { 4469 /* 4470 * Ignore the entry if we are not at the start of 4471 * typebuf.tb_buf[] 4472 * and there are not enough characters to make a match. 4473 * But only when the 'K' flag is in 'cpoptions'. 4474 */ 4475 slen = termcodes[idx].len; 4476 modifiers_start = NULL; 4477 if (cpo_koffset && offset && len < slen) 4478 continue; 4479 if (STRNCMP(termcodes[idx].code, tp, 4480 (size_t)(slen > len ? len : slen)) == 0) 4481 { 4482 if (len < slen) /* got a partial sequence */ 4483 return -1; /* need to get more chars */ 4484 4485 /* 4486 * When found a keypad key, check if there is another key 4487 * that matches and use that one. This makes <Home> to be 4488 * found instead of <kHome> when they produce the same 4489 * key code. 4490 */ 4491 if (termcodes[idx].name[0] == 'K' 4492 && VIM_ISDIGIT(termcodes[idx].name[1])) 4493 { 4494 for (j = idx + 1; j < tc_len; ++j) 4495 if (termcodes[j].len == slen && 4496 STRNCMP(termcodes[idx].code, 4497 termcodes[j].code, slen) == 0) 4498 { 4499 idx = j; 4500 break; 4501 } 4502 } 4503 4504 key_name[0] = termcodes[idx].name[0]; 4505 key_name[1] = termcodes[idx].name[1]; 4506 break; 4507 } 4508 4509 /* 4510 * Check for code with modifier, like xterm uses: 4511 * <Esc>[123;*X (modslen == slen - 3) 4512 * Also <Esc>O*X and <M-O>*X (modslen == slen - 2). 4513 * When there is a modifier the * matches a number. 4514 * When there is no modifier the ;* or * is omitted. 4515 */ 4516 if (termcodes[idx].modlen > 0) 4517 { 4518 modslen = termcodes[idx].modlen; 4519 if (cpo_koffset && offset && len < modslen) 4520 continue; 4521 if (STRNCMP(termcodes[idx].code, tp, 4522 (size_t)(modslen > len ? len : modslen)) == 0) 4523 { 4524 int n; 4525 4526 if (len <= modslen) /* got a partial sequence */ 4527 return -1; /* need to get more chars */ 4528 4529 if (tp[modslen] == termcodes[idx].code[slen - 1]) 4530 slen = modslen + 1; /* no modifiers */ 4531 else if (tp[modslen] != ';' && modslen == slen - 3) 4532 continue; /* no match */ 4533 else 4534 { 4535 /* Skip over the digits, the final char must 4536 * follow. */ 4537 for (j = slen - 2; j < len && (isdigit(tp[j]) 4538 || tp[j] == ';'); ++j) 4539 ; 4540 ++j; 4541 if (len < j) /* got a partial sequence */ 4542 return -1; /* need to get more chars */ 4543 if (tp[j - 1] != termcodes[idx].code[slen - 1]) 4544 continue; /* no match */ 4545 4546 modifiers_start = tp + slen - 2; 4547 4548 /* Match! Convert modifier bits. */ 4549 n = atoi((char *)modifiers_start) - 1; 4550 if (n & 1) 4551 modifiers |= MOD_MASK_SHIFT; 4552 if (n & 2) 4553 modifiers |= MOD_MASK_ALT; 4554 if (n & 4) 4555 modifiers |= MOD_MASK_CTRL; 4556 if (n & 8) 4557 modifiers |= MOD_MASK_META; 4558 4559 slen = j; 4560 } 4561 key_name[0] = termcodes[idx].name[0]; 4562 key_name[1] = termcodes[idx].name[1]; 4563 break; 4564 } 4565 } 4566 } 4567 } 4568 4569 #ifdef FEAT_TERMRESPONSE 4570 if (key_name[0] == NUL 4571 /* Mouse codes of DEC and pterm start with <ESC>[. When 4572 * detecting the start of these mouse codes they might as well be 4573 * another key code or terminal response. */ 4574 # ifdef FEAT_MOUSE_DEC 4575 || key_name[0] == KS_DEC_MOUSE 4576 # endif 4577 # ifdef FEAT_MOUSE_PTERM 4578 || key_name[0] == KS_PTERM_MOUSE 4579 # endif 4580 ) 4581 { 4582 /* Check for some responses from the terminal starting with 4583 * "<Esc>[" or CSI: 4584 * 4585 * - Xterm version string: <Esc>[>{x};{vers};{y}c 4586 * Libvterm returns {x} == 0, {vers} == 100, {y} == 0. 4587 * Also eat other possible responses to t_RV, rxvt returns 4588 * "<Esc>[?1;2c". Also accept CSI instead of <Esc>[. 4589 * mrxvt has been reported to have "+" in the version. Assume 4590 * the escape sequence ends with a letter or one of "{|}~". 4591 * 4592 * - Cursor position report: <Esc>[{row};{col}R 4593 * The final byte must be 'R'. It is used for checking the 4594 * ambiguous-width character state. 4595 * 4596 * - window position reply: <Esc>[3;{x};{y}t 4597 */ 4598 char_u *argp = tp[0] == ESC ? tp + 2 : tp + 1; 4599 4600 if ((*T_CRV != NUL || *T_U7 != NUL || did_request_winpos) 4601 && ((tp[0] == ESC && len >= 3 && tp[1] == '[') 4602 || (tp[0] == CSI && len >= 2)) 4603 && (VIM_ISDIGIT(*argp) || *argp == '>' || *argp == '?')) 4604 { 4605 int col = 0; 4606 int semicols = 0; 4607 #ifdef FEAT_MBYTE 4608 int row_char = NUL; 4609 #endif 4610 4611 extra = 0; 4612 for (i = 2 + (tp[0] != CSI); i < len 4613 && !(tp[i] >= '{' && tp[i] <= '~') 4614 && !ASCII_ISALPHA(tp[i]); ++i) 4615 if (tp[i] == ';' && ++semicols == 1) 4616 { 4617 extra = i + 1; 4618 #ifdef FEAT_MBYTE 4619 row_char = tp[i - 1]; 4620 #endif 4621 } 4622 if (i == len) 4623 { 4624 LOG_TR(("Not enough characters for CRV")); 4625 return -1; 4626 } 4627 if (extra > 0) 4628 col = atoi((char *)tp + extra); 4629 4630 #ifdef FEAT_MBYTE 4631 /* Eat it when it has 2 arguments and ends in 'R'. Also when 4632 * u7_status is not "sent", it may be from a previous Vim that 4633 * just exited. But not for <S-F3>, it sends something 4634 * similar, check for row and column to make sense. */ 4635 if (semicols == 1 && tp[i] == 'R') 4636 { 4637 if (row_char == '2' && col >= 2) 4638 { 4639 char *aw = NULL; 4640 4641 LOG_TR(("Received U7 status: %s", tp)); 4642 u7_status = STATUS_GOT; 4643 did_cursorhold = TRUE; 4644 if (col == 2) 4645 aw = "single"; 4646 else if (col == 3) 4647 aw = "double"; 4648 if (aw != NULL && STRCMP(aw, p_ambw) != 0) 4649 { 4650 /* Setting the option causes a screen redraw. Do 4651 * that right away if possible, keeping any 4652 * messages. */ 4653 set_option_value((char_u *)"ambw", 0L, 4654 (char_u *)aw, 0); 4655 # ifdef DEBUG_TERMRESPONSE 4656 { 4657 int r = redraw_asap(CLEAR); 4658 4659 log_tr("set 'ambiwidth', redraw_asap(): %d", r); 4660 } 4661 # else 4662 redraw_asap(CLEAR); 4663 # endif 4664 } 4665 } 4666 key_name[0] = (int)KS_EXTRA; 4667 key_name[1] = (int)KE_IGNORE; 4668 slen = i + 1; 4669 # ifdef FEAT_EVAL 4670 set_vim_var_string(VV_TERMU7RESP, tp, slen); 4671 # endif 4672 } 4673 else 4674 #endif 4675 /* eat it when at least one digit and ending in 'c' */ 4676 if (*T_CRV != NUL && i > 2 + (tp[0] != CSI) && tp[i] == 'c') 4677 { 4678 int version = col; 4679 4680 LOG_TR(("Received CRV response: %s", tp)); 4681 crv_status = STATUS_GOT; 4682 did_cursorhold = TRUE; 4683 4684 /* If this code starts with CSI, you can bet that the 4685 * terminal uses 8-bit codes. */ 4686 if (tp[0] == CSI) 4687 switch_to_8bit(); 4688 4689 /* rxvt sends its version number: "20703" is 2.7.3. 4690 * Screen sends 40500. 4691 * Ignore it for when the user has set 'term' to xterm, 4692 * even though it's an rxvt. */ 4693 if (version > 20000) 4694 version = 0; 4695 4696 if (tp[1 + (tp[0] != CSI)] == '>' && semicols == 2) 4697 { 4698 int need_flush = FALSE; 4699 # ifdef FEAT_MOUSE_SGR 4700 int is_iterm2 = FALSE; 4701 int is_mintty = FALSE; 4702 4703 // mintty 2.9.5 sends 77;20905;0c. 4704 // (77 is ASCII 'M' for mintty.) 4705 if (STRNCMP(tp + extra - 3, "77;", 3) == 0) 4706 is_mintty = TRUE; 4707 # endif 4708 4709 /* if xterm version >= 141 try to get termcap codes */ 4710 if (version >= 141) 4711 { 4712 LOG_TR(("Enable checking for XT codes")); 4713 check_for_codes = TRUE; 4714 need_gather = TRUE; 4715 req_codes_from_term(); 4716 } 4717 4718 /* libvterm sends 0;100;0 */ 4719 if (version == 100 4720 && STRNCMP(tp + extra - 2, "0;100;0c", 8) == 0) 4721 { 4722 /* If run from Vim $COLORS is set to the number of 4723 * colors the terminal supports. Otherwise assume 4724 * 256, libvterm supports even more. */ 4725 if (mch_getenv((char_u *)"COLORS") == NULL) 4726 may_adjust_color_count(256); 4727 # ifdef FEAT_MOUSE_SGR 4728 /* Libvterm can handle SGR mouse reporting. */ 4729 if (!option_was_set((char_u *)"ttym")) 4730 set_option_value((char_u *)"ttym", 0L, 4731 (char_u *)"sgr", 0); 4732 # endif 4733 } 4734 4735 if (version == 95) 4736 { 4737 // Mac Terminal.app sends 1;95;0 4738 if (STRNCMP(tp + extra - 2, "1;95;0c", 7) == 0) 4739 { 4740 is_not_xterm = TRUE; 4741 is_mac_terminal = TRUE; 4742 } 4743 # ifdef FEAT_MOUSE_SGR 4744 // iTerm2 sends 0;95;0 4745 if (STRNCMP(tp + extra - 2, "0;95;0c", 7) == 0) 4746 is_iterm2 = TRUE; 4747 else 4748 # endif 4749 // old iTerm2 sends 0;95; 4750 if (STRNCMP(tp + extra - 2, "0;95;c", 6) == 0) 4751 is_not_xterm = TRUE; 4752 } 4753 4754 /* Only set 'ttymouse' automatically if it was not set 4755 * by the user already. */ 4756 if (!option_was_set((char_u *)"ttym")) 4757 { 4758 # ifdef FEAT_MOUSE_SGR 4759 /* Xterm version 277 supports SGR. Also support 4760 * Terminal.app, iTerm2 and mintty. */ 4761 if (version >= 277 || is_iterm2 || is_mac_terminal 4762 || is_mintty) 4763 set_option_value((char_u *)"ttym", 0L, 4764 (char_u *)"sgr", 0); 4765 else 4766 # endif 4767 /* if xterm version >= 95 use mouse dragging */ 4768 if (version >= 95) 4769 set_option_value((char_u *)"ttym", 0L, 4770 (char_u *)"xterm2", 0); 4771 } 4772 4773 /* Detect terminals that set $TERM to something like 4774 * "xterm-256colors" but are not fully xterm 4775 * compatible. */ 4776 4777 /* Gnome terminal sends 1;3801;0, 1;4402;0 or 1;2501;0. 4778 * xfce4-terminal sends 1;2802;0. 4779 * screen sends 83;40500;0 4780 * Assuming any version number over 2500 is not an 4781 * xterm (without the limit for rxvt and screen). */ 4782 if (col >= 2500) 4783 is_not_xterm = TRUE; 4784 4785 /* PuTTY sends 0;136;0 4786 * vandyke SecureCRT sends 1;136;0 */ 4787 if (version == 136 4788 && STRNCMP(tp + extra - 1, ";136;0c", 7) == 0) 4789 is_not_xterm = TRUE; 4790 4791 /* Konsole sends 0;115;0 */ 4792 if (version == 115 4793 && STRNCMP(tp + extra - 2, "0;115;0c", 8) == 0) 4794 is_not_xterm = TRUE; 4795 4796 // Xterm first responded to this request at patch level 4797 // 95, so assume anything below 95 is not xterm. 4798 if (version < 95) 4799 is_not_xterm = TRUE; 4800 4801 /* Only request the cursor style if t_SH and t_RS are 4802 * set. Only supported properly by xterm since version 4803 * 279 (otherwise it returns 0x18). 4804 * Not for Terminal.app, it can't handle t_RS, it 4805 * echoes the characters to the screen. */ 4806 if (rcs_status == STATUS_GET 4807 && version >= 279 4808 && !is_not_xterm 4809 && *T_CSH != NUL 4810 && *T_CRS != NUL) 4811 { 4812 LOG_TR(("Sending cursor style request")); 4813 out_str(T_CRS); 4814 rcs_status = STATUS_SENT; 4815 need_flush = TRUE; 4816 } 4817 4818 /* Only request the cursor blink mode if t_RC set. Not 4819 * for Gnome terminal, it can't handle t_RC, it 4820 * echoes the characters to the screen. */ 4821 if (rbm_status == STATUS_GET 4822 && !is_not_xterm 4823 && *T_CRC != NUL) 4824 { 4825 LOG_TR(("Sending cursor blink mode request")); 4826 out_str(T_CRC); 4827 rbm_status = STATUS_SENT; 4828 need_flush = TRUE; 4829 } 4830 4831 if (need_flush) 4832 out_flush(); 4833 } 4834 slen = i + 1; 4835 # ifdef FEAT_EVAL 4836 set_vim_var_string(VV_TERMRESPONSE, tp, slen); 4837 # endif 4838 apply_autocmds(EVENT_TERMRESPONSE, 4839 NULL, NULL, FALSE, curbuf); 4840 key_name[0] = (int)KS_EXTRA; 4841 key_name[1] = (int)KE_IGNORE; 4842 } 4843 4844 /* Check blinking cursor from xterm: 4845 * {lead}?12;1$y set 4846 * {lead}?12;2$y not set 4847 * 4848 * {lead} can be <Esc>[ or CSI 4849 */ 4850 else if (rbm_status == STATUS_SENT 4851 && tp[(j = 1 + (tp[0] == ESC))] == '?' 4852 && i == j + 6 4853 && tp[j + 1] == '1' 4854 && tp[j + 2] == '2' 4855 && tp[j + 3] == ';' 4856 && tp[i - 1] == '$' 4857 && tp[i] == 'y') 4858 { 4859 initial_cursor_blink = (tp[j + 4] == '1'); 4860 rbm_status = STATUS_GOT; 4861 LOG_TR(("Received cursor blinking mode response: %s", tp)); 4862 key_name[0] = (int)KS_EXTRA; 4863 key_name[1] = (int)KE_IGNORE; 4864 slen = i + 1; 4865 # ifdef FEAT_EVAL 4866 set_vim_var_string(VV_TERMBLINKRESP, tp, slen); 4867 # endif 4868 } 4869 4870 /* 4871 * Check for a window position response from the terminal: 4872 * {lead}3;{x}:{y}t 4873 */ 4874 else if (did_request_winpos 4875 && ((len >= 4 && tp[0] == ESC && tp[1] == '[') 4876 || (len >= 3 && tp[0] == CSI)) 4877 && tp[(j = 1 + (tp[0] == ESC))] == '3' 4878 && tp[j + 1] == ';') 4879 { 4880 j += 2; 4881 for (i = j; i < len && vim_isdigit(tp[i]); ++i) 4882 ; 4883 if (i < len && tp[i] == ';') 4884 { 4885 winpos_x = atoi((char *)tp + j); 4886 j = i + 1; 4887 for (i = j; i < len && vim_isdigit(tp[i]); ++i) 4888 ; 4889 if (i < len && tp[i] == 't') 4890 { 4891 winpos_y = atoi((char *)tp + j); 4892 /* got finished code: consume it */ 4893 key_name[0] = (int)KS_EXTRA; 4894 key_name[1] = (int)KE_IGNORE; 4895 slen = i + 1; 4896 4897 if (--did_request_winpos <= 0) 4898 winpos_status = STATUS_GOT; 4899 } 4900 } 4901 if (i == len) 4902 { 4903 LOG_TR(("not enough characters for winpos")); 4904 return -1; 4905 } 4906 } 4907 } 4908 4909 /* Check for fore/background color response from the terminal: 4910 * 4911 * {lead}{code};rgb:{rrrr}/{gggg}/{bbbb}{tail} 4912 * 4913 * {code} is 10 for foreground, 11 for background 4914 * {lead} can be <Esc>] or OSC 4915 * {tail} can be '\007', <Esc>\ or STERM. 4916 * 4917 * Consume any code that starts with "{lead}11;", it's also 4918 * possible that "rgba" is following. 4919 */ 4920 else if ((*T_RBG != NUL || *T_RFG != NUL) 4921 && ((tp[0] == ESC && len >= 2 && tp[1] == ']') 4922 || tp[0] == OSC)) 4923 { 4924 j = 1 + (tp[0] == ESC); 4925 if (len >= j + 3 && (argp[0] != '1' 4926 || (argp[1] != '1' && argp[1] != '0') 4927 || argp[2] != ';')) 4928 i = 0; /* no match */ 4929 else 4930 for (i = j; i < len; ++i) 4931 if (tp[i] == '\007' || (tp[0] == OSC ? tp[i] == STERM 4932 : (tp[i] == ESC && i + 1 < len && tp[i + 1] == '\\'))) 4933 { 4934 int is_bg = argp[1] == '1'; 4935 4936 if (i - j >= 21 && STRNCMP(tp + j + 3, "rgb:", 4) == 0 4937 && tp[j + 11] == '/' && tp[j + 16] == '/') 4938 { 4939 #ifdef FEAT_TERMINAL 4940 int rval = hexhex2nr(tp + j + 7); 4941 int gval = hexhex2nr(tp + j + 12); 4942 int bval = hexhex2nr(tp + j + 17); 4943 #endif 4944 if (is_bg) 4945 { 4946 char *newval = (3 * '6' < tp[j+7] + tp[j+12] 4947 + tp[j+17]) ? "light" : "dark"; 4948 4949 LOG_TR(("Received RBG response: %s", tp)); 4950 rbg_status = STATUS_GOT; 4951 #ifdef FEAT_TERMINAL 4952 bg_r = rval; 4953 bg_g = gval; 4954 bg_b = bval; 4955 #endif 4956 if (!option_was_set((char_u *)"bg") 4957 && STRCMP(p_bg, newval) != 0) 4958 { 4959 /* value differs, apply it */ 4960 set_option_value((char_u *)"bg", 0L, 4961 (char_u *)newval, 0); 4962 reset_option_was_set((char_u *)"bg"); 4963 redraw_asap(CLEAR); 4964 } 4965 } 4966 #ifdef FEAT_TERMINAL 4967 else 4968 { 4969 LOG_TR(("Received RFG response: %s", tp)); 4970 rfg_status = STATUS_GOT; 4971 fg_r = rval; 4972 fg_g = gval; 4973 fg_b = bval; 4974 } 4975 #endif 4976 } 4977 4978 /* got finished code: consume it */ 4979 key_name[0] = (int)KS_EXTRA; 4980 key_name[1] = (int)KE_IGNORE; 4981 slen = i + 1 + (tp[i] == ESC); 4982 # ifdef FEAT_EVAL 4983 set_vim_var_string(is_bg ? VV_TERMRBGRESP 4984 : VV_TERMRFGRESP, tp, slen); 4985 # endif 4986 break; 4987 } 4988 if (i == len) 4989 { 4990 LOG_TR(("not enough characters for RB")); 4991 return -1; 4992 } 4993 } 4994 4995 /* Check for key code response from xterm: 4996 * {lead}{flag}+r<hex bytes><{tail} 4997 * 4998 * {lead} can be <Esc>P or DCS 4999 * {flag} can be '0' or '1' 5000 * {tail} can be Esc>\ or STERM 5001 * 5002 * Check for cursor shape response from xterm: 5003 * {lead}1$r<digit> q{tail} 5004 * 5005 * {lead} can be <Esc>P or DCS 5006 * {tail} can be Esc>\ or STERM 5007 * 5008 * Consume any code that starts with "{lead}.+r" or "{lead}.$r". 5009 */ 5010 else if ((check_for_codes || rcs_status == STATUS_SENT) 5011 && ((tp[0] == ESC && len >= 2 && tp[1] == 'P') 5012 || tp[0] == DCS)) 5013 { 5014 j = 1 + (tp[0] == ESC); 5015 if (len < j + 3) 5016 i = len; /* need more chars */ 5017 else if ((argp[1] != '+' && argp[1] != '$') || argp[2] != 'r') 5018 i = 0; /* no match */ 5019 else if (argp[1] == '+') 5020 /* key code response */ 5021 for (i = j; i < len; ++i) 5022 { 5023 if ((tp[i] == ESC && i + 1 < len && tp[i + 1] == '\\') 5024 || tp[i] == STERM) 5025 { 5026 if (i - j >= 3) 5027 got_code_from_term(tp + j, i); 5028 key_name[0] = (int)KS_EXTRA; 5029 key_name[1] = (int)KE_IGNORE; 5030 slen = i + 1 + (tp[i] == ESC); 5031 break; 5032 } 5033 } 5034 else 5035 { 5036 /* Probably the cursor shape response. Make sure that "i" 5037 * is equal to "len" when there are not sufficient 5038 * characters. */ 5039 for (i = j + 3; i < len; ++i) 5040 { 5041 if (i - j == 3 && !isdigit(tp[i])) 5042 break; 5043 if (i - j == 4 && tp[i] != ' ') 5044 break; 5045 if (i - j == 5 && tp[i] != 'q') 5046 break; 5047 if (i - j == 6 && tp[i] != ESC && tp[i] != STERM) 5048 break; 5049 if ((i - j == 6 && tp[i] == STERM) 5050 || (i - j == 7 && tp[i] == '\\')) 5051 { 5052 int number = argp[3] - '0'; 5053 5054 /* 0, 1 = block blink, 2 = block 5055 * 3 = underline blink, 4 = underline 5056 * 5 = vertical bar blink, 6 = vertical bar */ 5057 number = number == 0 ? 1 : number; 5058 initial_cursor_shape = (number + 1) / 2; 5059 /* The blink flag is actually inverted, compared to 5060 * the value set with T_SH. */ 5061 initial_cursor_shape_blink = 5062 (number & 1) ? FALSE : TRUE; 5063 rcs_status = STATUS_GOT; 5064 LOG_TR(("Received cursor shape response: %s", tp)); 5065 5066 key_name[0] = (int)KS_EXTRA; 5067 key_name[1] = (int)KE_IGNORE; 5068 slen = i + 1; 5069 # ifdef FEAT_EVAL 5070 set_vim_var_string(VV_TERMSTYLERESP, tp, slen); 5071 # endif 5072 break; 5073 } 5074 } 5075 } 5076 5077 if (i == len) 5078 { 5079 /* These codes arrive many together, each code can be 5080 * truncated at any point. */ 5081 LOG_TR(("not enough characters for XT")); 5082 return -1; 5083 } 5084 } 5085 } 5086 #endif 5087 5088 if (key_name[0] == NUL) 5089 continue; /* No match at this position, try next one */ 5090 5091 /* We only get here when we have a complete termcode match */ 5092 5093 #ifdef FEAT_MOUSE 5094 # ifdef FEAT_GUI 5095 /* 5096 * Only in the GUI: Fetch the pointer coordinates of the scroll event 5097 * so that we know which window to scroll later. 5098 */ 5099 if (gui.in_use 5100 && key_name[0] == (int)KS_EXTRA 5101 && (key_name[1] == (int)KE_X1MOUSE 5102 || key_name[1] == (int)KE_X2MOUSE 5103 || key_name[1] == (int)KE_MOUSELEFT 5104 || key_name[1] == (int)KE_MOUSERIGHT 5105 || key_name[1] == (int)KE_MOUSEDOWN 5106 || key_name[1] == (int)KE_MOUSEUP)) 5107 { 5108 num_bytes = get_bytes_from_buf(tp + slen, bytes, 4); 5109 if (num_bytes == -1) /* not enough coordinates */ 5110 return -1; 5111 mouse_col = 128 * (bytes[0] - ' ' - 1) + bytes[1] - ' ' - 1; 5112 mouse_row = 128 * (bytes[2] - ' ' - 1) + bytes[3] - ' ' - 1; 5113 slen += num_bytes; 5114 } 5115 else 5116 # endif 5117 /* 5118 * If it is a mouse click, get the coordinates. 5119 */ 5120 if (key_name[0] == KS_MOUSE 5121 # ifdef FEAT_MOUSE_JSB 5122 || key_name[0] == KS_JSBTERM_MOUSE 5123 # endif 5124 # ifdef FEAT_MOUSE_NET 5125 || key_name[0] == KS_NETTERM_MOUSE 5126 # endif 5127 # ifdef FEAT_MOUSE_DEC 5128 || key_name[0] == KS_DEC_MOUSE 5129 # endif 5130 # ifdef FEAT_MOUSE_PTERM 5131 || key_name[0] == KS_PTERM_MOUSE 5132 # endif 5133 # ifdef FEAT_MOUSE_URXVT 5134 || key_name[0] == KS_URXVT_MOUSE 5135 # endif 5136 # ifdef FEAT_MOUSE_SGR 5137 || key_name[0] == KS_SGR_MOUSE 5138 || key_name[0] == KS_SGR_MOUSE_RELEASE 5139 # endif 5140 ) 5141 { 5142 is_click = is_drag = FALSE; 5143 5144 # if !defined(UNIX) || defined(FEAT_MOUSE_XTERM) || defined(FEAT_GUI) \ 5145 || defined(FEAT_MOUSE_GPM) || defined(FEAT_SYSMOUSE) 5146 if (key_name[0] == (int)KS_MOUSE) 5147 { 5148 /* 5149 * For xterm we get "<t_mouse>scr", where 5150 * s == encoded button state: 5151 * 0x20 = left button down 5152 * 0x21 = middle button down 5153 * 0x22 = right button down 5154 * 0x23 = any button release 5155 * 0x60 = button 4 down (scroll wheel down) 5156 * 0x61 = button 5 down (scroll wheel up) 5157 * add 0x04 for SHIFT 5158 * add 0x08 for ALT 5159 * add 0x10 for CTRL 5160 * add 0x20 for mouse drag (0x40 is drag with left button) 5161 * add 0x40 for mouse move (0x80 is move, 0x81 too) 5162 * 0x43 (drag + release) is also move 5163 * c == column + ' ' + 1 == column + 33 5164 * r == row + ' ' + 1 == row + 33 5165 * 5166 * The coordinates are passed on through global variables. 5167 * Ugly, but this avoids trouble with mouse clicks at an 5168 * unexpected moment and allows for mapping them. 5169 */ 5170 for (;;) 5171 { 5172 #ifdef FEAT_GUI 5173 if (gui.in_use) 5174 { 5175 /* GUI uses more bits for columns > 223 */ 5176 num_bytes = get_bytes_from_buf(tp + slen, bytes, 5); 5177 if (num_bytes == -1) /* not enough coordinates */ 5178 return -1; 5179 mouse_code = bytes[0]; 5180 mouse_col = 128 * (bytes[1] - ' ' - 1) 5181 + bytes[2] - ' ' - 1; 5182 mouse_row = 128 * (bytes[3] - ' ' - 1) 5183 + bytes[4] - ' ' - 1; 5184 } 5185 else 5186 #endif 5187 { 5188 num_bytes = get_bytes_from_buf(tp + slen, bytes, 3); 5189 if (num_bytes == -1) /* not enough coordinates */ 5190 return -1; 5191 mouse_code = bytes[0]; 5192 mouse_col = bytes[1] - ' ' - 1; 5193 mouse_row = bytes[2] - ' ' - 1; 5194 } 5195 slen += num_bytes; 5196 5197 /* If the following bytes is also a mouse code and it has 5198 * the same code, dump this one and get the next. This 5199 * makes dragging a whole lot faster. */ 5200 #ifdef FEAT_GUI 5201 if (gui.in_use) 5202 j = 3; 5203 else 5204 #endif 5205 j = termcodes[idx].len; 5206 if (STRNCMP(tp, tp + slen, (size_t)j) == 0 5207 && tp[slen + j] == mouse_code 5208 && tp[slen + j + 1] != NUL 5209 && tp[slen + j + 2] != NUL 5210 #ifdef FEAT_GUI 5211 && (!gui.in_use 5212 || (tp[slen + j + 3] != NUL 5213 && tp[slen + j + 4] != NUL)) 5214 #endif 5215 ) 5216 slen += j; 5217 else 5218 break; 5219 } 5220 } 5221 5222 # if defined(FEAT_MOUSE_URXVT) || defined(FEAT_MOUSE_SGR) 5223 if (key_name[0] == KS_URXVT_MOUSE 5224 || key_name[0] == KS_SGR_MOUSE 5225 || key_name[0] == KS_SGR_MOUSE_RELEASE) 5226 { 5227 /* URXVT 1015 mouse reporting mode: 5228 * Almost identical to xterm mouse mode, except the values 5229 * are decimal instead of bytes. 5230 * 5231 * \033[%d;%d;%dM 5232 * ^-- row 5233 * ^----- column 5234 * ^-------- code 5235 * 5236 * SGR 1006 mouse reporting mode: 5237 * Almost identical to xterm mouse mode, except the values 5238 * are decimal instead of bytes. 5239 * 5240 * \033[<%d;%d;%dM 5241 * ^-- row 5242 * ^----- column 5243 * ^-------- code 5244 * 5245 * \033[<%d;%d;%dm : mouse release event 5246 * ^-- row 5247 * ^----- column 5248 * ^-------- code 5249 */ 5250 p = modifiers_start; 5251 if (p == NULL) 5252 return -1; 5253 5254 mouse_code = getdigits(&p); 5255 if (*p++ != ';') 5256 return -1; 5257 5258 /* when mouse reporting is SGR, add 32 to mouse code */ 5259 if (key_name[0] == KS_SGR_MOUSE 5260 || key_name[0] == KS_SGR_MOUSE_RELEASE) 5261 mouse_code += 32; 5262 5263 if (key_name[0] == KS_SGR_MOUSE_RELEASE) 5264 mouse_code |= MOUSE_RELEASE; 5265 5266 mouse_col = getdigits(&p) - 1; 5267 if (*p++ != ';') 5268 return -1; 5269 5270 mouse_row = getdigits(&p) - 1; 5271 5272 /* The modifiers were the mouse coordinates, not the 5273 * modifier keys (alt/shift/ctrl/meta) state. */ 5274 modifiers = 0; 5275 } 5276 # endif 5277 5278 if (key_name[0] == (int)KS_MOUSE 5279 #ifdef FEAT_MOUSE_URXVT 5280 || key_name[0] == (int)KS_URXVT_MOUSE 5281 #endif 5282 #ifdef FEAT_MOUSE_SGR 5283 || key_name[0] == KS_SGR_MOUSE 5284 || key_name[0] == KS_SGR_MOUSE_RELEASE 5285 #endif 5286 ) 5287 { 5288 # if !defined(MSWIN) 5289 /* 5290 * Handle mouse events. 5291 * Recognize the xterm mouse wheel, but not in the GUI, the 5292 * Linux console with GPM and the MS-DOS or Win32 console 5293 * (multi-clicks use >= 0x60). 5294 */ 5295 if (mouse_code >= MOUSEWHEEL_LOW 5296 # ifdef FEAT_GUI 5297 && !gui.in_use 5298 # endif 5299 # ifdef FEAT_MOUSE_GPM 5300 && gpm_flag == 0 5301 # endif 5302 ) 5303 { 5304 # if defined(UNIX) && defined(FEAT_MOUSE_TTY) 5305 if (use_xterm_mouse() > 1 && mouse_code >= 0x80) 5306 /* mouse-move event, using MOUSE_DRAG works */ 5307 mouse_code = MOUSE_DRAG; 5308 else 5309 # endif 5310 /* Keep the mouse_code before it's changed, so that we 5311 * remember that it was a mouse wheel click. */ 5312 wheel_code = mouse_code; 5313 } 5314 # ifdef FEAT_MOUSE_XTERM 5315 else if (held_button == MOUSE_RELEASE 5316 # ifdef FEAT_GUI 5317 && !gui.in_use 5318 # endif 5319 && (mouse_code == 0x23 || mouse_code == 0x24 5320 || mouse_code == 0x40 || mouse_code == 0x41)) 5321 { 5322 /* Apparently 0x23 and 0x24 are used by rxvt scroll wheel. 5323 * And 0x40 and 0x41 are used by some xterm emulator. */ 5324 wheel_code = mouse_code - (mouse_code >= 0x40 ? 0x40 : 0x23) 5325 + MOUSEWHEEL_LOW; 5326 } 5327 # endif 5328 5329 # if defined(UNIX) && defined(FEAT_MOUSE_TTY) 5330 else if (use_xterm_mouse() > 1) 5331 { 5332 if (mouse_code & MOUSE_DRAG_XTERM) 5333 mouse_code |= MOUSE_DRAG; 5334 } 5335 # endif 5336 # ifdef FEAT_XCLIPBOARD 5337 else if (!(mouse_code & MOUSE_DRAG & ~MOUSE_CLICK_MASK)) 5338 { 5339 if ((mouse_code & MOUSE_RELEASE) == MOUSE_RELEASE) 5340 stop_xterm_trace(); 5341 else 5342 start_xterm_trace(mouse_code); 5343 } 5344 # endif 5345 # endif 5346 } 5347 # endif /* !UNIX || FEAT_MOUSE_XTERM */ 5348 # ifdef FEAT_MOUSE_NET 5349 if (key_name[0] == (int)KS_NETTERM_MOUSE) 5350 { 5351 int mc, mr; 5352 5353 /* expect a rather limited sequence like: balancing { 5354 * \033}6,45\r 5355 * '6' is the row, 45 is the column 5356 */ 5357 p = tp + slen; 5358 mr = getdigits(&p); 5359 if (*p++ != ',') 5360 return -1; 5361 mc = getdigits(&p); 5362 if (*p++ != '\r') 5363 return -1; 5364 5365 mouse_col = mc - 1; 5366 mouse_row = mr - 1; 5367 mouse_code = MOUSE_LEFT; 5368 slen += (int)(p - (tp + slen)); 5369 } 5370 # endif /* FEAT_MOUSE_NET */ 5371 # ifdef FEAT_MOUSE_JSB 5372 if (key_name[0] == (int)KS_JSBTERM_MOUSE) 5373 { 5374 int mult, val, iter, button, status; 5375 5376 /* JSBTERM Input Model 5377 * \033[0~zw uniq escape sequence 5378 * (L-x) Left button pressed - not pressed x not reporting 5379 * (M-x) Middle button pressed - not pressed x not reporting 5380 * (R-x) Right button pressed - not pressed x not reporting 5381 * (SDmdu) Single , Double click, m mouse move d button down 5382 * u button up 5383 * ### X cursor position padded to 3 digits 5384 * ### Y cursor position padded to 3 digits 5385 * (s-x) SHIFT key pressed - not pressed x not reporting 5386 * (c-x) CTRL key pressed - not pressed x not reporting 5387 * \033\\ terminating sequence 5388 */ 5389 5390 p = tp + slen; 5391 button = mouse_code = 0; 5392 switch (*p++) 5393 { 5394 case 'L': button = 1; break; 5395 case '-': break; 5396 case 'x': break; /* ignore sequence */ 5397 default: return -1; /* Unknown Result */ 5398 } 5399 switch (*p++) 5400 { 5401 case 'M': button |= 2; break; 5402 case '-': break; 5403 case 'x': break; /* ignore sequence */ 5404 default: return -1; /* Unknown Result */ 5405 } 5406 switch (*p++) 5407 { 5408 case 'R': button |= 4; break; 5409 case '-': break; 5410 case 'x': break; /* ignore sequence */ 5411 default: return -1; /* Unknown Result */ 5412 } 5413 status = *p++; 5414 for (val = 0, mult = 100, iter = 0; iter < 3; iter++, 5415 mult /= 10, p++) 5416 if (*p >= '0' && *p <= '9') 5417 val += (*p - '0') * mult; 5418 else 5419 return -1; 5420 mouse_col = val; 5421 for (val = 0, mult = 100, iter = 0; iter < 3; iter++, 5422 mult /= 10, p++) 5423 if (*p >= '0' && *p <= '9') 5424 val += (*p - '0') * mult; 5425 else 5426 return -1; 5427 mouse_row = val; 5428 switch (*p++) 5429 { 5430 case 's': button |= 8; break; /* SHIFT key Pressed */ 5431 case '-': break; /* Not Pressed */ 5432 case 'x': break; /* Not Reporting */ 5433 default: return -1; /* Unknown Result */ 5434 } 5435 switch (*p++) 5436 { 5437 case 'c': button |= 16; break; /* CTRL key Pressed */ 5438 case '-': break; /* Not Pressed */ 5439 case 'x': break; /* Not Reporting */ 5440 default: return -1; /* Unknown Result */ 5441 } 5442 if (*p++ != '\033') 5443 return -1; 5444 if (*p++ != '\\') 5445 return -1; 5446 switch (status) 5447 { 5448 case 'D': /* Double Click */ 5449 case 'S': /* Single Click */ 5450 if (button & 1) mouse_code |= MOUSE_LEFT; 5451 if (button & 2) mouse_code |= MOUSE_MIDDLE; 5452 if (button & 4) mouse_code |= MOUSE_RIGHT; 5453 if (button & 8) mouse_code |= MOUSE_SHIFT; 5454 if (button & 16) mouse_code |= MOUSE_CTRL; 5455 break; 5456 case 'm': /* Mouse move */ 5457 if (button & 1) mouse_code |= MOUSE_LEFT; 5458 if (button & 2) mouse_code |= MOUSE_MIDDLE; 5459 if (button & 4) mouse_code |= MOUSE_RIGHT; 5460 if (button & 8) mouse_code |= MOUSE_SHIFT; 5461 if (button & 16) mouse_code |= MOUSE_CTRL; 5462 if ((button & 7) != 0) 5463 { 5464 held_button = mouse_code; 5465 mouse_code |= MOUSE_DRAG; 5466 } 5467 is_drag = TRUE; 5468 showmode(); 5469 break; 5470 case 'd': /* Button Down */ 5471 if (button & 1) mouse_code |= MOUSE_LEFT; 5472 if (button & 2) mouse_code |= MOUSE_MIDDLE; 5473 if (button & 4) mouse_code |= MOUSE_RIGHT; 5474 if (button & 8) mouse_code |= MOUSE_SHIFT; 5475 if (button & 16) mouse_code |= MOUSE_CTRL; 5476 break; 5477 case 'u': /* Button Up */ 5478 if (button & 1) 5479 mouse_code |= MOUSE_LEFT | MOUSE_RELEASE; 5480 if (button & 2) 5481 mouse_code |= MOUSE_MIDDLE | MOUSE_RELEASE; 5482 if (button & 4) 5483 mouse_code |= MOUSE_RIGHT | MOUSE_RELEASE; 5484 if (button & 8) 5485 mouse_code |= MOUSE_SHIFT; 5486 if (button & 16) 5487 mouse_code |= MOUSE_CTRL; 5488 break; 5489 default: return -1; /* Unknown Result */ 5490 } 5491 5492 slen += (p - (tp + slen)); 5493 } 5494 # endif /* FEAT_MOUSE_JSB */ 5495 # ifdef FEAT_MOUSE_DEC 5496 if (key_name[0] == (int)KS_DEC_MOUSE) 5497 { 5498 /* The DEC Locator Input Model 5499 * Netterm delivers the code sequence: 5500 * \033[2;4;24;80&w (left button down) 5501 * \033[3;0;24;80&w (left button up) 5502 * \033[6;1;24;80&w (right button down) 5503 * \033[7;0;24;80&w (right button up) 5504 * CSI Pe ; Pb ; Pr ; Pc ; Pp & w 5505 * Pe is the event code 5506 * Pb is the button code 5507 * Pr is the row coordinate 5508 * Pc is the column coordinate 5509 * Pp is the third coordinate (page number) 5510 * Pe, the event code indicates what event caused this report 5511 * The following event codes are defined: 5512 * 0 - request, the terminal received an explicit request 5513 * for a locator report, but the locator is unavailable 5514 * 1 - request, the terminal received an explicit request 5515 * for a locator report 5516 * 2 - left button down 5517 * 3 - left button up 5518 * 4 - middle button down 5519 * 5 - middle button up 5520 * 6 - right button down 5521 * 7 - right button up 5522 * 8 - fourth button down 5523 * 9 - fourth button up 5524 * 10 - locator outside filter rectangle 5525 * Pb, the button code, ASCII decimal 0-15 indicating which 5526 * buttons are down if any. The state of the four buttons 5527 * on the locator correspond to the low four bits of the 5528 * decimal value, 5529 * "1" means button depressed 5530 * 0 - no buttons down, 5531 * 1 - right, 5532 * 2 - middle, 5533 * 4 - left, 5534 * 8 - fourth 5535 * Pr is the row coordinate of the locator position in the page, 5536 * encoded as an ASCII decimal value. 5537 * If Pr is omitted, the locator position is undefined 5538 * (outside the terminal window for example). 5539 * Pc is the column coordinate of the locator position in the 5540 * page, encoded as an ASCII decimal value. 5541 * If Pc is omitted, the locator position is undefined 5542 * (outside the terminal window for example). 5543 * Pp is the page coordinate of the locator position 5544 * encoded as an ASCII decimal value. 5545 * The page coordinate may be omitted if the locator is on 5546 * page one (the default). We ignore it anyway. 5547 */ 5548 int Pe, Pb, Pr, Pc; 5549 5550 p = tp + slen; 5551 5552 /* get event status */ 5553 Pe = getdigits(&p); 5554 if (*p++ != ';') 5555 return -1; 5556 5557 /* get button status */ 5558 Pb = getdigits(&p); 5559 if (*p++ != ';') 5560 return -1; 5561 5562 /* get row status */ 5563 Pr = getdigits(&p); 5564 if (*p++ != ';') 5565 return -1; 5566 5567 /* get column status */ 5568 Pc = getdigits(&p); 5569 5570 /* the page parameter is optional */ 5571 if (*p == ';') 5572 { 5573 p++; 5574 (void)getdigits(&p); 5575 } 5576 if (*p++ != '&') 5577 return -1; 5578 if (*p++ != 'w') 5579 return -1; 5580 5581 mouse_code = 0; 5582 switch (Pe) 5583 { 5584 case 0: return -1; /* position request while unavailable */ 5585 case 1: /* a response to a locator position request includes 5586 the status of all buttons */ 5587 Pb &= 7; /* mask off and ignore fourth button */ 5588 if (Pb & 4) 5589 mouse_code = MOUSE_LEFT; 5590 if (Pb & 2) 5591 mouse_code = MOUSE_MIDDLE; 5592 if (Pb & 1) 5593 mouse_code = MOUSE_RIGHT; 5594 if (Pb) 5595 { 5596 held_button = mouse_code; 5597 mouse_code |= MOUSE_DRAG; 5598 WantQueryMouse = TRUE; 5599 } 5600 is_drag = TRUE; 5601 showmode(); 5602 break; 5603 case 2: mouse_code = MOUSE_LEFT; 5604 WantQueryMouse = TRUE; 5605 break; 5606 case 3: mouse_code = MOUSE_RELEASE | MOUSE_LEFT; 5607 break; 5608 case 4: mouse_code = MOUSE_MIDDLE; 5609 WantQueryMouse = TRUE; 5610 break; 5611 case 5: mouse_code = MOUSE_RELEASE | MOUSE_MIDDLE; 5612 break; 5613 case 6: mouse_code = MOUSE_RIGHT; 5614 WantQueryMouse = TRUE; 5615 break; 5616 case 7: mouse_code = MOUSE_RELEASE | MOUSE_RIGHT; 5617 break; 5618 case 8: return -1; /* fourth button down */ 5619 case 9: return -1; /* fourth button up */ 5620 case 10: return -1; /* mouse outside of filter rectangle */ 5621 default: return -1; /* should never occur */ 5622 } 5623 5624 mouse_col = Pc - 1; 5625 mouse_row = Pr - 1; 5626 5627 slen += (int)(p - (tp + slen)); 5628 } 5629 # endif /* FEAT_MOUSE_DEC */ 5630 # ifdef FEAT_MOUSE_PTERM 5631 if (key_name[0] == (int)KS_PTERM_MOUSE) 5632 { 5633 int button, num_clicks, action; 5634 5635 p = tp + slen; 5636 5637 action = getdigits(&p); 5638 if (*p++ != ';') 5639 return -1; 5640 5641 mouse_row = getdigits(&p); 5642 if (*p++ != ';') 5643 return -1; 5644 mouse_col = getdigits(&p); 5645 if (*p++ != ';') 5646 return -1; 5647 5648 button = getdigits(&p); 5649 mouse_code = 0; 5650 5651 switch (button) 5652 { 5653 case 4: mouse_code = MOUSE_LEFT; break; 5654 case 1: mouse_code = MOUSE_RIGHT; break; 5655 case 2: mouse_code = MOUSE_MIDDLE; break; 5656 default: return -1; 5657 } 5658 5659 switch (action) 5660 { 5661 case 31: /* Initial press */ 5662 if (*p++ != ';') 5663 return -1; 5664 5665 num_clicks = getdigits(&p); /* Not used */ 5666 break; 5667 5668 case 32: /* Release */ 5669 mouse_code |= MOUSE_RELEASE; 5670 break; 5671 5672 case 33: /* Drag */ 5673 held_button = mouse_code; 5674 mouse_code |= MOUSE_DRAG; 5675 break; 5676 5677 default: 5678 return -1; 5679 } 5680 5681 if (*p++ != 't') 5682 return -1; 5683 5684 slen += (p - (tp + slen)); 5685 } 5686 # endif /* FEAT_MOUSE_PTERM */ 5687 5688 /* Interpret the mouse code */ 5689 current_button = (mouse_code & MOUSE_CLICK_MASK); 5690 if (current_button == MOUSE_RELEASE 5691 # ifdef FEAT_MOUSE_XTERM 5692 && wheel_code == 0 5693 # endif 5694 ) 5695 { 5696 /* 5697 * If we get a mouse drag or release event when 5698 * there is no mouse button held down (held_button == 5699 * MOUSE_RELEASE), produce a K_IGNORE below. 5700 * (can happen when you hold down two buttons 5701 * and then let them go, or click in the menu bar, but not 5702 * on a menu, and drag into the text). 5703 */ 5704 if ((mouse_code & MOUSE_DRAG) == MOUSE_DRAG) 5705 is_drag = TRUE; 5706 current_button = held_button; 5707 } 5708 else if (wheel_code == 0) 5709 { 5710 # ifdef CHECK_DOUBLE_CLICK 5711 # ifdef FEAT_MOUSE_GPM 5712 # ifdef FEAT_GUI 5713 /* 5714 * Only for Unix, when GUI or gpm is not active, we handle 5715 * multi-clicks here. 5716 */ 5717 if (gpm_flag == 0 && !gui.in_use) 5718 # else 5719 if (gpm_flag == 0) 5720 # endif 5721 # else 5722 # ifdef FEAT_GUI 5723 if (!gui.in_use) 5724 # endif 5725 # endif 5726 { 5727 /* 5728 * Compute the time elapsed since the previous mouse click. 5729 */ 5730 gettimeofday(&mouse_time, NULL); 5731 if (orig_mouse_time.tv_sec == 0) 5732 { 5733 /* 5734 * Avoid computing the difference between mouse_time 5735 * and orig_mouse_time for the first click, as the 5736 * difference would be huge and would cause 5737 * multiplication overflow. 5738 */ 5739 timediff = p_mouset; 5740 } 5741 else 5742 { 5743 timediff = (mouse_time.tv_usec 5744 - orig_mouse_time.tv_usec) / 1000; 5745 if (timediff < 0) 5746 --orig_mouse_time.tv_sec; 5747 timediff += (mouse_time.tv_sec 5748 - orig_mouse_time.tv_sec) * 1000; 5749 } 5750 orig_mouse_time = mouse_time; 5751 if (mouse_code == orig_mouse_code 5752 && timediff < p_mouset 5753 && orig_num_clicks != 4 5754 && orig_mouse_col == mouse_col 5755 && orig_mouse_row == mouse_row 5756 && ((orig_topline == curwin->w_topline 5757 #ifdef FEAT_DIFF 5758 && orig_topfill == curwin->w_topfill 5759 #endif 5760 ) 5761 /* Double click in tab pages line also works 5762 * when window contents changes. */ 5763 || (mouse_row == 0 && firstwin->w_winrow > 0)) 5764 ) 5765 ++orig_num_clicks; 5766 else 5767 orig_num_clicks = 1; 5768 orig_mouse_col = mouse_col; 5769 orig_mouse_row = mouse_row; 5770 orig_topline = curwin->w_topline; 5771 #ifdef FEAT_DIFF 5772 orig_topfill = curwin->w_topfill; 5773 #endif 5774 } 5775 # if defined(FEAT_GUI) || defined(FEAT_MOUSE_GPM) 5776 else 5777 orig_num_clicks = NUM_MOUSE_CLICKS(mouse_code); 5778 # endif 5779 # else 5780 orig_num_clicks = NUM_MOUSE_CLICKS(mouse_code); 5781 # endif 5782 is_click = TRUE; 5783 orig_mouse_code = mouse_code; 5784 } 5785 if (!is_drag) 5786 held_button = mouse_code & MOUSE_CLICK_MASK; 5787 5788 /* 5789 * Translate the actual mouse event into a pseudo mouse event. 5790 * First work out what modifiers are to be used. 5791 */ 5792 if (orig_mouse_code & MOUSE_SHIFT) 5793 modifiers |= MOD_MASK_SHIFT; 5794 if (orig_mouse_code & MOUSE_CTRL) 5795 modifiers |= MOD_MASK_CTRL; 5796 if (orig_mouse_code & MOUSE_ALT) 5797 modifiers |= MOD_MASK_ALT; 5798 if (orig_num_clicks == 2) 5799 modifiers |= MOD_MASK_2CLICK; 5800 else if (orig_num_clicks == 3) 5801 modifiers |= MOD_MASK_3CLICK; 5802 else if (orig_num_clicks == 4) 5803 modifiers |= MOD_MASK_4CLICK; 5804 5805 /* Work out our pseudo mouse event. Note that MOUSE_RELEASE gets 5806 * added, then it's not mouse up/down. */ 5807 key_name[0] = (int)KS_EXTRA; 5808 if (wheel_code != 0 5809 && (wheel_code & MOUSE_RELEASE) != MOUSE_RELEASE) 5810 { 5811 if (wheel_code & MOUSE_CTRL) 5812 modifiers |= MOD_MASK_CTRL; 5813 if (wheel_code & MOUSE_ALT) 5814 modifiers |= MOD_MASK_ALT; 5815 key_name[1] = (wheel_code & 1) 5816 ? (int)KE_MOUSEUP : (int)KE_MOUSEDOWN; 5817 held_button = MOUSE_RELEASE; 5818 } 5819 else 5820 key_name[1] = get_pseudo_mouse_code(current_button, 5821 is_click, is_drag); 5822 5823 /* Make sure the mouse position is valid. Some terminals may 5824 * return weird values. */ 5825 if (mouse_col >= Columns) 5826 mouse_col = Columns - 1; 5827 if (mouse_row >= Rows) 5828 mouse_row = Rows - 1; 5829 } 5830 #endif /* FEAT_MOUSE */ 5831 5832 #ifdef FEAT_GUI 5833 /* 5834 * If using the GUI, then we get menu and scrollbar events. 5835 * 5836 * A menu event is encoded as K_SPECIAL, KS_MENU, KE_FILLER followed by 5837 * four bytes which are to be taken as a pointer to the vimmenu_T 5838 * structure. 5839 * 5840 * A tab line event is encoded as K_SPECIAL KS_TABLINE nr, where "nr" 5841 * is one byte with the tab index. 5842 * 5843 * A scrollbar event is K_SPECIAL, KS_VER_SCROLLBAR, KE_FILLER followed 5844 * by one byte representing the scrollbar number, and then four bytes 5845 * representing a long_u which is the new value of the scrollbar. 5846 * 5847 * A horizontal scrollbar event is K_SPECIAL, KS_HOR_SCROLLBAR, 5848 * KE_FILLER followed by four bytes representing a long_u which is the 5849 * new value of the scrollbar. 5850 */ 5851 # ifdef FEAT_MENU 5852 else if (key_name[0] == (int)KS_MENU) 5853 { 5854 long_u val; 5855 5856 num_bytes = get_long_from_buf(tp + slen, &val); 5857 if (num_bytes == -1) 5858 return -1; 5859 current_menu = (vimmenu_T *)val; 5860 slen += num_bytes; 5861 5862 /* The menu may have been deleted right after it was used, check 5863 * for that. */ 5864 if (check_menu_pointer(root_menu, current_menu) == FAIL) 5865 { 5866 key_name[0] = KS_EXTRA; 5867 key_name[1] = (int)KE_IGNORE; 5868 } 5869 } 5870 # endif 5871 # ifdef FEAT_GUI_TABLINE 5872 else if (key_name[0] == (int)KS_TABLINE) 5873 { 5874 /* Selecting tabline tab or using its menu. */ 5875 num_bytes = get_bytes_from_buf(tp + slen, bytes, 1); 5876 if (num_bytes == -1) 5877 return -1; 5878 current_tab = (int)bytes[0]; 5879 if (current_tab == 255) /* -1 in a byte gives 255 */ 5880 current_tab = -1; 5881 slen += num_bytes; 5882 } 5883 else if (key_name[0] == (int)KS_TABMENU) 5884 { 5885 /* Selecting tabline tab or using its menu. */ 5886 num_bytes = get_bytes_from_buf(tp + slen, bytes, 2); 5887 if (num_bytes == -1) 5888 return -1; 5889 current_tab = (int)bytes[0]; 5890 current_tabmenu = (int)bytes[1]; 5891 slen += num_bytes; 5892 } 5893 # endif 5894 # ifndef USE_ON_FLY_SCROLL 5895 else if (key_name[0] == (int)KS_VER_SCROLLBAR) 5896 { 5897 long_u val; 5898 5899 /* Get the last scrollbar event in the queue of the same type */ 5900 j = 0; 5901 for (i = 0; tp[j] == CSI && tp[j + 1] == KS_VER_SCROLLBAR 5902 && tp[j + 2] != NUL; ++i) 5903 { 5904 j += 3; 5905 num_bytes = get_bytes_from_buf(tp + j, bytes, 1); 5906 if (num_bytes == -1) 5907 break; 5908 if (i == 0) 5909 current_scrollbar = (int)bytes[0]; 5910 else if (current_scrollbar != (int)bytes[0]) 5911 break; 5912 j += num_bytes; 5913 num_bytes = get_long_from_buf(tp + j, &val); 5914 if (num_bytes == -1) 5915 break; 5916 scrollbar_value = val; 5917 j += num_bytes; 5918 slen = j; 5919 } 5920 if (i == 0) /* not enough characters to make one */ 5921 return -1; 5922 } 5923 else if (key_name[0] == (int)KS_HOR_SCROLLBAR) 5924 { 5925 long_u val; 5926 5927 /* Get the last horiz. scrollbar event in the queue */ 5928 j = 0; 5929 for (i = 0; tp[j] == CSI && tp[j + 1] == KS_HOR_SCROLLBAR 5930 && tp[j + 2] != NUL; ++i) 5931 { 5932 j += 3; 5933 num_bytes = get_long_from_buf(tp + j, &val); 5934 if (num_bytes == -1) 5935 break; 5936 scrollbar_value = val; 5937 j += num_bytes; 5938 slen = j; 5939 } 5940 if (i == 0) /* not enough characters to make one */ 5941 return -1; 5942 } 5943 # endif /* !USE_ON_FLY_SCROLL */ 5944 #endif /* FEAT_GUI */ 5945 5946 /* 5947 * Change <xHome> to <Home>, <xUp> to <Up>, etc. 5948 */ 5949 key = handle_x_keys(TERMCAP2KEY(key_name[0], key_name[1])); 5950 5951 /* 5952 * Add any modifier codes to our string. 5953 */ 5954 new_slen = 0; /* Length of what will replace the termcode */ 5955 if (modifiers != 0) 5956 { 5957 /* Some keys have the modifier included. Need to handle that here 5958 * to make mappings work. */ 5959 key = simplify_key(key, &modifiers); 5960 if (modifiers != 0) 5961 { 5962 string[new_slen++] = K_SPECIAL; 5963 string[new_slen++] = (int)KS_MODIFIER; 5964 string[new_slen++] = modifiers; 5965 } 5966 } 5967 5968 /* Finally, add the special key code to our string */ 5969 key_name[0] = KEY2TERMCAP0(key); 5970 key_name[1] = KEY2TERMCAP1(key); 5971 if (key_name[0] == KS_KEY) 5972 { 5973 /* from ":set <M-b>=xx" */ 5974 #ifdef FEAT_MBYTE 5975 if (has_mbyte) 5976 new_slen += (*mb_char2bytes)(key_name[1], string + new_slen); 5977 else 5978 #endif 5979 string[new_slen++] = key_name[1]; 5980 } 5981 else if (new_slen == 0 && key_name[0] == KS_EXTRA 5982 && key_name[1] == KE_IGNORE) 5983 { 5984 /* Do not put K_IGNORE into the buffer, do return KEYLEN_REMOVED 5985 * to indicate what happened. */ 5986 retval = KEYLEN_REMOVED; 5987 } 5988 else 5989 { 5990 string[new_slen++] = K_SPECIAL; 5991 string[new_slen++] = key_name[0]; 5992 string[new_slen++] = key_name[1]; 5993 } 5994 string[new_slen] = NUL; 5995 extra = new_slen - slen; 5996 if (buf == NULL) 5997 { 5998 if (extra < 0) 5999 /* remove matched chars, taking care of noremap */ 6000 del_typebuf(-extra, offset); 6001 else if (extra > 0) 6002 /* insert the extra space we need */ 6003 ins_typebuf(string + slen, REMAP_YES, offset, FALSE, FALSE); 6004 6005 /* 6006 * Careful: del_typebuf() and ins_typebuf() may have reallocated 6007 * typebuf.tb_buf[]! 6008 */ 6009 mch_memmove(typebuf.tb_buf + typebuf.tb_off + offset, string, 6010 (size_t)new_slen); 6011 } 6012 else 6013 { 6014 if (extra < 0) 6015 /* remove matched characters */ 6016 mch_memmove(buf + offset, buf + offset - extra, 6017 (size_t)(*buflen + offset + extra)); 6018 else if (extra > 0) 6019 { 6020 /* Insert the extra space we need. If there is insufficient 6021 * space return -1. */ 6022 if (*buflen + extra + new_slen >= bufsize) 6023 return -1; 6024 mch_memmove(buf + offset + extra, buf + offset, 6025 (size_t)(*buflen - offset)); 6026 } 6027 mch_memmove(buf + offset, string, (size_t)new_slen); 6028 *buflen = *buflen + extra + new_slen; 6029 } 6030 return retval == 0 ? (len + extra + offset) : retval; 6031 } 6032 6033 #ifdef FEAT_TERMRESPONSE 6034 LOG_TR(("normal character")); 6035 #endif 6036 6037 return 0; /* no match found */ 6038 } 6039 6040 #if (defined(FEAT_TERMINAL) && defined(FEAT_TERMRESPONSE)) || defined(PROTO) 6041 /* 6042 * Get the text foreground color, if known. 6043 */ 6044 void 6045 term_get_fg_color(char_u *r, char_u *g, char_u *b) 6046 { 6047 if (rfg_status == STATUS_GOT) 6048 { 6049 *r = fg_r; 6050 *g = fg_g; 6051 *b = fg_b; 6052 } 6053 } 6054 6055 /* 6056 * Get the text background color, if known. 6057 */ 6058 void 6059 term_get_bg_color(char_u *r, char_u *g, char_u *b) 6060 { 6061 if (rbg_status == STATUS_GOT) 6062 { 6063 *r = bg_r; 6064 *g = bg_g; 6065 *b = bg_b; 6066 } 6067 } 6068 #endif 6069 6070 /* 6071 * Replace any terminal code strings in from[] with the equivalent internal 6072 * vim representation. This is used for the "from" and "to" part of a 6073 * mapping, and the "to" part of a menu command. 6074 * Any strings like "<C-UP>" are also replaced, unless 'cpoptions' contains 6075 * '<'. 6076 * K_SPECIAL by itself is replaced by K_SPECIAL KS_SPECIAL KE_FILLER. 6077 * 6078 * The replacement is done in result[] and finally copied into allocated 6079 * memory. If this all works well *bufp is set to the allocated memory and a 6080 * pointer to it is returned. If something fails *bufp is set to NULL and from 6081 * is returned. 6082 * 6083 * CTRL-V characters are removed. When "from_part" is TRUE, a trailing CTRL-V 6084 * is included, otherwise it is removed (for ":map xx ^V", maps xx to 6085 * nothing). When 'cpoptions' does not contain 'B', a backslash can be used 6086 * instead of a CTRL-V. 6087 */ 6088 char_u * 6089 replace_termcodes( 6090 char_u *from, 6091 char_u **bufp, 6092 int from_part, 6093 int do_lt, /* also translate <lt> */ 6094 int special) /* always accept <key> notation */ 6095 { 6096 int i; 6097 int slen; 6098 int key; 6099 int dlen = 0; 6100 char_u *src; 6101 int do_backslash; /* backslash is a special character */ 6102 int do_special; /* recognize <> key codes */ 6103 int do_key_code; /* recognize raw key codes */ 6104 char_u *result; /* buffer for resulting string */ 6105 6106 do_backslash = (vim_strchr(p_cpo, CPO_BSLASH) == NULL); 6107 do_special = (vim_strchr(p_cpo, CPO_SPECI) == NULL) || special; 6108 do_key_code = (vim_strchr(p_cpo, CPO_KEYCODE) == NULL); 6109 6110 /* 6111 * Allocate space for the translation. Worst case a single character is 6112 * replaced by 6 bytes (shifted special key), plus a NUL at the end. 6113 */ 6114 result = alloc((unsigned)STRLEN(from) * 6 + 1); 6115 if (result == NULL) /* out of memory */ 6116 { 6117 *bufp = NULL; 6118 return from; 6119 } 6120 6121 src = from; 6122 6123 /* 6124 * Check for #n at start only: function key n 6125 */ 6126 if (from_part && src[0] == '#' && VIM_ISDIGIT(src[1])) /* function key */ 6127 { 6128 result[dlen++] = K_SPECIAL; 6129 result[dlen++] = 'k'; 6130 if (src[1] == '0') 6131 result[dlen++] = ';'; /* #0 is F10 is "k;" */ 6132 else 6133 result[dlen++] = src[1]; /* #3 is F3 is "k3" */ 6134 src += 2; 6135 } 6136 6137 /* 6138 * Copy each byte from *from to result[dlen] 6139 */ 6140 while (*src != NUL) 6141 { 6142 /* 6143 * If 'cpoptions' does not contain '<', check for special key codes, 6144 * like "<C-S-LeftMouse>" 6145 */ 6146 if (do_special && (do_lt || STRNCMP(src, "<lt>", 4) != 0)) 6147 { 6148 #ifdef FEAT_EVAL 6149 /* 6150 * Replace <SID> by K_SNR <script-nr> _. 6151 * (room: 5 * 6 = 30 bytes; needed: 3 + <nr> + 1 <= 14) 6152 */ 6153 if (STRNICMP(src, "<SID>", 5) == 0) 6154 { 6155 if (current_sctx.sc_sid <= 0) 6156 emsg(_(e_usingsid)); 6157 else 6158 { 6159 src += 5; 6160 result[dlen++] = K_SPECIAL; 6161 result[dlen++] = (int)KS_EXTRA; 6162 result[dlen++] = (int)KE_SNR; 6163 sprintf((char *)result + dlen, "%ld", 6164 (long)current_sctx.sc_sid); 6165 dlen += (int)STRLEN(result + dlen); 6166 result[dlen++] = '_'; 6167 continue; 6168 } 6169 } 6170 #endif 6171 6172 slen = trans_special(&src, result + dlen, TRUE, FALSE); 6173 if (slen) 6174 { 6175 dlen += slen; 6176 continue; 6177 } 6178 } 6179 6180 /* 6181 * If 'cpoptions' does not contain 'k', see if it's an actual key-code. 6182 * Note that this is also checked after replacing the <> form. 6183 * Single character codes are NOT replaced (e.g. ^H or DEL), because 6184 * it could be a character in the file. 6185 */ 6186 if (do_key_code) 6187 { 6188 i = find_term_bykeys(src); 6189 if (i >= 0) 6190 { 6191 result[dlen++] = K_SPECIAL; 6192 result[dlen++] = termcodes[i].name[0]; 6193 result[dlen++] = termcodes[i].name[1]; 6194 src += termcodes[i].len; 6195 /* If terminal code matched, continue after it. */ 6196 continue; 6197 } 6198 } 6199 6200 #ifdef FEAT_EVAL 6201 if (do_special) 6202 { 6203 char_u *p, *s, len; 6204 6205 /* 6206 * Replace <Leader> by the value of "mapleader". 6207 * Replace <LocalLeader> by the value of "maplocalleader". 6208 * If "mapleader" or "maplocalleader" isn't set use a backslash. 6209 */ 6210 if (STRNICMP(src, "<Leader>", 8) == 0) 6211 { 6212 len = 8; 6213 p = get_var_value((char_u *)"g:mapleader"); 6214 } 6215 else if (STRNICMP(src, "<LocalLeader>", 13) == 0) 6216 { 6217 len = 13; 6218 p = get_var_value((char_u *)"g:maplocalleader"); 6219 } 6220 else 6221 { 6222 len = 0; 6223 p = NULL; 6224 } 6225 if (len != 0) 6226 { 6227 /* Allow up to 8 * 6 characters for "mapleader". */ 6228 if (p == NULL || *p == NUL || STRLEN(p) > 8 * 6) 6229 s = (char_u *)"\\"; 6230 else 6231 s = p; 6232 while (*s != NUL) 6233 result[dlen++] = *s++; 6234 src += len; 6235 continue; 6236 } 6237 } 6238 #endif 6239 6240 /* 6241 * Remove CTRL-V and ignore the next character. 6242 * For "from" side the CTRL-V at the end is included, for the "to" 6243 * part it is removed. 6244 * If 'cpoptions' does not contain 'B', also accept a backslash. 6245 */ 6246 key = *src; 6247 if (key == Ctrl_V || (do_backslash && key == '\\')) 6248 { 6249 ++src; /* skip CTRL-V or backslash */ 6250 if (*src == NUL) 6251 { 6252 if (from_part) 6253 result[dlen++] = key; 6254 break; 6255 } 6256 } 6257 6258 #ifdef FEAT_MBYTE 6259 /* skip multibyte char correctly */ 6260 for (i = (*mb_ptr2len)(src); i > 0; --i) 6261 #endif 6262 { 6263 /* 6264 * If the character is K_SPECIAL, replace it with K_SPECIAL 6265 * KS_SPECIAL KE_FILLER. 6266 * If compiled with the GUI replace CSI with K_CSI. 6267 */ 6268 if (*src == K_SPECIAL) 6269 { 6270 result[dlen++] = K_SPECIAL; 6271 result[dlen++] = KS_SPECIAL; 6272 result[dlen++] = KE_FILLER; 6273 } 6274 # ifdef FEAT_GUI 6275 else if (*src == CSI) 6276 { 6277 result[dlen++] = K_SPECIAL; 6278 result[dlen++] = KS_EXTRA; 6279 result[dlen++] = (int)KE_CSI; 6280 } 6281 # endif 6282 else 6283 result[dlen++] = *src; 6284 ++src; 6285 } 6286 } 6287 result[dlen] = NUL; 6288 6289 /* 6290 * Copy the new string to allocated memory. 6291 * If this fails, just return from. 6292 */ 6293 if ((*bufp = vim_strsave(result)) != NULL) 6294 from = *bufp; 6295 vim_free(result); 6296 return from; 6297 } 6298 6299 /* 6300 * Find a termcode with keys 'src' (must be NUL terminated). 6301 * Return the index in termcodes[], or -1 if not found. 6302 */ 6303 int 6304 find_term_bykeys(char_u *src) 6305 { 6306 int i; 6307 int slen = (int)STRLEN(src); 6308 6309 for (i = 0; i < tc_len; ++i) 6310 { 6311 if (slen == termcodes[i].len 6312 && STRNCMP(termcodes[i].code, src, (size_t)slen) == 0) 6313 return i; 6314 } 6315 return -1; 6316 } 6317 6318 /* 6319 * Gather the first characters in the terminal key codes into a string. 6320 * Used to speed up check_termcode(). 6321 */ 6322 static void 6323 gather_termleader(void) 6324 { 6325 int i; 6326 int len = 0; 6327 6328 #ifdef FEAT_GUI 6329 if (gui.in_use) 6330 termleader[len++] = CSI; /* the GUI codes are not in termcodes[] */ 6331 #endif 6332 #ifdef FEAT_TERMRESPONSE 6333 if (check_for_codes || *T_CRS != NUL) 6334 termleader[len++] = DCS; /* the termcode response starts with DCS 6335 in 8-bit mode */ 6336 #endif 6337 termleader[len] = NUL; 6338 6339 for (i = 0; i < tc_len; ++i) 6340 if (vim_strchr(termleader, termcodes[i].code[0]) == NULL) 6341 { 6342 termleader[len++] = termcodes[i].code[0]; 6343 termleader[len] = NUL; 6344 } 6345 6346 need_gather = FALSE; 6347 } 6348 6349 /* 6350 * Show all termcodes (for ":set termcap") 6351 * This code looks a lot like showoptions(), but is different. 6352 */ 6353 void 6354 show_termcodes(void) 6355 { 6356 int col; 6357 int *items; 6358 int item_count; 6359 int run; 6360 int row, rows; 6361 int cols; 6362 int i; 6363 int len; 6364 6365 #define INC3 27 /* try to make three columns */ 6366 #define INC2 40 /* try to make two columns */ 6367 #define GAP 2 /* spaces between columns */ 6368 6369 if (tc_len == 0) /* no terminal codes (must be GUI) */ 6370 return; 6371 items = (int *)alloc((unsigned)(sizeof(int) * tc_len)); 6372 if (items == NULL) 6373 return; 6374 6375 /* Highlight title */ 6376 MSG_PUTS_TITLE(_("\n--- Terminal keys ---")); 6377 6378 /* 6379 * do the loop two times: 6380 * 1. display the short items (non-strings and short strings) 6381 * 2. display the medium items (medium length strings) 6382 * 3. display the long items (remaining strings) 6383 */ 6384 for (run = 1; run <= 3 && !got_int; ++run) 6385 { 6386 /* 6387 * collect the items in items[] 6388 */ 6389 item_count = 0; 6390 for (i = 0; i < tc_len; i++) 6391 { 6392 len = show_one_termcode(termcodes[i].name, 6393 termcodes[i].code, FALSE); 6394 if (len <= INC3 - GAP ? run == 1 6395 : len <= INC2 - GAP ? run == 2 6396 : run == 3) 6397 items[item_count++] = i; 6398 } 6399 6400 /* 6401 * display the items 6402 */ 6403 if (run <= 2) 6404 { 6405 cols = (Columns + GAP) / (run == 1 ? INC3 : INC2); 6406 if (cols == 0) 6407 cols = 1; 6408 rows = (item_count + cols - 1) / cols; 6409 } 6410 else /* run == 3 */ 6411 rows = item_count; 6412 for (row = 0; row < rows && !got_int; ++row) 6413 { 6414 msg_putchar('\n'); /* go to next line */ 6415 if (got_int) /* 'q' typed in more */ 6416 break; 6417 col = 0; 6418 for (i = row; i < item_count; i += rows) 6419 { 6420 msg_col = col; /* make columns */ 6421 show_one_termcode(termcodes[items[i]].name, 6422 termcodes[items[i]].code, TRUE); 6423 if (run == 2) 6424 col += INC2; 6425 else 6426 col += INC3; 6427 } 6428 out_flush(); 6429 ui_breakcheck(); 6430 } 6431 } 6432 vim_free(items); 6433 } 6434 6435 /* 6436 * Show one termcode entry. 6437 * Output goes into IObuff[] 6438 */ 6439 int 6440 show_one_termcode(char_u *name, char_u *code, int printit) 6441 { 6442 char_u *p; 6443 int len; 6444 6445 if (name[0] > '~') 6446 { 6447 IObuff[0] = ' '; 6448 IObuff[1] = ' '; 6449 IObuff[2] = ' '; 6450 IObuff[3] = ' '; 6451 } 6452 else 6453 { 6454 IObuff[0] = 't'; 6455 IObuff[1] = '_'; 6456 IObuff[2] = name[0]; 6457 IObuff[3] = name[1]; 6458 } 6459 IObuff[4] = ' '; 6460 6461 p = get_special_key_name(TERMCAP2KEY(name[0], name[1]), 0); 6462 if (p[1] != 't') 6463 STRCPY(IObuff + 5, p); 6464 else 6465 IObuff[5] = NUL; 6466 len = (int)STRLEN(IObuff); 6467 do 6468 IObuff[len++] = ' '; 6469 while (len < 17); 6470 IObuff[len] = NUL; 6471 if (code == NULL) 6472 len += 4; 6473 else 6474 len += vim_strsize(code); 6475 6476 if (printit) 6477 { 6478 msg_puts(IObuff); 6479 if (code == NULL) 6480 msg_puts((char_u *)"NULL"); 6481 else 6482 msg_outtrans(code); 6483 } 6484 return len; 6485 } 6486 6487 #if defined(FEAT_TERMRESPONSE) || defined(PROTO) 6488 /* 6489 * For Xterm >= 140 compiled with OPT_TCAP_QUERY: Obtain the actually used 6490 * termcap codes from the terminal itself. 6491 * We get them one by one to avoid a very long response string. 6492 */ 6493 static int xt_index_in = 0; 6494 static int xt_index_out = 0; 6495 6496 static void 6497 req_codes_from_term(void) 6498 { 6499 xt_index_out = 0; 6500 xt_index_in = 0; 6501 req_more_codes_from_term(); 6502 } 6503 6504 static void 6505 req_more_codes_from_term(void) 6506 { 6507 char buf[11]; 6508 int old_idx = xt_index_out; 6509 6510 /* Don't do anything when going to exit. */ 6511 if (exiting) 6512 return; 6513 6514 /* Send up to 10 more requests out than we received. Avoid sending too 6515 * many, there can be a buffer overflow somewhere. */ 6516 while (xt_index_out < xt_index_in + 10 && key_names[xt_index_out] != NULL) 6517 { 6518 char *key_name = key_names[xt_index_out]; 6519 6520 LOG_TR(("Requesting XT %d: %s", xt_index_out, key_name)); 6521 sprintf(buf, "\033P+q%02x%02x\033\\", key_name[0], key_name[1]); 6522 out_str_nf((char_u *)buf); 6523 ++xt_index_out; 6524 } 6525 6526 /* Send the codes out right away. */ 6527 if (xt_index_out != old_idx) 6528 out_flush(); 6529 } 6530 6531 /* 6532 * Decode key code response from xterm: '<Esc>P1+r<name>=<string><Esc>\'. 6533 * A "0" instead of the "1" indicates a code that isn't supported. 6534 * Both <name> and <string> are encoded in hex. 6535 * "code" points to the "0" or "1". 6536 */ 6537 static void 6538 got_code_from_term(char_u *code, int len) 6539 { 6540 #define XT_LEN 100 6541 char_u name[3]; 6542 char_u str[XT_LEN]; 6543 int i; 6544 int j = 0; 6545 int c; 6546 6547 /* A '1' means the code is supported, a '0' means it isn't. 6548 * When half the length is > XT_LEN we can't use it. 6549 * Our names are currently all 2 characters. */ 6550 if (code[0] == '1' && code[7] == '=' && len / 2 < XT_LEN) 6551 { 6552 /* Get the name from the response and find it in the table. */ 6553 name[0] = hexhex2nr(code + 3); 6554 name[1] = hexhex2nr(code + 5); 6555 name[2] = NUL; 6556 for (i = 0; key_names[i] != NULL; ++i) 6557 { 6558 if (STRCMP(key_names[i], name) == 0) 6559 { 6560 xt_index_in = i; 6561 break; 6562 } 6563 } 6564 6565 LOG_TR(("Received XT %d: %s", xt_index_in, (char *)name)); 6566 6567 if (key_names[i] != NULL) 6568 { 6569 for (i = 8; (c = hexhex2nr(code + i)) >= 0; i += 2) 6570 str[j++] = c; 6571 str[j] = NUL; 6572 if (name[0] == 'C' && name[1] == 'o') 6573 { 6574 /* Color count is not a key code. */ 6575 i = atoi((char *)str); 6576 may_adjust_color_count(i); 6577 } 6578 else 6579 { 6580 /* First delete any existing entry with the same code. */ 6581 i = find_term_bykeys(str); 6582 if (i >= 0) 6583 del_termcode_idx(i); 6584 add_termcode(name, str, ATC_FROM_TERM); 6585 } 6586 } 6587 } 6588 6589 /* May request more codes now that we received one. */ 6590 ++xt_index_in; 6591 req_more_codes_from_term(); 6592 } 6593 6594 /* 6595 * Check if there are any unanswered requests and deal with them. 6596 * This is called before starting an external program or getting direct 6597 * keyboard input. We don't want responses to be send to that program or 6598 * handled as typed text. 6599 */ 6600 static void 6601 check_for_codes_from_term(void) 6602 { 6603 int c; 6604 6605 /* If no codes requested or all are answered, no need to wait. */ 6606 if (xt_index_out == 0 || xt_index_out == xt_index_in) 6607 return; 6608 6609 /* Vgetc() will check for and handle any response. 6610 * Keep calling vpeekc() until we don't get any responses. */ 6611 ++no_mapping; 6612 ++allow_keys; 6613 for (;;) 6614 { 6615 c = vpeekc(); 6616 if (c == NUL) /* nothing available */ 6617 break; 6618 6619 /* If a response is recognized it's replaced with K_IGNORE, must read 6620 * it from the input stream. If there is no K_IGNORE we can't do 6621 * anything, break here (there might be some responses further on, but 6622 * we don't want to throw away any typed chars). */ 6623 if (c != K_SPECIAL && c != K_IGNORE) 6624 break; 6625 c = vgetc(); 6626 if (c != K_IGNORE) 6627 { 6628 vungetc(c); 6629 break; 6630 } 6631 } 6632 --no_mapping; 6633 --allow_keys; 6634 } 6635 #endif 6636 6637 #if defined(FEAT_CMDL_COMPL) || defined(PROTO) 6638 /* 6639 * Translate an internal mapping/abbreviation representation into the 6640 * corresponding external one recognized by :map/:abbrev commands; 6641 * respects the current B/k/< settings of 'cpoption'. 6642 * 6643 * This function is called when expanding mappings/abbreviations on the 6644 * command-line, and for building the "Ambiguous mapping..." error message. 6645 * 6646 * It uses a growarray to build the translation string since the 6647 * latter can be wider than the original description. The caller has to 6648 * free the string afterwards. 6649 * 6650 * Returns NULL when there is a problem. 6651 */ 6652 char_u * 6653 translate_mapping( 6654 char_u *str, 6655 int expmap) /* TRUE when expanding mappings on command-line */ 6656 { 6657 garray_T ga; 6658 int c; 6659 int modifiers; 6660 int cpo_bslash; 6661 int cpo_special; 6662 int cpo_keycode; 6663 6664 ga_init(&ga); 6665 ga.ga_itemsize = 1; 6666 ga.ga_growsize = 40; 6667 6668 cpo_bslash = (vim_strchr(p_cpo, CPO_BSLASH) != NULL); 6669 cpo_special = (vim_strchr(p_cpo, CPO_SPECI) != NULL); 6670 cpo_keycode = (vim_strchr(p_cpo, CPO_KEYCODE) == NULL); 6671 6672 for (; *str; ++str) 6673 { 6674 c = *str; 6675 if (c == K_SPECIAL && str[1] != NUL && str[2] != NUL) 6676 { 6677 modifiers = 0; 6678 if (str[1] == KS_MODIFIER) 6679 { 6680 str++; 6681 modifiers = *++str; 6682 c = *++str; 6683 } 6684 if (cpo_special && cpo_keycode && c == K_SPECIAL && !modifiers) 6685 { 6686 int i; 6687 6688 /* try to find special key in termcodes */ 6689 for (i = 0; i < tc_len; ++i) 6690 if (termcodes[i].name[0] == str[1] 6691 && termcodes[i].name[1] == str[2]) 6692 break; 6693 if (i < tc_len) 6694 { 6695 ga_concat(&ga, termcodes[i].code); 6696 str += 2; 6697 continue; /* for (str) */ 6698 } 6699 } 6700 if (c == K_SPECIAL && str[1] != NUL && str[2] != NUL) 6701 { 6702 if (expmap && cpo_special) 6703 { 6704 ga_clear(&ga); 6705 return NULL; 6706 } 6707 c = TO_SPECIAL(str[1], str[2]); 6708 if (c == K_ZERO) /* display <Nul> as ^@ */ 6709 c = NUL; 6710 str += 2; 6711 } 6712 if (IS_SPECIAL(c) || modifiers) /* special key */ 6713 { 6714 if (expmap && cpo_special) 6715 { 6716 ga_clear(&ga); 6717 return NULL; 6718 } 6719 ga_concat(&ga, get_special_key_name(c, modifiers)); 6720 continue; /* for (str) */ 6721 } 6722 } 6723 if (c == ' ' || c == '\t' || c == Ctrl_J || c == Ctrl_V 6724 || (c == '<' && !cpo_special) || (c == '\\' && !cpo_bslash)) 6725 ga_append(&ga, cpo_bslash ? Ctrl_V : '\\'); 6726 if (c) 6727 ga_append(&ga, c); 6728 } 6729 ga_append(&ga, NUL); 6730 return (char_u *)(ga.ga_data); 6731 } 6732 #endif 6733 6734 #if (defined(WIN3264) && !defined(FEAT_GUI)) || defined(PROTO) 6735 static char ksme_str[20]; 6736 static char ksmr_str[20]; 6737 static char ksmd_str[20]; 6738 6739 /* 6740 * For Win32 console: update termcap codes for existing console attributes. 6741 */ 6742 void 6743 update_tcap(int attr) 6744 { 6745 struct builtin_term *p; 6746 6747 p = find_builtin_term(DEFAULT_TERM); 6748 sprintf(ksme_str, IF_EB("\033|%dm", ESC_STR "|%dm"), attr); 6749 sprintf(ksmd_str, IF_EB("\033|%dm", ESC_STR "|%dm"), 6750 attr | 0x08); /* FOREGROUND_INTENSITY */ 6751 sprintf(ksmr_str, IF_EB("\033|%dm", ESC_STR "|%dm"), 6752 ((attr & 0x0F) << 4) | ((attr & 0xF0) >> 4)); 6753 6754 while (p->bt_string != NULL) 6755 { 6756 if (p->bt_entry == (int)KS_ME) 6757 p->bt_string = &ksme_str[0]; 6758 else if (p->bt_entry == (int)KS_MR) 6759 p->bt_string = &ksmr_str[0]; 6760 else if (p->bt_entry == (int)KS_MD) 6761 p->bt_string = &ksmd_str[0]; 6762 ++p; 6763 } 6764 } 6765 6766 # ifdef FEAT_TERMGUICOLORS 6767 # define KSSIZE 20 6768 struct ks_tbl_s 6769 { 6770 int code; // value of KS_ 6771 char *vtp; // code in vtp mode 6772 char *vtp2; // code in vtp2 mode 6773 char buf[KSSIZE]; // save buffer in non-vtp mode 6774 char vbuf[KSSIZE]; // save buffer in vtp mode 6775 char v2buf[KSSIZE]; // save buffer in vtp2 mode 6776 char arr[KSSIZE]; // real buffer 6777 }; 6778 6779 static struct ks_tbl_s ks_tbl[] = 6780 { 6781 {(int)KS_ME, "\033|0m", "\033|0m"}, // normal 6782 {(int)KS_MR, "\033|7m", "\033|7m"}, // reverse 6783 {(int)KS_MD, "\033|1m", "\033|1m"}, // bold 6784 {(int)KS_SO, "\033|91m", "\033|91m"}, // standout: bright red text 6785 {(int)KS_SE, "\033|39m", "\033|39m"}, // standout end: default color 6786 {(int)KS_CZH, "\033|95m", "\033|95m"}, // italic: bright magenta text 6787 {(int)KS_CZR, "\033|0m", "\033|0m"}, // italic end 6788 {(int)KS_US, "\033|4m", "\033|4m"}, // underscore 6789 {(int)KS_UE, "\033|24m", "\033|24m"}, // underscore end 6790 # ifdef TERMINFO 6791 {(int)KS_CAB, "\033|%p1%db", "\033|%p14%dm"}, // set background color 6792 {(int)KS_CAF, "\033|%p1%df", "\033|%p13%dm"}, // set foreground color 6793 # else 6794 {(int)KS_CAB, "\033|%db", "\033|4%dm"}, // set background color 6795 {(int)KS_CAF, "\033|%df", "\033|3%dm"}, // set foreground color 6796 # endif 6797 {(int)KS_CCO, "256", "256"}, // colors 6798 {(int)KS_NAME} // terminator 6799 }; 6800 6801 static struct builtin_term * 6802 find_first_tcap( 6803 char_u *name, 6804 int code) 6805 { 6806 struct builtin_term *p; 6807 6808 for (p = find_builtin_term(name); p->bt_string != NULL; ++p) 6809 if (p->bt_entry == code) 6810 return p; 6811 return NULL; 6812 } 6813 # endif 6814 6815 /* 6816 * For Win32 console: replace the sequence immediately after termguicolors. 6817 */ 6818 void 6819 swap_tcap(void) 6820 { 6821 # ifdef FEAT_TERMGUICOLORS 6822 static int init_done = FALSE; 6823 static int curr_mode; 6824 struct ks_tbl_s *ks; 6825 struct builtin_term *bt; 6826 int mode; 6827 enum 6828 { 6829 CMODEINDEX, 6830 CMODE24, 6831 CMODE256 6832 }; 6833 6834 /* buffer initialization */ 6835 if (!init_done) 6836 { 6837 for (ks = ks_tbl; ks->code != (int)KS_NAME; ks++) 6838 { 6839 bt = find_first_tcap(DEFAULT_TERM, ks->code); 6840 if (bt != NULL) 6841 { 6842 STRNCPY(ks->buf, bt->bt_string, KSSIZE); 6843 STRNCPY(ks->vbuf, ks->vtp, KSSIZE); 6844 STRNCPY(ks->v2buf, ks->vtp2, KSSIZE); 6845 6846 STRNCPY(ks->arr, bt->bt_string, KSSIZE); 6847 bt->bt_string = &ks->arr[0]; 6848 } 6849 } 6850 init_done = TRUE; 6851 curr_mode = CMODEINDEX; 6852 } 6853 6854 if (p_tgc) 6855 mode = CMODE24; 6856 else if (t_colors >= 256) 6857 mode = CMODE256; 6858 else 6859 mode = CMODEINDEX; 6860 6861 for (ks = ks_tbl; ks->code != (int)KS_NAME; ks++) 6862 { 6863 bt = find_first_tcap(DEFAULT_TERM, ks->code); 6864 if (bt != NULL) 6865 { 6866 switch (curr_mode) 6867 { 6868 case CMODEINDEX: 6869 STRNCPY(&ks->buf[0], bt->bt_string, KSSIZE); 6870 break; 6871 case CMODE24: 6872 STRNCPY(&ks->vbuf[0], bt->bt_string, KSSIZE); 6873 break; 6874 default: 6875 STRNCPY(&ks->v2buf[0], bt->bt_string, KSSIZE); 6876 } 6877 } 6878 } 6879 6880 if (mode != curr_mode) 6881 { 6882 for (ks = ks_tbl; ks->code != (int)KS_NAME; ks++) 6883 { 6884 bt = find_first_tcap(DEFAULT_TERM, ks->code); 6885 if (bt != NULL) 6886 { 6887 switch (mode) 6888 { 6889 case CMODEINDEX: 6890 STRNCPY(bt->bt_string, &ks->buf[0], KSSIZE); 6891 break; 6892 case CMODE24: 6893 STRNCPY(bt->bt_string, &ks->vbuf[0], KSSIZE); 6894 break; 6895 default: 6896 STRNCPY(bt->bt_string, &ks->v2buf[0], KSSIZE); 6897 } 6898 } 6899 } 6900 6901 curr_mode = mode; 6902 } 6903 # endif 6904 } 6905 6906 #endif 6907 6908 #if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO) 6909 static int 6910 hex_digit(int c) 6911 { 6912 if (isdigit(c)) 6913 return c - '0'; 6914 c = TOLOWER_ASC(c); 6915 if (c >= 'a' && c <= 'f') 6916 return c - 'a' + 10; 6917 return 0x1ffffff; 6918 } 6919 6920 guicolor_T 6921 gui_get_color_cmn(char_u *name) 6922 { 6923 /* On MS-Windows an RGB macro is available and it produces 0x00bbggrr color 6924 * values as used by the MS-Windows GDI api. It should be used only for 6925 * MS-Windows GDI builds. */ 6926 # if defined(RGB) && defined(WIN32) && !defined(FEAT_GUI) 6927 # undef RGB 6928 # endif 6929 # ifndef RGB 6930 # define RGB(r, g, b) ((r<<16) | (g<<8) | (b)) 6931 # endif 6932 # define LINE_LEN 100 6933 FILE *fd; 6934 char line[LINE_LEN]; 6935 char_u *fname; 6936 int r, g, b, i; 6937 guicolor_T color; 6938 6939 struct rgbcolor_table_S { 6940 char_u *color_name; 6941 guicolor_T color; 6942 }; 6943 6944 /* Only non X11 colors (not present in rgb.txt) and colors in 6945 * color_names[], useful when $VIMRUNTIME is not found,. */ 6946 static struct rgbcolor_table_S rgb_table[] = { 6947 {(char_u *)"black", RGB(0x00, 0x00, 0x00)}, 6948 {(char_u *)"blue", RGB(0x00, 0x00, 0xFF)}, 6949 {(char_u *)"brown", RGB(0xA5, 0x2A, 0x2A)}, 6950 {(char_u *)"cyan", RGB(0x00, 0xFF, 0xFF)}, 6951 {(char_u *)"darkblue", RGB(0x00, 0x00, 0x8B)}, 6952 {(char_u *)"darkcyan", RGB(0x00, 0x8B, 0x8B)}, 6953 {(char_u *)"darkgray", RGB(0xA9, 0xA9, 0xA9)}, 6954 {(char_u *)"darkgreen", RGB(0x00, 0x64, 0x00)}, 6955 {(char_u *)"darkgrey", RGB(0xA9, 0xA9, 0xA9)}, 6956 {(char_u *)"darkmagenta", RGB(0x8B, 0x00, 0x8B)}, 6957 {(char_u *)"darkred", RGB(0x8B, 0x00, 0x00)}, 6958 {(char_u *)"darkyellow", RGB(0x8B, 0x8B, 0x00)}, /* No X11 */ 6959 {(char_u *)"gray", RGB(0xBE, 0xBE, 0xBE)}, 6960 {(char_u *)"green", RGB(0x00, 0xFF, 0x00)}, 6961 {(char_u *)"grey", RGB(0xBE, 0xBE, 0xBE)}, 6962 {(char_u *)"grey40", RGB(0x66, 0x66, 0x66)}, 6963 {(char_u *)"grey50", RGB(0x7F, 0x7F, 0x7F)}, 6964 {(char_u *)"grey90", RGB(0xE5, 0xE5, 0xE5)}, 6965 {(char_u *)"lightblue", RGB(0xAD, 0xD8, 0xE6)}, 6966 {(char_u *)"lightcyan", RGB(0xE0, 0xFF, 0xFF)}, 6967 {(char_u *)"lightgray", RGB(0xD3, 0xD3, 0xD3)}, 6968 {(char_u *)"lightgreen", RGB(0x90, 0xEE, 0x90)}, 6969 {(char_u *)"lightgrey", RGB(0xD3, 0xD3, 0xD3)}, 6970 {(char_u *)"lightmagenta", RGB(0xFF, 0x8B, 0xFF)}, /* No X11 */ 6971 {(char_u *)"lightred", RGB(0xFF, 0x8B, 0x8B)}, /* No X11 */ 6972 {(char_u *)"lightyellow", RGB(0xFF, 0xFF, 0xE0)}, 6973 {(char_u *)"magenta", RGB(0xFF, 0x00, 0xFF)}, 6974 {(char_u *)"red", RGB(0xFF, 0x00, 0x00)}, 6975 {(char_u *)"seagreen", RGB(0x2E, 0x8B, 0x57)}, 6976 {(char_u *)"white", RGB(0xFF, 0xFF, 0xFF)}, 6977 {(char_u *)"yellow", RGB(0xFF, 0xFF, 0x00)}, 6978 }; 6979 6980 static struct rgbcolor_table_S *colornames_table; 6981 static int size = 0; 6982 6983 if (name[0] == '#' && STRLEN(name) == 7) 6984 { 6985 /* Name is in "#rrggbb" format */ 6986 color = RGB(((hex_digit(name[1]) << 4) + hex_digit(name[2])), 6987 ((hex_digit(name[3]) << 4) + hex_digit(name[4])), 6988 ((hex_digit(name[5]) << 4) + hex_digit(name[6]))); 6989 if (color > 0xffffff) 6990 return INVALCOLOR; 6991 return color; 6992 } 6993 6994 /* Check if the name is one of the colors we know */ 6995 for (i = 0; i < (int)(sizeof(rgb_table) / sizeof(rgb_table[0])); i++) 6996 if (STRICMP(name, rgb_table[i].color_name) == 0) 6997 return rgb_table[i].color; 6998 6999 /* 7000 * Last attempt. Look in the file "$VIM/rgb.txt". 7001 */ 7002 if (size == 0) 7003 { 7004 int counting; 7005 7006 /* colornames_table not yet initialized */ 7007 fname = expand_env_save((char_u *)"$VIMRUNTIME/rgb.txt"); 7008 if (fname == NULL) 7009 return INVALCOLOR; 7010 7011 fd = fopen((char *)fname, "rt"); 7012 vim_free(fname); 7013 if (fd == NULL) 7014 { 7015 if (p_verbose > 1) 7016 verb_msg((char_u *)_("Cannot open $VIMRUNTIME/rgb.txt")); 7017 return INVALCOLOR; 7018 } 7019 7020 for (counting = 1; counting >= 0; --counting) 7021 { 7022 if (!counting) 7023 { 7024 colornames_table = (struct rgbcolor_table_S *)alloc( 7025 (unsigned)(sizeof(struct rgbcolor_table_S) * size)); 7026 if (colornames_table == NULL) 7027 { 7028 fclose(fd); 7029 return INVALCOLOR; 7030 } 7031 rewind(fd); 7032 } 7033 size = 0; 7034 7035 while (!feof(fd)) 7036 { 7037 size_t len; 7038 int pos; 7039 7040 vim_ignoredp = fgets(line, LINE_LEN, fd); 7041 len = strlen(line); 7042 7043 if (len <= 1 || line[len - 1] != '\n') 7044 continue; 7045 7046 line[len - 1] = '\0'; 7047 7048 i = sscanf(line, "%d %d %d %n", &r, &g, &b, &pos); 7049 if (i != 3) 7050 continue; 7051 7052 if (!counting) 7053 { 7054 char_u *s = vim_strsave((char_u *)line + pos); 7055 7056 if (s == NULL) 7057 { 7058 fclose(fd); 7059 return INVALCOLOR; 7060 } 7061 colornames_table[size].color_name = s; 7062 colornames_table[size].color = (guicolor_T)RGB(r, g, b); 7063 } 7064 size++; 7065 } 7066 } 7067 fclose(fd); 7068 } 7069 7070 for (i = 0; i < size; i++) 7071 if (STRICMP(name, colornames_table[i].color_name) == 0) 7072 return colornames_table[i].color; 7073 7074 return INVALCOLOR; 7075 } 7076 7077 guicolor_T 7078 gui_get_rgb_color_cmn(int r, int g, int b) 7079 { 7080 guicolor_T color = RGB(r, g, b); 7081 7082 if (color > 0xffffff) 7083 return INVALCOLOR; 7084 return color; 7085 } 7086 #endif 7087 7088 #if (defined(WIN3264) && !defined(FEAT_GUI_W32)) || defined(FEAT_TERMINAL) \ 7089 || defined(PROTO) 7090 static int cube_value[] = { 7091 0x00, 0x5F, 0x87, 0xAF, 0xD7, 0xFF 7092 }; 7093 7094 static int grey_ramp[] = { 7095 0x08, 0x12, 0x1C, 0x26, 0x30, 0x3A, 0x44, 0x4E, 0x58, 0x62, 0x6C, 0x76, 7096 0x80, 0x8A, 0x94, 0x9E, 0xA8, 0xB2, 0xBC, 0xC6, 0xD0, 0xDA, 0xE4, 0xEE 7097 }; 7098 7099 # ifdef FEAT_TERMINAL 7100 # include "libvterm/include/vterm.h" // for VTERM_ANSI_INDEX_NONE 7101 # else 7102 # define VTERM_ANSI_INDEX_NONE 0 7103 # endif 7104 7105 static char_u ansi_table[16][4] = { 7106 // R G B idx 7107 { 0, 0, 0, 1}, // black 7108 {224, 0, 0, 2}, // dark red 7109 { 0, 224, 0, 3}, // dark green 7110 {224, 224, 0, 4}, // dark yellow / brown 7111 { 0, 0, 224, 5}, // dark blue 7112 {224, 0, 224, 6}, // dark magenta 7113 { 0, 224, 224, 7}, // dark cyan 7114 {224, 224, 224, 8}, // light grey 7115 7116 {128, 128, 128, 9}, // dark grey 7117 {255, 64, 64, 10}, // light red 7118 { 64, 255, 64, 11}, // light green 7119 {255, 255, 64, 12}, // yellow 7120 { 64, 64, 255, 13}, // light blue 7121 {255, 64, 255, 14}, // light magenta 7122 { 64, 255, 255, 15}, // light cyan 7123 {255, 255, 255, 16}, // white 7124 }; 7125 7126 void 7127 cterm_color2rgb(int nr, char_u *r, char_u *g, char_u *b, char_u *ansi_idx) 7128 { 7129 int idx; 7130 7131 if (nr < 16) 7132 { 7133 *r = ansi_table[nr][0]; 7134 *g = ansi_table[nr][1]; 7135 *b = ansi_table[nr][2]; 7136 *ansi_idx = ansi_table[nr][3]; 7137 } 7138 else if (nr < 232) 7139 { 7140 /* 216 color cube */ 7141 idx = nr - 16; 7142 *r = cube_value[idx / 36 % 6]; 7143 *g = cube_value[idx / 6 % 6]; 7144 *b = cube_value[idx % 6]; 7145 *ansi_idx = VTERM_ANSI_INDEX_NONE; 7146 } 7147 else if (nr < 256) 7148 { 7149 /* 24 grey scale ramp */ 7150 idx = nr - 232; 7151 *r = grey_ramp[idx]; 7152 *g = grey_ramp[idx]; 7153 *b = grey_ramp[idx]; 7154 *ansi_idx = VTERM_ANSI_INDEX_NONE; 7155 } 7156 else 7157 { 7158 *r = 0; 7159 *g = 0; 7160 *b = 0; 7161 *ansi_idx = 0; 7162 } 7163 } 7164 #endif 7165