Mercurial > vim
annotate src/search.c @ 28950:44481ae7c7ce v8.2.4997
patch 8.2.4997: Python: changing hidden buffer can cause display mess up
Commit: https://github.com/vim/vim/commit/37233f6022b3ed16985a91d22752b3ca162e21d0
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun May 22 12:23:48 2022 +0100
patch 8.2.4997: Python: changing hidden buffer can cause display mess up
Problem: Python: changing hidden buffer can cause the display to be messed
up.
Solution: Do not mark changed lines when using another buffer. (Paul Ollis,
closes #10437, closes #7972)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 22 May 2022 13:30:03 +0200 |
parents | 6cdf55afaae9 |
children | 485619e7f836 |
rev | line source |
---|---|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9913
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
7 | 2 * |
3 * VIM - Vi IMproved by Bram Moolenaar | |
4 * | |
5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
6 * Do ":help credits" in Vim to see a list of people who contributed. | |
7 * See README.txt for an overview of the Vim source code. | |
8 */ | |
9 /* | |
10 * search.c: code for normal mode searching commands | |
11 */ | |
12 | |
13 #include "vim.h" | |
14 | |
15 #ifdef FEAT_EVAL | |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7358
diff
changeset
|
16 static void set_vv_searchforward(void); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7358
diff
changeset
|
17 static int first_submatch(regmmatch_T *rp); |
7 | 18 #endif |
19 #ifdef FEAT_FIND_ID | |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7358
diff
changeset
|
20 static void show_pat_in_path(char_u *, int, |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7358
diff
changeset
|
21 int, int, FILE *, linenr_T *, long); |
7 | 22 #endif |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
23 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
24 typedef struct searchstat |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
25 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
26 int cur; // current position of found words |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
27 int cnt; // total count of found words |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
28 int exact_match; // TRUE if matched exactly on specified position |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
29 int incomplete; // 0: search was fully completed |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
30 // 1: recomputing was timed out |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
31 // 2: max count exceeded |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
32 int last_maxcount; // the max count of the last search |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
33 } searchstat_T; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
34 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
35 static void cmdline_search_stat(int dirc, pos_T *pos, pos_T *cursor_pos, int show_top_bot_msg, char_u *msgbuf, int recompute, int maxcount, long timeout); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
36 static void update_search_stat(int dirc, pos_T *pos, pos_T *cursor_pos, searchstat_T *stat, int recompute, int maxcount, long timeout); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
37 |
20661
c7843f009ecf
patch 8.2.0884: searchcount() test fails on slower systems
Bram Moolenaar <Bram@vim.org>
parents:
20653
diff
changeset
|
38 #define SEARCH_STAT_DEF_TIMEOUT 40L |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
39 #define SEARCH_STAT_DEF_MAX_COUNT 99 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
40 #define SEARCH_STAT_BUF_LEN 12 |
7 | 41 |
42 /* | |
43 * This file contains various searching-related routines. These fall into | |
44 * three groups: | |
45 * 1. string searches (for /, ?, n, and N) | |
46 * 2. character searches within a single line (for f, F, t, T, etc) | |
47 * 3. "other" kinds of searches like the '%' command, and 'word' searches. | |
48 */ | |
49 | |
50 /* | |
51 * String searches | |
52 * | |
53 * The string search functions are divided into two levels: | |
54 * lowest: searchit(); uses an pos_T for starting position and found match. | |
55 * Highest: do_search(); uses curwin->w_cursor; calls searchit(). | |
56 * | |
57 * The last search pattern is remembered for repeating the same search. | |
58 * This pattern is shared between the :g, :s, ? and / commands. | |
59 * This is in search_regcomp(). | |
60 * | |
61 * The actual string matching is done using a heavily modified version of | |
62 * Henry Spencer's regular expression library. See regexp.c. | |
63 */ | |
64 | |
65 /* | |
66 * Two search patterns are remembered: One for the :substitute command and | |
67 * one for other searches. last_idx points to the one that was used the last | |
68 * time. | |
69 */ | |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
70 static spat_T spats[2] = |
7 | 71 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
72 {NULL, TRUE, FALSE, {'/', 0, 0, 0L}}, // last used search pat |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
73 {NULL, TRUE, FALSE, {'/', 0, 0, 0L}} // last used substitute pat |
7 | 74 }; |
75 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
76 static int last_idx = 0; // index in spats[] for RE_LAST |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
77 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
78 static char_u lastc[2] = {NUL, NUL}; // last character searched for |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
79 static int lastcdir = FORWARD; // last direction of character search |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
80 static int last_t_cmd = TRUE; // last search t_cmd |
6991 | 81 static char_u lastc_bytes[MB_MAXBYTES + 1]; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
82 static int lastc_bytelen = 1; // >1 for multi-byte char |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
83 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
84 // copy of spats[], for keeping the search patterns while executing autocmds |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
85 static spat_T saved_spats[2]; |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
86 static char_u *saved_mr_pattern = NULL; |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
87 # ifdef FEAT_SEARCH_EXTRA |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
88 static int saved_spats_last_idx = 0; |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
89 static int saved_spats_no_hlsearch = 0; |
7 | 90 # endif |
91 | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
92 // allocated copy of pattern used by search_regcomp() |
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
93 static char_u *mr_pattern = NULL; |
7 | 94 |
95 #ifdef FEAT_FIND_ID | |
96 /* | |
97 * Type used by find_pattern_in_path() to remember which included files have | |
98 * been searched already. | |
99 */ | |
100 typedef struct SearchedFile | |
101 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
102 FILE *fp; // File pointer |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
103 char_u *name; // Full name of file |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
104 linenr_T lnum; // Line we were up to in file |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
105 int matched; // Found a match in this file |
7 | 106 } SearchedFile; |
107 #endif | |
108 | |
109 /* | |
110 * translate search pattern for vim_regcomp() | |
111 * | |
112 * pat_save == RE_SEARCH: save pat in spats[RE_SEARCH].pat (normal search cmd) | |
113 * pat_save == RE_SUBST: save pat in spats[RE_SUBST].pat (:substitute command) | |
114 * pat_save == RE_BOTH: save pat in both patterns (:global command) | |
115 * pat_use == RE_SEARCH: use previous search pattern if "pat" is NULL | |
1222 | 116 * pat_use == RE_SUBST: use previous substitute pattern if "pat" is NULL |
7 | 117 * pat_use == RE_LAST: use last used pattern if "pat" is NULL |
118 * options & SEARCH_HIS: put search string in history | |
119 * options & SEARCH_KEEP: keep previous search pattern | |
120 * | |
121 * returns FAIL if failed, OK otherwise. | |
122 */ | |
123 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
124 search_regcomp( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
125 char_u *pat, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
126 int pat_save, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
127 int pat_use, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
128 int options, |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
129 regmmatch_T *regmatch) // return: pattern and ignore-case flag |
7 | 130 { |
131 int magic; | |
132 int i; | |
133 | |
134 rc_did_emsg = FALSE; | |
23272
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
135 magic = magic_isset(); |
7 | 136 |
137 /* | |
138 * If no pattern given, use a previously defined pattern. | |
139 */ | |
140 if (pat == NULL || *pat == NUL) | |
141 { | |
142 if (pat_use == RE_LAST) | |
143 i = last_idx; | |
144 else | |
145 i = pat_use; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
146 if (spats[i].pat == NULL) // pattern was never defined |
7 | 147 { |
148 if (pat_use == RE_SUBST) | |
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
25302
diff
changeset
|
149 emsg(_(e_no_previous_substitute_regular_expression)); |
7 | 150 else |
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
25302
diff
changeset
|
151 emsg(_(e_no_previous_regular_expression)); |
7 | 152 rc_did_emsg = TRUE; |
153 return FAIL; | |
154 } | |
155 pat = spats[i].pat; | |
156 magic = spats[i].magic; | |
157 no_smartcase = spats[i].no_scs; | |
158 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
159 else if (options & SEARCH_HIS) // put new pattern in history |
7 | 160 add_to_history(HIST_SEARCH, pat, TRUE, NUL); |
161 | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
162 vim_free(mr_pattern); |
7 | 163 #ifdef FEAT_RIGHTLEFT |
164 if (curwin->w_p_rl && *curwin->w_p_rlc == 's') | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
165 mr_pattern = reverse_text(pat); |
7 | 166 else |
167 #endif | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
168 mr_pattern = vim_strsave(pat); |
7 | 169 |
170 /* | |
171 * Save the currently used pattern in the appropriate place, | |
172 * unless the pattern should not be remembered. | |
173 */ | |
22699
e82579016863
patch 8.2.1898: command modifier parsing always uses global cmdmod
Bram Moolenaar <Bram@vim.org>
parents:
22689
diff
changeset
|
174 if (!(options & SEARCH_KEEP) |
e82579016863
patch 8.2.1898: command modifier parsing always uses global cmdmod
Bram Moolenaar <Bram@vim.org>
parents:
22689
diff
changeset
|
175 && (cmdmod.cmod_flags & CMOD_KEEPPATTERNS) == 0) |
7 | 176 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
177 // search or global command |
7 | 178 if (pat_save == RE_SEARCH || pat_save == RE_BOTH) |
179 save_re_pat(RE_SEARCH, pat, magic); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
180 // substitute or global command |
7 | 181 if (pat_save == RE_SUBST || pat_save == RE_BOTH) |
182 save_re_pat(RE_SUBST, pat, magic); | |
183 } | |
184 | |
185 regmatch->rmm_ic = ignorecase(pat); | |
410 | 186 regmatch->rmm_maxcol = 0; |
7 | 187 regmatch->regprog = vim_regcomp(pat, magic ? RE_MAGIC : 0); |
188 if (regmatch->regprog == NULL) | |
189 return FAIL; | |
190 return OK; | |
191 } | |
192 | |
193 /* | |
194 * Get search pattern used by search_regcomp(). | |
195 */ | |
196 char_u * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
197 get_search_pat(void) |
7 | 198 { |
199 return mr_pattern; | |
200 } | |
201 | |
1344 | 202 #if defined(FEAT_RIGHTLEFT) || defined(PROTO) |
7 | 203 /* |
204 * Reverse text into allocated memory. | |
205 * Returns the allocated string, NULL when out of memory. | |
206 */ | |
1344 | 207 char_u * |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
208 reverse_text(char_u *s) |
7 | 209 { |
210 unsigned len; | |
211 unsigned s_i, rev_i; | |
212 char_u *rev; | |
213 | |
214 /* | |
215 * Reverse the pattern. | |
216 */ | |
217 len = (unsigned)STRLEN(s); | |
218 rev = alloc(len + 1); | |
219 if (rev != NULL) | |
220 { | |
221 rev_i = len; | |
222 for (s_i = 0; s_i < len; ++s_i) | |
223 { | |
224 if (has_mbyte) | |
225 { | |
226 int mb_len; | |
227 | |
474 | 228 mb_len = (*mb_ptr2len)(s + s_i); |
7 | 229 rev_i -= mb_len; |
230 mch_memmove(rev + rev_i, s + s_i, mb_len); | |
231 s_i += mb_len - 1; | |
232 } | |
233 else | |
234 rev[--rev_i] = s[s_i]; | |
235 | |
236 } | |
237 rev[len] = NUL; | |
238 } | |
239 return rev; | |
240 } | |
241 #endif | |
242 | |
6426 | 243 void |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
244 save_re_pat(int idx, char_u *pat, int magic) |
7 | 245 { |
246 if (spats[idx].pat != pat) | |
247 { | |
248 vim_free(spats[idx].pat); | |
249 spats[idx].pat = vim_strsave(pat); | |
250 spats[idx].magic = magic; | |
251 spats[idx].no_scs = no_smartcase; | |
252 last_idx = idx; | |
253 #ifdef FEAT_SEARCH_EXTRA | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
254 // If 'hlsearch' set and search pat changed: need redraw. |
7 | 255 if (p_hls) |
745 | 256 redraw_all_later(SOME_VALID); |
13792
0e9b2971d7c3
patch 8.0.1768: SET_NO_HLSEARCH() used in a wrong way
Christian Brabandt <cb@256bit.org>
parents:
13762
diff
changeset
|
257 set_no_hlsearch(FALSE); |
7 | 258 #endif |
259 } | |
260 } | |
261 | |
262 /* | |
263 * Save the search patterns, so they can be restored later. | |
264 * Used before/after executing autocommands and user functions. | |
265 */ | |
266 static int save_level = 0; | |
267 | |
268 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
269 save_search_patterns(void) |
7 | 270 { |
271 if (save_level++ == 0) | |
272 { | |
273 saved_spats[0] = spats[0]; | |
274 if (spats[0].pat != NULL) | |
275 saved_spats[0].pat = vim_strsave(spats[0].pat); | |
276 saved_spats[1] = spats[1]; | |
277 if (spats[1].pat != NULL) | |
278 saved_spats[1].pat = vim_strsave(spats[1].pat); | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
279 if (mr_pattern == NULL) |
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
280 saved_mr_pattern = NULL; |
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
281 else |
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
282 saved_mr_pattern = vim_strsave(mr_pattern); |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
283 #ifdef FEAT_SEARCH_EXTRA |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
284 saved_spats_last_idx = last_idx; |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
285 saved_spats_no_hlsearch = no_hlsearch; |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
286 #endif |
7 | 287 } |
288 } | |
289 | |
290 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
291 restore_search_patterns(void) |
7 | 292 { |
293 if (--save_level == 0) | |
294 { | |
295 vim_free(spats[0].pat); | |
296 spats[0] = saved_spats[0]; | |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
297 #if defined(FEAT_EVAL) |
1624 | 298 set_vv_searchforward(); |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
299 #endif |
7 | 300 vim_free(spats[1].pat); |
301 spats[1] = saved_spats[1]; | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
302 vim_free(mr_pattern); |
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
303 mr_pattern = saved_mr_pattern; |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
304 #ifdef FEAT_SEARCH_EXTRA |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
305 last_idx = saved_spats_last_idx; |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
306 set_no_hlsearch(saved_spats_no_hlsearch); |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
307 #endif |
7 | 308 } |
309 } | |
310 | |
359 | 311 #if defined(EXITFREE) || defined(PROTO) |
312 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
313 free_search_patterns(void) |
359 | 314 { |
315 vim_free(spats[0].pat); | |
316 vim_free(spats[1].pat); | |
25959
8369fcaad30d
patch 8.2.3513: using freed memory when using a timer and searching
Bram Moolenaar <Bram@vim.org>
parents:
25511
diff
changeset
|
317 VIM_CLEAR(mr_pattern); |
359 | 318 } |
319 #endif | |
320 | |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
321 #ifdef FEAT_SEARCH_EXTRA |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
322 // copy of spats[RE_SEARCH], for keeping the search patterns while incremental |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
323 // searching |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
324 static spat_T saved_last_search_spat; |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
325 static int did_save_last_search_spat = 0; |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
326 static int saved_last_idx = 0; |
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
327 static int saved_no_hlsearch = 0; |
27704
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
328 static int saved_search_match_endcol; |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
329 static int saved_search_match_lines; |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
330 |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
331 /* |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
332 * Save and restore the search pattern for incremental highlight search |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
333 * feature. |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
334 * |
15034
6e4e0d43b20b
patch 8.1.0528: various typos in comments
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
335 * It's similar to but different from save_search_patterns() and |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
336 * restore_search_patterns(), because the search pattern must be restored when |
15034
6e4e0d43b20b
patch 8.1.0528: various typos in comments
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
337 * canceling incremental searching even if it's called inside user functions. |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
338 */ |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
339 void |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
340 save_last_search_pattern(void) |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
341 { |
20697
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
342 if (++did_save_last_search_spat != 1) |
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
343 // nested call, nothing to do |
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
344 return; |
15083
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
345 |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
346 saved_last_search_spat = spats[RE_SEARCH]; |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
347 if (spats[RE_SEARCH].pat != NULL) |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
348 saved_last_search_spat.pat = vim_strsave(spats[RE_SEARCH].pat); |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
349 saved_last_idx = last_idx; |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
350 saved_no_hlsearch = no_hlsearch; |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
351 } |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
352 |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
353 void |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
354 restore_last_search_pattern(void) |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
355 { |
20697
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
356 if (--did_save_last_search_spat > 0) |
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
357 // nested call, nothing to do |
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
358 return; |
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
359 if (did_save_last_search_spat != 0) |
15083
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
360 { |
20697
1260b27535b5
patch 8.2.0902: using searchcount() in 'statusline' causes an error
Bram Moolenaar <Bram@vim.org>
parents:
20685
diff
changeset
|
361 iemsg("restore_last_search_pattern() called more often than save_last_search_pattern()"); |
15083
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
362 return; |
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
363 } |
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
364 |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
365 vim_free(spats[RE_SEARCH].pat); |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
366 spats[RE_SEARCH] = saved_last_search_spat; |
15083
70aa5caa9f0d
patch 8.1.0552: saved last search pattern may not be restored
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
367 saved_last_search_spat.pat = NULL; |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
368 # if defined(FEAT_EVAL) |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
369 set_vv_searchforward(); |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
370 # endif |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
371 last_idx = saved_last_idx; |
13792
0e9b2971d7c3
patch 8.0.1768: SET_NO_HLSEARCH() used in a wrong way
Christian Brabandt <cb@256bit.org>
parents:
13762
diff
changeset
|
372 set_no_hlsearch(saved_no_hlsearch); |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
373 } |
12855
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
374 |
27704
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
375 /* |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
376 * Save and restore the incsearch highlighting variables. |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
377 * This is required so that calling searchcount() at does not invalidate the |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
378 * incsearch highlighting. |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
379 */ |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
380 static void |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
381 save_incsearch_state(void) |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
382 { |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
383 saved_search_match_endcol = search_match_endcol; |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
384 saved_search_match_lines = search_match_lines; |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
385 } |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
386 |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
387 static void |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
388 restore_incsearch_state(void) |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
389 { |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
390 search_match_endcol = saved_search_match_endcol; |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
391 search_match_lines = saved_search_match_lines; |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
392 } |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
393 |
12855
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
394 char_u * |
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
395 last_search_pattern(void) |
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
396 { |
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
397 return spats[RE_SEARCH].pat; |
3c09e451af3a
patch 8.0.1304: CTRL-G/CTRL-T don't work with incsearch and empty pattern
Christian Brabandt <cb@256bit.org>
parents:
12829
diff
changeset
|
398 } |
12720
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
399 #endif |
37c384802df4
patch 8.0.1238: incremental search only shows one match
Christian Brabandt <cb@256bit.org>
parents:
12539
diff
changeset
|
400 |
7 | 401 /* |
402 * Return TRUE when case should be ignored for search pattern "pat". | |
403 * Uses the 'ignorecase' and 'smartcase' options. | |
404 */ | |
405 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
406 ignorecase(char_u *pat) |
7 | 407 { |
9913
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
408 return ignorecase_opt(pat, p_ic, p_scs); |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
409 } |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
410 |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
411 /* |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
412 * As ignorecase() put pass the "ic" and "scs" flags. |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
413 */ |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
414 int |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
415 ignorecase_opt(char_u *pat, int ic_in, int scs) |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
416 { |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
417 int ic = ic_in; |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
418 |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9647
diff
changeset
|
419 if (ic && !no_smartcase && scs |
17809
59f8948b7590
patch 8.1.1901: the +insert_expand feature is not always available
Bram Moolenaar <Bram@vim.org>
parents:
17767
diff
changeset
|
420 && !(ctrl_x_mode_not_default() && curbuf->b_p_inf)) |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
421 ic = !pat_has_uppercase(pat); |
7 | 422 no_smartcase = FALSE; |
423 | |
424 return ic; | |
425 } | |
426 | |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
427 /* |
6991 | 428 * Return TRUE if pattern "pat" has an uppercase character. |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
429 */ |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
430 int |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
431 pat_has_uppercase(char_u *pat) |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
432 { |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
433 char_u *p = pat; |
25457
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
434 magic_T magic_val = MAGIC_ON; |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
435 |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
436 // get the magicness of the pattern |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
437 (void)skip_regexp_ex(pat, NUL, magic_isset(), NULL, NULL, &magic_val); |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
438 |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
439 while (*p != NUL) |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
440 { |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
441 int l; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
442 |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
443 if (has_mbyte && (l = (*mb_ptr2len)(p)) > 1) |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
444 { |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
445 if (enc_utf8 && utf_isupper(utf_ptr2char(p))) |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
446 return TRUE; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
447 p += l; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
448 } |
25511
a6eea433586b
patch 8.2.3292: underscore in very magic pattern causes a hang
Bram Moolenaar <Bram@vim.org>
parents:
25457
diff
changeset
|
449 else if (*p == '\\' && magic_val <= MAGIC_ON) |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
450 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
451 if (p[1] == '_' && p[2] != NUL) // skip "\_X" |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
452 p += 3; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
453 else if (p[1] == '%' && p[2] != NUL) // skip "\%X" |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
454 p += 3; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
455 else if (p[1] != NUL) // skip "\X" |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
456 p += 2; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
457 else |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
458 p += 1; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
459 } |
25457
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
460 else if ((*p == '%' || *p == '_') && magic_val == MAGIC_ALL) |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
461 { |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
462 if (p[1] != NUL) // skip "_X" and %X |
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
463 p += 2; |
25511
a6eea433586b
patch 8.2.3292: underscore in very magic pattern causes a hang
Bram Moolenaar <Bram@vim.org>
parents:
25457
diff
changeset
|
464 else |
a6eea433586b
patch 8.2.3292: underscore in very magic pattern causes a hang
Bram Moolenaar <Bram@vim.org>
parents:
25457
diff
changeset
|
465 p++; |
25457
b95f9cc3d1b9
patch 8.2.3265: smartcase does not work correctly in very magic pattern
Bram Moolenaar <Bram@vim.org>
parents:
25437
diff
changeset
|
466 } |
2302
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
467 else if (MB_ISUPPER(*p)) |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
468 return TRUE; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
469 else |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
470 ++p; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
471 } |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
472 return FALSE; |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
473 } |
488be8cbe19c
Make CTRL-L in command line mode respect 'ignorecase' and 'smartcase'. (Martin
Bram Moolenaar <bram@vim.org>
parents:
2282
diff
changeset
|
474 |
15555
d89c5b339c2a
patch 8.1.0785: depending on the configuration some functions are unused
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
475 #if defined(FEAT_EVAL) || defined(PROTO) |
7 | 476 char_u * |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
477 last_csearch(void) |
6991 | 478 { |
479 return lastc_bytes; | |
480 } | |
481 | |
482 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
483 last_csearch_forward(void) |
6991 | 484 { |
485 return lastcdir == FORWARD; | |
486 } | |
487 | |
488 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
489 last_csearch_until(void) |
6991 | 490 { |
491 return last_t_cmd == TRUE; | |
492 } | |
493 | |
494 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
495 set_last_csearch(int c, char_u *s UNUSED, int len UNUSED) |
6991 | 496 { |
497 *lastc = c; | |
498 lastc_bytelen = len; | |
499 if (len) | |
500 memcpy(lastc_bytes, s, len); | |
501 else | |
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19977
diff
changeset
|
502 CLEAR_FIELD(lastc_bytes); |
6991 | 503 } |
15555
d89c5b339c2a
patch 8.1.0785: depending on the configuration some functions are unused
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
504 #endif |
6991 | 505 |
506 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
507 set_csearch_direction(int cdir) |
6991 | 508 { |
509 lastcdir = cdir; | |
510 } | |
511 | |
512 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
513 set_csearch_until(int t_cmd) |
6991 | 514 { |
515 last_t_cmd = t_cmd; | |
516 } | |
517 | |
518 char_u * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
519 last_search_pat(void) |
7 | 520 { |
521 return spats[last_idx].pat; | |
522 } | |
523 | |
524 /* | |
525 * Reset search direction to forward. For "gd" and "gD" commands. | |
526 */ | |
527 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
528 reset_search_dir(void) |
7 | 529 { |
530 spats[0].off.dir = '/'; | |
1624 | 531 #if defined(FEAT_EVAL) |
532 set_vv_searchforward(); | |
533 #endif | |
7 | 534 } |
535 | |
536 #if defined(FEAT_EVAL) || defined(FEAT_VIMINFO) | |
537 /* | |
538 * Set the last search pattern. For ":let @/ =" and viminfo. | |
539 * Also set the saved search pattern, so that this works in an autocommand. | |
540 */ | |
541 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
542 set_last_search_pat( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
543 char_u *s, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
544 int idx, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
545 int magic, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
546 int setlast) |
7 | 547 { |
548 vim_free(spats[idx].pat); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
549 // An empty string means that nothing should be matched. |
7 | 550 if (*s == NUL) |
551 spats[idx].pat = NULL; | |
552 else | |
553 spats[idx].pat = vim_strsave(s); | |
554 spats[idx].magic = magic; | |
555 spats[idx].no_scs = FALSE; | |
556 spats[idx].off.dir = '/'; | |
1624 | 557 #if defined(FEAT_EVAL) |
558 set_vv_searchforward(); | |
559 #endif | |
7 | 560 spats[idx].off.line = FALSE; |
561 spats[idx].off.end = FALSE; | |
562 spats[idx].off.off = 0; | |
563 if (setlast) | |
564 last_idx = idx; | |
565 if (save_level) | |
566 { | |
567 vim_free(saved_spats[idx].pat); | |
568 saved_spats[idx] = spats[0]; | |
569 if (spats[idx].pat == NULL) | |
570 saved_spats[idx].pat = NULL; | |
571 else | |
572 saved_spats[idx].pat = vim_strsave(spats[idx].pat); | |
15971
ced614446eaa
patch 8.1.0991: cannot build with a mix of features
Bram Moolenaar <Bram@vim.org>
parents:
15930
diff
changeset
|
573 # ifdef FEAT_SEARCH_EXTRA |
15091
e8fdc71f3ea0
patch 8.1.0556: saving/restoring search patterns share saved last_idx
Bram Moolenaar <Bram@vim.org>
parents:
15089
diff
changeset
|
574 saved_spats_last_idx = last_idx; |
15971
ced614446eaa
patch 8.1.0991: cannot build with a mix of features
Bram Moolenaar <Bram@vim.org>
parents:
15930
diff
changeset
|
575 # endif |
7 | 576 } |
577 # ifdef FEAT_SEARCH_EXTRA | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
578 // If 'hlsearch' set and search pat changed: need redraw. |
7 | 579 if (p_hls && idx == last_idx && !no_hlsearch) |
745 | 580 redraw_all_later(SOME_VALID); |
7 | 581 # endif |
582 } | |
583 #endif | |
584 | |
585 #ifdef FEAT_SEARCH_EXTRA | |
586 /* | |
587 * Get a regexp program for the last used search pattern. | |
588 * This is used for highlighting all matches in a window. | |
589 * Values returned in regmatch->regprog and regmatch->rmm_ic. | |
590 */ | |
591 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
592 last_pat_prog(regmmatch_T *regmatch) |
7 | 593 { |
594 if (spats[last_idx].pat == NULL) | |
595 { | |
596 regmatch->regprog = NULL; | |
597 return; | |
598 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
599 ++emsg_off; // So it doesn't beep if bad expr |
7 | 600 (void)search_regcomp((char_u *)"", 0, last_idx, SEARCH_KEEP, regmatch); |
601 --emsg_off; | |
602 } | |
603 #endif | |
604 | |
605 /* | |
5735 | 606 * Lowest level search function. |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
607 * Search for 'count'th occurrence of pattern "pat" in direction "dir". |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
608 * Start at position "pos" and return the found position in "pos". |
7 | 609 * |
610 * if (options & SEARCH_MSG) == 0 don't give any messages | |
611 * if (options & SEARCH_MSG) == SEARCH_NFMSG don't give 'notfound' messages | |
612 * if (options & SEARCH_MSG) == SEARCH_MSG give all messages | |
613 * if (options & SEARCH_HIS) put search pattern in history | |
614 * if (options & SEARCH_END) return position at end of match | |
615 * if (options & SEARCH_START) accept match at pos itself | |
616 * if (options & SEARCH_KEEP) keep previous search pattern | |
617 * if (options & SEARCH_FOLD) match only once in a closed fold | |
618 * if (options & SEARCH_PEEK) check for typed char, cancel search | |
7358
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
619 * if (options & SEARCH_COL) start at pos->col instead of zero |
7 | 620 * |
621 * Return FAIL (zero) for failure, non-zero for success. | |
622 * When FEAT_EVAL is defined, returns the index of the first matching | |
623 * subpattern plus one; one if there was none. | |
624 */ | |
625 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
626 searchit( |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
627 win_T *win, // window to search in; can be NULL for a |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
628 // buffer without a window! |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
629 buf_T *buf, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
630 pos_T *pos, |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
631 pos_T *end_pos, // set to end of the match, unless NULL |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
632 int dir, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
633 char_u *pat, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
634 long count, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
635 int options, |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
636 int pat_use, // which pattern to use when "pat" is empty |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
637 searchit_arg_T *extra_arg) // optional extra arguments, can be NULL |
7 | 638 { |
639 int found; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
640 linenr_T lnum; // no init to shut up Apollo cc |
7358
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
641 colnr_T col; |
7 | 642 regmmatch_T regmatch; |
643 char_u *ptr; | |
644 colnr_T matchcol; | |
645 lpos_T endpos; | |
140 | 646 lpos_T matchpos; |
7 | 647 int loop; |
648 pos_T start_pos; | |
649 int at_first_line; | |
650 int extra_col; | |
6903 | 651 int start_char_len; |
7 | 652 int match_ok; |
653 long nmatched; | |
654 int submatch = 0; | |
6402 | 655 int first_match = TRUE; |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
656 int called_emsg_before = called_emsg; |
7 | 657 #ifdef FEAT_SEARCH_EXTRA |
658 int break_loop = FALSE; | |
659 #endif | |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
660 linenr_T stop_lnum = 0; // stop after this line number when != 0 |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
661 #ifdef FEAT_RELTIME |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
662 proftime_T *tm = NULL; // timeout limit or NULL |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
663 int *timed_out = NULL; // set when timed out or NULL |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
664 #endif |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
665 |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
666 if (extra_arg != NULL) |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
667 { |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
668 stop_lnum = extra_arg->sa_stop_lnum; |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
669 #ifdef FEAT_RELTIME |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
670 tm = extra_arg->sa_tm; |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
671 timed_out = &extra_arg->sa_timed_out; |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
672 #endif |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
673 } |
7 | 674 |
675 if (search_regcomp(pat, RE_SEARCH, pat_use, | |
676 (options & (SEARCH_HIS + SEARCH_KEEP)), ®match) == FAIL) | |
677 { | |
678 if ((options & SEARCH_MSG) && !rc_did_emsg) | |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
679 semsg(_(e_invalid_search_string_str), mr_pattern); |
7 | 680 return FAIL; |
681 } | |
682 | |
648 | 683 /* |
684 * find the string | |
685 */ | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
686 do // loop for count |
7 | 687 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
688 // When not accepting a match at the start position set "extra_col" to |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
689 // a non-zero value. Don't do that when starting at MAXCOL, since |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
690 // MAXCOL + 1 is zero. |
6903 | 691 if (pos->col == MAXCOL) |
692 start_char_len = 0; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
693 // Watch out for the "col" being MAXCOL - 2, used in a closed fold. |
6903 | 694 else if (has_mbyte |
695 && pos->lnum >= 1 && pos->lnum <= buf->b_ml.ml_line_count | |
696 && pos->col < MAXCOL - 2) | |
6402 | 697 { |
13223
e37327129859
patch 8.0.1486: accessing invalid memory with "it"
Christian Brabandt <cb@256bit.org>
parents:
13217
diff
changeset
|
698 ptr = ml_get_buf(buf, pos->lnum, FALSE); |
13225
1961162121c7
patch 8.0.1487: test 14 fails
Christian Brabandt <cb@256bit.org>
parents:
13223
diff
changeset
|
699 if ((int)STRLEN(ptr) <= pos->col) |
6903 | 700 start_char_len = 1; |
6402 | 701 else |
13223
e37327129859
patch 8.0.1486: accessing invalid memory with "it"
Christian Brabandt <cb@256bit.org>
parents:
13217
diff
changeset
|
702 start_char_len = (*mb_ptr2len)(ptr + pos->col); |
6402 | 703 } |
704 else | |
6903 | 705 start_char_len = 1; |
706 if (dir == FORWARD) | |
707 { | |
708 if (options & SEARCH_START) | |
709 extra_col = 0; | |
710 else | |
711 extra_col = start_char_len; | |
712 } | |
713 else | |
714 { | |
715 if (options & SEARCH_START) | |
716 extra_col = start_char_len; | |
717 else | |
718 extra_col = 0; | |
719 } | |
6402 | 720 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
721 start_pos = *pos; // remember start pos for detecting no match |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
722 found = 0; // default: not found |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
723 at_first_line = TRUE; // default: start in first line |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
724 if (pos->lnum == 0) // correct lnum for when starting in line 0 |
7 | 725 { |
726 pos->lnum = 1; | |
727 pos->col = 0; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
728 at_first_line = FALSE; // not in first line now |
7 | 729 } |
730 | |
731 /* | |
732 * Start searching in current line, unless searching backwards and | |
733 * we're in column 0. | |
1311 | 734 * If we are searching backwards, in column 0, and not including the |
735 * current position, gain some efficiency by skipping back a line. | |
736 * Otherwise begin the search in the current line. | |
7 | 737 */ |
1311 | 738 if (dir == BACKWARD && start_pos.col == 0 |
739 && (options & SEARCH_START) == 0) | |
7 | 740 { |
741 lnum = pos->lnum - 1; | |
742 at_first_line = FALSE; | |
743 } | |
744 else | |
745 lnum = pos->lnum; | |
746 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
747 for (loop = 0; loop <= 1; ++loop) // loop twice if 'wrapscan' set |
7 | 748 { |
749 for ( ; lnum > 0 && lnum <= buf->b_ml.ml_line_count; | |
750 lnum += dir, at_first_line = FALSE) | |
751 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
752 // Stop after checking "stop_lnum", if it's set. |
692 | 753 if (stop_lnum != 0 && (dir == FORWARD |
754 ? lnum > stop_lnum : lnum < stop_lnum)) | |
755 break; | |
1496 | 756 #ifdef FEAT_RELTIME |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
757 // Stop after passing the "tm" time limit. |
1496 | 758 if (tm != NULL && profile_passed_limit(tm)) |
759 break; | |
760 #endif | |
692 | 761 |
7 | 762 /* |
140 | 763 * Look for a match somewhere in line "lnum". |
7 | 764 */ |
7358
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
765 col = at_first_line && (options & SEARCH_COL) ? pos->col |
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
766 : (colnr_T)0; |
7 | 767 nmatched = vim_regexec_multi(®match, win, buf, |
7358
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
768 lnum, col, |
1521 | 769 #ifdef FEAT_RELTIME |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
770 tm, timed_out |
1521 | 771 #else |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
772 NULL, NULL |
1521 | 773 #endif |
774 ); | |
22478
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
775 // vim_regexec_multi() may clear "regprog" |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
776 if (regmatch.regprog == NULL) |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
777 break; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
778 // Abort searching on an error (e.g., out of stack). |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
779 if (called_emsg > called_emsg_before |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
780 #ifdef FEAT_RELTIME |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
781 || (timed_out != NULL && *timed_out) |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
782 #endif |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
783 ) |
7 | 784 break; |
785 if (nmatched > 0) | |
786 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
787 // match may actually be in another line when using \zs |
140 | 788 matchpos = regmatch.startpos[0]; |
7 | 789 endpos = regmatch.endpos[0]; |
1521 | 790 #ifdef FEAT_EVAL |
7 | 791 submatch = first_submatch(®match); |
1521 | 792 #endif |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
793 // "lnum" may be past end of buffer for "\n\zs". |
685 | 794 if (lnum + matchpos.lnum > buf->b_ml.ml_line_count) |
795 ptr = (char_u *)""; | |
796 else | |
797 ptr = ml_get_buf(buf, lnum + matchpos.lnum, FALSE); | |
7 | 798 |
799 /* | |
800 * Forward search in the first line: match should be after | |
801 * the start position. If not, continue at the end of the | |
802 * match (this is vi compatible) or on the next char. | |
803 */ | |
804 if (dir == FORWARD && at_first_line) | |
805 { | |
806 match_ok = TRUE; | |
807 /* | |
140 | 808 * When the match starts in a next line it's certainly |
809 * past the start position. | |
7 | 810 * When match lands on a NUL the cursor will be put |
811 * one back afterwards, compare with that position, | |
812 * otherwise "/$" will get stuck on end of line. | |
813 */ | |
140 | 814 while (matchpos.lnum == 0 |
6402 | 815 && ((options & SEARCH_END) && first_match |
140 | 816 ? (nmatched == 1 |
817 && (int)endpos.col - 1 | |
7 | 818 < (int)start_pos.col + extra_col) |
140 | 819 : ((int)matchpos.col |
820 - (ptr[matchpos.col] == NUL) | |
821 < (int)start_pos.col + extra_col))) | |
7 | 822 { |
823 /* | |
824 * If vi-compatible searching, continue at the end | |
825 * of the match, otherwise continue one position | |
826 * forward. | |
827 */ | |
828 if (vim_strchr(p_cpo, CPO_SEARCH) != NULL) | |
829 { | |
830 if (nmatched > 1) | |
831 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
832 // end is in next line, thus no match in |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
833 // this line |
7 | 834 match_ok = FALSE; |
835 break; | |
836 } | |
837 matchcol = endpos.col; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
838 // for empty match: advance one char |
140 | 839 if (matchcol == matchpos.col |
7 | 840 && ptr[matchcol] != NUL) |
841 { | |
842 if (has_mbyte) | |
843 matchcol += | |
474 | 844 (*mb_ptr2len)(ptr + matchcol); |
7 | 845 else |
846 ++matchcol; | |
847 } | |
848 } | |
849 else | |
850 { | |
140 | 851 matchcol = matchpos.col; |
7 | 852 if (ptr[matchcol] != NUL) |
853 { | |
854 if (has_mbyte) | |
474 | 855 matchcol += (*mb_ptr2len)(ptr |
7 | 856 + matchcol); |
857 else | |
858 ++matchcol; | |
859 } | |
860 } | |
4252 | 861 if (matchcol == 0 && (options & SEARCH_START)) |
4240 | 862 break; |
7 | 863 if (ptr[matchcol] == NUL |
864 || (nmatched = vim_regexec_multi(®match, | |
140 | 865 win, buf, lnum + matchpos.lnum, |
1521 | 866 matchcol, |
867 #ifdef FEAT_RELTIME | |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
868 tm, timed_out |
1521 | 869 #else |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
870 NULL, NULL |
1521 | 871 #endif |
872 )) == 0) | |
7 | 873 { |
874 match_ok = FALSE; | |
875 break; | |
876 } | |
22478
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
877 // vim_regexec_multi() may clear "regprog" |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
878 if (regmatch.regprog == NULL) |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
879 break; |
140 | 880 matchpos = regmatch.startpos[0]; |
7 | 881 endpos = regmatch.endpos[0]; |
882 # ifdef FEAT_EVAL | |
883 submatch = first_submatch(®match); | |
884 # endif | |
885 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
886 // Need to get the line pointer again, a |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
887 // multi-line search may have made it invalid. |
140 | 888 ptr = ml_get_buf(buf, lnum + matchpos.lnum, FALSE); |
7 | 889 } |
890 if (!match_ok) | |
891 continue; | |
892 } | |
893 if (dir == BACKWARD) | |
894 { | |
895 /* | |
896 * Now, if there are multiple matches on this line, | |
897 * we have to get the last one. Or the last one before | |
898 * the cursor, if we're on that line. | |
899 * When putting the new cursor at the end, compare | |
900 * relative to the end of the match. | |
901 */ | |
902 match_ok = FALSE; | |
903 for (;;) | |
904 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
905 // Remember a position that is before the start |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
906 // position, we use it if it's the last match in |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
907 // the line. Always accept a position after |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
908 // wrapping around. |
140 | 909 if (loop |
910 || ((options & SEARCH_END) | |
911 ? (lnum + regmatch.endpos[0].lnum | |
912 < start_pos.lnum | |
913 || (lnum + regmatch.endpos[0].lnum | |
914 == start_pos.lnum | |
915 && (int)regmatch.endpos[0].col - 1 | |
6903 | 916 < (int)start_pos.col |
917 + extra_col)) | |
140 | 918 : (lnum + regmatch.startpos[0].lnum |
919 < start_pos.lnum | |
920 || (lnum + regmatch.startpos[0].lnum | |
921 == start_pos.lnum | |
922 && (int)regmatch.startpos[0].col | |
6903 | 923 < (int)start_pos.col |
924 + extra_col)))) | |
7 | 925 { |
926 match_ok = TRUE; | |
140 | 927 matchpos = regmatch.startpos[0]; |
7 | 928 endpos = regmatch.endpos[0]; |
929 # ifdef FEAT_EVAL | |
930 submatch = first_submatch(®match); | |
931 # endif | |
932 } | |
933 else | |
934 break; | |
935 | |
936 /* | |
937 * We found a valid match, now check if there is | |
938 * another one after it. | |
939 * If vi-compatible searching, continue at the end | |
940 * of the match, otherwise continue one position | |
941 * forward. | |
942 */ | |
943 if (vim_strchr(p_cpo, CPO_SEARCH) != NULL) | |
944 { | |
945 if (nmatched > 1) | |
946 break; | |
947 matchcol = endpos.col; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
948 // for empty match: advance one char |
140 | 949 if (matchcol == matchpos.col |
7 | 950 && ptr[matchcol] != NUL) |
951 { | |
952 if (has_mbyte) | |
953 matchcol += | |
474 | 954 (*mb_ptr2len)(ptr + matchcol); |
7 | 955 else |
956 ++matchcol; | |
957 } | |
958 } | |
959 else | |
960 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
961 // Stop when the match is in a next line. |
140 | 962 if (matchpos.lnum > 0) |
963 break; | |
964 matchcol = matchpos.col; | |
7 | 965 if (ptr[matchcol] != NUL) |
966 { | |
967 if (has_mbyte) | |
968 matchcol += | |
474 | 969 (*mb_ptr2len)(ptr + matchcol); |
7 | 970 else |
971 ++matchcol; | |
972 } | |
973 } | |
974 if (ptr[matchcol] == NUL | |
975 || (nmatched = vim_regexec_multi(®match, | |
140 | 976 win, buf, lnum + matchpos.lnum, |
1521 | 977 matchcol, |
978 #ifdef FEAT_RELTIME | |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
979 tm, timed_out |
1521 | 980 #else |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
981 NULL, NULL |
1521 | 982 #endif |
983 )) == 0) | |
13217
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
984 { |
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
985 #ifdef FEAT_RELTIME |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
986 // If the search timed out, we did find a match |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
987 // but it might be the wrong one, so that's not |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
988 // OK. |
13217
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
989 if (timed_out != NULL && *timed_out) |
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
990 match_ok = FALSE; |
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
991 #endif |
7 | 992 break; |
13217
891b821d3602
patch 8.0.1483: searchpair() might return an invalid value on timeout
Christian Brabandt <cb@256bit.org>
parents:
13210
diff
changeset
|
993 } |
22478
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
994 // vim_regexec_multi() may clear "regprog" |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
995 if (regmatch.regprog == NULL) |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
996 break; |
7 | 997 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
998 // Need to get the line pointer again, a |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
999 // multi-line search may have made it invalid. |
140 | 1000 ptr = ml_get_buf(buf, lnum + matchpos.lnum, FALSE); |
7 | 1001 } |
1002 | |
1003 /* | |
1004 * If there is only a match after the cursor, skip | |
1005 * this match. | |
1006 */ | |
1007 if (!match_ok) | |
1008 continue; | |
1009 } | |
1010 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1011 // With the SEARCH_END option move to the last character |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1012 // of the match. Don't do it for an empty match, end |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1013 // should be same as start then. |
4252 | 1014 if ((options & SEARCH_END) && !(options & SEARCH_NOOF) |
1544 | 1015 && !(matchpos.lnum == endpos.lnum |
1016 && matchpos.col == endpos.col)) | |
7 | 1017 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1018 // For a match in the first column, set the position |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1019 // on the NUL in the previous line. |
140 | 1020 pos->lnum = lnum + endpos.lnum; |
1544 | 1021 pos->col = endpos.col; |
1022 if (endpos.col == 0) | |
819 | 1023 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1024 if (pos->lnum > 1) // just in case |
1544 | 1025 { |
1026 --pos->lnum; | |
1027 pos->col = (colnr_T)STRLEN(ml_get_buf(buf, | |
1028 pos->lnum, FALSE)); | |
1029 } | |
1030 } | |
1031 else | |
1032 { | |
1033 --pos->col; | |
1034 if (has_mbyte | |
1035 && pos->lnum <= buf->b_ml.ml_line_count) | |
1036 { | |
1060 | 1037 ptr = ml_get_buf(buf, pos->lnum, FALSE); |
1544 | 1038 pos->col -= (*mb_head_off)(ptr, ptr + pos->col); |
1039 } | |
819 | 1040 } |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1041 if (end_pos != NULL) |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1042 { |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1043 end_pos->lnum = lnum + matchpos.lnum; |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1044 end_pos->col = matchpos.col; |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1045 } |
7 | 1046 } |
1047 else | |
1048 { | |
140 | 1049 pos->lnum = lnum + matchpos.lnum; |
1050 pos->col = matchpos.col; | |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1051 if (end_pos != NULL) |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1052 { |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1053 end_pos->lnum = lnum + endpos.lnum; |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1054 end_pos->col = endpos.col; |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1055 } |
7 | 1056 } |
1057 pos->coladd = 0; | |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1058 if (end_pos != NULL) |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
1059 end_pos->coladd = 0; |
7 | 1060 found = 1; |
6402 | 1061 first_match = FALSE; |
7 | 1062 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1063 // Set variables used for 'incsearch' highlighting. |
140 | 1064 search_match_lines = endpos.lnum - matchpos.lnum; |
7 | 1065 search_match_endcol = endpos.col; |
1066 break; | |
1067 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1068 line_breakcheck(); // stop if ctrl-C typed |
7 | 1069 if (got_int) |
1070 break; | |
1071 | |
1072 #ifdef FEAT_SEARCH_EXTRA | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1073 // Cancel searching if a character was typed. Used for |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1074 // 'incsearch'. Don't check too often, that would slowdown |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1075 // searching too much. |
7 | 1076 if ((options & SEARCH_PEEK) |
1077 && ((lnum - pos->lnum) & 0x3f) == 0 | |
1078 && char_avail()) | |
1079 { | |
1080 break_loop = TRUE; | |
1081 break; | |
1082 } | |
1083 #endif | |
1084 | |
1085 if (loop && lnum == start_pos.lnum) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1086 break; // if second loop, stop where started |
7 | 1087 } |
1088 at_first_line = FALSE; | |
1089 | |
22478
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
1090 // vim_regexec_multi() may clear "regprog" |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
1091 if (regmatch.regprog == NULL) |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
1092 break; |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
1093 |
7 | 1094 /* |
692 | 1095 * Stop the search if wrapscan isn't set, "stop_lnum" is |
1096 * specified, after an interrupt, after a match and after looping | |
1097 * twice. | |
7 | 1098 */ |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
1099 if (!p_ws || stop_lnum != 0 || got_int |
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
1100 || called_emsg > called_emsg_before |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1101 #ifdef FEAT_RELTIME |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1102 || (timed_out != NULL && *timed_out) |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1103 #endif |
1877 | 1104 #ifdef FEAT_SEARCH_EXTRA |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1105 || break_loop |
1877 | 1106 #endif |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1107 || found || loop) |
7 | 1108 break; |
1109 | |
1110 /* | |
1111 * If 'wrapscan' is set we continue at the other end of the file. | |
1112 * If 'shortmess' does not contain 's', we give a message. | |
1113 * This message is also remembered in keep_msg for when the screen | |
1114 * is redrawn. The keep_msg is cleared whenever another message is | |
1115 * written. | |
1116 */ | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1117 if (dir == BACKWARD) // start second loop at the other end |
7 | 1118 lnum = buf->b_ml.ml_line_count; |
1119 else | |
1120 lnum = 1; | |
504 | 1121 if (!shortmess(SHM_SEARCH) && (options & SEARCH_MSG)) |
1122 give_warning((char_u *)_(dir == BACKWARD | |
1123 ? top_bot_msg : bot_top_msg), TRUE); | |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
1124 if (extra_arg != NULL) |
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
1125 extra_arg->sa_wrapped = TRUE; |
7 | 1126 } |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
1127 if (got_int || called_emsg > called_emsg_before |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1128 #ifdef FEAT_RELTIME |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1129 || (timed_out != NULL && *timed_out) |
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11488
diff
changeset
|
1130 #endif |
1877 | 1131 #ifdef FEAT_SEARCH_EXTRA |
1132 || break_loop | |
1133 #endif | |
1134 ) | |
7 | 1135 break; |
1136 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1137 while (--count > 0 && found); // stop after count matches or no match |
7 | 1138 |
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4352
diff
changeset
|
1139 vim_regfree(regmatch.regprog); |
7 | 1140 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1141 if (!found) // did not find it |
7 | 1142 { |
1143 if (got_int) | |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
1144 emsg(_(e_interrupted)); |
7 | 1145 else if ((options & SEARCH_MSG) == SEARCH_MSG) |
1146 { | |
1147 if (p_ws) | |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26865
diff
changeset
|
1148 semsg(_(e_pattern_not_found_str), mr_pattern); |
7 | 1149 else if (lnum == 0) |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
1150 semsg(_(e_search_hit_top_without_match_for_str), mr_pattern); |
7 | 1151 else |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
1152 semsg(_(e_search_hit_bottom_without_match_for_str), mr_pattern); |
7 | 1153 } |
1154 return FAIL; | |
1155 } | |
1156 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1157 // A pattern like "\n\zs" may go past the last line. |
685 | 1158 if (pos->lnum > buf->b_ml.ml_line_count) |
1159 { | |
1160 pos->lnum = buf->b_ml.ml_line_count; | |
835 | 1161 pos->col = (int)STRLEN(ml_get_buf(buf, pos->lnum, FALSE)); |
685 | 1162 if (pos->col > 0) |
1163 --pos->col; | |
1164 } | |
1165 | |
7 | 1166 return submatch + 1; |
1167 } | |
1168 | |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
1169 #if defined(FEAT_EVAL) || defined(FEAT_PROTO) |
1624 | 1170 void |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1171 set_search_direction(int cdir) |
1624 | 1172 { |
1173 spats[0].off.dir = cdir; | |
1174 } | |
1175 | |
1176 static void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1177 set_vv_searchforward(void) |
1624 | 1178 { |
1179 set_vim_var_nr(VV_SEARCHFORWARD, (long)(spats[0].off.dir == '/')); | |
1180 } | |
1181 | |
7 | 1182 /* |
1183 * Return the number of the first subpat that matched. | |
7358
6fbeef3b65e6
commit https://github.com/vim/vim/commit/ad4d8a192abf44b89371af87d70b971cd654b799
Christian Brabandt <cb@256bit.org>
parents:
7070
diff
changeset
|
1184 * Return zero if none of them matched. |
7 | 1185 */ |
1186 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1187 first_submatch(regmmatch_T *rp) |
7 | 1188 { |
1189 int submatch; | |
1190 | |
1191 for (submatch = 1; ; ++submatch) | |
1192 { | |
1193 if (rp->startpos[submatch].lnum >= 0) | |
1194 break; | |
1195 if (submatch == 9) | |
1196 { | |
1197 submatch = 0; | |
1198 break; | |
1199 } | |
1200 } | |
1201 return submatch; | |
1202 } | |
1203 #endif | |
1204 | |
1205 /* | |
1206 * Highest level string search function. | |
1222 | 1207 * Search for the 'count'th occurrence of pattern 'pat' in direction 'dirc' |
7 | 1208 * If 'dirc' is 0: use previous dir. |
1209 * If 'pat' is NULL or empty : use previous string. | |
1210 * If 'options & SEARCH_REV' : go in reverse of previous dir. | |
1211 * If 'options & SEARCH_ECHO': echo the search command and handle options | |
1212 * If 'options & SEARCH_MSG' : may give error message | |
1213 * If 'options & SEARCH_OPT' : interpret optional flags | |
1214 * If 'options & SEARCH_HIS' : put search pattern in history | |
1215 * If 'options & SEARCH_NOOF': don't add offset to position | |
1216 * If 'options & SEARCH_MARK': set previous context mark | |
1217 * If 'options & SEARCH_KEEP': keep previous search pattern | |
1218 * If 'options & SEARCH_START': accept match at curpos itself | |
1219 * If 'options & SEARCH_PEEK': check for typed char, cancel search | |
1220 * | |
1221 * Careful: If spats[0].off.line == TRUE and spats[0].off.off == 0 this | |
1222 * makes the movement linewise without moving the match position. | |
1223 * | |
6661 | 1224 * Return 0 for failure, 1 for found, 2 for found and line offset added. |
7 | 1225 */ |
1226 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1227 do_search( |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1228 oparg_T *oap, // can be NULL |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1229 int dirc, // '/' or '?' |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1230 int search_delim, // the delimiter for the search, e.g. '%' in |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1231 // s%regex%replacement% |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1232 char_u *pat, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1233 long count, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1234 int options, |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
1235 searchit_arg_T *sia) // optional arguments or NULL |
7 | 1236 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1237 pos_T pos; // position of the last match |
7 | 1238 char_u *searchstr; |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
1239 soffset_T old_off; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1240 int retval; // Return value |
7 | 1241 char_u *p; |
1242 long c; | |
1243 char_u *dircp; | |
1244 char_u *strcopy = NULL; | |
1245 char_u *ps; | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1246 char_u *msgbuf = NULL; |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1247 size_t len; |
16776
7d4c814a8554
patch 8.1.1390: search stats are off when using count or offset
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1248 int has_offset = FALSE; |
7 | 1249 |
1250 /* | |
1251 * A line offset is not remembered, this is vi compatible. | |
1252 */ | |
1253 if (spats[0].off.line && vim_strchr(p_cpo, CPO_LINEOFF) != NULL) | |
1254 { | |
1255 spats[0].off.line = FALSE; | |
1256 spats[0].off.off = 0; | |
1257 } | |
1258 | |
1259 /* | |
1260 * Save the values for when (options & SEARCH_KEEP) is used. | |
1261 * (there is no "if ()" around this because gcc wants them initialized) | |
1262 */ | |
1263 old_off = spats[0].off; | |
1264 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1265 pos = curwin->w_cursor; // start searching at the cursor position |
7 | 1266 |
1267 /* | |
1268 * Find out the direction of the search. | |
1269 */ | |
1270 if (dirc == 0) | |
1271 dirc = spats[0].off.dir; | |
1272 else | |
1624 | 1273 { |
7 | 1274 spats[0].off.dir = dirc; |
1624 | 1275 #if defined(FEAT_EVAL) |
1276 set_vv_searchforward(); | |
1277 #endif | |
1278 } | |
7 | 1279 if (options & SEARCH_REV) |
1280 { | |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15850
diff
changeset
|
1281 #ifdef MSWIN |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1282 // There is a bug in the Visual C++ 2.2 compiler which means that |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1283 // dirc always ends up being '/' |
7 | 1284 dirc = (dirc == '/') ? '?' : '/'; |
1285 #else | |
1286 if (dirc == '/') | |
1287 dirc = '?'; | |
1288 else | |
1289 dirc = '/'; | |
1290 #endif | |
1291 } | |
1292 | |
1293 #ifdef FEAT_FOLDING | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1294 // If the cursor is in a closed fold, don't find another match in the same |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1295 // fold. |
7 | 1296 if (dirc == '/') |
1297 { | |
1298 if (hasFolding(pos.lnum, NULL, &pos.lnum)) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1299 pos.col = MAXCOL - 2; // avoid overflow when adding 1 |
7 | 1300 } |
1301 else | |
1302 { | |
1303 if (hasFolding(pos.lnum, &pos.lnum, NULL)) | |
1304 pos.col = 0; | |
1305 } | |
1306 #endif | |
1307 | |
1308 #ifdef FEAT_SEARCH_EXTRA | |
1309 /* | |
1310 * Turn 'hlsearch' highlighting back on. | |
1311 */ | |
1312 if (no_hlsearch && !(options & SEARCH_KEEP)) | |
1313 { | |
745 | 1314 redraw_all_later(SOME_VALID); |
13792
0e9b2971d7c3
patch 8.0.1768: SET_NO_HLSEARCH() used in a wrong way
Christian Brabandt <cb@256bit.org>
parents:
13762
diff
changeset
|
1315 set_no_hlsearch(FALSE); |
7 | 1316 } |
1317 #endif | |
1318 | |
1319 /* | |
1320 * Repeat the search when pattern followed by ';', e.g. "/foo/;?bar". | |
1321 */ | |
1322 for (;;) | |
1323 { | |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
1324 int show_top_bot_msg = FALSE; |
16560
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
1325 |
7 | 1326 searchstr = pat; |
1327 dircp = NULL; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1328 // use previous pattern |
19475
5512aa74cb62
patch 8.2.0295: highlighting for :s wrong when using different separator
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
1329 if (pat == NULL || *pat == NUL || *pat == search_delim) |
7 | 1330 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1331 if (spats[RE_SEARCH].pat == NULL) // no previous pattern |
7 | 1332 { |
10172
ab45de65977b
commit https://github.com/vim/vim/commit/ea683da58cf9ecf3afab9d650d3d2da76e5298d3
Christian Brabandt <cb@256bit.org>
parents:
10064
diff
changeset
|
1333 searchstr = spats[RE_SUBST].pat; |
ab45de65977b
commit https://github.com/vim/vim/commit/ea683da58cf9ecf3afab9d650d3d2da76e5298d3
Christian Brabandt <cb@256bit.org>
parents:
10064
diff
changeset
|
1334 if (searchstr == NULL) |
2719 | 1335 { |
25306
078edc1821bf
patch 8.2.3190: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
25302
diff
changeset
|
1336 emsg(_(e_no_previous_regular_expression)); |
2719 | 1337 retval = 0; |
1338 goto end_do_search; | |
1339 } | |
7 | 1340 } |
2719 | 1341 else |
1342 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1343 // make search_regcomp() use spats[RE_SEARCH].pat |
2719 | 1344 searchstr = (char_u *)""; |
1345 } | |
7 | 1346 } |
1347 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1348 if (pat != NULL && *pat != NUL) // look for (new) offset |
7 | 1349 { |
1350 /* | |
1351 * Find end of regular expression. | |
1352 * If there is a matching '/' or '?', toss it. | |
1353 */ | |
1354 ps = strcopy; | |
23272
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
1355 p = skip_regexp_ex(pat, search_delim, magic_isset(), |
23505
bb29b09902d5
patch 8.2.2295: incsearch does not detect empty pattern properly
Bram Moolenaar <Bram@vim.org>
parents:
23475
diff
changeset
|
1356 &strcopy, NULL, NULL); |
7 | 1357 if (strcopy != ps) |
1358 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1359 // made a copy of "pat" to change "\?" to "?" |
835 | 1360 searchcmdlen += (int)(STRLEN(pat) - STRLEN(strcopy)); |
7 | 1361 pat = strcopy; |
1362 searchstr = strcopy; | |
1363 } | |
19475
5512aa74cb62
patch 8.2.0295: highlighting for :s wrong when using different separator
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
1364 if (*p == search_delim) |
7 | 1365 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1366 dircp = p; // remember where we put the NUL |
7 | 1367 *p++ = NUL; |
1368 } | |
1369 spats[0].off.line = FALSE; | |
1370 spats[0].off.end = FALSE; | |
1371 spats[0].off.off = 0; | |
1372 /* | |
1373 * Check for a line offset or a character offset. | |
1374 * For get_address (echo off) we don't check for a character | |
1375 * offset, because it is meaningless and the 's' could be a | |
1376 * substitute command. | |
1377 */ | |
1378 if (*p == '+' || *p == '-' || VIM_ISDIGIT(*p)) | |
1379 spats[0].off.line = TRUE; | |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
1380 else if ((options & SEARCH_OPT) |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
1381 && (*p == 'e' || *p == 's' || *p == 'b')) |
7 | 1382 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1383 if (*p == 'e') // end |
7 | 1384 spats[0].off.end = SEARCH_END; |
1385 ++p; | |
1386 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1387 if (VIM_ISDIGIT(*p) || *p == '+' || *p == '-') // got an offset |
7 | 1388 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1389 // 'nr' or '+nr' or '-nr' |
7 | 1390 if (VIM_ISDIGIT(*p) || VIM_ISDIGIT(*(p + 1))) |
1391 spats[0].off.off = atol((char *)p); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1392 else if (*p == '-') // single '-' |
7 | 1393 spats[0].off.off = -1; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1394 else // single '+' |
7 | 1395 spats[0].off.off = 1; |
1396 ++p; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1397 while (VIM_ISDIGIT(*p)) // skip number |
7 | 1398 ++p; |
1399 } | |
1400 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1401 // compute length of search command for get_address() |
7 | 1402 searchcmdlen += (int)(p - pat); |
1403 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1404 pat = p; // put pat after search command |
7 | 1405 } |
1406 | |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
1407 if ((options & SEARCH_ECHO) && messaging() |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
1408 && !msg_silent |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
1409 && (!cmd_silent || !shortmess(SHM_SEARCHCOUNT))) |
7 | 1410 { |
1411 char_u *trunc; | |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1412 char_u off_buf[40]; |
16762
97ad98d95214
patch 8.1.1383: warning for size_t/int mixup
Bram Moolenaar <Bram@vim.org>
parents:
16748
diff
changeset
|
1413 size_t off_len = 0; |
7 | 1414 |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1415 // Compute msg_row early. |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1416 msg_start(); |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1417 |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1418 // Get the offset, so we know how long it is. |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1419 if (!cmd_silent && |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1420 (spats[0].off.line || spats[0].off.end || spats[0].off.off)) |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1421 { |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1422 p = off_buf; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1423 *p++ = dirc; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1424 if (spats[0].off.end) |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1425 *p++ = 'e'; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1426 else if (!spats[0].off.line) |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1427 *p++ = 's'; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1428 if (spats[0].off.off > 0 || spats[0].off.line) |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1429 *p++ = '+'; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1430 *p = NUL; |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1431 if (spats[0].off.off != 0 || spats[0].off.line) |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1432 sprintf((char *)p, "%ld", spats[0].off.off); |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1433 off_len = STRLEN(off_buf); |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1434 } |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1435 |
7 | 1436 if (*searchstr == NUL) |
15089
e428882d6ffb
patch 8.1.0555: crash when last search pat is set but not last substitute pat
Bram Moolenaar <Bram@vim.org>
parents:
15083
diff
changeset
|
1437 p = spats[0].pat; |
7 | 1438 else |
1439 p = searchstr; | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1440 |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1441 if (!shortmess(SHM_SEARCHCOUNT) || cmd_silent) |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1442 { |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1443 // Reserve enough space for the search pattern + offset + |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1444 // search stat. Use all the space available, so that the |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1445 // search state is right aligned. If there is not enough space |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1446 // msg_strtrunc() will shorten in the middle. |
17948
c77a41ea0365
patch 8.1.1970: search stat space wrong, no test for 8.1.1965
Bram Moolenaar <Bram@vim.org>
parents:
17938
diff
changeset
|
1447 if (msg_scrolled != 0 && !cmd_silent) |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1448 // Use all the columns. |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1449 len = (int)(Rows - msg_row) * Columns - 1; |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1450 else |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1451 // Use up to 'showcmd' column. |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1452 len = (int)(Rows - msg_row - 1) * Columns + sc_col - 1; |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1453 if (len < STRLEN(p) + off_len + SEARCH_STAT_BUF_LEN + 3) |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1454 len = STRLEN(p) + off_len + SEARCH_STAT_BUF_LEN + 3; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1455 } |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1456 else |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1457 // Reserve enough space for the search pattern + offset. |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
1458 len = STRLEN(p) + off_len + 3; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1459 |
19977
545bdbc36f29
patch 8.2.0544: memory leak in search test
Bram Moolenaar <Bram@vim.org>
parents:
19892
diff
changeset
|
1460 vim_free(msgbuf); |
16782
fc58fee685e2
patch 8.1.1393: unnecessary type casts
Bram Moolenaar <Bram@vim.org>
parents:
16776
diff
changeset
|
1461 msgbuf = alloc(len); |
7 | 1462 if (msgbuf != NULL) |
1463 { | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1464 vim_memset(msgbuf, ' ', len); |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1465 msgbuf[len - 1] = NUL; |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1466 // do not fill the msgbuf buffer, if cmd_silent is set, leave it |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1467 // empty for the search_stat feature. |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1468 if (!cmd_silent) |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1469 { |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1470 msgbuf[0] = dirc; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1471 |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1472 if (enc_utf8 && utf_iscomposing(utf_ptr2char(p))) |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1473 { |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1474 // Use a space to draw the composing char on. |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1475 msgbuf[1] = ' '; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1476 mch_memmove(msgbuf + 2, p, STRLEN(p)); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1477 } |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1478 else |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1479 mch_memmove(msgbuf + 1, p, STRLEN(p)); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1480 if (off_len > 0) |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1481 mch_memmove(msgbuf + STRLEN(p) + 1, off_buf, off_len); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1482 |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1483 trunc = msg_strtrunc(msgbuf, TRUE); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1484 if (trunc != NULL) |
7 | 1485 { |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1486 vim_free(msgbuf); |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1487 msgbuf = trunc; |
7 | 1488 } |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1489 |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1490 #ifdef FEAT_RIGHTLEFT |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1491 // The search pattern could be shown on the right in |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1492 // rightleft mode, but the 'ruler' and 'showcmd' area use |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1493 // it too, thus it would be blanked out again very soon. |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1494 // Show it on the left, but do reverse the text. |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1495 if (curwin->w_p_rl && *curwin->w_p_rlc == 's') |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1496 { |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1497 char_u *r; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1498 size_t pat_len; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1499 |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1500 r = reverse_text(msgbuf); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1501 if (r != NULL) |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1502 { |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1503 vim_free(msgbuf); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1504 msgbuf = r; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1505 // move reversed text to beginning of buffer |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1506 while (*r != NUL && *r == ' ') |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1507 r++; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1508 pat_len = msgbuf + STRLEN(msgbuf) - r; |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1509 mch_memmove(msgbuf, r, pat_len); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1510 // overwrite old text |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1511 if ((size_t)(r - msgbuf) >= pat_len) |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1512 vim_memset(r, ' ', pat_len); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1513 else |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1514 vim_memset(msgbuf + pat_len, ' ', r - msgbuf); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1515 } |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1516 } |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1517 #endif |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1518 msg_outtrans(msgbuf); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1519 msg_clr_eos(); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1520 msg_check(); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1521 |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1522 gotocmdline(FALSE); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1523 out_flush(); |
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1524 msg_nowait = TRUE; // don't wait for this message |
7 | 1525 } |
1526 } | |
1527 } | |
1528 | |
1529 /* | |
1530 * If there is a character offset, subtract it from the current | |
1531 * position, so we don't get stuck at "?pat?e+2" or "/pat/s-2". | |
8 | 1532 * Skip this if pos.col is near MAXCOL (closed fold). |
7 | 1533 * This is not done for a line offset, because then we would not be vi |
1534 * compatible. | |
1535 */ | |
8 | 1536 if (!spats[0].off.line && spats[0].off.off && pos.col < MAXCOL - 2) |
7 | 1537 { |
1538 if (spats[0].off.off > 0) | |
1539 { | |
1540 for (c = spats[0].off.off; c; --c) | |
1541 if (decl(&pos) == -1) | |
1542 break; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1543 if (c) // at start of buffer |
7 | 1544 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1545 pos.lnum = 0; // allow lnum == 0 here |
7 | 1546 pos.col = MAXCOL; |
1547 } | |
1548 } | |
1549 else | |
1550 { | |
1551 for (c = spats[0].off.off; c; ++c) | |
1552 if (incl(&pos) == -1) | |
1553 break; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1554 if (c) // at end of buffer |
7 | 1555 { |
1556 pos.lnum = curbuf->b_ml.ml_line_count + 1; | |
1557 pos.col = 0; | |
1558 } | |
1559 } | |
1560 } | |
1561 | |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1562 /* |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1563 * The actual search. |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1564 */ |
15850
a6ca8cf07a98
patch 8.1.0932: Farsi support is outdated and unused
Bram Moolenaar <Bram@vim.org>
parents:
15758
diff
changeset
|
1565 c = searchit(curwin, curbuf, &pos, NULL, |
a6ca8cf07a98
patch 8.1.0932: Farsi support is outdated and unused
Bram Moolenaar <Bram@vim.org>
parents:
15758
diff
changeset
|
1566 dirc == '/' ? FORWARD : BACKWARD, |
7 | 1567 searchstr, count, spats[0].off.end + (options & |
1568 (SEARCH_KEEP + SEARCH_PEEK + SEARCH_HIS | |
1569 + SEARCH_MSG + SEARCH_START | |
1570 + ((pat != NULL && *pat == ';') ? 0 : SEARCH_NOOF))), | |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
1571 RE_LAST, sia); |
7 | 1572 |
1573 if (dircp != NULL) | |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
1574 *dircp = search_delim; // restore second '/' or '?' for normal_cmd() |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1575 |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1576 if (!shortmess(SHM_SEARCH) |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1577 && ((dirc == '/' && LT_POS(pos, curwin->w_cursor)) |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1578 || (dirc == '?' && LT_POS(curwin->w_cursor, pos)))) |
16560
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
1579 show_top_bot_msg = TRUE; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1580 |
7 | 1581 if (c == FAIL) |
1582 { | |
1583 retval = 0; | |
1584 goto end_do_search; | |
1585 } | |
1586 if (spats[0].off.end && oap != NULL) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1587 oap->inclusive = TRUE; // 'e' includes last character |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1588 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1589 retval = 1; // pattern found |
7 | 1590 |
1591 /* | |
1592 * Add character and/or line offset | |
1593 */ | |
945 | 1594 if (!(options & SEARCH_NOOF) || (pat != NULL && *pat == ';')) |
7 | 1595 { |
16776
7d4c814a8554
patch 8.1.1390: search stats are off when using count or offset
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1596 pos_T org_pos = pos; |
7d4c814a8554
patch 8.1.1390: search stats are off when using count or offset
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1597 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1598 if (spats[0].off.line) // Add the offset to the line number. |
7 | 1599 { |
1600 c = pos.lnum + spats[0].off.off; | |
1601 if (c < 1) | |
1602 pos.lnum = 1; | |
1603 else if (c > curbuf->b_ml.ml_line_count) | |
1604 pos.lnum = curbuf->b_ml.ml_line_count; | |
1605 else | |
1606 pos.lnum = c; | |
1607 pos.col = 0; | |
1608 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1609 retval = 2; // pattern found, line offset added |
7 | 1610 } |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1611 else if (pos.col < MAXCOL - 2) // just in case |
7 | 1612 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1613 // to the right, check for end of file |
1624 | 1614 c = spats[0].off.off; |
1615 if (c > 0) | |
7 | 1616 { |
1624 | 1617 while (c-- > 0) |
7 | 1618 if (incl(&pos) == -1) |
1619 break; | |
1620 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1621 // to the left, check for start of file |
7 | 1622 else |
1623 { | |
1624 | 1624 while (c++ < 0) |
1625 if (decl(&pos) == -1) | |
1626 break; | |
7 | 1627 } |
1628 } | |
16776
7d4c814a8554
patch 8.1.1390: search stats are off when using count or offset
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1629 if (!EQUAL_POS(pos, org_pos)) |
7d4c814a8554
patch 8.1.1390: search stats are off when using count or offset
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1630 has_offset = TRUE; |
7 | 1631 } |
1632 | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1633 // Show [1/15] if 'S' is not in 'shortmess'. |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1634 if ((options & SEARCH_ECHO) |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1635 && messaging() |
17938
1e86f8b18a5d
patch 8.1.1965: search count message is not displayed when using a mapping
Bram Moolenaar <Bram@vim.org>
parents:
17809
diff
changeset
|
1636 && !msg_silent |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1637 && c != FAIL |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1638 && !shortmess(SHM_SEARCHCOUNT) |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1639 && msgbuf != NULL) |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1640 cmdline_search_stat(dirc, &pos, &curwin->w_cursor, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1641 show_top_bot_msg, msgbuf, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1642 (count != 1 || has_offset |
20573
00fff78a929a
patch 8.2.0840: search match count wrong when only match is in fold
Bram Moolenaar <Bram@vim.org>
parents:
20209
diff
changeset
|
1643 #ifdef FEAT_FOLDING |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1644 || (!(fdo_flags & FDO_SEARCH) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1645 && hasFolding(curwin->w_cursor.lnum, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1646 NULL, NULL)) |
20573
00fff78a929a
patch 8.2.0840: search match count wrong when only match is in fold
Bram Moolenaar <Bram@vim.org>
parents:
20209
diff
changeset
|
1647 #endif |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1648 ), |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1649 SEARCH_STAT_DEF_MAX_COUNT, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
1650 SEARCH_STAT_DEF_TIMEOUT); |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1651 |
7 | 1652 /* |
1653 * The search command can be followed by a ';' to do another search. | |
1654 * For example: "/pat/;/foo/+3;?bar" | |
1655 * This is like doing another search command, except: | |
1656 * - The remembered direction '/' or '?' is from the first search. | |
1657 * - When an error happens the cursor isn't moved at all. | |
1658 * Don't do this when called by get_address() (it handles ';' itself). | |
1659 */ | |
1660 if (!(options & SEARCH_OPT) || pat == NULL || *pat != ';') | |
1661 break; | |
1662 | |
1663 dirc = *++pat; | |
19475
5512aa74cb62
patch 8.2.0295: highlighting for :s wrong when using different separator
Bram Moolenaar <Bram@vim.org>
parents:
19384
diff
changeset
|
1664 search_delim = dirc; |
7 | 1665 if (dirc != '?' && dirc != '/') |
1666 { | |
1667 retval = 0; | |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
1668 emsg(_(e_expected_question_or_slash_after_semicolon)); |
7 | 1669 goto end_do_search; |
1670 } | |
1671 ++pat; | |
1672 } | |
1673 | |
1674 if (options & SEARCH_MARK) | |
1675 setpcmark(); | |
1676 curwin->w_cursor = pos; | |
1677 curwin->w_set_curswant = TRUE; | |
1678 | |
1679 end_do_search: | |
22699
e82579016863
patch 8.2.1898: command modifier parsing always uses global cmdmod
Bram Moolenaar <Bram@vim.org>
parents:
22689
diff
changeset
|
1680 if ((options & SEARCH_KEEP) || (cmdmod.cmod_flags & CMOD_KEEPPATTERNS)) |
7 | 1681 spats[0].off = old_off; |
1682 vim_free(strcopy); | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
1683 vim_free(msgbuf); |
7 | 1684 |
1685 return retval; | |
1686 } | |
1687 | |
1688 /* | |
1689 * search_for_exact_line(buf, pos, dir, pat) | |
1690 * | |
1691 * Search for a line starting with the given pattern (ignoring leading | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
1692 * white-space), starting from pos and going in direction "dir". "pos" will |
7 | 1693 * contain the position of the match found. Blank lines match only if |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
1694 * ADDING is set. If p_ic is set then the pattern must be in lowercase. |
7 | 1695 * Return OK for success, or FAIL if no line found. |
1696 */ | |
1697 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1698 search_for_exact_line( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1699 buf_T *buf, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1700 pos_T *pos, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1701 int dir, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1702 char_u *pat) |
7 | 1703 { |
1704 linenr_T start = 0; | |
1705 char_u *ptr; | |
1706 char_u *p; | |
1707 | |
1708 if (buf->b_ml.ml_line_count == 0) | |
1709 return FAIL; | |
1710 for (;;) | |
1711 { | |
1712 pos->lnum += dir; | |
1713 if (pos->lnum < 1) | |
1714 { | |
1715 if (p_ws) | |
1716 { | |
1717 pos->lnum = buf->b_ml.ml_line_count; | |
1718 if (!shortmess(SHM_SEARCH)) | |
1719 give_warning((char_u *)_(top_bot_msg), TRUE); | |
1720 } | |
1721 else | |
1722 { | |
1723 pos->lnum = 1; | |
1724 break; | |
1725 } | |
1726 } | |
1727 else if (pos->lnum > buf->b_ml.ml_line_count) | |
1728 { | |
1729 if (p_ws) | |
1730 { | |
1731 pos->lnum = 1; | |
1732 if (!shortmess(SHM_SEARCH)) | |
1733 give_warning((char_u *)_(bot_top_msg), TRUE); | |
1734 } | |
1735 else | |
1736 { | |
1737 pos->lnum = 1; | |
1738 break; | |
1739 } | |
1740 } | |
1741 if (pos->lnum == start) | |
1742 break; | |
1743 if (start == 0) | |
1744 start = pos->lnum; | |
1745 ptr = ml_get_buf(buf, pos->lnum, FALSE); | |
1746 p = skipwhite(ptr); | |
1747 pos->col = (colnr_T) (p - ptr); | |
1748 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1749 // when adding lines the matching line may be empty but it is not |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1750 // ignored because we are interested in the next line -- Acevedo |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
1751 if (compl_status_adding() && !compl_status_sol()) |
7 | 1752 { |
1753 if ((p_ic ? MB_STRICMP(p, pat) : STRCMP(p, pat)) == 0) | |
1754 return OK; | |
1755 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1756 else if (*p != NUL) // ignore empty lines |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1757 { // expanding lines or words |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
1758 if ((p_ic ? MB_STRNICMP(p, pat, ins_compl_len()) |
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
1759 : STRNCMP(p, pat, ins_compl_len())) == 0) |
7 | 1760 return OK; |
1761 } | |
1762 } | |
1763 return FAIL; | |
1764 } | |
1765 | |
1766 /* | |
1767 * Character Searches | |
1768 */ | |
1769 | |
1770 /* | |
1771 * Search for a character in a line. If "t_cmd" is FALSE, move to the | |
1772 * position of the character, otherwise move to just before the char. | |
1773 * Do this "cap->count1" times. | |
1774 * Return FAIL or OK. | |
1775 */ | |
1776 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1777 searchc(cmdarg_T *cap, int t_cmd) |
7 | 1778 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1779 int c = cap->nchar; // char to search for |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1780 int dir = cap->arg; // TRUE for searching forward |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1781 long count = cap->count1; // repeat count |
7 | 1782 int col; |
1783 char_u *p; | |
1784 int len; | |
2925 | 1785 int stop = TRUE; |
7 | 1786 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1787 if (c != NUL) // normal search: remember args for repeat |
7 | 1788 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1789 if (!KeyStuffed) // don't remember when redoing |
7 | 1790 { |
6991 | 1791 *lastc = c; |
1792 set_csearch_direction(dir); | |
1793 set_csearch_until(t_cmd); | |
1794 lastc_bytelen = (*mb_char2bytes)(c, lastc_bytes); | |
7 | 1795 if (cap->ncharC1 != 0) |
1796 { | |
6991 | 1797 lastc_bytelen += (*mb_char2bytes)(cap->ncharC1, |
1798 lastc_bytes + lastc_bytelen); | |
7 | 1799 if (cap->ncharC2 != 0) |
6991 | 1800 lastc_bytelen += (*mb_char2bytes)(cap->ncharC2, |
1801 lastc_bytes + lastc_bytelen); | |
7 | 1802 } |
1803 } | |
1804 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1805 else // repeat previous search |
7 | 1806 { |
15605
62b3805506b3
patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15555
diff
changeset
|
1807 if (*lastc == NUL && lastc_bytelen == 1) |
7 | 1808 return FAIL; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1809 if (dir) // repeat in opposite direction |
7 | 1810 dir = -lastcdir; |
1811 else | |
1812 dir = lastcdir; | |
1813 t_cmd = last_t_cmd; | |
6991 | 1814 c = *lastc; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1815 // For multi-byte re-use last lastc_bytes[] and lastc_bytelen. |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1816 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1817 // Force a move of at least one char, so ";" and "," will move the |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1818 // cursor, even if the cursor is right in front of char we are looking |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1819 // at. |
2947 | 1820 if (vim_strchr(p_cpo, CPO_SCOLON) == NULL && count == 1 && t_cmd) |
2925 | 1821 stop = FALSE; |
7 | 1822 } |
1823 | |
530 | 1824 if (dir == BACKWARD) |
1825 cap->oap->inclusive = FALSE; | |
1826 else | |
1827 cap->oap->inclusive = TRUE; | |
1828 | |
7 | 1829 p = ml_get_curline(); |
1830 col = curwin->w_cursor.col; | |
1831 len = (int)STRLEN(p); | |
1832 | |
1833 while (count--) | |
1834 { | |
1835 if (has_mbyte) | |
1836 { | |
1837 for (;;) | |
1838 { | |
1839 if (dir > 0) | |
1840 { | |
474 | 1841 col += (*mb_ptr2len)(p + col); |
7 | 1842 if (col >= len) |
1843 return FAIL; | |
1844 } | |
1845 else | |
1846 { | |
1847 if (col == 0) | |
1848 return FAIL; | |
1849 col -= (*mb_head_off)(p, p + col - 1) + 1; | |
1850 } | |
6991 | 1851 if (lastc_bytelen == 1) |
7 | 1852 { |
2925 | 1853 if (p[col] == c && stop) |
7 | 1854 break; |
1855 } | |
11018
654fc5636b37
patch 8.0.0398: illegal memory access with "t"
Christian Brabandt <cb@256bit.org>
parents:
10900
diff
changeset
|
1856 else if (STRNCMP(p + col, lastc_bytes, lastc_bytelen) == 0 |
10430
37a441352da2
commit https://github.com/vim/vim/commit/b129a447f3b580d4c941869672b0557c52c37e4d
Christian Brabandt <cb@256bit.org>
parents:
10277
diff
changeset
|
1857 && stop) |
11018
654fc5636b37
patch 8.0.0398: illegal memory access with "t"
Christian Brabandt <cb@256bit.org>
parents:
10900
diff
changeset
|
1858 break; |
2925 | 1859 stop = TRUE; |
7 | 1860 } |
1861 } | |
1862 else | |
1863 { | |
1864 for (;;) | |
1865 { | |
1866 if ((col += dir) < 0 || col >= len) | |
1867 return FAIL; | |
2925 | 1868 if (p[col] == c && stop) |
7 | 1869 break; |
2925 | 1870 stop = TRUE; |
7 | 1871 } |
1872 } | |
1873 } | |
1874 | |
1875 if (t_cmd) | |
1876 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1877 // backup to before the character (possibly double-byte) |
7 | 1878 col -= dir; |
1879 if (has_mbyte) | |
1880 { | |
1881 if (dir < 0) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1882 // Landed on the search char which is lastc_bytelen long |
6991 | 1883 col += lastc_bytelen - 1; |
7 | 1884 else |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
1885 // To previous char, which may be multi-byte. |
7 | 1886 col -= (*mb_head_off)(p, p + col); |
1887 } | |
1888 } | |
1889 curwin->w_cursor.col = col; | |
1890 | |
1891 return OK; | |
1892 } | |
1893 | |
1894 /* | |
1895 * "Other" Searches | |
1896 */ | |
1897 | |
1898 /* | |
1899 * findmatch - find the matching paren or brace | |
1900 * | |
1901 * Improvement over vi: Braces inside quotes are ignored. | |
1902 */ | |
1903 pos_T * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1904 findmatch(oparg_T *oap, int initc) |
7 | 1905 { |
1906 return findmatchlimit(oap, initc, 0, 0); | |
1907 } | |
1908 | |
1909 /* | |
1910 * Return TRUE if the character before "linep[col]" equals "ch". | |
1911 * Return FALSE if "col" is zero. | |
1912 * Update "*prevcol" to the column of the previous character, unless "prevcol" | |
1913 * is NULL. | |
1914 * Handles multibyte string correctly. | |
1915 */ | |
1916 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1917 check_prevcol( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1918 char_u *linep, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1919 int col, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1920 int ch, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1921 int *prevcol) |
7 | 1922 { |
1923 --col; | |
1924 if (col > 0 && has_mbyte) | |
1925 col -= (*mb_head_off)(linep, linep + col); | |
1926 if (prevcol) | |
1927 *prevcol = col; | |
1928 return (col >= 0 && linep[col] == ch) ? TRUE : FALSE; | |
1929 } | |
1930 | |
6971 | 1931 /* |
1932 * Raw string start is found at linep[startpos.col - 1]. | |
1933 * Return TRUE if the matching end can be found between startpos and endpos. | |
1934 */ | |
1935 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1936 find_rawstring_end(char_u *linep, pos_T *startpos, pos_T *endpos) |
6971 | 1937 { |
1938 char_u *p; | |
1939 char_u *delim_copy; | |
1940 size_t delim_len; | |
1941 linenr_T lnum; | |
1942 int found = FALSE; | |
1943 | |
1944 for (p = linep + startpos->col + 1; *p && *p != '('; ++p) | |
1945 ; | |
1946 delim_len = (p - linep) - startpos->col - 1; | |
20830
9064044fd4f6
patch 8.2.0967: unnecessary type casts for vim_strnsave()
Bram Moolenaar <Bram@vim.org>
parents:
20697
diff
changeset
|
1947 delim_copy = vim_strnsave(linep + startpos->col + 1, delim_len); |
6971 | 1948 if (delim_copy == NULL) |
1949 return FALSE; | |
1950 for (lnum = startpos->lnum; lnum <= endpos->lnum; ++lnum) | |
1951 { | |
1952 char_u *line = ml_get(lnum); | |
1953 | |
1954 for (p = line + (lnum == startpos->lnum | |
1955 ? startpos->col + 1 : 0); *p; ++p) | |
1956 { | |
1957 if (lnum == endpos->lnum && (colnr_T)(p - line) >= endpos->col) | |
1958 break; | |
21628
e23f829c187d
patch 8.2.1364: invalid memory access when searching for raw string
Bram Moolenaar <Bram@vim.org>
parents:
20830
diff
changeset
|
1959 if (*p == ')' && STRNCMP(delim_copy, p + 1, delim_len) == 0 |
e23f829c187d
patch 8.2.1364: invalid memory access when searching for raw string
Bram Moolenaar <Bram@vim.org>
parents:
20830
diff
changeset
|
1960 && p[delim_len + 1] == '"') |
6971 | 1961 { |
1962 found = TRUE; | |
1963 break; | |
1964 } | |
1965 } | |
1966 if (found) | |
1967 break; | |
1968 } | |
1969 vim_free(delim_copy); | |
1970 return found; | |
1971 } | |
1972 | |
7 | 1973 /* |
18681
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1974 * Check matchpairs option for "*initc". |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1975 * If there is a match set "*initc" to the matching character and "*findc" to |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1976 * the opposite character. Set "*backwards" to the direction. |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1977 * When "switchit" is TRUE swap the direction. |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1978 */ |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1979 static void |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1980 find_mps_values( |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1981 int *initc, |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1982 int *findc, |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1983 int *backwards, |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1984 int switchit) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1985 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1986 char_u *ptr; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1987 |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1988 ptr = curbuf->b_p_mps; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1989 while (*ptr != NUL) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1990 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1991 if (has_mbyte) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1992 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1993 char_u *prev; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1994 |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1995 if (mb_ptr2char(ptr) == *initc) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1996 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1997 if (switchit) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1998 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
1999 *findc = *initc; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2000 *initc = mb_ptr2char(ptr + mb_ptr2len(ptr) + 1); |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2001 *backwards = TRUE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2002 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2003 else |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2004 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2005 *findc = mb_ptr2char(ptr + mb_ptr2len(ptr) + 1); |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2006 *backwards = FALSE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2007 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2008 return; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2009 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2010 prev = ptr; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2011 ptr += mb_ptr2len(ptr) + 1; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2012 if (mb_ptr2char(ptr) == *initc) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2013 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2014 if (switchit) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2015 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2016 *findc = *initc; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2017 *initc = mb_ptr2char(prev); |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2018 *backwards = FALSE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2019 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2020 else |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2021 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2022 *findc = mb_ptr2char(prev); |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2023 *backwards = TRUE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2024 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2025 return; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2026 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2027 ptr += mb_ptr2len(ptr); |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2028 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2029 else |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2030 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2031 if (*ptr == *initc) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2032 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2033 if (switchit) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2034 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2035 *backwards = TRUE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2036 *findc = *initc; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2037 *initc = ptr[2]; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2038 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2039 else |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2040 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2041 *backwards = FALSE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2042 *findc = ptr[2]; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2043 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2044 return; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2045 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2046 ptr += 2; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2047 if (*ptr == *initc) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2048 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2049 if (switchit) |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2050 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2051 *backwards = FALSE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2052 *findc = *initc; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2053 *initc = ptr[-2]; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2054 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2055 else |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2056 { |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2057 *backwards = TRUE; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2058 *findc = ptr[-2]; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2059 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2060 return; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2061 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2062 ++ptr; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2063 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2064 if (*ptr == ',') |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2065 ++ptr; |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2066 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2067 } |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2068 |
a13370d92f9d
patch 8.1.2332: missing file in refactoring
Bram Moolenaar <Bram@vim.org>
parents:
18677
diff
changeset
|
2069 /* |
7 | 2070 * findmatchlimit -- find the matching paren or brace, if it exists within |
6971 | 2071 * maxtravel lines of the cursor. A maxtravel of 0 means search until falling |
2072 * off the edge of the file. | |
7 | 2073 * |
2074 * "initc" is the character to find a match for. NUL means to find the | |
6971 | 2075 * character at or after the cursor. Special values: |
2076 * '*' look for C-style comment / * | |
2077 * '/' look for C-style comment / *, ignoring comment-end | |
2078 * '#' look for preprocessor directives | |
2079 * 'R' look for raw string start: R"delim(text)delim" (only backwards) | |
7 | 2080 * |
2081 * flags: FM_BACKWARD search backwards (when initc is '/', '*' or '#') | |
2082 * FM_FORWARD search forwards (when initc is '/', '*' or '#') | |
2083 * FM_BLOCKSTOP stop at start/end of block ({ or } in column 0) | |
2084 * FM_SKIPCOMM skip comments (not implemented yet!) | |
523 | 2085 * |
6971 | 2086 * "oap" is only used to set oap->motion_type for a linewise motion, it can be |
523 | 2087 * NULL |
7 | 2088 */ |
2089 | |
2090 pos_T * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2091 findmatchlimit( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2092 oparg_T *oap, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2093 int initc, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2094 int flags, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2095 int maxtravel) |
7 | 2096 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2097 static pos_T pos; // current search position |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2098 int findc = 0; // matching brace |
7 | 2099 int c; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2100 int count = 0; // cumulative number of braces |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2101 int backwards = FALSE; // init for gcc |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2102 int raw_string = FALSE; // search for raw string |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2103 int inquote = FALSE; // TRUE when inside quotes |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2104 char_u *linep; // pointer to current line |
7 | 2105 char_u *ptr; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2106 int do_quotes; // check for quotes in current line |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2107 int at_start; // do_quotes value at start position |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2108 int hash_dir = 0; // Direction searched for # things |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2109 int comment_dir = 0; // Direction searched for comments |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2110 pos_T match_pos; // Where last slash-star was found |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2111 int start_in_quotes; // start position is in quotes |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2112 int traveled = 0; // how far we've searched so far |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2113 int ignore_cend = FALSE; // ignore comment end |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2114 int cpo_match; // vi compatible matching |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2115 int cpo_bsl; // don't recognize backslashes |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2116 int match_escaped = 0; // search for escaped match |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2117 int dir; // Direction to search |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2118 int comment_col = MAXCOL; // start of / / comment |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2119 int lispcomm = FALSE; // inside of Lisp-style comment |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2120 int lisp = curbuf->b_p_lisp; // engage Lisp-specific hacks ;) |
7 | 2121 |
2122 pos = curwin->w_cursor; | |
5304 | 2123 pos.coladd = 0; |
7 | 2124 linep = ml_get(pos.lnum); |
2125 | |
2126 cpo_match = (vim_strchr(p_cpo, CPO_MATCH) != NULL); | |
2127 cpo_bsl = (vim_strchr(p_cpo, CPO_MATCHBSL) != NULL); | |
2128 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2129 // Direction to search when initc is '/', '*' or '#' |
7 | 2130 if (flags & FM_BACKWARD) |
2131 dir = BACKWARD; | |
2132 else if (flags & FM_FORWARD) | |
2133 dir = FORWARD; | |
2134 else | |
2135 dir = 0; | |
2136 | |
2137 /* | |
2138 * if initc given, look in the table for the matching character | |
2139 * '/' and '*' are special cases: look for start or end of comment. | |
2140 * When '/' is used, we ignore running backwards into an star-slash, for | |
2141 * "[*" command, we just want to find any comment. | |
2142 */ | |
6971 | 2143 if (initc == '/' || initc == '*' || initc == 'R') |
7 | 2144 { |
2145 comment_dir = dir; | |
2146 if (initc == '/') | |
2147 ignore_cend = TRUE; | |
2148 backwards = (dir == FORWARD) ? FALSE : TRUE; | |
6971 | 2149 raw_string = (initc == 'R'); |
7 | 2150 initc = NUL; |
2151 } | |
2152 else if (initc != '#' && initc != NUL) | |
2153 { | |
4029 | 2154 find_mps_values(&initc, &findc, &backwards, TRUE); |
25437
d4a710f06f02
patch 8.2.3255: ci" finds following string but ci< and others don't
Bram Moolenaar <Bram@vim.org>
parents:
25384
diff
changeset
|
2155 if (dir) |
d4a710f06f02
patch 8.2.3255: ci" finds following string but ci< and others don't
Bram Moolenaar <Bram@vim.org>
parents:
25384
diff
changeset
|
2156 backwards = (dir == FORWARD) ? FALSE : TRUE; |
4029 | 2157 if (findc == NUL) |
7 | 2158 return NULL; |
2159 } | |
2160 else | |
2161 { | |
6971 | 2162 /* |
2163 * Either initc is '#', or no initc was given and we need to look | |
2164 * under the cursor. | |
2165 */ | |
7 | 2166 if (initc == '#') |
2167 { | |
2168 hash_dir = dir; | |
2169 } | |
2170 else | |
2171 { | |
2172 /* | |
2173 * initc was not given, must look for something to match under | |
2174 * or near the cursor. | |
2175 * Only check for special things when 'cpo' doesn't have '%'. | |
2176 */ | |
2177 if (!cpo_match) | |
2178 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2179 // Are we before or at #if, #else etc.? |
7 | 2180 ptr = skipwhite(linep); |
2181 if (*ptr == '#' && pos.col <= (colnr_T)(ptr - linep)) | |
2182 { | |
2183 ptr = skipwhite(ptr + 1); | |
2184 if ( STRNCMP(ptr, "if", 2) == 0 | |
2185 || STRNCMP(ptr, "endif", 5) == 0 | |
2186 || STRNCMP(ptr, "el", 2) == 0) | |
2187 hash_dir = 1; | |
2188 } | |
2189 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2190 // Are we on a comment? |
7 | 2191 else if (linep[pos.col] == '/') |
2192 { | |
2193 if (linep[pos.col + 1] == '*') | |
2194 { | |
2195 comment_dir = FORWARD; | |
2196 backwards = FALSE; | |
2197 pos.col++; | |
2198 } | |
2199 else if (pos.col > 0 && linep[pos.col - 1] == '*') | |
2200 { | |
2201 comment_dir = BACKWARD; | |
2202 backwards = TRUE; | |
2203 pos.col--; | |
2204 } | |
2205 } | |
2206 else if (linep[pos.col] == '*') | |
2207 { | |
2208 if (linep[pos.col + 1] == '/') | |
2209 { | |
2210 comment_dir = BACKWARD; | |
2211 backwards = TRUE; | |
2212 } | |
2213 else if (pos.col > 0 && linep[pos.col - 1] == '/') | |
2214 { | |
2215 comment_dir = FORWARD; | |
2216 backwards = FALSE; | |
2217 } | |
2218 } | |
2219 } | |
2220 | |
2221 /* | |
2222 * If we are not on a comment or the # at the start of a line, then | |
2223 * look for brace anywhere on this line after the cursor. | |
2224 */ | |
2225 if (!hash_dir && !comment_dir) | |
2226 { | |
2227 /* | |
2228 * Find the brace under or after the cursor. | |
2229 * If beyond the end of the line, use the last character in | |
2230 * the line. | |
2231 */ | |
2232 if (linep[pos.col] == NUL && pos.col) | |
2233 --pos.col; | |
2234 for (;;) | |
2235 { | |
4029 | 2236 initc = PTR2CHAR(linep + pos.col); |
7 | 2237 if (initc == NUL) |
2238 break; | |
2239 | |
4029 | 2240 find_mps_values(&initc, &findc, &backwards, FALSE); |
7 | 2241 if (findc) |
2242 break; | |
18251
c8a53c0daeed
patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents:
18203
diff
changeset
|
2243 pos.col += mb_ptr2len(linep + pos.col); |
7 | 2244 } |
2245 if (!findc) | |
2246 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2247 // no brace in the line, maybe use " #if" then |
7 | 2248 if (!cpo_match && *skipwhite(linep) == '#') |
2249 hash_dir = 1; | |
2250 else | |
2251 return NULL; | |
2252 } | |
2253 else if (!cpo_bsl) | |
2254 { | |
2255 int col, bslcnt = 0; | |
2256 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2257 // Set "match_escaped" if there are an odd number of |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2258 // backslashes. |
7 | 2259 for (col = pos.col; check_prevcol(linep, col, '\\', &col);) |
2260 bslcnt++; | |
2261 match_escaped = (bslcnt & 1); | |
2262 } | |
2263 } | |
2264 } | |
2265 if (hash_dir) | |
2266 { | |
2267 /* | |
2268 * Look for matching #if, #else, #elif, or #endif | |
2269 */ | |
2270 if (oap != NULL) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2271 oap->motion_type = MLINE; // Linewise for this case only |
7 | 2272 if (initc != '#') |
2273 { | |
2274 ptr = skipwhite(skipwhite(linep) + 1); | |
2275 if (STRNCMP(ptr, "if", 2) == 0 || STRNCMP(ptr, "el", 2) == 0) | |
2276 hash_dir = 1; | |
2277 else if (STRNCMP(ptr, "endif", 5) == 0) | |
2278 hash_dir = -1; | |
2279 else | |
2280 return NULL; | |
2281 } | |
2282 pos.col = 0; | |
2283 while (!got_int) | |
2284 { | |
2285 if (hash_dir > 0) | |
2286 { | |
2287 if (pos.lnum == curbuf->b_ml.ml_line_count) | |
2288 break; | |
2289 } | |
2290 else if (pos.lnum == 1) | |
2291 break; | |
2292 pos.lnum += hash_dir; | |
2293 linep = ml_get(pos.lnum); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2294 line_breakcheck(); // check for CTRL-C typed |
7 | 2295 ptr = skipwhite(linep); |
2296 if (*ptr != '#') | |
2297 continue; | |
2298 pos.col = (colnr_T) (ptr - linep); | |
2299 ptr = skipwhite(ptr + 1); | |
2300 if (hash_dir > 0) | |
2301 { | |
2302 if (STRNCMP(ptr, "if", 2) == 0) | |
2303 count++; | |
2304 else if (STRNCMP(ptr, "el", 2) == 0) | |
2305 { | |
2306 if (count == 0) | |
2307 return &pos; | |
2308 } | |
2309 else if (STRNCMP(ptr, "endif", 5) == 0) | |
2310 { | |
2311 if (count == 0) | |
2312 return &pos; | |
2313 count--; | |
2314 } | |
2315 } | |
2316 else | |
2317 { | |
2318 if (STRNCMP(ptr, "if", 2) == 0) | |
2319 { | |
2320 if (count == 0) | |
2321 return &pos; | |
2322 count--; | |
2323 } | |
2324 else if (initc == '#' && STRNCMP(ptr, "el", 2) == 0) | |
2325 { | |
2326 if (count == 0) | |
2327 return &pos; | |
2328 } | |
2329 else if (STRNCMP(ptr, "endif", 5) == 0) | |
2330 count++; | |
2331 } | |
2332 } | |
2333 return NULL; | |
2334 } | |
2335 } | |
2336 | |
2337 #ifdef FEAT_RIGHTLEFT | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2338 // This is just guessing: when 'rightleft' is set, search for a matching |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2339 // paren/brace in the other direction. |
7 | 2340 if (curwin->w_p_rl && vim_strchr((char_u *)"()[]{}<>", initc) != NULL) |
2341 backwards = !backwards; | |
2342 #endif | |
2343 | |
2344 do_quotes = -1; | |
2345 start_in_quotes = MAYBE; | |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11117
diff
changeset
|
2346 CLEAR_POS(&match_pos); |
699 | 2347 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2348 // backward search: Check if this line contains a single-line comment |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2349 if ((backwards && comment_dir) || lisp) |
7 | 2350 comment_col = check_linecomment(linep); |
14 | 2351 if (lisp && comment_col != MAXCOL && pos.col > (colnr_T)comment_col) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2352 lispcomm = TRUE; // find match inside this comment |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2353 |
7 | 2354 while (!got_int) |
2355 { | |
2356 /* | |
2357 * Go to the next position, forward or backward. We could use | |
2358 * inc() and dec() here, but that is much slower | |
2359 */ | |
2360 if (backwards) | |
2361 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2362 // char to match is inside of comment, don't search outside |
14 | 2363 if (lispcomm && pos.col < (colnr_T)comment_col) |
2364 break; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2365 if (pos.col == 0) // at start of line, go to prev. one |
7 | 2366 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2367 if (pos.lnum == 1) // start of file |
7 | 2368 break; |
2369 --pos.lnum; | |
2370 | |
829 | 2371 if (maxtravel > 0 && ++traveled > maxtravel) |
7 | 2372 break; |
2373 | |
2374 linep = ml_get(pos.lnum); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2375 pos.col = (colnr_T)STRLEN(linep); // pos.col on trailing NUL |
7 | 2376 do_quotes = -1; |
2377 line_breakcheck(); | |
2378 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2379 // Check if this line contains a single-line comment |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2380 if (comment_dir || lisp) |
7 | 2381 comment_col = check_linecomment(linep); |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2382 // skip comment |
14 | 2383 if (lisp && comment_col != MAXCOL) |
2384 pos.col = comment_col; | |
7 | 2385 } |
2386 else | |
2387 { | |
2388 --pos.col; | |
2389 if (has_mbyte) | |
2390 pos.col -= (*mb_head_off)(linep, linep + pos.col); | |
2391 } | |
2392 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2393 else // forward search |
7 | 2394 { |
14 | 2395 if (linep[pos.col] == NUL |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2396 // at end of line, go to next one |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2397 // For lisp don't search for match in comment |
14 | 2398 || (lisp && comment_col != MAXCOL |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2399 && pos.col == (colnr_T)comment_col)) |
7 | 2400 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2401 if (pos.lnum == curbuf->b_ml.ml_line_count // end of file |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2402 // line is exhausted and comment with it, |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2403 // don't search for match in code |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2404 || lispcomm) |
7 | 2405 break; |
2406 ++pos.lnum; | |
2407 | |
2408 if (maxtravel && traveled++ > maxtravel) | |
2409 break; | |
2410 | |
2411 linep = ml_get(pos.lnum); | |
2412 pos.col = 0; | |
2413 do_quotes = -1; | |
2414 line_breakcheck(); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2415 if (lisp) // find comment pos in new line |
14 | 2416 comment_col = check_linecomment(linep); |
7 | 2417 } |
2418 else | |
2419 { | |
2420 if (has_mbyte) | |
474 | 2421 pos.col += (*mb_ptr2len)(linep + pos.col); |
7 | 2422 else |
2423 ++pos.col; | |
2424 } | |
2425 } | |
2426 | |
2427 /* | |
2428 * If FM_BLOCKSTOP given, stop at a '{' or '}' in column 0. | |
2429 */ | |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2430 if (pos.col == 0 && (flags & FM_BLOCKSTOP) |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2431 && (linep[0] == '{' || linep[0] == '}')) |
7 | 2432 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2433 if (linep[0] == findc && count == 0) // match! |
7 | 2434 return &pos; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2435 break; // out of scope |
7 | 2436 } |
2437 | |
2438 if (comment_dir) | |
2439 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2440 // Note: comments do not nest, and we ignore quotes in them |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2441 // TODO: ignore comment brackets inside strings |
7 | 2442 if (comment_dir == FORWARD) |
2443 { | |
2444 if (linep[pos.col] == '*' && linep[pos.col + 1] == '/') | |
2445 { | |
2446 pos.col++; | |
2447 return &pos; | |
2448 } | |
2449 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2450 else // Searching backwards |
7 | 2451 { |
2452 /* | |
2453 * A comment may contain / * or / /, it may also start or end | |
12829
91222b3123ba
patch 8.0.1291: C indent wrong when * immediately follows comment
Christian Brabandt <cb@256bit.org>
parents:
12722
diff
changeset
|
2454 * with / * /. Ignore a / * after / / and after *. |
7 | 2455 */ |
2456 if (pos.col == 0) | |
2457 continue; | |
6971 | 2458 else if (raw_string) |
2459 { | |
2460 if (linep[pos.col - 1] == 'R' | |
2461 && linep[pos.col] == '"' | |
2462 && vim_strchr(linep + pos.col + 1, '(') != NULL) | |
2463 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2464 // Possible start of raw string. Now that we have the |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2465 // delimiter we can check if it ends before where we |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2466 // started searching, or before the previously found |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2467 // raw string start. |
6971 | 2468 if (!find_rawstring_end(linep, &pos, |
2469 count > 0 ? &match_pos : &curwin->w_cursor)) | |
2470 { | |
2471 count++; | |
2472 match_pos = pos; | |
2473 match_pos.col--; | |
2474 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2475 linep = ml_get(pos.lnum); // may have been released |
6971 | 2476 } |
2477 } | |
7 | 2478 else if ( linep[pos.col - 1] == '/' |
2479 && linep[pos.col] == '*' | |
12829
91222b3123ba
patch 8.0.1291: C indent wrong when * immediately follows comment
Christian Brabandt <cb@256bit.org>
parents:
12722
diff
changeset
|
2480 && (pos.col == 1 || linep[pos.col - 2] != '*') |
7 | 2481 && (int)pos.col < comment_col) |
2482 { | |
2483 count++; | |
2484 match_pos = pos; | |
2485 match_pos.col--; | |
2486 } | |
2487 else if (linep[pos.col - 1] == '*' && linep[pos.col] == '/') | |
2488 { | |
2489 if (count > 0) | |
2490 pos = match_pos; | |
2491 else if (pos.col > 1 && linep[pos.col - 2] == '/' | |
2492 && (int)pos.col <= comment_col) | |
2493 pos.col -= 2; | |
2494 else if (ignore_cend) | |
2495 continue; | |
2496 else | |
2497 return NULL; | |
2498 return &pos; | |
2499 } | |
2500 } | |
2501 continue; | |
2502 } | |
2503 | |
2504 /* | |
2505 * If smart matching ('cpoptions' does not contain '%'), braces inside | |
2506 * of quotes are ignored, but only if there is an even number of | |
2507 * quotes in the line. | |
2508 */ | |
2509 if (cpo_match) | |
2510 do_quotes = 0; | |
2511 else if (do_quotes == -1) | |
2512 { | |
2513 /* | |
2514 * Count the number of quotes in the line, skipping \" and '"'. | |
2515 * Watch out for "\\". | |
2516 */ | |
2517 at_start = do_quotes; | |
2518 for (ptr = linep; *ptr; ++ptr) | |
2519 { | |
2520 if (ptr == linep + pos.col + backwards) | |
2521 at_start = (do_quotes & 1); | |
2522 if (*ptr == '"' | |
2523 && (ptr == linep || ptr[-1] != '\'' || ptr[1] != '\'')) | |
2524 ++do_quotes; | |
2525 if (*ptr == '\\' && ptr[1] != NUL) | |
2526 ++ptr; | |
2527 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2528 do_quotes &= 1; // result is 1 with even number of quotes |
7 | 2529 |
2530 /* | |
2531 * If we find an uneven count, check current line and previous | |
2532 * one for a '\' at the end. | |
2533 */ | |
2534 if (!do_quotes) | |
2535 { | |
2536 inquote = FALSE; | |
2537 if (ptr[-1] == '\\') | |
2538 { | |
2539 do_quotes = 1; | |
2540 if (start_in_quotes == MAYBE) | |
2541 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2542 // Do we need to use at_start here? |
7 | 2543 inquote = TRUE; |
2544 start_in_quotes = TRUE; | |
2545 } | |
2546 else if (backwards) | |
2547 inquote = TRUE; | |
2548 } | |
2549 if (pos.lnum > 1) | |
2550 { | |
2551 ptr = ml_get(pos.lnum - 1); | |
2552 if (*ptr && *(ptr + STRLEN(ptr) - 1) == '\\') | |
2553 { | |
2554 do_quotes = 1; | |
2555 if (start_in_quotes == MAYBE) | |
2556 { | |
2557 inquote = at_start; | |
2558 if (inquote) | |
2559 start_in_quotes = TRUE; | |
2560 } | |
2561 else if (!backwards) | |
2562 inquote = TRUE; | |
2563 } | |
1310 | 2564 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2565 // ml_get() only keeps one line, need to get linep again |
1310 | 2566 linep = ml_get(pos.lnum); |
7 | 2567 } |
2568 } | |
2569 } | |
2570 if (start_in_quotes == MAYBE) | |
2571 start_in_quotes = FALSE; | |
2572 | |
2573 /* | |
2574 * If 'smartmatch' is set: | |
2575 * Things inside quotes are ignored by setting 'inquote'. If we | |
2576 * find a quote without a preceding '\' invert 'inquote'. At the | |
2577 * end of a line not ending in '\' we reset 'inquote'. | |
2578 * | |
2579 * In lines with an uneven number of quotes (without preceding '\') | |
2580 * we do not know which part to ignore. Therefore we only set | |
2581 * inquote if the number of quotes in a line is even, unless this | |
2582 * line or the previous one ends in a '\'. Complicated, isn't it? | |
2583 */ | |
4029 | 2584 c = PTR2CHAR(linep + pos.col); |
2585 switch (c) | |
7 | 2586 { |
2587 case NUL: | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2588 // at end of line without trailing backslash, reset inquote |
7 | 2589 if (pos.col == 0 || linep[pos.col - 1] != '\\') |
2590 { | |
2591 inquote = FALSE; | |
2592 start_in_quotes = FALSE; | |
2593 } | |
2594 break; | |
2595 | |
2596 case '"': | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2597 // a quote that is preceded with an odd number of backslashes is |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2598 // ignored |
7 | 2599 if (do_quotes) |
2600 { | |
2601 int col; | |
2602 | |
2603 for (col = pos.col - 1; col >= 0; --col) | |
2604 if (linep[col] != '\\') | |
2605 break; | |
2606 if ((((int)pos.col - 1 - col) & 1) == 0) | |
2607 { | |
2608 inquote = !inquote; | |
2609 start_in_quotes = FALSE; | |
2610 } | |
2611 } | |
2612 break; | |
2613 | |
2614 /* | |
2615 * If smart matching ('cpoptions' does not contain '%'): | |
2616 * Skip things in single quotes: 'x' or '\x'. Be careful for single | |
2617 * single quotes, eg jon's. Things like '\233' or '\x3f' are not | |
2618 * skipped, there is never a brace in them. | |
2619 * Ignore this when finding matches for `'. | |
2620 */ | |
2621 case '\'': | |
2622 if (!cpo_match && initc != '\'' && findc != '\'') | |
2623 { | |
2624 if (backwards) | |
2625 { | |
2626 if (pos.col > 1) | |
2627 { | |
2628 if (linep[pos.col - 2] == '\'') | |
2629 { | |
2630 pos.col -= 2; | |
2631 break; | |
2632 } | |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2633 else if (linep[pos.col - 2] == '\\' |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2634 && pos.col > 2 && linep[pos.col - 3] == '\'') |
7 | 2635 { |
2636 pos.col -= 3; | |
2637 break; | |
2638 } | |
2639 } | |
2640 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2641 else if (linep[pos.col + 1]) // forward search |
7 | 2642 { |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2643 if (linep[pos.col + 1] == '\\' |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
2644 && linep[pos.col + 2] && linep[pos.col + 3] == '\'') |
7 | 2645 { |
2646 pos.col += 3; | |
2647 break; | |
2648 } | |
2649 else if (linep[pos.col + 2] == '\'') | |
2650 { | |
2651 pos.col += 2; | |
2652 break; | |
2653 } | |
2654 } | |
2655 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2656 // FALLTHROUGH |
7 | 2657 |
2658 default: | |
14 | 2659 /* |
2660 * For Lisp skip over backslashed (), {} and []. | |
2661 * (actually, we skip #\( et al) | |
2662 */ | |
7 | 2663 if (curbuf->b_p_lisp |
2664 && vim_strchr((char_u *)"(){}[]", c) != NULL | |
14 | 2665 && pos.col > 1 |
2666 && check_prevcol(linep, pos.col, '\\', NULL) | |
2667 && check_prevcol(linep, pos.col - 1, '#', NULL)) | |
7 | 2668 break; |
2669 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2670 // Check for match outside of quotes, and inside of |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2671 // quotes when the start is also inside of quotes. |
7 | 2672 if ((!inquote || start_in_quotes == TRUE) |
2673 && (c == initc || c == findc)) | |
2674 { | |
2675 int col, bslcnt = 0; | |
2676 | |
2677 if (!cpo_bsl) | |
2678 { | |
2679 for (col = pos.col; check_prevcol(linep, col, '\\', &col);) | |
2680 bslcnt++; | |
2681 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2682 // Only accept a match when 'M' is in 'cpo' or when escaping |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2683 // is what we expect. |
7 | 2684 if (cpo_bsl || (bslcnt & 1) == match_escaped) |
2685 { | |
2686 if (c == initc) | |
2687 count++; | |
2688 else | |
2689 { | |
2690 if (count == 0) | |
2691 return &pos; | |
2692 count--; | |
2693 } | |
2694 } | |
2695 } | |
2696 } | |
2697 } | |
2698 | |
2699 if (comment_dir == BACKWARD && count > 0) | |
2700 { | |
2701 pos = match_pos; | |
2702 return &pos; | |
2703 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2704 return (pos_T *)NULL; // never found it |
7 | 2705 } |
2706 | |
2707 /* | |
2708 * Check if line[] contains a / / comment. | |
2709 * Return MAXCOL if not, otherwise return the column. | |
2710 */ | |
26516
9596c652420b
patch 8.2.3787: no proper formatting of a C line comment after a statement
Bram Moolenaar <Bram@vim.org>
parents:
25959
diff
changeset
|
2711 int |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2712 check_linecomment(char_u *line) |
7 | 2713 { |
2714 char_u *p; | |
2715 | |
2716 p = line; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2717 // skip Lispish one-line comments |
14 | 2718 if (curbuf->b_p_lisp) |
2719 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2720 if (vim_strchr(p, ';') != NULL) // there may be comments |
14 | 2721 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2722 int in_str = FALSE; // inside of string |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2723 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2724 p = line; // scan from start |
333 | 2725 while ((p = vim_strpbrk(p, (char_u *)"\";")) != NULL) |
14 | 2726 { |
2727 if (*p == '"') | |
2728 { | |
3263 | 2729 if (in_str) |
14 | 2730 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2731 if (*(p - 1) != '\\') // skip escaped quote |
3263 | 2732 in_str = FALSE; |
14 | 2733 } |
2734 else if (p == line || ((p - line) >= 2 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2735 // skip #\" form |
14 | 2736 && *(p - 1) != '\\' && *(p - 2) != '#')) |
3263 | 2737 in_str = TRUE; |
14 | 2738 } |
3263 | 2739 else if (!in_str && ((p - line) < 2 |
26819
0d798c7e1865
patch 8.2.3938: line comment start is also found in a string
Bram Moolenaar <Bram@vim.org>
parents:
26516
diff
changeset
|
2740 || (*(p - 1) != '\\' && *(p - 2) != '#')) |
0d798c7e1865
patch 8.2.3938: line comment start is also found in a string
Bram Moolenaar <Bram@vim.org>
parents:
26516
diff
changeset
|
2741 && !is_pos_in_string(line, (colnr_T)(p - line))) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2742 break; // found! |
14 | 2743 ++p; |
2744 } | |
2745 } | |
2746 else | |
2747 p = NULL; | |
2748 } | |
2749 else | |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2750 while ((p = vim_strchr(p, '/')) != NULL) |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2751 { |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2752 // Accept a double /, unless it's preceded with * and followed by |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2753 // *, because * / / * is an end and start of a C comment. Only |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2754 // accept the position if it is not inside a string. |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2755 if (p[1] == '/' && (p == line || p[-1] != '*' || p[2] != '*') |
26819
0d798c7e1865
patch 8.2.3938: line comment start is also found in a string
Bram Moolenaar <Bram@vim.org>
parents:
26516
diff
changeset
|
2756 && !is_pos_in_string(line, (colnr_T)(p - line))) |
28942
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2757 break; |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2758 ++p; |
6cdf55afaae9
patch 8.2.4993: smart/C/lisp indenting is optional
Bram Moolenaar <Bram@vim.org>
parents:
28831
diff
changeset
|
2759 } |
7 | 2760 |
2761 if (p == NULL) | |
2762 return MAXCOL; | |
2763 return (int)(p - line); | |
2764 } | |
2765 | |
2766 /* | |
2767 * Move cursor briefly to character matching the one under the cursor. | |
2768 * Used for Insert mode and "r" command. | |
2769 * Show the match only if it is visible on the screen. | |
2770 * If there isn't a match, then beep. | |
2771 */ | |
2772 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2773 showmatch( |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2774 int c) // char to show match for |
7 | 2775 { |
2776 pos_T *lpos, save_cursor; | |
2777 pos_T mpos; | |
2778 colnr_T vcol; | |
2779 long save_so; | |
2780 long save_siso; | |
2781 #ifdef CURSOR_SHAPE | |
2782 int save_state; | |
2783 #endif | |
2784 colnr_T save_dollar_vcol; | |
2785 char_u *p; | |
28809
d0241e74bfdb
patch 8.2.4928: various white space and cosmetic mistakes
Bram Moolenaar <Bram@vim.org>
parents:
28773
diff
changeset
|
2786 long *so = curwin->w_p_so >= 0 ? &curwin->w_p_so : &p_so; |
d0241e74bfdb
patch 8.2.4928: various white space and cosmetic mistakes
Bram Moolenaar <Bram@vim.org>
parents:
28773
diff
changeset
|
2787 long *siso = curwin->w_p_siso >= 0 ? &curwin->w_p_siso : &p_siso; |
7 | 2788 |
2789 /* | |
2790 * Only show match for chars in the 'matchpairs' option. | |
2791 */ | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2792 // 'matchpairs' is "x:y,x:y" |
4029 | 2793 for (p = curbuf->b_p_mps; *p != NUL; ++p) |
7 | 2794 { |
2795 #ifdef FEAT_RIGHTLEFT | |
4153 | 2796 if (PTR2CHAR(p) == c && (curwin->w_p_rl ^ p_ri)) |
2797 break; | |
7 | 2798 #endif |
18251
c8a53c0daeed
patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents:
18203
diff
changeset
|
2799 p += mb_ptr2len(p) + 1; |
4029 | 2800 if (PTR2CHAR(p) == c |
7 | 2801 #ifdef FEAT_RIGHTLEFT |
2802 && !(curwin->w_p_rl ^ p_ri) | |
2803 #endif | |
2804 ) | |
2805 break; | |
18251
c8a53c0daeed
patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents:
18203
diff
changeset
|
2806 p += mb_ptr2len(p); |
4029 | 2807 if (*p == NUL) |
7 | 2808 return; |
2809 } | |
24307
55f458d35292
patch 8.2.2694: when 'matchpairs' is empty every character beeps
Bram Moolenaar <Bram@vim.org>
parents:
23847
diff
changeset
|
2810 if (*p == NUL) |
55f458d35292
patch 8.2.2694: when 'matchpairs' is empty every character beeps
Bram Moolenaar <Bram@vim.org>
parents:
23847
diff
changeset
|
2811 return; |
7 | 2812 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2813 if ((lpos = findmatch(NULL, NUL)) == NULL) // no match, so beep |
6949 | 2814 vim_beep(BO_MATCH); |
4153 | 2815 else if (lpos->lnum >= curwin->w_topline && lpos->lnum < curwin->w_botline) |
7 | 2816 { |
2817 if (!curwin->w_p_wrap) | |
2818 getvcol(curwin, lpos, NULL, &vcol, NULL); | |
2819 if (curwin->w_p_wrap || (vcol >= curwin->w_leftcol | |
12515
972ea22c946f
patch 8.0.1136: W_WIDTH() is always the same
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2820 && vcol < curwin->w_leftcol + curwin->w_width)) |
7 | 2821 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2822 mpos = *lpos; // save the pos, update_screen() may change it |
7 | 2823 save_cursor = curwin->w_cursor; |
15713
ad8b2c109b22
patch 8.1.0864: cannot have a local value for 'scrolloff' and 'sidescrolloff'
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
2824 save_so = *so; |
ad8b2c109b22
patch 8.1.0864: cannot have a local value for 'scrolloff' and 'sidescrolloff'
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
2825 save_siso = *siso; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2826 // Handle "$" in 'cpo': If the ')' is typed on top of the "$", |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2827 // stop displaying the "$". |
3318 | 2828 if (dollar_vcol >= 0 && dollar_vcol == curwin->w_virtcol) |
2829 dollar_vcol = -1; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2830 ++curwin->w_virtcol; // do display ')' just before "$" |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2831 update_screen(VALID); // show the new char first |
7 | 2832 |
2833 save_dollar_vcol = dollar_vcol; | |
2834 #ifdef CURSOR_SHAPE | |
2835 save_state = State; | |
28773
d770568e6c98
patch 8.2.4911: the mode #defines are not clearly named
Bram Moolenaar <Bram@vim.org>
parents:
28481
diff
changeset
|
2836 State = MODE_SHOWMATCH; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2837 ui_cursor_shape(); // may show different cursor shape |
7 | 2838 #endif |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2839 curwin->w_cursor = mpos; // move to matching char |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2840 *so = 0; // don't use 'scrolloff' here |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2841 *siso = 0; // don't use 'sidescrolloff' here |
7 | 2842 showruler(FALSE); |
2843 setcursor(); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2844 cursor_on(); // make sure that the cursor is shown |
13150
808625d4b71b
patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents:
12855
diff
changeset
|
2845 out_flush_cursor(TRUE, FALSE); |
808625d4b71b
patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents:
12855
diff
changeset
|
2846 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2847 // Restore dollar_vcol(), because setcursor() may call curs_rows() |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2848 // which resets it if the matching position is in a previous line |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2849 // and has a higher column number. |
7 | 2850 dollar_vcol = save_dollar_vcol; |
2851 | |
2852 /* | |
2853 * brief pause, unless 'm' is present in 'cpo' and a character is | |
2854 * available. | |
2855 */ | |
2856 if (vim_strchr(p_cpo, CPO_SHOWMATCH) != NULL) | |
18642
bbea1f108187
patch 8.1.2313: debugging where a delay comes from is not easy
Bram Moolenaar <Bram@vim.org>
parents:
18500
diff
changeset
|
2857 ui_delay(p_mat * 100L + 8, TRUE); |
7 | 2858 else if (!char_avail()) |
18642
bbea1f108187
patch 8.1.2313: debugging where a delay comes from is not easy
Bram Moolenaar <Bram@vim.org>
parents:
18500
diff
changeset
|
2859 ui_delay(p_mat * 100L + 9, FALSE); |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2860 curwin->w_cursor = save_cursor; // restore cursor position |
15713
ad8b2c109b22
patch 8.1.0864: cannot have a local value for 'scrolloff' and 'sidescrolloff'
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
2861 *so = save_so; |
ad8b2c109b22
patch 8.1.0864: cannot have a local value for 'scrolloff' and 'sidescrolloff'
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
2862 *siso = save_siso; |
7 | 2863 #ifdef CURSOR_SHAPE |
2864 State = save_state; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2865 ui_cursor_shape(); // may show different cursor shape |
7 | 2866 #endif |
2867 } | |
2868 } | |
2869 } | |
2870 | |
2871 /* | |
18448
35e0ab1f2975
patch 8.1.2218: "gN" is off by one in Visual mode
Bram Moolenaar <Bram@vim.org>
parents:
18426
diff
changeset
|
2872 * Check if the pattern is zero-width. |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2873 * If move is TRUE, check from the beginning of the buffer, else from position |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2874 * "cur". |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2875 * "direction" is FORWARD or BACKWARD. |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2876 * Returns TRUE, FALSE or -1 for failure. |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2877 */ |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2878 static int |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2879 is_zero_width(char_u *pattern, int move, pos_T *cur, int direction) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2880 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2881 regmmatch_T regmatch; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2882 int nmatched = 0; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2883 int result = -1; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2884 pos_T pos; |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2885 int called_emsg_before = called_emsg; |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2886 int flag = 0; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2887 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2888 if (pattern == NULL) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2889 pattern = spats[last_idx].pat; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2890 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2891 if (search_regcomp(pattern, RE_SEARCH, RE_SEARCH, |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2892 SEARCH_KEEP, ®match) == FAIL) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2893 return -1; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2894 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2895 // init startcol correctly |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2896 regmatch.startpos[0].col = -1; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2897 // move to match |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2898 if (move) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2899 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2900 CLEAR_POS(&pos); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2901 } |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2902 else |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2903 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2904 pos = *cur; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2905 // accept a match at the cursor position |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2906 flag = SEARCH_START; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2907 } |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2908 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2909 if (searchit(curwin, curbuf, &pos, NULL, direction, pattern, 1, |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2910 SEARCH_KEEP + flag, RE_SEARCH, NULL) != FAIL) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2911 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2912 // Zero-width pattern should match somewhere, then we can check if |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2913 // start and end are in the same position. |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2914 do |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2915 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2916 regmatch.startpos[0].col++; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2917 nmatched = vim_regexec_multi(®match, curwin, curbuf, |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2918 pos.lnum, regmatch.startpos[0].col, NULL, NULL); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2919 if (nmatched != 0) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2920 break; |
22478
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
2921 } while (regmatch.regprog != NULL |
5193420617f1
patch 8.2.1787: crash with 'incsearch' and very long line
Bram Moolenaar <Bram@vim.org>
parents:
22359
diff
changeset
|
2922 && direction == FORWARD ? regmatch.startpos[0].col < pos.col |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2923 : regmatch.startpos[0].col > pos.col); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2924 |
18949
5c405689da3e
patch 8.2.0035: saving and restoring called_emsg is clumsy
Bram Moolenaar <Bram@vim.org>
parents:
18812
diff
changeset
|
2925 if (called_emsg == called_emsg_before) |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2926 { |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2927 result = (nmatched != 0 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2928 && regmatch.startpos[0].lnum == regmatch.endpos[0].lnum |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2929 && regmatch.startpos[0].col == regmatch.endpos[0].col); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2930 } |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2931 } |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2932 |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2933 vim_regfree(regmatch.regprog); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2934 return result; |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2935 } |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2936 |
3755 | 2937 |
3718 | 2938 /* |
2939 * Find next search match under cursor, cursor at end. | |
2940 * Used while an operator is pending, and in Visual mode. | |
2941 */ | |
2942 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2943 current_search( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2944 long count, |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2945 int forward) // TRUE for forward, FALSE for backward |
3718 | 2946 { |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2947 pos_T start_pos; // start position of the pattern match |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2948 pos_T end_pos; // end position of the pattern match |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2949 pos_T orig_pos; // position of the cursor at beginning |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2950 pos_T pos; // position after the pattern |
3718 | 2951 int i; |
2952 int dir; | |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
2953 int result; // result of various function calls |
3718 | 2954 char_u old_p_ws = p_ws; |
2955 int flags = 0; | |
5210
839ebe7c1b2f
updated for version 7.4a.031
Bram Moolenaar <bram@vim.org>
parents:
5118
diff
changeset
|
2956 pos_T save_VIsual = VIsual; |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2957 int zero_width; |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2958 int skip_first_backward; |
3718 | 2959 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2960 // Correct cursor when 'selection' is exclusive |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11117
diff
changeset
|
2961 if (VIsual_active && *p_sel == 'e' && LT_POS(VIsual, curwin->w_cursor)) |
3718 | 2962 dec_cursor(); |
2963 | |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2964 // When searching forward and the cursor is at the start of the Visual |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2965 // area, skip the first search backward, otherwise it doesn't move. |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2966 skip_first_backward = forward && VIsual_active |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2967 && LT_POS(curwin->w_cursor, VIsual); |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2968 |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2969 orig_pos = pos = curwin->w_cursor; |
3718 | 2970 if (VIsual_active) |
2971 { | |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2972 if (forward) |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2973 incl(&pos); |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2974 else |
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2975 decl(&pos); |
3718 | 2976 } |
2977 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2978 // Is the pattern is zero-width?, this time, don't care about the direction |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2979 zero_width = is_zero_width(spats[last_idx].pat, TRUE, &curwin->w_cursor, |
12539
6d3584b60170
patch 8.0.1148: gN doesn't work on last match with 'wrapscan' off
Christian Brabandt <cb@256bit.org>
parents:
12515
diff
changeset
|
2980 FORWARD); |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
2981 if (zero_width == -1) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
2982 return FAIL; // pattern not found |
3732 | 2983 |
2984 /* | |
3718 | 2985 * The trick is to first search backwards and then search forward again, |
2986 * so that a match at the current cursor position will be correctly | |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2987 * captured. When "forward" is false do it the other way around. |
3718 | 2988 */ |
2989 for (i = 0; i < 2; i++) | |
2990 { | |
2991 if (forward) | |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2992 { |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2993 if (i == 0 && skip_first_backward) |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2994 continue; |
3718 | 2995 dir = i; |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
2996 } |
3718 | 2997 else |
2998 dir = !i; | |
3732 | 2999 |
3000 flags = 0; | |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
3001 if (!dir && !zero_width) |
3732 | 3002 flags = SEARCH_END; |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3003 end_pos = pos; |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3004 |
18500
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3005 // wrapping should not occur in the first round |
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3006 if (i == 0) |
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3007 p_ws = FALSE; |
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3008 |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3009 result = searchit(curwin, curbuf, &pos, &end_pos, |
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3010 (dir ? FORWARD : BACKWARD), |
3718 | 3011 spats[last_idx].pat, (long) (i ? count : 1), |
18358
34d5cd432cac
patch 8.1.2173: searchit() has too many arguments
Bram Moolenaar <Bram@vim.org>
parents:
18263
diff
changeset
|
3012 SEARCH_KEEP | flags, RE_SEARCH, NULL); |
3718 | 3013 |
18500
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3014 p_ws = old_p_ws; |
c0445cb7cfe0
patch 8.1.2244: 'wrapscan' is not used for "gn"
Bram Moolenaar <Bram@vim.org>
parents:
18448
diff
changeset
|
3015 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3016 // First search may fail, but then start searching from the |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3017 // beginning of the file (cursor might be on the search match) |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3018 // except when Visual mode is active, so that extending the visual |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3019 // selection works. |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3020 if (i == 1 && !result) // not found, abort |
3718 | 3021 { |
3022 curwin->w_cursor = orig_pos; | |
3023 if (VIsual_active) | |
3024 VIsual = save_VIsual; | |
3025 return FAIL; | |
3026 } | |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3027 else if (i == 0 && !result) |
3718 | 3028 { |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11117
diff
changeset
|
3029 if (forward) |
3718 | 3030 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3031 // try again from start of buffer |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11117
diff
changeset
|
3032 CLEAR_POS(&pos); |
3718 | 3033 } |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11117
diff
changeset
|
3034 else |
3718 | 3035 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3036 // try again from end of buffer |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3037 // searching backwards, so set pos to last line and col |
3718 | 3038 pos.lnum = curwin->w_buffer->b_ml.ml_line_count; |
3724 | 3039 pos.col = (colnr_T)STRLEN( |
3040 ml_get(curwin->w_buffer->b_ml.ml_line_count)); | |
3718 | 3041 } |
3042 } | |
3043 } | |
3044 | |
3045 start_pos = pos; | |
3046 | |
3047 if (!VIsual_active) | |
3048 VIsual = start_pos; | |
3049 | |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3050 // put the cursor after the match |
15239
db5d2429bda3
patch 8.1.0629: "gn" selects the wrong text with a multi-line match
Bram Moolenaar <Bram@vim.org>
parents:
15091
diff
changeset
|
3051 curwin->w_cursor = end_pos; |
18448
35e0ab1f2975
patch 8.1.2218: "gN" is off by one in Visual mode
Bram Moolenaar <Bram@vim.org>
parents:
18426
diff
changeset
|
3052 if (LT_POS(VIsual, end_pos) && forward) |
22578
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3053 { |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3054 if (skip_first_backward) |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3055 // put the cursor on the start of the match |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3056 curwin->w_cursor = pos; |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3057 else |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3058 // put the cursor on last character of match |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3059 dec_cursor(); |
381bd66762ea
patch 8.2.1837: using "gn" after "gN" does not work
Bram Moolenaar <Bram@vim.org>
parents:
22549
diff
changeset
|
3060 } |
22549
5055805908f5
patch 8.2.1823: "gN" does not select the matched string
Bram Moolenaar <Bram@vim.org>
parents:
22478
diff
changeset
|
3061 else if (VIsual_active && LT_POS(curwin->w_cursor, VIsual) && forward) |
18426
3b80bdbdc832
patch 8.1.2207: "gn" doesn't work quite right
Bram Moolenaar <Bram@vim.org>
parents:
18368
diff
changeset
|
3062 curwin->w_cursor = pos; // put the cursor on the start of the match |
3718 | 3063 VIsual_active = TRUE; |
3064 VIsual_mode = 'v'; | |
3065 | |
15758
675dd5d7afb3
patch 8.1.0886: compiler warning for NULL pointer and condition always true
Bram Moolenaar <Bram@vim.org>
parents:
15713
diff
changeset
|
3066 if (*p_sel == 'e') |
3718 | 3067 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3068 // Correction for exclusive selection depends on the direction. |
15758
675dd5d7afb3
patch 8.1.0886: compiler warning for NULL pointer and condition always true
Bram Moolenaar <Bram@vim.org>
parents:
15713
diff
changeset
|
3069 if (forward && LTOREQ_POS(VIsual, curwin->w_cursor)) |
675dd5d7afb3
patch 8.1.0886: compiler warning for NULL pointer and condition always true
Bram Moolenaar <Bram@vim.org>
parents:
15713
diff
changeset
|
3070 inc_cursor(); |
675dd5d7afb3
patch 8.1.0886: compiler warning for NULL pointer and condition always true
Bram Moolenaar <Bram@vim.org>
parents:
15713
diff
changeset
|
3071 else if (!forward && LTOREQ_POS(curwin->w_cursor, VIsual)) |
675dd5d7afb3
patch 8.1.0886: compiler warning for NULL pointer and condition always true
Bram Moolenaar <Bram@vim.org>
parents:
15713
diff
changeset
|
3072 inc(&VIsual); |
3718 | 3073 } |
3074 | |
3075 #ifdef FEAT_FOLDING | |
3076 if (fdo_flags & FDO_SEARCH && KeyTyped) | |
3077 foldOpenCursor(); | |
3078 #endif | |
3079 | |
3080 may_start_select('c'); | |
3081 setmouse(); | |
3082 #ifdef FEAT_CLIPBOARD | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3083 // Make sure the clipboard gets updated. Needed because start and |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3084 // end are still the same, and the selection needs to be owned |
3718 | 3085 clip_star.vmode = NUL; |
3086 #endif | |
3087 redraw_curbuf_later(INVERTED); | |
3088 showmode(); | |
3089 | |
3090 return OK; | |
3091 } | |
3755 | 3092 |
7 | 3093 /* |
3094 * return TRUE if line 'lnum' is empty or has white chars only. | |
3095 */ | |
3096 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3097 linewhite(linenr_T lnum) |
7 | 3098 { |
3099 char_u *p; | |
3100 | |
3101 p = skipwhite(ml_get(lnum)); | |
3102 return (*p == NUL); | |
3103 } | |
3104 | |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3105 /* |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3106 * Add the search count "[3/19]" to "msgbuf". |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3107 * See update_search_stat() for other arguments. |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3108 */ |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3109 static void |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3110 cmdline_search_stat( |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3111 int dirc, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3112 pos_T *pos, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3113 pos_T *cursor_pos, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3114 int show_top_bot_msg, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3115 char_u *msgbuf, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3116 int recompute, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3117 int maxcount, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3118 long timeout) |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3119 { |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3120 searchstat_T stat; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3121 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3122 update_search_stat(dirc, pos, cursor_pos, &stat, recompute, maxcount, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3123 timeout); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3124 if (stat.cur > 0) |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3125 { |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3126 char t[SEARCH_STAT_BUF_LEN]; |
16748
75703a39d875
patch 8.1.1376: warnings for size_t/int mixups
Bram Moolenaar <Bram@vim.org>
parents:
16746
diff
changeset
|
3127 size_t len; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3128 |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3129 #ifdef FEAT_RIGHTLEFT |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3130 if (curwin->w_p_rl && *curwin->w_p_rlc == 's') |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3131 { |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3132 if (stat.incomplete == 1) |
16572
f37255166ff4
patch 8.1.1289: may not have enough space to add "W" to search stats
Bram Moolenaar <Bram@vim.org>
parents:
16570
diff
changeset
|
3133 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[?/??]"); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3134 else if (stat.cnt > maxcount && stat.cur > maxcount) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3135 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[>%d/>%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3136 maxcount, maxcount); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3137 else if (stat.cnt > maxcount) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3138 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[>%d/%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3139 maxcount, stat.cur); |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3140 else |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3141 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[%d/%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3142 stat.cnt, stat.cur); |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3143 } |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3144 else |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3145 #endif |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3146 { |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3147 if (stat.incomplete == 1) |
16572
f37255166ff4
patch 8.1.1289: may not have enough space to add "W" to search stats
Bram Moolenaar <Bram@vim.org>
parents:
16570
diff
changeset
|
3148 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[?/??]"); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3149 else if (stat.cnt > maxcount && stat.cur > maxcount) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3150 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[>%d/>%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3151 maxcount, maxcount); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3152 else if (stat.cnt > maxcount) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3153 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[%d/>%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3154 stat.cur, maxcount); |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3155 else |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3156 vim_snprintf(t, SEARCH_STAT_BUF_LEN, "[%d/%d]", |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3157 stat.cur, stat.cnt); |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3158 } |
16560
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3159 |
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3160 len = STRLEN(t); |
16696
b1756c303066
patch 8.1.1350: "W" for wrapping not shown when more than 99 matches
Bram Moolenaar <Bram@vim.org>
parents:
16572
diff
changeset
|
3161 if (show_top_bot_msg && len + 2 < SEARCH_STAT_BUF_LEN) |
16560
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3162 { |
17992
a9c54c20295c
patch 8.1.1992: the search stat moves when wrapping at the end of the buffer
Bram Moolenaar <Bram@vim.org>
parents:
17948
diff
changeset
|
3163 mch_memmove(t + 2, t, len); |
a9c54c20295c
patch 8.1.1992: the search stat moves when wrapping at the end of the buffer
Bram Moolenaar <Bram@vim.org>
parents:
17948
diff
changeset
|
3164 t[0] = 'W'; |
a9c54c20295c
patch 8.1.1992: the search stat moves when wrapping at the end of the buffer
Bram Moolenaar <Bram@vim.org>
parents:
17948
diff
changeset
|
3165 t[1] = ' '; |
16560
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3166 len += 2; |
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3167 } |
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3168 |
8d0ea09e2d81
patch 8.1.1283: delaying half a second after the top-bot message
Bram Moolenaar <Bram@vim.org>
parents:
16535
diff
changeset
|
3169 mch_memmove(msgbuf + STRLEN(msgbuf) - len, t, len); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3170 if (dirc == '?' && stat.cur == maxcount + 1) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3171 stat.cur = -1; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3172 |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
3173 // keep the message even after redraw, but don't put in history |
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
3174 msg_hist_off = TRUE; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3175 give_warning(msgbuf, FALSE); |
16746
73ff6357da5b
patch 8.1.1375: without "TS" in 'shortmess' get a hit-enter prompt often
Bram Moolenaar <Bram@vim.org>
parents:
16738
diff
changeset
|
3176 msg_hist_off = FALSE; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3177 } |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3178 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3179 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3180 /* |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3181 * Add the search count information to "stat". |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3182 * "stat" must not be NULL. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3183 * When "recompute" is TRUE always recompute the numbers. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3184 * dirc == 0: don't find the next/previous match (only set the result to "stat") |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3185 * dirc == '/': find the next match |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3186 * dirc == '?': find the previous match |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3187 */ |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3188 static void |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3189 update_search_stat( |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3190 int dirc, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3191 pos_T *pos, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3192 pos_T *cursor_pos, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3193 searchstat_T *stat, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3194 int recompute, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3195 int maxcount, |
20651
3e03edae7e6f
patch 8.2.0879: compiler warning for unused function argument
Bram Moolenaar <Bram@vim.org>
parents:
20647
diff
changeset
|
3196 long timeout UNUSED) |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3197 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3198 int save_ws = p_ws; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3199 int wraparound = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3200 pos_T p = (*pos); |
20685
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
3201 static pos_T lastpos = {0, 0, 0}; |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3202 static int cur = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3203 static int cnt = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3204 static int exact_match = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3205 static int incomplete = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3206 static int last_maxcount = SEARCH_STAT_DEF_MAX_COUNT; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3207 static int chgtick = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3208 static char_u *lastpat = NULL; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3209 static buf_T *lbuf = NULL; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3210 #ifdef FEAT_RELTIME |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3211 proftime_T start; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3212 #endif |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3213 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3214 vim_memset(stat, 0, sizeof(searchstat_T)); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3215 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3216 if (dirc == 0 && !recompute && !EMPTY_POS(lastpos)) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3217 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3218 stat->cur = cur; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3219 stat->cnt = cnt; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3220 stat->exact_match = exact_match; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3221 stat->incomplete = incomplete; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3222 stat->last_maxcount = last_maxcount; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3223 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3224 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3225 last_maxcount = maxcount; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3226 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3227 wraparound = ((dirc == '?' && LT_POS(lastpos, p)) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3228 || (dirc == '/' && LT_POS(p, lastpos))); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3229 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3230 // If anything relevant changed the count has to be recomputed. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3231 // MB_STRNICMP ignores case, but we should not ignore case. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3232 // Unfortunately, there is no MB_STRNICMP function. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3233 // XXX: above comment should be "no MB_STRCMP function" ? |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3234 if (!(chgtick == CHANGEDTICK(curbuf) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3235 && MB_STRNICMP(lastpat, spats[last_idx].pat, STRLEN(lastpat)) == 0 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3236 && STRLEN(lastpat) == STRLEN(spats[last_idx].pat) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3237 && EQUAL_POS(lastpos, *cursor_pos) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3238 && lbuf == curbuf) || wraparound || cur < 0 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3239 || (maxcount > 0 && cur > maxcount) || recompute) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3240 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3241 cur = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3242 cnt = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3243 exact_match = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3244 incomplete = 0; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3245 CLEAR_POS(&lastpos); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3246 lbuf = curbuf; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3247 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3248 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3249 if (EQUAL_POS(lastpos, *cursor_pos) && !wraparound |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3250 && (dirc == 0 || dirc == '/' ? cur < cnt : cur > 0)) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3251 cur += dirc == 0 ? 0 : dirc == '/' ? 1 : -1; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3252 else |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3253 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3254 int done_search = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3255 pos_T endpos = {0, 0, 0}; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3256 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3257 p_ws = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3258 #ifdef FEAT_RELTIME |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3259 if (timeout > 0) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3260 profile_setlimit(timeout, &start); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3261 #endif |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3262 while (!got_int && searchit(curwin, curbuf, &lastpos, &endpos, |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3263 FORWARD, NULL, 1, SEARCH_KEEP, RE_LAST, NULL) != FAIL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3264 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3265 done_search = TRUE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3266 #ifdef FEAT_RELTIME |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3267 // Stop after passing the time limit. |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3268 if (timeout > 0 && profile_passed_limit(&start)) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3269 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3270 incomplete = 1; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3271 break; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3272 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3273 #endif |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3274 cnt++; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3275 if (LTOREQ_POS(lastpos, p)) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3276 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3277 cur = cnt; |
20667
a126f643d566
patch 8.2.0887: searchcount().exact_match is 1 right after a match
Bram Moolenaar <Bram@vim.org>
parents:
20661
diff
changeset
|
3278 if (LT_POS(p, endpos)) |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3279 exact_match = TRUE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3280 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3281 fast_breakcheck(); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3282 if (maxcount > 0 && cnt > maxcount) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3283 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3284 incomplete = 2; // max count exceeded |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3285 break; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3286 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3287 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3288 if (got_int) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3289 cur = -1; // abort |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3290 if (done_search) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3291 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3292 vim_free(lastpat); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3293 lastpat = vim_strsave(spats[last_idx].pat); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3294 chgtick = CHANGEDTICK(curbuf); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3295 lbuf = curbuf; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3296 lastpos = p; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3297 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3298 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3299 stat->cur = cur; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3300 stat->cnt = cnt; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3301 stat->exact_match = exact_match; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3302 stat->incomplete = incomplete; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
3303 stat->last_maxcount = last_maxcount; |
16533
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3304 p_ws = save_ws; |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3305 } |
5e25171e0e75
patch 8.1.1270: cannot see current match position
Bram Moolenaar <Bram@vim.org>
parents:
16239
diff
changeset
|
3306 |
7 | 3307 #if defined(FEAT_FIND_ID) || defined(PROTO) |
3308 /* | |
3309 * Find identifiers or defines in included files. | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3310 * If p_ic && compl_status_sol() then ptr must be in lowercase. |
7 | 3311 */ |
3312 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3313 find_pattern_in_path( |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3314 char_u *ptr, // pointer to search pattern |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3315 int dir UNUSED, // direction of expansion |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3316 int len, // length of search pattern |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3317 int whole, // match whole words only |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3318 int skip_comments, // don't match inside comments |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3319 int type, // Type of search; are we looking for a type? |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3320 // a macro? |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3321 long count, |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3322 int action, // What to do when we find it |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3323 linenr_T start_lnum, // first line to start searching |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3324 linenr_T end_lnum) // last line for searching |
7 | 3325 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3326 SearchedFile *files; // Stack of included files |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3327 SearchedFile *bigger; // When we need more space |
7 | 3328 int max_path_depth = 50; |
3329 long match_count = 1; | |
3330 | |
3331 char_u *pat; | |
3332 char_u *new_fname; | |
3333 char_u *curr_fname = curbuf->b_fname; | |
3334 char_u *prev_fname = NULL; | |
3335 linenr_T lnum; | |
3336 int depth; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3337 int depth_displayed; // For type==CHECK_PATH |
7 | 3338 int old_files; |
3339 int already_searched; | |
3340 char_u *file_line; | |
3341 char_u *line; | |
3342 char_u *p; | |
3343 char_u save_char; | |
3344 int define_matched; | |
3345 regmatch_T regmatch; | |
3346 regmatch_T incl_regmatch; | |
3347 regmatch_T def_regmatch; | |
3348 int matched = FALSE; | |
3349 int did_show = FALSE; | |
3350 int found = FALSE; | |
3351 int i; | |
3352 char_u *already = NULL; | |
3353 char_u *startp = NULL; | |
534 | 3354 char_u *inc_opt = NULL; |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11759
diff
changeset
|
3355 #if defined(FEAT_QUICKFIX) |
7 | 3356 win_T *curwin_save = NULL; |
3357 #endif | |
3358 | |
3359 regmatch.regprog = NULL; | |
3360 incl_regmatch.regprog = NULL; | |
3361 def_regmatch.regprog = NULL; | |
3362 | |
3363 file_line = alloc(LSIZE); | |
3364 if (file_line == NULL) | |
3365 return; | |
3366 | |
3367 if (type != CHECK_PATH && type != FIND_DEFINE | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3368 // when CONT_SOL is set compare "ptr" with the beginning of the |
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3369 // line is faster than quote_meta/regcomp/regexec "ptr" -- Acevedo |
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3370 && !compl_status_sol()) |
7 | 3371 { |
3372 pat = alloc(len + 5); | |
3373 if (pat == NULL) | |
3374 goto fpip_end; | |
3375 sprintf((char *)pat, whole ? "\\<%.*s\\>" : "%.*s", len, ptr); | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3376 // ignore case according to p_ic, p_scs and pat |
7 | 3377 regmatch.rm_ic = ignorecase(pat); |
23272
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
3378 regmatch.regprog = vim_regcomp(pat, magic_isset() ? RE_MAGIC : 0); |
7 | 3379 vim_free(pat); |
3380 if (regmatch.regprog == NULL) | |
3381 goto fpip_end; | |
3382 } | |
534 | 3383 inc_opt = (*curbuf->b_p_inc == NUL) ? p_inc : curbuf->b_p_inc; |
3384 if (*inc_opt != NUL) | |
7 | 3385 { |
23272
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
3386 incl_regmatch.regprog = vim_regcomp(inc_opt, |
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
3387 magic_isset() ? RE_MAGIC : 0); |
7 | 3388 if (incl_regmatch.regprog == NULL) |
3389 goto fpip_end; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3390 incl_regmatch.rm_ic = FALSE; // don't ignore case in incl. pat. |
7 | 3391 } |
3392 if (type == FIND_DEFINE && (*curbuf->b_p_def != NUL || *p_def != NUL)) | |
3393 { | |
3394 def_regmatch.regprog = vim_regcomp(*curbuf->b_p_def == NUL | |
23272
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
3395 ? p_def : curbuf->b_p_def, |
a84e7abb0c92
patch 8.2.2182: Vim9: value of 'magic' is still relevant
Bram Moolenaar <Bram@vim.org>
parents:
23229
diff
changeset
|
3396 magic_isset() ? RE_MAGIC : 0); |
7 | 3397 if (def_regmatch.regprog == NULL) |
3398 goto fpip_end; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3399 def_regmatch.rm_ic = FALSE; // don't ignore case in define pat. |
7 | 3400 } |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
3401 files = lalloc_clear(max_path_depth * sizeof(SearchedFile), TRUE); |
7 | 3402 if (files == NULL) |
3403 goto fpip_end; | |
3404 old_files = max_path_depth; | |
3405 depth = depth_displayed = -1; | |
3406 | |
3407 lnum = start_lnum; | |
3408 if (end_lnum > curbuf->b_ml.ml_line_count) | |
3409 end_lnum = curbuf->b_ml.ml_line_count; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3410 if (lnum > end_lnum) // do at least one line |
7 | 3411 lnum = end_lnum; |
3412 line = ml_get(lnum); | |
3413 | |
3414 for (;;) | |
3415 { | |
3416 if (incl_regmatch.regprog != NULL | |
3417 && vim_regexec(&incl_regmatch, line, (colnr_T)0)) | |
3418 { | |
534 | 3419 char_u *p_fname = (curr_fname == curbuf->b_fname) |
3420 ? curbuf->b_ffname : curr_fname; | |
3421 | |
3422 if (inc_opt != NULL && strstr((char *)inc_opt, "\\zs") != NULL) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3423 // Use text from '\zs' to '\ze' (or end) of 'include'. |
534 | 3424 new_fname = find_file_name_in_path(incl_regmatch.startp[0], |
5118
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3425 (int)(incl_regmatch.endp[0] - incl_regmatch.startp[0]), |
534 | 3426 FNAME_EXP|FNAME_INCL|FNAME_REL, 1L, p_fname); |
3427 else | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3428 // Use text after match with 'include'. |
534 | 3429 new_fname = file_name_in_line(incl_regmatch.endp[0], 0, |
681 | 3430 FNAME_EXP|FNAME_INCL|FNAME_REL, 1L, p_fname, NULL); |
7 | 3431 already_searched = FALSE; |
3432 if (new_fname != NULL) | |
3433 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3434 // Check whether we have already searched in this file |
7 | 3435 for (i = 0;; i++) |
3436 { | |
3437 if (i == depth + 1) | |
3438 i = old_files; | |
3439 if (i == max_path_depth) | |
3440 break; | |
16738
b52ea9c5f1db
patch 8.1.1371: cannot recover from a swap file
Bram Moolenaar <Bram@vim.org>
parents:
16696
diff
changeset
|
3441 if (fullpathcmp(new_fname, files[i].name, TRUE, TRUE) |
b52ea9c5f1db
patch 8.1.1371: cannot recover from a swap file
Bram Moolenaar <Bram@vim.org>
parents:
16696
diff
changeset
|
3442 & FPC_SAME) |
7 | 3443 { |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
3444 if (type != CHECK_PATH |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
3445 && action == ACTION_SHOW_ALL |
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
3446 && files[i].matched) |
7 | 3447 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3448 msg_putchar('\n'); // cursor below last one |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3449 if (!got_int) // don't display if 'q' |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3450 // typed at "--more--" |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3451 // message |
7 | 3452 { |
3453 msg_home_replace_hl(new_fname); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3454 msg_puts(_(" (includes previously listed match)")); |
7 | 3455 prev_fname = NULL; |
3456 } | |
3457 } | |
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13225
diff
changeset
|
3458 VIM_CLEAR(new_fname); |
7 | 3459 already_searched = TRUE; |
3460 break; | |
3461 } | |
3462 } | |
3463 } | |
3464 | |
3465 if (type == CHECK_PATH && (action == ACTION_SHOW_ALL | |
3466 || (new_fname == NULL && !already_searched))) | |
3467 { | |
3468 if (did_show) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3469 msg_putchar('\n'); // cursor below last one |
7 | 3470 else |
3471 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3472 gotocmdline(TRUE); // cursor at status line |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3473 msg_puts_title(_("--- Included files ")); |
7 | 3474 if (action != ACTION_SHOW_ALL) |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3475 msg_puts_title(_("not found ")); |
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3476 msg_puts_title(_("in path ---\n")); |
7 | 3477 } |
3478 did_show = TRUE; | |
3479 while (depth_displayed < depth && !got_int) | |
3480 { | |
3481 ++depth_displayed; | |
3482 for (i = 0; i < depth_displayed; i++) | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3483 msg_puts(" "); |
7 | 3484 msg_home_replace(files[depth_displayed].name); |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3485 msg_puts(" -->\n"); |
7 | 3486 } |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3487 if (!got_int) // don't display if 'q' typed |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3488 // for "--more--" message |
7 | 3489 { |
3490 for (i = 0; i <= depth_displayed; i++) | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3491 msg_puts(" "); |
7 | 3492 if (new_fname != NULL) |
3493 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3494 // using "new_fname" is more reliable, e.g., when |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3495 // 'includeexpr' is set. |
11158
501f46f7644c
patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
3496 msg_outtrans_attr(new_fname, HL_ATTR(HLF_D)); |
7 | 3497 } |
3498 else | |
3499 { | |
3500 /* | |
3501 * Isolate the file name. | |
3502 * Include the surrounding "" or <> if present. | |
3503 */ | |
3699 | 3504 if (inc_opt != NULL |
3505 && strstr((char *)inc_opt, "\\zs") != NULL) | |
3506 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3507 // pattern contains \zs, use the match |
3699 | 3508 p = incl_regmatch.startp[0]; |
3509 i = (int)(incl_regmatch.endp[0] | |
3510 - incl_regmatch.startp[0]); | |
3511 } | |
3512 else | |
3513 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3514 // find the file name after the end of the match |
3699 | 3515 for (p = incl_regmatch.endp[0]; |
3516 *p && !vim_isfilec(*p); p++) | |
3517 ; | |
3518 for (i = 0; vim_isfilec(p[i]); i++) | |
3519 ; | |
3520 } | |
3521 | |
7 | 3522 if (i == 0) |
3523 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3524 // Nothing found, use the rest of the line. |
7 | 3525 p = incl_regmatch.endp[0]; |
835 | 3526 i = (int)STRLEN(p); |
7 | 3527 } |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3528 // Avoid checking before the start of the line, can |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3529 // happen if \zs appears in the regexp. |
3699 | 3530 else if (p > line) |
7 | 3531 { |
3532 if (p[-1] == '"' || p[-1] == '<') | |
3533 { | |
3534 --p; | |
3535 ++i; | |
3536 } | |
3537 if (p[i] == '"' || p[i] == '>') | |
3538 ++i; | |
3539 } | |
3540 save_char = p[i]; | |
3541 p[i] = NUL; | |
11158
501f46f7644c
patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
3542 msg_outtrans_attr(p, HL_ATTR(HLF_D)); |
7 | 3543 p[i] = save_char; |
3544 } | |
3545 | |
3546 if (new_fname == NULL && action == ACTION_SHOW_ALL) | |
3547 { | |
3548 if (already_searched) | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3549 msg_puts(_(" (Already listed)")); |
7 | 3550 else |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3551 msg_puts(_(" NOT FOUND")); |
7 | 3552 } |
3553 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3554 out_flush(); // output each line directly |
7 | 3555 } |
3556 | |
3557 if (new_fname != NULL) | |
3558 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3559 // Push the new file onto the file stack |
7 | 3560 if (depth + 1 == old_files) |
3561 { | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16782
diff
changeset
|
3562 bigger = ALLOC_MULT(SearchedFile, max_path_depth * 2); |
7 | 3563 if (bigger != NULL) |
3564 { | |
3565 for (i = 0; i <= depth; i++) | |
3566 bigger[i] = files[i]; | |
3567 for (i = depth + 1; i < old_files + max_path_depth; i++) | |
3568 { | |
3569 bigger[i].fp = NULL; | |
3570 bigger[i].name = NULL; | |
3571 bigger[i].lnum = 0; | |
3572 bigger[i].matched = FALSE; | |
3573 } | |
3574 for (i = old_files; i < max_path_depth; i++) | |
3575 bigger[i + max_path_depth] = files[i]; | |
3576 old_files += max_path_depth; | |
3577 max_path_depth *= 2; | |
3578 vim_free(files); | |
3579 files = bigger; | |
3580 } | |
3581 } | |
3582 if ((files[depth + 1].fp = mch_fopen((char *)new_fname, "r")) | |
3583 == NULL) | |
3584 vim_free(new_fname); | |
3585 else | |
3586 { | |
3587 if (++depth == old_files) | |
3588 { | |
3589 /* | |
3590 * lalloc() for 'bigger' must have failed above. We | |
3591 * will forget one of our already visited files now. | |
3592 */ | |
3593 vim_free(files[old_files].name); | |
3594 ++old_files; | |
3595 } | |
3596 files[depth].name = curr_fname = new_fname; | |
3597 files[depth].lnum = 0; | |
3598 files[depth].matched = FALSE; | |
3599 if (action == ACTION_EXPAND) | |
3600 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3601 msg_hist_off = TRUE; // reset in msg_trunc_attr() |
274 | 3602 vim_snprintf((char*)IObuff, IOSIZE, |
3603 _("Scanning included file: %s"), | |
3604 (char *)new_fname); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3605 msg_trunc_attr((char *)IObuff, TRUE, HL_ATTR(HLF_R)); |
7 | 3606 } |
17809
59f8948b7590
patch 8.1.1901: the +insert_expand feature is not always available
Bram Moolenaar <Bram@vim.org>
parents:
17767
diff
changeset
|
3607 else if (p_verbose >= 5) |
712 | 3608 { |
3609 verbose_enter(); | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15239
diff
changeset
|
3610 smsg(_("Searching included file %s"), |
712 | 3611 (char *)new_fname); |
3612 verbose_leave(); | |
3613 } | |
3614 | |
7 | 3615 } |
3616 } | |
3617 } | |
3618 else | |
3619 { | |
3620 /* | |
3621 * Check if the line is a define (type == FIND_DEFINE) | |
3622 */ | |
3623 p = line; | |
3624 search_line: | |
3625 define_matched = FALSE; | |
3626 if (def_regmatch.regprog != NULL | |
3627 && vim_regexec(&def_regmatch, line, (colnr_T)0)) | |
3628 { | |
3629 /* | |
3630 * Pattern must be first identifier after 'define', so skip | |
3631 * to that position before checking for match of pattern. Also | |
3632 * don't let it match beyond the end of this identifier. | |
3633 */ | |
3634 p = def_regmatch.endp[0]; | |
3635 while (*p && !vim_iswordc(*p)) | |
3636 p++; | |
3637 define_matched = TRUE; | |
3638 } | |
3639 | |
3640 /* | |
3641 * Look for a match. Don't do this if we are looking for a | |
3642 * define and this line didn't match define_prog above. | |
3643 */ | |
3644 if (def_regmatch.regprog == NULL || define_matched) | |
3645 { | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3646 if (define_matched || compl_status_sol()) |
7 | 3647 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3648 // compare the first "len" chars from "ptr" |
7 | 3649 startp = skipwhite(p); |
3650 if (p_ic) | |
3651 matched = !MB_STRNICMP(startp, ptr, len); | |
3652 else | |
3653 matched = !STRNCMP(startp, ptr, len); | |
3654 if (matched && define_matched && whole | |
3655 && vim_iswordc(startp[len])) | |
3656 matched = FALSE; | |
3657 } | |
3658 else if (regmatch.regprog != NULL | |
3659 && vim_regexec(®match, line, (colnr_T)(p - line))) | |
3660 { | |
3661 matched = TRUE; | |
3662 startp = regmatch.startp[0]; | |
3663 /* | |
3664 * Check if the line is not a comment line (unless we are | |
3665 * looking for a define). A line starting with "# define" | |
3666 * is not considered to be a comment line. | |
3667 */ | |
3668 if (!define_matched && skip_comments) | |
3669 { | |
3670 if ((*line != '#' || | |
3671 STRNCMP(skipwhite(line + 1), "define", 6) != 0) | |
3562 | 3672 && get_leader_len(line, NULL, FALSE, TRUE)) |
7 | 3673 matched = FALSE; |
3674 | |
3675 /* | |
3676 * Also check for a "/ *" or "/ /" before the match. | |
3677 * Skips lines like "int backwards; / * normal index | |
3678 * * /" when looking for "normal". | |
3679 * Note: Doesn't skip "/ *" in comments. | |
3680 */ | |
3681 p = skipwhite(line); | |
3682 if (matched | |
3683 || (p[0] == '/' && p[1] == '*') || p[0] == '*') | |
3684 for (p = line; *p && p < startp; ++p) | |
3685 { | |
3686 if (matched | |
3687 && p[0] == '/' | |
3688 && (p[1] == '*' || p[1] == '/')) | |
3689 { | |
3690 matched = FALSE; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3691 // After "//" all text is comment |
7 | 3692 if (p[1] == '/') |
3693 break; | |
3694 ++p; | |
3695 } | |
3696 else if (!matched && p[0] == '*' && p[1] == '/') | |
3697 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3698 // Can find match after "* /". |
7 | 3699 matched = TRUE; |
3700 ++p; | |
3701 } | |
3702 } | |
3703 } | |
3704 } | |
3705 } | |
3706 } | |
3707 if (matched) | |
3708 { | |
3709 if (action == ACTION_EXPAND) | |
3710 { | |
16239
5df26b29e809
patch 8.1.1124: insert completion flags are mixed up
Bram Moolenaar <Bram@vim.org>
parents:
16142
diff
changeset
|
3711 int cont_s_ipos = FALSE; |
7 | 3712 int add_r; |
3713 char_u *aux; | |
3714 | |
3715 if (depth == -1 && lnum == curwin->w_cursor.lnum) | |
3716 break; | |
3717 found = TRUE; | |
3718 aux = p = startp; | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3719 if (compl_status_adding()) |
7 | 3720 { |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3721 p += ins_compl_len(); |
7 | 3722 if (vim_iswordp(p)) |
3723 goto exit_matched; | |
3724 p = find_word_start(p); | |
3725 } | |
3726 p = find_word_end(p); | |
3727 i = (int)(p - aux); | |
3728 | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3729 if (compl_status_adding() && i == ins_compl_len()) |
7 | 3730 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3731 // IOSIZE > compl_length, so the STRNCPY works |
7 | 3732 STRNCPY(IObuff, aux, i); |
944 | 3733 |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3734 // Get the next line: when "depth" < 0 from the current |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3735 // buffer, otherwise from the included file. Jump to |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3736 // exit_matched when past the last line. |
944 | 3737 if (depth < 0) |
3738 { | |
3739 if (lnum >= end_lnum) | |
3740 goto exit_matched; | |
3741 line = ml_get(++lnum); | |
3742 } | |
3743 else if (vim_fgets(line = file_line, | |
3744 LSIZE, files[depth].fp)) | |
7 | 3745 goto exit_matched; |
3746 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3747 // we read a line, set "already" to check this "line" later |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3748 // if depth >= 0 we'll increase files[depth].lnum far |
23229
b545334ae654
patch 8.2.2160: various typos
Bram Moolenaar <Bram@vim.org>
parents:
22746
diff
changeset
|
3749 // below -- Acevedo |
7 | 3750 already = aux = p = skipwhite(line); |
3751 p = find_word_start(p); | |
3752 p = find_word_end(p); | |
3753 if (p > aux) | |
3754 { | |
3755 if (*aux != ')' && IObuff[i-1] != TAB) | |
3756 { | |
3757 if (IObuff[i-1] != ' ') | |
3758 IObuff[i++] = ' '; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3759 // IObuf =~ "\(\k\|\i\).* ", thus i >= 2 |
7 | 3760 if (p_js |
3761 && (IObuff[i-2] == '.' | |
3762 || (vim_strchr(p_cpo, CPO_JOINSP) == NULL | |
3763 && (IObuff[i-2] == '?' | |
3764 || IObuff[i-2] == '!')))) | |
3765 IObuff[i++] = ' '; | |
3766 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3767 // copy as much as possible of the new word |
7 | 3768 if (p - aux >= IOSIZE - i) |
3769 p = aux + IOSIZE - i - 1; | |
3770 STRNCPY(IObuff + i, aux, p - aux); | |
3771 i += (int)(p - aux); | |
16239
5df26b29e809
patch 8.1.1124: insert completion flags are mixed up
Bram Moolenaar <Bram@vim.org>
parents:
16142
diff
changeset
|
3772 cont_s_ipos = TRUE; |
7 | 3773 } |
3774 IObuff[i] = NUL; | |
3775 aux = IObuff; | |
3776 | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3777 if (i == ins_compl_len()) |
7 | 3778 goto exit_matched; |
3779 } | |
3780 | |
942 | 3781 add_r = ins_compl_add_infercase(aux, i, p_ic, |
7 | 3782 curr_fname == curbuf->b_fname ? NULL : curr_fname, |
16239
5df26b29e809
patch 8.1.1124: insert completion flags are mixed up
Bram Moolenaar <Bram@vim.org>
parents:
16142
diff
changeset
|
3783 dir, cont_s_ipos); |
7 | 3784 if (add_r == OK) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3785 // if dir was BACKWARD then honor it just once |
7 | 3786 dir = FORWARD; |
464 | 3787 else if (add_r == FAIL) |
7 | 3788 break; |
3789 } | |
17809
59f8948b7590
patch 8.1.1901: the +insert_expand feature is not always available
Bram Moolenaar <Bram@vim.org>
parents:
17767
diff
changeset
|
3790 else if (action == ACTION_SHOW_ALL) |
7 | 3791 { |
3792 found = TRUE; | |
3793 if (!did_show) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3794 gotocmdline(TRUE); // cursor at status line |
7 | 3795 if (curr_fname != prev_fname) |
3796 { | |
3797 if (did_show) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3798 msg_putchar('\n'); // cursor below last one |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3799 if (!got_int) // don't display if 'q' typed |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3800 // at "--more--" message |
7 | 3801 msg_home_replace_hl(curr_fname); |
3802 prev_fname = curr_fname; | |
3803 } | |
3804 did_show = TRUE; | |
3805 if (!got_int) | |
3806 show_pat_in_path(line, type, TRUE, action, | |
3807 (depth == -1) ? NULL : files[depth].fp, | |
3808 (depth == -1) ? &lnum : &files[depth].lnum, | |
3809 match_count++); | |
3810 | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3811 // Set matched flag for this file and all the ones that |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3812 // include it |
7 | 3813 for (i = 0; i <= depth; ++i) |
3814 files[i].matched = TRUE; | |
3815 } | |
3816 else if (--count <= 0) | |
3817 { | |
3818 found = TRUE; | |
3819 if (depth == -1 && lnum == curwin->w_cursor.lnum | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11759
diff
changeset
|
3820 #if defined(FEAT_QUICKFIX) |
7 | 3821 && g_do_tagpreview == 0 |
3822 #endif | |
3823 ) | |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
3824 emsg(_(e_match_is_on_current_line)); |
7 | 3825 else if (action == ACTION_SHOW) |
3826 { | |
3827 show_pat_in_path(line, type, did_show, action, | |
3828 (depth == -1) ? NULL : files[depth].fp, | |
3829 (depth == -1) ? &lnum : &files[depth].lnum, 1L); | |
3830 did_show = TRUE; | |
3831 } | |
3832 else | |
3833 { | |
3834 #ifdef FEAT_GUI | |
3835 need_mouse_correct = TRUE; | |
3836 #endif | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11759
diff
changeset
|
3837 #if defined(FEAT_QUICKFIX) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3838 // ":psearch" uses the preview window |
7 | 3839 if (g_do_tagpreview != 0) |
3840 { | |
3841 curwin_save = curwin; | |
17767
c75da1064e33
patch 8.1.1880: cannot show extra info for completion in a popup window
Bram Moolenaar <Bram@vim.org>
parents:
17652
diff
changeset
|
3842 prepare_tagpreview(TRUE, TRUE, FALSE); |
7 | 3843 } |
3844 #endif | |
3845 if (action == ACTION_SPLIT) | |
3846 { | |
3847 if (win_split(0, 0) == FAIL) | |
3848 break; | |
2583 | 3849 RESET_BINDING(curwin); |
7 | 3850 } |
3851 if (depth == -1) | |
3852 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3853 // match in current file |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11759
diff
changeset
|
3854 #if defined(FEAT_QUICKFIX) |
7 | 3855 if (g_do_tagpreview != 0) |
3856 { | |
23847
b0e7fa957cd1
patch 8.2.2465: using freed memory in :psearch
Bram Moolenaar <Bram@vim.org>
parents:
23505
diff
changeset
|
3857 if (!win_valid(curwin_save)) |
b0e7fa957cd1
patch 8.2.2465: using freed memory in :psearch
Bram Moolenaar <Bram@vim.org>
parents:
23505
diff
changeset
|
3858 break; |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
3859 if (!GETFILE_SUCCESS(getfile( |
11759
5e36b2f825cb
patch 8.0.0762: ml_get error with :psearch in buffer without a name
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3860 curwin_save->w_buffer->b_fnum, NULL, |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
3861 NULL, TRUE, lnum, FALSE))) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3862 break; // failed to jump to file |
7 | 3863 } |
3864 else | |
3865 #endif | |
3866 setpcmark(); | |
3867 curwin->w_cursor.lnum = lnum; | |
11759
5e36b2f825cb
patch 8.0.0762: ml_get error with :psearch in buffer without a name
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3868 check_cursor(); |
7 | 3869 } |
3870 else | |
3871 { | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
3872 if (!GETFILE_SUCCESS(getfile( |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
3873 0, files[depth].name, NULL, TRUE, |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11275
diff
changeset
|
3874 files[depth].lnum, FALSE))) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3875 break; // failed to jump to file |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3876 // autocommands may have changed the lnum, we don't |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3877 // want that here |
7 | 3878 curwin->w_cursor.lnum = files[depth].lnum; |
3879 } | |
3880 } | |
3881 if (action != ACTION_SHOW) | |
3882 { | |
1859 | 3883 curwin->w_cursor.col = (colnr_T)(startp - line); |
7 | 3884 curwin->w_set_curswant = TRUE; |
3885 } | |
3886 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11759
diff
changeset
|
3887 #if defined(FEAT_QUICKFIX) |
7 | 3888 if (g_do_tagpreview != 0 |
673 | 3889 && curwin != curwin_save && win_valid(curwin_save)) |
7 | 3890 { |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3891 // Return cursor to where we were |
7 | 3892 validate_cursor(); |
3893 redraw_later(VALID); | |
3894 win_enter(curwin_save, TRUE); | |
3895 } | |
18763
49b78d6465e5
patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents:
18681
diff
changeset
|
3896 # ifdef FEAT_PROP_POPUP |
17644
daa1dea1c1b3
patch 8.1.1819: :pedit does not work with a popup preview window
Bram Moolenaar <Bram@vim.org>
parents:
17476
diff
changeset
|
3897 else if (WIN_IS_POPUP(curwin)) |
daa1dea1c1b3
patch 8.1.1819: :pedit does not work with a popup preview window
Bram Moolenaar <Bram@vim.org>
parents:
17476
diff
changeset
|
3898 // can't keep focus in popup window |
daa1dea1c1b3
patch 8.1.1819: :pedit does not work with a popup preview window
Bram Moolenaar <Bram@vim.org>
parents:
17476
diff
changeset
|
3899 win_enter(firstwin, TRUE); |
daa1dea1c1b3
patch 8.1.1819: :pedit does not work with a popup preview window
Bram Moolenaar <Bram@vim.org>
parents:
17476
diff
changeset
|
3900 # endif |
7 | 3901 #endif |
3902 break; | |
3903 } | |
3904 exit_matched: | |
3905 matched = FALSE; | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3906 // look for other matches in the rest of the line if we |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3907 // are not at the end of it already |
7 | 3908 if (def_regmatch.regprog == NULL |
3909 && action == ACTION_EXPAND | |
26944
8dbdd68627bd
patch 8.2.4001: insert complete code uses global variables
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
3910 && !compl_status_sol() |
1859 | 3911 && *startp != NUL |
18251
c8a53c0daeed
patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents:
18203
diff
changeset
|
3912 && *(p = startp + mb_ptr2len(startp)) != NUL) |
7 | 3913 goto search_line; |
3914 } | |
3915 line_breakcheck(); | |
3916 if (action == ACTION_EXPAND) | |
10277
154d5a2e7395
commit https://github.com/vim/vim/commit/472e85970ee3a80abd824bef510df12e9cfe9e96
Christian Brabandt <cb@256bit.org>
parents:
10172
diff
changeset
|
3917 ins_compl_check_keys(30, FALSE); |
16142
570a296aa0b4
patch 8.1.1076: file for Insert mode is much too big
Bram Moolenaar <Bram@vim.org>
parents:
15971
diff
changeset
|
3918 if (got_int || ins_compl_interrupted()) |
7 | 3919 break; |
3920 | |
3921 /* | |
3922 * Read the next line. When reading an included file and encountering | |
3923 * end-of-file, close the file and continue in the file that included | |
3924 * it. | |
3925 */ | |
3926 while (depth >= 0 && !already | |
3927 && vim_fgets(line = file_line, LSIZE, files[depth].fp)) | |
3928 { | |
3929 fclose(files[depth].fp); | |
3930 --old_files; | |
3931 files[old_files].name = files[depth].name; | |
3932 files[old_files].matched = files[depth].matched; | |
3933 --depth; | |
3934 curr_fname = (depth == -1) ? curbuf->b_fname | |
3935 : files[depth].name; | |
3936 if (depth < depth_displayed) | |
3937 depth_displayed = depth; | |
3938 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3939 if (depth >= 0) // we could read the line |
5118
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3940 { |
7 | 3941 files[depth].lnum++; |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3942 // Remove any CR and LF from the line. |
5118
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3943 i = (int)STRLEN(line); |
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3944 if (i > 0 && line[i - 1] == '\n') |
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3945 line[--i] = NUL; |
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3946 if (i > 0 && line[i - 1] == '\r') |
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3947 line[--i] = NUL; |
5569d11ef585
updated for version 7.3.1302
Bram Moolenaar <bram@vim.org>
parents:
5064
diff
changeset
|
3948 } |
7 | 3949 else if (!already) |
3950 { | |
3951 if (++lnum > end_lnum) | |
3952 break; | |
3953 line = ml_get(lnum); | |
3954 } | |
3955 already = NULL; | |
3956 } | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3957 // End of big for (;;) loop. |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3958 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
3959 // Close any files that are still open. |
7 | 3960 for (i = 0; i <= depth; i++) |
3961 { | |
3962 fclose(files[i].fp); | |
3963 vim_free(files[i].name); | |
3964 } | |
3965 for (i = old_files; i < max_path_depth; i++) | |
3966 vim_free(files[i].name); | |
3967 vim_free(files); | |
3968 | |
3969 if (type == CHECK_PATH) | |
3970 { | |
3971 if (!did_show) | |
3972 { | |
3973 if (action != ACTION_SHOW_ALL) | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3974 msg(_("All included files were found")); |
7 | 3975 else |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3976 msg(_("No included files")); |
7 | 3977 } |
3978 } | |
17809
59f8948b7590
patch 8.1.1901: the +insert_expand feature is not always available
Bram Moolenaar <Bram@vim.org>
parents:
17767
diff
changeset
|
3979 else if (!found && action != ACTION_EXPAND) |
7 | 3980 { |
16142
570a296aa0b4
patch 8.1.1076: file for Insert mode is much too big
Bram Moolenaar <Bram@vim.org>
parents:
15971
diff
changeset
|
3981 if (got_int || ins_compl_interrupted()) |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
3982 emsg(_(e_interrupted)); |
7 | 3983 else if (type == FIND_DEFINE) |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
3984 emsg(_(e_couldnt_find_definition)); |
7 | 3985 else |
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26887
diff
changeset
|
3986 emsg(_(e_couldnt_find_pattern)); |
7 | 3987 } |
3988 if (action == ACTION_SHOW || action == ACTION_SHOW_ALL) | |
3989 msg_end(); | |
3990 | |
3991 fpip_end: | |
3992 vim_free(file_line); | |
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4352
diff
changeset
|
3993 vim_regfree(regmatch.regprog); |
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4352
diff
changeset
|
3994 vim_regfree(incl_regmatch.regprog); |
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4352
diff
changeset
|
3995 vim_regfree(def_regmatch.regprog); |
7 | 3996 } |
3997 | |
3998 static void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3999 show_pat_in_path( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4000 char_u *line, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4001 int type, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4002 int did_show, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4003 int action, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4004 FILE *fp, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4005 linenr_T *lnum, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4006 long count) |
7 | 4007 { |
4008 char_u *p; | |
4009 | |
4010 if (did_show) | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4011 msg_putchar('\n'); // cursor below last one |
867 | 4012 else if (!msg_silent) |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4013 gotocmdline(TRUE); // cursor at status line |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4014 if (got_int) // 'q' typed at "--more--" message |
7 | 4015 return; |
4016 for (;;) | |
4017 { | |
4018 p = line + STRLEN(line) - 1; | |
4019 if (fp != NULL) | |
4020 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4021 // We used fgets(), so get rid of newline at end |
7 | 4022 if (p >= line && *p == '\n') |
4023 --p; | |
4024 if (p >= line && *p == '\r') | |
4025 --p; | |
4026 *(p + 1) = NUL; | |
4027 } | |
4028 if (action == ACTION_SHOW_ALL) | |
4029 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4030 sprintf((char *)IObuff, "%3ld: ", count); // show match nr |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
4031 msg_puts((char *)IObuff); |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4032 sprintf((char *)IObuff, "%4ld", *lnum); // show line nr |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4033 // Highlight line numbers |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
4034 msg_puts_attr((char *)IObuff, HL_ATTR(HLF_N)); |
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
4035 msg_puts(" "); |
7 | 4036 } |
168 | 4037 msg_prt_line(line, FALSE); |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4038 out_flush(); // show one line at a time |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4039 |
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4040 // Definition continues until line that doesn't end with '\' |
7 | 4041 if (got_int || type != FIND_DEFINE || p < line || *p != '\\') |
4042 break; | |
4043 | |
4044 if (fp != NULL) | |
4045 { | |
18812
d34ec6fe207d
patch 8.1.2394: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18763
diff
changeset
|
4046 if (vim_fgets(line, LSIZE, fp)) // end of file |
7 | 4047 break; |
4048 ++*lnum; | |
4049 } | |
4050 else | |
4051 { | |
4052 if (++*lnum > curbuf->b_ml.ml_line_count) | |
4053 break; | |
4054 line = ml_get(*lnum); | |
4055 } | |
4056 msg_putchar('\n'); | |
4057 } | |
4058 } | |
4059 #endif | |
4060 | |
4061 #ifdef FEAT_VIMINFO | |
18263
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4062 /* |
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4063 * Return the last used search pattern at "idx". |
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4064 */ |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4065 spat_T * |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4066 get_spat(int idx) |
7 | 4067 { |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4068 return &spats[idx]; |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4069 } |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4070 |
18263
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4071 /* |
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4072 * Return the last used search pattern index. |
a5de1d88590d
patch 8.1.2126: viminfo not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
18251
diff
changeset
|
4073 */ |
17476
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4074 int |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4075 get_spat_last_idx(void) |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4076 { |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4077 return last_idx; |
d4b2a212fa2f
patch 8.1.1736: viminfo support is spread out
Bram Moolenaar <Bram@vim.org>
parents:
16949
diff
changeset
|
4078 } |
7 | 4079 #endif |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4080 |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4081 #if defined(FEAT_EVAL) || defined(FEAT_PROTO) |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4082 /* |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4083 * "searchcount()" function |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4084 */ |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4085 void |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4086 f_searchcount(typval_T *argvars, typval_T *rettv) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4087 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4088 pos_T pos = curwin->w_cursor; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4089 char_u *pattern = NULL; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4090 int maxcount = SEARCH_STAT_DEF_MAX_COUNT; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4091 long timeout = SEARCH_STAT_DEF_TIMEOUT; |
22141
a2d8535d035a
patch 8.2.1620: searchcount() test fails
Bram Moolenaar <Bram@vim.org>
parents:
22129
diff
changeset
|
4092 int recompute = TRUE; |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4093 searchstat_T stat; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4094 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4095 if (rettv_dict_alloc(rettv) == FAIL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4096 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4097 |
25384
e8e2c4d33b9b
patch 8.2.3229: Vim9: runtime and compile time type checks are not the same
Bram Moolenaar <Bram@vim.org>
parents:
25306
diff
changeset
|
4098 if (in_vim9script() && check_for_opt_dict_arg(argvars, 0) == FAIL) |
e8e2c4d33b9b
patch 8.2.3229: Vim9: runtime and compile time type checks are not the same
Bram Moolenaar <Bram@vim.org>
parents:
25306
diff
changeset
|
4099 return; |
e8e2c4d33b9b
patch 8.2.3229: Vim9: runtime and compile time type checks are not the same
Bram Moolenaar <Bram@vim.org>
parents:
25306
diff
changeset
|
4100 |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4101 if (shortmess(SHM_SEARCHCOUNT)) // 'shortmess' contains 'S' flag |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4102 recompute = TRUE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4103 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4104 if (argvars[0].v_type != VAR_UNKNOWN) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4105 { |
20685
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4106 dict_T *dict; |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4107 dictitem_T *di; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4108 listitem_T *li; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4109 int error = FALSE; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4110 |
20685
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4111 if (argvars[0].v_type != VAR_DICT || argvars[0].vval.v_dict == NULL) |
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4112 { |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26865
diff
changeset
|
4113 emsg(_(e_dictionary_required)); |
20685
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4114 return; |
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4115 } |
4c66962d322b
patch 8.2.0896: crash when calling searchcount() with a string
Bram Moolenaar <Bram@vim.org>
parents:
20667
diff
changeset
|
4116 dict = argvars[0].vval.v_dict; |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4117 di = dict_find(dict, (char_u *)"timeout", -1); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4118 if (di != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4119 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4120 timeout = (long)tv_get_number_chk(&di->di_tv, &error); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4121 if (error) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4122 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4123 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4124 di = dict_find(dict, (char_u *)"maxcount", -1); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4125 if (di != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4126 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4127 maxcount = (int)tv_get_number_chk(&di->di_tv, &error); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4128 if (error) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4129 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4130 } |
22129
003f51ef2e5c
patch 8.2.1614: Vim9: cannot pass "true" to searchcount()
Bram Moolenaar <Bram@vim.org>
parents:
21628
diff
changeset
|
4131 recompute = dict_get_bool(dict, (char_u *)"recompute", recompute); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4132 di = dict_find(dict, (char_u *)"pattern", -1); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4133 if (di != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4134 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4135 pattern = tv_get_string_chk(&di->di_tv); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4136 if (pattern == NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4137 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4138 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4139 di = dict_find(dict, (char_u *)"pos", -1); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4140 if (di != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4141 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4142 if (di->di_tv.v_type != VAR_LIST) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4143 { |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
4144 semsg(_(e_invalid_argument_str), "pos"); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4145 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4146 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4147 if (list_len(di->di_tv.vval.v_list) != 3) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4148 { |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
4149 semsg(_(e_invalid_argument_str), "List format should be [lnum, col, off]"); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4150 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4151 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4152 li = list_find(di->di_tv.vval.v_list, 0L); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4153 if (li != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4154 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4155 pos.lnum = tv_get_number_chk(&li->li_tv, &error); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4156 if (error) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4157 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4158 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4159 li = list_find(di->di_tv.vval.v_list, 1L); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4160 if (li != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4161 { |
28809
d0241e74bfdb
patch 8.2.4928: various white space and cosmetic mistakes
Bram Moolenaar <Bram@vim.org>
parents:
28773
diff
changeset
|
4162 pos.col = tv_get_number_chk(&li->li_tv, &error) - 1; |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4163 if (error) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4164 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4165 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4166 li = list_find(di->di_tv.vval.v_list, 2L); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4167 if (li != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4168 { |
28809
d0241e74bfdb
patch 8.2.4928: various white space and cosmetic mistakes
Bram Moolenaar <Bram@vim.org>
parents:
28773
diff
changeset
|
4169 pos.coladd = tv_get_number_chk(&li->li_tv, &error); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4170 if (error) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4171 return; |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4172 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4173 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4174 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4175 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4176 save_last_search_pattern(); |
27704
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4177 #ifdef FEAT_SEARCH_EXTRA |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4178 save_incsearch_state(); |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4179 #endif |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4180 if (pattern != NULL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4181 { |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4182 if (*pattern == NUL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4183 goto the_end; |
20653
a68591fbb93d
patch 8.2.0880: leaking memory when using searchcount()
Bram Moolenaar <Bram@vim.org>
parents:
20651
diff
changeset
|
4184 vim_free(spats[last_idx].pat); |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4185 spats[last_idx].pat = vim_strsave(pattern); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4186 } |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4187 if (spats[last_idx].pat == NULL || *spats[last_idx].pat == NUL) |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4188 goto the_end; // the previous pattern was never defined |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4189 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4190 update_search_stat(0, &pos, &pos, &stat, recompute, maxcount, timeout); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4191 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4192 dict_add_number(rettv->vval.v_dict, "current", stat.cur); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4193 dict_add_number(rettv->vval.v_dict, "total", stat.cnt); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4194 dict_add_number(rettv->vval.v_dict, "exact_match", stat.exact_match); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4195 dict_add_number(rettv->vval.v_dict, "incomplete", stat.incomplete); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4196 dict_add_number(rettv->vval.v_dict, "maxcount", stat.last_maxcount); |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4197 |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4198 the_end: |
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4199 restore_last_search_pattern(); |
27704
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4200 #ifdef FEAT_SEARCH_EXTRA |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4201 restore_incsearch_state(); |
4c68fb88b73f
patch 8.2.4378: incsearch HL broken when calling searchcount in 'tabLine'
Bram Moolenaar <Bram@vim.org>
parents:
26944
diff
changeset
|
4202 #endif |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4203 } |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4204 #endif |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4205 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4206 /* |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4207 * Fuzzy string matching |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4208 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4209 * Ported from the lib_fts library authored by Forrest Smith. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4210 * https://github.com/forrestthewoods/lib_fts/tree/master/code |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4211 * |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4212 * The following blog describes the fuzzy matching algorithm: |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4213 * https://www.forrestthewoods.com/blog/reverse_engineering_sublime_texts_fuzzy_match/ |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4214 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4215 * Each matching string is assigned a score. The following factors are checked: |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4216 * - Matched letter |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4217 * - Unmatched letter |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4218 * - Consecutively matched letters |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4219 * - Proximity to start |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4220 * - Letter following a separator (space, underscore) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4221 * - Uppercase letter following lowercase (aka CamelCase) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4222 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4223 * Matched letters are good. Unmatched letters are bad. Matching near the start |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4224 * is good. Matching the first letter in the middle of a phrase is good. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4225 * Matching the uppercase letters in camel case entries is good. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4226 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4227 * The score assigned for each factor is explained below. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4228 * File paths are different from file names. File extensions may be ignorable. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4229 * Single words care about consecutive matches but not separators or camel |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4230 * case. |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4231 * Score starts at 100 |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4232 * Matched letter: +0 points |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4233 * Unmatched letter: -1 point |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4234 * Consecutive match bonus: +15 points |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4235 * First letter bonus: +15 points |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4236 * Separator bonus: +30 points |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4237 * Camel case bonus: +30 points |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4238 * Unmatched leading letter: -5 points (max: -15) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4239 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4240 * There is some nuance to this. Scores don’t have an intrinsic meaning. The |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4241 * score range isn’t 0 to 100. It’s roughly [50, 150]. Longer words have a |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4242 * lower minimum score due to unmatched letter penalty. Longer search patterns |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4243 * have a higher maximum score due to match bonuses. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4244 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4245 * Separator and camel case bonus is worth a LOT. Consecutive matches are worth |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4246 * quite a bit. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4247 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4248 * There is a penalty if you DON’T match the first three letters. Which |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4249 * effectively rewards matching near the start. However there’s no difference |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4250 * in matching between the middle and end. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4251 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4252 * There is not an explicit bonus for an exact match. Unmatched letters receive |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4253 * a penalty. So shorter strings and closer matches are worth more. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4254 */ |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4255 typedef struct |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4256 { |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4257 int idx; // used for stable sort |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4258 listitem_T *item; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4259 int score; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4260 list_T *lmatchpos; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4261 } fuzzyItem_T; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4262 |
22647
0dd527d9c62d
patch 8.2.1872: matchfuzzy() does not prefer sequential matches
Bram Moolenaar <Bram@vim.org>
parents:
22578
diff
changeset
|
4263 // bonus for adjacent matches; this is higher than SEPARATOR_BONUS so that |
0dd527d9c62d
patch 8.2.1872: matchfuzzy() does not prefer sequential matches
Bram Moolenaar <Bram@vim.org>
parents:
22578
diff
changeset
|
4264 // matching a whole word is preferred. |
0dd527d9c62d
patch 8.2.1872: matchfuzzy() does not prefer sequential matches
Bram Moolenaar <Bram@vim.org>
parents:
22578
diff
changeset
|
4265 #define SEQUENTIAL_BONUS 40 |
22746
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4266 // bonus if match occurs after a path separator |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4267 #define PATH_SEPARATOR_BONUS 30 |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4268 // bonus if match occurs after a word separator |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4269 #define WORD_SEPARATOR_BONUS 25 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4270 // bonus if match is uppercase and prev is lower |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4271 #define CAMEL_BONUS 30 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4272 // bonus if the first letter is matched |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4273 #define FIRST_LETTER_BONUS 15 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4274 // penalty applied for every letter in str before the first match |
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27704
diff
changeset
|
4275 #define LEADING_LETTER_PENALTY (-5) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4276 // maximum penalty for leading letters |
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27704
diff
changeset
|
4277 #define MAX_LEADING_LETTER_PENALTY (-15) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4278 // penalty for every letter that doesn't match |
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27704
diff
changeset
|
4279 #define UNMATCHED_LETTER_PENALTY (-1) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4280 // penalty for gap in matching positions (-2 * k) |
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27704
diff
changeset
|
4281 #define GAP_PENALTY (-2) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4282 // Score for a string that doesn't fuzzy match the pattern |
27752
c1d1639b52dd
patch 8.2.4402: missing parenthesis may cause unexpected problems
Bram Moolenaar <Bram@vim.org>
parents:
27704
diff
changeset
|
4283 #define SCORE_NONE (-9999) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4284 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4285 #define FUZZY_MATCH_RECURSION_LIMIT 10 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4286 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4287 /* |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4288 * Compute a score for a fuzzy matched string. The matching character locations |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4289 * are in 'matches'. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4290 */ |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4291 static int |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4292 fuzzy_match_compute_score( |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4293 char_u *str, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4294 int strSz, |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4295 int_u *matches, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4296 int numMatches) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4297 { |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4298 int score; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4299 int penalty; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4300 int unmatched; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4301 int i; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4302 char_u *p = str; |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4303 int_u sidx = 0; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4304 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4305 // Initialize score |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4306 score = 100; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4307 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4308 // Apply leading letter penalty |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4309 penalty = LEADING_LETTER_PENALTY * matches[0]; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4310 if (penalty < MAX_LEADING_LETTER_PENALTY) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4311 penalty = MAX_LEADING_LETTER_PENALTY; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4312 score += penalty; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4313 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4314 // Apply unmatched penalty |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4315 unmatched = strSz - numMatches; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4316 score += UNMATCHED_LETTER_PENALTY * unmatched; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4317 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4318 // Apply ordering bonuses |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4319 for (i = 0; i < numMatches; ++i) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4320 { |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4321 int_u currIdx = matches[i]; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4322 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4323 if (i > 0) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4324 { |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4325 int_u prevIdx = matches[i - 1]; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4326 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4327 // Sequential |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4328 if (currIdx == (prevIdx + 1)) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4329 score += SEQUENTIAL_BONUS; |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4330 else |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4331 score += GAP_PENALTY * (currIdx - prevIdx); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4332 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4333 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4334 // Check for bonuses based on neighbor character value |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4335 if (currIdx > 0) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4336 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4337 // Camel case |
22359
f4d1fe8e04cf
patch 8.2.1728: compiler warning for using uninitialized variable
Bram Moolenaar <Bram@vim.org>
parents:
22355
diff
changeset
|
4338 int neighbor = ' '; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4339 int curr; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4340 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4341 if (has_mbyte) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4342 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4343 while (sidx < currIdx) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4344 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4345 neighbor = (*mb_ptr2char)(p); |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4346 MB_PTR_ADV(p); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4347 sidx++; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4348 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4349 curr = (*mb_ptr2char)(p); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4350 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4351 else |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4352 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4353 neighbor = str[currIdx - 1]; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4354 curr = str[currIdx]; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4355 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4356 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4357 if (vim_islower(neighbor) && vim_isupper(curr)) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4358 score += CAMEL_BONUS; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4359 |
22746
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4360 // Bonus if the match follows a separator character |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4361 if (neighbor == '/' || neighbor == '\\') |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4362 score += PATH_SEPARATOR_BONUS; |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4363 else if (neighbor == ' ' || neighbor == '_') |
875bd7c04533
patch 8.2.1921: fuzzy matching does not recognize path separators
Bram Moolenaar <Bram@vim.org>
parents:
22699
diff
changeset
|
4364 score += WORD_SEPARATOR_BONUS; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4365 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4366 else |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4367 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4368 // First letter |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4369 score += FIRST_LETTER_BONUS; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4370 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4371 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4372 return score; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4373 } |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4374 |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4375 /* |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4376 * Perform a recursive search for fuzzy matching 'fuzpat' in 'str'. |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4377 * Return the number of matching characters. |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4378 */ |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4379 static int |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4380 fuzzy_match_recursive( |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4381 char_u *fuzpat, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4382 char_u *str, |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4383 int_u strIdx, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4384 int *outScore, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4385 char_u *strBegin, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4386 int strLen, |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4387 int_u *srcMatches, |
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4388 int_u *matches, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4389 int maxMatches, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4390 int nextMatch, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4391 int *recursionCount) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4392 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4393 // Recursion params |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4394 int recursiveMatch = FALSE; |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4395 int_u bestRecursiveMatches[MAX_FUZZY_MATCHES]; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4396 int bestRecursiveScore = 0; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4397 int first_match; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4398 int matched; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4399 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4400 // Count recursions |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4401 ++*recursionCount; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4402 if (*recursionCount >= FUZZY_MATCH_RECURSION_LIMIT) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4403 return 0; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4404 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4405 // Detect end of strings |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4406 if (*fuzpat == NUL || *str == NUL) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4407 return 0; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4408 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4409 // Loop through fuzpat and str looking for a match |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4410 first_match = TRUE; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4411 while (*fuzpat != NUL && *str != NUL) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4412 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4413 int c1; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4414 int c2; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4415 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4416 c1 = PTR2CHAR(fuzpat); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4417 c2 = PTR2CHAR(str); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4418 |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4419 // Found match |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4420 if (vim_tolower(c1) == vim_tolower(c2)) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4421 { |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4422 int_u recursiveMatches[MAX_FUZZY_MATCHES]; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4423 int recursiveScore = 0; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4424 char_u *next_char; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4425 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4426 // Supplied matches buffer was too short |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4427 if (nextMatch >= maxMatches) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4428 return 0; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4429 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4430 // "Copy-on-Write" srcMatches into matches |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4431 if (first_match && srcMatches) |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4432 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4433 memcpy(matches, srcMatches, nextMatch * sizeof(srcMatches[0])); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4434 first_match = FALSE; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4435 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4436 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4437 // Recursive call that "skips" this match |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4438 if (has_mbyte) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4439 next_char = str + (*mb_ptr2len)(str); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4440 else |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4441 next_char = str + 1; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4442 if (fuzzy_match_recursive(fuzpat, next_char, strIdx + 1, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4443 &recursiveScore, strBegin, strLen, matches, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4444 recursiveMatches, |
24768
7334bf933510
patch 8.2.2922: computing array length is done in various ways
Bram Moolenaar <Bram@vim.org>
parents:
24547
diff
changeset
|
4445 ARRAY_LENGTH(recursiveMatches), |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4446 nextMatch, recursionCount)) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4447 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4448 // Pick best recursive score |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4449 if (!recursiveMatch || recursiveScore > bestRecursiveScore) |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4450 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4451 memcpy(bestRecursiveMatches, recursiveMatches, |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4452 MAX_FUZZY_MATCHES * sizeof(recursiveMatches[0])); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4453 bestRecursiveScore = recursiveScore; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4454 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4455 recursiveMatch = TRUE; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4456 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4457 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4458 // Advance |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4459 matches[nextMatch++] = strIdx; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4460 if (has_mbyte) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4461 MB_PTR_ADV(fuzpat); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4462 else |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4463 ++fuzpat; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4464 } |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4465 if (has_mbyte) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4466 MB_PTR_ADV(str); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4467 else |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4468 ++str; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4469 strIdx++; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4470 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4471 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4472 // Determine if full fuzpat was matched |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4473 matched = *fuzpat == NUL ? TRUE : FALSE; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4474 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4475 // Calculate score |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4476 if (matched) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4477 *outScore = fuzzy_match_compute_score(strBegin, strLen, matches, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4478 nextMatch); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4479 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4480 // Return best result |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4481 if (recursiveMatch && (!matched || bestRecursiveScore > *outScore)) |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4482 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4483 // Recursive score is better than "this" |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4484 memcpy(matches, bestRecursiveMatches, maxMatches * sizeof(matches[0])); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4485 *outScore = bestRecursiveScore; |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4486 return nextMatch; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4487 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4488 else if (matched) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4489 return nextMatch; // "this" score is better than recursive |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4490 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4491 return 0; // no match |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4492 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4493 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4494 /* |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4495 * fuzzy_match() |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4496 * |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4497 * Performs exhaustive search via recursion to find all possible matches and |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4498 * match with highest score. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4499 * Scores values have no intrinsic meaning. Possible score range is not |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4500 * normalized and varies with pattern. |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4501 * Recursion is limited internally (default=10) to prevent degenerate cases |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4502 * (pat_arg="aaaaaa" str="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"). |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4503 * Uses char_u for match indices. Therefore patterns are limited to |
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4504 * MAX_FUZZY_MATCHES characters. |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4505 * |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4506 * Returns TRUE if 'pat_arg' matches 'str'. Also returns the match score in |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4507 * 'outScore' and the matching character positions in 'matches'. |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4508 */ |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4509 int |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4510 fuzzy_match( |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4511 char_u *str, |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4512 char_u *pat_arg, |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4513 int matchseq, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4514 int *outScore, |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4515 int_u *matches, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4516 int maxMatches) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4517 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4518 int recursionCount = 0; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4519 int len = MB_CHARLEN(str); |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4520 char_u *save_pat; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4521 char_u *pat; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4522 char_u *p; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4523 int complete = FALSE; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4524 int score = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4525 int numMatches = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4526 int matchCount; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4527 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4528 *outScore = 0; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4529 |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4530 save_pat = vim_strsave(pat_arg); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4531 if (save_pat == NULL) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4532 return FALSE; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4533 pat = save_pat; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4534 p = pat; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4535 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4536 // Try matching each word in 'pat_arg' in 'str' |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4537 while (TRUE) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4538 { |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4539 if (matchseq) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4540 complete = TRUE; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4541 else |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4542 { |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4543 // Extract one word from the pattern (separated by space) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4544 p = skipwhite(p); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4545 if (*p == NUL) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4546 break; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4547 pat = p; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4548 while (*p != NUL && !VIM_ISWHITE(PTR2CHAR(p))) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4549 { |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4550 if (has_mbyte) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4551 MB_PTR_ADV(p); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4552 else |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4553 ++p; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4554 } |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4555 if (*p == NUL) // processed all the words |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4556 complete = TRUE; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4557 *p = NUL; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4558 } |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4559 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4560 score = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4561 recursionCount = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4562 matchCount = fuzzy_match_recursive(pat, str, 0, &score, str, len, NULL, |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4563 matches + numMatches, maxMatches - numMatches, |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4564 0, &recursionCount); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4565 if (matchCount == 0) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4566 { |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4567 numMatches = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4568 break; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4569 } |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4570 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4571 // Accumulate the match score and the number of matches |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4572 *outScore += score; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4573 numMatches += matchCount; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4574 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4575 if (complete) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4576 break; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4577 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4578 // try matching the next word |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4579 ++p; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4580 } |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4581 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4582 vim_free(save_pat); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4583 return numMatches != 0; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4584 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4585 |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4586 #if defined(FEAT_EVAL) || defined(FEAT_PROTO) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4587 /* |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4588 * Sort the fuzzy matches in the descending order of the match score. |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4589 * For items with same score, retain the order using the index (stable sort) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4590 */ |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4591 static int |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4592 fuzzy_match_item_compare(const void *s1, const void *s2) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4593 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4594 int v1 = ((fuzzyItem_T *)s1)->score; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4595 int v2 = ((fuzzyItem_T *)s2)->score; |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4596 int idx1 = ((fuzzyItem_T *)s1)->idx; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4597 int idx2 = ((fuzzyItem_T *)s2)->idx; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4598 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4599 return v1 == v2 ? (idx1 - idx2) : v1 > v2 ? -1 : 1; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4600 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4601 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4602 /* |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4603 * Fuzzy search the string 'str' in a list of 'items' and return the matching |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4604 * strings in 'fmatchlist'. |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4605 * If 'matchseq' is TRUE, then for multi-word search strings, match all the |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4606 * words in sequence. |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4607 * If 'items' is a list of strings, then search for 'str' in the list. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4608 * If 'items' is a list of dicts, then either use 'key' to lookup the string |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4609 * for each item or use 'item_cb' Funcref function to get the string. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4610 * If 'retmatchpos' is TRUE, then return a list of positions where 'str' |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4611 * matches for each item. |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4612 */ |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4613 static void |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4614 fuzzy_match_in_list( |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4615 list_T *l, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4616 char_u *str, |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4617 int matchseq, |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4618 char_u *key, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4619 callback_T *item_cb, |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4620 int retmatchpos, |
28471
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4621 list_T *fmatchlist, |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4622 long max_matches) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4623 { |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4624 long len; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4625 fuzzyItem_T *items; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4626 listitem_T *li; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4627 long i = 0; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4628 long match_count = 0; |
24547
192058cad081
patch 8.2.2813: cannot grep using fuzzy matching
Bram Moolenaar <Bram@vim.org>
parents:
24307
diff
changeset
|
4629 int_u matches[MAX_FUZZY_MATCHES]; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4630 |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4631 len = list_len(l); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4632 if (len == 0) |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4633 return; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4634 if (max_matches > 0 && len > max_matches) |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4635 len = max_matches; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4636 |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4637 items = ALLOC_CLEAR_MULT(fuzzyItem_T, len); |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4638 if (items == NULL) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4639 return; |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4640 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4641 // For all the string items in items, get the fuzzy matching score |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4642 FOR_ALL_LIST_ITEMS(l, li) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4643 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4644 int score; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4645 char_u *itemstr; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4646 typval_T rettv; |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4647 |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4648 if (max_matches > 0 && match_count >= max_matches) |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4649 break; |
28471
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4650 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4651 itemstr = NULL; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4652 rettv.v_type = VAR_UNKNOWN; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4653 if (li->li_tv.v_type == VAR_STRING) // list of strings |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4654 itemstr = li->li_tv.vval.v_string; |
28405
473cfd79bcd8
patch 8.2.4727: unused code
Bram Moolenaar <Bram@vim.org>
parents:
28315
diff
changeset
|
4655 else if (li->li_tv.v_type == VAR_DICT |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4656 && (key != NULL || item_cb->cb_name != NULL)) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4657 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4658 // For a dict, either use the specified key to lookup the string or |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4659 // use the specified callback function to get the string. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4660 if (key != NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4661 itemstr = dict_get_string(li->li_tv.vval.v_dict, key, FALSE); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4662 else |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4663 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4664 typval_T argv[2]; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4665 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4666 // Invoke the supplied callback (if any) to get the dict item |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4667 li->li_tv.vval.v_dict->dv_refcount++; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4668 argv[0].v_type = VAR_DICT; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4669 argv[0].vval.v_dict = li->li_tv.vval.v_dict; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4670 argv[1].v_type = VAR_UNKNOWN; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4671 if (call_callback(item_cb, -1, &rettv, 1, argv) != FAIL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4672 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4673 if (rettv.v_type == VAR_STRING) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4674 itemstr = rettv.vval.v_string; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4675 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4676 dict_unref(li->li_tv.vval.v_dict); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4677 } |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4678 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4679 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4680 if (itemstr != NULL |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4681 && fuzzy_match(itemstr, str, matchseq, &score, matches, |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4682 MAX_FUZZY_MATCHES)) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4683 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4684 items[match_count].idx = match_count; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4685 items[match_count].item = li; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4686 items[match_count].score = score; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4687 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4688 // Copy the list of matching positions in itemstr to a list, if |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4689 // 'retmatchpos' is set. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4690 if (retmatchpos) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4691 { |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4692 int j = 0; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4693 char_u *p; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4694 |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4695 items[match_count].lmatchpos = list_alloc(); |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4696 if (items[match_count].lmatchpos == NULL) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4697 goto done; |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4698 |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4699 p = str; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4700 while (*p != NUL) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4701 { |
28831
b5c46d447518
patch 8.2.4939: matchfuzzypos() with "matchseq" does not have all positions
Bram Moolenaar <Bram@vim.org>
parents:
28809
diff
changeset
|
4702 if (!VIM_ISWHITE(PTR2CHAR(p)) || matchseq) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4703 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4704 if (list_append_number(items[match_count].lmatchpos, |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4705 matches[j]) == FAIL) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4706 goto done; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4707 j++; |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4708 } |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4709 if (has_mbyte) |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4710 MB_PTR_ADV(p); |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4711 else |
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4712 ++p; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4713 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4714 } |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4715 ++match_count; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4716 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4717 clear_tv(&rettv); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4718 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4719 |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4720 if (match_count > 0) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4721 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4722 list_T *retlist; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4723 |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4724 // Sort the list by the descending order of the match score |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4725 qsort((void *)items, (size_t)match_count, sizeof(fuzzyItem_T), |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4726 fuzzy_match_item_compare); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4727 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4728 // For matchfuzzy(), return a list of matched strings. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4729 // ['str1', 'str2', 'str3'] |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4730 // For matchfuzzypos(), return a list with three items. |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4731 // The first item is a list of matched strings. The second item |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4732 // is a list of lists where each list item is a list of matched |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4733 // character positions. The third item is a list of matching scores. |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4734 // [['str1', 'str2', 'str3'], [[1, 3], [1, 3], [1, 3]]] |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4735 if (retmatchpos) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4736 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4737 li = list_find(fmatchlist, 0); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4738 if (li == NULL || li->li_tv.vval.v_list == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4739 goto done; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4740 retlist = li->li_tv.vval.v_list; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4741 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4742 else |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4743 retlist = fmatchlist; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4744 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4745 // Copy the matching strings with a valid score to the return list |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4746 for (i = 0; i < match_count; i++) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4747 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4748 if (items[i].score == SCORE_NONE) |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4749 break; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4750 list_append_tv(retlist, &items[i].item->li_tv); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4751 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4752 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4753 // next copy the list of matching positions |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4754 if (retmatchpos) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4755 { |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4756 li = list_find(fmatchlist, -2); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4757 if (li == NULL || li->li_tv.vval.v_list == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4758 goto done; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4759 retlist = li->li_tv.vval.v_list; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4760 |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4761 for (i = 0; i < match_count; i++) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4762 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4763 if (items[i].score == SCORE_NONE) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4764 break; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4765 if (items[i].lmatchpos != NULL |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4766 && list_append_list(retlist, items[i].lmatchpos) |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4767 == FAIL) |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4768 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4769 } |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4770 |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4771 // copy the matching scores |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4772 li = list_find(fmatchlist, -1); |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4773 if (li == NULL || li->li_tv.vval.v_list == NULL) |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4774 goto done; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4775 retlist = li->li_tv.vval.v_list; |
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4776 for (i = 0; i < match_count; i++) |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4777 { |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4778 if (items[i].score == SCORE_NONE) |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4779 break; |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4780 if (list_append_number(retlist, items[i].score) == FAIL) |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4781 goto done; |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4782 } |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4783 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4784 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4785 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4786 done: |
28481
3eac1299015a
patch 8.2.4765: function matchfuzzy() sorts too many items
Bram Moolenaar <Bram@vim.org>
parents:
28471
diff
changeset
|
4787 vim_free(items); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4788 } |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4789 |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4790 /* |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4791 * Do fuzzy matching. Returns the list of matched strings in 'rettv'. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4792 * If 'retmatchpos' is TRUE, also returns the matching character positions. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4793 */ |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4794 static void |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4795 do_fuzzymatch(typval_T *argvars, typval_T *rettv, int retmatchpos) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4796 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4797 callback_T cb; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4798 char_u *key = NULL; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4799 int ret; |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4800 int matchseq = FALSE; |
28471
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4801 long max_matches = 0; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4802 |
25302
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4803 if (in_vim9script() |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4804 && (check_for_list_arg(argvars, 0) == FAIL |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4805 || check_for_string_arg(argvars, 1) == FAIL |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4806 || check_for_opt_dict_arg(argvars, 2) == FAIL)) |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4807 return; |
4d3c68196d05
patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
4808 |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4809 CLEAR_POINTER(&cb); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4810 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4811 // validate and get the arguments |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4812 if (argvars[0].v_type != VAR_LIST || argvars[0].vval.v_list == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4813 { |
26887
612339679616
patch 8.2.3972: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26877
diff
changeset
|
4814 semsg(_(e_argument_of_str_must_be_list), |
612339679616
patch 8.2.3972: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26877
diff
changeset
|
4815 retmatchpos ? "matchfuzzypos()" : "matchfuzzy()"); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4816 return; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4817 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4818 if (argvars[1].v_type != VAR_STRING |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4819 || argvars[1].vval.v_string == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4820 { |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
4821 semsg(_(e_invalid_argument_str), tv_get_string(&argvars[1])); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4822 return; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4823 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4824 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4825 if (argvars[2].v_type != VAR_UNKNOWN) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4826 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4827 dict_T *d; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4828 dictitem_T *di; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4829 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4830 if (argvars[2].v_type != VAR_DICT || argvars[2].vval.v_dict == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4831 { |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26865
diff
changeset
|
4832 emsg(_(e_dictionary_required)); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4833 return; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4834 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4835 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4836 // To search a dict, either a callback function or a key can be |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4837 // specified. |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4838 d = argvars[2].vval.v_dict; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4839 if ((di = dict_find(d, (char_u *)"key", -1)) != NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4840 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4841 if (di->di_tv.v_type != VAR_STRING |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4842 || di->di_tv.vval.v_string == NULL |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4843 || *di->di_tv.vval.v_string == NUL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4844 { |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
4845 semsg(_(e_invalid_argument_str), tv_get_string(&di->di_tv)); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4846 return; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4847 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4848 key = tv_get_string(&di->di_tv); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4849 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4850 else if ((di = dict_find(d, (char_u *)"text_cb", -1)) != NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4851 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4852 cb = get_callback(&di->di_tv); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4853 if (cb.cb_name == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4854 { |
26865
bce848ec8b1b
patch 8.2.3961: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26819
diff
changeset
|
4855 semsg(_(e_invalid_value_for_argument_str), "text_cb"); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4856 return; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4857 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4858 } |
28471
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4859 else if ((di = dict_find(d, (char_u *)"limit", -1)) != NULL) |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4860 { |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4861 if (di->di_tv.v_type != VAR_NUMBER) |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4862 { |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4863 semsg(_(e_invalid_argument_str), tv_get_string(&di->di_tv)); |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4864 return; |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4865 } |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4866 max_matches = (long)tv_get_number_chk(&di->di_tv, NULL); |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4867 } |
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4868 |
28315
62cc3b60493b
patch 8.2.4683: verbose check with dict_find() to see if a key is present
Bram Moolenaar <Bram@vim.org>
parents:
27908
diff
changeset
|
4869 if (dict_has_key(d, "matchseq")) |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4870 matchseq = TRUE; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4871 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4872 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4873 // get the fuzzy matches |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4874 ret = rettv_list_alloc(rettv); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4875 if (ret != OK) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4876 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4877 if (retmatchpos) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4878 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4879 list_T *l; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4880 |
23475
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4881 // For matchfuzzypos(), a list with three items are returned. First |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4882 // item is a list of matching strings, the second item is a list of |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4883 // lists with matching positions within each string and the third item |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4884 // is the list of scores of the matches. |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4885 l = list_alloc(); |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4886 if (l == NULL) |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4887 goto done; |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4888 if (list_append_list(rettv->vval.v_list, l) == FAIL) |
79fd5217b125
patch 8.2.2280: fuzzy matching doesn't give access to the scores
Bram Moolenaar <Bram@vim.org>
parents:
23272
diff
changeset
|
4889 goto done; |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4890 l = list_alloc(); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4891 if (l == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4892 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4893 if (list_append_list(rettv->vval.v_list, l) == FAIL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4894 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4895 l = list_alloc(); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4896 if (l == NULL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4897 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4898 if (list_append_list(rettv->vval.v_list, l) == FAIL) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4899 goto done; |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4900 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4901 |
22689
f8bf2c122452
patch 8.2.1893: fuzzy matching does not support multiple words
Bram Moolenaar <Bram@vim.org>
parents:
22647
diff
changeset
|
4902 fuzzy_match_in_list(argvars[0].vval.v_list, tv_get_string(&argvars[1]), |
28471
2ade724b3f45
patch 8.2.4760: using matchfuzzy() on a long list can take a while
Bram Moolenaar <Bram@vim.org>
parents:
28415
diff
changeset
|
4903 matchseq, key, &cb, retmatchpos, rettv->vval.v_list, max_matches); |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4904 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4905 done: |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4906 free_callback(&cb); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4907 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4908 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4909 /* |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4910 * "matchfuzzy()" function |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4911 */ |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4912 void |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4913 f_matchfuzzy(typval_T *argvars, typval_T *rettv) |
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4914 { |
22355
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4915 do_fuzzymatch(argvars, rettv, FALSE); |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4916 } |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4917 |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4918 /* |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4919 * "matchfuzzypos()" function |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4920 */ |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4921 void |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4922 f_matchfuzzypos(typval_T *argvars, typval_T *rettv) |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4923 { |
0491b9cafd44
patch 8.2.1726: fuzzy matching only works on strings
Bram Moolenaar <Bram@vim.org>
parents:
22232
diff
changeset
|
4924 do_fuzzymatch(argvars, rettv, TRUE); |
22232
f22acf6472da
patch 8.2.1665: cannot do fuzzy string matching
Bram Moolenaar <Bram@vim.org>
parents:
22141
diff
changeset
|
4925 } |
20647
8a2b86a39ef4
patch 8.2.0877: cannot get the search statistics
Bram Moolenaar <Bram@vim.org>
parents:
20573
diff
changeset
|
4926 #endif |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4927 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4928 /* |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4929 * Same as fuzzy_match_item_compare() except for use with a string match |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4930 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4931 static int |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4932 fuzzy_match_str_compare(const void *s1, const void *s2) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4933 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4934 int v1 = ((fuzmatch_str_T *)s1)->score; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4935 int v2 = ((fuzmatch_str_T *)s2)->score; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4936 int idx1 = ((fuzmatch_str_T *)s1)->idx; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4937 int idx2 = ((fuzmatch_str_T *)s2)->idx; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4938 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4939 return v1 == v2 ? (idx1 - idx2) : v1 > v2 ? -1 : 1; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4940 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4941 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4942 /* |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4943 * Sort fuzzy matches by score |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4944 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4945 static void |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4946 fuzzy_match_str_sort(fuzmatch_str_T *fm, int sz) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4947 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4948 // Sort the list by the descending order of the match score |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4949 qsort((void *)fm, (size_t)sz, sizeof(fuzmatch_str_T), |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4950 fuzzy_match_str_compare); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4951 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4952 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4953 /* |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4954 * Same as fuzzy_match_item_compare() except for use with a function name |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4955 * string match. <SNR> functions should be sorted to the end. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4956 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4957 static int |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4958 fuzzy_match_func_compare(const void *s1, const void *s2) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4959 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4960 int v1 = ((fuzmatch_str_T *)s1)->score; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4961 int v2 = ((fuzmatch_str_T *)s2)->score; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4962 int idx1 = ((fuzmatch_str_T *)s1)->idx; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4963 int idx2 = ((fuzmatch_str_T *)s2)->idx; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4964 char_u *str1 = ((fuzmatch_str_T *)s1)->str; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4965 char_u *str2 = ((fuzmatch_str_T *)s2)->str; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4966 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4967 if (*str1 != '<' && *str2 == '<') return -1; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4968 if (*str1 == '<' && *str2 != '<') return 1; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4969 return v1 == v2 ? (idx1 - idx2) : v1 > v2 ? -1 : 1; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4970 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4971 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4972 /* |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4973 * Sort fuzzy matches of function names by score. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4974 * <SNR> functions should be sorted to the end. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4975 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4976 static void |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4977 fuzzy_match_func_sort(fuzmatch_str_T *fm, int sz) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4978 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4979 // Sort the list by the descending order of the match score |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4980 qsort((void *)fm, (size_t)sz, sizeof(fuzmatch_str_T), |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4981 fuzzy_match_func_compare); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4982 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4983 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4984 /* |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4985 * Fuzzy match 'pat' in 'str'. Returns 0 if there is no match. Otherwise, |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4986 * returns the match score. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4987 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4988 int |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4989 fuzzy_match_str(char_u *str, char_u *pat) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4990 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4991 int score = 0; |
27879
76e2115dddb8
patch 8.2.4465: fuzzy completion does not order matches properly
Bram Moolenaar <Bram@vim.org>
parents:
27875
diff
changeset
|
4992 int_u matchpos[MAX_FUZZY_MATCHES]; |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4993 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4994 if (str == NULL || pat == NULL) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4995 return 0; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4996 |
27908
099c2e612827
patch 8.2.4479: no fuzzy completieon for maps and abbreviations
Bram Moolenaar <Bram@vim.org>
parents:
27879
diff
changeset
|
4997 fuzzy_match(str, pat, TRUE, &score, matchpos, |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4998 sizeof(matchpos) / sizeof(matchpos[0])); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
4999 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5000 return score; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5001 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5002 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5003 /* |
28415
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5004 * Free an array of fuzzy string matches "fuzmatch[count]". |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5005 */ |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5006 void |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5007 fuzmatch_str_free(fuzmatch_str_T *fuzmatch, int count) |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5008 { |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5009 int i; |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5010 |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5011 if (fuzmatch == NULL) |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5012 return; |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5013 for (i = 0; i < count; ++i) |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5014 vim_free(fuzmatch[i].str); |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5015 vim_free(fuzmatch); |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5016 } |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5017 |
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5018 /* |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5019 * Copy a list of fuzzy matches into a string list after sorting the matches by |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5020 * the fuzzy score. Frees the memory allocated for 'fuzmatch'. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5021 * Returns OK on success and FAIL on memory allocation failure. |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5022 */ |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5023 int |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5024 fuzzymatches_to_strmatches( |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5025 fuzmatch_str_T *fuzmatch, |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5026 char_u ***matches, |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5027 int count, |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5028 int funcsort) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5029 { |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5030 int i; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5031 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5032 if (count <= 0) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5033 return OK; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5034 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5035 *matches = ALLOC_MULT(char_u *, count); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5036 if (*matches == NULL) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5037 { |
28415
813660733869
patch 8.2.4732: duplicate code to free fuzzy matches
Bram Moolenaar <Bram@vim.org>
parents:
28405
diff
changeset
|
5038 fuzmatch_str_free(fuzmatch, count); |
27875
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5039 return FAIL; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5040 } |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5041 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5042 // Sort the list by the descending order of the match score |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5043 if (funcsort) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5044 fuzzy_match_func_sort((void *)fuzmatch, (size_t)count); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5045 else |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5046 fuzzy_match_str_sort((void *)fuzmatch, (size_t)count); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5047 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5048 for (i = 0; i < count; i++) |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5049 (*matches)[i] = fuzmatch[i].str; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5050 vim_free(fuzmatch); |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5051 |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5052 return OK; |
ae38d2e81fca
patch 8.2.4463: completion only uses strict matching
Bram Moolenaar <Bram@vim.org>
parents:
27752
diff
changeset
|
5053 } |