vim: src/message.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	753b0bde34b0
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	11 * message.c: functions for displaying messages on the command line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	14 #define MESSAGE_FILE // don't include prototype for smsg()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	16 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	17
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	18 static void add_msg_hist(char_u *s, int len, int attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	19 static void hit_return_msg(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	20 static void msg_home_replace_attr(char_u *fname, int attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	21 static void msg_puts_attr_len(char *str, int maxlen, int attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	22 static void msg_puts_display(char_u *str, int maxlen, int attr, int recurse);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	23 static void msg_scroll_up(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	24 static void inc_msg_scrolled(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	25 static void store_sb_text(char_u *sb_str, char_u s, int attr, int *sb_col, int finish);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	26 static void t_puts(int t_col, char_u t_s, char_u *s, int attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	27 static void msg_puts_printf(char_u *str, int maxlen);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	28 static int do_more_prompt(int typed_char);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	29 static void msg_screen_putchar(int c, int attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	30 static void msg_moremsg(int full);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	31 static int msg_check_screen(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	32 static void redir_write(char_u *s, int maxlen);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	33 #ifdef FEAT_CON_DIALOG
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	34 static char_u msg_show_console_dialog(char_u message, char_u *buttons, int dfltbutton);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	35 static int confirm_msg_used = FALSE; // displaying confirm_msg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	36 static char_u *confirm_msg = NULL; // ":confirm" message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	37 static char_u *confirm_msg_tail; // tail of confirm_msg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	38 static void display_confirm_msg(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	39 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	40 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	41 static int emsg_to_channel_log = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	42 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	43
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	44 struct msg_hist
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	45 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	46 struct msg_hist *next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	47 char_u *msg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	48 int attr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	49 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	50
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	51 static struct msg_hist *first_msg_hist = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	52 static struct msg_hist *last_msg_hist = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	53 static int msg_hist_len = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	54
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	55 static FILE *verbose_fd = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	56 static int verbose_did_open = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	57
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	58 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	59 * When writing messages to the screen, there are many different situations.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	60 * A number of variables is used to remember the current state:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	61 * msg_didany TRUE when messages were written since the last time the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	62 * user reacted to a prompt.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	63 * Reset: After hitting a key for the hit-return prompt,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	64 * hitting <CR> for the command line or input().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	65 * Set: When any message is written to the screen.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	66 * msg_didout TRUE when something was written to the current line.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	67 * Reset: When advancing to the next line, when the current
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	68 * text can be overwritten.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	69 * Set: When any message is written to the screen.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	70 * msg_nowait No extra delay for the last drawn message.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	71 * Used in normal_cmd() before the mode message is drawn.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	72 * emsg_on_display There was an error message recently. Indicates that there
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	73 * should be a delay before redrawing.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	74 * msg_scroll The next message should not overwrite the current one.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	75 * msg_scrolled How many lines the screen has been scrolled (because of
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	76 * messages). Used in update_screen() to scroll the screen
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	77 * back. Incremented each time the screen scrolls a line.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	78 * msg_scrolled_ign TRUE when msg_scrolled is non-zero and msg_puts_attr()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	79 * writes something without scrolling should not make
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	80 * need_wait_return to be set. This is a hack to make ":ts"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	81 * work without an extra prompt.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	82 * lines_left Number of lines available for messages before the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	83 * more-prompt is to be given. -1 when not set.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	84 * need_wait_return TRUE when the hit-return prompt is needed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	85 * Reset: After giving the hit-return prompt, when the user
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	86 * has answered some other prompt.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	87 * Set: When the ruler or typeahead display is overwritten,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	88 * scrolling the screen for some message.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	89 * keep_msg Message to be displayed after redrawing the screen, in
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	90 * main_loop().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	91 * This is an allocated string or NULL when not used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	92 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	93
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	94 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	95 * msg(s) - displays the string 's' on the status line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	96 * When terminal not initialized (yet) mch_errmsg(..) is used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	97 * return TRUE if wait_return() not called
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	98 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	99 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	100 msg(char *s)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	101 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	102 return msg_attr_keep(s, 0, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	103 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	104
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	105 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	106 * Like msg() but keep it silent when 'verbosefile' is set.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	107 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	108 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	109 verb_msg(char *s)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	110 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	111 int n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	112
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	113 verbose_enter();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	114 n = msg_attr_keep(s, 0, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	115 verbose_leave();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	116
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	117 return n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	118 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	119
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	120 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	121 msg_attr(char *s, int attr)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	122 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	123 return msg_attr_keep(s, attr, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	124 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	125
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	126 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	127 msg_attr_keep(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	128 char *s,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	129 int attr,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	130 int keep) // TRUE: set keep_msg if it doesn't scroll
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	131 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	132 static int entered = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	133 int retval;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	134 char_u *buf = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	135
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	136 // Skip messages not matching ":filter pattern".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	137 // Don't filter when there is an error.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	138 if (!emsg_on_display && message_filtered((char_u *)s))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	139 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	140
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	141 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	142 if (attr == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	143 set_vim_var_string(VV_STATUSMSG, (char_u *)s, -1);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	144 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	145
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	146 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	147 * It is possible that displaying a messages causes a problem (e.g.,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	148 * when redrawing the window), which causes another message, etc.. To
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	149 * break this loop, limit the recursiveness to 3 levels.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	150 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	151 if (entered >= 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	152 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	153 ++entered;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	154
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	155 // Add message to history (unless it's a repeated kept message or a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	156 // truncated message)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	157 if ((char_u *)s != keep_msg
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	158 \|\| (*s != '<'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	159 && last_msg_hist != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	160 && last_msg_hist->msg != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	161 && STRCMP(s, last_msg_hist->msg)))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	162 add_msg_hist((char_u *)s, -1, attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	163
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	164 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	165 if (emsg_to_channel_log)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	166 // Write message in the channel log.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	167 ch_log(NULL, "ERROR: %s", s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	168 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	169
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	170 // Truncate the message if needed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	171 msg_start();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	172 buf = msg_strtrunc((char_u *)s, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	173 if (buf != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	174 s = (char *)buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	175
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	176 msg_outtrans_attr((char_u *)s, attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	177 msg_clr_eos();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	178 retval = msg_end();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	179
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	180 if (keep && retval && vim_strsize((char_u *)s)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	181 < (int)(Rows - cmdline_row - 1) * Columns + sc_col)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	182 set_keep_msg((char_u *)s, 0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	183
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	184 need_fileinfo = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	185
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	186 vim_free(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	187 --entered;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	188 return retval;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	189 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	190
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	191 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	192 * Truncate a string such that it can be printed without causing a scroll.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	193 * Returns an allocated string or NULL when no truncating is done.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	194 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	195 char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	196 msg_strtrunc(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	197 char_u *s,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	198 int force) // always truncate
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	199 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	200 char_u *buf = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	201 int len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	202 int room;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	203
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	204 // May truncate message to avoid a hit-return prompt
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	205 if ((!msg_scroll && !need_wait_return && shortmess(SHM_TRUNCALL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	206 && !exmode_active && msg_silent == 0) \|\| force)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	207 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	208 len = vim_strsize(s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	209 if (msg_scrolled != 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	210 #ifdef HAS_MESSAGE_WINDOW
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	211 \|\| in_echowindow
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	212 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	213 )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	214 // Use all the columns.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	215 room = (int)(Rows - msg_row) * Columns - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	216 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	217 // Use up to 'showcmd' column.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	218 room = (int)(Rows - msg_row - 1) * Columns + sc_col - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	219 if (len > room && room > 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	220 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	221 if (enc_utf8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	222 // may have up to 18 bytes per cell (6 per char, up to two
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	223 // composing chars)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	224 len = (room + 2) * 18;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	225 else if (enc_dbcs == DBCS_JPNU)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	226 // may have up to 2 bytes per cell for euc-jp
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	227 len = (room + 2) * 2;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	228 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	229 len = room + 2;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	230 buf = alloc(len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	231 if (buf != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	232 trunc_string(s, buf, room, len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	233 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	234 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	235 return buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	236 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	237
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	238 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	239 * Truncate a string "s" to "buf" with cell width "room".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	240 * "s" and "buf" may be equal.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	241 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	242 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	243 trunc_string(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	244 char_u *s,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	245 char_u *buf,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	246 int room_in,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	247 int buflen)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	248 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	249 size_t room = room_in - 3; // "..." takes 3 chars
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	250 size_t half;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	251 size_t len = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	252 int e;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	253 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	254 int n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	255
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	256 if (*s == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	257 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	258 if (buflen > 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	259 *buf = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	260 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	261 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	262
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	263 if (room_in < 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	264 room = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	265 half = room / 2;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	266
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	267 // First part: Start of the string.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	268 for (e = 0; len < half && e < buflen; ++e)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	269 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	270 if (s[e] == NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	271 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	272 // text fits without truncating!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	273 buf[e] = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	274 return;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	275 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	276 n = ptr2cells(s + e);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	277 if (len + n > half)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	278 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	279 len += n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	280 buf[e] = s[e];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	281 if (has_mbyte)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	282 for (n = (*mb_ptr2len)(s + e); --n > 0; )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	283 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	284 if (++e == buflen)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	285 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	286 buf[e] = s[e];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	287 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	288 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	289
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	290 // Last part: End of the string.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	291 i = e;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	292 if (enc_dbcs != 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	293 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	294 // For DBCS going backwards in a string is slow, but
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	295 // computing the cell width isn't too slow: go forward
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	296 // until the rest fits.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	297 n = vim_strsize(s + i);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	298 while (len + n > room)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	299 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	300 n -= ptr2cells(s + i);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	301 i += (*mb_ptr2len)(s + i);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	302 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	303 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	304 else if (enc_utf8)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	305 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	306 // For UTF-8 we can go backwards easily.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	307 half = i = (int)STRLEN(s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	308 for (;;)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	309 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	310 do
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	311 half = half - utf_head_off(s, s + half - 1) - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	312 while (half > 0 && utf_iscomposing(utf_ptr2char(s + half)));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	313 n = ptr2cells(s + half);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	314 if (len + n > room \|\| half == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	315 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	316 len += n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	317 i = (int)half;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	318 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	319 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	320 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	321 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	322 for (i = (int)STRLEN(s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	323 i - 1 >= 0 && len + (n = ptr2cells(s + i - 1)) <= room; --i)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	324 len += n;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	325 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	326
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	327
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	328 if (i <= e + 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	329 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	330 // text fits without truncating
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	331 if (s != buf)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	332 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	333 len = STRLEN(s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	334 if (len >= (size_t)buflen)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	335 len = buflen - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	336 len = len - e + 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	337 if (len < 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	338 buf[e - 1] = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	339 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	340 mch_memmove(buf + e, s + e, len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	341 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	342 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	343 else if (e + 3 < buflen)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	344 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	345 // set the middle and copy the last part
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	346 mch_memmove(buf + e, "...", (size_t)3);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	347 len = STRLEN(s + i) + 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	348 if (len >= (size_t)buflen - e - 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	349 len = buflen - e - 3 - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	350 mch_memmove(buf + e + 3, s + i, len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	351 buf[e + 3 + len - 1] = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	352 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	353 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	354 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	355 // can't fit in the "...", just truncate it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	356 buf[e - 1] = NUL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	357 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	358 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	359
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	360 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	361 * Automatic prototype generation does not understand this function.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	362 * Note: Caller of smsg() and smsg_attr() must check the resulting string is
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	363 * shorter than IOSIZE!!!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	364 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	365 #ifndef PROTO
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	366
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	367 int vim_snprintf(char str, size_t str_m, const char fmt, ...);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	368
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	369 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	370 smsg(const char *s, ...)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	371 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	372 if (IObuff == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	373 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	374 // Very early in initialisation and already something wrong, just
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	375 // give the raw message so the user at least gets a hint.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	376 return msg((char *)s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	377 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	378
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	379 va_list arglist;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	380
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	381 va_start(arglist, s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	382 vim_vsnprintf((char *)IObuff, IOSIZE, s, arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	383 va_end(arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	384 return msg((char *)IObuff);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	385 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	386
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	387 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	388 smsg_attr(int attr, const char *s, ...)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	389 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	390 if (IObuff == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	391 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	392 // Very early in initialisation and already something wrong, just
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	393 // give the raw message so the user at least gets a hint.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	394 return msg_attr((char *)s, attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	395 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	396
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	397 va_list arglist;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	398
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	399 va_start(arglist, s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	400 vim_vsnprintf((char *)IObuff, IOSIZE, s, arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	401 va_end(arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	402 return msg_attr((char *)IObuff, attr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	403 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	404
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	405 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	406 smsg_attr_keep(int attr, const char *s, ...)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	407 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	408 if (IObuff == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	409 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	410 // Very early in initialisation and already something wrong, just
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	411 // give the raw message so the user at least gets a hint.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	412 return msg_attr_keep((char *)s, attr, TRUE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	413 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	414
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	415 va_list arglist;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	416
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	417 va_start(arglist, s);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	418 vim_vsnprintf((char *)IObuff, IOSIZE, s, arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	419 va_end(arglist);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	420 return msg_attr_keep((char *)IObuff, attr, TRUE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	421 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	422
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	423 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	424
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	425 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	426 * Remember the last sourcing name/lnum used in an error message, so that it
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	427 * isn't printed each time when it didn't change.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	428 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	429 static int last_sourcing_lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	430 static char_u *last_sourcing_name = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	431
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	432 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	433 * Reset the last used sourcing name/lnum. Makes sure it is displayed again
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	434 * for the next error message;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	435 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	436 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	437 reset_last_sourcing(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	438 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	439 VIM_CLEAR(last_sourcing_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	440 last_sourcing_lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	441 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	442
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	443 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	444 * Return TRUE if "SOURCING_NAME" differs from "last_sourcing_name".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	445 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	446 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	447 other_sourcing_name(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	448 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	449 if (HAVE_SOURCING_INFO && SOURCING_NAME != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	450 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	451 if (last_sourcing_name != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	452 return STRCMP(SOURCING_NAME, last_sourcing_name) != 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	453 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	454 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	455 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	456 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	457
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	458 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	459 * Get the message about the source, as used for an error message.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	460 * Returns an allocated string with room for one more character.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	461 * Returns NULL when no message is to be given.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	462 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	463 static char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	464 get_emsg_source(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	465 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	466 char_u Buf, p;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	467
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	468 if (HAVE_SOURCING_INFO && SOURCING_NAME != NULL && other_sourcing_name())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	469 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	470 char_u *sname = estack_sfile(ESTACK_NONE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	471 char_u *tofree = sname;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	472
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	473 if (sname == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	474 sname = SOURCING_NAME;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	475
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	476 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	477 if (estack_compiling)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	478 p = (char_u *)_("Error detected while compiling %s:");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	479 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	480 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	481 p = (char_u *)_("Error detected while processing %s:");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	482 Buf = alloc(STRLEN(sname) + STRLEN(p));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	483 if (Buf != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	484 sprintf((char )Buf, (char )p, sname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	485 vim_free(tofree);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	486 return Buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	487 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	488 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	489 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	490
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	491 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	492 * Get the message about the source lnum, as used for an error message.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	493 * Returns an allocated string with room for one more character.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	494 * Returns NULL when no message is to be given.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	495 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	496 static char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	497 get_emsg_lnum(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	498 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	499 char_u Buf, p;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32607 diff changeset	500

32669

448aef880252 normalize line endings