vim: src/insexpand.c annotate

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

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 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: 32479 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	11 * insexpand.c: functions for Insert mode completion
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	14 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	16 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	17 * Definitions used for CTRL-X submode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	18 * Note: If you change CTRL-X submode, you must also maintain ctrl_x_msgs[] and
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	19 * ctrl_x_mode_names[] below.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	20 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	21 # define CTRL_X_WANT_IDENT 0x100
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	22
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	23 # define CTRL_X_NORMAL 0 // CTRL-N CTRL-P completion, default
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	24 # define CTRL_X_NOT_DEFINED_YET 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	25 # define CTRL_X_SCROLL 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	26 # define CTRL_X_WHOLE_LINE 3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	27 # define CTRL_X_FILES 4
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	28 # define CTRL_X_TAGS (5 + CTRL_X_WANT_IDENT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	29 # define CTRL_X_PATH_PATTERNS (6 + CTRL_X_WANT_IDENT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	30 # define CTRL_X_PATH_DEFINES (7 + CTRL_X_WANT_IDENT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	31 # define CTRL_X_FINISHED 8
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	32 # define CTRL_X_DICTIONARY (9 + CTRL_X_WANT_IDENT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	33 # define CTRL_X_THESAURUS (10 + CTRL_X_WANT_IDENT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	34 # define CTRL_X_CMDLINE 11
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	35 # define CTRL_X_FUNCTION 12
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	36 # define CTRL_X_OMNI 13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	37 # define CTRL_X_SPELL 14
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	38 # define CTRL_X_LOCAL_MSG 15 // only used in "ctrl_x_msgs"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	39 # define CTRL_X_EVAL 16 // for builtin function complete()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	40 # define CTRL_X_CMDLINE_CTRL_X 17 // CTRL-X typed in CTRL_X_CMDLINE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	41
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	42 # define CTRL_X_MSG(i) ctrl_x_msgs[(i) & ~CTRL_X_WANT_IDENT]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	43
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	44 // Message for CTRL-X mode, index is ctrl_x_mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	45 static char *ctrl_x_msgs[] =
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	46 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	47 N_(" Keyword completion (^N^P)"), // CTRL_X_NORMAL, ^P/^N compl.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	48 N_(" ^X mode (^]^D^E^F^I^K^L^N^O^Ps^U^V^Y)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	49 NULL, // CTRL_X_SCROLL: depends on state
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	50 N_(" Whole line completion (^L^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	51 N_(" File name completion (^F^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	52 N_(" Tag completion (^]^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	53 N_(" Path pattern completion (^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	54 N_(" Definition completion (^D^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	55 NULL, // CTRL_X_FINISHED
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	56 N_(" Dictionary completion (^K^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	57 N_(" Thesaurus completion (^T^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	58 N_(" Command-line completion (^V^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	59 N_(" User defined completion (^U^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	60 N_(" Omni completion (^O^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	61 N_(" Spelling suggestion (s^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	62 N_(" Keyword Local completion (^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	63 NULL, // CTRL_X_EVAL doesn't use msg.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	64 N_(" Command-line completion (^V^N^P)"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	65 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	66
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	67 #if defined(FEAT_COMPL_FUNC) \|\| defined(FEAT_EVAL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	68 static char *ctrl_x_mode_names[] = {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	69 "keyword",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	70 "ctrl_x",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	71 "scroll",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	72 "whole_line",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	73 "files",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	74 "tags",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	75 "path_patterns",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	76 "path_defines",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	77 "unknown", // CTRL_X_FINISHED
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	78 "dictionary",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	79 "thesaurus",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	80 "cmdline",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	81 "function",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	82 "omni",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	83 "spell",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	84 NULL, // CTRL_X_LOCAL_MSG only used in "ctrl_x_msgs"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	85 "eval",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	86 "cmdline",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	87 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	88 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	89
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	90 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	91 * Array indexes used for cp_text[].
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	92 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	93 #define CPT_ABBR 0 // "abbr"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	94 #define CPT_MENU 1 // "menu"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	95 #define CPT_KIND 2 // "kind"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	96 #define CPT_INFO 3 // "info"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	97 #define CPT_COUNT 4 // Number of entries
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	98
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	99 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	100 * Structure used to store one match for insert completion.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	101 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	102 typedef struct compl_S compl_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	103 struct compl_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	104 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	105 compl_T *cp_next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	106 compl_T *cp_prev;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	107 char_u *cp_str; // matched text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	108 char_u *(cp_text[CPT_COUNT]); // text for the menu
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	109 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	110 typval_T cp_user_data;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	111 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	112 char_u *cp_fname; // file containing the match, allocated when
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	113 // cp_flags has CP_FREE_FNAME
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	114 int cp_flags; // CP_ values
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	115 int cp_number; // sequence number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	116 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	117
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	118 // values for cp_flags
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	119 # define CP_ORIGINAL_TEXT 1 // the original text when the expansion begun
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	120 # define CP_FREE_FNAME 2 // cp_fname is allocated
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	121 # define CP_CONT_S_IPOS 4 // use CONT_S_IPOS for compl_cont_status
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	122 # define CP_EQUAL 8 // ins_compl_equal() always returns TRUE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	123 # define CP_ICASE 16 // ins_compl_equal() ignores case
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	124 # define CP_FAST 32 // use fast_breakcheck instead of ui_breakcheck
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	125
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	126 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	127 * All the current matches are stored in a list.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	128 * "compl_first_match" points to the start of the list.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	129 * "compl_curr_match" points to the currently selected entry.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	130 * "compl_shown_match" is different from compl_curr_match during
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	131 * ins_compl_get_exp().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	132 * "compl_old_match" points to previous "compl_curr_match".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	133 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	134 static compl_T *compl_first_match = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	135 static compl_T *compl_curr_match = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	136 static compl_T *compl_shown_match = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	137 static compl_T *compl_old_match = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	138
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	139 // After using a cursor key <Enter> selects a match in the popup menu,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	140 // otherwise it inserts a line break.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	141 static int compl_enter_selects = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	142
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	143 // When "compl_leader" is not NULL only matches that start with this string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	144 // are used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	145 static char_u *compl_leader = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	146
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	147 static int compl_get_longest = FALSE; // put longest common string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	148 // in compl_leader
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	149
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	150 static int compl_no_insert = FALSE; // FALSE: select & insert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	151 // TRUE: noinsert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	152 static int compl_no_select = FALSE; // FALSE: select & insert
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	153 // TRUE: noselect
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	154 static int compl_longest = FALSE; // FALSE: insert full match
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	155 // TRUE: insert longest prefix
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	156
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	157 // Selected one of the matches. When FALSE the match was edited or using the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	158 // longest common string.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	159 static int compl_used_match;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	160
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	161 // didn't finish finding completions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	162 static int compl_was_interrupted = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	163
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	164 // Set when character typed while looking for matches and it means we should
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	165 // stop looking for matches.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	166 static int compl_interrupted = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	167
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	168 static int compl_restarting = FALSE; // don't insert match
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	169
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	170 // When the first completion is done "compl_started" is set. When it's
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	171 // FALSE the word to be completed must be located.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	172 static int compl_started = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	173
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	174 // Which Ctrl-X mode are we in?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	175 static int ctrl_x_mode = CTRL_X_NORMAL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	176
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	177 static int compl_matches = 0; // number of completion matches
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	178 static char_u *compl_pattern = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	179 static int compl_direction = FORWARD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	180 static int compl_shows_dir = FORWARD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	181 static int compl_pending = 0; // > 1 for postponed CTRL-N
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	182 static pos_T compl_startpos;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	183 // Length in bytes of the text being completed (this is deleted to be replaced
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	184 // by the match.)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	185 static int compl_length = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	186 static colnr_T compl_col = 0; // column where the text starts
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	187 // that is being completed
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	188 static char_u *compl_orig_text = NULL; // text as it was before
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	189 // completion started
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	190 static int compl_cont_mode = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	191 static expand_T compl_xp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	192
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	193 // List of flags for method of completion.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	194 static int compl_cont_status = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	195 # define CONT_ADDING 1 // "normal" or "adding" expansion
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	196 # define CONT_INTRPT (2 + 4) // a ^X interrupted the current expansion
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	197 // it's set only iff N_ADDS is set
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	198 # define CONT_N_ADDS 4 // next ^X<> will add-new or expand-current
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	199 # define CONT_S_IPOS 8 // next ^X<> will set initial_pos?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	200 // if so, word-wise-expansion will set SOL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	201 # define CONT_SOL 16 // pattern includes start of line, just for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	202 // word-wise expansion, not set for ^X^L
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	203 # define CONT_LOCAL 32 // for ctrl_x_mode 0, ^X^P/^X^N do a local
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	204 // expansion, (eg use complete=.)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	205
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	206 static int compl_opt_refresh_always = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	207 static int compl_opt_suppress_empty = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	208
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	209 static int ins_compl_add(char_u str, int len, char_u fname, char_u *cptext, typval_T user_data, int cdir, int flags, int adup);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	210 static void ins_compl_longest_match(compl_T *match);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	211 static void ins_compl_del_pum(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	212 static void ins_compl_files(int count, char_u *files, int thesaurus, int flags, regmatch_T regmatch, char_u buf, int dir);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	213 static char_u find_line_end(char_u ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	214 static void ins_compl_free(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	215 static int ins_compl_need_restart(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	216 static void ins_compl_new_leader(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	217 static int get_compl_len(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	218 static void ins_compl_restart(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	219 static void ins_compl_set_original_text(char_u *str);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	220 static void ins_compl_fixRedoBufForLeader(char_u *ptr_arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	221 # if defined(FEAT_COMPL_FUNC) \|\| defined(FEAT_EVAL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	222 static void ins_compl_add_list(list_T *list);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	223 static void ins_compl_add_dict(dict_T *dict);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	224 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	225 static int ins_compl_key2dir(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	226 static int ins_compl_pum_key(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	227 static int ins_compl_key2count(int c);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	228 static void show_pum(int prev_w_wrow, int prev_w_leftcol);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	229 static unsigned quote_meta(char_u dest, char_u str, int len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	230
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	231 #ifdef FEAT_SPELL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	232 static void spell_back_to_badword(void);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	233 static int spell_bad_len = 0; // length of located bad word
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	234 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	235
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	236 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	237 * CTRL-X pressed in Insert mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	238 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	239 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	240 ins_ctrl_x(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	241 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	242 if (!ctrl_x_mode_cmdline())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	243 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	244 // if the next ^X<> won't ADD nothing, then reset compl_cont_status
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	245 if (compl_cont_status & CONT_N_ADDS)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	246 compl_cont_status \|= CONT_INTRPT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	247 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	248 compl_cont_status = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	249 // We're not sure which CTRL-X mode it will be yet
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	250 ctrl_x_mode = CTRL_X_NOT_DEFINED_YET;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	251 edit_submode = (char_u *)_(CTRL_X_MSG(ctrl_x_mode));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	252 edit_submode_pre = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	253 showmode();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	254 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	255 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	256 // CTRL-X in CTRL-X CTRL-V mode behaves differently to make CTRL-X
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	257 // CTRL-V look like CTRL-N
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	258 ctrl_x_mode = CTRL_X_CMDLINE_CTRL_X;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	259
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	260 may_trigger_modechanged();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	261 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	262
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	263 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	264 * Functions to check the current CTRL-X mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	265 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	266 int ctrl_x_mode_none(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	267 { return ctrl_x_mode == 0; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	268 int ctrl_x_mode_normal(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	269 { return ctrl_x_mode == CTRL_X_NORMAL; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	270 int ctrl_x_mode_scroll(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	271 { return ctrl_x_mode == CTRL_X_SCROLL; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	272 int ctrl_x_mode_whole_line(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	273 { return ctrl_x_mode == CTRL_X_WHOLE_LINE; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	274 int ctrl_x_mode_files(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	275 { return ctrl_x_mode == CTRL_X_FILES; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	276 int ctrl_x_mode_tags(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	277 { return ctrl_x_mode == CTRL_X_TAGS; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	278 int ctrl_x_mode_path_patterns(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	279 { return ctrl_x_mode == CTRL_X_PATH_PATTERNS; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	280 int ctrl_x_mode_path_defines(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	281 { return ctrl_x_mode == CTRL_X_PATH_DEFINES; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	282 int ctrl_x_mode_dictionary(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	283 { return ctrl_x_mode == CTRL_X_DICTIONARY; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	284 int ctrl_x_mode_thesaurus(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	285 { return ctrl_x_mode == CTRL_X_THESAURUS; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	286 int ctrl_x_mode_cmdline(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	287 { return ctrl_x_mode == CTRL_X_CMDLINE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	288 \|\| ctrl_x_mode == CTRL_X_CMDLINE_CTRL_X; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	289 int ctrl_x_mode_function(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	290 { return ctrl_x_mode == CTRL_X_FUNCTION; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	291 int ctrl_x_mode_omni(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	292 { return ctrl_x_mode == CTRL_X_OMNI; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	293 int ctrl_x_mode_spell(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	294 { return ctrl_x_mode == CTRL_X_SPELL; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	295 static int ctrl_x_mode_eval(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	296 { return ctrl_x_mode == CTRL_X_EVAL; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	297 int ctrl_x_mode_line_or_eval(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	298 { return ctrl_x_mode == CTRL_X_WHOLE_LINE \|\| ctrl_x_mode == CTRL_X_EVAL; }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	299
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	300 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	301 * Whether other than default completion has been selected.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	302 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	303 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	304 ctrl_x_mode_not_default(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	305 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	306 return ctrl_x_mode != CTRL_X_NORMAL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	307 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	308
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	309 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	310 * Whether CTRL-X was typed without a following character,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	311 * not including when in CTRL-X CTRL-V mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	312 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	313 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	314 ctrl_x_mode_not_defined_yet(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	315 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	316 return ctrl_x_mode == CTRL_X_NOT_DEFINED_YET;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	317 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	318
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	319 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	320 * Return TRUE if currently in "normal" or "adding" insert completion matches
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	321 * state
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	322 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	323 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	324 compl_status_adding(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	325 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	326 return compl_cont_status & CONT_ADDING;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	327 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	328
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	329 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	330 * Return TRUE if the completion pattern includes start of line, just for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	331 * word-wise expansion.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	332 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	333 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	334 compl_status_sol(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	335 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	336 return compl_cont_status & CONT_SOL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	337 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	338
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	339 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	340 * Return TRUE if ^X^P/^X^N will do a local completion (i.e. use complete=.)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	341 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	342 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	343 compl_status_local(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	344 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	345 return compl_cont_status & CONT_LOCAL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	346 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	347
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	348 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	349 * Clear the completion status flags
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	350 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	351 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	352 compl_status_clear(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	353 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	354 compl_cont_status = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	355 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	356
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	357 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	358 * Return TRUE if completion is using the forward direction matches
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	359 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	360 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	361 compl_dir_forward(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	362 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	363 return compl_direction == FORWARD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	364 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	365
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	366 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	367 * Return TRUE if currently showing forward completion matches
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	368 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	369 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	370 compl_shows_dir_forward(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	371 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	372 return compl_shows_dir == FORWARD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	373 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	374
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	375 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	376 * Return TRUE if currently showing backward completion matches
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	377 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	378 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	379 compl_shows_dir_backward(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	380 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	381 return compl_shows_dir == BACKWARD;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	382 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	383
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	384 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	385 * Return TRUE if the 'dictionary' or 'thesaurus' option can be used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	386 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	387 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	388 has_compl_option(int dict_opt)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	389 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	390 if (dict_opt ? (curbuf->b_p_dict == NUL && p_dict == NUL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	391 #ifdef FEAT_SPELL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	392 && !curwin->w_p_spell
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	393 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	394 )
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	395 : (curbuf->b_p_tsr == NUL && p_tsr == NUL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	396 #ifdef FEAT_COMPL_FUNC
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	397 && curbuf->b_p_tsrfu == NUL && p_tsrfu == NUL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	398 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	399 ))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	400 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	401 ctrl_x_mode = CTRL_X_NORMAL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	402 edit_submode = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	403 msg_attr(dict_opt ? _("'dictionary' option is empty")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	404 : _("'thesaurus' option is empty"),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	405 HL_ATTR(HLF_E));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	406 if (emsg_silent == 0 && !in_assert_fails)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	407 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	408 vim_beep(BO_COMPL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	409 setcursor();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	410 out_flush();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	411 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	412 if (!get_vim_var_nr(VV_TESTING))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	413 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	414 ui_delay(2004L, FALSE);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	415 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	416 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	417 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	418 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	419 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	420
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	421 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	422 * Is the character "c" a valid key to go to or keep us in CTRL-X mode?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	423 * This depends on the current mode.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	424 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	425 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	426 vim_is_ctrl_x_key(int c)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	427 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	428 // Always allow ^R - let its results then be checked
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	429 if (c == Ctrl_R)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	430 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	431
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	432 // Accept <PageUp> and <PageDown> if the popup menu is visible.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	433 if (ins_compl_pum_key(c))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	434 return TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	435
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	436 switch (ctrl_x_mode)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	437 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	438 case 0: // Not in any CTRL-X mode
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	439 return (c == Ctrl_N \|\| c == Ctrl_P \|\| c == Ctrl_X);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	440 case CTRL_X_NOT_DEFINED_YET:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	441 case CTRL_X_CMDLINE_CTRL_X:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	442 return ( c == Ctrl_X \|\| c == Ctrl_Y \|\| c == Ctrl_E
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	443 \|\| c == Ctrl_L \|\| c == Ctrl_F \|\| c == Ctrl_RSB
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	444 \|\| c == Ctrl_I \|\| c == Ctrl_D \|\| c == Ctrl_P
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	445 \|\| c == Ctrl_N \|\| c == Ctrl_T \|\| c == Ctrl_V
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	446 \|\| c == Ctrl_Q \|\| c == Ctrl_U \|\| c == Ctrl_O
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	447 \|\| c == Ctrl_S \|\| c == Ctrl_K \|\| c == 's'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	448 \|\| c == Ctrl_Z);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	449 case CTRL_X_SCROLL:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	450 return (c == Ctrl_Y \|\| c == Ctrl_E);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	451 case CTRL_X_WHOLE_LINE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	452 return (c == Ctrl_L \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	453 case CTRL_X_FILES:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	454 return (c == Ctrl_F \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	455 case CTRL_X_DICTIONARY:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	456 return (c == Ctrl_K \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	457 case CTRL_X_THESAURUS:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	458 return (c == Ctrl_T \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	459 case CTRL_X_TAGS:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	460 return (c == Ctrl_RSB \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	461 #ifdef FEAT_FIND_ID
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	462 case CTRL_X_PATH_PATTERNS:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	463 return (c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	464 case CTRL_X_PATH_DEFINES:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	465 return (c == Ctrl_D \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	466 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	467 case CTRL_X_CMDLINE:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	468 return (c == Ctrl_V \|\| c == Ctrl_Q \|\| c == Ctrl_P \|\| c == Ctrl_N
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	469 \|\| c == Ctrl_X);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	470 #ifdef FEAT_COMPL_FUNC
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	471 case CTRL_X_FUNCTION:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	472 return (c == Ctrl_U \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	473 case CTRL_X_OMNI:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	474 return (c == Ctrl_O \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	475 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	476 case CTRL_X_SPELL:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	477 return (c == Ctrl_S \|\| c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	478 case CTRL_X_EVAL:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	479 return (c == Ctrl_P \|\| c == Ctrl_N);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	480 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	481 internal_error("vim_is_ctrl_x_key()");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	482 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	483 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	484
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	485 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	486 * Return TRUE if "match" is the original text when the completion began.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	487 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	488 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	489 match_at_original_text(compl_T *match)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	490 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	491 return match->cp_flags & CP_ORIGINAL_TEXT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	492 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	493
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	494 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	495 * Returns TRUE if "match" is the first match in the completion list.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	496 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	497 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	498 is_first_match(compl_T *match)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	499 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32479 diff changeset	500 return match == compl_first_match;

32669

448aef880252 normalize line endings