From aed8ce9da277f5ecffe968b324f242c41c3b752a Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 10:50:31 +0200 Subject: Adding upstream version 2:9.0.1378. Signed-off-by: Daniel Baumann --- src/screen.c | 4978 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 4978 insertions(+) create mode 100644 src/screen.c (limited to 'src/screen.c') diff --git a/src/screen.c b/src/screen.c new file mode 100644 index 0000000..6d48ad7 --- /dev/null +++ b/src/screen.c @@ -0,0 +1,4978 @@ +/* vi:set ts=8 sts=4 sw=4 noet: + * + * VIM - Vi IMproved by Bram Moolenaar + * + * Do ":help uganda" in Vim to read copying and usage conditions. + * Do ":help credits" in Vim to see a list of people who contributed. + * See README.txt for an overview of the Vim source code. + */ + +/* + * screen.c: Lower level code for displaying on the screen. + * + * Output to the screen (console, terminal emulator or GUI window) is minimized + * by remembering what is already on the screen, and only updating the parts + * that changed. + * + * ScreenLines[off] Contains a copy of the whole screen, as it is currently + * displayed (excluding text written by external commands). + * ScreenAttrs[off] Contains the associated attributes. + * ScreenCols[off] Contains the byte offset in the line. -1 means not + * available (below last line), MAXCOL means after the end + * of the line. + * + * LineOffset[row] Contains the offset into ScreenLines*[], ScreenAttrs[] + * and ScreenCols[] for each line. + * LineWraps[row] Flag for each line whether it wraps to the next line. + * + * For double-byte characters, two consecutive bytes in ScreenLines[] can form + * one character which occupies two display cells. + * For UTF-8 a multi-byte character is converted to Unicode and stored in + * ScreenLinesUC[]. ScreenLines[] contains the first byte only. For an ASCII + * character without composing chars ScreenLinesUC[] will be 0 and + * ScreenLinesC[][] is not used. When the character occupies two display + * cells the next byte in ScreenLines[] is 0. + * ScreenLinesC[][] contain up to 'maxcombine' composing characters + * (drawn on top of the first character). There is 0 after the last one used. + * ScreenLines2[] is only used for euc-jp to store the second byte if the + * first byte is 0x8e (single-width character). + * + * The screen_*() functions write to the screen and handle updating + * ScreenLines[]. + */ + +#include "vim.h" + +/* + * The attributes that are actually active for writing to the screen. + */ +static int screen_attr = 0; + +static void screen_char_2(unsigned off, int row, int col); +static int screenclear2(int doclear); +static void lineclear(unsigned off, int width, int attr); +static void lineinvalid(unsigned off, int width); +static int win_do_lines(win_T *wp, int row, int line_count, int mayclear, int del, int clear_attr); +static void win_rest_invalid(win_T *wp); +static void msg_pos_mode(void); +static void recording_mode(int attr); + +// Ugly global: overrule attribute used by screen_char() +static int screen_char_attr = 0; + +#if defined(FEAT_CONCEAL) || defined(PROTO) +/* + * Return TRUE if the cursor line in window "wp" may be concealed, according + * to the 'concealcursor' option. + */ + int +conceal_cursor_line(win_T *wp) +{ + int c; + + if (*wp->w_p_cocu == NUL) + return FALSE; + if (get_real_state() & MODE_VISUAL) + c = 'v'; + else if (State & MODE_INSERT) + c = 'i'; + else if (State & MODE_NORMAL) + c = 'n'; + else if (State & MODE_CMDLINE) + c = 'c'; + else + return FALSE; + return vim_strchr(wp->w_p_cocu, c) != NULL; +} + +/* + * Check if the cursor line needs to be redrawn because of 'concealcursor'. + * To be called after changing the state, "was_concealed" is the value of + * "conceal_cursor_line()" before the change. + * " + */ + void +conceal_check_cursor_line(int was_concealed) +{ + if (curwin->w_p_cole <= 0 || conceal_cursor_line(curwin) == was_concealed) + return; + + int wcol = curwin->w_wcol; + + need_cursor_line_redraw = TRUE; + // Need to recompute cursor column, e.g., when starting Visual mode + // without concealing. + curs_columns(TRUE); + + // When concealing now w_wcol will be computed wrong, keep the previous + // value, it will be updated in win_line(). + if (!was_concealed) + curwin->w_wcol = wcol; +} +#endif + +/* + * Get 'wincolor' attribute for window "wp". If not set and "wp" is a popup + * window then get the "Pmenu" highlight attribute. + */ + int +get_wcr_attr(win_T *wp) +{ + int wcr_attr = 0; + + if (*wp->w_p_wcr != NUL) + wcr_attr = syn_name2attr(wp->w_p_wcr); +#ifdef FEAT_PROP_POPUP + else if (WIN_IS_POPUP(wp)) + { + if (wp->w_popup_flags & POPF_INFO) + wcr_attr = HL_ATTR(HLF_PSI); // PmenuSel + else + wcr_attr = HL_ATTR(HLF_PNI); // Pmenu + } +#endif + return wcr_attr; +} + +/* + * Call screen_fill() with the columns adjusted for 'rightleft' if needed. + * Return the new offset. + */ + static int +screen_fill_end( + win_T *wp, + int c1, + int c2, + int off, + int width, + int row, + int endrow, + int attr) +{ + int nn = off + width; + + if (nn > wp->w_width) + nn = wp->w_width; +#ifdef FEAT_RIGHTLEFT + if (wp->w_p_rl) + { + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + endrow, + W_ENDCOL(wp) - nn, (int)W_ENDCOL(wp) - off, + c1, c2, attr); + } + else +#endif + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + endrow, + wp->w_wincol + off, (int)wp->w_wincol + nn, + c1, c2, attr); + return nn; +} + +/* + * Clear lines near the end the window and mark the unused lines with "c1". + * use "c2" as the filler character. + * When "draw_margin" is TRUE then draw the sign, fold and number columns. + */ + void +win_draw_end( + win_T *wp, + int c1, + int c2, + int draw_margin, + int row, + int endrow, + hlf_T hl) +{ + int n = 0; + int attr = HL_ATTR(hl); + int wcr_attr = get_wcr_attr(wp); + + attr = hl_combine_attr(wcr_attr, attr); + + if (draw_margin) + { +#ifdef FEAT_FOLDING + int fdc = compute_foldcolumn(wp, 0); + + if (fdc > 0) + // draw the fold column + n = screen_fill_end(wp, ' ', ' ', n, fdc, + row, endrow, hl_combine_attr(wcr_attr, HL_ATTR(HLF_FC))); +#endif +#ifdef FEAT_SIGNS + if (signcolumn_on(wp)) + // draw the sign column + n = screen_fill_end(wp, ' ', ' ', n, 2, + row, endrow, hl_combine_attr(wcr_attr, HL_ATTR(HLF_SC))); +#endif + if ((wp->w_p_nu || wp->w_p_rnu) + && vim_strchr(p_cpo, CPO_NUMCOL) == NULL) + // draw the number column + n = screen_fill_end(wp, ' ', ' ', n, number_width(wp) + 1, + row, endrow, hl_combine_attr(wcr_attr, HL_ATTR(HLF_N))); + } + +#ifdef FEAT_RIGHTLEFT + if (wp->w_p_rl) + { + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + endrow, + wp->w_wincol, W_ENDCOL(wp) - 1 - n, + c2, c2, attr); + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + endrow, + W_ENDCOL(wp) - 1 - n, W_ENDCOL(wp) - n, + c1, c2, attr); + } + else +#endif + { + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + endrow, + wp->w_wincol + n, (int)W_ENDCOL(wp), + c1, c2, attr); + } + + set_empty_rows(wp, row); +} + +#if defined(FEAT_FOLDING) || defined(PROTO) +/* + * Compute the width of the foldcolumn. Based on 'foldcolumn' and how much + * space is available for window "wp", minus "col". + */ + int +compute_foldcolumn(win_T *wp, int col) +{ + int fdc = wp->w_p_fdc; + int wmw = wp == curwin && p_wmw == 0 ? 1 : p_wmw; + int wwidth = wp->w_width; + + if (fdc > wwidth - (col + wmw)) + fdc = wwidth - (col + wmw); + return fdc; +} + +/* + * Fill the foldcolumn at "p" for window "wp". + * Only to be called when 'foldcolumn' > 0. + * Returns the number of bytes stored in 'p'. When non-multibyte characters are + * used for the fold column markers, this is equal to 'fdc' setting. Otherwise, + * this will be greater than 'fdc'. + */ + size_t +fill_foldcolumn( + char_u *p, + win_T *wp, + int closed, // TRUE of FALSE + linenr_T lnum) // current line number +{ + int i = 0; + int level; + int first_level; + int empty; + int fdc = compute_foldcolumn(wp, 0); + size_t byte_counter = 0; + int symbol = 0; + int len = 0; + + // Init to all spaces. + vim_memset(p, ' ', MAX_MCO * fdc + 1); + + level = win_foldinfo.fi_level; + empty = (fdc == 1) ? 0 : 1; + + // If the column is too narrow, we start at the lowest level that + // fits and use numbers to indicate the depth. + first_level = level - fdc - closed + 1 + empty; + if (first_level < 1) + first_level = 1; + + for (i = 0; i < MIN(fdc, level); i++) + { + if (win_foldinfo.fi_lnum == lnum + && first_level + i >= win_foldinfo.fi_low_level) + symbol = wp->w_fill_chars.foldopen; + else if (first_level == 1) + symbol = wp->w_fill_chars.foldsep; + else if (first_level + i <= 9) + symbol = '0' + first_level + i; + else + symbol = '>'; + + len = utf_char2bytes(symbol, &p[byte_counter]); + byte_counter += len; + if (first_level + i >= level) + { + i++; + break; + } + } + + if (closed) + { + if (symbol != 0) + { + // rollback length and the character + byte_counter -= len; + if (len > 1) + // for a multibyte character, erase all the bytes + vim_memset(p + byte_counter, ' ', len); + } + symbol = wp->w_fill_chars.foldclosed; + len = utf_char2bytes(symbol, &p[byte_counter]); + byte_counter += len; + } + + return MAX(byte_counter + (fdc - i), (size_t)fdc); +} +#endif // FEAT_FOLDING + +/* + * Return if the composing characters at "off_from" and "off_to" differ. + * Only to be used when ScreenLinesUC[off_from] != 0. + */ + static int +comp_char_differs(int off_from, int off_to) +{ + int i; + + for (i = 0; i < Screen_mco; ++i) + { + if (ScreenLinesC[i][off_from] != ScreenLinesC[i][off_to]) + return TRUE; + if (ScreenLinesC[i][off_from] == 0) + break; + } + return FALSE; +} + +/* + * Check whether the given character needs redrawing: + * - the (first byte of the) character is different + * - the attributes are different + * - the character is multi-byte and the next byte is different + * - the character is two cells wide and the second cell differs. + */ + static int +char_needs_redraw(int off_from, int off_to, int cols) +{ + if (cols > 0 + && ((ScreenLines[off_from] != ScreenLines[off_to] + || ScreenAttrs[off_from] != ScreenAttrs[off_to]) + || (enc_dbcs != 0 + && MB_BYTE2LEN(ScreenLines[off_from]) > 1 + && (enc_dbcs == DBCS_JPNU && ScreenLines[off_from] == 0x8e + ? ScreenLines2[off_from] != ScreenLines2[off_to] + : (cols > 1 && ScreenLines[off_from + 1] + != ScreenLines[off_to + 1]))) + || (enc_utf8 + && (ScreenLinesUC[off_from] != ScreenLinesUC[off_to] + || (ScreenLinesUC[off_from] != 0 + && comp_char_differs(off_from, off_to)) + || ((*mb_off2cells)(off_from, off_from + cols) > 1 + && ScreenLines[off_from + 1] + != ScreenLines[off_to + 1]))))) + return TRUE; + return FALSE; +} + +#if defined(FEAT_TERMINAL) || defined(PROTO) +/* + * Return the index in ScreenLines[] for the current screen line. + */ + int +screen_get_current_line_off(void) +{ + return (int)(current_ScreenLine - ScreenLines); +} +#endif + +#ifdef FEAT_PROP_POPUP +/* + * Return TRUE if this position has a higher level popup or this cell is + * transparent in the current popup. + */ + static int +blocked_by_popup(int row, int col) +{ + int off; + + if (!popup_visible) + return FALSE; + off = row * screen_Columns + col; + return popup_mask[off] > screen_zindex || popup_transparent[off]; +} +#endif + +/* + * Reset the highlighting. Used before clearing the screen. + */ + void +reset_screen_attr(void) +{ +#ifdef FEAT_GUI + if (gui.in_use) + // Use a code that will reset gui.highlight_mask in + // gui_stop_highlight(). + screen_attr = HL_ALL + 1; + else +#endif + // Use attributes that is very unlikely to appear in text. + screen_attr = HL_BOLD | HL_UNDERLINE | HL_INVERSE | HL_STRIKETHROUGH; +} + +/* + * Return TRUE if the character at "row" / "col" is under the popup menu and it + * will be redrawn soon or it is under another popup. + */ + static int +skip_for_popup(int row, int col) +{ + // Popup windows with zindex higher than POPUPMENU_ZINDEX go on top. + if (pum_under_menu(row, col, TRUE) +#ifdef FEAT_PROP_POPUP + && screen_zindex <= POPUPMENU_ZINDEX +#endif + ) + return TRUE; +#ifdef FEAT_PROP_POPUP + if (blocked_by_popup(row, col)) + return TRUE; +#endif + return FALSE; +} + +/* + * Move one "cooked" screen line to the screen, but only the characters that + * have actually changed. Handle insert/delete character. + * "coloff" gives the first column on the screen for this line. + * "endcol" gives the columns where valid characters are. + * "clear_width" is the width of the window. It's > 0 if the rest of the line + * needs to be cleared, negative otherwise. + * "flags" can have bits: + * SLF_POPUP popup window + * SLF_RIGHTLEFT rightleft window: + * When TRUE and "clear_width" > 0, clear columns 0 to "endcol" + * When FALSE and "clear_width" > 0, clear columns "endcol" to "clear_width" + */ + void +screen_line( + win_T *wp, + int row, + int coloff, + int endcol, + int clear_width, + int flags UNUSED) +{ + unsigned off_from; + unsigned off_to; + unsigned max_off_from; + unsigned max_off_to; + int col = 0; + int hl; + int force = FALSE; // force update rest of the line + int redraw_this // bool: does character need redraw? +#ifdef FEAT_GUI + = TRUE // For GUI when while-loop empty +#endif + ; + int redraw_next; // redraw_this for next character +#ifdef FEAT_GUI_MSWIN + int changed_this; // TRUE if character changed + int changed_next; // TRUE if next character changed +#endif + int clear_next = FALSE; + int char_cells; // 1: normal char + // 2: occupies two display cells + + // Check for illegal row and col, just in case. + if (row >= Rows) + row = Rows - 1; + if (endcol > Columns) + endcol = Columns; + +# ifdef FEAT_CLIPBOARD + clip_may_clear_selection(row, row); +# endif + + off_from = (unsigned)(current_ScreenLine - ScreenLines); + off_to = LineOffset[row] + coloff; + max_off_from = off_from + screen_Columns; + max_off_to = LineOffset[row] + screen_Columns; + +#ifdef FEAT_RIGHTLEFT + if (flags & SLF_RIGHTLEFT) + { + // Clear rest first, because it's left of the text. + if (clear_width > 0) + { + while (col <= endcol && ScreenLines[off_to] == ' ' + && ScreenAttrs[off_to] == 0 + && (!enc_utf8 || ScreenLinesUC[off_to] == 0)) + { + ++off_to; + ++col; + } + if (col <= endcol) + screen_fill(row, row + 1, col + coloff, + endcol + coloff + 1, ' ', ' ', 0); + } + col = endcol + 1; + off_to = LineOffset[row] + col + coloff; + off_from += col; + endcol = (clear_width > 0 ? clear_width : -clear_width); + } +#endif // FEAT_RIGHTLEFT + +#ifdef FEAT_PROP_POPUP + // First char of a popup window may go on top of the right half of a + // double-wide character. Clear the left half to avoid it getting the popup + // window background color. + if (coloff > 0 && enc_utf8 + && ScreenLines[off_to] == 0 + && ScreenLinesUC[off_to - 1] != 0 + && (*mb_char2cells)(ScreenLinesUC[off_to - 1]) > 1) + { + ScreenLines[off_to - 1] = ' '; + ScreenLinesUC[off_to - 1] = 0; + screen_char(off_to - 1, row, col + coloff - 1); + } +#endif + + redraw_next = char_needs_redraw(off_from, off_to, endcol - col); +#ifdef FEAT_GUI_MSWIN + changed_next = redraw_next; +#endif + + while (col < endcol) + { + if (has_mbyte && (col + 1 < endcol)) + char_cells = (*mb_off2cells)(off_from, max_off_from); + else + char_cells = 1; + + redraw_this = redraw_next; + redraw_next = force || char_needs_redraw(off_from + char_cells, + off_to + char_cells, endcol - col - char_cells); + +#ifdef FEAT_GUI +# ifdef FEAT_GUI_MSWIN + changed_this = changed_next; + changed_next = redraw_next; +# endif + // If the next character was bold, then redraw the current character to + // remove any pixels that might have spilt over into us. This only + // happens in the GUI. + // With MS-Windows antialiasing may also cause pixels to spill over + // from a previous character, no matter attributes, always redraw if a + // character changed. + if (redraw_next && gui.in_use) + { +# ifndef FEAT_GUI_MSWIN + hl = ScreenAttrs[off_to + char_cells]; + if (hl > HL_ALL) + hl = syn_attr2attr(hl); + if (hl & HL_BOLD) +# endif + redraw_this = TRUE; + } +#endif + // Do not redraw if under the popup menu. + if (redraw_this && skip_for_popup(row, col + coloff)) + redraw_this = FALSE; + + if (redraw_this) + { + /* + * Special handling when 'xs' termcap flag set (hpterm): + * Attributes for characters are stored at the position where the + * cursor is when writing the highlighting code. The + * start-highlighting code must be written with the cursor on the + * first highlighted character. The stop-highlighting code must + * be written with the cursor just after the last highlighted + * character. + * Overwriting a character doesn't remove its highlighting. Need + * to clear the rest of the line, and force redrawing it + * completely. + */ + if ( p_wiv + && !force +#ifdef FEAT_GUI + && !gui.in_use +#endif + && ScreenAttrs[off_to] != 0 + && ScreenAttrs[off_from] != ScreenAttrs[off_to]) + { + /* + * Need to remove highlighting attributes here. + */ + windgoto(row, col + coloff); + out_str(T_CE); // clear rest of this screen line + screen_start(); // don't know where cursor is now + force = TRUE; // force redraw of rest of the line + redraw_next = TRUE; // or else next char would miss out + + /* + * If the previous character was highlighted, need to stop + * highlighting at this character. + */ + if (col + coloff > 0 && ScreenAttrs[off_to - 1] != 0) + { + screen_attr = ScreenAttrs[off_to - 1]; + term_windgoto(row, col + coloff); + screen_stop_highlight(); + } + else + screen_attr = 0; // highlighting has stopped + } + if (enc_dbcs != 0) + { + // Check if overwriting a double-byte with a single-byte or + // the other way around requires another character to be + // redrawn. For UTF-8 this isn't needed, because comparing + // ScreenLinesUC[] is sufficient. + if (char_cells == 1 + && col + 1 < endcol + && (*mb_off2cells)(off_to, max_off_to) > 1) + { + // Writing a single-cell character over a double-cell + // character: need to redraw the next cell. + ScreenLines[off_to + 1] = 0; + redraw_next = TRUE; + } + else if (char_cells == 2 + && col + 2 < endcol + && (*mb_off2cells)(off_to, max_off_to) == 1 + && (*mb_off2cells)(off_to + 1, max_off_to) > 1) + { + // Writing the second half of a double-cell character over + // a double-cell character: need to redraw the second + // cell. + ScreenLines[off_to + 2] = 0; + redraw_next = TRUE; + } + + if (enc_dbcs == DBCS_JPNU) + ScreenLines2[off_to] = ScreenLines2[off_from]; + } + // When writing a single-width character over a double-width + // character and at the end of the redrawn text, need to clear out + // the right half of the old character. + // Also required when writing the right half of a double-width + // char over the left half of an existing one. + if (has_mbyte && col + char_cells == endcol + && ((char_cells == 1 + && (*mb_off2cells)(off_to, max_off_to) > 1) + || (char_cells == 2 + && (*mb_off2cells)(off_to, max_off_to) == 1 + && (*mb_off2cells)(off_to + 1, max_off_to) > 1))) + clear_next = TRUE; + + ScreenLines[off_to] = ScreenLines[off_from]; + if (enc_utf8) + { + ScreenLinesUC[off_to] = ScreenLinesUC[off_from]; + if (ScreenLinesUC[off_from] != 0) + { + int i; + + for (i = 0; i < Screen_mco; ++i) + ScreenLinesC[i][off_to] = ScreenLinesC[i][off_from]; + } + } + if (char_cells == 2) + ScreenLines[off_to + 1] = ScreenLines[off_from + 1]; + +#if defined(FEAT_GUI) || defined(UNIX) + // The bold trick makes a single column of pixels appear in the + // next character. When a bold character is removed, the next + // character should be redrawn too. This happens for our own GUI + // and for some xterms. + if ( +# ifdef FEAT_GUI + gui.in_use +# endif +# if defined(FEAT_GUI) && defined(UNIX) + || +# endif +# ifdef UNIX + term_is_xterm +# endif + ) + { + hl = ScreenAttrs[off_to]; + if (hl > HL_ALL) + hl = syn_attr2attr(hl); + if (hl & HL_BOLD) + redraw_next = TRUE; + } +#endif +#ifdef FEAT_GUI_MSWIN + // MS-Windows antialiasing may spill over to the next character, + // redraw that one if this one changed, no matter attributes. + if (gui.in_use && changed_this) + redraw_next = TRUE; +#endif + ScreenAttrs[off_to] = ScreenAttrs[off_from]; + + // For simplicity set the attributes of second half of a + // double-wide character equal to the first half. + if (char_cells == 2) + ScreenAttrs[off_to + 1] = ScreenAttrs[off_from]; + + if (enc_dbcs != 0 && char_cells == 2) + screen_char_2(off_to, row, col + coloff); + else + screen_char(off_to, row, col + coloff); + } + else if ( p_wiv +#ifdef FEAT_GUI + && !gui.in_use +#endif + && col + coloff > 0) + { + if (ScreenAttrs[off_to] == ScreenAttrs[off_to - 1]) + { + /* + * Don't output stop-highlight when moving the cursor, it will + * stop the highlighting when it should continue. + */ + screen_attr = 0; + } + else if (screen_attr != 0) + screen_stop_highlight(); + } + + ScreenCols[off_to] = ScreenCols[off_from]; + if (char_cells == 2) + ScreenCols[off_to + 1] = ScreenCols[off_from]; + + off_to += char_cells; + off_from += char_cells; + col += char_cells; + } + + if (clear_next && !skip_for_popup(row, col + coloff)) + { + // Clear the second half of a double-wide character of which the left + // half was overwritten with a single-wide character. + ScreenLines[off_to] = ' '; + if (enc_utf8) + ScreenLinesUC[off_to] = 0; + screen_char(off_to, row, col + coloff); + } + + if (clear_width > 0 +#ifdef FEAT_RIGHTLEFT + && !(flags & SLF_RIGHTLEFT) +#endif + ) + { +#ifdef FEAT_GUI + int startCol = col; +#endif + + // blank out the rest of the line + while (col < clear_width && ScreenLines[off_to] == ' ' + && ScreenAttrs[off_to] == 0 + && (!enc_utf8 || ScreenLinesUC[off_to] == 0)) + { + ScreenCols[off_to] = MAXCOL; + ++off_to; + ++col; + } + if (col < clear_width) + { +#ifdef FEAT_GUI + /* + * In the GUI, clearing the rest of the line may leave pixels + * behind if the first character cleared was bold. Some bold + * fonts spill over the left. In this case we redraw the previous + * character too. If we didn't skip any blanks above, then we + * only redraw if the character wasn't already redrawn anyway. + */ + if (gui.in_use && (col > startCol || !redraw_this)) + { + hl = ScreenAttrs[off_to]; + if (hl > HL_ALL || (hl & HL_BOLD)) + { + int prev_cells = 1; + + if (enc_utf8) + // for utf-8, ScreenLines[char_offset + 1] == 0 means + // that its width is 2. + prev_cells = ScreenLines[off_to - 1] == 0 ? 2 : 1; + else if (enc_dbcs != 0) + { + // find previous character by counting from first + // column and get its width. + unsigned off = LineOffset[row]; + unsigned max_off = LineOffset[row] + screen_Columns; + + while (off < off_to) + { + prev_cells = (*mb_off2cells)(off, max_off); + off += prev_cells; + } + } + + if (!skip_for_popup(row, col + coloff - prev_cells)) + { + if (enc_dbcs != 0 && prev_cells > 1) + screen_char_2(off_to - prev_cells, row, + col + coloff - prev_cells); + else + screen_char(off_to - prev_cells, row, + col + coloff - prev_cells); + } + } + } +#endif + screen_fill(row, row + 1, col + coloff, clear_width + coloff, + ' ', ' ', 0); + while (col < clear_width) + { + ScreenCols[off_to++] = MAXCOL; + ++col; + } + } + } + + if (clear_width > 0 +#ifdef FEAT_PROP_POPUP + && !(flags & SLF_POPUP) // no separator for popup window +#endif + ) + { + // For a window that has a right neighbor, draw the separator char + // right of the window contents. But not on top of a popup window. + if (coloff + col < Columns) + { + if (!skip_for_popup(row, col + coloff)) + { + int c; + + c = fillchar_vsep(&hl, wp); + if (ScreenLines[off_to] != (schar_T)c + || (enc_utf8 && (int)ScreenLinesUC[off_to] + != (c >= 0x80 ? c : 0)) + || ScreenAttrs[off_to] != hl) + { + ScreenLines[off_to] = c; + ScreenAttrs[off_to] = hl; + if (enc_utf8) + { + if (c >= 0x80) + { + ScreenLinesUC[off_to] = c; + ScreenLinesC[0][off_to] = 0; + } + else + ScreenLinesUC[off_to] = 0; + } + screen_char(off_to, row, col + coloff); + } + } + } + else + LineWraps[row] = FALSE; + } +} + +#if defined(FEAT_RIGHTLEFT) || defined(PROTO) +/* + * Mirror text "str" for right-left displaying. + * Only works for single-byte characters (e.g., numbers). + */ + void +rl_mirror(char_u *str) +{ + char_u *p1, *p2; + int t; + + for (p1 = str, p2 = str + STRLEN(str) - 1; p1 < p2; ++p1, --p2) + { + t = *p1; + *p1 = *p2; + *p2 = t; + } +} +#endif + +/* + * Draw the verticap separator right of window "wp" starting with line "row". + */ + void +draw_vsep_win(win_T *wp, int row) +{ + int hl; + int c; + + if (!wp->w_vsep_width) + return; + + // draw the vertical separator right of this window + c = fillchar_vsep(&hl, wp); + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + wp->w_height, + W_ENDCOL(wp), W_ENDCOL(wp) + 1, + c, ' ', hl); +} + +/* + * Return TRUE if the status line of window "wp" is connected to the status + * line of the window right of it. If not, then it's a vertical separator. + * Only call if (wp->w_vsep_width != 0). + */ + int +stl_connected(win_T *wp) +{ + frame_T *fr; + + fr = wp->w_frame; + while (fr->fr_parent != NULL) + { + if (fr->fr_parent->fr_layout == FR_COL) + { + if (fr->fr_next != NULL) + break; + } + else + { + if (fr->fr_next != NULL) + return TRUE; + } + fr = fr->fr_parent; + } + return FALSE; +} + + +/* + * Get the value to show for the language mappings, active 'keymap'. + */ + int +get_keymap_str( + win_T *wp, + char_u *fmt, // format string containing one %s item + char_u *buf, // buffer for the result + int len) // length of buffer +{ + char_u *p; + + if (wp->w_buffer->b_p_iminsert != B_IMODE_LMAP) + return FALSE; + +#ifdef FEAT_EVAL + buf_T *old_curbuf = curbuf; + win_T *old_curwin = curwin; + char_u *s; + + curbuf = wp->w_buffer; + curwin = wp; + STRCPY(buf, "b:keymap_name"); // must be writable + ++emsg_skip; + s = p = eval_to_string(buf, FALSE, FALSE); + --emsg_skip; + curbuf = old_curbuf; + curwin = old_curwin; + if (p == NULL || *p == NUL) +#endif + { +#ifdef FEAT_KEYMAP + if (wp->w_buffer->b_kmap_state & KEYMAP_LOADED) + p = wp->w_buffer->b_p_keymap; + else +#endif + p = (char_u *)"lang"; + } + if (vim_snprintf((char *)buf, len, (char *)fmt, p) > len - 1) + buf[0] = NUL; +#ifdef FEAT_EVAL + vim_free(s); +#endif + return buf[0] != NUL; +} + +#if defined(FEAT_STL_OPT) || defined(PROTO) +/* + * Redraw the status line or ruler of window "wp". + * When "wp" is NULL redraw the tab pages line from 'tabline'. + */ + void +win_redr_custom( + win_T *wp, + int draw_ruler) // TRUE or FALSE +{ + static int entered = FALSE; + int attr; + int curattr; + int row; + int col = 0; + int maxwidth; + int width; + int n; + int len; + int fillchar; + char_u buf[MAXPATHL]; + char_u *stl; + char_u *p; + char_u *opt_name; + int opt_scope = 0; + stl_hlrec_T *hltab; + stl_hlrec_T *tabtab; + win_T *ewp; + int p_crb_save; + + // There is a tiny chance that this gets called recursively: When + // redrawing a status line triggers redrawing the ruler or tabline. + // Avoid trouble by not allowing recursion. + if (entered) + return; + entered = TRUE; + + // setup environment for the task at hand + if (wp == NULL) + { + // Use 'tabline'. Always at the first line of the screen. + stl = p_tal; + row = 0; + fillchar = ' '; + attr = HL_ATTR(HLF_TPF); + maxwidth = Columns; + opt_name = (char_u *)"tabline"; + } + else + { + row = statusline_row(wp); + fillchar = fillchar_status(&attr, wp); + maxwidth = wp->w_width; + + if (draw_ruler) + { + stl = p_ruf; + opt_name = (char_u *)"rulerformat"; + // advance past any leading group spec - implicit in ru_col + if (*stl == '%') + { + if (*++stl == '-') + stl++; + if (atoi((char *)stl)) + while (VIM_ISDIGIT(*stl)) + stl++; + if (*stl++ != '(') + stl = p_ruf; + } + col = ru_col - (Columns - wp->w_width); + if (col < (wp->w_width + 1) / 2) + col = (wp->w_width + 1) / 2; + maxwidth = wp->w_width - col; + if (!wp->w_status_height) + { + row = Rows - 1; + --maxwidth; // writing in last column may cause scrolling + fillchar = ' '; + attr = 0; + } + } + else + { + opt_name = (char_u *)"statusline"; + if (*wp->w_p_stl != NUL) + { + stl = wp->w_p_stl; + opt_scope = OPT_LOCAL; + } + else + stl = p_stl; + } + + col += wp->w_wincol; + } + + if (maxwidth <= 0) + goto theend; + + // Temporarily reset 'cursorbind', we don't want a side effect from moving + // the cursor away and back. + ewp = wp == NULL ? curwin : wp; + p_crb_save = ewp->w_p_crb; + ewp->w_p_crb = FALSE; + + // Make a copy, because the statusline may include a function call that + // might change the option value and free the memory. + stl = vim_strsave(stl); + width = build_stl_str_hl(ewp, buf, sizeof(buf), + stl, opt_name, opt_scope, + fillchar, maxwidth, &hltab, &tabtab); + vim_free(stl); + ewp->w_p_crb = p_crb_save; + + // Make all characters printable. + p = transstr(buf); + if (p != NULL) + { + vim_strncpy(buf, p, sizeof(buf) - 1); + vim_free(p); + } + + // fill up with "fillchar" + len = (int)STRLEN(buf); + while (width < maxwidth && len < (int)sizeof(buf) - 1) + { + len += (*mb_char2bytes)(fillchar, buf + len); + ++width; + } + buf[len] = NUL; + + /* + * Draw each snippet with the specified highlighting. + */ + curattr = attr; + p = buf; + for (n = 0; hltab[n].start != NULL; n++) + { + len = (int)(hltab[n].start - p); + screen_puts_len(p, len, row, col, curattr); + col += vim_strnsize(p, len); + p = hltab[n].start; + + if (hltab[n].userhl == 0) + curattr = attr; + else if (hltab[n].userhl < 0) + curattr = syn_id2attr(-hltab[n].userhl); +#ifdef FEAT_TERMINAL + else if (wp != NULL && wp != curwin && bt_terminal(wp->w_buffer) + && wp->w_status_height != 0) + curattr = highlight_stltermnc[hltab[n].userhl - 1]; + else if (wp != NULL && bt_terminal(wp->w_buffer) + && wp->w_status_height != 0) + curattr = highlight_stlterm[hltab[n].userhl - 1]; +#endif + else if (wp != NULL && wp != curwin && wp->w_status_height != 0) + curattr = highlight_stlnc[hltab[n].userhl - 1]; + else + curattr = highlight_user[hltab[n].userhl - 1]; + } + screen_puts(p, row, col, curattr); + + if (wp == NULL) + { + // Fill the TabPageIdxs[] array for clicking in the tab pagesline. + col = 0; + len = 0; + p = buf; + fillchar = 0; + for (n = 0; tabtab[n].start != NULL; n++) + { + len += vim_strnsize(p, (int)(tabtab[n].start - p)); + while (col < len) + TabPageIdxs[col++] = fillchar; + p = tabtab[n].start; + fillchar = tabtab[n].userhl; + } + while (col < Columns) + TabPageIdxs[col++] = fillchar; + } + +theend: + entered = FALSE; +} + +#endif // FEAT_STL_OPT + +/* + * Output a single character directly to the screen and update ScreenLines. + */ + void +screen_putchar(int c, int row, int col, int attr) +{ + char_u buf[MB_MAXBYTES + 1]; + + if (has_mbyte) + buf[(*mb_char2bytes)(c, buf)] = NUL; + else + { + buf[0] = c; + buf[1] = NUL; + } + screen_puts(buf, row, col, attr); +} + +/* + * Get a single character directly from ScreenLines into "bytes[]". + * Also return its attribute in *attrp; + */ + void +screen_getbytes(int row, int col, char_u *bytes, int *attrp) +{ + unsigned off; + + // safety check + if (ScreenLines == NULL || row >= screen_Rows || col >= screen_Columns) + return; + + off = LineOffset[row] + col; + *attrp = ScreenAttrs[off]; + bytes[0] = ScreenLines[off]; + bytes[1] = NUL; + + if (enc_utf8 && ScreenLinesUC[off] != 0) + bytes[utfc_char2bytes(off, bytes)] = NUL; + else if (enc_dbcs == DBCS_JPNU && ScreenLines[off] == 0x8e) + { + bytes[0] = ScreenLines[off]; + bytes[1] = ScreenLines2[off]; + bytes[2] = NUL; + } + else if (enc_dbcs && MB_BYTE2LEN(bytes[0]) > 1) + { + bytes[1] = ScreenLines[off + 1]; + bytes[2] = NUL; + } +} + +/* + * Return TRUE if composing characters for screen posn "off" differs from + * composing characters in "u8cc". + * Only to be used when ScreenLinesUC[off] != 0. + */ + static int +screen_comp_differs(int off, int *u8cc) +{ + int i; + + for (i = 0; i < Screen_mco; ++i) + { + if (ScreenLinesC[i][off] != (u8char_T)u8cc[i]) + return TRUE; + if (u8cc[i] == 0) + break; + } + return FALSE; +} + +/* + * Put string '*text' on the screen at position 'row' and 'col', with + * attributes 'attr', and update ScreenLines[] and ScreenAttrs[]. + * Note: only outputs within one row, message is truncated at screen boundary! + * Note: if ScreenLines[], row and/or col is invalid, nothing is done. + */ + void +screen_puts( + char_u *text, + int row, + int col, + int attr) +{ + screen_puts_len(text, -1, row, col, attr); +} + +/* + * Like screen_puts(), but output "text[len]". When "len" is -1 output up to + * a NUL. + */ + void +screen_puts_len( + char_u *text, + int textlen, + int row, + int col, + int attr_arg) +{ + int attr = attr_arg; + unsigned off; + char_u *ptr = text; + int len = textlen; + int c; + unsigned max_off; + int mbyte_blen = 1; + int mbyte_cells = 1; + int u8c = 0; + int u8cc[MAX_MCO]; + int clear_next_cell = FALSE; +#ifdef FEAT_ARABIC + int prev_c = 0; // previous Arabic character + int pc, nc, nc1; + int pcc[MAX_MCO]; +#endif + int force_redraw_this; + int force_redraw_next = FALSE; + int need_redraw; + + // Safety check. The check for negative row and column is to fix issue + // #4102. TODO: find out why row/col could be negative. + if (ScreenLines == NULL + || row >= screen_Rows || row < 0 + || col >= screen_Columns || col < 0) + return; + off = LineOffset[row] + col; + + // When drawing over the right half of a double-wide char clear out the + // left half. Only needed in a terminal. + if (has_mbyte && col > 0 && col < screen_Columns +#ifdef FEAT_GUI + && !gui.in_use +#endif + && mb_fix_col(col, row) != col) + { + if (!skip_for_popup(row, col - 1)) + { + ScreenLines[off - 1] = ' '; + ScreenAttrs[off - 1] = 0; + if (enc_utf8) + { + ScreenLinesUC[off - 1] = 0; + ScreenLinesC[0][off - 1] = 0; + } + // redraw the previous cell, make it empty + screen_char(off - 1, row, col - 1); + } + // force the cell at "col" to be redrawn + force_redraw_next = TRUE; + } + + max_off = LineOffset[row] + screen_Columns; + while (col < screen_Columns + && (len < 0 || (int)(ptr - text) < len) + && *ptr != NUL) + { + c = *ptr; + // check if this is the first byte of a multibyte + if (has_mbyte) + { + mbyte_blen = enc_utf8 && len > 0 + ? utfc_ptr2len_len(ptr, (int)((text + len) - ptr)) + : (*mb_ptr2len)(ptr); + if (enc_dbcs == DBCS_JPNU && c == 0x8e) + mbyte_cells = 1; + else if (enc_dbcs != 0) + mbyte_cells = mbyte_blen; + else // enc_utf8 + { + u8c = len >= 0 + ? utfc_ptr2char_len(ptr, u8cc, (int)((text + len) - ptr)) + : utfc_ptr2char(ptr, u8cc); + mbyte_cells = utf_char2cells(u8c); +#ifdef FEAT_ARABIC + if (p_arshape && !p_tbidi && ARABIC_CHAR(u8c)) + { + // Do Arabic shaping. + if (len >= 0 && (int)(ptr - text) + mbyte_blen >= len) + { + // Past end of string to be displayed. + nc = NUL; + nc1 = NUL; + } + else + { + nc = len >= 0 + ? utfc_ptr2char_len(ptr + mbyte_blen, pcc, + (int)((text + len) - ptr - mbyte_blen)) + : utfc_ptr2char(ptr + mbyte_blen, pcc); + nc1 = pcc[0]; + } + pc = prev_c; + prev_c = u8c; + u8c = arabic_shape(u8c, &c, &u8cc[0], nc, nc1, pc); + } + else + prev_c = u8c; +#endif + if (col + mbyte_cells > screen_Columns) + { + // Only 1 cell left, but character requires 2 cells: + // display a '>' in the last column to avoid wrapping. + c = '>'; + mbyte_cells = 1; + } + } + } + + force_redraw_this = force_redraw_next; + force_redraw_next = FALSE; + + need_redraw = ScreenLines[off] != c + || (mbyte_cells == 2 + && ScreenLines[off + 1] != (enc_dbcs ? ptr[1] : 0)) + || (enc_dbcs == DBCS_JPNU + && c == 0x8e + && ScreenLines2[off] != ptr[1]) + || (enc_utf8 + && (ScreenLinesUC[off] != + (u8char_T)(c < 0x80 && u8cc[0] == 0 ? 0 : u8c) + || (ScreenLinesUC[off] != 0 + && screen_comp_differs(off, u8cc)))) + || ScreenAttrs[off] != attr + || exmode_active; + + if ((need_redraw || force_redraw_this) && !skip_for_popup(row, col)) + { +#if defined(FEAT_GUI) || defined(UNIX) + // The bold trick makes a single row of pixels appear in the next + // character. When a bold character is removed, the next + // character should be redrawn too. This happens for our own GUI + // and for some xterms. + if (need_redraw && ScreenLines[off] != ' ' && ( +# ifdef FEAT_GUI + gui.in_use +# endif +# if defined(FEAT_GUI) && defined(UNIX) + || +# endif +# ifdef UNIX + term_is_xterm +# endif + )) + { + int n = ScreenAttrs[off]; + + if (n > HL_ALL) + n = syn_attr2attr(n); + if (n & HL_BOLD) + force_redraw_next = TRUE; + } +#endif + // When at the end of the text and overwriting a two-cell + // character with a one-cell character, need to clear the next + // cell. Also when overwriting the left half of a two-cell char + // with the right half of a two-cell char. Do this only once + // (mb_off2cells() may return 2 on the right half). + if (clear_next_cell) + clear_next_cell = FALSE; + else if (has_mbyte + && (len < 0 ? ptr[mbyte_blen] == NUL + : ptr + mbyte_blen >= text + len) + && ((mbyte_cells == 1 && (*mb_off2cells)(off, max_off) > 1) + || (mbyte_cells == 2 + && (*mb_off2cells)(off, max_off) == 1 + && (*mb_off2cells)(off + 1, max_off) > 1))) + clear_next_cell = TRUE; + + // Make sure we never leave a second byte of a double-byte behind, + // it confuses mb_off2cells(). + if (enc_dbcs + && ((mbyte_cells == 1 && (*mb_off2cells)(off, max_off) > 1) + || (mbyte_cells == 2 + && (*mb_off2cells)(off, max_off) == 1 + && (*mb_off2cells)(off + 1, max_off) > 1))) + ScreenLines[off + mbyte_blen] = 0; + ScreenLines[off] = c; + ScreenAttrs[off] = attr; + ScreenCols[off] = -1; + if (enc_utf8) + { + if (c < 0x80 && u8cc[0] == 0) + ScreenLinesUC[off] = 0; + else + { + int i; + + ScreenLinesUC[off] = u8c; + for (i = 0; i < Screen_mco; ++i) + { + ScreenLinesC[i][off] = u8cc[i]; + if (u8cc[i] == 0) + break; + } + } + if (mbyte_cells == 2) + { + ScreenLines[off + 1] = 0; + ScreenAttrs[off + 1] = attr; + ScreenCols[off + 1] = -1; + } + screen_char(off, row, col); + } + else if (mbyte_cells == 2) + { + ScreenLines[off + 1] = ptr[1]; + ScreenAttrs[off + 1] = attr; + ScreenCols[off + 1] = -1; + screen_char_2(off, row, col); + } + else if (enc_dbcs == DBCS_JPNU && c == 0x8e) + { + ScreenLines2[off] = ptr[1]; + screen_char(off, row, col); + } + else + screen_char(off, row, col); + } + if (has_mbyte) + { + off += mbyte_cells; + col += mbyte_cells; + ptr += mbyte_blen; + if (clear_next_cell) + { + // This only happens at the end, display one space next. + // Keep the attribute from before. + ptr = (char_u *)" "; + len = -1; + attr = ScreenAttrs[off]; + } + } + else + { + ++off; + ++col; + ++ptr; + } + } + + // If we detected the next character needs to be redrawn, but the text + // doesn't extend up to there, update the character here. + if (force_redraw_next && col < screen_Columns && !skip_for_popup(row, col)) + { + if (enc_dbcs != 0 && dbcs_off2cells(off, max_off) > 1) + screen_char_2(off, row, col); + else + screen_char(off, row, col); + } +} + +#if defined(FEAT_SEARCH_EXTRA) || defined(PROTO) +/* + * Prepare for 'hlsearch' highlighting. + */ + void +start_search_hl(void) +{ + if (!p_hls || no_hlsearch) + return; + + end_search_hl(); // just in case it wasn't called before + last_pat_prog(&screen_search_hl.rm); + screen_search_hl.attr = HL_ATTR(HLF_L); +} + +/* + * Clean up for 'hlsearch' highlighting. + */ + void +end_search_hl(void) +{ + if (screen_search_hl.rm.regprog == NULL) + return; + + vim_regfree(screen_search_hl.rm.regprog); + screen_search_hl.rm.regprog = NULL; +} +#endif + + static void +screen_start_highlight(int attr) +{ + attrentry_T *aep = NULL; + + screen_attr = attr; + if (!full_screen +#ifdef MSWIN + || !termcap_active +#endif + ) + return; + +#ifdef FEAT_GUI + if (gui.in_use) + { + char buf[20]; + + // The GUI handles this internally. + sprintf(buf, "\033|%dh", attr); + OUT_STR(buf); + return; + } +#endif + + if (attr > HL_ALL) // special HL attr. + { + if (IS_CTERM) + aep = syn_cterm_attr2entry(attr); + else + aep = syn_term_attr2entry(attr); + if (aep == NULL) // did ":syntax clear" + attr = 0; + else + attr = aep->ae_attr; + } +#if defined(FEAT_VTP) && defined(FEAT_TERMGUICOLORS) + if (use_vtp()) + { + guicolor_T defguifg, defguibg; + int defctermfg, defctermbg; + + // If FG and BG are unset, the color is undefined when + // BOLD+INVERSE. Use Normal as the default value. + get_default_console_color(&defctermfg, &defctermbg, &defguifg, + &defguibg); + + if (p_tgc) + { + if (aep == NULL || COLOR_INVALID(aep->ae_u.cterm.fg_rgb)) + term_fg_rgb_color(defguifg); + if (aep == NULL || COLOR_INVALID(aep->ae_u.cterm.bg_rgb)) + term_bg_rgb_color(defguibg); + } + else if (t_colors >= 256) + { + if (aep == NULL || aep->ae_u.cterm.fg_color == 0) + term_fg_color(defctermfg); + if (aep == NULL || aep->ae_u.cterm.bg_color == 0) + term_bg_color(defctermbg); + } + } +#endif + if ((attr & HL_BOLD) && *T_MD != NUL) // bold + out_str(T_MD); + else if (aep != NULL && cterm_normal_fg_bold && ( +#ifdef FEAT_TERMGUICOLORS + p_tgc && aep->ae_u.cterm.fg_rgb != CTERMCOLOR + ? aep->ae_u.cterm.fg_rgb != INVALCOLOR + : +#endif + t_colors > 1 && aep->ae_u.cterm.fg_color)) + // If the Normal FG color has BOLD attribute and the new HL + // has a FG color defined, clear BOLD. + out_str(T_ME); + if ((attr & HL_STANDOUT) && *T_SO != NUL) // standout + out_str(T_SO); + if ((attr & HL_UNDERCURL) && *T_UCS != NUL) // undercurl + out_str(T_UCS); + if ((attr & HL_UNDERDOUBLE) && *T_USS != NUL) // double underline + out_str(T_USS); + if ((attr & HL_UNDERDOTTED) && *T_DS != NUL) // dotted underline + out_str(T_DS); + if ((attr & HL_UNDERDASHED) && *T_CDS != NUL) // dashed underline + out_str(T_CDS); + if (((attr & HL_UNDERLINE) // underline or undercurl, etc. + || ((attr & HL_UNDERCURL) && *T_UCS == NUL) + || ((attr & HL_UNDERDOUBLE) && *T_USS == NUL) + || ((attr & HL_UNDERDOTTED) && *T_DS == NUL) + || ((attr & HL_UNDERDASHED) && *T_CDS == NUL)) + && *T_US != NUL) + out_str(T_US); + if ((attr & HL_ITALIC) && *T_CZH != NUL) // italic + out_str(T_CZH); + if ((attr & HL_INVERSE) && *T_MR != NUL) // inverse (reverse) + out_str(T_MR); + if ((attr & HL_STRIKETHROUGH) && *T_STS != NUL) // strike + out_str(T_STS); + + /* + * Output the color or start string after bold etc., in case the + * bold etc. override the color setting. + */ + if (aep != NULL) + { +#ifdef FEAT_TERMGUICOLORS + // When 'termguicolors' is set but fg or bg is unset, + // fall back to the cterm colors. This helps for SpellBad, + // where the GUI uses a red undercurl. + if (p_tgc && aep->ae_u.cterm.fg_rgb != CTERMCOLOR) + { + if (aep->ae_u.cterm.fg_rgb != INVALCOLOR) + term_fg_rgb_color(aep->ae_u.cterm.fg_rgb); + } + else +#endif + if (t_colors > 1) + { + if (aep->ae_u.cterm.fg_color) + term_fg_color(aep->ae_u.cterm.fg_color - 1); + } +#ifdef FEAT_TERMGUICOLORS + if (p_tgc && aep->ae_u.cterm.bg_rgb != CTERMCOLOR) + { + if (aep->ae_u.cterm.bg_rgb != INVALCOLOR) + term_bg_rgb_color(aep->ae_u.cterm.bg_rgb); + } + else +#endif + if (t_colors > 1) + { + if (aep->ae_u.cterm.bg_color) + term_bg_color(aep->ae_u.cterm.bg_color - 1); + } +#ifdef FEAT_TERMGUICOLORS + if (p_tgc && aep->ae_u.cterm.ul_rgb != CTERMCOLOR) + { + if (aep->ae_u.cterm.ul_rgb != INVALCOLOR) + term_ul_rgb_color(aep->ae_u.cterm.ul_rgb); + } + else +#endif + if (t_colors > 1) + { + if (aep->ae_u.cterm.ul_color) + term_ul_color(aep->ae_u.cterm.ul_color - 1); + } + + if (!IS_CTERM) + { + if (aep->ae_u.term.start != NULL) + out_str(aep->ae_u.term.start); + } + } +} + + void +screen_stop_highlight(void) +{ + int do_ME = FALSE; // output T_ME code +#if defined(FEAT_VTP) && defined(FEAT_TERMGUICOLORS) + int do_ME_fg = FALSE, do_ME_bg = FALSE; +#endif + + if (screen_attr != 0 +#ifdef MSWIN + && termcap_active +#endif + ) + { +#ifdef FEAT_GUI + if (gui.in_use) + { + char buf[20]; + + // use internal GUI code + sprintf(buf, "\033|%dH", screen_attr); + OUT_STR(buf); + } + else +#endif + { + int is_under; + + if (screen_attr > HL_ALL) // special HL attr. + { + attrentry_T *aep; + + if (IS_CTERM) + { + /* + * Assume that t_me restores the original colors! + */ + aep = syn_cterm_attr2entry(screen_attr); + if (aep != NULL && (( +#ifdef FEAT_TERMGUICOLORS + p_tgc && aep->ae_u.cterm.fg_rgb != CTERMCOLOR + ? aep->ae_u.cterm.fg_rgb != INVALCOLOR +# ifdef FEAT_VTP + ? !(do_ME_fg = TRUE) : (do_ME_fg = FALSE) +# endif + : +#endif + aep->ae_u.cterm.fg_color) || ( +#ifdef FEAT_TERMGUICOLORS + p_tgc && aep->ae_u.cterm.bg_rgb != CTERMCOLOR + ? aep->ae_u.cterm.bg_rgb != INVALCOLOR +# ifdef FEAT_VTP + ? !(do_ME_bg = TRUE) : (do_ME_bg = FALSE) +# endif + : +#endif + aep->ae_u.cterm.bg_color))) + do_ME = TRUE; +#if defined(FEAT_VTP) && defined(FEAT_TERMGUICOLORS) + if (use_vtp()) + { + if (do_ME_fg && do_ME_bg) + do_ME = TRUE; + + // FG and BG cannot be separated in T_ME, which is not + // efficient. + if (!do_ME && do_ME_fg) + out_str((char_u *)"\033|39m"); // restore FG + if (!do_ME && do_ME_bg) + out_str((char_u *)"\033|49m"); // restore BG + } + else + { + // Process FG and BG at once. + if (!do_ME) + do_ME = do_ME_fg | do_ME_bg; + } +#endif + } + else + { + aep = syn_term_attr2entry(screen_attr); + if (aep != NULL && aep->ae_u.term.stop != NULL) + { + if (STRCMP(aep->ae_u.term.stop, T_ME) == 0) + do_ME = TRUE; + else + out_str(aep->ae_u.term.stop); + } + } + if (aep == NULL) // did ":syntax clear" + screen_attr = 0; + else + screen_attr = aep->ae_attr; + } + + /* + * Often all ending-codes are equal to T_ME. Avoid outputting the + * same sequence several times. + */ + if (screen_attr & HL_STANDOUT) + { + if (STRCMP(T_SE, T_ME) == 0) + do_ME = TRUE; + else + out_str(T_SE); + } + is_under = (screen_attr & (HL_UNDERCURL + | HL_UNDERDOUBLE | HL_UNDERDOTTED | HL_UNDERDASHED)); + if (is_under && *T_UCE != NUL) + { + if (STRCMP(T_UCE, T_ME) == 0) + do_ME = TRUE; + else + out_str(T_UCE); + } + if ((screen_attr & HL_UNDERLINE) || (is_under && *T_UCE == NUL)) + { + if (STRCMP(T_UE, T_ME) == 0) + do_ME = TRUE; + else + out_str(T_UE); + } + if (screen_attr & HL_ITALIC) + { + if (STRCMP(T_CZR, T_ME) == 0) + do_ME = TRUE; + else + out_str(T_CZR); + } + if (screen_attr & HL_STRIKETHROUGH) + { + if (STRCMP(T_STE, T_ME) == 0) + do_ME = TRUE; + else + out_str(T_STE); + } + if (do_ME || (screen_attr & (HL_BOLD | HL_INVERSE))) + out_str(T_ME); + +#ifdef FEAT_TERMGUICOLORS + if (p_tgc) + { + if (cterm_normal_fg_gui_color != INVALCOLOR) + term_fg_rgb_color(cterm_normal_fg_gui_color); + if (cterm_normal_bg_gui_color != INVALCOLOR) + term_bg_rgb_color(cterm_normal_bg_gui_color); + if (cterm_normal_ul_gui_color != INVALCOLOR) + term_ul_rgb_color(cterm_normal_ul_gui_color); + } + else +#endif + { + if (t_colors > 1) + { + // set Normal cterm colors + if (cterm_normal_fg_color != 0) + term_fg_color(cterm_normal_fg_color - 1); + if (cterm_normal_bg_color != 0) + term_bg_color(cterm_normal_bg_color - 1); + if (cterm_normal_ul_color != 0) + term_ul_color(cterm_normal_ul_color - 1); + if (cterm_normal_fg_bold) + out_str(T_MD); + } + } + } + } + screen_attr = 0; +} + +/* + * Reset the colors for a cterm. Used when leaving Vim. + * The machine specific code may override this again. + */ + void +reset_cterm_colors(void) +{ + if (!IS_CTERM) + return; + + // set Normal cterm colors +#ifdef FEAT_TERMGUICOLORS + if (p_tgc ? (cterm_normal_fg_gui_color != INVALCOLOR + || cterm_normal_bg_gui_color != INVALCOLOR) + : (cterm_normal_fg_color > 0 || cterm_normal_bg_color > 0)) +#else + if (cterm_normal_fg_color > 0 || cterm_normal_bg_color > 0) +#endif + { + out_str(T_OP); + screen_attr = -1; + } + if (cterm_normal_fg_bold) + { + out_str(T_ME); + screen_attr = -1; + } +} + +/* + * Put character ScreenLines["off"] on the screen at position "row" and "col", + * using the attributes from ScreenAttrs["off"]. + */ + void +screen_char(unsigned off, int row, int col) +{ + int attr; + + // Check for illegal values, just in case (could happen just after + // resizing). + if (row >= screen_Rows || col >= screen_Columns) + return; + + // Outputting a character in the last cell on the screen may scroll the + // screen up. Only do it when the "xn" termcap property is set, otherwise + // mark the character invalid (update it when scrolled up). + if (*T_XN == NUL + && row == screen_Rows - 1 && col == screen_Columns - 1 +#ifdef FEAT_RIGHTLEFT + // account for first command-line character in rightleft mode + && !cmdmsg_rl +#endif + ) + { + ScreenAttrs[off] = (sattr_T)-1; + ScreenCols[off] = -1; + return; + } + + /* + * Stop highlighting first, so it's easier to move the cursor. + */ + if (screen_char_attr != 0) + attr = screen_char_attr; + else + attr = ScreenAttrs[off]; + if (screen_attr != attr) + screen_stop_highlight(); + + windgoto(row, col); + + if (screen_attr != attr) + screen_start_highlight(attr); + + if (enc_utf8 && ScreenLinesUC[off] != 0) + { + char_u buf[MB_MAXBYTES + 1]; + + if (utf_ambiguous_width(ScreenLinesUC[off])) + { + if (*p_ambw == 'd' +#ifdef FEAT_GUI + && !gui.in_use +#endif + ) + { + // Clear the two screen cells. If the character is actually + // single width it won't change the second cell. + out_str((char_u *)" "); + term_windgoto(row, col); + } + // not sure where the cursor is after drawing the ambiguous width + // character + screen_cur_col = 9999; + } + else if (utf_char2cells(ScreenLinesUC[off]) > 1) + ++screen_cur_col; + + // Convert the UTF-8 character to bytes and write it. + buf[utfc_char2bytes(off, buf)] = NUL; + out_str(buf); + } + else + { + out_flush_check(); + out_char(ScreenLines[off]); + // double-byte character in single-width cell + if (enc_dbcs == DBCS_JPNU && ScreenLines[off] == 0x8e) + out_char(ScreenLines2[off]); + } + + screen_cur_col++; +} + +/* + * Used for enc_dbcs only: Put one double-wide character at ScreenLines["off"] + * on the screen at position 'row' and 'col'. + * The attributes of the first byte is used for all. This is required to + * output the two bytes of a double-byte character with nothing in between. + */ + static void +screen_char_2(unsigned off, int row, int col) +{ + // Check for illegal values (could be wrong when screen was resized). + if (off + 1 >= (unsigned)(screen_Rows * screen_Columns)) + return; + + // Outputting the last character on the screen may scroll the screen up. + // Don't to it! Mark the character invalid (update it when scrolled up) + if (row == screen_Rows - 1 && col >= screen_Columns - 2) + { + ScreenAttrs[off] = (sattr_T)-1; + ScreenCols[off] = -1; + return; + } + + // Output the first byte normally (positions the cursor), then write the + // second byte directly. + screen_char(off, row, col); + out_char(ScreenLines[off + 1]); + ++screen_cur_col; +} + +/* + * Draw a rectangle of the screen, inverted when "invert" is TRUE. + * This uses the contents of ScreenLines[] and doesn't change it. + */ + void +screen_draw_rectangle( + int row, + int col, + int height, + int width, + int invert) +{ + int r, c; + int off; + int max_off; + + // Can't use ScreenLines unless initialized + if (ScreenLines == NULL) + return; + + if (invert) + screen_char_attr = HL_INVERSE; + for (r = row; r < row + height; ++r) + { + off = LineOffset[r]; + max_off = off + screen_Columns; + for (c = col; c < col + width; ++c) + { + if (enc_dbcs != 0 && dbcs_off2cells(off + c, max_off) > 1) + { + if (!skip_for_popup(r, c)) + screen_char_2(off + c, r, c); + ++c; + } + else + { + if (!skip_for_popup(r, c)) + screen_char(off + c, r, c); + if (utf_off2cells(off + c, max_off) > 1) + ++c; + } + } + } + screen_char_attr = 0; +} + +/* + * Redraw the characters for a vertically split window. + */ + static void +redraw_block(int row, int end, win_T *wp) +{ + int col; + int width; + +# ifdef FEAT_CLIPBOARD + clip_may_clear_selection(row, end - 1); +# endif + + if (wp == NULL) + { + col = 0; + width = Columns; + } + else + { + col = wp->w_wincol; + width = wp->w_width; + } + screen_draw_rectangle(row, col, end - row, width, FALSE); +} + + void +space_to_screenline(int off, int attr) +{ + ScreenLines[off] = ' '; + ScreenAttrs[off] = attr; + ScreenCols[off] = -1; + if (enc_utf8) + ScreenLinesUC[off] = 0; +} + +/* + * Fill the screen from "start_row" to "end_row" (exclusive), from "start_col" + * to "end_col" (exclusive) with character "c1" in first column followed by + * "c2" in the other columns. Use attributes "attr". + */ + void +screen_fill( + int start_row, + int end_row, + int start_col, + int end_col, + int c1, + int c2, + int attr) +{ + int row; + int col; + int off; + int end_off; + int did_delete; + int c; + int norm_term; +#if defined(FEAT_GUI) || defined(UNIX) + int force_next = FALSE; +#endif + + if (end_row > screen_Rows) // safety check + end_row = screen_Rows; + if (end_col > screen_Columns) // safety check + end_col = screen_Columns; + if (ScreenLines == NULL + || start_row >= end_row + || start_col >= end_col) // nothing to do + return; + + // it's a "normal" terminal when not in a GUI or cterm + norm_term = ( +#ifdef FEAT_GUI + !gui.in_use && +#endif + !IS_CTERM); + for (row = start_row; row < end_row; ++row) + { + if (has_mbyte +#ifdef FEAT_GUI + && !gui.in_use +#endif + ) + { + // When drawing over the right half of a double-wide char clear + // out the left half. When drawing over the left half of a + // double wide-char clear out the right half. Only needed in a + // terminal. + if (start_col > 0 && mb_fix_col(start_col, row) != start_col) + screen_puts_len((char_u *)" ", 1, row, start_col - 1, 0); + if (end_col < screen_Columns && mb_fix_col(end_col, row) != end_col) + screen_puts_len((char_u *)" ", 1, row, end_col, 0); + } + /* + * Try to use delete-line termcap code, when no attributes or in a + * "normal" terminal, where a bold/italic space is just a + * space. + */ + did_delete = FALSE; + if (c2 == ' ' + && end_col == Columns + && can_clear(T_CE) + && (attr == 0 + || (norm_term + && attr <= HL_ALL + && ((attr & ~(HL_BOLD | HL_ITALIC)) == 0)))) + { + /* + * check if we really need to clear something + */ + col = start_col; + if (c1 != ' ') // don't clear first char + ++col; + + off = LineOffset[row] + col; + end_off = LineOffset[row] + end_col; + + // skip blanks (used often, keep it fast!) + if (enc_utf8) + while (off < end_off && ScreenLines[off] == ' ' + && ScreenAttrs[off] == 0 && ScreenLinesUC[off] == 0) + ++off; + else + while (off < end_off && ScreenLines[off] == ' ' + && ScreenAttrs[off] == 0) + ++off; + if (off < end_off) // something to be cleared + { + col = off - LineOffset[row]; + screen_stop_highlight(); + term_windgoto(row, col);// clear rest of this screen line + out_str(T_CE); + screen_start(); // don't know where cursor is now + col = end_col - col; + while (col--) // clear chars in ScreenLines + { + space_to_screenline(off, 0); + ++off; + } + } + did_delete = TRUE; // the chars are cleared now + } + + off = LineOffset[row] + start_col; + c = c1; + for (col = start_col; col < end_col; ++col) + { + if ((ScreenLines[off] != c + || (enc_utf8 && (int)ScreenLinesUC[off] + != (c >= 0x80 ? c : 0)) + || ScreenAttrs[off] != attr + || must_redraw == UPD_CLEAR // screen clear pending +#if defined(FEAT_GUI) || defined(UNIX) + || force_next +#endif + ) + // Skip if under a(nother) popup. + && !skip_for_popup(row, col)) + { +#if defined(FEAT_GUI) || defined(UNIX) + // The bold trick may make a single row of pixels appear in + // the next character. When a bold character is removed, the + // next character should be redrawn too. This happens for our + // own GUI and for some xterms. + if ( +# ifdef FEAT_GUI + gui.in_use +# endif +# if defined(FEAT_GUI) && defined(UNIX) + || +# endif +# ifdef UNIX + term_is_xterm +# endif + ) + { + if (ScreenLines[off] != ' ' + && (ScreenAttrs[off] > HL_ALL + || ScreenAttrs[off] & HL_BOLD)) + force_next = TRUE; + else + force_next = FALSE; + } +#endif // FEAT_GUI || defined(UNIX) + ScreenLines[off] = c; + if (enc_utf8) + { + if (c >= 0x80) + { + ScreenLinesUC[off] = c; + ScreenLinesC[0][off] = 0; + } + else + ScreenLinesUC[off] = 0; + } + ScreenAttrs[off] = attr; + if (!did_delete || c != ' ') + screen_char(off, row, col); + } + ScreenCols[off] = -1; + ++off; + if (col == start_col) + { + if (did_delete) + break; + c = c2; + } + } + if (end_col == Columns) + LineWraps[row] = FALSE; + if (row == Rows - 1) // overwritten the command line + { + redraw_cmdline = TRUE; + if (start_col == 0 && end_col == Columns + && c1 == ' ' && c2 == ' ' && attr == 0) + clear_cmdline = FALSE; // command line has been cleared + if (start_col == 0) + mode_displayed = FALSE; // mode cleared or overwritten + } + } +} + +/* + * Check if there should be a delay. Used before clearing or redrawing the + * screen or the command line. + */ + void +check_for_delay(int check_msg_scroll) +{ + if ((emsg_on_display || (check_msg_scroll && msg_scroll)) + && !did_wait_return + && emsg_silent == 0 + && !in_assert_fails) + { + out_flush(); + ui_delay(1006L, TRUE); + emsg_on_display = FALSE; + if (check_msg_scroll) + msg_scroll = FALSE; + } +} + +/* + * Init TabPageIdxs[] to zero: Clicking outside of tabs has no effect. + */ + static void +clear_TabPageIdxs(void) +{ + int scol; + + for (scol = 0; scol < Columns; ++scol) + TabPageIdxs[scol] = 0; +} + +/* + * screen_valid - allocate screen buffers if size changed + * If "doclear" is TRUE: clear screen if it has been resized. + * Returns TRUE if there is a valid screen to write to. + * Returns FALSE when starting up and screen not initialized yet. + */ + int +screen_valid(int doclear) +{ + screenalloc(doclear); // allocate screen buffers if size changed + return (ScreenLines != NULL); +} + +/* + * Resize the shell to Rows and Columns. + * Allocate ScreenLines[] and associated items. + * + * There may be some time between setting Rows and Columns and (re)allocating + * ScreenLines[]. This happens when starting up and when (manually) changing + * the shell size. Always use screen_Rows and screen_Columns to access items + * in ScreenLines[]. Use Rows and Columns for positioning text etc. where the + * final size of the shell is needed. + */ + void +screenalloc(int doclear) +{ + int new_row, old_row; +#ifdef FEAT_GUI + int old_Rows; +#endif + win_T *wp; + int outofmem = FALSE; + int len; + schar_T *new_ScreenLines; + u8char_T *new_ScreenLinesUC = NULL; + u8char_T *new_ScreenLinesC[MAX_MCO]; + schar_T *new_ScreenLines2 = NULL; + sattr_T *new_ScreenAttrs; + colnr_T *new_ScreenCols; + unsigned *new_LineOffset; + char_u *new_LineWraps; + short *new_TabPageIdxs; +#ifdef FEAT_PROP_POPUP + short *new_popup_mask; + short *new_popup_mask_next; + char *new_popup_transparent; +#endif + tabpage_T *tp; + static int entered = FALSE; // avoid recursiveness + static int done_outofmem_msg = FALSE; // did outofmem message + int retry_count = 0; + int found_null; + +retry: + /* + * Allocation of the screen buffers is done only when the size changes and + * when Rows and Columns have been set and we have started doing full + * screen stuff. + */ + if ((ScreenLines != NULL + && Rows == screen_Rows + && Columns == screen_Columns + && enc_utf8 == (ScreenLinesUC != NULL) + && (enc_dbcs == DBCS_JPNU) == (ScreenLines2 != NULL) + && p_mco == Screen_mco) + || Rows == 0 + || Columns == 0 + || (!full_screen && ScreenLines == NULL)) + return; + + /* + * It's possible that we produce an out-of-memory message below, which + * will cause this function to be called again. To break the loop, just + * return here. + */ + if (entered) + return; + entered = TRUE; + + /* + * Note that the window sizes are updated before reallocating the arrays, + * thus we must not redraw here! + */ + ++RedrawingDisabled; + + win_new_shellsize(); // fit the windows in the new sized shell + +#ifdef FEAT_GUI_HAIKU + vim_lock_screen(); // be safe, put it here +#endif + + comp_col(); // recompute columns for shown command and ruler + + /* + * We're changing the size of the screen. + * - Allocate new arrays for ScreenLines and ScreenAttrs. + * - Move lines from the old arrays into the new arrays, clear extra + * lines (unless the screen is going to be cleared). + * - Free the old arrays. + * + * If anything fails, make ScreenLines NULL, so we don't do anything! + * Continuing with the old ScreenLines may result in a crash, because the + * size is wrong. + */ + FOR_ALL_TAB_WINDOWS(tp, wp) + win_free_lsize(wp); + for (int i = 0; i < AUCMD_WIN_COUNT; ++i) + if (aucmd_win[i].auc_win != NULL) + win_free_lsize(aucmd_win[i].auc_win); +#ifdef FEAT_PROP_POPUP + // global popup windows + FOR_ALL_POPUPWINS(wp) + win_free_lsize(wp); + // tab-local popup windows + FOR_ALL_TABPAGES(tp) + FOR_ALL_POPUPWINS_IN_TAB(tp, wp) + win_free_lsize(wp); +#endif + + new_ScreenLines = LALLOC_MULT(schar_T, (Rows + 1) * Columns); + vim_memset(new_ScreenLinesC, 0, sizeof(u8char_T *) * MAX_MCO); + if (enc_utf8) + { + new_ScreenLinesUC = LALLOC_MULT(u8char_T, (Rows + 1) * Columns); + for (int i = 0; i < p_mco; ++i) + new_ScreenLinesC[i] = LALLOC_CLEAR_MULT(u8char_T, + (Rows + 1) * Columns); + } + if (enc_dbcs == DBCS_JPNU) + new_ScreenLines2 = LALLOC_MULT(schar_T, (Rows + 1) * Columns); + new_ScreenAttrs = LALLOC_MULT(sattr_T, (Rows + 1) * Columns); + // Clear ScreenCols to avoid a warning for uninitialized memory in + // jump_to_mouse(). + new_ScreenCols = LALLOC_CLEAR_MULT(colnr_T, (Rows + 1) * Columns); + new_LineOffset = LALLOC_MULT(unsigned, Rows); + new_LineWraps = LALLOC_MULT(char_u, Rows); + new_TabPageIdxs = LALLOC_MULT(short, Columns); +#ifdef FEAT_PROP_POPUP + new_popup_mask = LALLOC_MULT(short, Rows * Columns); + new_popup_mask_next = LALLOC_MULT(short, Rows * Columns); + new_popup_transparent = LALLOC_MULT(char, Rows * Columns); +#endif + + FOR_ALL_TAB_WINDOWS(tp, wp) + { + if (win_alloc_lines(wp) == FAIL) + { + outofmem = TRUE; + goto give_up; + } + } + for (int i = 0; i < AUCMD_WIN_COUNT; ++i) + if (aucmd_win[i].auc_win != NULL + && aucmd_win[i].auc_win->w_lines == NULL + && win_alloc_lines(aucmd_win[i].auc_win) == FAIL) + { + outofmem = TRUE; + break; + } +#ifdef FEAT_PROP_POPUP + // global popup windows + FOR_ALL_POPUPWINS(wp) + if (win_alloc_lines(wp) == FAIL) + { + outofmem = TRUE; + goto give_up; + } + // tab-local popup windows + FOR_ALL_TABPAGES(tp) + FOR_ALL_POPUPWINS_IN_TAB(tp, wp) + if (win_alloc_lines(wp) == FAIL) + { + outofmem = TRUE; + goto give_up; + } +#endif + +give_up: + found_null = FALSE; + for (int i = 0; i < p_mco; ++i) + if (new_ScreenLinesC[i] == NULL) + { + found_null = TRUE; + break; + } + if (new_ScreenLines == NULL + || (enc_utf8 && (new_ScreenLinesUC == NULL || found_null)) + || (enc_dbcs == DBCS_JPNU && new_ScreenLines2 == NULL) + || new_ScreenAttrs == NULL + || new_ScreenCols == NULL + || new_LineOffset == NULL + || new_LineWraps == NULL + || new_TabPageIdxs == NULL +#ifdef FEAT_PROP_POPUP + || new_popup_mask == NULL + || new_popup_mask_next == NULL + || new_popup_transparent == NULL +#endif + || outofmem) + { + if (ScreenLines != NULL || !done_outofmem_msg) + { + // guess the size + do_outofmem_msg((long_u)((Rows + 1) * Columns)); + + // Remember we did this to avoid getting outofmem messages over + // and over again. + done_outofmem_msg = TRUE; + } + VIM_CLEAR(new_ScreenLines); + VIM_CLEAR(new_ScreenLinesUC); + for (int i = 0; i < p_mco; ++i) + VIM_CLEAR(new_ScreenLinesC[i]); + VIM_CLEAR(new_ScreenLines2); + VIM_CLEAR(new_ScreenAttrs); + VIM_CLEAR(new_ScreenCols); + VIM_CLEAR(new_LineOffset); + VIM_CLEAR(new_LineWraps); + VIM_CLEAR(new_TabPageIdxs); +#ifdef FEAT_PROP_POPUP + VIM_CLEAR(new_popup_mask); + VIM_CLEAR(new_popup_mask_next); + VIM_CLEAR(new_popup_transparent); +#endif + } + else + { + done_outofmem_msg = FALSE; + + for (new_row = 0; new_row < Rows; ++new_row) + { + new_LineOffset[new_row] = new_row * Columns; + new_LineWraps[new_row] = FALSE; + + /* + * If the screen is not going to be cleared, copy as much as + * possible from the old screen to the new one and clear the rest + * (used when resizing the window at the "--more--" prompt or when + * executing an external command, for the GUI). + */ + if (!doclear) + { + (void)vim_memset(new_ScreenLines + new_row * Columns, + ' ', (size_t)Columns * sizeof(schar_T)); + if (enc_utf8) + { + (void)vim_memset(new_ScreenLinesUC + new_row * Columns, + 0, (size_t)Columns * sizeof(u8char_T)); + for (int i = 0; i < p_mco; ++i) + (void)vim_memset(new_ScreenLinesC[i] + + new_row * Columns, + 0, (size_t)Columns * sizeof(u8char_T)); + } + if (enc_dbcs == DBCS_JPNU) + (void)vim_memset(new_ScreenLines2 + new_row * Columns, + 0, (size_t)Columns * sizeof(schar_T)); + (void)vim_memset(new_ScreenAttrs + new_row * Columns, + 0, (size_t)Columns * sizeof(sattr_T)); + (void)vim_memset(new_ScreenCols + new_row * Columns, + 0, (size_t)Columns * sizeof(colnr_T)); + old_row = new_row + (screen_Rows - Rows); + if (old_row >= 0 && ScreenLines != NULL) + { + if (screen_Columns < Columns) + len = screen_Columns; + else + len = Columns; + // When switching to utf-8 don't copy characters, they + // may be invalid now. Also when p_mco changes. + if (!(enc_utf8 && ScreenLinesUC == NULL) + && p_mco == Screen_mco) + mch_memmove(new_ScreenLines + new_LineOffset[new_row], + ScreenLines + LineOffset[old_row], + (size_t)len * sizeof(schar_T)); + if (enc_utf8 && ScreenLinesUC != NULL + && p_mco == Screen_mco) + { + mch_memmove(new_ScreenLinesUC + new_LineOffset[new_row], + ScreenLinesUC + LineOffset[old_row], + (size_t)len * sizeof(u8char_T)); + for (int i = 0; i < p_mco; ++i) + mch_memmove(new_ScreenLinesC[i] + + new_LineOffset[new_row], + ScreenLinesC[i] + LineOffset[old_row], + (size_t)len * sizeof(u8char_T)); + } + if (enc_dbcs == DBCS_JPNU && ScreenLines2 != NULL) + mch_memmove(new_ScreenLines2 + new_LineOffset[new_row], + ScreenLines2 + LineOffset[old_row], + (size_t)len * sizeof(schar_T)); + mch_memmove(new_ScreenAttrs + new_LineOffset[new_row], + ScreenAttrs + LineOffset[old_row], + (size_t)len * sizeof(sattr_T)); + mch_memmove(new_ScreenCols + new_LineOffset[new_row], + ScreenAttrs + LineOffset[old_row], + (size_t)len * sizeof(colnr_T)); + } + } + } + // Use the last line of the screen for the current line. + current_ScreenLine = new_ScreenLines + Rows * Columns; + +#ifdef FEAT_PROP_POPUP + vim_memset(new_popup_mask, 0, Rows * Columns * sizeof(short)); + vim_memset(new_popup_transparent, 0, Rows * Columns * sizeof(char)); +#endif + } + + free_screenlines(); + + // NOTE: this may result in all pointers to become NULL. + ScreenLines = new_ScreenLines; + ScreenLinesUC = new_ScreenLinesUC; + for (int i = 0; i < p_mco; ++i) + ScreenLinesC[i] = new_ScreenLinesC[i]; + Screen_mco = p_mco; + ScreenLines2 = new_ScreenLines2; + ScreenAttrs = new_ScreenAttrs; + ScreenCols = new_ScreenCols; + LineOffset = new_LineOffset; + LineWraps = new_LineWraps; + TabPageIdxs = new_TabPageIdxs; +#ifdef FEAT_PROP_POPUP + popup_mask = new_popup_mask; + popup_mask_next = new_popup_mask_next; + popup_transparent = new_popup_transparent; + popup_mask_refresh = TRUE; +#endif + + // It's important that screen_Rows and screen_Columns reflect the actual + // size of ScreenLines[]. Set them before calling anything. +#ifdef FEAT_GUI + old_Rows = screen_Rows; +#endif + screen_Rows = Rows; + screen_Columns = Columns; + + set_must_redraw(UPD_CLEAR); // need to clear the screen later + if (doclear) + screenclear2(TRUE); +#ifdef FEAT_GUI + else if (gui.in_use + && !gui.starting + && ScreenLines != NULL + && old_Rows != Rows) + { + gui_redraw_block(0, 0, (int)Rows - 1, (int)Columns - 1, 0); + + // Adjust the position of the cursor, for when executing an external + // command. + if (msg_row >= Rows) // Rows got smaller + msg_row = Rows - 1; // put cursor at last row + else if (Rows > old_Rows) // Rows got bigger + msg_row += Rows - old_Rows; // put cursor in same place + if (msg_col >= Columns) // Columns got smaller + msg_col = Columns - 1; // put cursor at last column + } +#endif + clear_TabPageIdxs(); + +#ifdef FEAT_GUI_HAIKU + vim_unlock_screen(); +#endif + + entered = FALSE; + --RedrawingDisabled; + + /* + * Do not apply autocommands more than 3 times to avoid an endless loop + * in case applying autocommands always changes Rows or Columns. + */ + if (starting == 0 && ++retry_count <= 3) + { + apply_autocmds(EVENT_VIMRESIZED, NULL, NULL, FALSE, curbuf); + // In rare cases, autocommands may have altered Rows or Columns, + // jump back to check if we need to allocate the screen again. + goto retry; + } +} + + void +free_screenlines(void) +{ + int i; + + VIM_CLEAR(ScreenLinesUC); + for (i = 0; i < Screen_mco; ++i) + VIM_CLEAR(ScreenLinesC[i]); + VIM_CLEAR(ScreenLines2); + VIM_CLEAR(ScreenLines); + VIM_CLEAR(ScreenAttrs); + VIM_CLEAR(ScreenCols); + VIM_CLEAR(LineOffset); + VIM_CLEAR(LineWraps); + VIM_CLEAR(TabPageIdxs); +#ifdef FEAT_PROP_POPUP + VIM_CLEAR(popup_mask); + VIM_CLEAR(popup_mask_next); + VIM_CLEAR(popup_transparent); +#endif +} + +/* + * Clear the screen. + * May delay if there is something the user should read. + * Allocated the screen for resizing if needed. + * Returns TRUE when the screen was actually cleared, FALSE if all display + * cells were marked for updating. + */ + int +screenclear(void) +{ + check_for_delay(FALSE); + screenalloc(FALSE); // allocate screen buffers if size changed + return screenclear2(TRUE); // clear the screen +} + +/* + * Do not clear the screen but mark everything for redraw. + */ + void +redraw_as_cleared(void) +{ + screenclear2(FALSE); +} + + static int +screenclear2(int doclear) +{ + int i; + int did_clear = FALSE; + + if (starting == NO_SCREEN || ScreenLines == NULL +#ifdef FEAT_GUI + || (gui.in_use && gui.starting) +#endif + ) + return FALSE; + +#ifdef FEAT_GUI + if (!gui.in_use) +#endif + screen_attr = -1; // force setting the Normal colors + screen_stop_highlight(); // don't want highlighting here + +#ifdef FEAT_CLIPBOARD + // disable selection without redrawing it + clip_scroll_selection(9999); +#endif + + // blank out ScreenLines + for (i = 0; i < Rows; ++i) + { + lineclear(LineOffset[i], (int)Columns, 0); + LineWraps[i] = FALSE; + } + + if (doclear && can_clear(T_CL)) + { + out_str(T_CL); // clear the display + did_clear = TRUE; + clear_cmdline = FALSE; + mode_displayed = FALSE; + } + else + { + // can't clear the screen, mark all chars with invalid attributes + for (i = 0; i < Rows; ++i) + lineinvalid(LineOffset[i], (int)Columns); + clear_cmdline = TRUE; + } + + screen_cleared = TRUE; // can use contents of ScreenLines now + + win_rest_invalid(firstwin); // redraw all regular windows + redraw_cmdline = TRUE; + redraw_tabline = TRUE; + if (must_redraw == UPD_CLEAR) // no need to clear again + must_redraw = UPD_NOT_VALID; + msg_scrolled = 0; // compute_cmdrow() uses this + compute_cmdrow(); +#ifdef FEAT_PROP_POPUP + popup_redraw_all(); // redraw all popup windows +#endif + msg_row = cmdline_row; // put cursor on last line for messages + msg_col = 0; + screen_start(); // don't know where cursor is now + msg_didany = FALSE; + msg_didout = FALSE; + + return did_clear; +} + +/* + * Clear one line in ScreenLines. + */ + static void +lineclear(unsigned off, int width, int attr) +{ + (void)vim_memset(ScreenLines + off, ' ', (size_t)width * sizeof(schar_T)); + if (enc_utf8) + (void)vim_memset(ScreenLinesUC + off, 0, + (size_t)width * sizeof(u8char_T)); + (void)vim_memset(ScreenAttrs + off, attr, (size_t)width * sizeof(sattr_T)); + (void)vim_memset(ScreenCols + off, -1, (size_t)width * sizeof(colnr_T)); +} + +/* + * Mark one line in ScreenLines invalid by setting the attributes to an + * invalid value. + */ + static void +lineinvalid(unsigned off, int width) +{ + (void)vim_memset(ScreenAttrs + off, -1, (size_t)width * sizeof(sattr_T)); + (void)vim_memset(ScreenCols + off, -1, (size_t)width * sizeof(colnr_T)); +} + +/* + * To be called when characters were sent to the terminal directly, outputting + * test on "screen_lnum". + */ + void +line_was_clobbered(int screen_lnum) +{ + lineinvalid(LineOffset[screen_lnum], (int)Columns); +} + +/* + * Copy part of a Screenline for vertically split window "wp". + */ + static void +linecopy(int to, int from, win_T *wp) +{ + unsigned off_to = LineOffset[to] + wp->w_wincol; + unsigned off_from = LineOffset[from] + wp->w_wincol; + + mch_memmove(ScreenLines + off_to, ScreenLines + off_from, + wp->w_width * sizeof(schar_T)); + if (enc_utf8) + { + int i; + + mch_memmove(ScreenLinesUC + off_to, ScreenLinesUC + off_from, + wp->w_width * sizeof(u8char_T)); + for (i = 0; i < p_mco; ++i) + mch_memmove(ScreenLinesC[i] + off_to, ScreenLinesC[i] + off_from, + wp->w_width * sizeof(u8char_T)); + } + if (enc_dbcs == DBCS_JPNU) + mch_memmove(ScreenLines2 + off_to, ScreenLines2 + off_from, + wp->w_width * sizeof(schar_T)); + mch_memmove(ScreenAttrs + off_to, ScreenAttrs + off_from, + wp->w_width * sizeof(sattr_T)); + mch_memmove(ScreenCols + off_to, ScreenCols + off_from, + wp->w_width * sizeof(colnr_T)); +} + +/* + * Return TRUE if clearing with term string "p" would work. + * It can't work when the string is empty or it won't set the right background. + * Don't clear to end-of-line when there are popups, it may cause flicker. + */ + int +can_clear(char_u *p) +{ + return (*p != NUL && (t_colors <= 1 +#ifdef FEAT_GUI + || gui.in_use +#endif +#ifdef FEAT_TERMGUICOLORS + || (p_tgc && cterm_normal_bg_gui_color == INVALCOLOR) + || (!p_tgc && cterm_normal_bg_color == 0) +#else + || cterm_normal_bg_color == 0 +#endif + || *T_UT != NUL) +#ifdef FEAT_PROP_POPUP + && !(p == T_CE && popup_visible) +#endif + ); +} + +/* + * Reset cursor position. Use whenever cursor was moved because of outputting + * something directly to the screen (shell commands) or a terminal control + * code. + */ + void +screen_start(void) +{ + screen_cur_row = screen_cur_col = 9999; +} + +/* + * Move the cursor to position "row","col" in the screen. + * This tries to find the most efficient way to move, minimizing the number of + * characters sent to the terminal. + */ + void +windgoto(int row, int col) +{ + sattr_T *p; + int i; + int plan; + int cost; + int wouldbe_col; + int noinvcurs; + char_u *bs; + int goto_cost; + int attr; + +#define GOTO_COST 7 // assume a term_windgoto() takes about 7 chars +#define HIGHL_COST 5 // assume unhighlight takes 5 chars + +#define PLAN_LE 1 +#define PLAN_CR 2 +#define PLAN_NL 3 +#define PLAN_WRITE 4 + // Can't use ScreenLines unless initialized + if (ScreenLines == NULL) + return; + if (col == screen_cur_col && row == screen_cur_row) + return; + + // Check for valid position. + if (row < 0) // window without text lines? + row = 0; + if (row >= screen_Rows) + row = screen_Rows - 1; + if (col >= screen_Columns) + col = screen_Columns - 1; + + // check if no cursor movement is allowed in highlight mode + if (screen_attr && *T_MS == NUL) + noinvcurs = HIGHL_COST; + else + noinvcurs = 0; + goto_cost = GOTO_COST + noinvcurs; + + /* + * Plan how to do the positioning: + * 1. Use CR to move it to column 0, same row. + * 2. Use T_LE to move it a few columns to the left. + * 3. Use NL to move a few lines down, column 0. + * 4. Move a few columns to the right with T_ND or by writing chars. + * + * Don't do this if the cursor went beyond the last column, the cursor + * position is unknown then (some terminals wrap, some don't ) + * + * First check if the highlighting attributes allow us to write + * characters to move the cursor to the right. + */ + if (row >= screen_cur_row && screen_cur_col < Columns) + { + /* + * If the cursor is in the same row, bigger col, we can use CR + * or T_LE. + */ + bs = NULL; // init for GCC + attr = screen_attr; + if (row == screen_cur_row && col < screen_cur_col) + { + // "le" is preferred over "bc", because "bc" is obsolete + if (*T_LE) + bs = T_LE; // "cursor left" + else + bs = T_BC; // "backspace character (old) + if (*bs) + cost = (screen_cur_col - col) * (int)STRLEN(bs); + else + cost = 999; + if (col + 1 < cost) // using CR is less characters + { + plan = PLAN_CR; + wouldbe_col = 0; + cost = 1; // CR is just one character + } + else + { + plan = PLAN_LE; + wouldbe_col = col; + } + if (noinvcurs) // will stop highlighting + { + cost += noinvcurs; + attr = 0; + } + } + + /* + * If the cursor is above where we want to be, we can use CR LF. + */ + else if (row > screen_cur_row) + { + plan = PLAN_NL; + wouldbe_col = 0; + cost = (row - screen_cur_row) * 2; // CR LF + if (noinvcurs) // will stop highlighting + { + cost += noinvcurs; + attr = 0; + } + } + + /* + * If the cursor is in the same row, smaller col, just use write. + */ + else + { + plan = PLAN_WRITE; + wouldbe_col = screen_cur_col; + cost = 0; + } + + /* + * Check if any characters that need to be written have the + * correct attributes. Also avoid UTF-8 characters. + */ + i = col - wouldbe_col; + if (i > 0) + cost += i; + if (cost < goto_cost && i > 0) + { + /* + * Check if the attributes are correct without additionally + * stopping highlighting. + */ + p = ScreenAttrs + LineOffset[row] + wouldbe_col; + while (i && *p++ == attr) + --i; + if (i != 0) + { + /* + * Try if it works when highlighting is stopped here. + */ + if (*--p == 0) + { + cost += noinvcurs; + while (i && *p++ == 0) + --i; + } + if (i != 0) + cost = 999; // different attributes, don't do it + } + if (enc_utf8) + { + // Don't use an UTF-8 char for positioning, it's slow. + for (i = wouldbe_col; i < col; ++i) + if (ScreenLinesUC[LineOffset[row] + i] != 0) + { + cost = 999; + break; + } + } + } + + /* + * We can do it without term_windgoto()! + */ + if (cost < goto_cost) + { + if (plan == PLAN_LE) + { + if (noinvcurs) + screen_stop_highlight(); + while (screen_cur_col > col) + { + out_str(bs); + --screen_cur_col; + } + } + else if (plan == PLAN_CR) + { + if (noinvcurs) + screen_stop_highlight(); + out_char('\r'); + screen_cur_col = 0; + } + else if (plan == PLAN_NL) + { + if (noinvcurs) + screen_stop_highlight(); + while (screen_cur_row < row) + { + out_char('\n'); + ++screen_cur_row; + } + screen_cur_col = 0; + } + + i = col - screen_cur_col; + if (i > 0) + { + /* + * Use cursor-right if it's one character only. Avoids + * removing a line of pixels from the last bold char, when + * using the bold trick in the GUI. + */ + if (T_ND[0] != NUL && T_ND[1] == NUL) + { + while (i-- > 0) + out_char(*T_ND); + } + else + { + int off; + + off = LineOffset[row] + screen_cur_col; + while (i-- > 0) + { + if (ScreenAttrs[off] != screen_attr) + screen_stop_highlight(); + out_flush_check(); + out_char(ScreenLines[off]); + if (enc_dbcs == DBCS_JPNU + && ScreenLines[off] == 0x8e) + out_char(ScreenLines2[off]); + ++off; + } + } + } + } + } + else + cost = 999; + + if (cost >= goto_cost) + { + if (noinvcurs) + screen_stop_highlight(); + if (row == screen_cur_row && (col > screen_cur_col) + && *T_CRI != NUL) + term_cursor_right(col - screen_cur_col); + else + term_windgoto(row, col); + } + screen_cur_row = row; + screen_cur_col = col; +} + +/* + * Set cursor to its position in the current window. + */ + void +setcursor(void) +{ + setcursor_mayforce(FALSE); +} + +/* + * Set cursor to its position in the current window. + * When "force" is TRUE also when not redrawing. + */ + void +setcursor_mayforce(int force) +{ + if (force || redrawing()) + { + validate_cursor(); + windgoto(W_WINROW(curwin) + curwin->w_wrow, + curwin->w_wincol + ( +#ifdef FEAT_RIGHTLEFT + // With 'rightleft' set and the cursor on a double-wide + // character, position it on the leftmost column. + curwin->w_p_rl ? ((int)curwin->w_width - curwin->w_wcol + - ((has_mbyte + && (*mb_ptr2cells)(ml_get_cursor()) == 2 + && vim_isprintc(gchar_cursor())) ? 2 : 1)) : +#endif + curwin->w_wcol)); + } +} + + +/* + * Insert 'line_count' lines at 'row' in window 'wp'. + * If 'invalid' is TRUE the wp->w_lines[].wl_lnum is invalidated. + * If 'mayclear' is TRUE the screen will be cleared if it is faster than + * scrolling. + * Returns FAIL if the lines are not inserted, OK for success. + */ + int +win_ins_lines( + win_T *wp, + int row, + int line_count, + int invalid, + int mayclear) +{ + int did_delete; + int nextrow; + int lastrow; + int retval; + + if (invalid) + wp->w_lines_valid = 0; + + // with only a few lines it's not worth the effort + if (wp->w_height < 5) + return FAIL; + + // with the popup menu visible this might not work correctly + if (pum_visible()) + return FAIL; + + if (line_count > wp->w_height - row) + line_count = wp->w_height - row; + + retval = win_do_lines(wp, row, line_count, mayclear, FALSE, 0); + if (retval != MAYBE) + return retval; + + /* + * If there is a next window or a status line, we first try to delete the + * lines at the bottom to avoid messing what is after the window. + * If this fails and there are following windows, don't do anything to + * avoid messing up those windows, better just redraw. + */ + did_delete = FALSE; + if (wp->w_next != NULL || wp->w_status_height) + { + if (screen_del_lines(0, W_WINROW(wp) + wp->w_height - line_count, + line_count, (int)Rows, FALSE, 0, NULL) == OK) + did_delete = TRUE; + else if (wp->w_next) + return FAIL; + } + /* + * if no lines deleted, blank the lines that will end up below the window + */ + if (!did_delete) + { + wp->w_redr_status = TRUE; + redraw_cmdline = TRUE; + nextrow = W_WINROW(wp) + wp->w_height + wp->w_status_height; + lastrow = nextrow + line_count; + if (lastrow > Rows) + lastrow = Rows; + screen_fill(nextrow - line_count, lastrow - line_count, + wp->w_wincol, (int)W_ENDCOL(wp), + ' ', ' ', 0); + } + + if (screen_ins_lines(0, W_WINROW(wp) + row, line_count, (int)Rows, 0, NULL) + == FAIL) + { + // deletion will have messed up other windows + if (did_delete) + { + wp->w_redr_status = TRUE; + win_rest_invalid(W_NEXT(wp)); + } + return FAIL; + } + + return OK; +} + +/* + * Delete "line_count" window lines at "row" in window "wp". + * If "invalid" is TRUE curwin->w_lines[] is invalidated. + * If "mayclear" is TRUE the screen will be cleared if it is faster than + * scrolling + * Return OK for success, FAIL if the lines are not deleted. + */ + int +win_del_lines( + win_T *wp, + int row, + int line_count, + int invalid, + int mayclear, + int clear_attr) // for clearing lines +{ + int retval; + + if (invalid) + wp->w_lines_valid = 0; + + if (line_count > wp->w_height - row) + line_count = wp->w_height - row; + + retval = win_do_lines(wp, row, line_count, mayclear, TRUE, clear_attr); + if (retval != MAYBE) + return retval; + + if (screen_del_lines(0, W_WINROW(wp) + row, line_count, + (int)Rows, FALSE, clear_attr, NULL) == FAIL) + return FAIL; + + /* + * If there are windows or status lines below, try to put them at the + * correct place. If we can't do that, they have to be redrawn. + */ + if (wp->w_next || wp->w_status_height || cmdline_row < Rows - 1) + { + if (screen_ins_lines(0, W_WINROW(wp) + wp->w_height - line_count, + line_count, (int)Rows, clear_attr, NULL) == FAIL) + { + wp->w_redr_status = TRUE; + win_rest_invalid(wp->w_next); + } + } + /* + * If this is the last window and there is no status line, redraw the + * command line later. + */ + else + redraw_cmdline = TRUE; + return OK; +} + +/* + * Common code for win_ins_lines() and win_del_lines(). + * Returns OK or FAIL when the work has been done. + * Returns MAYBE when not finished yet. + */ + static int +win_do_lines( + win_T *wp, + int row, + int line_count, + int mayclear, + int del, + int clear_attr) +{ + int retval; + + if (!redrawing() || line_count <= 0) + return FAIL; + + // When inserting lines would result in loss of command output, just redraw + // the lines. + if (no_win_do_lines_ins && !del) + return FAIL; + + // only a few lines left: redraw is faster + if (mayclear && Rows - line_count < 5 && wp->w_width == Columns) + { + if (!no_win_do_lines_ins) + screenclear(); // will set wp->w_lines_valid to 0 + return FAIL; + } + +#ifdef FEAT_PROP_POPUP + // this doesn't work when there are popups visible + if (popup_visible) + return FAIL; +#endif + + // Delete all remaining lines + if (row + line_count >= wp->w_height) + { + screen_fill(W_WINROW(wp) + row, W_WINROW(wp) + wp->w_height, + wp->w_wincol, (int)W_ENDCOL(wp), + ' ', ' ', 0); + return OK; + } + + /* + * When scrolling, the message on the command line should be cleared, + * otherwise it will stay there forever. + * Don't do this when avoiding to insert lines. + */ + if (!no_win_do_lines_ins) + clear_cmdline = TRUE; + + /* + * If the terminal can set a scroll region, use that. + * Always do this in a vertically split window. This will redraw from + * ScreenLines[] when t_CV isn't defined. That's faster than using + * win_line(). + * Don't use a scroll region when we are going to redraw the text, writing + * a character in the lower right corner of the scroll region may cause a + * scroll-up . + */ + if (scroll_region || wp->w_width != Columns) + { + if (scroll_region && (wp->w_width == Columns || *T_CSV != NUL)) + scroll_region_set(wp, row); + if (del) + retval = screen_del_lines(W_WINROW(wp) + row, 0, line_count, + wp->w_height - row, FALSE, clear_attr, wp); + else + retval = screen_ins_lines(W_WINROW(wp) + row, 0, line_count, + wp->w_height - row, clear_attr, wp); + if (scroll_region && (wp->w_width == Columns || *T_CSV != NUL)) + scroll_region_reset(); + return retval; + } + + if (wp->w_next != NULL && p_tf) // don't delete/insert on fast terminal + return FAIL; + + return MAYBE; +} + +/* + * window 'wp' and everything after it is messed up, mark it for redraw + */ + static void +win_rest_invalid(win_T *wp) +{ + while (wp != NULL) + { + redraw_win_later(wp, UPD_NOT_VALID); + wp->w_redr_status = TRUE; + wp = wp->w_next; + } + redraw_cmdline = TRUE; +} + +/* + * The rest of the routines in this file perform screen manipulations. The + * given operation is performed physically on the screen. The corresponding + * change is also made to the internal screen image. In this way, the editor + * anticipates the effect of editing changes on the appearance of the screen. + * That way, when we call screenupdate a complete redraw isn't usually + * necessary. Another advantage is that we can keep adding code to anticipate + * screen changes, and in the meantime, everything still works. + */ + +/* + * types for inserting or deleting lines + */ +#define USE_T_CAL 1 +#define USE_T_CDL 2 +#define USE_T_AL 3 +#define USE_T_CE 4 +#define USE_T_DL 5 +#define USE_T_SR 6 +#define USE_NL 7 +#define USE_T_CD 8 +#define USE_REDRAW 9 + +/* + * insert lines on the screen and update ScreenLines[] + * "end" is the line after the scrolled part. Normally it is Rows. + * When scrolling region used "off" is the offset from the top for the region. + * "row" and "end" are relative to the start of the region. + * + * return FAIL for failure, OK for success. + */ + int +screen_ins_lines( + int off, + int row, + int line_count, + int end, + int clear_attr, + win_T *wp) // NULL or window to use width from +{ + int i; + int j; + unsigned temp; + int cursor_row; + int cursor_col = 0; + int type; + int result_empty; + int can_ce = can_clear(T_CE); + + /* + * FAIL if + * - there is no valid screen + * - the line count is less than one + * - the line count is more than 'ttyscroll' + * - "end" is more than "Rows" (safety check, should not happen) + * - redrawing for a callback and there is a modeless selection + * - there is a popup window + */ + if (!screen_valid(TRUE) + || line_count <= 0 || line_count > p_ttyscroll + || end > Rows +#ifdef FEAT_CLIPBOARD + || (clip_star.state != SELECT_CLEARED + && redrawing_for_callback > 0) +#endif +#ifdef FEAT_PROP_POPUP + || popup_visible +#endif + ) + return FAIL; + + /* + * There are seven ways to insert lines: + * 0. When in a vertically split window and t_CV isn't set, redraw the + * characters from ScreenLines[]. + * 1. Use T_CD (clear to end of display) if it exists and the result of + * the insert is just empty lines + * 2. Use T_CAL (insert multiple lines) if it exists and T_AL is not + * present or line_count > 1. It looks better if we do all the inserts + * at once. + * 3. Use T_CDL (delete multiple lines) if it exists and the result of the + * insert is just empty lines and T_CE is not present or line_count > + * 1. + * 4. Use T_AL (insert line) if it exists. + * 5. Use T_CE (erase line) if it exists and the result of the insert is + * just empty lines. + * 6. Use T_DL (delete line) if it exists and the result of the insert is + * just empty lines. + * 7. Use T_SR (scroll reverse) if it exists and inserting at row 0 and + * the 'da' flag is not set or we have clear line capability. + * 8. redraw the characters from ScreenLines[]. + * + * Careful: In a hpterm scroll reverse doesn't work as expected, it moves + * the scrollbar for the window. It does have insert line, use that if it + * exists. + */ + result_empty = (row + line_count >= end); + if (wp != NULL && wp->w_width != Columns && *T_CSV == NUL) + { + // Avoid that lines are first cleared here and then redrawn, which + // results in many characters updated twice. This happens with CTRL-F + // in a vertically split window. With line-by-line scrolling + // USE_REDRAW should be faster. + if (line_count > 3) + return FAIL; + type = USE_REDRAW; + } + else if (can_clear(T_CD) && result_empty) + type = USE_T_CD; + else if (*T_CAL != NUL && (line_count > 1 || *T_AL == NUL)) + type = USE_T_CAL; + else if (*T_CDL != NUL && result_empty && (line_count > 1 || !can_ce)) + type = USE_T_CDL; + else if (*T_AL != NUL) + type = USE_T_AL; + else if (can_ce && result_empty) + type = USE_T_CE; + else if (*T_DL != NUL && result_empty) + type = USE_T_DL; + else if (*T_SR != NUL && row == 0 && (*T_DA == NUL || can_ce)) + type = USE_T_SR; + else + return FAIL; + + /* + * For clearing the lines screen_del_lines() is used. This will also take + * care of t_db if necessary. + */ + if (type == USE_T_CD || type == USE_T_CDL || + type == USE_T_CE || type == USE_T_DL) + return screen_del_lines(off, row, line_count, end, FALSE, 0, wp); + + /* + * If text is retained below the screen, first clear or delete as many + * lines at the bottom of the window as are about to be inserted so that + * the deleted lines won't later surface during a screen_del_lines. + */ + if (*T_DB) + screen_del_lines(off, end - line_count, line_count, end, FALSE, 0, wp); + +#ifdef FEAT_CLIPBOARD + // Remove a modeless selection when inserting lines halfway the screen + // or not the full width of the screen. + if (off + row > 0 || (wp != NULL && wp->w_width != Columns)) + clip_clear_selection(&clip_star); + else + clip_scroll_selection(-line_count); +#endif + +#ifdef FEAT_GUI_HAIKU + vim_lock_screen(); +#endif + +#ifdef FEAT_GUI + // Don't update the GUI cursor here, ScreenLines[] is invalid until the + // scrolling is actually carried out. + gui_dont_update_cursor(row + off <= gui.cursor_row); +#endif + + if (wp != NULL && wp->w_wincol != 0 && *T_CSV != NUL && *T_CCS == NUL) + cursor_col = wp->w_wincol; + + if (*T_CCS != NUL) // cursor relative to region + cursor_row = row; + else + cursor_row = row + off; + + /* + * Shift LineOffset[] line_count down to reflect the inserted lines. + * Clear the inserted lines in ScreenLines[]. + */ + row += off; + end += off; + for (i = 0; i < line_count; ++i) + { + if (wp != NULL && wp->w_width != Columns) + { + // need to copy part of a line + j = end - 1 - i; + while ((j -= line_count) >= row) + linecopy(j + line_count, j, wp); + j += line_count; + if (can_clear((char_u *)" ")) + lineclear(LineOffset[j] + wp->w_wincol, wp->w_width, + clear_attr); + else + lineinvalid(LineOffset[j] + wp->w_wincol, wp->w_width); + LineWraps[j] = FALSE; + } + else + { + j = end - 1 - i; + temp = LineOffset[j]; + while ((j -= line_count) >= row) + { + LineOffset[j + line_count] = LineOffset[j]; + LineWraps[j + line_count] = LineWraps[j]; + } + LineOffset[j + line_count] = temp; + LineWraps[j + line_count] = FALSE; + if (can_clear((char_u *)" ")) + lineclear(temp, (int)Columns, clear_attr); + else + lineinvalid(temp, (int)Columns); + } + } + +#ifdef FEAT_GUI_HAIKU + vim_unlock_screen(); +#endif + + screen_stop_highlight(); + windgoto(cursor_row, cursor_col); + if (clear_attr != 0) + screen_start_highlight(clear_attr); + + // redraw the characters + if (type == USE_REDRAW) + redraw_block(row, end, wp); + else if (type == USE_T_CAL) + { + term_append_lines(line_count); + screen_start(); // don't know where cursor is now + } + else + { + for (i = 0; i < line_count; i++) + { + if (type == USE_T_AL) + { + if (i && cursor_row != 0) + windgoto(cursor_row, cursor_col); + out_str(T_AL); + } + else // type == USE_T_SR + out_str(T_SR); + screen_start(); // don't know where cursor is now + } + } + + /* + * With scroll-reverse and 'da' flag set we need to clear the lines that + * have been scrolled down into the region. + */ + if (type == USE_T_SR && *T_DA) + { + for (i = 0; i < line_count; ++i) + { + windgoto(off + i, cursor_col); + out_str(T_CE); + screen_start(); // don't know where cursor is now + } + } + +#ifdef FEAT_GUI + gui_can_update_cursor(); + if (gui.in_use) + out_flush(); // always flush after a scroll +#endif + return OK; +} + +/* + * Delete lines on the screen and update ScreenLines[]. + * "end" is the line after the scrolled part. Normally it is Rows. + * When scrolling region used "off" is the offset from the top for the region. + * "row" and "end" are relative to the start of the region. + * + * Return OK for success, FAIL if the lines are not deleted. + */ + int +screen_del_lines( + int off, + int row, + int line_count, + int end, + int force, // even when line_count > p_ttyscroll + int clear_attr, // used for clearing lines + win_T *wp) // NULL or window to use width from +{ + int j; + int i; + unsigned temp; + int cursor_row; + int cursor_col = 0; + int cursor_end; + int result_empty; // result is empty until end of region + int can_delete; // deleting line codes can be used + int type; + + /* + * FAIL if + * - there is no valid screen + * - the screen has to be redrawn completely + * - the line count is less than one + * - the line count is more than 'ttyscroll' + * - "end" is more than "Rows" (safety check, should not happen) + * - redrawing for a callback and there is a modeless selection + */ + if (!screen_valid(TRUE) + || line_count <= 0 + || (!force && line_count > p_ttyscroll) + || end > Rows +#ifdef FEAT_CLIPBOARD + || (clip_star.state != SELECT_CLEARED && redrawing_for_callback > 0) +#endif + ) + return FAIL; + + /* + * Check if the rest of the current region will become empty. + */ + result_empty = row + line_count >= end; + + /* + * We can delete lines only when 'db' flag not set or when 'ce' option + * available. + */ + can_delete = (*T_DB == NUL || can_clear(T_CE)); + + /* + * There are six ways to delete lines: + * 0. When in a vertically split window and t_CV isn't set, redraw the + * characters from ScreenLines[]. + * 1. Use T_CD if it exists and the result is empty. + * 2. Use newlines if row == 0 and count == 1 or T_CDL does not exist. + * 3. Use T_CDL (delete multiple lines) if it exists and line_count > 1 or + * none of the other ways work. + * 4. Use T_CE (erase line) if the result is empty. + * 5. Use T_DL (delete line) if it exists. + * 6. redraw the characters from ScreenLines[]. + */ + if (wp != NULL && wp->w_width != Columns && *T_CSV == NUL) + { + // Avoid that lines are first cleared here and then redrawn, which + // results in many characters updated twice. This happens with CTRL-F + // in a vertically split window. With line-by-line scrolling + // USE_REDRAW should be faster. + if (line_count > 3) + return FAIL; + type = USE_REDRAW; + } + else if (can_clear(T_CD) && result_empty) + type = USE_T_CD; + else if (row == 0 && ( +#ifndef AMIGA + // On the Amiga, somehow '\n' on the last line doesn't always scroll + // up, so use delete-line command + line_count == 1 || +#endif + *T_CDL == NUL)) + type = USE_NL; + else if (*T_CDL != NUL && line_count > 1 && can_delete) + type = USE_T_CDL; + else if (can_clear(T_CE) && result_empty + && (wp == NULL || wp->w_width == Columns)) + type = USE_T_CE; + else if (*T_DL != NUL && can_delete) + type = USE_T_DL; + else if (*T_CDL != NUL && can_delete) + type = USE_T_CDL; + else + return FAIL; + +#ifdef FEAT_CLIPBOARD + // Remove a modeless selection when deleting lines halfway the screen or + // not the full width of the screen. + if (off + row > 0 || (wp != NULL && wp->w_width != Columns)) + clip_clear_selection(&clip_star); + else + clip_scroll_selection(line_count); +#endif + +#ifdef FEAT_GUI_HAIKU + vim_lock_screen(); +#endif + +#ifdef FEAT_GUI + // Don't update the GUI cursor here, ScreenLines[] is invalid until the + // scrolling is actually carried out. + gui_dont_update_cursor(gui.cursor_row >= row + off + && gui.cursor_row < end + off); +#endif + + if (wp != NULL && wp->w_wincol != 0 && *T_CSV != NUL && *T_CCS == NUL) + cursor_col = wp->w_wincol; + + if (*T_CCS != NUL) // cursor relative to region + { + cursor_row = row; + cursor_end = end; + } + else + { + cursor_row = row + off; + cursor_end = end + off; + } + + /* + * Now shift LineOffset[] line_count up to reflect the deleted lines. + * Clear the inserted lines in ScreenLines[]. + */ + row += off; + end += off; + for (i = 0; i < line_count; ++i) + { + if (wp != NULL && wp->w_width != Columns) + { + // need to copy part of a line + j = row + i; + while ((j += line_count) <= end - 1) + linecopy(j - line_count, j, wp); + j -= line_count; + if (can_clear((char_u *)" ")) + lineclear(LineOffset[j] + wp->w_wincol, wp->w_width, + clear_attr); + else + lineinvalid(LineOffset[j] + wp->w_wincol, wp->w_width); + LineWraps[j] = FALSE; + } + else + { + // whole width, moving the line pointers is faster + j = row + i; + temp = LineOffset[j]; + while ((j += line_count) <= end - 1) + { + LineOffset[j - line_count] = LineOffset[j]; + LineWraps[j - line_count] = LineWraps[j]; + } + LineOffset[j - line_count] = temp; + LineWraps[j - line_count] = FALSE; + if (can_clear((char_u *)" ")) + lineclear(temp, (int)Columns, clear_attr); + else + lineinvalid(temp, (int)Columns); + } + } + +#ifdef FEAT_GUI_HAIKU + vim_unlock_screen(); +#endif + + if (screen_attr != clear_attr) + screen_stop_highlight(); + if (clear_attr != 0) + screen_start_highlight(clear_attr); + + // redraw the characters + if (type == USE_REDRAW) + redraw_block(row, end, wp); + else if (type == USE_T_CD) // delete the lines + { + windgoto(cursor_row, cursor_col); + out_str(T_CD); + screen_start(); // don't know where cursor is now + } + else if (type == USE_T_CDL) + { + windgoto(cursor_row, cursor_col); + term_delete_lines(line_count); + screen_start(); // don't know where cursor is now + } + /* + * Deleting lines at top of the screen or scroll region: Just scroll + * the whole screen (scroll region) up by outputting newlines on the + * last line. + */ + else if (type == USE_NL) + { + windgoto(cursor_end - 1, cursor_col); + for (i = line_count; --i >= 0; ) + out_char('\n'); // cursor will remain on same line + } + else + { + for (i = line_count; --i >= 0; ) + { + if (type == USE_T_DL) + { + windgoto(cursor_row, cursor_col); + out_str(T_DL); // delete a line + } + else // type == USE_T_CE + { + windgoto(cursor_row + i, cursor_col); + out_str(T_CE); // erase a line + } + screen_start(); // don't know where cursor is now + } + } + + /* + * If the 'db' flag is set, we need to clear the lines that have been + * scrolled up at the bottom of the region. + */ + if (*T_DB && (type == USE_T_DL || type == USE_T_CDL)) + { + for (i = line_count; i > 0; --i) + { + windgoto(cursor_end - i, cursor_col); + out_str(T_CE); // erase a line + screen_start(); // don't know where cursor is now + } + } + +#ifdef FEAT_GUI + gui_can_update_cursor(); + if (gui.in_use) + out_flush(); // always flush after a scroll +#endif + + return OK; +} + +/* + * Return TRUE when postponing displaying the mode message: when not redrawing + * or inside a mapping. + */ + int +skip_showmode(void) +{ + // Call char_avail() only when we are going to show something, because it + // takes a bit of time. redrawing() may also call char_avail(). + if (global_busy + || msg_silent != 0 + || !redrawing() + || (char_avail() && !KeyTyped)) + { + redraw_mode = TRUE; // show mode later + return TRUE; + } + return FALSE; +} + +/* + * Show the current mode and ruler. + * + * If clear_cmdline is TRUE, clear the rest of the cmdline. + * If clear_cmdline is FALSE there may be a message there that needs to be + * cleared only if a mode is shown. + * If redraw_mode is TRUE show or clear the mode. + * Return the length of the message (0 if no message). + */ + int +showmode(void) +{ + int need_clear; + int length = 0; + int do_mode; + int attr; + int nwr_save; + int sub_attr; + + do_mode = p_smd && msg_silent == 0 + && ((State & MODE_INSERT) + || restart_edit != NUL + || VIsual_active); + if (do_mode || reg_recording != 0) + { + if (skip_showmode()) + return 0; // show mode later + + nwr_save = need_wait_return; + + // wait a bit before overwriting an important message + check_for_delay(FALSE); + + // if the cmdline is more than one line high, erase top lines + need_clear = clear_cmdline; + if (clear_cmdline && cmdline_row < Rows - 1) + msg_clr_cmdline(); // will reset clear_cmdline + + // Position on the last line in the window, column 0 + msg_pos_mode(); + cursor_off(); + attr = HL_ATTR(HLF_CM); // Highlight mode + if (do_mode) + { + msg_puts_attr("--", attr); +#if defined(FEAT_XIM) + if ( +# ifdef FEAT_GUI_GTK + preedit_get_status() +# else + im_get_status() +# endif + ) +# ifdef FEAT_GUI_GTK // most of the time, it's not XIM being used + msg_puts_attr(" IM", attr); +# else + msg_puts_attr(" XIM", attr); +# endif +#endif + // CTRL-X in Insert mode + if (edit_submode != NULL && !shortmess(SHM_COMPLETIONMENU)) + { + // These messages can get long, avoid a wrap in a narrow + // window. Prefer showing edit_submode_extra. + length = (Rows - msg_row) * Columns - 3; + if (edit_submode_extra != NULL) + length -= vim_strsize(edit_submode_extra); + if (length > 0) + { + if (edit_submode_pre != NULL) + length -= vim_strsize(edit_submode_pre); + if (length - vim_strsize(edit_submode) > 0) + { + if (edit_submode_pre != NULL) + msg_puts_attr((char *)edit_submode_pre, attr); + msg_puts_attr((char *)edit_submode, attr); + } + if (edit_submode_extra != NULL) + { + msg_puts_attr(" ", attr); // add a space in between + if ((int)edit_submode_highl < (int)HLF_COUNT) + sub_attr = HL_ATTR(edit_submode_highl); + else + sub_attr = attr; + msg_puts_attr((char *)edit_submode_extra, sub_attr); + } + } + } + else + { + if (State & VREPLACE_FLAG) + msg_puts_attr(_(" VREPLACE"), attr); + else if (State & REPLACE_FLAG) + msg_puts_attr(_(" REPLACE"), attr); + else if (State & MODE_INSERT) + { +#ifdef FEAT_RIGHTLEFT + if (p_ri) + msg_puts_attr(_(" REVERSE"), attr); +#endif + msg_puts_attr(_(" INSERT"), attr); + } + else if (restart_edit == 'I' || restart_edit == 'i' || + restart_edit == 'a' || restart_edit == 'A') + msg_puts_attr(_(" (insert)"), attr); + else if (restart_edit == 'R') + msg_puts_attr(_(" (replace)"), attr); + else if (restart_edit == 'V') + msg_puts_attr(_(" (vreplace)"), attr); +#ifdef FEAT_RIGHTLEFT + if (p_hkmap) + msg_puts_attr(_(" Hebrew"), attr); +#endif +#ifdef FEAT_KEYMAP + if (State & MODE_LANGMAP) + { +# ifdef FEAT_ARABIC + if (curwin->w_p_arab) + msg_puts_attr(_(" Arabic"), attr); + else +# endif + if (get_keymap_str(curwin, (char_u *)" (%s)", + NameBuff, MAXPATHL)) + msg_puts_attr((char *)NameBuff, attr); + } +#endif + if ((State & MODE_INSERT) && p_paste) + msg_puts_attr(_(" (paste)"), attr); + + if (VIsual_active) + { + char *p; + + // Don't concatenate separate words to avoid translation + // problems. + switch ((VIsual_select ? 4 : 0) + + (VIsual_mode == Ctrl_V) * 2 + + (VIsual_mode == 'V')) + { + case 0: p = N_(" VISUAL"); break; + case 1: p = N_(" VISUAL LINE"); break; + case 2: p = N_(" VISUAL BLOCK"); break; + case 4: p = N_(" SELECT"); break; + case 5: p = N_(" SELECT LINE"); break; + default: p = N_(" SELECT BLOCK"); break; + } + msg_puts_attr(_(p), attr); + } + msg_puts_attr(" --", attr); + } + + need_clear = TRUE; + } + if (reg_recording != 0 + && edit_submode == NULL) // otherwise it gets too long + { + recording_mode(attr); + need_clear = TRUE; + } + + mode_displayed = TRUE; + if (need_clear || clear_cmdline || redraw_mode) + msg_clr_eos(); + msg_didout = FALSE; // overwrite this message + length = msg_col; + msg_col = 0; + need_wait_return = nwr_save; // never ask for hit-return for this + } + else if (clear_cmdline && msg_silent == 0) + // Clear the whole command line. Will reset "clear_cmdline". + msg_clr_cmdline(); + else if (redraw_mode) + { + msg_pos_mode(); + msg_clr_eos(); + } + + // In Visual mode the size of the selected area must be redrawn. + if (VIsual_active) + clear_showcmd(); + + // If the last window has no status line, the ruler is after the mode + // message and must be redrawn + if (redrawing() && lastwin->w_status_height == 0) + win_redr_ruler(lastwin, TRUE, FALSE); + + redraw_cmdline = FALSE; + redraw_mode = FALSE; + clear_cmdline = FALSE; + + return length; +} + +/* + * Position for a mode message. + */ + static void +msg_pos_mode(void) +{ + msg_col = 0; + msg_row = Rows - 1; +} + +/* + * Delete mode message. Used when ESC is typed which is expected to end + * Insert mode (but Insert mode didn't end yet!). + * Caller should check "mode_displayed". + */ + void +unshowmode(int force) +{ + /* + * Don't delete it right now, when not redrawing or inside a mapping. + */ + if (!redrawing() || (!force && char_avail() && !KeyTyped)) + redraw_cmdline = TRUE; // delete mode later + else + clearmode(); +} + +/* + * Clear the mode message. + */ + void +clearmode(void) +{ + int save_msg_row = msg_row; + int save_msg_col = msg_col; + + msg_pos_mode(); + if (reg_recording != 0) + recording_mode(HL_ATTR(HLF_CM)); + msg_clr_eos(); + + msg_col = save_msg_col; + msg_row = save_msg_row; +} + + static void +recording_mode(int attr) +{ + msg_puts_attr(_("recording"), attr); + if (shortmess(SHM_RECORDING)) + return; + + char s[4]; + + sprintf(s, " @%c", reg_recording); + msg_puts_attr(s, attr); +} + +/* + * Draw the tab pages line at the top of the Vim window. + */ + void +draw_tabline(void) +{ + int tabcount = 0; + tabpage_T *tp; + int tabwidth; + int col = 0; + int scol = 0; + int attr; + win_T *wp; + win_T *cwp; + int wincount; + int modified; + int c; + int len; + int attr_sel = HL_ATTR(HLF_TPS); + int attr_nosel = HL_ATTR(HLF_TP); + int attr_fill = HL_ATTR(HLF_TPF); + char_u *p; + int room; + int use_sep_chars = (t_colors < 8 +#ifdef FEAT_GUI + && !gui.in_use +#endif +#ifdef FEAT_TERMGUICOLORS + && !p_tgc +#endif + ); + + if (ScreenLines == NULL) + return; + redraw_tabline = FALSE; + +#ifdef FEAT_GUI_TABLINE + // Take care of a GUI tabline. + if (gui_use_tabline()) + { + gui_update_tabline(); + return; + } +#endif + + if (tabline_height() < 1) + return; + +#if defined(FEAT_STL_OPT) + clear_TabPageIdxs(); + + // Use the 'tabline' option if it's set. + if (*p_tal != NUL) + win_redr_custom(NULL, FALSE); + else +#endif + { + FOR_ALL_TABPAGES(tp) + ++tabcount; + + tabwidth = (Columns - 1 + tabcount / 2) / tabcount; + if (tabwidth < 6) + tabwidth = 6; + + attr = attr_nosel; + tabcount = 0; + for (tp = first_tabpage; tp != NULL && col < Columns - 4; + tp = tp->tp_next) + { + scol = col; + + if (tp->tp_topframe == topframe) + attr = attr_sel; + if (use_sep_chars && col > 0) + screen_putchar('|', 0, col++, attr); + + if (tp->tp_topframe != topframe) + attr = attr_nosel; + + screen_putchar(' ', 0, col++, attr); + + if (tp == curtab) + { + cwp = curwin; + wp = firstwin; + } + else + { + cwp = tp->tp_curwin; + wp = tp->tp_firstwin; + } + + modified = FALSE; + for (wincount = 0; wp != NULL; wp = wp->w_next, ++wincount) + if (bufIsChanged(wp->w_buffer)) + modified = TRUE; + if (modified || wincount > 1) + { + if (wincount > 1) + { + vim_snprintf((char *)NameBuff, MAXPATHL, "%d", wincount); + len = (int)STRLEN(NameBuff); + if (col + len >= Columns - 3) + break; + screen_puts_len(NameBuff, len, 0, col, +#if defined(FEAT_SYN_HL) + hl_combine_attr(attr, HL_ATTR(HLF_T)) +#else + attr +#endif + ); + col += len; + } + if (modified) + screen_puts_len((char_u *)"+", 1, 0, col++, attr); + screen_putchar(' ', 0, col++, attr); + } + + room = scol - col + tabwidth - 1; + if (room > 0) + { + // Get buffer name in NameBuff[] + get_trans_bufname(cwp->w_buffer); + shorten_dir(NameBuff); + len = vim_strsize(NameBuff); + p = NameBuff; + if (has_mbyte) + while (len > room) + { + len -= ptr2cells(p); + MB_PTR_ADV(p); + } + else if (len > room) + { + p += len - room; + len = room; + } + if (len > Columns - col - 1) + len = Columns - col - 1; + + screen_puts_len(p, (int)STRLEN(p), 0, col, attr); + col += len; + } + screen_putchar(' ', 0, col++, attr); + + // Store the tab page number in TabPageIdxs[], so that + // jump_to_mouse() knows where each one is. + ++tabcount; + while (scol < col) + TabPageIdxs[scol++] = tabcount; + } + + if (use_sep_chars) + c = '_'; + else + c = ' '; + screen_fill(0, 1, col, (int)Columns, c, c, attr_fill); + + // Draw the 'showcmd' information if 'showcmdloc' == "tabline". + if (p_sc && *p_sloc == 't') + { + int width = MIN(10, (int)Columns - col - (tabcount > 1) * 3); + + if (width > 0) + screen_puts_len(showcmd_buf, width, 0, (int)Columns + - width - (tabcount > 1) * 2, attr_nosel); + } + + // Put an "X" for closing the current tab if there are several. + if (tabcount > 1) + { + screen_putchar('X', 0, (int)Columns - 1, attr_nosel); + TabPageIdxs[Columns - 1] = -999; + } + } + + // Reset the flag here again, in case evaluating 'tabline' causes it to be + // set. + redraw_tabline = FALSE; +} + +/* + * Get buffer name for "buf" into NameBuff[]. + * Takes care of special buffer names and translates special characters. + */ + void +get_trans_bufname(buf_T *buf) +{ + if (buf_spname(buf) != NULL) + vim_strncpy(NameBuff, buf_spname(buf), MAXPATHL - 1); + else + home_replace(buf, buf->b_fname, NameBuff, MAXPATHL, TRUE); + trans_characters(NameBuff, MAXPATHL); +} + +/* + * Get the character to use in a status line. Get its attributes in "*attr". + */ + int +fillchar_status(int *attr, win_T *wp) +{ + int fill; + +#ifdef FEAT_TERMINAL + if (bt_terminal(wp->w_buffer)) + { + if (wp == curwin) + { + *attr = HL_ATTR(HLF_ST); + fill = wp->w_fill_chars.stl; + } + else + { + *attr = HL_ATTR(HLF_STNC); + fill = wp->w_fill_chars.stlnc; + } + } + else +#endif + if (wp == curwin) + { + *attr = HL_ATTR(HLF_S); + fill = wp->w_fill_chars.stl; + } + else + { + *attr = HL_ATTR(HLF_SNC); + fill = wp->w_fill_chars.stlnc; + } + // Use fill when there is highlighting, and highlighting of current + // window differs, or the fillchars differ, or this is not the + // current window + if (*attr != 0 && ((HL_ATTR(HLF_S) != HL_ATTR(HLF_SNC) + || wp != curwin || ONE_WINDOW) + || (wp->w_fill_chars.stl != wp->w_fill_chars.stlnc))) + return fill; + if (wp == curwin) + return '^'; + return '='; +} + +/* + * Get the character to use in a separator between vertically split windows. + * Get its attributes in "*attr". + */ + int +fillchar_vsep(int *attr, win_T *wp) +{ + *attr = HL_ATTR(HLF_C); + if (*attr == 0 && wp->w_fill_chars.vert == ' ') + return '|'; + else + return wp->w_fill_chars.vert; +} + +/* + * Return TRUE if redrawing should currently be done. + */ + int +redrawing(void) +{ +#ifdef FEAT_EVAL + if (disable_redraw_for_testing) + return 0; + else +#endif + return ((!RedrawingDisabled +#ifdef FEAT_EVAL + || ignore_redraw_flag_for_testing +#endif + ) && !(p_lz && char_avail() && !KeyTyped && !do_redraw)); +} + +/* + * Return TRUE if printing messages should currently be done. + */ + int +messaging(void) +{ + return (!(p_lz && char_avail() && !KeyTyped)); +} + +/* + * Compute columns for ruler and shown command. 'sc_col' is also used to + * decide what the maximum length of a message on the status line can be. + * If there is a status line for the last window, 'sc_col' is independent + * of 'ru_col'. + */ + +#define COL_RULER 17 // columns needed by standard ruler + + void +comp_col(void) +{ + int last_has_status = (p_ls == 2 || (p_ls == 1 && !ONE_WINDOW)); + + sc_col = 0; + ru_col = 0; + if (p_ru) + { +#ifdef FEAT_STL_OPT + ru_col = (ru_wid ? ru_wid : COL_RULER) + 1; +#else + ru_col = COL_RULER + 1; +#endif + // no last status line, adjust sc_col + if (!last_has_status) + sc_col = ru_col; + } + if (p_sc) + { + sc_col += SHOWCMD_COLS; + if (!p_ru || last_has_status) // no need for separating space + ++sc_col; + } + sc_col = Columns - sc_col; + ru_col = Columns - ru_col; + if (sc_col <= 0) // screen too narrow, will become a mess + sc_col = 1; + if (ru_col <= 0) + ru_col = 1; +#ifdef FEAT_EVAL + set_vim_var_nr(VV_ECHOSPACE, sc_col - 1); +#endif +} + +#if defined(FEAT_LINEBREAK) || defined(PROTO) +/* + * Return the width of the 'number' and 'relativenumber' column. + * Caller may need to check if 'number' or 'relativenumber' is set. + * Otherwise it depends on 'numberwidth' and the line count. + */ + int +number_width(win_T *wp) +{ + int n; + linenr_T lnum; + + if (wp->w_p_rnu && !wp->w_p_nu) + // cursor line shows "0" + lnum = wp->w_height; + else + // cursor line shows absolute line number + lnum = wp->w_buffer->b_ml.ml_line_count; + + if (lnum == wp->w_nrwidth_line_count && wp->w_nuw_cached == wp->w_p_nuw) + return wp->w_nrwidth_width; + wp->w_nrwidth_line_count = lnum; + + n = 0; + do + { + lnum /= 10; + ++n; + } while (lnum > 0); + + // 'numberwidth' gives the minimal width plus one + if (n < wp->w_p_nuw - 1) + n = wp->w_p_nuw - 1; + +# ifdef FEAT_SIGNS + // If 'signcolumn' is set to 'number' and there is a sign to display, then + // the minimal width for the number column is 2. + if (n < 2 && get_first_valid_sign(wp) != NULL + && (*wp->w_p_scl == 'n' && *(wp->w_p_scl + 1) == 'u')) + n = 2; +# endif + + wp->w_nrwidth_width = n; + wp->w_nuw_cached = wp->w_p_nuw; + return n; +} +#endif + +#if defined(FEAT_EVAL) || defined(PROTO) +/* + * Return the current cursor column. This is the actual position on the + * screen. First column is 0. + */ + int +screen_screencol(void) +{ + return screen_cur_col; +} + +/* + * Return the current cursor row. This is the actual position on the screen. + * First row is 0. + */ + int +screen_screenrow(void) +{ + return screen_cur_row; +} +#endif + +/* + * Calls mb_ptr2char_adv(p) and returns the character. + * If "p" starts with "\x", "\u" or "\U" the hex or unicode value is used. + */ + static int +get_encoded_char_adv(char_u **p) +{ + char_u *s = *p; + + if (s[0] == '\\' && (s[1] == 'x' || s[1] == 'u' || s[1] == 'U')) + { + varnumber_T num = 0; + int bytes; + int n; + + for (bytes = s[1] == 'x' ? 1 : s[1] == 'u' ? 2 : 4; bytes > 0; --bytes) + { + *p += 2; + n = hexhex2nr(*p); + if (n < 0) + return 0; + num = num * 256 + n; + } + *p += 2; + return num; + } + return mb_ptr2char_adv(p); +} + +/* + * Handle setting 'listchars' or 'fillchars'. + * "value" points to either the global or the window-local value. + * "opt_lcs" is TRUE for "listchars" and FALSE for "fillchars". + * When "apply" is FALSE do not store the flags, only check for errors. + * Assume monocell characters. + * Returns error message, NULL if it's OK. + */ + static char * +set_chars_option(win_T *wp, char_u *value, int opt_lcs, int apply) +{ + int round, i, len, len2, entries; + char_u *p, *s; + int c1 = 0, c2 = 0, c3 = 0; + char_u *last_multispace = NULL; // Last occurrence of "multispace:" + char_u *last_lmultispace = NULL; // Last occurrence of "leadmultispace:" + int multispace_len = 0; // Length of lcs-multispace string + int lead_multispace_len = 0; // Length of lcs-leadmultispace string + int is_listchars = opt_lcs; + + struct charstab + { + int *cp; + char *name; + }; + struct charstab *tab; + + static fill_chars_T fill_chars; + static struct charstab filltab[] = + { + {&fill_chars.stl, "stl"}, + {&fill_chars.stlnc, "stlnc"}, + {&fill_chars.vert, "vert"}, + {&fill_chars.fold, "fold"}, + {&fill_chars.foldopen, "foldopen"}, + {&fill_chars.foldclosed, "foldclose"}, + {&fill_chars.foldsep, "foldsep"}, + {&fill_chars.diff, "diff"}, + {&fill_chars.eob, "eob"}, + {&fill_chars.lastline, "lastline"}, + }; + + static lcs_chars_T lcs_chars; + struct charstab lcstab[] = + { + {&lcs_chars.eol, "eol"}, + {&lcs_chars.ext, "extends"}, + {&lcs_chars.nbsp, "nbsp"}, + {&lcs_chars.prec, "precedes"}, + {&lcs_chars.space, "space"}, + {&lcs_chars.tab2, "tab"}, + {&lcs_chars.trail, "trail"}, + {&lcs_chars.lead, "lead"}, +#ifdef FEAT_CONCEAL + {&lcs_chars.conceal, "conceal"}, +#else + {NULL, "conceal"}, +#endif + }; + + if (is_listchars) + { + tab = lcstab; + CLEAR_FIELD(lcs_chars); + entries = ARRAY_LENGTH(lcstab); + if (opt_lcs && wp->w_p_lcs[0] == NUL) + value = p_lcs; // local value is empty, use the global value + } + else + { + tab = filltab; + entries = ARRAY_LENGTH(filltab); + if (!opt_lcs && wp->w_p_fcs[0] == NUL) + value = p_fcs; // local value is empty, us the global value + } + + // first round: check for valid value, second round: assign values + for (round = 0; round <= 1; ++round) + { + if (round > 0) + { + // After checking that the value is valid: set defaults. + if (is_listchars) + { + for (i = 0; i < entries; ++i) + if (tab[i].cp != NULL) + *(tab[i].cp) = NUL; + lcs_chars.tab1 = NUL; + lcs_chars.tab3 = NUL; + + if (multispace_len > 0) + { + lcs_chars.multispace = ALLOC_MULT(int, multispace_len + 1); + if (lcs_chars.multispace != NULL) + lcs_chars.multispace[multispace_len] = NUL; + } + else + lcs_chars.multispace = NULL; + + if (lead_multispace_len > 0) + { + lcs_chars.leadmultispace = + ALLOC_MULT(int, lead_multispace_len + 1); + lcs_chars.leadmultispace[lead_multispace_len] = NUL; + } + else + lcs_chars.leadmultispace = NULL; + } + else + { + fill_chars.stl = ' '; + fill_chars.stlnc = ' '; + fill_chars.vert = ' '; + fill_chars.fold = '-'; + fill_chars.foldopen = '-'; + fill_chars.foldclosed = '+'; + fill_chars.foldsep = '|'; + fill_chars.diff = '-'; + fill_chars.eob = '~'; + fill_chars.lastline = '@'; + } + } + p = value; + while (*p) + { + for (i = 0; i < entries; ++i) + { + len = (int)STRLEN(tab[i].name); + if (STRNCMP(p, tab[i].name, len) == 0 + && p[len] == ':' + && p[len + 1] != NUL) + { + c2 = c3 = 0; + s = p + len + 1; + c1 = get_encoded_char_adv(&s); + if (char2cells(c1) > 1) + return e_invalid_argument; + if (tab[i].cp == &lcs_chars.tab2) + { + if (*s == NUL) + return e_invalid_argument; + c2 = get_encoded_char_adv(&s); + if (char2cells(c2) > 1) + return e_invalid_argument; + if (!(*s == ',' || *s == NUL)) + { + c3 = get_encoded_char_adv(&s); + if (char2cells(c3) > 1) + return e_invalid_argument; + } + } + + if (*s == ',' || *s == NUL) + { + if (round > 0) + { + if (tab[i].cp == &lcs_chars.tab2) + { + lcs_chars.tab1 = c1; + lcs_chars.tab2 = c2; + lcs_chars.tab3 = c3; + } + else if (tab[i].cp != NULL) + *(tab[i].cp) = c1; + + } + p = s; + break; + } + } + } + + if (i == entries) + { + len = (int)STRLEN("multispace"); + len2 = (int)STRLEN("leadmultispace"); + if (is_listchars + && STRNCMP(p, "multispace", len) == 0 + && p[len] == ':' + && p[len + 1] != NUL) + { + s = p + len + 1; + if (round == 0) + { + // Get length of lcs-multispace string in first round + last_multispace = p; + multispace_len = 0; + while (*s != NUL && *s != ',') + { + c1 = get_encoded_char_adv(&s); + if (char2cells(c1) > 1) + return e_invalid_argument; + ++multispace_len; + } + if (multispace_len == 0) + // lcs-multispace cannot be an empty string + return e_invalid_argument; + p = s; + } + else + { + int multispace_pos = 0; + + while (*s != NUL && *s != ',') + { + c1 = get_encoded_char_adv(&s); + if (p == last_multispace) + lcs_chars.multispace[multispace_pos++] = c1; + } + p = s; + } + } + + else if (is_listchars + && STRNCMP(p, "leadmultispace", len2) == 0 + && p[len2] == ':' + && p[len2 + 1] != NUL) + { + s = p + len2 + 1; + if (round == 0) + { + // get length of lcs-leadmultispace string in first + // round + last_lmultispace = p; + lead_multispace_len = 0; + while (*s != NUL && *s != ',') + { + c1 = get_encoded_char_adv(&s); + if (char2cells(c1) > 1) + return e_invalid_argument; + ++lead_multispace_len; + } + if (lead_multispace_len == 0) + // lcs-leadmultispace cannot be an empty string + return e_invalid_argument; + p = s; + } + else + { + int multispace_pos = 0; + + while (*s != NUL && *s != ',') + { + c1 = get_encoded_char_adv(&s); + if (p == last_lmultispace) + lcs_chars.leadmultispace[multispace_pos++] = c1; + } + p = s; + } + } + else + return e_invalid_argument; + } + + if (*p == ',') + ++p; + } + } + + if (apply) + { + if (is_listchars) + { + vim_free(wp->w_lcs_chars.multispace); + vim_free(wp->w_lcs_chars.leadmultispace); + wp->w_lcs_chars = lcs_chars; + } + else + { + wp->w_fill_chars = fill_chars; + } + } + else if (is_listchars) + { + vim_free(lcs_chars.multispace); + vim_free(lcs_chars.leadmultispace); + } + + return NULL; // no error +} + +/* + * Handle the new value of 'fillchars'. + */ + char * +set_fillchars_option(win_T *wp, char_u *val, int apply) +{ + return set_chars_option(wp, val, FALSE, apply); +} + +/* + * Handle the new value of 'listchars'. + */ + char * +set_listchars_option(win_T *wp, char_u *val, int apply) +{ + return set_chars_option(wp, val, TRUE, apply); +} + +/* + * Check all global and local values of 'listchars' and 'fillchars'. + * Return an untranslated error messages if any of them is invalid, NULL + * otherwise. + */ + char * +check_chars_options(void) +{ + tabpage_T *tp; + win_T *wp; + + if (set_listchars_option(curwin, p_lcs, FALSE) != NULL) + return e_conflicts_with_value_of_listchars; + if (set_fillchars_option(curwin, p_fcs, FALSE) != NULL) + return e_conflicts_with_value_of_fillchars; + FOR_ALL_TAB_WINDOWS(tp, wp) + { + if (set_listchars_option(wp, wp->w_p_lcs, FALSE) != NULL) + return e_conflicts_with_value_of_listchars; + if (set_fillchars_option(wp, wp->w_p_fcs, FALSE) != NULL) + return e_conflicts_with_value_of_fillchars; + } + return NULL; +} -- cgit v1.2.3