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 a list of people who contributed. 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 #include "vim.h" 11 12 static int path_is_url(char_u *p); 13 static void cmd_with_count(char *cmd, char_u *bufp, size_t bufsize, long Prenum); 14 static void win_init(win_T *newp, win_T *oldp, int flags); 15 static void win_init_some(win_T *newp, win_T *oldp); 16 static void frame_comp_pos(frame_T *topfrp, int *row, int *col); 17 static void frame_setheight(frame_T *curfrp, int height); 18 static void frame_setwidth(frame_T *curfrp, int width); 19 static void win_exchange(long); 20 static void win_rotate(int, int); 21 static void win_totop(int size, int flags); 22 static void win_equal_rec(win_T *next_curwin, int current, frame_T *topfr, int dir, int col, int row, int width, int height); 23 static int last_window(void); 24 static int close_last_window_tabpage(win_T *win, int free_buf, tabpage_T *prev_curtab); 25 static win_T *win_free_mem(win_T *win, int *dirp, tabpage_T *tp); 26 static frame_T *win_altframe(win_T *win, tabpage_T *tp); 27 static tabpage_T *alt_tabpage(void); 28 static win_T *frame2win(frame_T *frp); 29 static int frame_has_win(frame_T *frp, win_T *wp); 30 static void frame_new_height(frame_T *topfrp, int height, int topfirst, int wfh); 31 static int frame_fixed_height(frame_T *frp); 32 static int frame_fixed_width(frame_T *frp); 33 static void frame_add_statusline(frame_T *frp); 34 static void frame_new_width(frame_T *topfrp, int width, int leftfirst, int wfw); 35 static void frame_add_vsep(frame_T *frp); 36 static int frame_minwidth(frame_T *topfrp, win_T *next_curwin); 37 static void frame_fix_width(win_T *wp); 38 static int win_alloc_firstwin(win_T *oldwin); 39 static void new_frame(win_T *wp); 40 static tabpage_T *alloc_tabpage(void); 41 static int leave_tabpage(buf_T *new_curbuf, int trigger_leave_autocmds); 42 static void enter_tabpage(tabpage_T *tp, buf_T *old_curbuf, int trigger_enter_autocmds, int trigger_leave_autocmds); 43 static void frame_fix_height(win_T *wp); 44 static int frame_minheight(frame_T *topfrp, win_T *next_curwin); 45 static void win_enter_ext(win_T *wp, int undo_sync, int no_curwin, int trigger_new_autocmds, int trigger_enter_autocmds, int trigger_leave_autocmds); 46 static void win_free(win_T *wp, tabpage_T *tp); 47 static void frame_append(frame_T *after, frame_T *frp); 48 static void frame_insert(frame_T *before, frame_T *frp); 49 static void frame_remove(frame_T *frp); 50 static void win_goto_ver(int up, long count); 51 static void win_goto_hor(int left, long count); 52 static void frame_add_height(frame_T *frp, int n); 53 static void last_status_rec(frame_T *fr, int statusline); 54 55 static void make_snapshot_rec(frame_T *fr, frame_T **frp); 56 static void clear_snapshot(tabpage_T *tp, int idx); 57 static void clear_snapshot_rec(frame_T *fr); 58 static int check_snapshot_rec(frame_T *sn, frame_T *fr); 59 static win_T *restore_snapshot_rec(frame_T *sn, frame_T *fr); 60 61 static int frame_check_height(frame_T *topfrp, int height); 62 static int frame_check_width(frame_T *topfrp, int width); 63 64 static win_T *win_alloc(win_T *after, int hidden); 65 66 #define URL_SLASH 1 /* path_is_url() has found "://" */ 67 #define URL_BACKSLASH 2 /* path_is_url() has found ":\\" */ 68 69 #define NOWIN (win_T *)-1 /* non-existing window */ 70 71 #define ROWS_AVAIL (Rows - p_ch - tabline_height()) 72 73 static char *m_onlyone = N_("Already only one window"); 74 75 /* 76 * all CTRL-W window commands are handled here, called from normal_cmd(). 77 */ 78 void 79 do_window( 80 int nchar, 81 long Prenum, 82 int xchar) /* extra char from ":wincmd gx" or NUL */ 83 { 84 long Prenum1; 85 win_T *wp; 86 #if defined(FEAT_SEARCHPATH) || defined(FEAT_FIND_ID) 87 char_u *ptr; 88 linenr_T lnum = -1; 89 #endif 90 #ifdef FEAT_FIND_ID 91 int type = FIND_DEFINE; 92 int len; 93 #endif 94 char_u cbuf[40]; 95 96 if (Prenum == 0) 97 Prenum1 = 1; 98 else 99 Prenum1 = Prenum; 100 101 #ifdef FEAT_CMDWIN 102 # define CHECK_CMDWIN \ 103 do { \ 104 if (cmdwin_type != 0) \ 105 { \ 106 EMSG(_(e_cmdwin)); \ 107 return; \ 108 } \ 109 } while (0) 110 #else 111 # define CHECK_CMDWIN do { /**/ } while (0) 112 #endif 113 114 switch (nchar) 115 { 116 /* split current window in two parts, horizontally */ 117 case 'S': 118 case Ctrl_S: 119 case 's': 120 CHECK_CMDWIN; 121 reset_VIsual_and_resel(); /* stop Visual mode */ 122 #ifdef FEAT_QUICKFIX 123 /* When splitting the quickfix window open a new buffer in it, 124 * don't replicate the quickfix buffer. */ 125 if (bt_quickfix(curbuf)) 126 goto newwindow; 127 #endif 128 #ifdef FEAT_GUI 129 need_mouse_correct = TRUE; 130 #endif 131 (void)win_split((int)Prenum, 0); 132 break; 133 134 /* split current window in two parts, vertically */ 135 case Ctrl_V: 136 case 'v': 137 CHECK_CMDWIN; 138 reset_VIsual_and_resel(); /* stop Visual mode */ 139 #ifdef FEAT_QUICKFIX 140 /* When splitting the quickfix window open a new buffer in it, 141 * don't replicate the quickfix buffer. */ 142 if (bt_quickfix(curbuf)) 143 goto newwindow; 144 #endif 145 #ifdef FEAT_GUI 146 need_mouse_correct = TRUE; 147 #endif 148 (void)win_split((int)Prenum, WSP_VERT); 149 break; 150 151 /* split current window and edit alternate file */ 152 case Ctrl_HAT: 153 case '^': 154 CHECK_CMDWIN; 155 reset_VIsual_and_resel(); /* stop Visual mode */ 156 cmd_with_count("split #", cbuf, sizeof(cbuf), Prenum); 157 do_cmdline_cmd(cbuf); 158 break; 159 160 /* open new window */ 161 case Ctrl_N: 162 case 'n': 163 CHECK_CMDWIN; 164 reset_VIsual_and_resel(); /* stop Visual mode */ 165 #ifdef FEAT_QUICKFIX 166 newwindow: 167 #endif 168 if (Prenum) 169 /* window height */ 170 vim_snprintf((char *)cbuf, sizeof(cbuf) - 5, "%ld", Prenum); 171 else 172 cbuf[0] = NUL; 173 #if defined(FEAT_QUICKFIX) 174 if (nchar == 'v' || nchar == Ctrl_V) 175 STRCAT(cbuf, "v"); 176 #endif 177 STRCAT(cbuf, "new"); 178 do_cmdline_cmd(cbuf); 179 break; 180 181 /* quit current window */ 182 case Ctrl_Q: 183 case 'q': 184 reset_VIsual_and_resel(); /* stop Visual mode */ 185 cmd_with_count("quit", cbuf, sizeof(cbuf), Prenum); 186 do_cmdline_cmd(cbuf); 187 break; 188 189 /* close current window */ 190 case Ctrl_C: 191 case 'c': 192 reset_VIsual_and_resel(); /* stop Visual mode */ 193 cmd_with_count("close", cbuf, sizeof(cbuf), Prenum); 194 do_cmdline_cmd(cbuf); 195 break; 196 197 #if defined(FEAT_QUICKFIX) 198 /* close preview window */ 199 case Ctrl_Z: 200 case 'z': 201 CHECK_CMDWIN; 202 reset_VIsual_and_resel(); /* stop Visual mode */ 203 do_cmdline_cmd((char_u *)"pclose"); 204 break; 205 206 /* cursor to preview window */ 207 case 'P': 208 FOR_ALL_WINDOWS(wp) 209 if (wp->w_p_pvw) 210 break; 211 if (wp == NULL) 212 EMSG(_("E441: There is no preview window")); 213 else 214 win_goto(wp); 215 break; 216 #endif 217 218 /* close all but current window */ 219 case Ctrl_O: 220 case 'o': 221 CHECK_CMDWIN; 222 reset_VIsual_and_resel(); /* stop Visual mode */ 223 cmd_with_count("only", cbuf, sizeof(cbuf), Prenum); 224 do_cmdline_cmd(cbuf); 225 break; 226 227 /* cursor to next window with wrap around */ 228 case Ctrl_W: 229 case 'w': 230 /* cursor to previous window with wrap around */ 231 case 'W': 232 CHECK_CMDWIN; 233 if (ONE_WINDOW && Prenum != 1) /* just one window */ 234 beep_flush(); 235 else 236 { 237 if (Prenum) /* go to specified window */ 238 { 239 for (wp = firstwin; --Prenum > 0; ) 240 { 241 if (wp->w_next == NULL) 242 break; 243 else 244 wp = wp->w_next; 245 } 246 } 247 else 248 { 249 if (nchar == 'W') /* go to previous window */ 250 { 251 wp = curwin->w_prev; 252 if (wp == NULL) 253 wp = lastwin; /* wrap around */ 254 } 255 else /* go to next window */ 256 { 257 wp = curwin->w_next; 258 if (wp == NULL) 259 wp = firstwin; /* wrap around */ 260 } 261 } 262 win_goto(wp); 263 } 264 break; 265 266 /* cursor to window below */ 267 case 'j': 268 case K_DOWN: 269 case Ctrl_J: 270 CHECK_CMDWIN; 271 win_goto_ver(FALSE, Prenum1); 272 break; 273 274 /* cursor to window above */ 275 case 'k': 276 case K_UP: 277 case Ctrl_K: 278 CHECK_CMDWIN; 279 win_goto_ver(TRUE, Prenum1); 280 break; 281 282 /* cursor to left window */ 283 case 'h': 284 case K_LEFT: 285 case Ctrl_H: 286 case K_BS: 287 CHECK_CMDWIN; 288 win_goto_hor(TRUE, Prenum1); 289 break; 290 291 /* cursor to right window */ 292 case 'l': 293 case K_RIGHT: 294 case Ctrl_L: 295 CHECK_CMDWIN; 296 win_goto_hor(FALSE, Prenum1); 297 break; 298 299 /* move window to new tab page */ 300 case 'T': 301 if (one_window()) 302 MSG(_(m_onlyone)); 303 else 304 { 305 tabpage_T *oldtab = curtab; 306 tabpage_T *newtab; 307 308 /* First create a new tab with the window, then go back to 309 * the old tab and close the window there. */ 310 wp = curwin; 311 if (win_new_tabpage((int)Prenum) == OK 312 && valid_tabpage(oldtab)) 313 { 314 newtab = curtab; 315 goto_tabpage_tp(oldtab, TRUE, TRUE); 316 if (curwin == wp) 317 win_close(curwin, FALSE); 318 if (valid_tabpage(newtab)) 319 goto_tabpage_tp(newtab, TRUE, TRUE); 320 } 321 } 322 break; 323 324 /* cursor to top-left window */ 325 case 't': 326 case Ctrl_T: 327 win_goto(firstwin); 328 break; 329 330 /* cursor to bottom-right window */ 331 case 'b': 332 case Ctrl_B: 333 win_goto(lastwin); 334 break; 335 336 /* cursor to last accessed (previous) window */ 337 case 'p': 338 case Ctrl_P: 339 if (!win_valid(prevwin)) 340 beep_flush(); 341 else 342 win_goto(prevwin); 343 break; 344 345 /* exchange current and next window */ 346 case 'x': 347 case Ctrl_X: 348 CHECK_CMDWIN; 349 win_exchange(Prenum); 350 break; 351 352 /* rotate windows downwards */ 353 case Ctrl_R: 354 case 'r': 355 CHECK_CMDWIN; 356 reset_VIsual_and_resel(); /* stop Visual mode */ 357 win_rotate(FALSE, (int)Prenum1); /* downwards */ 358 break; 359 360 /* rotate windows upwards */ 361 case 'R': 362 CHECK_CMDWIN; 363 reset_VIsual_and_resel(); /* stop Visual mode */ 364 win_rotate(TRUE, (int)Prenum1); /* upwards */ 365 break; 366 367 /* move window to the very top/bottom/left/right */ 368 case 'K': 369 case 'J': 370 case 'H': 371 case 'L': 372 CHECK_CMDWIN; 373 win_totop((int)Prenum, 374 ((nchar == 'H' || nchar == 'L') ? WSP_VERT : 0) 375 | ((nchar == 'H' || nchar == 'K') ? WSP_TOP : WSP_BOT)); 376 break; 377 378 /* make all windows the same height */ 379 case '=': 380 #ifdef FEAT_GUI 381 need_mouse_correct = TRUE; 382 #endif 383 win_equal(NULL, FALSE, 'b'); 384 break; 385 386 /* increase current window height */ 387 case '+': 388 #ifdef FEAT_GUI 389 need_mouse_correct = TRUE; 390 #endif 391 win_setheight(curwin->w_height + (int)Prenum1); 392 break; 393 394 /* decrease current window height */ 395 case '-': 396 #ifdef FEAT_GUI 397 need_mouse_correct = TRUE; 398 #endif 399 win_setheight(curwin->w_height - (int)Prenum1); 400 break; 401 402 /* set current window height */ 403 case Ctrl__: 404 case '_': 405 #ifdef FEAT_GUI 406 need_mouse_correct = TRUE; 407 #endif 408 win_setheight(Prenum ? (int)Prenum : 9999); 409 break; 410 411 /* increase current window width */ 412 case '>': 413 #ifdef FEAT_GUI 414 need_mouse_correct = TRUE; 415 #endif 416 win_setwidth(curwin->w_width + (int)Prenum1); 417 break; 418 419 /* decrease current window width */ 420 case '<': 421 #ifdef FEAT_GUI 422 need_mouse_correct = TRUE; 423 #endif 424 win_setwidth(curwin->w_width - (int)Prenum1); 425 break; 426 427 /* set current window width */ 428 case '|': 429 #ifdef FEAT_GUI 430 need_mouse_correct = TRUE; 431 #endif 432 win_setwidth(Prenum != 0 ? (int)Prenum : 9999); 433 break; 434 435 /* jump to tag and split window if tag exists (in preview window) */ 436 #if defined(FEAT_QUICKFIX) 437 case '}': 438 CHECK_CMDWIN; 439 if (Prenum) 440 g_do_tagpreview = Prenum; 441 else 442 g_do_tagpreview = p_pvh; 443 #endif 444 /* FALLTHROUGH */ 445 case ']': 446 case Ctrl_RSB: 447 CHECK_CMDWIN; 448 /* keep Visual mode, can select words to use as a tag */ 449 if (Prenum) 450 postponed_split = Prenum; 451 else 452 postponed_split = -1; 453 #ifdef FEAT_QUICKFIX 454 if (nchar != '}') 455 g_do_tagpreview = 0; 456 #endif 457 458 /* Execute the command right here, required when "wincmd ]" 459 * was used in a function. */ 460 do_nv_ident(Ctrl_RSB, NUL); 461 break; 462 463 #ifdef FEAT_SEARCHPATH 464 /* edit file name under cursor in a new window */ 465 case 'f': 466 case 'F': 467 case Ctrl_F: 468 wingotofile: 469 CHECK_CMDWIN; 470 471 ptr = grab_file_name(Prenum1, &lnum); 472 if (ptr != NULL) 473 { 474 tabpage_T *oldtab = curtab; 475 win_T *oldwin = curwin; 476 # ifdef FEAT_GUI 477 need_mouse_correct = TRUE; 478 # endif 479 setpcmark(); 480 if (win_split(0, 0) == OK) 481 { 482 RESET_BINDING(curwin); 483 if (do_ecmd(0, ptr, NULL, NULL, ECMD_LASTL, 484 ECMD_HIDE, NULL) == FAIL) 485 { 486 /* Failed to open the file, close the window 487 * opened for it. */ 488 win_close(curwin, FALSE); 489 goto_tabpage_win(oldtab, oldwin); 490 } 491 else if (nchar == 'F' && lnum >= 0) 492 { 493 curwin->w_cursor.lnum = lnum; 494 check_cursor_lnum(); 495 beginline(BL_SOL | BL_FIX); 496 } 497 } 498 vim_free(ptr); 499 } 500 break; 501 #endif 502 503 #ifdef FEAT_FIND_ID 504 /* Go to the first occurrence of the identifier under cursor along path in a 505 * new window -- webb 506 */ 507 case 'i': /* Go to any match */ 508 case Ctrl_I: 509 type = FIND_ANY; 510 /* FALLTHROUGH */ 511 case 'd': /* Go to definition, using 'define' */ 512 case Ctrl_D: 513 CHECK_CMDWIN; 514 if ((len = find_ident_under_cursor(&ptr, FIND_IDENT)) == 0) 515 break; 516 find_pattern_in_path(ptr, 0, len, TRUE, 517 Prenum == 0 ? TRUE : FALSE, type, 518 Prenum1, ACTION_SPLIT, (linenr_T)1, (linenr_T)MAXLNUM); 519 curwin->w_set_curswant = TRUE; 520 break; 521 #endif 522 523 case K_KENTER: 524 case CAR: 525 #if defined(FEAT_QUICKFIX) 526 /* 527 * In a quickfix window a <CR> jumps to the error under the 528 * cursor in a new window. 529 */ 530 if (bt_quickfix(curbuf)) 531 { 532 sprintf((char *)cbuf, "split +%ld%s", 533 (long)curwin->w_cursor.lnum, 534 (curwin->w_llist_ref == NULL) ? "cc" : "ll"); 535 do_cmdline_cmd(cbuf); 536 } 537 #endif 538 break; 539 540 541 /* CTRL-W g extended commands */ 542 case 'g': 543 case Ctrl_G: 544 CHECK_CMDWIN; 545 #ifdef USE_ON_FLY_SCROLL 546 dont_scroll = TRUE; /* disallow scrolling here */ 547 #endif 548 ++no_mapping; 549 ++allow_keys; /* no mapping for xchar, but allow key codes */ 550 if (xchar == NUL) 551 xchar = plain_vgetc(); 552 LANGMAP_ADJUST(xchar, TRUE); 553 --no_mapping; 554 --allow_keys; 555 #ifdef FEAT_CMDL_INFO 556 (void)add_to_showcmd(xchar); 557 #endif 558 switch (xchar) 559 { 560 #if defined(FEAT_QUICKFIX) 561 case '}': 562 xchar = Ctrl_RSB; 563 if (Prenum) 564 g_do_tagpreview = Prenum; 565 else 566 g_do_tagpreview = p_pvh; 567 #endif 568 /* FALLTHROUGH */ 569 case ']': 570 case Ctrl_RSB: 571 /* keep Visual mode, can select words to use as a tag */ 572 if (Prenum) 573 postponed_split = Prenum; 574 else 575 postponed_split = -1; 576 577 /* Execute the command right here, required when 578 * "wincmd g}" was used in a function. */ 579 do_nv_ident('g', xchar); 580 break; 581 582 #ifdef FEAT_SEARCHPATH 583 case 'f': /* CTRL-W gf: "gf" in a new tab page */ 584 case 'F': /* CTRL-W gF: "gF" in a new tab page */ 585 cmdmod.tab = tabpage_index(curtab) + 1; 586 nchar = xchar; 587 goto wingotofile; 588 #endif 589 default: 590 beep_flush(); 591 break; 592 } 593 break; 594 595 default: beep_flush(); 596 break; 597 } 598 } 599 600 /* 601 * Figure out the address type for ":wnncmd". 602 */ 603 void 604 get_wincmd_addr_type(char_u *arg, exarg_T *eap) 605 { 606 switch (*arg) 607 { 608 case 'S': 609 case Ctrl_S: 610 case 's': 611 case Ctrl_N: 612 case 'n': 613 case 'j': 614 case Ctrl_J: 615 case 'k': 616 case Ctrl_K: 617 case 'T': 618 case Ctrl_R: 619 case 'r': 620 case 'R': 621 case 'K': 622 case 'J': 623 case '+': 624 case '-': 625 case Ctrl__: 626 case '_': 627 case '|': 628 case ']': 629 case Ctrl_RSB: 630 case 'g': 631 case Ctrl_G: 632 case Ctrl_V: 633 case 'v': 634 case 'h': 635 case Ctrl_H: 636 case 'l': 637 case Ctrl_L: 638 case 'H': 639 case 'L': 640 case '>': 641 case '<': 642 #if defined(FEAT_QUICKFIX) 643 case '}': 644 #endif 645 #ifdef FEAT_SEARCHPATH 646 case 'f': 647 case 'F': 648 case Ctrl_F: 649 #endif 650 #ifdef FEAT_FIND_ID 651 case 'i': 652 case Ctrl_I: 653 case 'd': 654 case Ctrl_D: 655 #endif 656 /* window size or any count */ 657 eap->addr_type = ADDR_LINES; 658 break; 659 660 case Ctrl_HAT: 661 case '^': 662 /* buffer number */ 663 eap->addr_type = ADDR_BUFFERS; 664 break; 665 666 case Ctrl_Q: 667 case 'q': 668 case Ctrl_C: 669 case 'c': 670 case Ctrl_O: 671 case 'o': 672 case Ctrl_W: 673 case 'w': 674 case 'W': 675 case 'x': 676 case Ctrl_X: 677 /* window number */ 678 eap->addr_type = ADDR_WINDOWS; 679 break; 680 681 #if defined(FEAT_QUICKFIX) 682 case Ctrl_Z: 683 case 'z': 684 case 'P': 685 #endif 686 case 't': 687 case Ctrl_T: 688 case 'b': 689 case Ctrl_B: 690 case 'p': 691 case Ctrl_P: 692 case '=': 693 case CAR: 694 /* no count */ 695 eap->addr_type = 0; 696 break; 697 } 698 } 699 700 static void 701 cmd_with_count( 702 char *cmd, 703 char_u *bufp, 704 size_t bufsize, 705 long Prenum) 706 { 707 size_t len = STRLEN(cmd); 708 709 STRCPY(bufp, cmd); 710 if (Prenum > 0) 711 vim_snprintf((char *)bufp + len, bufsize - len, "%ld", Prenum); 712 } 713 714 /* 715 * split the current window, implements CTRL-W s and :split 716 * 717 * "size" is the height or width for the new window, 0 to use half of current 718 * height or width. 719 * 720 * "flags": 721 * WSP_ROOM: require enough room for new window 722 * WSP_VERT: vertical split. 723 * WSP_TOP: open window at the top-left of the shell (help window). 724 * WSP_BOT: open window at the bottom-right of the shell (quickfix window). 725 * WSP_HELP: creating the help window, keep layout snapshot 726 * 727 * return FAIL for failure, OK otherwise 728 */ 729 int 730 win_split(int size, int flags) 731 { 732 /* When the ":tab" modifier was used open a new tab page instead. */ 733 if (may_open_tabpage() == OK) 734 return OK; 735 736 /* Add flags from ":vertical", ":topleft" and ":botright". */ 737 flags |= cmdmod.split; 738 if ((flags & WSP_TOP) && (flags & WSP_BOT)) 739 { 740 EMSG(_("E442: Can't split topleft and botright at the same time")); 741 return FAIL; 742 } 743 744 /* When creating the help window make a snapshot of the window layout. 745 * Otherwise clear the snapshot, it's now invalid. */ 746 if (flags & WSP_HELP) 747 make_snapshot(SNAP_HELP_IDX); 748 else 749 clear_snapshot(curtab, SNAP_HELP_IDX); 750 751 return win_split_ins(size, flags, NULL, 0); 752 } 753 754 /* 755 * When "new_wp" is NULL: split the current window in two. 756 * When "new_wp" is not NULL: insert this window at the far 757 * top/left/right/bottom. 758 * return FAIL for failure, OK otherwise 759 */ 760 int 761 win_split_ins( 762 int size, 763 int flags, 764 win_T *new_wp, 765 int dir) 766 { 767 win_T *wp = new_wp; 768 win_T *oldwin; 769 int new_size = size; 770 int i; 771 int need_status = 0; 772 int do_equal = FALSE; 773 int needed; 774 int available; 775 int oldwin_height = 0; 776 int layout; 777 frame_T *frp, *curfrp, *frp2, *prevfrp; 778 int before; 779 int minheight; 780 int wmh1; 781 int did_set_fraction = FALSE; 782 783 if (flags & WSP_TOP) 784 oldwin = firstwin; 785 else if (flags & WSP_BOT) 786 oldwin = lastwin; 787 else 788 oldwin = curwin; 789 790 /* add a status line when p_ls == 1 and splitting the first window */ 791 if (ONE_WINDOW && p_ls == 1 && oldwin->w_status_height == 0) 792 { 793 if (VISIBLE_HEIGHT(oldwin) <= p_wmh && new_wp == NULL) 794 { 795 EMSG(_(e_noroom)); 796 return FAIL; 797 } 798 need_status = STATUS_HEIGHT; 799 } 800 801 #ifdef FEAT_GUI 802 /* May be needed for the scrollbars that are going to change. */ 803 if (gui.in_use) 804 out_flush(); 805 #endif 806 807 if (flags & WSP_VERT) 808 { 809 int wmw1; 810 int minwidth; 811 812 layout = FR_ROW; 813 814 /* 815 * Check if we are able to split the current window and compute its 816 * width. 817 */ 818 /* Current window requires at least 1 space. */ 819 wmw1 = (p_wmw == 0 ? 1 : p_wmw); 820 needed = wmw1 + 1; 821 if (flags & WSP_ROOM) 822 needed += p_wiw - wmw1; 823 if (flags & (WSP_BOT | WSP_TOP)) 824 { 825 minwidth = frame_minwidth(topframe, NOWIN); 826 available = topframe->fr_width; 827 needed += minwidth; 828 } 829 else if (p_ea) 830 { 831 minwidth = frame_minwidth(oldwin->w_frame, NOWIN); 832 prevfrp = oldwin->w_frame; 833 for (frp = oldwin->w_frame->fr_parent; frp != NULL; 834 frp = frp->fr_parent) 835 { 836 if (frp->fr_layout == FR_ROW) 837 for (frp2 = frp->fr_child; frp2 != NULL; 838 frp2 = frp2->fr_next) 839 if (frp2 != prevfrp) 840 minwidth += frame_minwidth(frp2, NOWIN); 841 prevfrp = frp; 842 } 843 available = topframe->fr_width; 844 needed += minwidth; 845 } 846 else 847 { 848 minwidth = frame_minwidth(oldwin->w_frame, NOWIN); 849 available = oldwin->w_frame->fr_width; 850 needed += minwidth; 851 } 852 if (available < needed && new_wp == NULL) 853 { 854 EMSG(_(e_noroom)); 855 return FAIL; 856 } 857 if (new_size == 0) 858 new_size = oldwin->w_width / 2; 859 if (new_size > available - minwidth - 1) 860 new_size = available - minwidth - 1; 861 if (new_size < wmw1) 862 new_size = wmw1; 863 864 /* if it doesn't fit in the current window, need win_equal() */ 865 if (oldwin->w_width - new_size - 1 < p_wmw) 866 do_equal = TRUE; 867 868 /* We don't like to take lines for the new window from a 869 * 'winfixwidth' window. Take them from a window to the left or right 870 * instead, if possible. Add one for the separator. */ 871 if (oldwin->w_p_wfw) 872 win_setwidth_win(oldwin->w_width + new_size + 1, oldwin); 873 874 /* Only make all windows the same width if one of them (except oldwin) 875 * is wider than one of the split windows. */ 876 if (!do_equal && p_ea && size == 0 && *p_ead != 'v' 877 && oldwin->w_frame->fr_parent != NULL) 878 { 879 frp = oldwin->w_frame->fr_parent->fr_child; 880 while (frp != NULL) 881 { 882 if (frp->fr_win != oldwin && frp->fr_win != NULL 883 && (frp->fr_win->w_width > new_size 884 || frp->fr_win->w_width > oldwin->w_width 885 - new_size - 1)) 886 { 887 do_equal = TRUE; 888 break; 889 } 890 frp = frp->fr_next; 891 } 892 } 893 } 894 else 895 { 896 layout = FR_COL; 897 898 /* 899 * Check if we are able to split the current window and compute its 900 * height. 901 */ 902 /* Current window requires at least 1 space. */ 903 wmh1 = (p_wmh == 0 ? 1 : p_wmh) + WINBAR_HEIGHT(curwin); 904 needed = wmh1 + STATUS_HEIGHT; 905 if (flags & WSP_ROOM) 906 needed += p_wh - wmh1; 907 if (flags & (WSP_BOT | WSP_TOP)) 908 { 909 minheight = frame_minheight(topframe, NOWIN) + need_status; 910 available = topframe->fr_height; 911 needed += minheight; 912 } 913 else if (p_ea) 914 { 915 minheight = frame_minheight(oldwin->w_frame, NOWIN) + need_status; 916 prevfrp = oldwin->w_frame; 917 for (frp = oldwin->w_frame->fr_parent; frp != NULL; 918 frp = frp->fr_parent) 919 { 920 if (frp->fr_layout == FR_COL) 921 for (frp2 = frp->fr_child; frp2 != NULL; 922 frp2 = frp2->fr_next) 923 if (frp2 != prevfrp) 924 minheight += frame_minheight(frp2, NOWIN); 925 prevfrp = frp; 926 } 927 available = topframe->fr_height; 928 needed += minheight; 929 } 930 else 931 { 932 minheight = frame_minheight(oldwin->w_frame, NOWIN) + need_status; 933 available = oldwin->w_frame->fr_height; 934 needed += minheight; 935 } 936 if (available < needed && new_wp == NULL) 937 { 938 EMSG(_(e_noroom)); 939 return FAIL; 940 } 941 oldwin_height = oldwin->w_height; 942 if (need_status) 943 { 944 oldwin->w_status_height = STATUS_HEIGHT; 945 oldwin_height -= STATUS_HEIGHT; 946 } 947 if (new_size == 0) 948 new_size = oldwin_height / 2; 949 if (new_size > available - minheight - STATUS_HEIGHT) 950 new_size = available - minheight - STATUS_HEIGHT; 951 if (new_size < wmh1) 952 new_size = wmh1; 953 954 /* if it doesn't fit in the current window, need win_equal() */ 955 if (oldwin_height - new_size - STATUS_HEIGHT < p_wmh) 956 do_equal = TRUE; 957 958 /* We don't like to take lines for the new window from a 959 * 'winfixheight' window. Take them from a window above or below 960 * instead, if possible. */ 961 if (oldwin->w_p_wfh) 962 { 963 /* Set w_fraction now so that the cursor keeps the same relative 964 * vertical position using the old height. */ 965 set_fraction(oldwin); 966 did_set_fraction = TRUE; 967 968 win_setheight_win(oldwin->w_height + new_size + STATUS_HEIGHT, 969 oldwin); 970 oldwin_height = oldwin->w_height; 971 if (need_status) 972 oldwin_height -= STATUS_HEIGHT; 973 } 974 975 /* Only make all windows the same height if one of them (except oldwin) 976 * is higher than one of the split windows. */ 977 if (!do_equal && p_ea && size == 0 && *p_ead != 'h' 978 && oldwin->w_frame->fr_parent != NULL) 979 { 980 frp = oldwin->w_frame->fr_parent->fr_child; 981 while (frp != NULL) 982 { 983 if (frp->fr_win != oldwin && frp->fr_win != NULL 984 && (frp->fr_win->w_height > new_size 985 || frp->fr_win->w_height > oldwin_height - new_size 986 - STATUS_HEIGHT)) 987 { 988 do_equal = TRUE; 989 break; 990 } 991 frp = frp->fr_next; 992 } 993 } 994 } 995 996 /* 997 * allocate new window structure and link it in the window list 998 */ 999 if ((flags & WSP_TOP) == 0 1000 && ((flags & WSP_BOT) 1001 || (flags & WSP_BELOW) 1002 || (!(flags & WSP_ABOVE) 1003 && ( (flags & WSP_VERT) ? p_spr : p_sb)))) 1004 { 1005 /* new window below/right of current one */ 1006 if (new_wp == NULL) 1007 wp = win_alloc(oldwin, FALSE); 1008 else 1009 win_append(oldwin, wp); 1010 } 1011 else 1012 { 1013 if (new_wp == NULL) 1014 wp = win_alloc(oldwin->w_prev, FALSE); 1015 else 1016 win_append(oldwin->w_prev, wp); 1017 } 1018 1019 if (new_wp == NULL) 1020 { 1021 if (wp == NULL) 1022 return FAIL; 1023 1024 new_frame(wp); 1025 if (wp->w_frame == NULL) 1026 { 1027 win_free(wp, NULL); 1028 return FAIL; 1029 } 1030 1031 /* make the contents of the new window the same as the current one */ 1032 win_init(wp, curwin, flags); 1033 } 1034 1035 /* 1036 * Reorganise the tree of frames to insert the new window. 1037 */ 1038 if (flags & (WSP_TOP | WSP_BOT)) 1039 { 1040 if ((topframe->fr_layout == FR_COL && (flags & WSP_VERT) == 0) 1041 || (topframe->fr_layout == FR_ROW && (flags & WSP_VERT) != 0)) 1042 { 1043 curfrp = topframe->fr_child; 1044 if (flags & WSP_BOT) 1045 while (curfrp->fr_next != NULL) 1046 curfrp = curfrp->fr_next; 1047 } 1048 else 1049 curfrp = topframe; 1050 before = (flags & WSP_TOP); 1051 } 1052 else 1053 { 1054 curfrp = oldwin->w_frame; 1055 if (flags & WSP_BELOW) 1056 before = FALSE; 1057 else if (flags & WSP_ABOVE) 1058 before = TRUE; 1059 else if (flags & WSP_VERT) 1060 before = !p_spr; 1061 else 1062 before = !p_sb; 1063 } 1064 if (curfrp->fr_parent == NULL || curfrp->fr_parent->fr_layout != layout) 1065 { 1066 /* Need to create a new frame in the tree to make a branch. */ 1067 frp = (frame_T *)alloc_clear((unsigned)sizeof(frame_T)); 1068 *frp = *curfrp; 1069 curfrp->fr_layout = layout; 1070 frp->fr_parent = curfrp; 1071 frp->fr_next = NULL; 1072 frp->fr_prev = NULL; 1073 curfrp->fr_child = frp; 1074 curfrp->fr_win = NULL; 1075 curfrp = frp; 1076 if (frp->fr_win != NULL) 1077 oldwin->w_frame = frp; 1078 else 1079 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 1080 frp->fr_parent = curfrp; 1081 } 1082 1083 if (new_wp == NULL) 1084 frp = wp->w_frame; 1085 else 1086 frp = new_wp->w_frame; 1087 frp->fr_parent = curfrp->fr_parent; 1088 1089 /* Insert the new frame at the right place in the frame list. */ 1090 if (before) 1091 frame_insert(curfrp, frp); 1092 else 1093 frame_append(curfrp, frp); 1094 1095 /* Set w_fraction now so that the cursor keeps the same relative 1096 * vertical position. */ 1097 if (!did_set_fraction) 1098 set_fraction(oldwin); 1099 wp->w_fraction = oldwin->w_fraction; 1100 1101 if (flags & WSP_VERT) 1102 { 1103 wp->w_p_scr = curwin->w_p_scr; 1104 1105 if (need_status) 1106 { 1107 win_new_height(oldwin, oldwin->w_height - 1); 1108 oldwin->w_status_height = need_status; 1109 } 1110 if (flags & (WSP_TOP | WSP_BOT)) 1111 { 1112 /* set height and row of new window to full height */ 1113 wp->w_winrow = tabline_height(); 1114 win_new_height(wp, curfrp->fr_height - (p_ls > 0) 1115 - WINBAR_HEIGHT(wp)); 1116 wp->w_status_height = (p_ls > 0); 1117 } 1118 else 1119 { 1120 /* height and row of new window is same as current window */ 1121 wp->w_winrow = oldwin->w_winrow; 1122 win_new_height(wp, VISIBLE_HEIGHT(oldwin)); 1123 wp->w_status_height = oldwin->w_status_height; 1124 } 1125 frp->fr_height = curfrp->fr_height; 1126 1127 /* "new_size" of the current window goes to the new window, use 1128 * one column for the vertical separator */ 1129 win_new_width(wp, new_size); 1130 if (before) 1131 wp->w_vsep_width = 1; 1132 else 1133 { 1134 wp->w_vsep_width = oldwin->w_vsep_width; 1135 oldwin->w_vsep_width = 1; 1136 } 1137 if (flags & (WSP_TOP | WSP_BOT)) 1138 { 1139 if (flags & WSP_BOT) 1140 frame_add_vsep(curfrp); 1141 /* Set width of neighbor frame */ 1142 frame_new_width(curfrp, curfrp->fr_width 1143 - (new_size + ((flags & WSP_TOP) != 0)), flags & WSP_TOP, 1144 FALSE); 1145 } 1146 else 1147 win_new_width(oldwin, oldwin->w_width - (new_size + 1)); 1148 if (before) /* new window left of current one */ 1149 { 1150 wp->w_wincol = oldwin->w_wincol; 1151 oldwin->w_wincol += new_size + 1; 1152 } 1153 else /* new window right of current one */ 1154 wp->w_wincol = oldwin->w_wincol + oldwin->w_width + 1; 1155 frame_fix_width(oldwin); 1156 frame_fix_width(wp); 1157 } 1158 else 1159 { 1160 /* width and column of new window is same as current window */ 1161 if (flags & (WSP_TOP | WSP_BOT)) 1162 { 1163 wp->w_wincol = 0; 1164 win_new_width(wp, Columns); 1165 wp->w_vsep_width = 0; 1166 } 1167 else 1168 { 1169 wp->w_wincol = oldwin->w_wincol; 1170 win_new_width(wp, oldwin->w_width); 1171 wp->w_vsep_width = oldwin->w_vsep_width; 1172 } 1173 frp->fr_width = curfrp->fr_width; 1174 1175 /* "new_size" of the current window goes to the new window, use 1176 * one row for the status line */ 1177 win_new_height(wp, new_size); 1178 if (flags & (WSP_TOP | WSP_BOT)) 1179 { 1180 int new_fr_height = curfrp->fr_height - new_size 1181 + WINBAR_HEIGHT(wp) ; 1182 1183 if (!((flags & WSP_BOT) && p_ls == 0)) 1184 new_fr_height -= STATUS_HEIGHT; 1185 frame_new_height(curfrp, new_fr_height, flags & WSP_TOP, FALSE); 1186 } 1187 else 1188 win_new_height(oldwin, oldwin_height - (new_size + STATUS_HEIGHT)); 1189 if (before) /* new window above current one */ 1190 { 1191 wp->w_winrow = oldwin->w_winrow; 1192 wp->w_status_height = STATUS_HEIGHT; 1193 oldwin->w_winrow += wp->w_height + STATUS_HEIGHT; 1194 } 1195 else /* new window below current one */ 1196 { 1197 wp->w_winrow = oldwin->w_winrow + VISIBLE_HEIGHT(oldwin) 1198 + STATUS_HEIGHT; 1199 wp->w_status_height = oldwin->w_status_height; 1200 if (!(flags & WSP_BOT)) 1201 oldwin->w_status_height = STATUS_HEIGHT; 1202 } 1203 if (flags & WSP_BOT) 1204 frame_add_statusline(curfrp); 1205 frame_fix_height(wp); 1206 frame_fix_height(oldwin); 1207 } 1208 1209 if (flags & (WSP_TOP | WSP_BOT)) 1210 (void)win_comp_pos(); 1211 1212 /* 1213 * Both windows need redrawing 1214 */ 1215 redraw_win_later(wp, NOT_VALID); 1216 wp->w_redr_status = TRUE; 1217 redraw_win_later(oldwin, NOT_VALID); 1218 oldwin->w_redr_status = TRUE; 1219 1220 if (need_status) 1221 { 1222 msg_row = Rows - 1; 1223 msg_col = sc_col; 1224 msg_clr_eos_force(); /* Old command/ruler may still be there */ 1225 comp_col(); 1226 msg_row = Rows - 1; 1227 msg_col = 0; /* put position back at start of line */ 1228 } 1229 1230 /* 1231 * equalize the window sizes. 1232 */ 1233 if (do_equal || dir != 0) 1234 win_equal(wp, TRUE, 1235 (flags & WSP_VERT) ? (dir == 'v' ? 'b' : 'h') 1236 : dir == 'h' ? 'b' : 'v'); 1237 1238 /* Don't change the window height/width to 'winheight' / 'winwidth' if a 1239 * size was given. */ 1240 if (flags & WSP_VERT) 1241 { 1242 i = p_wiw; 1243 if (size != 0) 1244 p_wiw = size; 1245 1246 # ifdef FEAT_GUI 1247 /* When 'guioptions' includes 'L' or 'R' may have to add scrollbars. */ 1248 if (gui.in_use) 1249 gui_init_which_components(NULL); 1250 # endif 1251 } 1252 else 1253 { 1254 i = p_wh; 1255 if (size != 0) 1256 p_wh = size; 1257 } 1258 1259 #ifdef FEAT_JUMPLIST 1260 /* Keep same changelist position in new window. */ 1261 wp->w_changelistidx = oldwin->w_changelistidx; 1262 #endif 1263 1264 /* 1265 * make the new window the current window 1266 */ 1267 win_enter_ext(wp, FALSE, FALSE, TRUE, TRUE, TRUE); 1268 if (flags & WSP_VERT) 1269 p_wiw = i; 1270 else 1271 p_wh = i; 1272 1273 return OK; 1274 } 1275 1276 1277 /* 1278 * Initialize window "newp" from window "oldp". 1279 * Used when splitting a window and when creating a new tab page. 1280 * The windows will both edit the same buffer. 1281 * WSP_NEWLOC may be specified in flags to prevent the location list from 1282 * being copied. 1283 */ 1284 static void 1285 win_init(win_T *newp, win_T *oldp, int flags UNUSED) 1286 { 1287 int i; 1288 1289 newp->w_buffer = oldp->w_buffer; 1290 #ifdef FEAT_SYN_HL 1291 newp->w_s = &(oldp->w_buffer->b_s); 1292 #endif 1293 oldp->w_buffer->b_nwindows++; 1294 newp->w_cursor = oldp->w_cursor; 1295 newp->w_valid = 0; 1296 newp->w_curswant = oldp->w_curswant; 1297 newp->w_set_curswant = oldp->w_set_curswant; 1298 newp->w_topline = oldp->w_topline; 1299 #ifdef FEAT_DIFF 1300 newp->w_topfill = oldp->w_topfill; 1301 #endif 1302 newp->w_leftcol = oldp->w_leftcol; 1303 newp->w_pcmark = oldp->w_pcmark; 1304 newp->w_prev_pcmark = oldp->w_prev_pcmark; 1305 newp->w_alt_fnum = oldp->w_alt_fnum; 1306 newp->w_wrow = oldp->w_wrow; 1307 newp->w_fraction = oldp->w_fraction; 1308 newp->w_prev_fraction_row = oldp->w_prev_fraction_row; 1309 #ifdef FEAT_JUMPLIST 1310 copy_jumplist(oldp, newp); 1311 #endif 1312 #ifdef FEAT_QUICKFIX 1313 if (flags & WSP_NEWLOC) 1314 { 1315 /* Don't copy the location list. */ 1316 newp->w_llist = NULL; 1317 newp->w_llist_ref = NULL; 1318 } 1319 else 1320 copy_loclist(oldp, newp); 1321 #endif 1322 newp->w_localdir = (oldp->w_localdir == NULL) 1323 ? NULL : vim_strsave(oldp->w_localdir); 1324 1325 /* copy tagstack and folds */ 1326 for (i = 0; i < oldp->w_tagstacklen; i++) 1327 { 1328 newp->w_tagstack[i] = oldp->w_tagstack[i]; 1329 if (newp->w_tagstack[i].tagname != NULL) 1330 newp->w_tagstack[i].tagname = 1331 vim_strsave(newp->w_tagstack[i].tagname); 1332 } 1333 newp->w_tagstackidx = oldp->w_tagstackidx; 1334 newp->w_tagstacklen = oldp->w_tagstacklen; 1335 #ifdef FEAT_FOLDING 1336 copyFoldingState(oldp, newp); 1337 #endif 1338 1339 win_init_some(newp, oldp); 1340 1341 #ifdef FEAT_SYN_HL 1342 check_colorcolumn(newp); 1343 #endif 1344 } 1345 1346 /* 1347 * Initialize window "newp" from window "old". 1348 * Only the essential things are copied. 1349 */ 1350 static void 1351 win_init_some(win_T *newp, win_T *oldp) 1352 { 1353 /* Use the same argument list. */ 1354 newp->w_alist = oldp->w_alist; 1355 ++newp->w_alist->al_refcount; 1356 newp->w_arg_idx = oldp->w_arg_idx; 1357 1358 /* copy options from existing window */ 1359 win_copy_options(oldp, newp); 1360 } 1361 1362 1363 /* 1364 * Check if "win" is a pointer to an existing window in the current tab page. 1365 */ 1366 int 1367 win_valid(win_T *win) 1368 { 1369 win_T *wp; 1370 1371 if (win == NULL) 1372 return FALSE; 1373 FOR_ALL_WINDOWS(wp) 1374 if (wp == win) 1375 return TRUE; 1376 return FALSE; 1377 } 1378 1379 /* 1380 * Check if "win" is a pointer to an existing window in any tab page. 1381 */ 1382 int 1383 win_valid_any_tab(win_T *win) 1384 { 1385 win_T *wp; 1386 tabpage_T *tp; 1387 1388 if (win == NULL) 1389 return FALSE; 1390 FOR_ALL_TABPAGES(tp) 1391 { 1392 FOR_ALL_WINDOWS_IN_TAB(tp, wp) 1393 { 1394 if (wp == win) 1395 return TRUE; 1396 } 1397 } 1398 return FALSE; 1399 } 1400 1401 /* 1402 * Return the number of windows. 1403 */ 1404 int 1405 win_count(void) 1406 { 1407 win_T *wp; 1408 int count = 0; 1409 1410 FOR_ALL_WINDOWS(wp) 1411 ++count; 1412 return count; 1413 } 1414 1415 /* 1416 * Make "count" windows on the screen. 1417 * Return actual number of windows on the screen. 1418 * Must be called when there is just one window, filling the whole screen 1419 * (excluding the command line). 1420 */ 1421 int 1422 make_windows( 1423 int count, 1424 int vertical UNUSED) /* split windows vertically if TRUE */ 1425 { 1426 int maxcount; 1427 int todo; 1428 1429 if (vertical) 1430 { 1431 /* Each windows needs at least 'winminwidth' lines and a separator 1432 * column. */ 1433 maxcount = (curwin->w_width + curwin->w_vsep_width 1434 - (p_wiw - p_wmw)) / (p_wmw + 1); 1435 } 1436 else 1437 { 1438 /* Each window needs at least 'winminheight' lines and a status line. */ 1439 maxcount = (VISIBLE_HEIGHT(curwin) + curwin->w_status_height 1440 - (p_wh - p_wmh)) / (p_wmh + STATUS_HEIGHT); 1441 } 1442 1443 if (maxcount < 2) 1444 maxcount = 2; 1445 if (count > maxcount) 1446 count = maxcount; 1447 1448 /* 1449 * add status line now, otherwise first window will be too big 1450 */ 1451 if (count > 1) 1452 last_status(TRUE); 1453 1454 /* 1455 * Don't execute autocommands while creating the windows. Must do that 1456 * when putting the buffers in the windows. 1457 */ 1458 block_autocmds(); 1459 1460 /* todo is number of windows left to create */ 1461 for (todo = count - 1; todo > 0; --todo) 1462 if (vertical) 1463 { 1464 if (win_split(curwin->w_width - (curwin->w_width - todo) 1465 / (todo + 1) - 1, WSP_VERT | WSP_ABOVE) == FAIL) 1466 break; 1467 } 1468 else 1469 { 1470 if (win_split(curwin->w_height - (curwin->w_height - todo 1471 * STATUS_HEIGHT) / (todo + 1) 1472 - STATUS_HEIGHT, WSP_ABOVE) == FAIL) 1473 break; 1474 } 1475 1476 unblock_autocmds(); 1477 1478 /* return actual number of windows */ 1479 return (count - todo); 1480 } 1481 1482 /* 1483 * Exchange current and next window 1484 */ 1485 static void 1486 win_exchange(long Prenum) 1487 { 1488 frame_T *frp; 1489 frame_T *frp2; 1490 win_T *wp; 1491 win_T *wp2; 1492 int temp; 1493 1494 if (ONE_WINDOW) /* just one window */ 1495 { 1496 beep_flush(); 1497 return; 1498 } 1499 1500 #ifdef FEAT_GUI 1501 need_mouse_correct = TRUE; 1502 #endif 1503 1504 /* 1505 * find window to exchange with 1506 */ 1507 if (Prenum) 1508 { 1509 frp = curwin->w_frame->fr_parent->fr_child; 1510 while (frp != NULL && --Prenum > 0) 1511 frp = frp->fr_next; 1512 } 1513 else if (curwin->w_frame->fr_next != NULL) /* Swap with next */ 1514 frp = curwin->w_frame->fr_next; 1515 else /* Swap last window in row/col with previous */ 1516 frp = curwin->w_frame->fr_prev; 1517 1518 /* We can only exchange a window with another window, not with a frame 1519 * containing windows. */ 1520 if (frp == NULL || frp->fr_win == NULL || frp->fr_win == curwin) 1521 return; 1522 wp = frp->fr_win; 1523 1524 /* 1525 * 1. remove curwin from the list. Remember after which window it was in wp2 1526 * 2. insert curwin before wp in the list 1527 * if wp != wp2 1528 * 3. remove wp from the list 1529 * 4. insert wp after wp2 1530 * 5. exchange the status line height and vsep width. 1531 */ 1532 wp2 = curwin->w_prev; 1533 frp2 = curwin->w_frame->fr_prev; 1534 if (wp->w_prev != curwin) 1535 { 1536 win_remove(curwin, NULL); 1537 frame_remove(curwin->w_frame); 1538 win_append(wp->w_prev, curwin); 1539 frame_insert(frp, curwin->w_frame); 1540 } 1541 if (wp != wp2) 1542 { 1543 win_remove(wp, NULL); 1544 frame_remove(wp->w_frame); 1545 win_append(wp2, wp); 1546 if (frp2 == NULL) 1547 frame_insert(wp->w_frame->fr_parent->fr_child, wp->w_frame); 1548 else 1549 frame_append(frp2, wp->w_frame); 1550 } 1551 temp = curwin->w_status_height; 1552 curwin->w_status_height = wp->w_status_height; 1553 wp->w_status_height = temp; 1554 temp = curwin->w_vsep_width; 1555 curwin->w_vsep_width = wp->w_vsep_width; 1556 wp->w_vsep_width = temp; 1557 1558 /* If the windows are not in the same frame, exchange the sizes to avoid 1559 * messing up the window layout. Otherwise fix the frame sizes. */ 1560 if (curwin->w_frame->fr_parent != wp->w_frame->fr_parent) 1561 { 1562 temp = curwin->w_height; 1563 curwin->w_height = wp->w_height; 1564 wp->w_height = temp; 1565 temp = curwin->w_width; 1566 curwin->w_width = wp->w_width; 1567 wp->w_width = temp; 1568 } 1569 else 1570 { 1571 frame_fix_height(curwin); 1572 frame_fix_height(wp); 1573 frame_fix_width(curwin); 1574 frame_fix_width(wp); 1575 } 1576 1577 (void)win_comp_pos(); /* recompute window positions */ 1578 1579 win_enter(wp, TRUE); 1580 redraw_later(CLEAR); 1581 } 1582 1583 /* 1584 * rotate windows: if upwards TRUE the second window becomes the first one 1585 * if upwards FALSE the first window becomes the second one 1586 */ 1587 static void 1588 win_rotate(int upwards, int count) 1589 { 1590 win_T *wp1; 1591 win_T *wp2; 1592 frame_T *frp; 1593 int n; 1594 1595 if (ONE_WINDOW) /* nothing to do */ 1596 { 1597 beep_flush(); 1598 return; 1599 } 1600 1601 #ifdef FEAT_GUI 1602 need_mouse_correct = TRUE; 1603 #endif 1604 1605 /* Check if all frames in this row/col have one window. */ 1606 for (frp = curwin->w_frame->fr_parent->fr_child; frp != NULL; 1607 frp = frp->fr_next) 1608 if (frp->fr_win == NULL) 1609 { 1610 EMSG(_("E443: Cannot rotate when another window is split")); 1611 return; 1612 } 1613 1614 while (count--) 1615 { 1616 if (upwards) /* first window becomes last window */ 1617 { 1618 /* remove first window/frame from the list */ 1619 frp = curwin->w_frame->fr_parent->fr_child; 1620 wp1 = frp->fr_win; 1621 win_remove(wp1, NULL); 1622 frame_remove(frp); 1623 1624 /* find last frame and append removed window/frame after it */ 1625 for ( ; frp->fr_next != NULL; frp = frp->fr_next) 1626 ; 1627 win_append(frp->fr_win, wp1); 1628 frame_append(frp, wp1->w_frame); 1629 1630 wp2 = frp->fr_win; /* previously last window */ 1631 } 1632 else /* last window becomes first window */ 1633 { 1634 /* find last window/frame in the list and remove it */ 1635 for (frp = curwin->w_frame; frp->fr_next != NULL; 1636 frp = frp->fr_next) 1637 ; 1638 wp1 = frp->fr_win; 1639 wp2 = wp1->w_prev; /* will become last window */ 1640 win_remove(wp1, NULL); 1641 frame_remove(frp); 1642 1643 /* append the removed window/frame before the first in the list */ 1644 win_append(frp->fr_parent->fr_child->fr_win->w_prev, wp1); 1645 frame_insert(frp->fr_parent->fr_child, frp); 1646 } 1647 1648 /* exchange status height and vsep width of old and new last window */ 1649 n = wp2->w_status_height; 1650 wp2->w_status_height = wp1->w_status_height; 1651 wp1->w_status_height = n; 1652 frame_fix_height(wp1); 1653 frame_fix_height(wp2); 1654 n = wp2->w_vsep_width; 1655 wp2->w_vsep_width = wp1->w_vsep_width; 1656 wp1->w_vsep_width = n; 1657 frame_fix_width(wp1); 1658 frame_fix_width(wp2); 1659 1660 /* recompute w_winrow and w_wincol for all windows */ 1661 (void)win_comp_pos(); 1662 } 1663 1664 redraw_later(CLEAR); 1665 } 1666 1667 /* 1668 * Move the current window to the very top/bottom/left/right of the screen. 1669 */ 1670 static void 1671 win_totop(int size, int flags) 1672 { 1673 int dir; 1674 int height = curwin->w_height; 1675 1676 if (ONE_WINDOW) 1677 { 1678 beep_flush(); 1679 return; 1680 } 1681 1682 /* Remove the window and frame from the tree of frames. */ 1683 (void)winframe_remove(curwin, &dir, NULL); 1684 win_remove(curwin, NULL); 1685 last_status(FALSE); /* may need to remove last status line */ 1686 (void)win_comp_pos(); /* recompute window positions */ 1687 1688 /* Split a window on the desired side and put the window there. */ 1689 (void)win_split_ins(size, flags, curwin, dir); 1690 if (!(flags & WSP_VERT)) 1691 { 1692 win_setheight(height); 1693 if (p_ea) 1694 win_equal(curwin, TRUE, 'v'); 1695 } 1696 1697 #if defined(FEAT_GUI) 1698 /* When 'guioptions' includes 'L' or 'R' may have to remove or add 1699 * scrollbars. Have to update them anyway. */ 1700 gui_may_update_scrollbars(); 1701 #endif 1702 } 1703 1704 /* 1705 * Move window "win1" to below/right of "win2" and make "win1" the current 1706 * window. Only works within the same frame! 1707 */ 1708 void 1709 win_move_after(win_T *win1, win_T *win2) 1710 { 1711 int height; 1712 1713 /* check if the arguments are reasonable */ 1714 if (win1 == win2) 1715 return; 1716 1717 /* check if there is something to do */ 1718 if (win2->w_next != win1) 1719 { 1720 /* may need move the status line/vertical separator of the last window 1721 * */ 1722 if (win1 == lastwin) 1723 { 1724 height = win1->w_prev->w_status_height; 1725 win1->w_prev->w_status_height = win1->w_status_height; 1726 win1->w_status_height = height; 1727 if (win1->w_prev->w_vsep_width == 1) 1728 { 1729 /* Remove the vertical separator from the last-but-one window, 1730 * add it to the last window. Adjust the frame widths. */ 1731 win1->w_prev->w_vsep_width = 0; 1732 win1->w_prev->w_frame->fr_width -= 1; 1733 win1->w_vsep_width = 1; 1734 win1->w_frame->fr_width += 1; 1735 } 1736 } 1737 else if (win2 == lastwin) 1738 { 1739 height = win1->w_status_height; 1740 win1->w_status_height = win2->w_status_height; 1741 win2->w_status_height = height; 1742 if (win1->w_vsep_width == 1) 1743 { 1744 /* Remove the vertical separator from win1, add it to the last 1745 * window, win2. Adjust the frame widths. */ 1746 win2->w_vsep_width = 1; 1747 win2->w_frame->fr_width += 1; 1748 win1->w_vsep_width = 0; 1749 win1->w_frame->fr_width -= 1; 1750 } 1751 } 1752 win_remove(win1, NULL); 1753 frame_remove(win1->w_frame); 1754 win_append(win2, win1); 1755 frame_append(win2->w_frame, win1->w_frame); 1756 1757 (void)win_comp_pos(); /* recompute w_winrow for all windows */ 1758 redraw_later(NOT_VALID); 1759 } 1760 win_enter(win1, FALSE); 1761 } 1762 1763 /* 1764 * Make all windows the same height. 1765 * 'next_curwin' will soon be the current window, make sure it has enough 1766 * rows. 1767 */ 1768 void 1769 win_equal( 1770 win_T *next_curwin, /* pointer to current window to be or NULL */ 1771 int current, /* do only frame with current window */ 1772 int dir) /* 'v' for vertically, 'h' for horizontally, 1773 'b' for both, 0 for using p_ead */ 1774 { 1775 if (dir == 0) 1776 dir = *p_ead; 1777 win_equal_rec(next_curwin == NULL ? curwin : next_curwin, current, 1778 topframe, dir, 0, tabline_height(), 1779 (int)Columns, topframe->fr_height); 1780 } 1781 1782 /* 1783 * Set a frame to a new position and height, spreading the available room 1784 * equally over contained frames. 1785 * The window "next_curwin" (if not NULL) should at least get the size from 1786 * 'winheight' and 'winwidth' if possible. 1787 */ 1788 static void 1789 win_equal_rec( 1790 win_T *next_curwin, /* pointer to current window to be or NULL */ 1791 int current, /* do only frame with current window */ 1792 frame_T *topfr, /* frame to set size off */ 1793 int dir, /* 'v', 'h' or 'b', see win_equal() */ 1794 int col, /* horizontal position for frame */ 1795 int row, /* vertical position for frame */ 1796 int width, /* new width of frame */ 1797 int height) /* new height of frame */ 1798 { 1799 int n, m; 1800 int extra_sep = 0; 1801 int wincount, totwincount = 0; 1802 frame_T *fr; 1803 int next_curwin_size = 0; 1804 int room = 0; 1805 int new_size; 1806 int has_next_curwin = 0; 1807 int hnc; 1808 1809 if (topfr->fr_layout == FR_LEAF) 1810 { 1811 /* Set the width/height of this frame. 1812 * Redraw when size or position changes */ 1813 if (topfr->fr_height != height || topfr->fr_win->w_winrow != row 1814 || topfr->fr_width != width || topfr->fr_win->w_wincol != col 1815 ) 1816 { 1817 topfr->fr_win->w_winrow = row; 1818 frame_new_height(topfr, height, FALSE, FALSE); 1819 topfr->fr_win->w_wincol = col; 1820 frame_new_width(topfr, width, FALSE, FALSE); 1821 redraw_all_later(CLEAR); 1822 } 1823 } 1824 else if (topfr->fr_layout == FR_ROW) 1825 { 1826 topfr->fr_width = width; 1827 topfr->fr_height = height; 1828 1829 if (dir != 'v') /* equalize frame widths */ 1830 { 1831 /* Compute the maximum number of windows horizontally in this 1832 * frame. */ 1833 n = frame_minwidth(topfr, NOWIN); 1834 /* add one for the rightmost window, it doesn't have a separator */ 1835 if (col + width == Columns) 1836 extra_sep = 1; 1837 else 1838 extra_sep = 0; 1839 totwincount = (n + extra_sep) / (p_wmw + 1); 1840 has_next_curwin = frame_has_win(topfr, next_curwin); 1841 1842 /* 1843 * Compute width for "next_curwin" window and room available for 1844 * other windows. 1845 * "m" is the minimal width when counting p_wiw for "next_curwin". 1846 */ 1847 m = frame_minwidth(topfr, next_curwin); 1848 room = width - m; 1849 if (room < 0) 1850 { 1851 next_curwin_size = p_wiw + room; 1852 room = 0; 1853 } 1854 else 1855 { 1856 next_curwin_size = -1; 1857 for (fr = topfr->fr_child; fr != NULL; fr = fr->fr_next) 1858 { 1859 /* If 'winfixwidth' set keep the window width if 1860 * possible. 1861 * Watch out for this window being the next_curwin. */ 1862 if (frame_fixed_width(fr)) 1863 { 1864 n = frame_minwidth(fr, NOWIN); 1865 new_size = fr->fr_width; 1866 if (frame_has_win(fr, next_curwin)) 1867 { 1868 room += p_wiw - p_wmw; 1869 next_curwin_size = 0; 1870 if (new_size < p_wiw) 1871 new_size = p_wiw; 1872 } 1873 else 1874 /* These windows don't use up room. */ 1875 totwincount -= (n + (fr->fr_next == NULL 1876 ? extra_sep : 0)) / (p_wmw + 1); 1877 room -= new_size - n; 1878 if (room < 0) 1879 { 1880 new_size += room; 1881 room = 0; 1882 } 1883 fr->fr_newwidth = new_size; 1884 } 1885 } 1886 if (next_curwin_size == -1) 1887 { 1888 if (!has_next_curwin) 1889 next_curwin_size = 0; 1890 else if (totwincount > 1 1891 && (room + (totwincount - 2)) 1892 / (totwincount - 1) > p_wiw) 1893 { 1894 /* Can make all windows wider than 'winwidth', spread 1895 * the room equally. */ 1896 next_curwin_size = (room + p_wiw 1897 + (totwincount - 1) * p_wmw 1898 + (totwincount - 1)) / totwincount; 1899 room -= next_curwin_size - p_wiw; 1900 } 1901 else 1902 next_curwin_size = p_wiw; 1903 } 1904 } 1905 1906 if (has_next_curwin) 1907 --totwincount; /* don't count curwin */ 1908 } 1909 1910 for (fr = topfr->fr_child; fr != NULL; fr = fr->fr_next) 1911 { 1912 wincount = 1; 1913 if (fr->fr_next == NULL) 1914 /* last frame gets all that remains (avoid roundoff error) */ 1915 new_size = width; 1916 else if (dir == 'v') 1917 new_size = fr->fr_width; 1918 else if (frame_fixed_width(fr)) 1919 { 1920 new_size = fr->fr_newwidth; 1921 wincount = 0; /* doesn't count as a sizeable window */ 1922 } 1923 else 1924 { 1925 /* Compute the maximum number of windows horiz. in "fr". */ 1926 n = frame_minwidth(fr, NOWIN); 1927 wincount = (n + (fr->fr_next == NULL ? extra_sep : 0)) 1928 / (p_wmw + 1); 1929 m = frame_minwidth(fr, next_curwin); 1930 if (has_next_curwin) 1931 hnc = frame_has_win(fr, next_curwin); 1932 else 1933 hnc = FALSE; 1934 if (hnc) /* don't count next_curwin */ 1935 --wincount; 1936 if (totwincount == 0) 1937 new_size = room; 1938 else 1939 new_size = (wincount * room + ((unsigned)totwincount >> 1)) 1940 / totwincount; 1941 if (hnc) /* add next_curwin size */ 1942 { 1943 next_curwin_size -= p_wiw - (m - n); 1944 new_size += next_curwin_size; 1945 room -= new_size - next_curwin_size; 1946 } 1947 else 1948 room -= new_size; 1949 new_size += n; 1950 } 1951 1952 /* Skip frame that is full width when splitting or closing a 1953 * window, unless equalizing all frames. */ 1954 if (!current || dir != 'v' || topfr->fr_parent != NULL 1955 || (new_size != fr->fr_width) 1956 || frame_has_win(fr, next_curwin)) 1957 win_equal_rec(next_curwin, current, fr, dir, col, row, 1958 new_size, height); 1959 col += new_size; 1960 width -= new_size; 1961 totwincount -= wincount; 1962 } 1963 } 1964 else /* topfr->fr_layout == FR_COL */ 1965 { 1966 topfr->fr_width = width; 1967 topfr->fr_height = height; 1968 1969 if (dir != 'h') /* equalize frame heights */ 1970 { 1971 /* Compute maximum number of windows vertically in this frame. */ 1972 n = frame_minheight(topfr, NOWIN); 1973 /* add one for the bottom window if it doesn't have a statusline */ 1974 if (row + height == cmdline_row && p_ls == 0) 1975 extra_sep = 1; 1976 else 1977 extra_sep = 0; 1978 totwincount = (n + extra_sep) / (p_wmh + 1); 1979 has_next_curwin = frame_has_win(topfr, next_curwin); 1980 1981 /* 1982 * Compute height for "next_curwin" window and room available for 1983 * other windows. 1984 * "m" is the minimal height when counting p_wh for "next_curwin". 1985 */ 1986 m = frame_minheight(topfr, next_curwin); 1987 room = height - m; 1988 if (room < 0) 1989 { 1990 /* The room is less then 'winheight', use all space for the 1991 * current window. */ 1992 next_curwin_size = p_wh + room; 1993 room = 0; 1994 } 1995 else 1996 { 1997 next_curwin_size = -1; 1998 for (fr = topfr->fr_child; fr != NULL; fr = fr->fr_next) 1999 { 2000 /* If 'winfixheight' set keep the window height if 2001 * possible. 2002 * Watch out for this window being the next_curwin. */ 2003 if (frame_fixed_height(fr)) 2004 { 2005 n = frame_minheight(fr, NOWIN); 2006 new_size = fr->fr_height; 2007 if (frame_has_win(fr, next_curwin)) 2008 { 2009 room += p_wh - p_wmh; 2010 next_curwin_size = 0; 2011 if (new_size < p_wh) 2012 new_size = p_wh; 2013 } 2014 else 2015 /* These windows don't use up room. */ 2016 totwincount -= (n + (fr->fr_next == NULL 2017 ? extra_sep : 0)) / (p_wmh + 1); 2018 room -= new_size - n; 2019 if (room < 0) 2020 { 2021 new_size += room; 2022 room = 0; 2023 } 2024 fr->fr_newheight = new_size; 2025 } 2026 } 2027 if (next_curwin_size == -1) 2028 { 2029 if (!has_next_curwin) 2030 next_curwin_size = 0; 2031 else if (totwincount > 1 2032 && (room + (totwincount - 2)) 2033 / (totwincount - 1) > p_wh) 2034 { 2035 /* can make all windows higher than 'winheight', 2036 * spread the room equally. */ 2037 next_curwin_size = (room + p_wh 2038 + (totwincount - 1) * p_wmh 2039 + (totwincount - 1)) / totwincount; 2040 room -= next_curwin_size - p_wh; 2041 } 2042 else 2043 next_curwin_size = p_wh; 2044 } 2045 } 2046 2047 if (has_next_curwin) 2048 --totwincount; /* don't count curwin */ 2049 } 2050 2051 for (fr = topfr->fr_child; fr != NULL; fr = fr->fr_next) 2052 { 2053 wincount = 1; 2054 if (fr->fr_next == NULL) 2055 /* last frame gets all that remains (avoid roundoff error) */ 2056 new_size = height; 2057 else if (dir == 'h') 2058 new_size = fr->fr_height; 2059 else if (frame_fixed_height(fr)) 2060 { 2061 new_size = fr->fr_newheight; 2062 wincount = 0; /* doesn't count as a sizeable window */ 2063 } 2064 else 2065 { 2066 /* Compute the maximum number of windows vert. in "fr". */ 2067 n = frame_minheight(fr, NOWIN); 2068 wincount = (n + (fr->fr_next == NULL ? extra_sep : 0)) 2069 / (p_wmh + 1); 2070 m = frame_minheight(fr, next_curwin); 2071 if (has_next_curwin) 2072 hnc = frame_has_win(fr, next_curwin); 2073 else 2074 hnc = FALSE; 2075 if (hnc) /* don't count next_curwin */ 2076 --wincount; 2077 if (totwincount == 0) 2078 new_size = room; 2079 else 2080 new_size = (wincount * room + ((unsigned)totwincount >> 1)) 2081 / totwincount; 2082 if (hnc) /* add next_curwin size */ 2083 { 2084 next_curwin_size -= p_wh - (m - n); 2085 new_size += next_curwin_size; 2086 room -= new_size - next_curwin_size; 2087 } 2088 else 2089 room -= new_size; 2090 new_size += n; 2091 } 2092 /* Skip frame that is full width when splitting or closing a 2093 * window, unless equalizing all frames. */ 2094 if (!current || dir != 'h' || topfr->fr_parent != NULL 2095 || (new_size != fr->fr_height) 2096 || frame_has_win(fr, next_curwin)) 2097 win_equal_rec(next_curwin, current, fr, dir, col, row, 2098 width, new_size); 2099 row += new_size; 2100 height -= new_size; 2101 totwincount -= wincount; 2102 } 2103 } 2104 } 2105 2106 #ifdef FEAT_JOB_CHANNEL 2107 static void 2108 leaving_window(win_T *win) 2109 { 2110 // Only matters for a prompt window. 2111 if (!bt_prompt(win->w_buffer)) 2112 return; 2113 2114 // When leaving a prompt window stop Insert mode and perhaps restart 2115 // it when entering that window again. 2116 win->w_buffer->b_prompt_insert = restart_edit; 2117 if (restart_edit != 0 && mode_displayed) 2118 clear_cmdline = TRUE; /* unshow mode later */ 2119 restart_edit = NUL; 2120 2121 // When leaving the window (or closing the window) was done from a 2122 // callback we need to break out of the Insert mode loop and restart Insert 2123 // mode when entering the window again. 2124 if (State & INSERT) 2125 { 2126 stop_insert_mode = TRUE; 2127 if (win->w_buffer->b_prompt_insert == NUL) 2128 win->w_buffer->b_prompt_insert = 'A'; 2129 } 2130 } 2131 2132 static void 2133 entering_window(win_T *win) 2134 { 2135 // Only matters for a prompt window. 2136 if (!bt_prompt(win->w_buffer)) 2137 return; 2138 2139 // When switching to a prompt buffer that was in Insert mode, don't stop 2140 // Insert mode, it may have been set in leaving_window(). 2141 if (win->w_buffer->b_prompt_insert != NUL) 2142 stop_insert_mode = FALSE; 2143 2144 // When entering the prompt window restart Insert mode if we were in Insert 2145 // mode when we left it. 2146 restart_edit = win->w_buffer->b_prompt_insert; 2147 } 2148 #endif 2149 2150 /* 2151 * Close all windows for buffer "buf". 2152 */ 2153 void 2154 close_windows( 2155 buf_T *buf, 2156 int keep_curwin) /* don't close "curwin" */ 2157 { 2158 win_T *wp; 2159 tabpage_T *tp, *nexttp; 2160 int h = tabline_height(); 2161 int count = tabpage_index(NULL); 2162 2163 ++RedrawingDisabled; 2164 2165 for (wp = firstwin; wp != NULL && !ONE_WINDOW; ) 2166 { 2167 if (wp->w_buffer == buf && (!keep_curwin || wp != curwin) 2168 && !(wp->w_closing || wp->w_buffer->b_locked > 0)) 2169 { 2170 if (win_close(wp, FALSE) == FAIL) 2171 /* If closing the window fails give up, to avoid looping 2172 * forever. */ 2173 break; 2174 2175 /* Start all over, autocommands may change the window layout. */ 2176 wp = firstwin; 2177 } 2178 else 2179 wp = wp->w_next; 2180 } 2181 2182 /* Also check windows in other tab pages. */ 2183 for (tp = first_tabpage; tp != NULL; tp = nexttp) 2184 { 2185 nexttp = tp->tp_next; 2186 if (tp != curtab) 2187 for (wp = tp->tp_firstwin; wp != NULL; wp = wp->w_next) 2188 if (wp->w_buffer == buf 2189 && !(wp->w_closing || wp->w_buffer->b_locked > 0)) 2190 { 2191 win_close_othertab(wp, FALSE, tp); 2192 2193 /* Start all over, the tab page may be closed and 2194 * autocommands may change the window layout. */ 2195 nexttp = first_tabpage; 2196 break; 2197 } 2198 } 2199 2200 --RedrawingDisabled; 2201 2202 if (count != tabpage_index(NULL)) 2203 apply_autocmds(EVENT_TABCLOSED, NULL, NULL, FALSE, curbuf); 2204 2205 redraw_tabline = TRUE; 2206 if (h != tabline_height()) 2207 shell_new_rows(); 2208 } 2209 2210 /* 2211 * Return TRUE if the current window is the only window that exists (ignoring 2212 * "aucmd_win"). 2213 * Returns FALSE if there is a window, possibly in another tab page. 2214 */ 2215 static int 2216 last_window(void) 2217 { 2218 return (one_window() && first_tabpage->tp_next == NULL); 2219 } 2220 2221 /* 2222 * Return TRUE if there is only one window other than "aucmd_win" in the 2223 * current tab page. 2224 */ 2225 int 2226 one_window(void) 2227 { 2228 win_T *wp; 2229 int seen_one = FALSE; 2230 2231 FOR_ALL_WINDOWS(wp) 2232 { 2233 if (wp != aucmd_win) 2234 { 2235 if (seen_one) 2236 return FALSE; 2237 seen_one = TRUE; 2238 } 2239 } 2240 return TRUE; 2241 } 2242 2243 /* 2244 * Close the possibly last window in a tab page. 2245 * Returns TRUE when the window was closed already. 2246 */ 2247 static int 2248 close_last_window_tabpage( 2249 win_T *win, 2250 int free_buf, 2251 tabpage_T *prev_curtab) 2252 { 2253 if (ONE_WINDOW) 2254 { 2255 buf_T *old_curbuf = curbuf; 2256 2257 /* 2258 * Closing the last window in a tab page. First go to another tab 2259 * page and then close the window and the tab page. This avoids that 2260 * curwin and curtab are invalid while we are freeing memory, they may 2261 * be used in GUI events. 2262 * Don't trigger autocommands yet, they may use wrong values, so do 2263 * that below. 2264 */ 2265 goto_tabpage_tp(alt_tabpage(), FALSE, TRUE); 2266 redraw_tabline = TRUE; 2267 2268 /* Safety check: Autocommands may have closed the window when jumping 2269 * to the other tab page. */ 2270 if (valid_tabpage(prev_curtab) && prev_curtab->tp_firstwin == win) 2271 { 2272 int h = tabline_height(); 2273 2274 win_close_othertab(win, free_buf, prev_curtab); 2275 if (h != tabline_height()) 2276 shell_new_rows(); 2277 } 2278 #ifdef FEAT_JOB_CHANNEL 2279 entering_window(curwin); 2280 #endif 2281 /* Since goto_tabpage_tp above did not trigger *Enter autocommands, do 2282 * that now. */ 2283 apply_autocmds(EVENT_TABCLOSED, NULL, NULL, FALSE, curbuf); 2284 apply_autocmds(EVENT_WINENTER, NULL, NULL, FALSE, curbuf); 2285 apply_autocmds(EVENT_TABENTER, NULL, NULL, FALSE, curbuf); 2286 if (old_curbuf != curbuf) 2287 apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf); 2288 return TRUE; 2289 } 2290 return FALSE; 2291 } 2292 2293 /* 2294 * Close window "win". Only works for the current tab page. 2295 * If "free_buf" is TRUE related buffer may be unloaded. 2296 * 2297 * Called by :quit, :close, :xit, :wq and findtag(). 2298 * Returns FAIL when the window was not closed. 2299 */ 2300 int 2301 win_close(win_T *win, int free_buf) 2302 { 2303 win_T *wp; 2304 int other_buffer = FALSE; 2305 int close_curwin = FALSE; 2306 int dir; 2307 int help_window = FALSE; 2308 tabpage_T *prev_curtab = curtab; 2309 frame_T *win_frame = win->w_frame->fr_parent; 2310 2311 if (last_window()) 2312 { 2313 EMSG(_("E444: Cannot close last window")); 2314 return FAIL; 2315 } 2316 2317 if (win->w_closing || (win->w_buffer != NULL 2318 && win->w_buffer->b_locked > 0)) 2319 return FAIL; /* window is already being closed */ 2320 if (win == aucmd_win) 2321 { 2322 EMSG(_("E813: Cannot close autocmd window")); 2323 return FAIL; 2324 } 2325 if ((firstwin == aucmd_win || lastwin == aucmd_win) && one_window()) 2326 { 2327 EMSG(_("E814: Cannot close window, only autocmd window would remain")); 2328 return FAIL; 2329 } 2330 2331 /* When closing the last window in a tab page first go to another tab page 2332 * and then close the window and the tab page to avoid that curwin and 2333 * curtab are invalid while we are freeing memory. */ 2334 if (close_last_window_tabpage(win, free_buf, prev_curtab)) 2335 return FAIL; 2336 2337 /* When closing the help window, try restoring a snapshot after closing 2338 * the window. Otherwise clear the snapshot, it's now invalid. */ 2339 if (bt_help(win->w_buffer)) 2340 help_window = TRUE; 2341 else 2342 clear_snapshot(curtab, SNAP_HELP_IDX); 2343 2344 if (win == curwin) 2345 { 2346 #ifdef FEAT_JOB_CHANNEL 2347 leaving_window(curwin); 2348 #endif 2349 /* 2350 * Guess which window is going to be the new current window. 2351 * This may change because of the autocommands (sigh). 2352 */ 2353 wp = frame2win(win_altframe(win, NULL)); 2354 2355 /* 2356 * Be careful: If autocommands delete the window or cause this window 2357 * to be the last one left, return now. 2358 */ 2359 if (wp->w_buffer != curbuf) 2360 { 2361 other_buffer = TRUE; 2362 win->w_closing = TRUE; 2363 apply_autocmds(EVENT_BUFLEAVE, NULL, NULL, FALSE, curbuf); 2364 if (!win_valid(win)) 2365 return FAIL; 2366 win->w_closing = FALSE; 2367 if (last_window()) 2368 return FAIL; 2369 } 2370 win->w_closing = TRUE; 2371 apply_autocmds(EVENT_WINLEAVE, NULL, NULL, FALSE, curbuf); 2372 if (!win_valid(win)) 2373 return FAIL; 2374 win->w_closing = FALSE; 2375 if (last_window()) 2376 return FAIL; 2377 #ifdef FEAT_EVAL 2378 /* autocmds may abort script processing */ 2379 if (aborting()) 2380 return FAIL; 2381 #endif 2382 } 2383 2384 #ifdef FEAT_GUI 2385 /* Avoid trouble with scrollbars that are going to be deleted in 2386 * win_free(). */ 2387 if (gui.in_use) 2388 out_flush(); 2389 #endif 2390 2391 #ifdef FEAT_SYN_HL 2392 /* Free independent synblock before the buffer is freed. */ 2393 if (win->w_buffer != NULL) 2394 reset_synblock(win); 2395 #endif 2396 2397 /* 2398 * Close the link to the buffer. 2399 */ 2400 if (win->w_buffer != NULL) 2401 { 2402 bufref_T bufref; 2403 2404 set_bufref(&bufref, curbuf); 2405 win->w_closing = TRUE; 2406 close_buffer(win, win->w_buffer, free_buf ? DOBUF_UNLOAD : 0, TRUE); 2407 if (win_valid_any_tab(win)) 2408 win->w_closing = FALSE; 2409 /* Make sure curbuf is valid. It can become invalid if 'bufhidden' is 2410 * "wipe". */ 2411 if (!bufref_valid(&bufref)) 2412 curbuf = firstbuf; 2413 } 2414 2415 if (only_one_window() && win_valid(win) && win->w_buffer == NULL 2416 && (last_window() || curtab != prev_curtab 2417 || close_last_window_tabpage(win, free_buf, prev_curtab))) 2418 { 2419 /* Autocommands have closed all windows, quit now. Restore 2420 * curwin->w_buffer, otherwise writing viminfo may fail. */ 2421 if (curwin->w_buffer == NULL) 2422 curwin->w_buffer = curbuf; 2423 getout(0); 2424 } 2425 2426 /* Autocommands may have moved to another tab page. */ 2427 if (curtab != prev_curtab && win_valid_any_tab(win) 2428 && win->w_buffer == NULL) 2429 { 2430 /* Need to close the window anyway, since the buffer is NULL. */ 2431 win_close_othertab(win, FALSE, prev_curtab); 2432 return FAIL; 2433 } 2434 2435 /* Autocommands may have closed the window already or closed the only 2436 * other window. */ 2437 if (!win_valid(win) || last_window() 2438 || close_last_window_tabpage(win, free_buf, prev_curtab)) 2439 return FAIL; 2440 2441 /* Free the memory used for the window and get the window that received 2442 * the screen space. */ 2443 wp = win_free_mem(win, &dir, NULL); 2444 2445 /* Make sure curwin isn't invalid. It can cause severe trouble when 2446 * printing an error message. For win_equal() curbuf needs to be valid 2447 * too. */ 2448 if (win == curwin) 2449 { 2450 curwin = wp; 2451 #ifdef FEAT_QUICKFIX 2452 if (wp->w_p_pvw || bt_quickfix(wp->w_buffer)) 2453 { 2454 /* 2455 * If the cursor goes to the preview or the quickfix window, try 2456 * finding another window to go to. 2457 */ 2458 for (;;) 2459 { 2460 if (wp->w_next == NULL) 2461 wp = firstwin; 2462 else 2463 wp = wp->w_next; 2464 if (wp == curwin) 2465 break; 2466 if (!wp->w_p_pvw && !bt_quickfix(wp->w_buffer)) 2467 { 2468 curwin = wp; 2469 break; 2470 } 2471 } 2472 } 2473 #endif 2474 curbuf = curwin->w_buffer; 2475 close_curwin = TRUE; 2476 2477 /* The cursor position may be invalid if the buffer changed after last 2478 * using the window. */ 2479 check_cursor(); 2480 } 2481 if (p_ea && (*p_ead == 'b' || *p_ead == dir)) 2482 /* If the frame of the closed window contains the new current window, 2483 * only resize that frame. Otherwise resize all windows. */ 2484 win_equal(curwin, curwin->w_frame->fr_parent == win_frame, dir); 2485 else 2486 win_comp_pos(); 2487 if (close_curwin) 2488 { 2489 win_enter_ext(wp, FALSE, TRUE, FALSE, TRUE, TRUE); 2490 if (other_buffer) 2491 /* careful: after this wp and win may be invalid! */ 2492 apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf); 2493 } 2494 2495 /* 2496 * If last window has a status line now and we don't want one, 2497 * remove the status line. 2498 */ 2499 last_status(FALSE); 2500 2501 /* After closing the help window, try restoring the window layout from 2502 * before it was opened. */ 2503 if (help_window) 2504 restore_snapshot(SNAP_HELP_IDX, close_curwin); 2505 2506 #if defined(FEAT_GUI) 2507 /* When 'guioptions' includes 'L' or 'R' may have to remove scrollbars. */ 2508 if (gui.in_use && !win_hasvertsplit()) 2509 gui_init_which_components(NULL); 2510 #endif 2511 2512 redraw_all_later(NOT_VALID); 2513 return OK; 2514 } 2515 2516 /* 2517 * Close window "win" in tab page "tp", which is not the current tab page. 2518 * This may be the last window in that tab page and result in closing the tab, 2519 * thus "tp" may become invalid! 2520 * Caller must check if buffer is hidden and whether the tabline needs to be 2521 * updated. 2522 */ 2523 void 2524 win_close_othertab(win_T *win, int free_buf, tabpage_T *tp) 2525 { 2526 win_T *wp; 2527 int dir; 2528 tabpage_T *ptp = NULL; 2529 int free_tp = FALSE; 2530 2531 /* Get here with win->w_buffer == NULL when win_close() detects the tab 2532 * page changed. */ 2533 if (win->w_closing || (win->w_buffer != NULL 2534 && win->w_buffer->b_locked > 0)) 2535 return; /* window is already being closed */ 2536 2537 if (win->w_buffer != NULL) 2538 /* Close the link to the buffer. */ 2539 close_buffer(win, win->w_buffer, free_buf ? DOBUF_UNLOAD : 0, FALSE); 2540 2541 /* Careful: Autocommands may have closed the tab page or made it the 2542 * current tab page. */ 2543 for (ptp = first_tabpage; ptp != NULL && ptp != tp; ptp = ptp->tp_next) 2544 ; 2545 if (ptp == NULL || tp == curtab) 2546 return; 2547 2548 /* Autocommands may have closed the window already. */ 2549 for (wp = tp->tp_firstwin; wp != NULL && wp != win; wp = wp->w_next) 2550 ; 2551 if (wp == NULL) 2552 return; 2553 2554 /* When closing the last window in a tab page remove the tab page. */ 2555 if (tp->tp_firstwin == tp->tp_lastwin) 2556 { 2557 if (tp == first_tabpage) 2558 first_tabpage = tp->tp_next; 2559 else 2560 { 2561 for (ptp = first_tabpage; ptp != NULL && ptp->tp_next != tp; 2562 ptp = ptp->tp_next) 2563 ; 2564 if (ptp == NULL) 2565 { 2566 internal_error("win_close_othertab()"); 2567 return; 2568 } 2569 ptp->tp_next = tp->tp_next; 2570 } 2571 free_tp = TRUE; 2572 } 2573 2574 /* Free the memory used for the window. */ 2575 win_free_mem(win, &dir, tp); 2576 2577 if (free_tp) 2578 free_tabpage(tp); 2579 } 2580 2581 /* 2582 * Free the memory used for a window. 2583 * Returns a pointer to the window that got the freed up space. 2584 */ 2585 static win_T * 2586 win_free_mem( 2587 win_T *win, 2588 int *dirp, /* set to 'v' or 'h' for direction if 'ea' */ 2589 tabpage_T *tp) /* tab page "win" is in, NULL for current */ 2590 { 2591 frame_T *frp; 2592 win_T *wp; 2593 2594 /* Remove the window and its frame from the tree of frames. */ 2595 frp = win->w_frame; 2596 wp = winframe_remove(win, dirp, tp); 2597 vim_free(frp); 2598 win_free(win, tp); 2599 2600 /* When deleting the current window of another tab page select a new 2601 * current window. */ 2602 if (tp != NULL && win == tp->tp_curwin) 2603 tp->tp_curwin = wp; 2604 2605 return wp; 2606 } 2607 2608 #if defined(EXITFREE) || defined(PROTO) 2609 void 2610 win_free_all(void) 2611 { 2612 int dummy; 2613 2614 while (first_tabpage->tp_next != NULL) 2615 tabpage_close(TRUE); 2616 2617 if (aucmd_win != NULL) 2618 { 2619 (void)win_free_mem(aucmd_win, &dummy, NULL); 2620 aucmd_win = NULL; 2621 } 2622 2623 while (firstwin != NULL) 2624 (void)win_free_mem(firstwin, &dummy, NULL); 2625 2626 /* No window should be used after this. Set curwin to NULL to crash 2627 * instead of using freed memory. */ 2628 curwin = NULL; 2629 } 2630 #endif 2631 2632 /* 2633 * Remove a window and its frame from the tree of frames. 2634 * Returns a pointer to the window that got the freed up space. 2635 */ 2636 win_T * 2637 winframe_remove( 2638 win_T *win, 2639 int *dirp UNUSED, /* set to 'v' or 'h' for direction if 'ea' */ 2640 tabpage_T *tp) /* tab page "win" is in, NULL for current */ 2641 { 2642 frame_T *frp, *frp2, *frp3; 2643 frame_T *frp_close = win->w_frame; 2644 win_T *wp; 2645 2646 /* 2647 * If there is only one window there is nothing to remove. 2648 */ 2649 if (tp == NULL ? ONE_WINDOW : tp->tp_firstwin == tp->tp_lastwin) 2650 return NULL; 2651 2652 /* 2653 * Remove the window from its frame. 2654 */ 2655 frp2 = win_altframe(win, tp); 2656 wp = frame2win(frp2); 2657 2658 /* Remove this frame from the list of frames. */ 2659 frame_remove(frp_close); 2660 2661 if (frp_close->fr_parent->fr_layout == FR_COL) 2662 { 2663 /* When 'winfixheight' is set, try to find another frame in the column 2664 * (as close to the closed frame as possible) to distribute the height 2665 * to. */ 2666 if (frp2->fr_win != NULL && frp2->fr_win->w_p_wfh) 2667 { 2668 frp = frp_close->fr_prev; 2669 frp3 = frp_close->fr_next; 2670 while (frp != NULL || frp3 != NULL) 2671 { 2672 if (frp != NULL) 2673 { 2674 if (frp->fr_win != NULL && !frp->fr_win->w_p_wfh) 2675 { 2676 frp2 = frp; 2677 wp = frp->fr_win; 2678 break; 2679 } 2680 frp = frp->fr_prev; 2681 } 2682 if (frp3 != NULL) 2683 { 2684 if (frp3->fr_win != NULL && !frp3->fr_win->w_p_wfh) 2685 { 2686 frp2 = frp3; 2687 wp = frp3->fr_win; 2688 break; 2689 } 2690 frp3 = frp3->fr_next; 2691 } 2692 } 2693 } 2694 frame_new_height(frp2, frp2->fr_height + frp_close->fr_height, 2695 frp2 == frp_close->fr_next ? TRUE : FALSE, FALSE); 2696 *dirp = 'v'; 2697 } 2698 else 2699 { 2700 /* When 'winfixwidth' is set, try to find another frame in the column 2701 * (as close to the closed frame as possible) to distribute the width 2702 * to. */ 2703 if (frp2->fr_win != NULL && frp2->fr_win->w_p_wfw) 2704 { 2705 frp = frp_close->fr_prev; 2706 frp3 = frp_close->fr_next; 2707 while (frp != NULL || frp3 != NULL) 2708 { 2709 if (frp != NULL) 2710 { 2711 if (frp->fr_win != NULL && !frp->fr_win->w_p_wfw) 2712 { 2713 frp2 = frp; 2714 wp = frp->fr_win; 2715 break; 2716 } 2717 frp = frp->fr_prev; 2718 } 2719 if (frp3 != NULL) 2720 { 2721 if (frp3->fr_win != NULL && !frp3->fr_win->w_p_wfw) 2722 { 2723 frp2 = frp3; 2724 wp = frp3->fr_win; 2725 break; 2726 } 2727 frp3 = frp3->fr_next; 2728 } 2729 } 2730 } 2731 frame_new_width(frp2, frp2->fr_width + frp_close->fr_width, 2732 frp2 == frp_close->fr_next ? TRUE : FALSE, FALSE); 2733 *dirp = 'h'; 2734 } 2735 2736 /* If rows/columns go to a window below/right its positions need to be 2737 * updated. Can only be done after the sizes have been updated. */ 2738 if (frp2 == frp_close->fr_next) 2739 { 2740 int row = win->w_winrow; 2741 int col = win->w_wincol; 2742 2743 frame_comp_pos(frp2, &row, &col); 2744 } 2745 2746 if (frp2->fr_next == NULL && frp2->fr_prev == NULL) 2747 { 2748 /* There is no other frame in this list, move its info to the parent 2749 * and remove it. */ 2750 frp2->fr_parent->fr_layout = frp2->fr_layout; 2751 frp2->fr_parent->fr_child = frp2->fr_child; 2752 for (frp = frp2->fr_child; frp != NULL; frp = frp->fr_next) 2753 frp->fr_parent = frp2->fr_parent; 2754 frp2->fr_parent->fr_win = frp2->fr_win; 2755 if (frp2->fr_win != NULL) 2756 frp2->fr_win->w_frame = frp2->fr_parent; 2757 frp = frp2->fr_parent; 2758 if (topframe->fr_child == frp2) 2759 topframe->fr_child = frp; 2760 vim_free(frp2); 2761 2762 frp2 = frp->fr_parent; 2763 if (frp2 != NULL && frp2->fr_layout == frp->fr_layout) 2764 { 2765 /* The frame above the parent has the same layout, have to merge 2766 * the frames into this list. */ 2767 if (frp2->fr_child == frp) 2768 frp2->fr_child = frp->fr_child; 2769 frp->fr_child->fr_prev = frp->fr_prev; 2770 if (frp->fr_prev != NULL) 2771 frp->fr_prev->fr_next = frp->fr_child; 2772 for (frp3 = frp->fr_child; ; frp3 = frp3->fr_next) 2773 { 2774 frp3->fr_parent = frp2; 2775 if (frp3->fr_next == NULL) 2776 { 2777 frp3->fr_next = frp->fr_next; 2778 if (frp->fr_next != NULL) 2779 frp->fr_next->fr_prev = frp3; 2780 break; 2781 } 2782 } 2783 if (topframe->fr_child == frp) 2784 topframe->fr_child = frp2; 2785 vim_free(frp); 2786 } 2787 } 2788 2789 return wp; 2790 } 2791 2792 /* 2793 * Return a pointer to the frame that will receive the empty screen space that 2794 * is left over after "win" is closed. 2795 * 2796 * If 'splitbelow' or 'splitright' is set, the space goes above or to the left 2797 * by default. Otherwise, the free space goes below or to the right. The 2798 * result is that opening a window and then immediately closing it will 2799 * preserve the initial window layout. The 'wfh' and 'wfw' settings are 2800 * respected when possible. 2801 */ 2802 static frame_T * 2803 win_altframe( 2804 win_T *win, 2805 tabpage_T *tp) /* tab page "win" is in, NULL for current */ 2806 { 2807 frame_T *frp; 2808 frame_T *other_fr, *target_fr; 2809 2810 if (tp == NULL ? ONE_WINDOW : tp->tp_firstwin == tp->tp_lastwin) 2811 return alt_tabpage()->tp_curwin->w_frame; 2812 2813 frp = win->w_frame; 2814 2815 if (frp->fr_prev == NULL) 2816 return frp->fr_next; 2817 if (frp->fr_next == NULL) 2818 return frp->fr_prev; 2819 2820 target_fr = frp->fr_next; 2821 other_fr = frp->fr_prev; 2822 if (p_spr || p_sb) 2823 { 2824 target_fr = frp->fr_prev; 2825 other_fr = frp->fr_next; 2826 } 2827 2828 /* If 'wfh' or 'wfw' is set for the target and not for the alternate 2829 * window, reverse the selection. */ 2830 if (frp->fr_parent != NULL && frp->fr_parent->fr_layout == FR_ROW) 2831 { 2832 if (frame_fixed_width(target_fr) && !frame_fixed_width(other_fr)) 2833 target_fr = other_fr; 2834 } 2835 else 2836 { 2837 if (frame_fixed_height(target_fr) && !frame_fixed_height(other_fr)) 2838 target_fr = other_fr; 2839 } 2840 2841 return target_fr; 2842 } 2843 2844 /* 2845 * Return the tabpage that will be used if the current one is closed. 2846 */ 2847 static tabpage_T * 2848 alt_tabpage(void) 2849 { 2850 tabpage_T *tp; 2851 2852 /* Use the next tab page if possible. */ 2853 if (curtab->tp_next != NULL) 2854 return curtab->tp_next; 2855 2856 /* Find the last but one tab page. */ 2857 for (tp = first_tabpage; tp->tp_next != curtab; tp = tp->tp_next) 2858 ; 2859 return tp; 2860 } 2861 2862 /* 2863 * Find the left-upper window in frame "frp". 2864 */ 2865 static win_T * 2866 frame2win(frame_T *frp) 2867 { 2868 while (frp->fr_win == NULL) 2869 frp = frp->fr_child; 2870 return frp->fr_win; 2871 } 2872 2873 /* 2874 * Return TRUE if frame "frp" contains window "wp". 2875 */ 2876 static int 2877 frame_has_win(frame_T *frp, win_T *wp) 2878 { 2879 frame_T *p; 2880 2881 if (frp->fr_layout == FR_LEAF) 2882 return frp->fr_win == wp; 2883 2884 for (p = frp->fr_child; p != NULL; p = p->fr_next) 2885 if (frame_has_win(p, wp)) 2886 return TRUE; 2887 return FALSE; 2888 } 2889 2890 /* 2891 * Set a new height for a frame. Recursively sets the height for contained 2892 * frames and windows. Caller must take care of positions. 2893 */ 2894 static void 2895 frame_new_height( 2896 frame_T *topfrp, 2897 int height, 2898 int topfirst, /* resize topmost contained frame first */ 2899 int wfh) /* obey 'winfixheight' when there is a choice; 2900 may cause the height not to be set */ 2901 { 2902 frame_T *frp; 2903 int extra_lines; 2904 int h; 2905 2906 if (topfrp->fr_win != NULL) 2907 { 2908 /* Simple case: just one window. */ 2909 win_new_height(topfrp->fr_win, 2910 height - topfrp->fr_win->w_status_height 2911 - WINBAR_HEIGHT(topfrp->fr_win)); 2912 } 2913 else if (topfrp->fr_layout == FR_ROW) 2914 { 2915 do 2916 { 2917 /* All frames in this row get the same new height. */ 2918 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 2919 { 2920 frame_new_height(frp, height, topfirst, wfh); 2921 if (frp->fr_height > height) 2922 { 2923 /* Could not fit the windows, make the whole row higher. */ 2924 height = frp->fr_height; 2925 break; 2926 } 2927 } 2928 } 2929 while (frp != NULL); 2930 } 2931 else /* fr_layout == FR_COL */ 2932 { 2933 /* Complicated case: Resize a column of frames. Resize the bottom 2934 * frame first, frames above that when needed. */ 2935 2936 frp = topfrp->fr_child; 2937 if (wfh) 2938 /* Advance past frames with one window with 'wfh' set. */ 2939 while (frame_fixed_height(frp)) 2940 { 2941 frp = frp->fr_next; 2942 if (frp == NULL) 2943 return; /* no frame without 'wfh', give up */ 2944 } 2945 if (!topfirst) 2946 { 2947 /* Find the bottom frame of this column */ 2948 while (frp->fr_next != NULL) 2949 frp = frp->fr_next; 2950 if (wfh) 2951 /* Advance back for frames with one window with 'wfh' set. */ 2952 while (frame_fixed_height(frp)) 2953 frp = frp->fr_prev; 2954 } 2955 2956 extra_lines = height - topfrp->fr_height; 2957 if (extra_lines < 0) 2958 { 2959 /* reduce height of contained frames, bottom or top frame first */ 2960 while (frp != NULL) 2961 { 2962 h = frame_minheight(frp, NULL); 2963 if (frp->fr_height + extra_lines < h) 2964 { 2965 extra_lines += frp->fr_height - h; 2966 frame_new_height(frp, h, topfirst, wfh); 2967 } 2968 else 2969 { 2970 frame_new_height(frp, frp->fr_height + extra_lines, 2971 topfirst, wfh); 2972 break; 2973 } 2974 if (topfirst) 2975 { 2976 do 2977 frp = frp->fr_next; 2978 while (wfh && frp != NULL && frame_fixed_height(frp)); 2979 } 2980 else 2981 { 2982 do 2983 frp = frp->fr_prev; 2984 while (wfh && frp != NULL && frame_fixed_height(frp)); 2985 } 2986 /* Increase "height" if we could not reduce enough frames. */ 2987 if (frp == NULL) 2988 height -= extra_lines; 2989 } 2990 } 2991 else if (extra_lines > 0) 2992 { 2993 /* increase height of bottom or top frame */ 2994 frame_new_height(frp, frp->fr_height + extra_lines, topfirst, wfh); 2995 } 2996 } 2997 topfrp->fr_height = height; 2998 } 2999 3000 /* 3001 * Return TRUE if height of frame "frp" should not be changed because of 3002 * the 'winfixheight' option. 3003 */ 3004 static int 3005 frame_fixed_height(frame_T *frp) 3006 { 3007 /* frame with one window: fixed height if 'winfixheight' set. */ 3008 if (frp->fr_win != NULL) 3009 return frp->fr_win->w_p_wfh; 3010 3011 if (frp->fr_layout == FR_ROW) 3012 { 3013 /* The frame is fixed height if one of the frames in the row is fixed 3014 * height. */ 3015 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3016 if (frame_fixed_height(frp)) 3017 return TRUE; 3018 return FALSE; 3019 } 3020 3021 /* frp->fr_layout == FR_COL: The frame is fixed height if all of the 3022 * frames in the row are fixed height. */ 3023 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3024 if (!frame_fixed_height(frp)) 3025 return FALSE; 3026 return TRUE; 3027 } 3028 3029 /* 3030 * Return TRUE if width of frame "frp" should not be changed because of 3031 * the 'winfixwidth' option. 3032 */ 3033 static int 3034 frame_fixed_width(frame_T *frp) 3035 { 3036 /* frame with one window: fixed width if 'winfixwidth' set. */ 3037 if (frp->fr_win != NULL) 3038 return frp->fr_win->w_p_wfw; 3039 3040 if (frp->fr_layout == FR_COL) 3041 { 3042 /* The frame is fixed width if one of the frames in the row is fixed 3043 * width. */ 3044 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3045 if (frame_fixed_width(frp)) 3046 return TRUE; 3047 return FALSE; 3048 } 3049 3050 /* frp->fr_layout == FR_ROW: The frame is fixed width if all of the 3051 * frames in the row are fixed width. */ 3052 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3053 if (!frame_fixed_width(frp)) 3054 return FALSE; 3055 return TRUE; 3056 } 3057 3058 /* 3059 * Add a status line to windows at the bottom of "frp". 3060 * Note: Does not check if there is room! 3061 */ 3062 static void 3063 frame_add_statusline(frame_T *frp) 3064 { 3065 win_T *wp; 3066 3067 if (frp->fr_layout == FR_LEAF) 3068 { 3069 wp = frp->fr_win; 3070 if (wp->w_status_height == 0) 3071 { 3072 if (wp->w_height > 0) /* don't make it negative */ 3073 --wp->w_height; 3074 wp->w_status_height = STATUS_HEIGHT; 3075 } 3076 } 3077 else if (frp->fr_layout == FR_ROW) 3078 { 3079 /* Handle all the frames in the row. */ 3080 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3081 frame_add_statusline(frp); 3082 } 3083 else /* frp->fr_layout == FR_COL */ 3084 { 3085 /* Only need to handle the last frame in the column. */ 3086 for (frp = frp->fr_child; frp->fr_next != NULL; frp = frp->fr_next) 3087 ; 3088 frame_add_statusline(frp); 3089 } 3090 } 3091 3092 /* 3093 * Set width of a frame. Handles recursively going through contained frames. 3094 * May remove separator line for windows at the right side (for win_close()). 3095 */ 3096 static void 3097 frame_new_width( 3098 frame_T *topfrp, 3099 int width, 3100 int leftfirst, /* resize leftmost contained frame first */ 3101 int wfw) /* obey 'winfixwidth' when there is a choice; 3102 may cause the width not to be set */ 3103 { 3104 frame_T *frp; 3105 int extra_cols; 3106 int w; 3107 win_T *wp; 3108 3109 if (topfrp->fr_layout == FR_LEAF) 3110 { 3111 /* Simple case: just one window. */ 3112 wp = topfrp->fr_win; 3113 /* Find out if there are any windows right of this one. */ 3114 for (frp = topfrp; frp->fr_parent != NULL; frp = frp->fr_parent) 3115 if (frp->fr_parent->fr_layout == FR_ROW && frp->fr_next != NULL) 3116 break; 3117 if (frp->fr_parent == NULL) 3118 wp->w_vsep_width = 0; 3119 win_new_width(wp, width - wp->w_vsep_width); 3120 } 3121 else if (topfrp->fr_layout == FR_COL) 3122 { 3123 do 3124 { 3125 /* All frames in this column get the same new width. */ 3126 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 3127 { 3128 frame_new_width(frp, width, leftfirst, wfw); 3129 if (frp->fr_width > width) 3130 { 3131 /* Could not fit the windows, make whole column wider. */ 3132 width = frp->fr_width; 3133 break; 3134 } 3135 } 3136 } while (frp != NULL); 3137 } 3138 else /* fr_layout == FR_ROW */ 3139 { 3140 /* Complicated case: Resize a row of frames. Resize the rightmost 3141 * frame first, frames left of it when needed. */ 3142 3143 frp = topfrp->fr_child; 3144 if (wfw) 3145 /* Advance past frames with one window with 'wfw' set. */ 3146 while (frame_fixed_width(frp)) 3147 { 3148 frp = frp->fr_next; 3149 if (frp == NULL) 3150 return; /* no frame without 'wfw', give up */ 3151 } 3152 if (!leftfirst) 3153 { 3154 /* Find the rightmost frame of this row */ 3155 while (frp->fr_next != NULL) 3156 frp = frp->fr_next; 3157 if (wfw) 3158 /* Advance back for frames with one window with 'wfw' set. */ 3159 while (frame_fixed_width(frp)) 3160 frp = frp->fr_prev; 3161 } 3162 3163 extra_cols = width - topfrp->fr_width; 3164 if (extra_cols < 0) 3165 { 3166 /* reduce frame width, rightmost frame first */ 3167 while (frp != NULL) 3168 { 3169 w = frame_minwidth(frp, NULL); 3170 if (frp->fr_width + extra_cols < w) 3171 { 3172 extra_cols += frp->fr_width - w; 3173 frame_new_width(frp, w, leftfirst, wfw); 3174 } 3175 else 3176 { 3177 frame_new_width(frp, frp->fr_width + extra_cols, 3178 leftfirst, wfw); 3179 break; 3180 } 3181 if (leftfirst) 3182 { 3183 do 3184 frp = frp->fr_next; 3185 while (wfw && frp != NULL && frame_fixed_width(frp)); 3186 } 3187 else 3188 { 3189 do 3190 frp = frp->fr_prev; 3191 while (wfw && frp != NULL && frame_fixed_width(frp)); 3192 } 3193 /* Increase "width" if we could not reduce enough frames. */ 3194 if (frp == NULL) 3195 width -= extra_cols; 3196 } 3197 } 3198 else if (extra_cols > 0) 3199 { 3200 /* increase width of rightmost frame */ 3201 frame_new_width(frp, frp->fr_width + extra_cols, leftfirst, wfw); 3202 } 3203 } 3204 topfrp->fr_width = width; 3205 } 3206 3207 /* 3208 * Add the vertical separator to windows at the right side of "frp". 3209 * Note: Does not check if there is room! 3210 */ 3211 static void 3212 frame_add_vsep(frame_T *frp) 3213 { 3214 win_T *wp; 3215 3216 if (frp->fr_layout == FR_LEAF) 3217 { 3218 wp = frp->fr_win; 3219 if (wp->w_vsep_width == 0) 3220 { 3221 if (wp->w_width > 0) /* don't make it negative */ 3222 --wp->w_width; 3223 wp->w_vsep_width = 1; 3224 } 3225 } 3226 else if (frp->fr_layout == FR_COL) 3227 { 3228 /* Handle all the frames in the column. */ 3229 for (frp = frp->fr_child; frp != NULL; frp = frp->fr_next) 3230 frame_add_vsep(frp); 3231 } 3232 else /* frp->fr_layout == FR_ROW */ 3233 { 3234 /* Only need to handle the last frame in the row. */ 3235 frp = frp->fr_child; 3236 while (frp->fr_next != NULL) 3237 frp = frp->fr_next; 3238 frame_add_vsep(frp); 3239 } 3240 } 3241 3242 /* 3243 * Set frame width from the window it contains. 3244 */ 3245 static void 3246 frame_fix_width(win_T *wp) 3247 { 3248 wp->w_frame->fr_width = wp->w_width + wp->w_vsep_width; 3249 } 3250 3251 /* 3252 * Set frame height from the window it contains. 3253 */ 3254 static void 3255 frame_fix_height(win_T *wp) 3256 { 3257 wp->w_frame->fr_height = VISIBLE_HEIGHT(wp) + wp->w_status_height; 3258 } 3259 3260 /* 3261 * Compute the minimal height for frame "topfrp". 3262 * Uses the 'winminheight' option. 3263 * When "next_curwin" isn't NULL, use p_wh for this window. 3264 * When "next_curwin" is NOWIN, don't use at least one line for the current 3265 * window. 3266 */ 3267 static int 3268 frame_minheight(frame_T *topfrp, win_T *next_curwin) 3269 { 3270 frame_T *frp; 3271 int m; 3272 int n; 3273 3274 if (topfrp->fr_win != NULL) 3275 { 3276 if (topfrp->fr_win == next_curwin) 3277 m = p_wh + topfrp->fr_win->w_status_height; 3278 else 3279 { 3280 /* window: minimal height of the window plus status line */ 3281 m = p_wmh + topfrp->fr_win->w_status_height; 3282 if (topfrp->fr_win == curwin && next_curwin == NULL) 3283 { 3284 /* Current window is minimal one line high and WinBar is 3285 * visible. */ 3286 if (p_wmh == 0) 3287 ++m; 3288 m += WINBAR_HEIGHT(curwin); 3289 } 3290 } 3291 } 3292 else if (topfrp->fr_layout == FR_ROW) 3293 { 3294 /* get the minimal height from each frame in this row */ 3295 m = 0; 3296 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 3297 { 3298 n = frame_minheight(frp, next_curwin); 3299 if (n > m) 3300 m = n; 3301 } 3302 } 3303 else 3304 { 3305 /* Add up the minimal heights for all frames in this column. */ 3306 m = 0; 3307 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 3308 m += frame_minheight(frp, next_curwin); 3309 } 3310 3311 return m; 3312 } 3313 3314 /* 3315 * Compute the minimal width for frame "topfrp". 3316 * When "next_curwin" isn't NULL, use p_wiw for this window. 3317 * When "next_curwin" is NOWIN, don't use at least one column for the current 3318 * window. 3319 */ 3320 static int 3321 frame_minwidth( 3322 frame_T *topfrp, 3323 win_T *next_curwin) /* use p_wh and p_wiw for next_curwin */ 3324 { 3325 frame_T *frp; 3326 int m, n; 3327 3328 if (topfrp->fr_win != NULL) 3329 { 3330 if (topfrp->fr_win == next_curwin) 3331 m = p_wiw + topfrp->fr_win->w_vsep_width; 3332 else 3333 { 3334 /* window: minimal width of the window plus separator column */ 3335 m = p_wmw + topfrp->fr_win->w_vsep_width; 3336 /* Current window is minimal one column wide */ 3337 if (p_wmw == 0 && topfrp->fr_win == curwin && next_curwin == NULL) 3338 ++m; 3339 } 3340 } 3341 else if (topfrp->fr_layout == FR_COL) 3342 { 3343 /* get the minimal width from each frame in this column */ 3344 m = 0; 3345 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 3346 { 3347 n = frame_minwidth(frp, next_curwin); 3348 if (n > m) 3349 m = n; 3350 } 3351 } 3352 else 3353 { 3354 /* Add up the minimal widths for all frames in this row. */ 3355 m = 0; 3356 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 3357 m += frame_minwidth(frp, next_curwin); 3358 } 3359 3360 return m; 3361 } 3362 3363 3364 /* 3365 * Try to close all windows except current one. 3366 * Buffers in the other windows become hidden if 'hidden' is set, or '!' is 3367 * used and the buffer was modified. 3368 * 3369 * Used by ":bdel" and ":only". 3370 */ 3371 void 3372 close_others( 3373 int message, 3374 int forceit) /* always hide all other windows */ 3375 { 3376 win_T *wp; 3377 win_T *nextwp; 3378 int r; 3379 3380 if (one_window()) 3381 { 3382 if (message && !autocmd_busy) 3383 MSG(_(m_onlyone)); 3384 return; 3385 } 3386 3387 /* Be very careful here: autocommands may change the window layout. */ 3388 for (wp = firstwin; win_valid(wp); wp = nextwp) 3389 { 3390 nextwp = wp->w_next; 3391 if (wp != curwin) /* don't close current window */ 3392 { 3393 3394 /* Check if it's allowed to abandon this window */ 3395 r = can_abandon(wp->w_buffer, forceit); 3396 if (!win_valid(wp)) /* autocommands messed wp up */ 3397 { 3398 nextwp = firstwin; 3399 continue; 3400 } 3401 if (!r) 3402 { 3403 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_CON_DIALOG) 3404 if (message && (p_confirm || cmdmod.confirm) && p_write) 3405 { 3406 dialog_changed(wp->w_buffer, FALSE); 3407 if (!win_valid(wp)) /* autocommands messed wp up */ 3408 { 3409 nextwp = firstwin; 3410 continue; 3411 } 3412 } 3413 if (bufIsChanged(wp->w_buffer)) 3414 #endif 3415 continue; 3416 } 3417 win_close(wp, !buf_hide(wp->w_buffer) 3418 && !bufIsChanged(wp->w_buffer)); 3419 } 3420 } 3421 3422 if (message && !ONE_WINDOW) 3423 EMSG(_("E445: Other window contains changes")); 3424 } 3425 3426 /* 3427 * Init the current window "curwin". 3428 * Called when a new file is being edited. 3429 */ 3430 void 3431 curwin_init(void) 3432 { 3433 win_init_empty(curwin); 3434 } 3435 3436 void 3437 win_init_empty(win_T *wp) 3438 { 3439 redraw_win_later(wp, NOT_VALID); 3440 wp->w_lines_valid = 0; 3441 wp->w_cursor.lnum = 1; 3442 wp->w_curswant = wp->w_cursor.col = 0; 3443 #ifdef FEAT_VIRTUALEDIT 3444 wp->w_cursor.coladd = 0; 3445 #endif 3446 wp->w_pcmark.lnum = 1; /* pcmark not cleared but set to line 1 */ 3447 wp->w_pcmark.col = 0; 3448 wp->w_prev_pcmark.lnum = 0; 3449 wp->w_prev_pcmark.col = 0; 3450 wp->w_topline = 1; 3451 #ifdef FEAT_DIFF 3452 wp->w_topfill = 0; 3453 #endif 3454 wp->w_botline = 2; 3455 #ifdef FEAT_FKMAP 3456 if (wp->w_p_rl) 3457 wp->w_farsi = W_CONV + W_R_L; 3458 else 3459 wp->w_farsi = W_CONV; 3460 #endif 3461 #ifdef FEAT_SYN_HL 3462 wp->w_s = &wp->w_buffer->b_s; 3463 #endif 3464 } 3465 3466 /* 3467 * Allocate the first window and put an empty buffer in it. 3468 * Called from main(). 3469 * Return FAIL when something goes wrong (out of memory). 3470 */ 3471 int 3472 win_alloc_first(void) 3473 { 3474 if (win_alloc_firstwin(NULL) == FAIL) 3475 return FAIL; 3476 3477 first_tabpage = alloc_tabpage(); 3478 if (first_tabpage == NULL) 3479 return FAIL; 3480 first_tabpage->tp_topframe = topframe; 3481 curtab = first_tabpage; 3482 3483 return OK; 3484 } 3485 3486 /* 3487 * Init "aucmd_win". This can only be done after the first 3488 * window is fully initialized, thus it can't be in win_alloc_first(). 3489 */ 3490 void 3491 win_alloc_aucmd_win(void) 3492 { 3493 aucmd_win = win_alloc(NULL, TRUE); 3494 if (aucmd_win != NULL) 3495 { 3496 win_init_some(aucmd_win, curwin); 3497 RESET_BINDING(aucmd_win); 3498 new_frame(aucmd_win); 3499 } 3500 } 3501 3502 /* 3503 * Allocate the first window or the first window in a new tab page. 3504 * When "oldwin" is NULL create an empty buffer for it. 3505 * When "oldwin" is not NULL copy info from it to the new window. 3506 * Return FAIL when something goes wrong (out of memory). 3507 */ 3508 static int 3509 win_alloc_firstwin(win_T *oldwin) 3510 { 3511 curwin = win_alloc(NULL, FALSE); 3512 if (oldwin == NULL) 3513 { 3514 /* Very first window, need to create an empty buffer for it and 3515 * initialize from scratch. */ 3516 curbuf = buflist_new(NULL, NULL, 1L, BLN_LISTED); 3517 if (curwin == NULL || curbuf == NULL) 3518 return FAIL; 3519 curwin->w_buffer = curbuf; 3520 #ifdef FEAT_SYN_HL 3521 curwin->w_s = &(curbuf->b_s); 3522 #endif 3523 curbuf->b_nwindows = 1; /* there is one window */ 3524 curwin->w_alist = &global_alist; 3525 curwin_init(); /* init current window */ 3526 } 3527 else 3528 { 3529 /* First window in new tab page, initialize it from "oldwin". */ 3530 win_init(curwin, oldwin, 0); 3531 3532 /* We don't want cursor- and scroll-binding in the first window. */ 3533 RESET_BINDING(curwin); 3534 } 3535 3536 new_frame(curwin); 3537 if (curwin->w_frame == NULL) 3538 return FAIL; 3539 topframe = curwin->w_frame; 3540 topframe->fr_width = Columns; 3541 topframe->fr_height = Rows - p_ch; 3542 3543 return OK; 3544 } 3545 3546 /* 3547 * Create a frame for window "wp". 3548 */ 3549 static void 3550 new_frame(win_T *wp) 3551 { 3552 frame_T *frp = (frame_T *)alloc_clear((unsigned)sizeof(frame_T)); 3553 3554 wp->w_frame = frp; 3555 if (frp != NULL) 3556 { 3557 frp->fr_layout = FR_LEAF; 3558 frp->fr_win = wp; 3559 } 3560 } 3561 3562 /* 3563 * Initialize the window and frame size to the maximum. 3564 */ 3565 void 3566 win_init_size(void) 3567 { 3568 firstwin->w_height = ROWS_AVAIL; 3569 topframe->fr_height = ROWS_AVAIL; 3570 firstwin->w_width = Columns; 3571 topframe->fr_width = Columns; 3572 } 3573 3574 /* 3575 * Allocate a new tabpage_T and init the values. 3576 * Returns NULL when out of memory. 3577 */ 3578 static tabpage_T * 3579 alloc_tabpage(void) 3580 { 3581 tabpage_T *tp; 3582 # ifdef FEAT_GUI 3583 int i; 3584 # endif 3585 3586 3587 tp = (tabpage_T *)alloc_clear((unsigned)sizeof(tabpage_T)); 3588 if (tp == NULL) 3589 return NULL; 3590 3591 # ifdef FEAT_EVAL 3592 /* init t: variables */ 3593 tp->tp_vars = dict_alloc(); 3594 if (tp->tp_vars == NULL) 3595 { 3596 vim_free(tp); 3597 return NULL; 3598 } 3599 init_var_dict(tp->tp_vars, &tp->tp_winvar, VAR_SCOPE); 3600 # endif 3601 3602 # ifdef FEAT_GUI 3603 for (i = 0; i < 3; i++) 3604 tp->tp_prev_which_scrollbars[i] = -1; 3605 # endif 3606 # ifdef FEAT_DIFF 3607 tp->tp_diff_invalid = TRUE; 3608 # endif 3609 tp->tp_ch_used = p_ch; 3610 3611 return tp; 3612 } 3613 3614 void 3615 free_tabpage(tabpage_T *tp) 3616 { 3617 int idx; 3618 3619 # ifdef FEAT_DIFF 3620 diff_clear(tp); 3621 # endif 3622 for (idx = 0; idx < SNAP_COUNT; ++idx) 3623 clear_snapshot(tp, idx); 3624 #ifdef FEAT_EVAL 3625 vars_clear(&tp->tp_vars->dv_hashtab); /* free all t: variables */ 3626 hash_init(&tp->tp_vars->dv_hashtab); 3627 unref_var_dict(tp->tp_vars); 3628 #endif 3629 3630 #ifdef FEAT_PYTHON 3631 python_tabpage_free(tp); 3632 #endif 3633 3634 #ifdef FEAT_PYTHON3 3635 python3_tabpage_free(tp); 3636 #endif 3637 3638 vim_free(tp); 3639 } 3640 3641 /* 3642 * Create a new Tab page with one window. 3643 * It will edit the current buffer, like after ":split". 3644 * When "after" is 0 put it just after the current Tab page. 3645 * Otherwise put it just before tab page "after". 3646 * Return FAIL or OK. 3647 */ 3648 int 3649 win_new_tabpage(int after) 3650 { 3651 tabpage_T *tp = curtab; 3652 tabpage_T *newtp; 3653 int n; 3654 3655 newtp = alloc_tabpage(); 3656 if (newtp == NULL) 3657 return FAIL; 3658 3659 /* Remember the current windows in this Tab page. */ 3660 if (leave_tabpage(curbuf, TRUE) == FAIL) 3661 { 3662 vim_free(newtp); 3663 return FAIL; 3664 } 3665 curtab = newtp; 3666 3667 /* Create a new empty window. */ 3668 if (win_alloc_firstwin(tp->tp_curwin) == OK) 3669 { 3670 /* Make the new Tab page the new topframe. */ 3671 if (after == 1) 3672 { 3673 /* New tab page becomes the first one. */ 3674 newtp->tp_next = first_tabpage; 3675 first_tabpage = newtp; 3676 } 3677 else 3678 { 3679 if (after > 0) 3680 { 3681 /* Put new tab page before tab page "after". */ 3682 n = 2; 3683 for (tp = first_tabpage; tp->tp_next != NULL 3684 && n < after; tp = tp->tp_next) 3685 ++n; 3686 } 3687 newtp->tp_next = tp->tp_next; 3688 tp->tp_next = newtp; 3689 } 3690 win_init_size(); 3691 firstwin->w_winrow = tabline_height(); 3692 win_comp_scroll(curwin); 3693 3694 newtp->tp_topframe = topframe; 3695 last_status(FALSE); 3696 3697 #if defined(FEAT_GUI) 3698 /* When 'guioptions' includes 'L' or 'R' may have to remove or add 3699 * scrollbars. Have to update them anyway. */ 3700 gui_may_update_scrollbars(); 3701 #endif 3702 #ifdef FEAT_JOB_CHANNEL 3703 entering_window(curwin); 3704 #endif 3705 3706 redraw_all_later(CLEAR); 3707 apply_autocmds(EVENT_WINNEW, NULL, NULL, FALSE, curbuf); 3708 apply_autocmds(EVENT_WINENTER, NULL, NULL, FALSE, curbuf); 3709 apply_autocmds(EVENT_TABNEW, NULL, NULL, FALSE, curbuf); 3710 apply_autocmds(EVENT_TABENTER, NULL, NULL, FALSE, curbuf); 3711 return OK; 3712 } 3713 3714 /* Failed, get back the previous Tab page */ 3715 enter_tabpage(curtab, curbuf, TRUE, TRUE); 3716 return FAIL; 3717 } 3718 3719 /* 3720 * Open a new tab page if ":tab cmd" was used. It will edit the same buffer, 3721 * like with ":split". 3722 * Returns OK if a new tab page was created, FAIL otherwise. 3723 */ 3724 int 3725 may_open_tabpage(void) 3726 { 3727 int n = (cmdmod.tab == 0) ? postponed_split_tab : cmdmod.tab; 3728 3729 if (n != 0) 3730 { 3731 cmdmod.tab = 0; /* reset it to avoid doing it twice */ 3732 postponed_split_tab = 0; 3733 return win_new_tabpage(n); 3734 } 3735 return FAIL; 3736 } 3737 3738 /* 3739 * Create up to "maxcount" tabpages with empty windows. 3740 * Returns the number of resulting tab pages. 3741 */ 3742 int 3743 make_tabpages(int maxcount) 3744 { 3745 int count = maxcount; 3746 int todo; 3747 3748 /* Limit to 'tabpagemax' tabs. */ 3749 if (count > p_tpm) 3750 count = p_tpm; 3751 3752 /* 3753 * Don't execute autocommands while creating the tab pages. Must do that 3754 * when putting the buffers in the windows. 3755 */ 3756 block_autocmds(); 3757 3758 for (todo = count - 1; todo > 0; --todo) 3759 if (win_new_tabpage(0) == FAIL) 3760 break; 3761 3762 unblock_autocmds(); 3763 3764 /* return actual number of tab pages */ 3765 return (count - todo); 3766 } 3767 3768 /* 3769 * Return TRUE when "tpc" points to a valid tab page. 3770 */ 3771 int 3772 valid_tabpage(tabpage_T *tpc) 3773 { 3774 tabpage_T *tp; 3775 3776 FOR_ALL_TABPAGES(tp) 3777 if (tp == tpc) 3778 return TRUE; 3779 return FALSE; 3780 } 3781 3782 /* 3783 * Return TRUE when "tpc" points to a valid tab page and at least one window is 3784 * valid. 3785 */ 3786 int 3787 valid_tabpage_win(tabpage_T *tpc) 3788 { 3789 tabpage_T *tp; 3790 win_T *wp; 3791 3792 FOR_ALL_TABPAGES(tp) 3793 { 3794 if (tp == tpc) 3795 { 3796 FOR_ALL_WINDOWS_IN_TAB(tp, wp) 3797 { 3798 if (win_valid_any_tab(wp)) 3799 return TRUE; 3800 } 3801 return FALSE; 3802 } 3803 } 3804 /* shouldn't happen */ 3805 return FALSE; 3806 } 3807 3808 /* 3809 * Close tabpage "tab", assuming it has no windows in it. 3810 * There must be another tabpage or this will crash. 3811 */ 3812 void 3813 close_tabpage(tabpage_T *tab) 3814 { 3815 tabpage_T *ptp; 3816 3817 if (tab == first_tabpage) 3818 { 3819 first_tabpage = tab->tp_next; 3820 ptp = first_tabpage; 3821 } 3822 else 3823 { 3824 for (ptp = first_tabpage; ptp != NULL && ptp->tp_next != tab; 3825 ptp = ptp->tp_next) 3826 ; 3827 assert(ptp != NULL); 3828 ptp->tp_next = tab->tp_next; 3829 } 3830 3831 goto_tabpage_tp(ptp, FALSE, FALSE); 3832 free_tabpage(tab); 3833 } 3834 3835 /* 3836 * Find tab page "n" (first one is 1). Returns NULL when not found. 3837 */ 3838 tabpage_T * 3839 find_tabpage(int n) 3840 { 3841 tabpage_T *tp; 3842 int i = 1; 3843 3844 for (tp = first_tabpage; tp != NULL && i != n; tp = tp->tp_next) 3845 ++i; 3846 return tp; 3847 } 3848 3849 /* 3850 * Get index of tab page "tp". First one has index 1. 3851 * When not found returns number of tab pages plus one. 3852 */ 3853 int 3854 tabpage_index(tabpage_T *ftp) 3855 { 3856 int i = 1; 3857 tabpage_T *tp; 3858 3859 for (tp = first_tabpage; tp != NULL && tp != ftp; tp = tp->tp_next) 3860 ++i; 3861 return i; 3862 } 3863 3864 /* 3865 * Prepare for leaving the current tab page. 3866 * When autocommands change "curtab" we don't leave the tab page and return 3867 * FAIL. 3868 * Careful: When OK is returned need to get a new tab page very very soon! 3869 */ 3870 static int 3871 leave_tabpage( 3872 buf_T *new_curbuf UNUSED, /* what is going to be the new curbuf, 3873 NULL if unknown */ 3874 int trigger_leave_autocmds UNUSED) 3875 { 3876 tabpage_T *tp = curtab; 3877 3878 #ifdef FEAT_JOB_CHANNEL 3879 leaving_window(curwin); 3880 #endif 3881 reset_VIsual_and_resel(); /* stop Visual mode */ 3882 if (trigger_leave_autocmds) 3883 { 3884 if (new_curbuf != curbuf) 3885 { 3886 apply_autocmds(EVENT_BUFLEAVE, NULL, NULL, FALSE, curbuf); 3887 if (curtab != tp) 3888 return FAIL; 3889 } 3890 apply_autocmds(EVENT_WINLEAVE, NULL, NULL, FALSE, curbuf); 3891 if (curtab != tp) 3892 return FAIL; 3893 apply_autocmds(EVENT_TABLEAVE, NULL, NULL, FALSE, curbuf); 3894 if (curtab != tp) 3895 return FAIL; 3896 } 3897 #if defined(FEAT_GUI) 3898 /* Remove the scrollbars. They may be added back later. */ 3899 if (gui.in_use) 3900 gui_remove_scrollbars(); 3901 #endif 3902 tp->tp_curwin = curwin; 3903 tp->tp_prevwin = prevwin; 3904 tp->tp_firstwin = firstwin; 3905 tp->tp_lastwin = lastwin; 3906 tp->tp_old_Rows = Rows; 3907 tp->tp_old_Columns = Columns; 3908 firstwin = NULL; 3909 lastwin = NULL; 3910 return OK; 3911 } 3912 3913 /* 3914 * Start using tab page "tp". 3915 * Only to be used after leave_tabpage() or freeing the current tab page. 3916 * Only trigger *Enter autocommands when trigger_enter_autocmds is TRUE. 3917 * Only trigger *Leave autocommands when trigger_leave_autocmds is TRUE. 3918 */ 3919 static void 3920 enter_tabpage( 3921 tabpage_T *tp, 3922 buf_T *old_curbuf UNUSED, 3923 int trigger_enter_autocmds, 3924 int trigger_leave_autocmds) 3925 { 3926 int old_off = tp->tp_firstwin->w_winrow; 3927 win_T *next_prevwin = tp->tp_prevwin; 3928 3929 curtab = tp; 3930 firstwin = tp->tp_firstwin; 3931 lastwin = tp->tp_lastwin; 3932 topframe = tp->tp_topframe; 3933 3934 /* We would like doing the TabEnter event first, but we don't have a 3935 * valid current window yet, which may break some commands. 3936 * This triggers autocommands, thus may make "tp" invalid. */ 3937 win_enter_ext(tp->tp_curwin, FALSE, TRUE, FALSE, 3938 trigger_enter_autocmds, trigger_leave_autocmds); 3939 prevwin = next_prevwin; 3940 3941 last_status(FALSE); /* status line may appear or disappear */ 3942 (void)win_comp_pos(); /* recompute w_winrow for all windows */ 3943 must_redraw = CLEAR; /* need to redraw everything */ 3944 #ifdef FEAT_DIFF 3945 diff_need_scrollbind = TRUE; 3946 #endif 3947 3948 /* The tabpage line may have appeared or disappeared, may need to resize 3949 * the frames for that. When the Vim window was resized need to update 3950 * frame sizes too. Use the stored value of p_ch, so that it can be 3951 * different for each tab page. */ 3952 p_ch = curtab->tp_ch_used; 3953 if (curtab->tp_old_Rows != Rows || (old_off != firstwin->w_winrow 3954 #ifdef FEAT_GUI_TABLINE 3955 && !gui_use_tabline() 3956 #endif 3957 )) 3958 shell_new_rows(); 3959 if (curtab->tp_old_Columns != Columns && starting == 0) 3960 shell_new_columns(); /* update window widths */ 3961 3962 #if defined(FEAT_GUI) 3963 /* When 'guioptions' includes 'L' or 'R' may have to remove or add 3964 * scrollbars. Have to update them anyway. */ 3965 gui_may_update_scrollbars(); 3966 #endif 3967 3968 /* Apply autocommands after updating the display, when 'rows' and 3969 * 'columns' have been set correctly. */ 3970 if (trigger_enter_autocmds) 3971 { 3972 apply_autocmds(EVENT_TABENTER, NULL, NULL, FALSE, curbuf); 3973 if (old_curbuf != curbuf) 3974 apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf); 3975 } 3976 3977 redraw_all_later(CLEAR); 3978 } 3979 3980 /* 3981 * Go to tab page "n". For ":tab N" and "Ngt". 3982 * When "n" is 9999 go to the last tab page. 3983 */ 3984 void 3985 goto_tabpage(int n) 3986 { 3987 tabpage_T *tp; 3988 tabpage_T *ttp; 3989 int i; 3990 3991 if (text_locked()) 3992 { 3993 /* Not allowed when editing the command line. */ 3994 text_locked_msg(); 3995 return; 3996 } 3997 3998 /* If there is only one it can't work. */ 3999 if (first_tabpage->tp_next == NULL) 4000 { 4001 if (n > 1) 4002 beep_flush(); 4003 return; 4004 } 4005 4006 if (n == 0) 4007 { 4008 /* No count, go to next tab page, wrap around end. */ 4009 if (curtab->tp_next == NULL) 4010 tp = first_tabpage; 4011 else 4012 tp = curtab->tp_next; 4013 } 4014 else if (n < 0) 4015 { 4016 /* "gT": go to previous tab page, wrap around end. "N gT" repeats 4017 * this N times. */ 4018 ttp = curtab; 4019 for (i = n; i < 0; ++i) 4020 { 4021 for (tp = first_tabpage; tp->tp_next != ttp && tp->tp_next != NULL; 4022 tp = tp->tp_next) 4023 ; 4024 ttp = tp; 4025 } 4026 } 4027 else if (n == 9999) 4028 { 4029 /* Go to last tab page. */ 4030 for (tp = first_tabpage; tp->tp_next != NULL; tp = tp->tp_next) 4031 ; 4032 } 4033 else 4034 { 4035 /* Go to tab page "n". */ 4036 tp = find_tabpage(n); 4037 if (tp == NULL) 4038 { 4039 beep_flush(); 4040 return; 4041 } 4042 } 4043 4044 goto_tabpage_tp(tp, TRUE, TRUE); 4045 4046 #ifdef FEAT_GUI_TABLINE 4047 if (gui_use_tabline()) 4048 gui_mch_set_curtab(tabpage_index(curtab)); 4049 #endif 4050 } 4051 4052 /* 4053 * Go to tabpage "tp". 4054 * Only trigger *Enter autocommands when trigger_enter_autocmds is TRUE. 4055 * Only trigger *Leave autocommands when trigger_leave_autocmds is TRUE. 4056 * Note: doesn't update the GUI tab. 4057 */ 4058 void 4059 goto_tabpage_tp( 4060 tabpage_T *tp, 4061 int trigger_enter_autocmds, 4062 int trigger_leave_autocmds) 4063 { 4064 /* Don't repeat a message in another tab page. */ 4065 set_keep_msg(NULL, 0); 4066 4067 if (tp != curtab && leave_tabpage(tp->tp_curwin->w_buffer, 4068 trigger_leave_autocmds) == OK) 4069 { 4070 if (valid_tabpage(tp)) 4071 enter_tabpage(tp, curbuf, trigger_enter_autocmds, 4072 trigger_leave_autocmds); 4073 else 4074 enter_tabpage(curtab, curbuf, trigger_enter_autocmds, 4075 trigger_leave_autocmds); 4076 } 4077 } 4078 4079 /* 4080 * Enter window "wp" in tab page "tp". 4081 * Also updates the GUI tab. 4082 */ 4083 void 4084 goto_tabpage_win(tabpage_T *tp, win_T *wp) 4085 { 4086 goto_tabpage_tp(tp, TRUE, TRUE); 4087 if (curtab == tp && win_valid(wp)) 4088 { 4089 win_enter(wp, TRUE); 4090 # ifdef FEAT_GUI_TABLINE 4091 if (gui_use_tabline()) 4092 gui_mch_set_curtab(tabpage_index(curtab)); 4093 # endif 4094 } 4095 } 4096 4097 /* 4098 * Move the current tab page to after tab page "nr". 4099 */ 4100 void 4101 tabpage_move(int nr) 4102 { 4103 int n = 1; 4104 tabpage_T *tp, *tp_dst; 4105 4106 if (first_tabpage->tp_next == NULL) 4107 return; 4108 4109 for (tp = first_tabpage; tp->tp_next != NULL && n < nr; tp = tp->tp_next) 4110 ++n; 4111 4112 if (tp == curtab || (nr > 0 && tp->tp_next != NULL 4113 && tp->tp_next == curtab)) 4114 return; 4115 4116 tp_dst = tp; 4117 4118 /* Remove the current tab page from the list of tab pages. */ 4119 if (curtab == first_tabpage) 4120 first_tabpage = curtab->tp_next; 4121 else 4122 { 4123 FOR_ALL_TABPAGES(tp) 4124 if (tp->tp_next == curtab) 4125 break; 4126 if (tp == NULL) /* "cannot happen" */ 4127 return; 4128 tp->tp_next = curtab->tp_next; 4129 } 4130 4131 /* Re-insert it at the specified position. */ 4132 if (nr <= 0) 4133 { 4134 curtab->tp_next = first_tabpage; 4135 first_tabpage = curtab; 4136 } 4137 else 4138 { 4139 curtab->tp_next = tp_dst->tp_next; 4140 tp_dst->tp_next = curtab; 4141 } 4142 4143 /* Need to redraw the tabline. Tab page contents doesn't change. */ 4144 redraw_tabline = TRUE; 4145 } 4146 4147 4148 /* 4149 * Go to another window. 4150 * When jumping to another buffer, stop Visual mode. Do this before 4151 * changing windows so we can yank the selection into the '*' register. 4152 * When jumping to another window on the same buffer, adjust its cursor 4153 * position to keep the same Visual area. 4154 */ 4155 void 4156 win_goto(win_T *wp) 4157 { 4158 #ifdef FEAT_CONCEAL 4159 win_T *owp = curwin; 4160 #endif 4161 4162 if (text_locked()) 4163 { 4164 beep_flush(); 4165 text_locked_msg(); 4166 return; 4167 } 4168 if (curbuf_locked()) 4169 return; 4170 4171 if (wp->w_buffer != curbuf) 4172 reset_VIsual_and_resel(); 4173 else if (VIsual_active) 4174 wp->w_cursor = curwin->w_cursor; 4175 4176 #ifdef FEAT_GUI 4177 need_mouse_correct = TRUE; 4178 #endif 4179 win_enter(wp, TRUE); 4180 4181 #ifdef FEAT_CONCEAL 4182 /* Conceal cursor line in previous window, unconceal in current window. */ 4183 if (win_valid(owp) && owp->w_p_cole > 0 && !msg_scrolled) 4184 update_single_line(owp, owp->w_cursor.lnum); 4185 if (curwin->w_p_cole > 0 && !msg_scrolled) 4186 need_cursor_line_redraw = TRUE; 4187 #endif 4188 } 4189 4190 #if defined(FEAT_PERL) || defined(PROTO) 4191 /* 4192 * Find window number "winnr" (counting top to bottom). 4193 */ 4194 win_T * 4195 win_find_nr(int winnr) 4196 { 4197 win_T *wp; 4198 4199 FOR_ALL_WINDOWS(wp) 4200 if (--winnr == 0) 4201 break; 4202 return wp; 4203 } 4204 #endif 4205 4206 #if ((defined(FEAT_PYTHON) || defined(FEAT_PYTHON3))) || defined(PROTO) 4207 /* 4208 * Find the tabpage for window "win". 4209 */ 4210 tabpage_T * 4211 win_find_tabpage(win_T *win) 4212 { 4213 win_T *wp; 4214 tabpage_T *tp; 4215 4216 FOR_ALL_TAB_WINDOWS(tp, wp) 4217 if (wp == win) 4218 return tp; 4219 return NULL; 4220 } 4221 #endif 4222 4223 /* 4224 * Move to window above or below "count" times. 4225 */ 4226 static void 4227 win_goto_ver( 4228 int up, /* TRUE to go to win above */ 4229 long count) 4230 { 4231 frame_T *fr; 4232 frame_T *nfr; 4233 frame_T *foundfr; 4234 4235 foundfr = curwin->w_frame; 4236 while (count--) 4237 { 4238 /* 4239 * First go upwards in the tree of frames until we find a upwards or 4240 * downwards neighbor. 4241 */ 4242 fr = foundfr; 4243 for (;;) 4244 { 4245 if (fr == topframe) 4246 goto end; 4247 if (up) 4248 nfr = fr->fr_prev; 4249 else 4250 nfr = fr->fr_next; 4251 if (fr->fr_parent->fr_layout == FR_COL && nfr != NULL) 4252 break; 4253 fr = fr->fr_parent; 4254 } 4255 4256 /* 4257 * Now go downwards to find the bottom or top frame in it. 4258 */ 4259 for (;;) 4260 { 4261 if (nfr->fr_layout == FR_LEAF) 4262 { 4263 foundfr = nfr; 4264 break; 4265 } 4266 fr = nfr->fr_child; 4267 if (nfr->fr_layout == FR_ROW) 4268 { 4269 /* Find the frame at the cursor row. */ 4270 while (fr->fr_next != NULL 4271 && frame2win(fr)->w_wincol + fr->fr_width 4272 <= curwin->w_wincol + curwin->w_wcol) 4273 fr = fr->fr_next; 4274 } 4275 if (nfr->fr_layout == FR_COL && up) 4276 while (fr->fr_next != NULL) 4277 fr = fr->fr_next; 4278 nfr = fr; 4279 } 4280 } 4281 end: 4282 if (foundfr != NULL) 4283 win_goto(foundfr->fr_win); 4284 } 4285 4286 /* 4287 * Move to left or right window. 4288 */ 4289 static void 4290 win_goto_hor( 4291 int left, /* TRUE to go to left win */ 4292 long count) 4293 { 4294 frame_T *fr; 4295 frame_T *nfr; 4296 frame_T *foundfr; 4297 4298 foundfr = curwin->w_frame; 4299 while (count--) 4300 { 4301 /* 4302 * First go upwards in the tree of frames until we find a left or 4303 * right neighbor. 4304 */ 4305 fr = foundfr; 4306 for (;;) 4307 { 4308 if (fr == topframe) 4309 goto end; 4310 if (left) 4311 nfr = fr->fr_prev; 4312 else 4313 nfr = fr->fr_next; 4314 if (fr->fr_parent->fr_layout == FR_ROW && nfr != NULL) 4315 break; 4316 fr = fr->fr_parent; 4317 } 4318 4319 /* 4320 * Now go downwards to find the leftmost or rightmost frame in it. 4321 */ 4322 for (;;) 4323 { 4324 if (nfr->fr_layout == FR_LEAF) 4325 { 4326 foundfr = nfr; 4327 break; 4328 } 4329 fr = nfr->fr_child; 4330 if (nfr->fr_layout == FR_COL) 4331 { 4332 /* Find the frame at the cursor row. */ 4333 while (fr->fr_next != NULL 4334 && frame2win(fr)->w_winrow + fr->fr_height 4335 <= curwin->w_winrow + curwin->w_wrow) 4336 fr = fr->fr_next; 4337 } 4338 if (nfr->fr_layout == FR_ROW && left) 4339 while (fr->fr_next != NULL) 4340 fr = fr->fr_next; 4341 nfr = fr; 4342 } 4343 } 4344 end: 4345 if (foundfr != NULL) 4346 win_goto(foundfr->fr_win); 4347 } 4348 4349 /* 4350 * Make window "wp" the current window. 4351 */ 4352 void 4353 win_enter(win_T *wp, int undo_sync) 4354 { 4355 win_enter_ext(wp, undo_sync, FALSE, FALSE, TRUE, TRUE); 4356 } 4357 4358 /* 4359 * Make window wp the current window. 4360 * Can be called with "curwin_invalid" TRUE, which means that curwin has just 4361 * been closed and isn't valid. 4362 */ 4363 static void 4364 win_enter_ext( 4365 win_T *wp, 4366 int undo_sync, 4367 int curwin_invalid, 4368 int trigger_new_autocmds, 4369 int trigger_enter_autocmds, 4370 int trigger_leave_autocmds) 4371 { 4372 int other_buffer = FALSE; 4373 4374 if (wp == curwin && !curwin_invalid) /* nothing to do */ 4375 return; 4376 4377 #ifdef FEAT_JOB_CHANNEL 4378 if (!curwin_invalid) 4379 leaving_window(curwin); 4380 #endif 4381 4382 if (!curwin_invalid && trigger_leave_autocmds) 4383 { 4384 /* 4385 * Be careful: If autocommands delete the window, return now. 4386 */ 4387 if (wp->w_buffer != curbuf) 4388 { 4389 apply_autocmds(EVENT_BUFLEAVE, NULL, NULL, FALSE, curbuf); 4390 other_buffer = TRUE; 4391 if (!win_valid(wp)) 4392 return; 4393 } 4394 apply_autocmds(EVENT_WINLEAVE, NULL, NULL, FALSE, curbuf); 4395 if (!win_valid(wp)) 4396 return; 4397 #ifdef FEAT_EVAL 4398 /* autocmds may abort script processing */ 4399 if (aborting()) 4400 return; 4401 #endif 4402 } 4403 4404 /* sync undo before leaving the current buffer */ 4405 if (undo_sync && curbuf != wp->w_buffer) 4406 u_sync(FALSE); 4407 4408 /* Might need to scroll the old window before switching, e.g., when the 4409 * cursor was moved. */ 4410 update_topline(); 4411 4412 /* may have to copy the buffer options when 'cpo' contains 'S' */ 4413 if (wp->w_buffer != curbuf) 4414 buf_copy_options(wp->w_buffer, BCO_ENTER | BCO_NOHELP); 4415 if (!curwin_invalid) 4416 { 4417 prevwin = curwin; /* remember for CTRL-W p */ 4418 curwin->w_redr_status = TRUE; 4419 } 4420 curwin = wp; 4421 curbuf = wp->w_buffer; 4422 check_cursor(); 4423 #ifdef FEAT_VIRTUALEDIT 4424 if (!virtual_active()) 4425 curwin->w_cursor.coladd = 0; 4426 #endif 4427 changed_line_abv_curs(); /* assume cursor position needs updating */ 4428 4429 if (curwin->w_localdir != NULL) 4430 { 4431 /* Window has a local directory: Save current directory as global 4432 * directory (unless that was done already) and change to the local 4433 * directory. */ 4434 if (globaldir == NULL) 4435 { 4436 char_u cwd[MAXPATHL]; 4437 4438 if (mch_dirname(cwd, MAXPATHL) == OK) 4439 globaldir = vim_strsave(cwd); 4440 } 4441 if (mch_chdir((char *)curwin->w_localdir) == 0) 4442 shorten_fnames(TRUE); 4443 } 4444 else if (globaldir != NULL) 4445 { 4446 /* Window doesn't have a local directory and we are not in the global 4447 * directory: Change to the global directory. */ 4448 ignored = mch_chdir((char *)globaldir); 4449 VIM_CLEAR(globaldir); 4450 shorten_fnames(TRUE); 4451 } 4452 4453 #ifdef FEAT_JOB_CHANNEL 4454 entering_window(curwin); 4455 #endif 4456 if (trigger_new_autocmds) 4457 apply_autocmds(EVENT_WINNEW, NULL, NULL, FALSE, curbuf); 4458 if (trigger_enter_autocmds) 4459 { 4460 apply_autocmds(EVENT_WINENTER, NULL, NULL, FALSE, curbuf); 4461 if (other_buffer) 4462 apply_autocmds(EVENT_BUFENTER, NULL, NULL, FALSE, curbuf); 4463 } 4464 4465 #ifdef FEAT_TITLE 4466 maketitle(); 4467 #endif 4468 curwin->w_redr_status = TRUE; 4469 redraw_tabline = TRUE; 4470 if (restart_edit) 4471 redraw_later(VALID); /* causes status line redraw */ 4472 4473 /* set window height to desired minimal value */ 4474 if (curwin->w_height < p_wh && !curwin->w_p_wfh) 4475 win_setheight((int)p_wh); 4476 else if (curwin->w_height == 0) 4477 win_setheight(1); 4478 4479 /* set window width to desired minimal value */ 4480 if (curwin->w_width < p_wiw && !curwin->w_p_wfw) 4481 win_setwidth((int)p_wiw); 4482 4483 #ifdef FEAT_MOUSE 4484 setmouse(); /* in case jumped to/from help buffer */ 4485 #endif 4486 4487 /* Change directories when the 'acd' option is set. */ 4488 DO_AUTOCHDIR; 4489 } 4490 4491 4492 /* 4493 * Jump to the first open window that contains buffer "buf", if one exists. 4494 * Returns a pointer to the window found, otherwise NULL. 4495 */ 4496 win_T * 4497 buf_jump_open_win(buf_T *buf) 4498 { 4499 win_T *wp = NULL; 4500 4501 if (curwin->w_buffer == buf) 4502 wp = curwin; 4503 else 4504 FOR_ALL_WINDOWS(wp) 4505 if (wp->w_buffer == buf) 4506 break; 4507 if (wp != NULL) 4508 win_enter(wp, FALSE); 4509 return wp; 4510 } 4511 4512 /* 4513 * Jump to the first open window in any tab page that contains buffer "buf", 4514 * if one exists. 4515 * Returns a pointer to the window found, otherwise NULL. 4516 */ 4517 win_T * 4518 buf_jump_open_tab(buf_T *buf) 4519 { 4520 win_T *wp = buf_jump_open_win(buf); 4521 tabpage_T *tp; 4522 4523 if (wp != NULL) 4524 return wp; 4525 4526 FOR_ALL_TABPAGES(tp) 4527 if (tp != curtab) 4528 { 4529 for (wp = tp->tp_firstwin; wp != NULL; wp = wp->w_next) 4530 if (wp->w_buffer == buf) 4531 break; 4532 if (wp != NULL) 4533 { 4534 goto_tabpage_win(tp, wp); 4535 if (curwin != wp) 4536 wp = NULL; /* something went wrong */ 4537 break; 4538 } 4539 } 4540 return wp; 4541 } 4542 4543 static int last_win_id = LOWEST_WIN_ID - 1; 4544 4545 /* 4546 * Allocate a window structure and link it in the window list when "hidden" is 4547 * FALSE. 4548 */ 4549 static win_T * 4550 win_alloc(win_T *after UNUSED, int hidden UNUSED) 4551 { 4552 win_T *new_wp; 4553 4554 /* 4555 * allocate window structure and linesizes arrays 4556 */ 4557 new_wp = (win_T *)alloc_clear((unsigned)sizeof(win_T)); 4558 if (new_wp == NULL) 4559 return NULL; 4560 4561 if (win_alloc_lines(new_wp) == FAIL) 4562 { 4563 vim_free(new_wp); 4564 return NULL; 4565 } 4566 4567 new_wp->w_id = ++last_win_id; 4568 4569 #ifdef FEAT_EVAL 4570 /* init w: variables */ 4571 new_wp->w_vars = dict_alloc(); 4572 if (new_wp->w_vars == NULL) 4573 { 4574 win_free_lsize(new_wp); 4575 vim_free(new_wp); 4576 return NULL; 4577 } 4578 init_var_dict(new_wp->w_vars, &new_wp->w_winvar, VAR_SCOPE); 4579 #endif 4580 4581 /* Don't execute autocommands while the window is not properly 4582 * initialized yet. gui_create_scrollbar() may trigger a FocusGained 4583 * event. */ 4584 block_autocmds(); 4585 4586 /* 4587 * link the window in the window list 4588 */ 4589 if (!hidden) 4590 win_append(after, new_wp); 4591 new_wp->w_wincol = 0; 4592 new_wp->w_width = Columns; 4593 4594 /* position the display and the cursor at the top of the file. */ 4595 new_wp->w_topline = 1; 4596 #ifdef FEAT_DIFF 4597 new_wp->w_topfill = 0; 4598 #endif 4599 new_wp->w_botline = 2; 4600 new_wp->w_cursor.lnum = 1; 4601 new_wp->w_scbind_pos = 1; 4602 4603 /* We won't calculate w_fraction until resizing the window */ 4604 new_wp->w_fraction = 0; 4605 new_wp->w_prev_fraction_row = -1; 4606 4607 #ifdef FEAT_GUI 4608 if (gui.in_use) 4609 { 4610 gui_create_scrollbar(&new_wp->w_scrollbars[SBAR_LEFT], 4611 SBAR_LEFT, new_wp); 4612 gui_create_scrollbar(&new_wp->w_scrollbars[SBAR_RIGHT], 4613 SBAR_RIGHT, new_wp); 4614 } 4615 #endif 4616 #ifdef FEAT_FOLDING 4617 foldInitWin(new_wp); 4618 #endif 4619 unblock_autocmds(); 4620 #ifdef FEAT_SEARCH_EXTRA 4621 new_wp->w_match_head = NULL; 4622 new_wp->w_next_match_id = 4; 4623 #endif 4624 return new_wp; 4625 } 4626 4627 /* 4628 * Remove window 'wp' from the window list and free the structure. 4629 */ 4630 static void 4631 win_free( 4632 win_T *wp, 4633 tabpage_T *tp) /* tab page "win" is in, NULL for current */ 4634 { 4635 int i; 4636 buf_T *buf; 4637 wininfo_T *wip; 4638 4639 #ifdef FEAT_FOLDING 4640 clearFolding(wp); 4641 #endif 4642 4643 /* reduce the reference count to the argument list. */ 4644 alist_unlink(wp->w_alist); 4645 4646 /* Don't execute autocommands while the window is halfway being deleted. 4647 * gui_mch_destroy_scrollbar() may trigger a FocusGained event. */ 4648 block_autocmds(); 4649 4650 #ifdef FEAT_LUA 4651 lua_window_free(wp); 4652 #endif 4653 4654 #ifdef FEAT_MZSCHEME 4655 mzscheme_window_free(wp); 4656 #endif 4657 4658 #ifdef FEAT_PERL 4659 perl_win_free(wp); 4660 #endif 4661 4662 #ifdef FEAT_PYTHON 4663 python_window_free(wp); 4664 #endif 4665 4666 #ifdef FEAT_PYTHON3 4667 python3_window_free(wp); 4668 #endif 4669 4670 #ifdef FEAT_TCL 4671 tcl_window_free(wp); 4672 #endif 4673 4674 #ifdef FEAT_RUBY 4675 ruby_window_free(wp); 4676 #endif 4677 4678 clear_winopt(&wp->w_onebuf_opt); 4679 clear_winopt(&wp->w_allbuf_opt); 4680 4681 #ifdef FEAT_EVAL 4682 vars_clear(&wp->w_vars->dv_hashtab); /* free all w: variables */ 4683 hash_init(&wp->w_vars->dv_hashtab); 4684 unref_var_dict(wp->w_vars); 4685 #endif 4686 4687 { 4688 tabpage_T *ttp; 4689 4690 if (prevwin == wp) 4691 prevwin = NULL; 4692 FOR_ALL_TABPAGES(ttp) 4693 if (ttp->tp_prevwin == wp) 4694 ttp->tp_prevwin = NULL; 4695 } 4696 win_free_lsize(wp); 4697 4698 for (i = 0; i < wp->w_tagstacklen; ++i) 4699 vim_free(wp->w_tagstack[i].tagname); 4700 4701 vim_free(wp->w_localdir); 4702 4703 /* Remove the window from the b_wininfo lists, it may happen that the 4704 * freed memory is re-used for another window. */ 4705 FOR_ALL_BUFFERS(buf) 4706 for (wip = buf->b_wininfo; wip != NULL; wip = wip->wi_next) 4707 if (wip->wi_win == wp) 4708 wip->wi_win = NULL; 4709 4710 #ifdef FEAT_SEARCH_EXTRA 4711 clear_matches(wp); 4712 #endif 4713 4714 #ifdef FEAT_JUMPLIST 4715 free_jumplist(wp); 4716 #endif 4717 4718 #ifdef FEAT_QUICKFIX 4719 qf_free_all(wp); 4720 #endif 4721 4722 #ifdef FEAT_GUI 4723 if (gui.in_use) 4724 { 4725 gui_mch_destroy_scrollbar(&wp->w_scrollbars[SBAR_LEFT]); 4726 gui_mch_destroy_scrollbar(&wp->w_scrollbars[SBAR_RIGHT]); 4727 } 4728 #endif /* FEAT_GUI */ 4729 4730 #ifdef FEAT_MENU 4731 remove_winbar(wp); 4732 #endif 4733 4734 #ifdef FEAT_SYN_HL 4735 vim_free(wp->w_p_cc_cols); 4736 #endif 4737 4738 if (wp != aucmd_win) 4739 win_remove(wp, tp); 4740 if (autocmd_busy) 4741 { 4742 wp->w_next = au_pending_free_win; 4743 au_pending_free_win = wp; 4744 } 4745 else 4746 vim_free(wp); 4747 4748 unblock_autocmds(); 4749 } 4750 4751 /* 4752 * Append window "wp" in the window list after window "after". 4753 */ 4754 void 4755 win_append(win_T *after, win_T *wp) 4756 { 4757 win_T *before; 4758 4759 if (after == NULL) /* after NULL is in front of the first */ 4760 before = firstwin; 4761 else 4762 before = after->w_next; 4763 4764 wp->w_next = before; 4765 wp->w_prev = after; 4766 if (after == NULL) 4767 firstwin = wp; 4768 else 4769 after->w_next = wp; 4770 if (before == NULL) 4771 lastwin = wp; 4772 else 4773 before->w_prev = wp; 4774 } 4775 4776 /* 4777 * Remove a window from the window list. 4778 */ 4779 void 4780 win_remove( 4781 win_T *wp, 4782 tabpage_T *tp) /* tab page "win" is in, NULL for current */ 4783 { 4784 if (wp->w_prev != NULL) 4785 wp->w_prev->w_next = wp->w_next; 4786 else if (tp == NULL) 4787 firstwin = curtab->tp_firstwin = wp->w_next; 4788 else 4789 tp->tp_firstwin = wp->w_next; 4790 4791 if (wp->w_next != NULL) 4792 wp->w_next->w_prev = wp->w_prev; 4793 else if (tp == NULL) 4794 lastwin = curtab->tp_lastwin = wp->w_prev; 4795 else 4796 tp->tp_lastwin = wp->w_prev; 4797 } 4798 4799 /* 4800 * Append frame "frp" in a frame list after frame "after". 4801 */ 4802 static void 4803 frame_append(frame_T *after, frame_T *frp) 4804 { 4805 frp->fr_next = after->fr_next; 4806 after->fr_next = frp; 4807 if (frp->fr_next != NULL) 4808 frp->fr_next->fr_prev = frp; 4809 frp->fr_prev = after; 4810 } 4811 4812 /* 4813 * Insert frame "frp" in a frame list before frame "before". 4814 */ 4815 static void 4816 frame_insert(frame_T *before, frame_T *frp) 4817 { 4818 frp->fr_next = before; 4819 frp->fr_prev = before->fr_prev; 4820 before->fr_prev = frp; 4821 if (frp->fr_prev != NULL) 4822 frp->fr_prev->fr_next = frp; 4823 else 4824 frp->fr_parent->fr_child = frp; 4825 } 4826 4827 /* 4828 * Remove a frame from a frame list. 4829 */ 4830 static void 4831 frame_remove(frame_T *frp) 4832 { 4833 if (frp->fr_prev != NULL) 4834 frp->fr_prev->fr_next = frp->fr_next; 4835 else 4836 { 4837 frp->fr_parent->fr_child = frp->fr_next; 4838 /* special case: topframe->fr_child == frp */ 4839 if (topframe->fr_child == frp) 4840 topframe->fr_child = frp->fr_next; 4841 } 4842 if (frp->fr_next != NULL) 4843 frp->fr_next->fr_prev = frp->fr_prev; 4844 } 4845 4846 /* 4847 * Allocate w_lines[] for window "wp". 4848 * Return FAIL for failure, OK for success. 4849 */ 4850 int 4851 win_alloc_lines(win_T *wp) 4852 { 4853 wp->w_lines_valid = 0; 4854 wp->w_lines = (wline_T *)alloc_clear((unsigned)(Rows * sizeof(wline_T))); 4855 if (wp->w_lines == NULL) 4856 return FAIL; 4857 return OK; 4858 } 4859 4860 /* 4861 * free lsize arrays for a window 4862 */ 4863 void 4864 win_free_lsize(win_T *wp) 4865 { 4866 /* TODO: why would wp be NULL here? */ 4867 if (wp != NULL) 4868 VIM_CLEAR(wp->w_lines); 4869 } 4870 4871 /* 4872 * Called from win_new_shellsize() after Rows changed. 4873 * This only does the current tab page, others must be done when made active. 4874 */ 4875 void 4876 shell_new_rows(void) 4877 { 4878 int h = (int)ROWS_AVAIL; 4879 4880 if (firstwin == NULL) /* not initialized yet */ 4881 return; 4882 if (h < frame_minheight(topframe, NULL)) 4883 h = frame_minheight(topframe, NULL); 4884 4885 /* First try setting the heights of windows with 'winfixheight'. If 4886 * that doesn't result in the right height, forget about that option. */ 4887 frame_new_height(topframe, h, FALSE, TRUE); 4888 if (!frame_check_height(topframe, h)) 4889 frame_new_height(topframe, h, FALSE, FALSE); 4890 4891 (void)win_comp_pos(); /* recompute w_winrow and w_wincol */ 4892 compute_cmdrow(); 4893 curtab->tp_ch_used = p_ch; 4894 4895 #if 0 4896 /* Disabled: don't want making the screen smaller make a window larger. */ 4897 if (p_ea) 4898 win_equal(curwin, FALSE, 'v'); 4899 #endif 4900 } 4901 4902 /* 4903 * Called from win_new_shellsize() after Columns changed. 4904 */ 4905 void 4906 shell_new_columns(void) 4907 { 4908 if (firstwin == NULL) /* not initialized yet */ 4909 return; 4910 4911 /* First try setting the widths of windows with 'winfixwidth'. If that 4912 * doesn't result in the right width, forget about that option. */ 4913 frame_new_width(topframe, (int)Columns, FALSE, TRUE); 4914 if (!frame_check_width(topframe, Columns)) 4915 frame_new_width(topframe, (int)Columns, FALSE, FALSE); 4916 4917 (void)win_comp_pos(); /* recompute w_winrow and w_wincol */ 4918 #if 0 4919 /* Disabled: don't want making the screen smaller make a window larger. */ 4920 if (p_ea) 4921 win_equal(curwin, FALSE, 'h'); 4922 #endif 4923 } 4924 4925 #if defined(FEAT_CMDWIN) || defined(PROTO) 4926 /* 4927 * Save the size of all windows in "gap". 4928 */ 4929 void 4930 win_size_save(garray_T *gap) 4931 4932 { 4933 win_T *wp; 4934 4935 ga_init2(gap, (int)sizeof(int), 1); 4936 if (ga_grow(gap, win_count() * 2) == OK) 4937 FOR_ALL_WINDOWS(wp) 4938 { 4939 ((int *)gap->ga_data)[gap->ga_len++] = 4940 wp->w_width + wp->w_vsep_width; 4941 ((int *)gap->ga_data)[gap->ga_len++] = wp->w_height; 4942 } 4943 } 4944 4945 /* 4946 * Restore window sizes, but only if the number of windows is still the same. 4947 * Does not free the growarray. 4948 */ 4949 void 4950 win_size_restore(garray_T *gap) 4951 { 4952 win_T *wp; 4953 int i, j; 4954 4955 if (win_count() * 2 == gap->ga_len) 4956 { 4957 /* The order matters, because frames contain other frames, but it's 4958 * difficult to get right. The easy way out is to do it twice. */ 4959 for (j = 0; j < 2; ++j) 4960 { 4961 i = 0; 4962 FOR_ALL_WINDOWS(wp) 4963 { 4964 frame_setwidth(wp->w_frame, ((int *)gap->ga_data)[i++]); 4965 win_setheight_win(((int *)gap->ga_data)[i++], wp); 4966 } 4967 } 4968 /* recompute the window positions */ 4969 (void)win_comp_pos(); 4970 } 4971 } 4972 #endif /* FEAT_CMDWIN */ 4973 4974 /* 4975 * Update the position for all windows, using the width and height of the 4976 * frames. 4977 * Returns the row just after the last window. 4978 */ 4979 int 4980 win_comp_pos(void) 4981 { 4982 int row = tabline_height(); 4983 int col = 0; 4984 4985 frame_comp_pos(topframe, &row, &col); 4986 return row; 4987 } 4988 4989 /* 4990 * Update the position of the windows in frame "topfrp", using the width and 4991 * height of the frames. 4992 * "*row" and "*col" are the top-left position of the frame. They are updated 4993 * to the bottom-right position plus one. 4994 */ 4995 static void 4996 frame_comp_pos(frame_T *topfrp, int *row, int *col) 4997 { 4998 win_T *wp; 4999 frame_T *frp; 5000 int startcol; 5001 int startrow; 5002 int h; 5003 5004 wp = topfrp->fr_win; 5005 if (wp != NULL) 5006 { 5007 if (wp->w_winrow != *row || wp->w_wincol != *col) 5008 { 5009 /* position changed, redraw */ 5010 wp->w_winrow = *row; 5011 wp->w_wincol = *col; 5012 redraw_win_later(wp, NOT_VALID); 5013 wp->w_redr_status = TRUE; 5014 } 5015 /* WinBar will not show if the window height is zero */ 5016 h = VISIBLE_HEIGHT(wp) + wp->w_status_height; 5017 *row += h > topfrp->fr_height ? topfrp->fr_height : h; 5018 *col += wp->w_width + wp->w_vsep_width; 5019 } 5020 else 5021 { 5022 startrow = *row; 5023 startcol = *col; 5024 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 5025 { 5026 if (topfrp->fr_layout == FR_ROW) 5027 *row = startrow; /* all frames are at the same row */ 5028 else 5029 *col = startcol; /* all frames are at the same col */ 5030 frame_comp_pos(frp, row, col); 5031 } 5032 } 5033 } 5034 5035 /* 5036 * Set current window height and take care of repositioning other windows to 5037 * fit around it. 5038 */ 5039 void 5040 win_setheight(int height) 5041 { 5042 win_setheight_win(height, curwin); 5043 } 5044 5045 /* 5046 * Set the window height of window "win" and take care of repositioning other 5047 * windows to fit around it. 5048 */ 5049 void 5050 win_setheight_win(int height, win_T *win) 5051 { 5052 int row; 5053 5054 if (win == curwin) 5055 { 5056 /* Always keep current window at least one line high, even when 5057 * 'winminheight' is zero. */ 5058 if (height < p_wmh) 5059 height = p_wmh; 5060 if (height == 0) 5061 height = 1; 5062 height += WINBAR_HEIGHT(curwin); 5063 } 5064 5065 frame_setheight(win->w_frame, height + win->w_status_height); 5066 5067 /* recompute the window positions */ 5068 row = win_comp_pos(); 5069 5070 /* 5071 * If there is extra space created between the last window and the command 5072 * line, clear it. 5073 */ 5074 if (full_screen && msg_scrolled == 0 && row < cmdline_row) 5075 screen_fill(row, cmdline_row, 0, (int)Columns, ' ', ' ', 0); 5076 cmdline_row = row; 5077 msg_row = row; 5078 msg_col = 0; 5079 5080 redraw_all_later(NOT_VALID); 5081 } 5082 5083 /* 5084 * Set the height of a frame to "height" and take care that all frames and 5085 * windows inside it are resized. Also resize frames on the left and right if 5086 * the are in the same FR_ROW frame. 5087 * 5088 * Strategy: 5089 * If the frame is part of a FR_COL frame, try fitting the frame in that 5090 * frame. If that doesn't work (the FR_COL frame is too small), recursively 5091 * go to containing frames to resize them and make room. 5092 * If the frame is part of a FR_ROW frame, all frames must be resized as well. 5093 * Check for the minimal height of the FR_ROW frame. 5094 * At the top level we can also use change the command line height. 5095 */ 5096 static void 5097 frame_setheight(frame_T *curfrp, int height) 5098 { 5099 int room; /* total number of lines available */ 5100 int take; /* number of lines taken from other windows */ 5101 int room_cmdline; /* lines available from cmdline */ 5102 int run; 5103 frame_T *frp; 5104 int h; 5105 int room_reserved; 5106 5107 /* If the height already is the desired value, nothing to do. */ 5108 if (curfrp->fr_height == height) 5109 return; 5110 5111 if (curfrp->fr_parent == NULL) 5112 { 5113 /* topframe: can only change the command line */ 5114 if (height > ROWS_AVAIL) 5115 height = ROWS_AVAIL; 5116 if (height > 0) 5117 frame_new_height(curfrp, height, FALSE, FALSE); 5118 } 5119 else if (curfrp->fr_parent->fr_layout == FR_ROW) 5120 { 5121 /* Row of frames: Also need to resize frames left and right of this 5122 * one. First check for the minimal height of these. */ 5123 h = frame_minheight(curfrp->fr_parent, NULL); 5124 if (height < h) 5125 height = h; 5126 frame_setheight(curfrp->fr_parent, height); 5127 } 5128 else 5129 { 5130 /* 5131 * Column of frames: try to change only frames in this column. 5132 */ 5133 /* 5134 * Do this twice: 5135 * 1: compute room available, if it's not enough try resizing the 5136 * containing frame. 5137 * 2: compute the room available and adjust the height to it. 5138 * Try not to reduce the height of a window with 'winfixheight' set. 5139 */ 5140 for (run = 1; run <= 2; ++run) 5141 { 5142 room = 0; 5143 room_reserved = 0; 5144 for (frp = curfrp->fr_parent->fr_child; frp != NULL; 5145 frp = frp->fr_next) 5146 { 5147 if (frp != curfrp 5148 && frp->fr_win != NULL 5149 && frp->fr_win->w_p_wfh) 5150 room_reserved += frp->fr_height; 5151 room += frp->fr_height; 5152 if (frp != curfrp) 5153 room -= frame_minheight(frp, NULL); 5154 } 5155 if (curfrp->fr_width != Columns) 5156 room_cmdline = 0; 5157 else 5158 { 5159 room_cmdline = Rows - p_ch - (lastwin->w_winrow 5160 + VISIBLE_HEIGHT(lastwin) 5161 + lastwin->w_status_height); 5162 if (room_cmdline < 0) 5163 room_cmdline = 0; 5164 } 5165 5166 if (height <= room + room_cmdline) 5167 break; 5168 if (run == 2 || curfrp->fr_width == Columns) 5169 { 5170 if (height > room + room_cmdline) 5171 height = room + room_cmdline; 5172 break; 5173 } 5174 frame_setheight(curfrp->fr_parent, height 5175 + frame_minheight(curfrp->fr_parent, NOWIN) - (int)p_wmh - 1); 5176 } 5177 5178 /* 5179 * Compute the number of lines we will take from others frames (can be 5180 * negative!). 5181 */ 5182 take = height - curfrp->fr_height; 5183 5184 /* If there is not enough room, also reduce the height of a window 5185 * with 'winfixheight' set. */ 5186 if (height > room + room_cmdline - room_reserved) 5187 room_reserved = room + room_cmdline - height; 5188 /* If there is only a 'winfixheight' window and making the 5189 * window smaller, need to make the other window taller. */ 5190 if (take < 0 && room - curfrp->fr_height < room_reserved) 5191 room_reserved = 0; 5192 5193 if (take > 0 && room_cmdline > 0) 5194 { 5195 /* use lines from cmdline first */ 5196 if (take < room_cmdline) 5197 room_cmdline = take; 5198 take -= room_cmdline; 5199 topframe->fr_height += room_cmdline; 5200 } 5201 5202 /* 5203 * set the current frame to the new height 5204 */ 5205 frame_new_height(curfrp, height, FALSE, FALSE); 5206 5207 /* 5208 * First take lines from the frames after the current frame. If 5209 * that is not enough, takes lines from frames above the current 5210 * frame. 5211 */ 5212 for (run = 0; run < 2; ++run) 5213 { 5214 if (run == 0) 5215 frp = curfrp->fr_next; /* 1st run: start with next window */ 5216 else 5217 frp = curfrp->fr_prev; /* 2nd run: start with prev window */ 5218 while (frp != NULL && take != 0) 5219 { 5220 h = frame_minheight(frp, NULL); 5221 if (room_reserved > 0 5222 && frp->fr_win != NULL 5223 && frp->fr_win->w_p_wfh) 5224 { 5225 if (room_reserved >= frp->fr_height) 5226 room_reserved -= frp->fr_height; 5227 else 5228 { 5229 if (frp->fr_height - room_reserved > take) 5230 room_reserved = frp->fr_height - take; 5231 take -= frp->fr_height - room_reserved; 5232 frame_new_height(frp, room_reserved, FALSE, FALSE); 5233 room_reserved = 0; 5234 } 5235 } 5236 else 5237 { 5238 if (frp->fr_height - take < h) 5239 { 5240 take -= frp->fr_height - h; 5241 frame_new_height(frp, h, FALSE, FALSE); 5242 } 5243 else 5244 { 5245 frame_new_height(frp, frp->fr_height - take, 5246 FALSE, FALSE); 5247 take = 0; 5248 } 5249 } 5250 if (run == 0) 5251 frp = frp->fr_next; 5252 else 5253 frp = frp->fr_prev; 5254 } 5255 } 5256 } 5257 } 5258 5259 /* 5260 * Set current window width and take care of repositioning other windows to 5261 * fit around it. 5262 */ 5263 void 5264 win_setwidth(int width) 5265 { 5266 win_setwidth_win(width, curwin); 5267 } 5268 5269 void 5270 win_setwidth_win(int width, win_T *wp) 5271 { 5272 /* Always keep current window at least one column wide, even when 5273 * 'winminwidth' is zero. */ 5274 if (wp == curwin) 5275 { 5276 if (width < p_wmw) 5277 width = p_wmw; 5278 if (width == 0) 5279 width = 1; 5280 } 5281 5282 frame_setwidth(wp->w_frame, width + wp->w_vsep_width); 5283 5284 /* recompute the window positions */ 5285 (void)win_comp_pos(); 5286 5287 redraw_all_later(NOT_VALID); 5288 } 5289 5290 /* 5291 * Set the width of a frame to "width" and take care that all frames and 5292 * windows inside it are resized. Also resize frames above and below if the 5293 * are in the same FR_ROW frame. 5294 * 5295 * Strategy is similar to frame_setheight(). 5296 */ 5297 static void 5298 frame_setwidth(frame_T *curfrp, int width) 5299 { 5300 int room; /* total number of lines available */ 5301 int take; /* number of lines taken from other windows */ 5302 int run; 5303 frame_T *frp; 5304 int w; 5305 int room_reserved; 5306 5307 /* If the width already is the desired value, nothing to do. */ 5308 if (curfrp->fr_width == width) 5309 return; 5310 5311 if (curfrp->fr_parent == NULL) 5312 /* topframe: can't change width */ 5313 return; 5314 5315 if (curfrp->fr_parent->fr_layout == FR_COL) 5316 { 5317 /* Column of frames: Also need to resize frames above and below of 5318 * this one. First check for the minimal width of these. */ 5319 w = frame_minwidth(curfrp->fr_parent, NULL); 5320 if (width < w) 5321 width = w; 5322 frame_setwidth(curfrp->fr_parent, width); 5323 } 5324 else 5325 { 5326 /* 5327 * Row of frames: try to change only frames in this row. 5328 * 5329 * Do this twice: 5330 * 1: compute room available, if it's not enough try resizing the 5331 * containing frame. 5332 * 2: compute the room available and adjust the width to it. 5333 */ 5334 for (run = 1; run <= 2; ++run) 5335 { 5336 room = 0; 5337 room_reserved = 0; 5338 for (frp = curfrp->fr_parent->fr_child; frp != NULL; 5339 frp = frp->fr_next) 5340 { 5341 if (frp != curfrp 5342 && frp->fr_win != NULL 5343 && frp->fr_win->w_p_wfw) 5344 room_reserved += frp->fr_width; 5345 room += frp->fr_width; 5346 if (frp != curfrp) 5347 room -= frame_minwidth(frp, NULL); 5348 } 5349 5350 if (width <= room) 5351 break; 5352 if (run == 2 || curfrp->fr_height >= ROWS_AVAIL) 5353 { 5354 if (width > room) 5355 width = room; 5356 break; 5357 } 5358 frame_setwidth(curfrp->fr_parent, width 5359 + frame_minwidth(curfrp->fr_parent, NOWIN) - (int)p_wmw - 1); 5360 } 5361 5362 /* 5363 * Compute the number of lines we will take from others frames (can be 5364 * negative!). 5365 */ 5366 take = width - curfrp->fr_width; 5367 5368 /* If there is not enough room, also reduce the width of a window 5369 * with 'winfixwidth' set. */ 5370 if (width > room - room_reserved) 5371 room_reserved = room - width; 5372 /* If there is only a 'winfixwidth' window and making the 5373 * window smaller, need to make the other window narrower. */ 5374 if (take < 0 && room - curfrp->fr_width < room_reserved) 5375 room_reserved = 0; 5376 5377 /* 5378 * set the current frame to the new width 5379 */ 5380 frame_new_width(curfrp, width, FALSE, FALSE); 5381 5382 /* 5383 * First take lines from the frames right of the current frame. If 5384 * that is not enough, takes lines from frames left of the current 5385 * frame. 5386 */ 5387 for (run = 0; run < 2; ++run) 5388 { 5389 if (run == 0) 5390 frp = curfrp->fr_next; /* 1st run: start with next window */ 5391 else 5392 frp = curfrp->fr_prev; /* 2nd run: start with prev window */ 5393 while (frp != NULL && take != 0) 5394 { 5395 w = frame_minwidth(frp, NULL); 5396 if (room_reserved > 0 5397 && frp->fr_win != NULL 5398 && frp->fr_win->w_p_wfw) 5399 { 5400 if (room_reserved >= frp->fr_width) 5401 room_reserved -= frp->fr_width; 5402 else 5403 { 5404 if (frp->fr_width - room_reserved > take) 5405 room_reserved = frp->fr_width - take; 5406 take -= frp->fr_width - room_reserved; 5407 frame_new_width(frp, room_reserved, FALSE, FALSE); 5408 room_reserved = 0; 5409 } 5410 } 5411 else 5412 { 5413 if (frp->fr_width - take < w) 5414 { 5415 take -= frp->fr_width - w; 5416 frame_new_width(frp, w, FALSE, FALSE); 5417 } 5418 else 5419 { 5420 frame_new_width(frp, frp->fr_width - take, 5421 FALSE, FALSE); 5422 take = 0; 5423 } 5424 } 5425 if (run == 0) 5426 frp = frp->fr_next; 5427 else 5428 frp = frp->fr_prev; 5429 } 5430 } 5431 } 5432 } 5433 5434 /* 5435 * Check 'winminheight' for a valid value and reduce it if needed. 5436 */ 5437 void 5438 win_setminheight(void) 5439 { 5440 int room; 5441 int needed; 5442 int first = TRUE; 5443 5444 // loop until there is a 'winminheight' that is possible 5445 while (p_wmh > 0) 5446 { 5447 room = Rows - p_ch; 5448 needed = frame_minheight(topframe, NULL); 5449 if (room >= needed) 5450 break; 5451 --p_wmh; 5452 if (first) 5453 { 5454 EMSG(_(e_noroom)); 5455 first = FALSE; 5456 } 5457 } 5458 } 5459 5460 /* 5461 * Check 'winminwidth' for a valid value and reduce it if needed. 5462 */ 5463 void 5464 win_setminwidth(void) 5465 { 5466 int room; 5467 int needed; 5468 int first = TRUE; 5469 5470 // loop until there is a 'winminheight' that is possible 5471 while (p_wmw > 0) 5472 { 5473 room = Columns; 5474 needed = frame_minwidth(topframe, NULL); 5475 if (room >= needed) 5476 break; 5477 --p_wmw; 5478 if (first) 5479 { 5480 EMSG(_(e_noroom)); 5481 first = FALSE; 5482 } 5483 } 5484 } 5485 5486 #if defined(FEAT_MOUSE) || defined(PROTO) 5487 5488 /* 5489 * Status line of dragwin is dragged "offset" lines down (negative is up). 5490 */ 5491 void 5492 win_drag_status_line(win_T *dragwin, int offset) 5493 { 5494 frame_T *curfr; 5495 frame_T *fr; 5496 int room; 5497 int row; 5498 int up; /* if TRUE, drag status line up, otherwise down */ 5499 int n; 5500 5501 fr = dragwin->w_frame; 5502 curfr = fr; 5503 if (fr != topframe) /* more than one window */ 5504 { 5505 fr = fr->fr_parent; 5506 /* When the parent frame is not a column of frames, its parent should 5507 * be. */ 5508 if (fr->fr_layout != FR_COL) 5509 { 5510 curfr = fr; 5511 if (fr != topframe) /* only a row of windows, may drag statusline */ 5512 fr = fr->fr_parent; 5513 } 5514 } 5515 5516 /* If this is the last frame in a column, may want to resize the parent 5517 * frame instead (go two up to skip a row of frames). */ 5518 while (curfr != topframe && curfr->fr_next == NULL) 5519 { 5520 if (fr != topframe) 5521 fr = fr->fr_parent; 5522 curfr = fr; 5523 if (fr != topframe) 5524 fr = fr->fr_parent; 5525 } 5526 5527 if (offset < 0) /* drag up */ 5528 { 5529 up = TRUE; 5530 offset = -offset; 5531 /* sum up the room of the current frame and above it */ 5532 if (fr == curfr) 5533 { 5534 /* only one window */ 5535 room = fr->fr_height - frame_minheight(fr, NULL); 5536 } 5537 else 5538 { 5539 room = 0; 5540 for (fr = fr->fr_child; ; fr = fr->fr_next) 5541 { 5542 room += fr->fr_height - frame_minheight(fr, NULL); 5543 if (fr == curfr) 5544 break; 5545 } 5546 } 5547 fr = curfr->fr_next; /* put fr at frame that grows */ 5548 } 5549 else /* drag down */ 5550 { 5551 up = FALSE; 5552 /* 5553 * Only dragging the last status line can reduce p_ch. 5554 */ 5555 room = Rows - cmdline_row; 5556 if (curfr->fr_next == NULL) 5557 room -= 1; 5558 else 5559 room -= p_ch; 5560 if (room < 0) 5561 room = 0; 5562 /* sum up the room of frames below of the current one */ 5563 for (fr = curfr->fr_next; fr != NULL; fr = fr->fr_next) 5564 room += fr->fr_height - frame_minheight(fr, NULL); 5565 fr = curfr; /* put fr at window that grows */ 5566 } 5567 5568 if (room < offset) /* Not enough room */ 5569 offset = room; /* Move as far as we can */ 5570 if (offset <= 0) 5571 return; 5572 5573 /* 5574 * Grow frame fr by "offset" lines. 5575 * Doesn't happen when dragging the last status line up. 5576 */ 5577 if (fr != NULL) 5578 frame_new_height(fr, fr->fr_height + offset, up, FALSE); 5579 5580 if (up) 5581 fr = curfr; /* current frame gets smaller */ 5582 else 5583 fr = curfr->fr_next; /* next frame gets smaller */ 5584 5585 /* 5586 * Now make the other frames smaller. 5587 */ 5588 while (fr != NULL && offset > 0) 5589 { 5590 n = frame_minheight(fr, NULL); 5591 if (fr->fr_height - offset <= n) 5592 { 5593 offset -= fr->fr_height - n; 5594 frame_new_height(fr, n, !up, FALSE); 5595 } 5596 else 5597 { 5598 frame_new_height(fr, fr->fr_height - offset, !up, FALSE); 5599 break; 5600 } 5601 if (up) 5602 fr = fr->fr_prev; 5603 else 5604 fr = fr->fr_next; 5605 } 5606 row = win_comp_pos(); 5607 screen_fill(row, cmdline_row, 0, (int)Columns, ' ', ' ', 0); 5608 cmdline_row = row; 5609 p_ch = Rows - cmdline_row; 5610 if (p_ch < 1) 5611 p_ch = 1; 5612 curtab->tp_ch_used = p_ch; 5613 redraw_all_later(SOME_VALID); 5614 showmode(); 5615 } 5616 5617 /* 5618 * Separator line of dragwin is dragged "offset" lines right (negative is left). 5619 */ 5620 void 5621 win_drag_vsep_line(win_T *dragwin, int offset) 5622 { 5623 frame_T *curfr; 5624 frame_T *fr; 5625 int room; 5626 int left; /* if TRUE, drag separator line left, otherwise right */ 5627 int n; 5628 5629 fr = dragwin->w_frame; 5630 if (fr == topframe) /* only one window (cannot happen?) */ 5631 return; 5632 curfr = fr; 5633 fr = fr->fr_parent; 5634 /* When the parent frame is not a row of frames, its parent should be. */ 5635 if (fr->fr_layout != FR_ROW) 5636 { 5637 if (fr == topframe) /* only a column of windows (cannot happen?) */ 5638 return; 5639 curfr = fr; 5640 fr = fr->fr_parent; 5641 } 5642 5643 /* If this is the last frame in a row, may want to resize a parent 5644 * frame instead. */ 5645 while (curfr->fr_next == NULL) 5646 { 5647 if (fr == topframe) 5648 break; 5649 curfr = fr; 5650 fr = fr->fr_parent; 5651 if (fr != topframe) 5652 { 5653 curfr = fr; 5654 fr = fr->fr_parent; 5655 } 5656 } 5657 5658 if (offset < 0) /* drag left */ 5659 { 5660 left = TRUE; 5661 offset = -offset; 5662 /* sum up the room of the current frame and left of it */ 5663 room = 0; 5664 for (fr = fr->fr_child; ; fr = fr->fr_next) 5665 { 5666 room += fr->fr_width - frame_minwidth(fr, NULL); 5667 if (fr == curfr) 5668 break; 5669 } 5670 fr = curfr->fr_next; /* put fr at frame that grows */ 5671 } 5672 else /* drag right */ 5673 { 5674 left = FALSE; 5675 /* sum up the room of frames right of the current one */ 5676 room = 0; 5677 for (fr = curfr->fr_next; fr != NULL; fr = fr->fr_next) 5678 room += fr->fr_width - frame_minwidth(fr, NULL); 5679 fr = curfr; /* put fr at window that grows */ 5680 } 5681 5682 if (room < offset) /* Not enough room */ 5683 offset = room; /* Move as far as we can */ 5684 if (offset <= 0) /* No room at all, quit. */ 5685 return; 5686 if (fr == NULL) 5687 return; /* Safety check, should not happen. */ 5688 5689 /* grow frame fr by offset lines */ 5690 frame_new_width(fr, fr->fr_width + offset, left, FALSE); 5691 5692 /* shrink other frames: current and at the left or at the right */ 5693 if (left) 5694 fr = curfr; /* current frame gets smaller */ 5695 else 5696 fr = curfr->fr_next; /* next frame gets smaller */ 5697 5698 while (fr != NULL && offset > 0) 5699 { 5700 n = frame_minwidth(fr, NULL); 5701 if (fr->fr_width - offset <= n) 5702 { 5703 offset -= fr->fr_width - n; 5704 frame_new_width(fr, n, !left, FALSE); 5705 } 5706 else 5707 { 5708 frame_new_width(fr, fr->fr_width - offset, !left, FALSE); 5709 break; 5710 } 5711 if (left) 5712 fr = fr->fr_prev; 5713 else 5714 fr = fr->fr_next; 5715 } 5716 (void)win_comp_pos(); 5717 redraw_all_later(NOT_VALID); 5718 } 5719 #endif /* FEAT_MOUSE */ 5720 5721 #define FRACTION_MULT 16384L 5722 5723 /* 5724 * Set wp->w_fraction for the current w_wrow and w_height. 5725 * Has no effect when the window is less than two lines. 5726 */ 5727 void 5728 set_fraction(win_T *wp) 5729 { 5730 if (wp->w_height > 1) 5731 wp->w_fraction = ((long)wp->w_wrow * FRACTION_MULT 5732 + wp->w_height / 2) / (long)wp->w_height; 5733 } 5734 5735 /* 5736 * Set the height of a window. 5737 * "height" excludes any window toolbar. 5738 * This takes care of the things inside the window, not what happens to the 5739 * window position, the frame or to other windows. 5740 */ 5741 void 5742 win_new_height(win_T *wp, int height) 5743 { 5744 int prev_height = wp->w_height; 5745 5746 /* Don't want a negative height. Happens when splitting a tiny window. 5747 * Will equalize heights soon to fix it. */ 5748 if (height < 0) 5749 height = 0; 5750 if (wp->w_height == height) 5751 return; /* nothing to do */ 5752 5753 if (wp->w_height > 0) 5754 { 5755 if (wp == curwin) 5756 /* w_wrow needs to be valid. When setting 'laststatus' this may 5757 * call win_new_height() recursively. */ 5758 validate_cursor(); 5759 if (wp->w_height != prev_height) 5760 return; /* Recursive call already changed the size, bail out here 5761 to avoid the following to mess things up. */ 5762 if (wp->w_wrow != wp->w_prev_fraction_row) 5763 set_fraction(wp); 5764 } 5765 5766 wp->w_height = height; 5767 wp->w_skipcol = 0; 5768 5769 /* There is no point in adjusting the scroll position when exiting. Some 5770 * values might be invalid. */ 5771 if (!exiting) 5772 scroll_to_fraction(wp, prev_height); 5773 } 5774 5775 void 5776 scroll_to_fraction(win_T *wp, int prev_height) 5777 { 5778 linenr_T lnum; 5779 int sline, line_size; 5780 int height = wp->w_height; 5781 5782 /* Don't change w_topline when height is zero. Don't set w_topline when 5783 * 'scrollbind' is set and this isn't the current window. */ 5784 if (height > 0 && (!wp->w_p_scb || wp == curwin)) 5785 { 5786 /* 5787 * Find a value for w_topline that shows the cursor at the same 5788 * relative position in the window as before (more or less). 5789 */ 5790 lnum = wp->w_cursor.lnum; 5791 if (lnum < 1) /* can happen when starting up */ 5792 lnum = 1; 5793 wp->w_wrow = ((long)wp->w_fraction * (long)height - 1L 5794 + FRACTION_MULT / 2) / FRACTION_MULT; 5795 line_size = plines_win_col(wp, lnum, (long)(wp->w_cursor.col)) - 1; 5796 sline = wp->w_wrow - line_size; 5797 5798 if (sline >= 0) 5799 { 5800 /* Make sure the whole cursor line is visible, if possible. */ 5801 int rows = plines_win(wp, lnum, FALSE); 5802 5803 if (sline > wp->w_height - rows) 5804 { 5805 sline = wp->w_height - rows; 5806 wp->w_wrow -= rows - line_size; 5807 } 5808 } 5809 5810 if (sline < 0) 5811 { 5812 /* 5813 * Cursor line would go off top of screen if w_wrow was this high. 5814 * Make cursor line the first line in the window. If not enough 5815 * room use w_skipcol; 5816 */ 5817 wp->w_wrow = line_size; 5818 if (wp->w_wrow >= wp->w_height 5819 && (wp->w_width - win_col_off(wp)) > 0) 5820 { 5821 wp->w_skipcol += wp->w_width - win_col_off(wp); 5822 --wp->w_wrow; 5823 while (wp->w_wrow >= wp->w_height) 5824 { 5825 wp->w_skipcol += wp->w_width - win_col_off(wp) 5826 + win_col_off2(wp); 5827 --wp->w_wrow; 5828 } 5829 } 5830 set_topline(wp, lnum); 5831 } 5832 else if (sline > 0) 5833 { 5834 while (sline > 0 && lnum > 1) 5835 { 5836 #ifdef FEAT_FOLDING 5837 hasFoldingWin(wp, lnum, &lnum, NULL, TRUE, NULL); 5838 if (lnum == 1) 5839 { 5840 /* first line in buffer is folded */ 5841 line_size = 1; 5842 --sline; 5843 break; 5844 } 5845 #endif 5846 --lnum; 5847 #ifdef FEAT_DIFF 5848 if (lnum == wp->w_topline) 5849 line_size = plines_win_nofill(wp, lnum, TRUE) 5850 + wp->w_topfill; 5851 else 5852 #endif 5853 line_size = plines_win(wp, lnum, TRUE); 5854 sline -= line_size; 5855 } 5856 5857 if (sline < 0) 5858 { 5859 /* 5860 * Line we want at top would go off top of screen. Use next 5861 * line instead. 5862 */ 5863 #ifdef FEAT_FOLDING 5864 hasFoldingWin(wp, lnum, NULL, &lnum, TRUE, NULL); 5865 #endif 5866 lnum++; 5867 wp->w_wrow -= line_size + sline; 5868 } 5869 else if (sline > 0) 5870 { 5871 /* First line of file reached, use that as topline. */ 5872 lnum = 1; 5873 wp->w_wrow -= sline; 5874 } 5875 5876 set_topline(wp, lnum); 5877 } 5878 } 5879 5880 if (wp == curwin) 5881 { 5882 if (p_so) 5883 update_topline(); 5884 curs_columns(FALSE); /* validate w_wrow */ 5885 } 5886 if (prev_height > 0) 5887 wp->w_prev_fraction_row = wp->w_wrow; 5888 5889 win_comp_scroll(wp); 5890 redraw_win_later(wp, SOME_VALID); 5891 wp->w_redr_status = TRUE; 5892 invalidate_botline_win(wp); 5893 } 5894 5895 /* 5896 * Set the width of a window. 5897 */ 5898 void 5899 win_new_width(win_T *wp, int width) 5900 { 5901 wp->w_width = width; 5902 wp->w_lines_valid = 0; 5903 changed_line_abv_curs_win(wp); 5904 invalidate_botline_win(wp); 5905 if (wp == curwin) 5906 { 5907 update_topline(); 5908 curs_columns(TRUE); /* validate w_wrow */ 5909 } 5910 redraw_win_later(wp, NOT_VALID); 5911 wp->w_redr_status = TRUE; 5912 } 5913 5914 void 5915 win_comp_scroll(win_T *wp) 5916 { 5917 wp->w_p_scr = ((unsigned)wp->w_height >> 1); 5918 if (wp->w_p_scr == 0) 5919 wp->w_p_scr = 1; 5920 } 5921 5922 /* 5923 * command_height: called whenever p_ch has been changed 5924 */ 5925 void 5926 command_height(void) 5927 { 5928 int h; 5929 frame_T *frp; 5930 int old_p_ch = curtab->tp_ch_used; 5931 5932 /* Use the value of p_ch that we remembered. This is needed for when the 5933 * GUI starts up, we can't be sure in what order things happen. And when 5934 * p_ch was changed in another tab page. */ 5935 curtab->tp_ch_used = p_ch; 5936 5937 /* Find bottom frame with width of screen. */ 5938 frp = lastwin->w_frame; 5939 while (frp->fr_width != Columns && frp->fr_parent != NULL) 5940 frp = frp->fr_parent; 5941 5942 /* Avoid changing the height of a window with 'winfixheight' set. */ 5943 while (frp->fr_prev != NULL && frp->fr_layout == FR_LEAF 5944 && frp->fr_win->w_p_wfh) 5945 frp = frp->fr_prev; 5946 5947 if (starting != NO_SCREEN) 5948 { 5949 cmdline_row = Rows - p_ch; 5950 5951 if (p_ch > old_p_ch) /* p_ch got bigger */ 5952 { 5953 while (p_ch > old_p_ch) 5954 { 5955 if (frp == NULL) 5956 { 5957 EMSG(_(e_noroom)); 5958 p_ch = old_p_ch; 5959 curtab->tp_ch_used = p_ch; 5960 cmdline_row = Rows - p_ch; 5961 break; 5962 } 5963 h = frp->fr_height - frame_minheight(frp, NULL); 5964 if (h > p_ch - old_p_ch) 5965 h = p_ch - old_p_ch; 5966 old_p_ch += h; 5967 frame_add_height(frp, -h); 5968 frp = frp->fr_prev; 5969 } 5970 5971 /* Recompute window positions. */ 5972 (void)win_comp_pos(); 5973 5974 /* clear the lines added to cmdline */ 5975 if (full_screen) 5976 screen_fill((int)(cmdline_row), (int)Rows, 0, 5977 (int)Columns, ' ', ' ', 0); 5978 msg_row = cmdline_row; 5979 redraw_cmdline = TRUE; 5980 return; 5981 } 5982 5983 if (msg_row < cmdline_row) 5984 msg_row = cmdline_row; 5985 redraw_cmdline = TRUE; 5986 } 5987 frame_add_height(frp, (int)(old_p_ch - p_ch)); 5988 5989 /* Recompute window positions. */ 5990 if (frp != lastwin->w_frame) 5991 (void)win_comp_pos(); 5992 } 5993 5994 /* 5995 * Resize frame "frp" to be "n" lines higher (negative for less high). 5996 * Also resize the frames it is contained in. 5997 */ 5998 static void 5999 frame_add_height(frame_T *frp, int n) 6000 { 6001 frame_new_height(frp, frp->fr_height + n, FALSE, FALSE); 6002 for (;;) 6003 { 6004 frp = frp->fr_parent; 6005 if (frp == NULL) 6006 break; 6007 frp->fr_height += n; 6008 } 6009 } 6010 6011 /* 6012 * Add or remove a status line for the bottom window(s), according to the 6013 * value of 'laststatus'. 6014 */ 6015 void 6016 last_status( 6017 int morewin) /* pretend there are two or more windows */ 6018 { 6019 /* Don't make a difference between horizontal or vertical split. */ 6020 last_status_rec(topframe, (p_ls == 2 6021 || (p_ls == 1 && (morewin || !ONE_WINDOW)))); 6022 } 6023 6024 static void 6025 last_status_rec(frame_T *fr, int statusline) 6026 { 6027 frame_T *fp; 6028 win_T *wp; 6029 6030 if (fr->fr_layout == FR_LEAF) 6031 { 6032 wp = fr->fr_win; 6033 if (wp->w_status_height != 0 && !statusline) 6034 { 6035 /* remove status line */ 6036 win_new_height(wp, wp->w_height + 1); 6037 wp->w_status_height = 0; 6038 comp_col(); 6039 } 6040 else if (wp->w_status_height == 0 && statusline) 6041 { 6042 /* Find a frame to take a line from. */ 6043 fp = fr; 6044 while (fp->fr_height <= frame_minheight(fp, NULL)) 6045 { 6046 if (fp == topframe) 6047 { 6048 EMSG(_(e_noroom)); 6049 return; 6050 } 6051 /* In a column of frames: go to frame above. If already at 6052 * the top or in a row of frames: go to parent. */ 6053 if (fp->fr_parent->fr_layout == FR_COL && fp->fr_prev != NULL) 6054 fp = fp->fr_prev; 6055 else 6056 fp = fp->fr_parent; 6057 } 6058 wp->w_status_height = 1; 6059 if (fp != fr) 6060 { 6061 frame_new_height(fp, fp->fr_height - 1, FALSE, FALSE); 6062 frame_fix_height(wp); 6063 (void)win_comp_pos(); 6064 } 6065 else 6066 win_new_height(wp, wp->w_height - 1); 6067 comp_col(); 6068 redraw_all_later(SOME_VALID); 6069 } 6070 } 6071 else if (fr->fr_layout == FR_ROW) 6072 { 6073 /* vertically split windows, set status line for each one */ 6074 for (fp = fr->fr_child; fp != NULL; fp = fp->fr_next) 6075 last_status_rec(fp, statusline); 6076 } 6077 else 6078 { 6079 /* horizontally split window, set status line for last one */ 6080 for (fp = fr->fr_child; fp->fr_next != NULL; fp = fp->fr_next) 6081 ; 6082 last_status_rec(fp, statusline); 6083 } 6084 } 6085 6086 /* 6087 * Return the number of lines used by the tab page line. 6088 */ 6089 int 6090 tabline_height(void) 6091 { 6092 #ifdef FEAT_GUI_TABLINE 6093 /* When the GUI has the tabline then this always returns zero. */ 6094 if (gui_use_tabline()) 6095 return 0; 6096 #endif 6097 switch (p_stal) 6098 { 6099 case 0: return 0; 6100 case 1: return (first_tabpage->tp_next == NULL) ? 0 : 1; 6101 } 6102 return 1; 6103 } 6104 6105 #if defined(FEAT_SEARCHPATH) || defined(PROTO) 6106 /* 6107 * Get the file name at the cursor. 6108 * If Visual mode is active, use the selected text if it's in one line. 6109 * Returns the name in allocated memory, NULL for failure. 6110 */ 6111 char_u * 6112 grab_file_name(long count, linenr_T *file_lnum) 6113 { 6114 int options = FNAME_MESS|FNAME_EXP|FNAME_REL|FNAME_UNESC; 6115 6116 if (VIsual_active) 6117 { 6118 int len; 6119 char_u *ptr; 6120 6121 if (get_visual_text(NULL, &ptr, &len) == FAIL) 6122 return NULL; 6123 return find_file_name_in_path(ptr, len, options, 6124 count, curbuf->b_ffname); 6125 } 6126 return file_name_at_cursor(options | FNAME_HYP, count, file_lnum); 6127 } 6128 6129 /* 6130 * Return the file name under or after the cursor. 6131 * 6132 * The 'path' option is searched if the file name is not absolute. 6133 * The string returned has been alloc'ed and should be freed by the caller. 6134 * NULL is returned if the file name or file is not found. 6135 * 6136 * options: 6137 * FNAME_MESS give error messages 6138 * FNAME_EXP expand to path 6139 * FNAME_HYP check for hypertext link 6140 * FNAME_INCL apply "includeexpr" 6141 */ 6142 char_u * 6143 file_name_at_cursor(int options, long count, linenr_T *file_lnum) 6144 { 6145 return file_name_in_line(ml_get_curline(), 6146 curwin->w_cursor.col, options, count, curbuf->b_ffname, 6147 file_lnum); 6148 } 6149 6150 /* 6151 * Return the name of the file under or after ptr[col]. 6152 * Otherwise like file_name_at_cursor(). 6153 */ 6154 char_u * 6155 file_name_in_line( 6156 char_u *line, 6157 int col, 6158 int options, 6159 long count, 6160 char_u *rel_fname, /* file we are searching relative to */ 6161 linenr_T *file_lnum) /* line number after the file name */ 6162 { 6163 char_u *ptr; 6164 int len; 6165 int in_type = TRUE; 6166 int is_url = FALSE; 6167 6168 /* 6169 * search forward for what could be the start of a file name 6170 */ 6171 ptr = line + col; 6172 while (*ptr != NUL && !vim_isfilec(*ptr)) 6173 MB_PTR_ADV(ptr); 6174 if (*ptr == NUL) /* nothing found */ 6175 { 6176 if (options & FNAME_MESS) 6177 EMSG(_("E446: No file name under cursor")); 6178 return NULL; 6179 } 6180 6181 /* 6182 * Search backward for first char of the file name. 6183 * Go one char back to ":" before "//" even when ':' is not in 'isfname'. 6184 */ 6185 while (ptr > line) 6186 { 6187 #ifdef FEAT_MBYTE 6188 if (has_mbyte && (len = (*mb_head_off)(line, ptr - 1)) > 0) 6189 ptr -= len + 1; 6190 else 6191 #endif 6192 if (vim_isfilec(ptr[-1]) 6193 || ((options & FNAME_HYP) && path_is_url(ptr - 1))) 6194 --ptr; 6195 else 6196 break; 6197 } 6198 6199 /* 6200 * Search forward for the last char of the file name. 6201 * Also allow "://" when ':' is not in 'isfname'. 6202 */ 6203 len = 0; 6204 while (vim_isfilec(ptr[len]) || (ptr[len] == '\\' && ptr[len + 1] == ' ') 6205 || ((options & FNAME_HYP) && path_is_url(ptr + len)) 6206 || (is_url && vim_strchr((char_u *)"?&=", ptr[len]) != NULL)) 6207 { 6208 /* After type:// we also include ?, & and = as valid characters, so that 6209 * http://google.com?q=this&that=ok works. */ 6210 if ((ptr[len] >= 'A' && ptr[len] <= 'Z') || (ptr[len] >= 'a' && ptr[len] <= 'z')) 6211 { 6212 if (in_type && path_is_url(ptr + len + 1)) 6213 is_url = TRUE; 6214 } 6215 else 6216 in_type = FALSE; 6217 6218 if (ptr[len] == '\\') 6219 /* Skip over the "\" in "\ ". */ 6220 ++len; 6221 #ifdef FEAT_MBYTE 6222 if (has_mbyte) 6223 len += (*mb_ptr2len)(ptr + len); 6224 else 6225 #endif 6226 ++len; 6227 } 6228 6229 /* 6230 * If there is trailing punctuation, remove it. 6231 * But don't remove "..", could be a directory name. 6232 */ 6233 if (len > 2 && vim_strchr((char_u *)".,:;!", ptr[len - 1]) != NULL 6234 && ptr[len - 2] != '.') 6235 --len; 6236 6237 if (file_lnum != NULL) 6238 { 6239 char_u *p; 6240 6241 /* Get the number after the file name and a separator character */ 6242 p = ptr + len; 6243 p = skipwhite(p); 6244 if (*p != NUL) 6245 { 6246 if (!isdigit(*p)) 6247 ++p; /* skip the separator */ 6248 p = skipwhite(p); 6249 if (isdigit(*p)) 6250 *file_lnum = (int)getdigits(&p); 6251 } 6252 } 6253 6254 return find_file_name_in_path(ptr, len, options, count, rel_fname); 6255 } 6256 6257 # if defined(FEAT_FIND_ID) && defined(FEAT_EVAL) 6258 static char_u *eval_includeexpr(char_u *ptr, int len); 6259 6260 static char_u * 6261 eval_includeexpr(char_u *ptr, int len) 6262 { 6263 char_u *res; 6264 6265 set_vim_var_string(VV_FNAME, ptr, len); 6266 res = eval_to_string_safe(curbuf->b_p_inex, NULL, 6267 was_set_insecurely((char_u *)"includeexpr", OPT_LOCAL)); 6268 set_vim_var_string(VV_FNAME, NULL, 0); 6269 return res; 6270 } 6271 #endif 6272 6273 /* 6274 * Return the name of the file ptr[len] in 'path'. 6275 * Otherwise like file_name_at_cursor(). 6276 */ 6277 char_u * 6278 find_file_name_in_path( 6279 char_u *ptr, 6280 int len, 6281 int options, 6282 long count, 6283 char_u *rel_fname) /* file we are searching relative to */ 6284 { 6285 char_u *file_name; 6286 int c; 6287 # if defined(FEAT_FIND_ID) && defined(FEAT_EVAL) 6288 char_u *tofree = NULL; 6289 6290 if ((options & FNAME_INCL) && *curbuf->b_p_inex != NUL) 6291 { 6292 tofree = eval_includeexpr(ptr, len); 6293 if (tofree != NULL) 6294 { 6295 ptr = tofree; 6296 len = (int)STRLEN(ptr); 6297 } 6298 } 6299 # endif 6300 6301 if (options & FNAME_EXP) 6302 { 6303 file_name = find_file_in_path(ptr, len, options & ~FNAME_MESS, 6304 TRUE, rel_fname); 6305 6306 # if defined(FEAT_FIND_ID) && defined(FEAT_EVAL) 6307 /* 6308 * If the file could not be found in a normal way, try applying 6309 * 'includeexpr' (unless done already). 6310 */ 6311 if (file_name == NULL 6312 && !(options & FNAME_INCL) && *curbuf->b_p_inex != NUL) 6313 { 6314 tofree = eval_includeexpr(ptr, len); 6315 if (tofree != NULL) 6316 { 6317 ptr = tofree; 6318 len = (int)STRLEN(ptr); 6319 file_name = find_file_in_path(ptr, len, options & ~FNAME_MESS, 6320 TRUE, rel_fname); 6321 } 6322 } 6323 # endif 6324 if (file_name == NULL && (options & FNAME_MESS)) 6325 { 6326 c = ptr[len]; 6327 ptr[len] = NUL; 6328 EMSG2(_("E447: Can't find file \"%s\" in path"), ptr); 6329 ptr[len] = c; 6330 } 6331 6332 /* Repeat finding the file "count" times. This matters when it 6333 * appears several times in the path. */ 6334 while (file_name != NULL && --count > 0) 6335 { 6336 vim_free(file_name); 6337 file_name = find_file_in_path(ptr, len, options, FALSE, rel_fname); 6338 } 6339 } 6340 else 6341 file_name = vim_strnsave(ptr, len); 6342 6343 # if defined(FEAT_FIND_ID) && defined(FEAT_EVAL) 6344 vim_free(tofree); 6345 # endif 6346 6347 return file_name; 6348 } 6349 #endif /* FEAT_SEARCHPATH */ 6350 6351 /* 6352 * Check if the "://" of a URL is at the pointer, return URL_SLASH. 6353 * Also check for ":\\", which MS Internet Explorer accepts, return 6354 * URL_BACKSLASH. 6355 */ 6356 static int 6357 path_is_url(char_u *p) 6358 { 6359 if (STRNCMP(p, "://", (size_t)3) == 0) 6360 return URL_SLASH; 6361 else if (STRNCMP(p, ":\\\\", (size_t)3) == 0) 6362 return URL_BACKSLASH; 6363 return 0; 6364 } 6365 6366 /* 6367 * Check if "fname" starts with "name://". Return URL_SLASH if it does. 6368 * Return URL_BACKSLASH for "name:\\". 6369 * Return zero otherwise. 6370 */ 6371 int 6372 path_with_url(char_u *fname) 6373 { 6374 char_u *p; 6375 6376 for (p = fname; isalpha(*p); ++p) 6377 ; 6378 return path_is_url(p); 6379 } 6380 6381 /* 6382 * Return TRUE if "name" is a full (absolute) path name or URL. 6383 */ 6384 int 6385 vim_isAbsName(char_u *name) 6386 { 6387 return (path_with_url(name) != 0 || mch_isFullName(name)); 6388 } 6389 6390 /* 6391 * Get absolute file name into buffer "buf[len]". 6392 * 6393 * return FAIL for failure, OK otherwise 6394 */ 6395 int 6396 vim_FullName( 6397 char_u *fname, 6398 char_u *buf, 6399 int len, 6400 int force) /* force expansion even when already absolute */ 6401 { 6402 int retval = OK; 6403 int url; 6404 6405 *buf = NUL; 6406 if (fname == NULL) 6407 return FAIL; 6408 6409 url = path_with_url(fname); 6410 if (!url) 6411 retval = mch_FullName(fname, buf, len, force); 6412 if (url || retval == FAIL) 6413 { 6414 /* something failed; use the file name (truncate when too long) */ 6415 vim_strncpy(buf, fname, len - 1); 6416 } 6417 #if defined(MSWIN) 6418 slash_adjust(buf); 6419 #endif 6420 return retval; 6421 } 6422 6423 /* 6424 * Return the minimal number of rows that is needed on the screen to display 6425 * the current number of windows. 6426 */ 6427 int 6428 min_rows(void) 6429 { 6430 int total; 6431 tabpage_T *tp; 6432 int n; 6433 6434 if (firstwin == NULL) /* not initialized yet */ 6435 return MIN_LINES; 6436 6437 total = 0; 6438 FOR_ALL_TABPAGES(tp) 6439 { 6440 n = frame_minheight(tp->tp_topframe, NULL); 6441 if (total < n) 6442 total = n; 6443 } 6444 total += tabline_height(); 6445 total += 1; /* count the room for the command line */ 6446 return total; 6447 } 6448 6449 /* 6450 * Return TRUE if there is only one window (in the current tab page), not 6451 * counting a help or preview window, unless it is the current window. 6452 * Does not count "aucmd_win". 6453 */ 6454 int 6455 only_one_window(void) 6456 { 6457 int count = 0; 6458 win_T *wp; 6459 6460 /* If there is another tab page there always is another window. */ 6461 if (first_tabpage->tp_next != NULL) 6462 return FALSE; 6463 6464 FOR_ALL_WINDOWS(wp) 6465 if (wp->w_buffer != NULL 6466 && (!((bt_help(wp->w_buffer) && !bt_help(curbuf)) 6467 # ifdef FEAT_QUICKFIX 6468 || wp->w_p_pvw 6469 # endif 6470 ) || wp == curwin) && wp != aucmd_win) 6471 ++count; 6472 return (count <= 1); 6473 } 6474 6475 /* 6476 * Correct the cursor line number in other windows. Used after changing the 6477 * current buffer, and before applying autocommands. 6478 * When "do_curwin" is TRUE, also check current window. 6479 */ 6480 void 6481 check_lnums(int do_curwin) 6482 { 6483 win_T *wp; 6484 tabpage_T *tp; 6485 6486 FOR_ALL_TAB_WINDOWS(tp, wp) 6487 if ((do_curwin || wp != curwin) && wp->w_buffer == curbuf) 6488 { 6489 if (wp->w_cursor.lnum > curbuf->b_ml.ml_line_count) 6490 wp->w_cursor.lnum = curbuf->b_ml.ml_line_count; 6491 if (wp->w_topline > curbuf->b_ml.ml_line_count) 6492 wp->w_topline = curbuf->b_ml.ml_line_count; 6493 } 6494 } 6495 6496 /* 6497 * A snapshot of the window sizes, to restore them after closing the help 6498 * window. 6499 * Only these fields are used: 6500 * fr_layout 6501 * fr_width 6502 * fr_height 6503 * fr_next 6504 * fr_child 6505 * fr_win (only valid for the old curwin, NULL otherwise) 6506 */ 6507 6508 /* 6509 * Create a snapshot of the current frame sizes. 6510 */ 6511 void 6512 make_snapshot(int idx) 6513 { 6514 clear_snapshot(curtab, idx); 6515 make_snapshot_rec(topframe, &curtab->tp_snapshot[idx]); 6516 } 6517 6518 static void 6519 make_snapshot_rec(frame_T *fr, frame_T **frp) 6520 { 6521 *frp = (frame_T *)alloc_clear((unsigned)sizeof(frame_T)); 6522 if (*frp == NULL) 6523 return; 6524 (*frp)->fr_layout = fr->fr_layout; 6525 (*frp)->fr_width = fr->fr_width; 6526 (*frp)->fr_height = fr->fr_height; 6527 if (fr->fr_next != NULL) 6528 make_snapshot_rec(fr->fr_next, &((*frp)->fr_next)); 6529 if (fr->fr_child != NULL) 6530 make_snapshot_rec(fr->fr_child, &((*frp)->fr_child)); 6531 if (fr->fr_layout == FR_LEAF && fr->fr_win == curwin) 6532 (*frp)->fr_win = curwin; 6533 } 6534 6535 /* 6536 * Remove any existing snapshot. 6537 */ 6538 static void 6539 clear_snapshot(tabpage_T *tp, int idx) 6540 { 6541 clear_snapshot_rec(tp->tp_snapshot[idx]); 6542 tp->tp_snapshot[idx] = NULL; 6543 } 6544 6545 static void 6546 clear_snapshot_rec(frame_T *fr) 6547 { 6548 if (fr != NULL) 6549 { 6550 clear_snapshot_rec(fr->fr_next); 6551 clear_snapshot_rec(fr->fr_child); 6552 vim_free(fr); 6553 } 6554 } 6555 6556 /* 6557 * Restore a previously created snapshot, if there is any. 6558 * This is only done if the screen size didn't change and the window layout is 6559 * still the same. 6560 */ 6561 void 6562 restore_snapshot( 6563 int idx, 6564 int close_curwin) /* closing current window */ 6565 { 6566 win_T *wp; 6567 6568 if (curtab->tp_snapshot[idx] != NULL 6569 && curtab->tp_snapshot[idx]->fr_width == topframe->fr_width 6570 && curtab->tp_snapshot[idx]->fr_height == topframe->fr_height 6571 && check_snapshot_rec(curtab->tp_snapshot[idx], topframe) == OK) 6572 { 6573 wp = restore_snapshot_rec(curtab->tp_snapshot[idx], topframe); 6574 win_comp_pos(); 6575 if (wp != NULL && close_curwin) 6576 win_goto(wp); 6577 redraw_all_later(CLEAR); 6578 } 6579 clear_snapshot(curtab, idx); 6580 } 6581 6582 /* 6583 * Check if frames "sn" and "fr" have the same layout, same following frames 6584 * and same children. And the window pointer is valid. 6585 */ 6586 static int 6587 check_snapshot_rec(frame_T *sn, frame_T *fr) 6588 { 6589 if (sn->fr_layout != fr->fr_layout 6590 || (sn->fr_next == NULL) != (fr->fr_next == NULL) 6591 || (sn->fr_child == NULL) != (fr->fr_child == NULL) 6592 || (sn->fr_next != NULL 6593 && check_snapshot_rec(sn->fr_next, fr->fr_next) == FAIL) 6594 || (sn->fr_child != NULL 6595 && check_snapshot_rec(sn->fr_child, fr->fr_child) == FAIL) 6596 || (sn->fr_win != NULL && !win_valid(sn->fr_win))) 6597 return FAIL; 6598 return OK; 6599 } 6600 6601 /* 6602 * Copy the size of snapshot frame "sn" to frame "fr". Do the same for all 6603 * following frames and children. 6604 * Returns a pointer to the old current window, or NULL. 6605 */ 6606 static win_T * 6607 restore_snapshot_rec(frame_T *sn, frame_T *fr) 6608 { 6609 win_T *wp = NULL; 6610 win_T *wp2; 6611 6612 fr->fr_height = sn->fr_height; 6613 fr->fr_width = sn->fr_width; 6614 if (fr->fr_layout == FR_LEAF) 6615 { 6616 frame_new_height(fr, fr->fr_height, FALSE, FALSE); 6617 frame_new_width(fr, fr->fr_width, FALSE, FALSE); 6618 wp = sn->fr_win; 6619 } 6620 if (sn->fr_next != NULL) 6621 { 6622 wp2 = restore_snapshot_rec(sn->fr_next, fr->fr_next); 6623 if (wp2 != NULL) 6624 wp = wp2; 6625 } 6626 if (sn->fr_child != NULL) 6627 { 6628 wp2 = restore_snapshot_rec(sn->fr_child, fr->fr_child); 6629 if (wp2 != NULL) 6630 wp = wp2; 6631 } 6632 return wp; 6633 } 6634 6635 #if defined(FEAT_EVAL) || defined(FEAT_PYTHON) || defined(FEAT_PYTHON3) \ 6636 || defined(PROTO) 6637 /* 6638 * Set "win" to be the curwin and "tp" to be the current tab page. 6639 * restore_win() MUST be called to undo, also when FAIL is returned. 6640 * No autocommands will be executed until restore_win() is called. 6641 * When "no_display" is TRUE the display won't be affected, no redraw is 6642 * triggered, another tabpage access is limited. 6643 * Returns FAIL if switching to "win" failed. 6644 */ 6645 int 6646 switch_win( 6647 win_T **save_curwin, 6648 tabpage_T **save_curtab, 6649 win_T *win, 6650 tabpage_T *tp, 6651 int no_display) 6652 { 6653 block_autocmds(); 6654 *save_curwin = curwin; 6655 if (tp != NULL) 6656 { 6657 *save_curtab = curtab; 6658 if (no_display) 6659 { 6660 curtab->tp_firstwin = firstwin; 6661 curtab->tp_lastwin = lastwin; 6662 curtab = tp; 6663 firstwin = curtab->tp_firstwin; 6664 lastwin = curtab->tp_lastwin; 6665 } 6666 else 6667 goto_tabpage_tp(tp, FALSE, FALSE); 6668 } 6669 if (!win_valid(win)) 6670 return FAIL; 6671 curwin = win; 6672 curbuf = curwin->w_buffer; 6673 return OK; 6674 } 6675 6676 /* 6677 * Restore current tabpage and window saved by switch_win(), if still valid. 6678 * When "no_display" is TRUE the display won't be affected, no redraw is 6679 * triggered. 6680 */ 6681 void 6682 restore_win( 6683 win_T *save_curwin UNUSED, 6684 tabpage_T *save_curtab UNUSED, 6685 int no_display UNUSED) 6686 { 6687 if (save_curtab != NULL && valid_tabpage(save_curtab)) 6688 { 6689 if (no_display) 6690 { 6691 curtab->tp_firstwin = firstwin; 6692 curtab->tp_lastwin = lastwin; 6693 curtab = save_curtab; 6694 firstwin = curtab->tp_firstwin; 6695 lastwin = curtab->tp_lastwin; 6696 } 6697 else 6698 goto_tabpage_tp(save_curtab, FALSE, FALSE); 6699 } 6700 if (win_valid(save_curwin)) 6701 { 6702 curwin = save_curwin; 6703 curbuf = curwin->w_buffer; 6704 } 6705 unblock_autocmds(); 6706 } 6707 6708 /* 6709 * Make "buf" the current buffer. restore_buffer() MUST be called to undo. 6710 * No autocommands will be executed. Use aucmd_prepbuf() if there are any. 6711 */ 6712 void 6713 switch_buffer(bufref_T *save_curbuf, buf_T *buf) 6714 { 6715 block_autocmds(); 6716 set_bufref(save_curbuf, curbuf); 6717 --curbuf->b_nwindows; 6718 curbuf = buf; 6719 curwin->w_buffer = buf; 6720 ++curbuf->b_nwindows; 6721 } 6722 6723 /* 6724 * Restore the current buffer after using switch_buffer(). 6725 */ 6726 void 6727 restore_buffer(bufref_T *save_curbuf) 6728 { 6729 unblock_autocmds(); 6730 /* Check for valid buffer, just in case. */ 6731 if (bufref_valid(save_curbuf)) 6732 { 6733 --curbuf->b_nwindows; 6734 curwin->w_buffer = save_curbuf->br_buf; 6735 curbuf = save_curbuf->br_buf; 6736 ++curbuf->b_nwindows; 6737 } 6738 } 6739 #endif 6740 6741 #if defined(FEAT_GUI) || defined(PROTO) 6742 /* 6743 * Return TRUE if there is any vertically split window. 6744 */ 6745 int 6746 win_hasvertsplit(void) 6747 { 6748 frame_T *fr; 6749 6750 if (topframe->fr_layout == FR_ROW) 6751 return TRUE; 6752 6753 if (topframe->fr_layout == FR_COL) 6754 for (fr = topframe->fr_child; fr != NULL; fr = fr->fr_next) 6755 if (fr->fr_layout == FR_ROW) 6756 return TRUE; 6757 6758 return FALSE; 6759 } 6760 #endif 6761 6762 #if defined(FEAT_SEARCH_EXTRA) || defined(PROTO) 6763 /* 6764 * Add match to the match list of window 'wp'. The pattern 'pat' will be 6765 * highlighted with the group 'grp' with priority 'prio'. 6766 * Optionally, a desired ID 'id' can be specified (greater than or equal to 1). 6767 * If no particular ID is desired, -1 must be specified for 'id'. 6768 * Return ID of added match, -1 on failure. 6769 */ 6770 int 6771 match_add( 6772 win_T *wp, 6773 char_u *grp, 6774 char_u *pat, 6775 int prio, 6776 int id, 6777 list_T *pos_list, 6778 char_u *conceal_char UNUSED) /* pointer to conceal replacement char */ 6779 { 6780 matchitem_T *cur; 6781 matchitem_T *prev; 6782 matchitem_T *m; 6783 int hlg_id; 6784 regprog_T *regprog = NULL; 6785 int rtype = SOME_VALID; 6786 6787 if (*grp == NUL || (pat != NULL && *pat == NUL)) 6788 return -1; 6789 if (id < -1 || id == 0) 6790 { 6791 EMSGN(_("E799: Invalid ID: %ld (must be greater than or equal to 1)"), id); 6792 return -1; 6793 } 6794 if (id != -1) 6795 { 6796 cur = wp->w_match_head; 6797 while (cur != NULL) 6798 { 6799 if (cur->id == id) 6800 { 6801 EMSGN(_("E801: ID already taken: %ld"), id); 6802 return -1; 6803 } 6804 cur = cur->next; 6805 } 6806 } 6807 if ((hlg_id = syn_namen2id(grp, (int)STRLEN(grp))) == 0) 6808 { 6809 EMSG2(_(e_nogroup), grp); 6810 return -1; 6811 } 6812 if (pat != NULL && (regprog = vim_regcomp(pat, RE_MAGIC)) == NULL) 6813 { 6814 EMSG2(_(e_invarg2), pat); 6815 return -1; 6816 } 6817 6818 /* Find available match ID. */ 6819 while (id == -1) 6820 { 6821 cur = wp->w_match_head; 6822 while (cur != NULL && cur->id != wp->w_next_match_id) 6823 cur = cur->next; 6824 if (cur == NULL) 6825 id = wp->w_next_match_id; 6826 wp->w_next_match_id++; 6827 } 6828 6829 /* Build new match. */ 6830 m = (matchitem_T *)alloc_clear(sizeof(matchitem_T)); 6831 m->id = id; 6832 m->priority = prio; 6833 m->pattern = pat == NULL ? NULL : vim_strsave(pat); 6834 m->hlg_id = hlg_id; 6835 m->match.regprog = regprog; 6836 m->match.rmm_ic = FALSE; 6837 m->match.rmm_maxcol = 0; 6838 # if defined(FEAT_CONCEAL) && defined(FEAT_MBYTE) 6839 m->conceal_char = 0; 6840 if (conceal_char != NULL) 6841 m->conceal_char = (*mb_ptr2char)(conceal_char); 6842 # endif 6843 6844 /* Set up position matches */ 6845 if (pos_list != NULL) 6846 { 6847 linenr_T toplnum = 0; 6848 linenr_T botlnum = 0; 6849 listitem_T *li; 6850 int i; 6851 6852 for (i = 0, li = pos_list->lv_first; li != NULL && i < MAXPOSMATCH; 6853 i++, li = li->li_next) 6854 { 6855 linenr_T lnum = 0; 6856 colnr_T col = 0; 6857 int len = 1; 6858 list_T *subl; 6859 listitem_T *subli; 6860 int error = FALSE; 6861 6862 if (li->li_tv.v_type == VAR_LIST) 6863 { 6864 subl = li->li_tv.vval.v_list; 6865 if (subl == NULL) 6866 goto fail; 6867 subli = subl->lv_first; 6868 if (subli == NULL) 6869 goto fail; 6870 lnum = get_tv_number_chk(&subli->li_tv, &error); 6871 if (error == TRUE) 6872 goto fail; 6873 if (lnum == 0) 6874 { 6875 --i; 6876 continue; 6877 } 6878 m->pos.pos[i].lnum = lnum; 6879 subli = subli->li_next; 6880 if (subli != NULL) 6881 { 6882 col = get_tv_number_chk(&subli->li_tv, &error); 6883 if (error == TRUE) 6884 goto fail; 6885 subli = subli->li_next; 6886 if (subli != NULL) 6887 { 6888 len = get_tv_number_chk(&subli->li_tv, &error); 6889 if (error == TRUE) 6890 goto fail; 6891 } 6892 } 6893 m->pos.pos[i].col = col; 6894 m->pos.pos[i].len = len; 6895 } 6896 else if (li->li_tv.v_type == VAR_NUMBER) 6897 { 6898 if (li->li_tv.vval.v_number == 0) 6899 { 6900 --i; 6901 continue; 6902 } 6903 m->pos.pos[i].lnum = li->li_tv.vval.v_number; 6904 m->pos.pos[i].col = 0; 6905 m->pos.pos[i].len = 0; 6906 } 6907 else 6908 { 6909 EMSG(_("List or number required")); 6910 goto fail; 6911 } 6912 if (toplnum == 0 || lnum < toplnum) 6913 toplnum = lnum; 6914 if (botlnum == 0 || lnum >= botlnum) 6915 botlnum = lnum + 1; 6916 } 6917 6918 /* Calculate top and bottom lines for redrawing area */ 6919 if (toplnum != 0) 6920 { 6921 if (wp->w_buffer->b_mod_set) 6922 { 6923 if (wp->w_buffer->b_mod_top > toplnum) 6924 wp->w_buffer->b_mod_top = toplnum; 6925 if (wp->w_buffer->b_mod_bot < botlnum) 6926 wp->w_buffer->b_mod_bot = botlnum; 6927 } 6928 else 6929 { 6930 wp->w_buffer->b_mod_set = TRUE; 6931 wp->w_buffer->b_mod_top = toplnum; 6932 wp->w_buffer->b_mod_bot = botlnum; 6933 wp->w_buffer->b_mod_xlines = 0; 6934 } 6935 m->pos.toplnum = toplnum; 6936 m->pos.botlnum = botlnum; 6937 rtype = VALID; 6938 } 6939 } 6940 6941 /* Insert new match. The match list is in ascending order with regard to 6942 * the match priorities. */ 6943 cur = wp->w_match_head; 6944 prev = cur; 6945 while (cur != NULL && prio >= cur->priority) 6946 { 6947 prev = cur; 6948 cur = cur->next; 6949 } 6950 if (cur == prev) 6951 wp->w_match_head = m; 6952 else 6953 prev->next = m; 6954 m->next = cur; 6955 6956 redraw_later(rtype); 6957 return id; 6958 6959 fail: 6960 vim_free(m); 6961 return -1; 6962 } 6963 6964 /* 6965 * Delete match with ID 'id' in the match list of window 'wp'. 6966 * Print error messages if 'perr' is TRUE. 6967 */ 6968 int 6969 match_delete(win_T *wp, int id, int perr) 6970 { 6971 matchitem_T *cur = wp->w_match_head; 6972 matchitem_T *prev = cur; 6973 int rtype = SOME_VALID; 6974 6975 if (id < 1) 6976 { 6977 if (perr == TRUE) 6978 EMSGN(_("E802: Invalid ID: %ld (must be greater than or equal to 1)"), 6979 id); 6980 return -1; 6981 } 6982 while (cur != NULL && cur->id != id) 6983 { 6984 prev = cur; 6985 cur = cur->next; 6986 } 6987 if (cur == NULL) 6988 { 6989 if (perr == TRUE) 6990 EMSGN(_("E803: ID not found: %ld"), id); 6991 return -1; 6992 } 6993 if (cur == prev) 6994 wp->w_match_head = cur->next; 6995 else 6996 prev->next = cur->next; 6997 vim_regfree(cur->match.regprog); 6998 vim_free(cur->pattern); 6999 if (cur->pos.toplnum != 0) 7000 { 7001 if (wp->w_buffer->b_mod_set) 7002 { 7003 if (wp->w_buffer->b_mod_top > cur->pos.toplnum) 7004 wp->w_buffer->b_mod_top = cur->pos.toplnum; 7005 if (wp->w_buffer->b_mod_bot < cur->pos.botlnum) 7006 wp->w_buffer->b_mod_bot = cur->pos.botlnum; 7007 } 7008 else 7009 { 7010 wp->w_buffer->b_mod_set = TRUE; 7011 wp->w_buffer->b_mod_top = cur->pos.toplnum; 7012 wp->w_buffer->b_mod_bot = cur->pos.botlnum; 7013 wp->w_buffer->b_mod_xlines = 0; 7014 } 7015 rtype = VALID; 7016 } 7017 vim_free(cur); 7018 redraw_later(rtype); 7019 return 0; 7020 } 7021 7022 /* 7023 * Delete all matches in the match list of window 'wp'. 7024 */ 7025 void 7026 clear_matches(win_T *wp) 7027 { 7028 matchitem_T *m; 7029 7030 while (wp->w_match_head != NULL) 7031 { 7032 m = wp->w_match_head->next; 7033 vim_regfree(wp->w_match_head->match.regprog); 7034 vim_free(wp->w_match_head->pattern); 7035 vim_free(wp->w_match_head); 7036 wp->w_match_head = m; 7037 } 7038 redraw_later(SOME_VALID); 7039 } 7040 7041 /* 7042 * Get match from ID 'id' in window 'wp'. 7043 * Return NULL if match not found. 7044 */ 7045 matchitem_T * 7046 get_match(win_T *wp, int id) 7047 { 7048 matchitem_T *cur = wp->w_match_head; 7049 7050 while (cur != NULL && cur->id != id) 7051 cur = cur->next; 7052 return cur; 7053 } 7054 #endif 7055 7056 #if defined(FEAT_PYTHON) || defined(FEAT_PYTHON3) || defined(PROTO) 7057 int 7058 get_win_number(win_T *wp, win_T *first_win) 7059 { 7060 int i = 1; 7061 win_T *w; 7062 7063 for (w = first_win; w != NULL && w != wp; w = W_NEXT(w)) 7064 ++i; 7065 7066 if (w == NULL) 7067 return 0; 7068 else 7069 return i; 7070 } 7071 7072 int 7073 get_tab_number(tabpage_T *tp UNUSED) 7074 { 7075 int i = 1; 7076 tabpage_T *t; 7077 7078 for (t = first_tabpage; t != NULL && t != tp; t = t->tp_next) 7079 ++i; 7080 7081 if (t == NULL) 7082 return 0; 7083 else 7084 return i; 7085 } 7086 #endif 7087 7088 /* 7089 * Return TRUE if "topfrp" and its children are at the right height. 7090 */ 7091 static int 7092 frame_check_height(frame_T *topfrp, int height) 7093 { 7094 frame_T *frp; 7095 7096 if (topfrp->fr_height != height) 7097 return FALSE; 7098 7099 if (topfrp->fr_layout == FR_ROW) 7100 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 7101 if (frp->fr_height != height) 7102 return FALSE; 7103 7104 return TRUE; 7105 } 7106 7107 /* 7108 * Return TRUE if "topfrp" and its children are at the right width. 7109 */ 7110 static int 7111 frame_check_width(frame_T *topfrp, int width) 7112 { 7113 frame_T *frp; 7114 7115 if (topfrp->fr_width != width) 7116 return FALSE; 7117 7118 if (topfrp->fr_layout == FR_COL) 7119 for (frp = topfrp->fr_child; frp != NULL; frp = frp->fr_next) 7120 if (frp->fr_width != width) 7121 return FALSE; 7122 7123 return TRUE; 7124 } 7125 7126 #if defined(FEAT_EVAL) || defined(PROTO) 7127 int 7128 win_getid(typval_T *argvars) 7129 { 7130 int winnr; 7131 win_T *wp; 7132 7133 if (argvars[0].v_type == VAR_UNKNOWN) 7134 return curwin->w_id; 7135 winnr = get_tv_number(&argvars[0]); 7136 if (winnr > 0) 7137 { 7138 if (argvars[1].v_type == VAR_UNKNOWN) 7139 wp = firstwin; 7140 else 7141 { 7142 tabpage_T *tp; 7143 int tabnr = get_tv_number(&argvars[1]); 7144 7145 FOR_ALL_TABPAGES(tp) 7146 if (--tabnr == 0) 7147 break; 7148 if (tp == NULL) 7149 return -1; 7150 if (tp == curtab) 7151 wp = firstwin; 7152 else 7153 wp = tp->tp_firstwin; 7154 } 7155 for ( ; wp != NULL; wp = wp->w_next) 7156 if (--winnr == 0) 7157 return wp->w_id; 7158 } 7159 return 0; 7160 } 7161 7162 int 7163 win_gotoid(typval_T *argvars) 7164 { 7165 win_T *wp; 7166 tabpage_T *tp; 7167 int id = get_tv_number(&argvars[0]); 7168 7169 FOR_ALL_TAB_WINDOWS(tp, wp) 7170 if (wp->w_id == id) 7171 { 7172 goto_tabpage_win(tp, wp); 7173 return 1; 7174 } 7175 return 0; 7176 } 7177 7178 void 7179 win_id2tabwin(typval_T *argvars, list_T *list) 7180 { 7181 win_T *wp; 7182 tabpage_T *tp; 7183 int winnr = 1; 7184 int tabnr = 1; 7185 int id = get_tv_number(&argvars[0]); 7186 7187 FOR_ALL_TABPAGES(tp) 7188 { 7189 FOR_ALL_WINDOWS_IN_TAB(tp, wp) 7190 { 7191 if (wp->w_id == id) 7192 { 7193 list_append_number(list, tabnr); 7194 list_append_number(list, winnr); 7195 return; 7196 } 7197 ++winnr; 7198 } 7199 ++tabnr; 7200 winnr = 1; 7201 } 7202 list_append_number(list, 0); 7203 list_append_number(list, 0); 7204 } 7205 7206 win_T * 7207 win_id2wp(typval_T *argvars) 7208 { 7209 win_T *wp; 7210 tabpage_T *tp; 7211 int id = get_tv_number(&argvars[0]); 7212 7213 FOR_ALL_TAB_WINDOWS(tp, wp) 7214 if (wp->w_id == id) 7215 return wp; 7216 7217 return NULL; 7218 } 7219 7220 int 7221 win_id2win(typval_T *argvars) 7222 { 7223 win_T *wp; 7224 int nr = 1; 7225 int id = get_tv_number(&argvars[0]); 7226 7227 FOR_ALL_WINDOWS(wp) 7228 { 7229 if (wp->w_id == id) 7230 return nr; 7231 ++nr; 7232 } 7233 return 0; 7234 } 7235 7236 void 7237 win_findbuf(typval_T *argvars, list_T *list) 7238 { 7239 win_T *wp; 7240 tabpage_T *tp; 7241 int bufnr = get_tv_number(&argvars[0]); 7242 7243 FOR_ALL_TAB_WINDOWS(tp, wp) 7244 if (wp->w_buffer->b_fnum == bufnr) 7245 list_append_number(list, wp->w_id); 7246 } 7247 7248 #endif 7249