Mercurial > vim
annotate src/tag.c @ 15838:de068e9acd8e v8.1.0926
patch 8.1.0926: no test for :wnext, :wNext and :wprevious
commit https://github.com/vim/vim/commit/e93e5a504f481bd0dad9c504d5fcf0e5f0dfc6e6
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Feb 15 20:22:38 2019 +0100
patch 8.1.0926: no test for :wnext, :wNext and :wprevious
Problem: No test for :wnext, :wNext and :wprevious.
Solution: Add a test. (Dominique Pelle, closes https://github.com/vim/vim/issues/3963)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Fri, 15 Feb 2019 20:30:07 +0100 |
parents | 37d31fc37a5a |
children | 734b1928a5aa |
rev | line source |
---|---|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9949
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 /* | |
11 * Code to handle tags and the tag stack | |
12 */ | |
13 | |
14 #include "vim.h" | |
15 | |
16 /* | |
17 * Structure to hold pointers to various items in a tag line. | |
18 */ | |
19 typedef struct tag_pointers | |
20 { | |
21 /* filled in by parse_tag_line(): */ | |
22 char_u *tagname; /* start of tag name (skip "file:") */ | |
23 char_u *tagname_end; /* char after tag name */ | |
24 char_u *fname; /* first char of file name */ | |
25 char_u *fname_end; /* char after file name */ | |
26 char_u *command; /* first char of command */ | |
27 /* filled in by parse_match(): */ | |
28 char_u *command_end; /* first char after command */ | |
29 char_u *tag_fname; /* file name of the tags file */ | |
30 #ifdef FEAT_EMACS_TAGS | |
31 int is_etag; /* TRUE for emacs tag */ | |
32 #endif | |
33 char_u *tagkind; /* "kind:" value */ | |
34 char_u *tagkind_end; /* end of tagkind */ | |
35 } tagptrs_T; | |
36 | |
37 /* | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
38 * The matching tags are first stored in one of the hash tables. In |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
39 * which one depends on the priority of the match. |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
40 * ht_match[] is used to find duplicates, ga_match[] to keep them in sequence. |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
41 * At the end, all the matches from ga_match[] are concatenated, to make a list |
7 | 42 * sorted on priority. |
43 */ | |
44 #define MT_ST_CUR 0 /* static match in current file */ | |
45 #define MT_GL_CUR 1 /* global match in current file */ | |
46 #define MT_GL_OTH 2 /* global match in other file */ | |
47 #define MT_ST_OTH 3 /* static match in other file */ | |
48 #define MT_IC_OFF 4 /* add for icase match */ | |
49 #define MT_RE_OFF 8 /* add for regexp match */ | |
50 #define MT_MASK 7 /* mask for printing priority */ | |
51 #define MT_COUNT 16 | |
52 | |
53 static char *mt_names[MT_COUNT/2] = | |
54 {"FSC", "F C", "F ", "FS ", " SC", " C", " ", " S "}; | |
55 | |
56 #define NOTAGFILE 99 /* return value for jumpto_tag */ | |
57 static char_u *nofile_fname = NULL; /* fname for NOTAGFILE error */ | |
58 | |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
59 static void taglen_advance(int l); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
60 |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
61 static int jumpto_tag(char_u *lbuf, int forceit, int keep_help); |
7 | 62 #ifdef FEAT_EMACS_TAGS |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
63 static int parse_tag_line(char_u *lbuf, int is_etag, tagptrs_T *tagp); |
7 | 64 #else |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
65 static int parse_tag_line(char_u *lbuf, tagptrs_T *tagp); |
7 | 66 #endif |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
67 static int test_for_static(tagptrs_T *); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
68 static int parse_match(char_u *lbuf, tagptrs_T *tagp); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
69 static char_u *tag_full_fname(tagptrs_T *tagp); |
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
70 static char_u *expand_tag_fname(char_u *fname, char_u *tag_fname, int expand); |
7 | 71 #ifdef FEAT_EMACS_TAGS |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
72 static int test_for_current(int, char_u *, char_u *, char_u *, char_u *); |
7 | 73 #else |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
74 static int test_for_current(char_u *, char_u *, char_u *, char_u *); |
7 | 75 #endif |
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7266
diff
changeset
|
76 static int find_extra(char_u **pp); |
7 | 77 |
78 static char_u *bottommsg = (char_u *)N_("E555: at bottom of tag stack"); | |
79 static char_u *topmsg = (char_u *)N_("E556: at top of tag stack"); | |
80 | |
81 static char_u *tagmatchname = NULL; /* name of last used tag */ | |
82 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
83 #if defined(FEAT_QUICKFIX) |
7 | 84 /* |
85 * Tag for preview window is remembered separately, to avoid messing up the | |
86 * normal tagstack. | |
87 */ | |
15636
6f1c7e9a6393
patch 8.1.0826: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
15605
diff
changeset
|
88 static taggy_T ptag_entry = {NULL, {{0, 0, 0}, 0}, 0, 0}; |
7 | 89 #endif |
90 | |
91 /* | |
92 * Jump to tag; handling of tag commands and tag stack | |
93 * | |
94 * *tag != NUL: ":tag {tag}", jump to new tag, add to tag stack | |
95 * | |
96 * type == DT_TAG: ":tag [tag]", jump to newer position or same tag again | |
97 * type == DT_HELP: like DT_TAG, but don't use regexp. | |
98 * type == DT_POP: ":pop" or CTRL-T, jump to old position | |
99 * type == DT_NEXT: jump to next match of same tag | |
100 * type == DT_PREV: jump to previous match of same tag | |
101 * type == DT_FIRST: jump to first match of same tag | |
102 * type == DT_LAST: jump to last match of same tag | |
103 * type == DT_SELECT: ":tselect [tag]", select tag from a list of all matches | |
104 * type == DT_JUMP: ":tjump [tag]", jump to tag or select tag from a list | |
359 | 105 * type == DT_CSCOPE: use cscope to find the tag |
649 | 106 * type == DT_LTAG: use location list for displaying tag matches |
359 | 107 * type == DT_FREE: free cached matches |
7 | 108 * |
109 * for cscope, returns TRUE if we jumped to tag or aborted, FALSE otherwise | |
110 */ | |
111 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
112 do_tag( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
113 char_u *tag, /* tag (pattern) to jump to */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
114 int type, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
115 int count, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
116 int forceit, /* :ta with ! */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
117 int verbose) /* print "tag not found" message */ |
7 | 118 { |
119 taggy_T *tagstack = curwin->w_tagstack; | |
120 int tagstackidx = curwin->w_tagstackidx; | |
121 int tagstacklen = curwin->w_tagstacklen; | |
122 int cur_match = 0; | |
123 int cur_fnum = curbuf->b_fnum; | |
124 int oldtagstackidx = tagstackidx; | |
125 int prevtagstackidx = tagstackidx; | |
126 int prev_num_matches; | |
127 int new_tag = FALSE; | |
128 int other_name; | |
129 int i, j, k; | |
130 int idx; | |
131 int ic; | |
132 char_u *p; | |
133 char_u *name; | |
134 int no_regexp = FALSE; | |
135 int error_cur_match = 0; | |
136 char_u *command_end; | |
137 int save_pos = FALSE; | |
138 fmark_T saved_fmark; | |
139 int taglen; | |
140 #ifdef FEAT_CSCOPE | |
141 int jumped_to_tag = FALSE; | |
142 #endif | |
143 tagptrs_T tagp, tagp2; | |
144 int new_num_matches; | |
145 char_u **new_matches; | |
146 int attr; | |
147 int use_tagstack; | |
148 int skip_msg = FALSE; | |
149 char_u *buf_ffname = curbuf->b_ffname; /* name to use for | |
150 priority computation */ | |
151 | |
152 /* remember the matches for the last used tag */ | |
153 static int num_matches = 0; | |
154 static int max_num_matches = 0; /* limit used for match search */ | |
155 static char_u **matches = NULL; | |
156 static int flags; | |
157 | |
359 | 158 #ifdef EXITFREE |
159 if (type == DT_FREE) | |
160 { | |
161 /* remove the list of matches */ | |
162 FreeWild(num_matches, matches); | |
163 # ifdef FEAT_CSCOPE | |
164 cs_free_tags(); | |
165 # endif | |
166 num_matches = 0; | |
167 return FALSE; | |
168 } | |
169 #endif | |
170 | |
7 | 171 if (type == DT_HELP) |
172 { | |
173 type = DT_TAG; | |
174 no_regexp = TRUE; | |
175 } | |
176 | |
177 prev_num_matches = num_matches; | |
178 free_string_option(nofile_fname); | |
179 nofile_fname = NULL; | |
180 | |
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11008
diff
changeset
|
181 CLEAR_POS(&saved_fmark.mark); /* shutup gcc 4.0 */ |
698 | 182 saved_fmark.fnum = 0; |
183 | |
7 | 184 /* |
185 * Don't add a tag to the tagstack if 'tagstack' has been reset. | |
186 */ | |
187 if ((!p_tgst && *tag != NUL)) | |
188 { | |
189 use_tagstack = FALSE; | |
190 new_tag = TRUE; | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
191 #if defined(FEAT_QUICKFIX) |
8930
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
192 if (g_do_tagpreview != 0) |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
193 { |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
194 vim_free(ptag_entry.tagname); |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
195 if ((ptag_entry.tagname = vim_strsave(tag)) == NULL) |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
196 goto end_do_tag; |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
197 } |
a2aca019ba48
commit https://github.com/vim/vim/commit/def5abe0a2727041ecee69afdccfca405333bd24
Christian Brabandt <cb@256bit.org>
parents:
8863
diff
changeset
|
198 #endif |
7 | 199 } |
200 else | |
201 { | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
202 #if defined(FEAT_QUICKFIX) |
2713 | 203 if (g_do_tagpreview != 0) |
7 | 204 use_tagstack = FALSE; |
205 else | |
206 #endif | |
207 use_tagstack = TRUE; | |
208 | |
209 /* new pattern, add to the tag stack */ | |
845 | 210 if (*tag != NUL |
211 && (type == DT_TAG || type == DT_SELECT || type == DT_JUMP | |
649 | 212 #ifdef FEAT_QUICKFIX |
213 || type == DT_LTAG | |
214 #endif | |
7 | 215 #ifdef FEAT_CSCOPE |
216 || type == DT_CSCOPE | |
217 #endif | |
218 )) | |
219 { | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
220 #if defined(FEAT_QUICKFIX) |
2713 | 221 if (g_do_tagpreview != 0) |
7 | 222 { |
223 if (ptag_entry.tagname != NULL | |
224 && STRCMP(ptag_entry.tagname, tag) == 0) | |
225 { | |
226 /* Jumping to same tag: keep the current match, so that | |
227 * the CursorHold autocommand example works. */ | |
228 cur_match = ptag_entry.cur_match; | |
229 cur_fnum = ptag_entry.cur_fnum; | |
230 } | |
231 else | |
232 { | |
233 vim_free(ptag_entry.tagname); | |
234 if ((ptag_entry.tagname = vim_strsave(tag)) == NULL) | |
235 goto end_do_tag; | |
236 } | |
237 } | |
238 else | |
239 #endif | |
240 { | |
241 /* | |
242 * If the last used entry is not at the top, delete all tag | |
243 * stack entries above it. | |
244 */ | |
245 while (tagstackidx < tagstacklen) | |
246 vim_free(tagstack[--tagstacklen].tagname); | |
247 | |
248 /* if the tagstack is full: remove oldest entry */ | |
249 if (++tagstacklen > TAGSTACKSIZE) | |
250 { | |
251 tagstacklen = TAGSTACKSIZE; | |
252 vim_free(tagstack[0].tagname); | |
253 for (i = 1; i < tagstacklen; ++i) | |
254 tagstack[i - 1] = tagstack[i]; | |
255 --tagstackidx; | |
256 } | |
257 | |
258 /* | |
259 * put the tag name in the tag stack | |
260 */ | |
261 if ((tagstack[tagstackidx].tagname = vim_strsave(tag)) == NULL) | |
262 { | |
263 curwin->w_tagstacklen = tagstacklen - 1; | |
264 goto end_do_tag; | |
265 } | |
266 curwin->w_tagstacklen = tagstacklen; | |
267 | |
268 save_pos = TRUE; /* save the cursor position below */ | |
269 } | |
270 | |
271 new_tag = TRUE; | |
272 } | |
273 else | |
274 { | |
275 if ( | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
276 #if defined(FEAT_QUICKFIX) |
2713 | 277 g_do_tagpreview != 0 ? ptag_entry.tagname == NULL : |
7 | 278 #endif |
279 tagstacklen == 0) | |
280 { | |
281 /* empty stack */ | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
282 emsg(_(e_tagstack)); |
7 | 283 goto end_do_tag; |
284 } | |
285 | |
286 if (type == DT_POP) /* go to older position */ | |
287 { | |
288 #ifdef FEAT_FOLDING | |
289 int old_KeyTyped = KeyTyped; | |
290 #endif | |
291 if ((tagstackidx -= count) < 0) | |
292 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
293 emsg(_(bottommsg)); |
7 | 294 if (tagstackidx + count == 0) |
295 { | |
296 /* We did [num]^T from the bottom of the stack */ | |
297 tagstackidx = 0; | |
298 goto end_do_tag; | |
299 } | |
300 /* We weren't at the bottom of the stack, so jump all the | |
301 * way to the bottom now. | |
302 */ | |
303 tagstackidx = 0; | |
304 } | |
305 else if (tagstackidx >= tagstacklen) /* count == 0? */ | |
306 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
307 emsg(_(topmsg)); |
7 | 308 goto end_do_tag; |
309 } | |
310 | |
311 /* Make a copy of the fmark, autocommands may invalidate the | |
312 * tagstack before it's used. */ | |
313 saved_fmark = tagstack[tagstackidx].fmark; | |
314 if (saved_fmark.fnum != curbuf->b_fnum) | |
315 { | |
316 /* | |
317 * Jump to other file. If this fails (e.g. because the | |
318 * file was changed) keep original position in tag stack. | |
319 */ | |
320 if (buflist_getfile(saved_fmark.fnum, saved_fmark.mark.lnum, | |
321 GETF_SETMARK, forceit) == FAIL) | |
322 { | |
323 tagstackidx = oldtagstackidx; /* back to old posn */ | |
324 goto end_do_tag; | |
325 } | |
326 /* An BufReadPost autocommand may jump to the '" mark, but | |
327 * we don't what that here. */ | |
328 curwin->w_cursor.lnum = saved_fmark.mark.lnum; | |
329 } | |
330 else | |
331 { | |
332 setpcmark(); | |
333 curwin->w_cursor.lnum = saved_fmark.mark.lnum; | |
334 } | |
335 curwin->w_cursor.col = saved_fmark.mark.col; | |
336 curwin->w_set_curswant = TRUE; | |
337 check_cursor(); | |
338 #ifdef FEAT_FOLDING | |
339 if ((fdo_flags & FDO_TAG) && old_KeyTyped) | |
340 foldOpenCursor(); | |
341 #endif | |
342 | |
343 /* remove the old list of matches */ | |
344 FreeWild(num_matches, matches); | |
345 #ifdef FEAT_CSCOPE | |
346 cs_free_tags(); | |
347 #endif | |
348 num_matches = 0; | |
845 | 349 tag_freematch(); |
7 | 350 goto end_do_tag; |
351 } | |
352 | |
692 | 353 if (type == DT_TAG |
354 #if defined(FEAT_QUICKFIX) | |
845 | 355 || type == DT_LTAG |
692 | 356 #endif |
845 | 357 ) |
7 | 358 { |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
359 #if defined(FEAT_QUICKFIX) |
2713 | 360 if (g_do_tagpreview != 0) |
7 | 361 { |
362 cur_match = ptag_entry.cur_match; | |
363 cur_fnum = ptag_entry.cur_fnum; | |
364 } | |
365 else | |
366 #endif | |
367 { | |
368 /* ":tag" (no argument): go to newer pattern */ | |
369 save_pos = TRUE; /* save the cursor position below */ | |
370 if ((tagstackidx += count - 1) >= tagstacklen) | |
371 { | |
372 /* | |
373 * Beyond the last one, just give an error message and | |
374 * go to the last one. Don't store the cursor | |
1204 | 375 * position. |
7 | 376 */ |
377 tagstackidx = tagstacklen - 1; | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
378 emsg(_(topmsg)); |
7 | 379 save_pos = FALSE; |
380 } | |
381 else if (tagstackidx < 0) /* must have been count == 0 */ | |
382 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
383 emsg(_(bottommsg)); |
7 | 384 tagstackidx = 0; |
385 goto end_do_tag; | |
386 } | |
387 cur_match = tagstack[tagstackidx].cur_match; | |
388 cur_fnum = tagstack[tagstackidx].cur_fnum; | |
389 } | |
390 new_tag = TRUE; | |
391 } | |
392 else /* go to other matching tag */ | |
393 { | |
394 /* Save index for when selection is cancelled. */ | |
395 prevtagstackidx = tagstackidx; | |
396 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
397 #if defined(FEAT_QUICKFIX) |
2713 | 398 if (g_do_tagpreview != 0) |
7 | 399 { |
400 cur_match = ptag_entry.cur_match; | |
401 cur_fnum = ptag_entry.cur_fnum; | |
402 } | |
403 else | |
404 #endif | |
405 { | |
406 if (--tagstackidx < 0) | |
407 tagstackidx = 0; | |
408 cur_match = tagstack[tagstackidx].cur_match; | |
409 cur_fnum = tagstack[tagstackidx].cur_fnum; | |
410 } | |
411 switch (type) | |
412 { | |
413 case DT_FIRST: cur_match = count - 1; break; | |
414 case DT_SELECT: | |
415 case DT_JUMP: | |
416 #ifdef FEAT_CSCOPE | |
417 case DT_CSCOPE: | |
418 #endif | |
419 case DT_LAST: cur_match = MAXCOL - 1; break; | |
420 case DT_NEXT: cur_match += count; break; | |
421 case DT_PREV: cur_match -= count; break; | |
422 } | |
423 if (cur_match >= MAXCOL) | |
424 cur_match = MAXCOL - 1; | |
425 else if (cur_match < 0) | |
426 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
427 emsg(_("E425: Cannot go before first matching tag")); |
7 | 428 skip_msg = TRUE; |
429 cur_match = 0; | |
430 cur_fnum = curbuf->b_fnum; | |
431 } | |
432 } | |
433 } | |
434 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
435 #if defined(FEAT_QUICKFIX) |
2713 | 436 if (g_do_tagpreview != 0) |
7 | 437 { |
438 if (type != DT_SELECT && type != DT_JUMP) | |
439 { | |
440 ptag_entry.cur_match = cur_match; | |
441 ptag_entry.cur_fnum = cur_fnum; | |
442 } | |
443 } | |
444 else | |
445 #endif | |
446 { | |
447 /* | |
448 * For ":tag [arg]" or ":tselect" remember position before the jump. | |
449 */ | |
450 saved_fmark = tagstack[tagstackidx].fmark; | |
451 if (save_pos) | |
452 { | |
453 tagstack[tagstackidx].fmark.mark = curwin->w_cursor; | |
454 tagstack[tagstackidx].fmark.fnum = curbuf->b_fnum; | |
455 } | |
456 | |
457 /* Curwin will change in the call to jumpto_tag() if ":stag" was | |
458 * used or an autocommand jumps to another window; store value of | |
459 * tagstackidx now. */ | |
460 curwin->w_tagstackidx = tagstackidx; | |
461 if (type != DT_SELECT && type != DT_JUMP) | |
462 { | |
463 curwin->w_tagstack[tagstackidx].cur_match = cur_match; | |
464 curwin->w_tagstack[tagstackidx].cur_fnum = cur_fnum; | |
465 } | |
466 } | |
467 } | |
468 | |
469 /* When not using the current buffer get the name of buffer "cur_fnum". | |
470 * Makes sure that the tag order doesn't change when using a remembered | |
471 * position for "cur_match". */ | |
472 if (cur_fnum != curbuf->b_fnum) | |
473 { | |
474 buf_T *buf = buflist_findnr(cur_fnum); | |
475 | |
476 if (buf != NULL) | |
477 buf_ffname = buf->b_ffname; | |
478 } | |
479 | |
480 /* | |
481 * Repeat searching for tags, when a file has not been found. | |
482 */ | |
483 for (;;) | |
484 { | |
485 /* | |
486 * When desired match not found yet, try to find it (and others). | |
487 */ | |
488 if (use_tagstack) | |
489 name = tagstack[tagstackidx].tagname; | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
490 #if defined(FEAT_QUICKFIX) |
2713 | 491 else if (g_do_tagpreview != 0) |
7 | 492 name = ptag_entry.tagname; |
493 #endif | |
494 else | |
495 name = tag; | |
496 other_name = (tagmatchname == NULL || STRCMP(tagmatchname, name) != 0); | |
497 if (new_tag | |
498 || (cur_match >= num_matches && max_num_matches != MAXCOL) | |
499 || other_name) | |
500 { | |
501 if (other_name) | |
502 { | |
503 vim_free(tagmatchname); | |
504 tagmatchname = vim_strsave(name); | |
505 } | |
506 | |
6851 | 507 if (type == DT_TAG || type == DT_SELECT || type == DT_JUMP |
692 | 508 #if defined(FEAT_QUICKFIX) |
509 || type == DT_LTAG | |
510 #endif | |
511 ) | |
7 | 512 cur_match = MAXCOL - 1; |
513 max_num_matches = cur_match + 1; | |
514 | |
515 /* when the argument starts with '/', use it as a regexp */ | |
516 if (!no_regexp && *name == '/') | |
517 { | |
518 flags = TAG_REGEXP; | |
519 ++name; | |
520 } | |
521 else | |
522 flags = TAG_NOIC; | |
523 | |
524 #ifdef FEAT_CSCOPE | |
525 if (type == DT_CSCOPE) | |
526 flags = TAG_CSCOPE; | |
527 #endif | |
528 if (verbose) | |
529 flags |= TAG_VERBOSE; | |
530 if (find_tags(name, &new_num_matches, &new_matches, flags, | |
531 max_num_matches, buf_ffname) == OK | |
532 && new_num_matches < max_num_matches) | |
533 max_num_matches = MAXCOL; /* If less than max_num_matches | |
534 found: all matches found. */ | |
535 | |
536 /* If there already were some matches for the same name, move them | |
537 * to the start. Avoids that the order changes when using | |
538 * ":tnext" and jumping to another file. */ | |
539 if (!new_tag && !other_name) | |
540 { | |
541 /* Find the position of each old match in the new list. Need | |
542 * to use parse_match() to find the tag line. */ | |
543 idx = 0; | |
544 for (j = 0; j < num_matches; ++j) | |
545 { | |
546 parse_match(matches[j], &tagp); | |
547 for (i = idx; i < new_num_matches; ++i) | |
548 { | |
549 parse_match(new_matches[i], &tagp2); | |
550 if (STRCMP(tagp.tagname, tagp2.tagname) == 0) | |
551 { | |
552 p = new_matches[i]; | |
553 for (k = i; k > idx; --k) | |
554 new_matches[k] = new_matches[k - 1]; | |
555 new_matches[idx++] = p; | |
556 break; | |
557 } | |
558 } | |
559 } | |
560 } | |
561 FreeWild(num_matches, matches); | |
562 num_matches = new_num_matches; | |
563 matches = new_matches; | |
564 } | |
565 | |
566 if (num_matches <= 0) | |
567 { | |
568 if (verbose) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
569 semsg(_("E426: tag not found: %s"), name); |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
570 #if defined(FEAT_QUICKFIX) |
7 | 571 g_do_tagpreview = 0; |
572 #endif | |
573 } | |
574 else | |
575 { | |
576 int ask_for_selection = FALSE; | |
577 | |
578 #ifdef FEAT_CSCOPE | |
579 if (type == DT_CSCOPE && num_matches > 1) | |
580 { | |
581 cs_print_tags(); | |
582 ask_for_selection = TRUE; | |
583 } | |
584 else | |
585 #endif | |
6851 | 586 if (type == DT_TAG) |
587 /* | |
588 * If a count is supplied to the ":tag <name>" command, then | |
589 * jump to count'th matching tag. | |
590 */ | |
591 cur_match = count > 0 ? count - 1 : 0; | |
592 else if (type == DT_SELECT || (type == DT_JUMP && num_matches > 1)) | |
7 | 593 { |
594 /* | |
595 * List all the matching tags. | |
596 * Assume that the first match indicates how long the tags can | |
597 * be, and align the file names to that. | |
598 */ | |
599 parse_match(matches[0], &tagp); | |
600 taglen = (int)(tagp.tagname_end - tagp.tagname + 2); | |
601 if (taglen < 18) | |
602 taglen = 18; | |
603 if (taglen > Columns - 25) | |
604 taglen = MAXCOL; | |
605 if (msg_col == 0) | |
606 msg_didout = FALSE; /* overwrite previous message */ | |
607 msg_start(); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
608 msg_puts_attr(_(" # pri kind tag"), HL_ATTR(HLF_T)); |
7 | 609 msg_clr_eos(); |
610 taglen_advance(taglen); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
611 msg_puts_attr(_("file\n"), HL_ATTR(HLF_T)); |
7 | 612 |
1826 | 613 for (i = 0; i < num_matches && !got_int; ++i) |
7 | 614 { |
615 parse_match(matches[i], &tagp); | |
616 if (!new_tag && ( | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
617 #if defined(FEAT_QUICKFIX) |
2713 | 618 (g_do_tagpreview != 0 |
7 | 619 && i == ptag_entry.cur_match) || |
620 #endif | |
621 (use_tagstack | |
622 && i == tagstack[tagstackidx].cur_match))) | |
623 *IObuff = '>'; | |
624 else | |
625 *IObuff = ' '; | |
273 | 626 vim_snprintf((char *)IObuff + 1, IOSIZE - 1, |
627 "%2d %s ", i + 1, | |
7 | 628 mt_names[matches[i][0] & MT_MASK]); |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
629 msg_puts((char *)IObuff); |
7 | 630 if (tagp.tagkind != NULL) |
631 msg_outtrans_len(tagp.tagkind, | |
632 (int)(tagp.tagkind_end - tagp.tagkind)); | |
633 msg_advance(13); | |
634 msg_outtrans_len_attr(tagp.tagname, | |
635 (int)(tagp.tagname_end - tagp.tagname), | |
11158
501f46f7644c
patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
636 HL_ATTR(HLF_T)); |
7 | 637 msg_putchar(' '); |
638 taglen_advance(taglen); | |
639 | |
640 /* Find out the actual file name. If it is long, truncate | |
641 * it and put "..." in the middle */ | |
642 p = tag_full_fname(&tagp); | |
643 if (p != NULL) | |
644 { | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
645 msg_outtrans_long_attr(p, HL_ATTR(HLF_D)); |
7 | 646 vim_free(p); |
647 } | |
648 if (msg_col > 0) | |
649 msg_putchar('\n'); | |
1826 | 650 if (got_int) |
651 break; | |
7 | 652 msg_advance(15); |
653 | |
654 /* print any extra fields */ | |
655 command_end = tagp.command_end; | |
656 if (command_end != NULL) | |
657 { | |
658 p = command_end + 3; | |
659 while (*p && *p != '\r' && *p != '\n') | |
660 { | |
661 while (*p == TAB) | |
662 ++p; | |
663 | |
664 /* skip "file:" without a value (static tag) */ | |
665 if (STRNCMP(p, "file:", 5) == 0 | |
666 && vim_isspace(p[5])) | |
667 { | |
668 p += 5; | |
669 continue; | |
670 } | |
671 /* skip "kind:<kind>" and "<kind>" */ | |
672 if (p == tagp.tagkind | |
673 || (p + 5 == tagp.tagkind | |
674 && STRNCMP(p, "kind:", 5) == 0)) | |
675 { | |
676 p = tagp.tagkind_end; | |
677 continue; | |
678 } | |
679 /* print all other extra fields */ | |
11158
501f46f7644c
patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
680 attr = HL_ATTR(HLF_CM); |
7 | 681 while (*p && *p != '\r' && *p != '\n') |
682 { | |
683 if (msg_col + ptr2cells(p) >= Columns) | |
684 { | |
685 msg_putchar('\n'); | |
1826 | 686 if (got_int) |
687 break; | |
7 | 688 msg_advance(15); |
689 } | |
690 p = msg_outtrans_one(p, attr); | |
691 if (*p == TAB) | |
692 { | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
693 msg_puts_attr(" ", attr); |
7 | 694 break; |
695 } | |
696 if (*p == ':') | |
697 attr = 0; | |
698 } | |
699 } | |
700 if (msg_col > 15) | |
701 { | |
702 msg_putchar('\n'); | |
1826 | 703 if (got_int) |
704 break; | |
7 | 705 msg_advance(15); |
706 } | |
707 } | |
708 else | |
709 { | |
710 for (p = tagp.command; | |
711 *p && *p != '\r' && *p != '\n'; ++p) | |
712 ; | |
713 command_end = p; | |
714 } | |
715 | |
716 /* | |
717 * Put the info (in several lines) at column 15. | |
718 * Don't display "/^" and "?^". | |
719 */ | |
720 p = tagp.command; | |
721 if (*p == '/' || *p == '?') | |
722 { | |
723 ++p; | |
724 if (*p == '^') | |
725 ++p; | |
726 } | |
727 /* Remove leading whitespace from pattern */ | |
728 while (p != command_end && vim_isspace(*p)) | |
729 ++p; | |
730 | |
731 while (p != command_end) | |
732 { | |
733 if (msg_col + (*p == TAB ? 1 : ptr2cells(p)) > Columns) | |
734 msg_putchar('\n'); | |
1826 | 735 if (got_int) |
736 break; | |
7 | 737 msg_advance(15); |
738 | |
5792 | 739 /* skip backslash used for escaping a command char or |
740 * a backslash */ | |
741 if (*p == '\\' && (*(p + 1) == *tagp.command | |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
742 || *(p + 1) == '\\')) |
7 | 743 ++p; |
744 | |
745 if (*p == TAB) | |
746 { | |
747 msg_putchar(' '); | |
748 ++p; | |
749 } | |
750 else | |
751 p = msg_outtrans_one(p, 0); | |
752 | |
753 /* don't display the "$/;\"" and "$?;\"" */ | |
754 if (p == command_end - 2 && *p == '$' | |
755 && *(p + 1) == *tagp.command) | |
756 break; | |
757 /* don't display matching '/' or '?' */ | |
758 if (p == command_end - 1 && *p == *tagp.command | |
759 && (*p == '/' || *p == '?')) | |
760 break; | |
761 } | |
762 if (msg_col) | |
763 msg_putchar('\n'); | |
764 ui_breakcheck(); | |
765 } | |
1826 | 766 if (got_int) |
767 got_int = FALSE; /* only stop the listing */ | |
7 | 768 ask_for_selection = TRUE; |
769 } | |
649 | 770 #if defined(FEAT_QUICKFIX) && defined(FEAT_EVAL) |
692 | 771 else if (type == DT_LTAG) |
649 | 772 { |
773 list_T *list; | |
774 char_u tag_name[128 + 1]; | |
2770 | 775 char_u *fname; |
776 char_u *cmd; | |
649 | 777 |
778 /* | |
779 * Add the matching tags to the location list for the current | |
780 * window. | |
781 */ | |
782 | |
2770 | 783 fname = alloc(MAXPATHL + 1); |
784 cmd = alloc(CMDBUFFSIZE + 1); | |
649 | 785 list = list_alloc(); |
2770 | 786 if (list == NULL || fname == NULL || cmd == NULL) |
787 { | |
788 vim_free(cmd); | |
789 vim_free(fname); | |
790 if (list != NULL) | |
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8524
diff
changeset
|
791 list_free(list); |
649 | 792 goto end_do_tag; |
2770 | 793 } |
649 | 794 |
795 for (i = 0; i < num_matches; ++i) | |
796 { | |
797 int len, cmd_len; | |
798 long lnum; | |
799 dict_T *dict; | |
800 | |
801 parse_match(matches[i], &tagp); | |
802 | |
803 /* Save the tag name */ | |
835 | 804 len = (int)(tagp.tagname_end - tagp.tagname); |
649 | 805 if (len > 128) |
806 len = 128; | |
807 vim_strncpy(tag_name, tagp.tagname, len); | |
808 tag_name[len] = NUL; | |
809 | |
810 /* Save the tag file name */ | |
811 p = tag_full_fname(&tagp); | |
812 if (p == NULL) | |
813 continue; | |
2768 | 814 vim_strncpy(fname, p, MAXPATHL); |
649 | 815 vim_free(p); |
816 | |
817 /* | |
818 * Get the line number or the search pattern used to locate | |
819 * the tag. | |
820 */ | |
821 lnum = 0; | |
822 if (isdigit(*tagp.command)) | |
823 /* Line number is used to locate the tag */ | |
824 lnum = atol((char *)tagp.command); | |
825 else | |
826 { | |
827 char_u *cmd_start, *cmd_end; | |
828 | |
829 /* Search pattern is used to locate the tag */ | |
830 | |
831 /* Locate the end of the command */ | |
832 cmd_start = tagp.command; | |
833 cmd_end = tagp.command_end; | |
834 if (cmd_end == NULL) | |
835 { | |
836 for (p = tagp.command; | |
837 *p && *p != '\r' && *p != '\n'; ++p) | |
838 ; | |
839 cmd_end = p; | |
840 } | |
692 | 841 |
649 | 842 /* |
843 * Now, cmd_end points to the character after the | |
844 * command. Adjust it to point to the last | |
845 * character of the command. | |
846 */ | |
847 cmd_end--; | |
848 | |
849 /* | |
850 * Skip the '/' and '?' characters at the | |
851 * beginning and end of the search pattern. | |
852 */ | |
853 if (*cmd_start == '/' || *cmd_start == '?') | |
854 cmd_start++; | |
855 | |
856 if (*cmd_end == '/' || *cmd_end == '?') | |
857 cmd_end--; | |
858 | |
859 len = 0; | |
860 cmd[0] = NUL; | |
861 | |
862 /* | |
863 * If "^" is present in the tag search pattern, then | |
864 * copy it first. | |
865 */ | |
866 if (*cmd_start == '^') | |
867 { | |
868 STRCPY(cmd, "^"); | |
869 cmd_start++; | |
870 len++; | |
871 } | |
872 | |
873 /* | |
874 * Precede the tag pattern with \V to make it very | |
875 * nomagic. | |
876 */ | |
877 STRCAT(cmd, "\\V"); | |
878 len += 2; | |
879 | |
835 | 880 cmd_len = (int)(cmd_end - cmd_start + 1); |
649 | 881 if (cmd_len > (CMDBUFFSIZE - 5)) |
882 cmd_len = CMDBUFFSIZE - 5; | |
883 STRNCAT(cmd, cmd_start, cmd_len); | |
884 len += cmd_len; | |
885 | |
886 if (cmd[len - 1] == '$') | |
887 { | |
692 | 888 /* |
649 | 889 * Replace '$' at the end of the search pattern |
890 * with '\$' | |
891 */ | |
892 cmd[len - 1] = '\\'; | |
893 cmd[len] = '$'; | |
894 len++; | |
895 } | |
896 | |
897 cmd[len] = NUL; | |
898 } | |
899 | |
900 if ((dict = dict_alloc()) == NULL) | |
901 continue; | |
902 if (list_append_dict(list, dict) == FAIL) | |
903 { | |
904 vim_free(dict); | |
905 continue; | |
906 } | |
907 | |
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
908 dict_add_string(dict, "text", tag_name); |
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
909 dict_add_string(dict, "filename", fname); |
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
910 dict_add_number(dict, "lnum", lnum); |
649 | 911 if (lnum == 0) |
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
912 dict_add_string(dict, "pattern", cmd); |
649 | 913 } |
914 | |
2533 | 915 vim_snprintf((char *)IObuff, IOSIZE, "ltag %s", tag); |
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9387
diff
changeset
|
916 set_errorlist(curwin, list, ' ', IObuff, NULL); |
649 | 917 |
8863
e1b84109506a
commit https://github.com/vim/vim/commit/107e1eef1df3b786ad3ad49fbdb9e058649303b5
Christian Brabandt <cb@256bit.org>
parents:
8524
diff
changeset
|
918 list_free(list); |
2770 | 919 vim_free(fname); |
920 vim_free(cmd); | |
692 | 921 |
922 cur_match = 0; /* Jump to the first tag */ | |
649 | 923 } |
924 #endif | |
7 | 925 |
926 if (ask_for_selection == TRUE) | |
927 { | |
928 /* | |
929 * Ask to select a tag from the list. | |
930 */ | |
373 | 931 i = prompt_for_number(NULL); |
7 | 932 if (i <= 0 || i > num_matches || got_int) |
933 { | |
934 /* no valid choice: don't change anything */ | |
935 if (use_tagstack) | |
936 { | |
937 tagstack[tagstackidx].fmark = saved_fmark; | |
938 tagstackidx = prevtagstackidx; | |
939 } | |
940 #ifdef FEAT_CSCOPE | |
941 cs_free_tags(); | |
942 jumped_to_tag = TRUE; | |
943 #endif | |
944 break; | |
945 } | |
946 cur_match = i - 1; | |
947 } | |
948 | |
949 if (cur_match >= num_matches) | |
950 { | |
951 /* Avoid giving this error when a file wasn't found and we're | |
952 * looking for a match in another file, which wasn't found. | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
953 * There will be an emsg("file doesn't exist") below then. */ |
7 | 954 if ((type == DT_NEXT || type == DT_FIRST) |
955 && nofile_fname == NULL) | |
956 { | |
957 if (num_matches == 1) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
958 emsg(_("E427: There is only one matching tag")); |
7 | 959 else |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
960 emsg(_("E428: Cannot go beyond last matching tag")); |
7 | 961 skip_msg = TRUE; |
962 } | |
963 cur_match = num_matches - 1; | |
964 } | |
965 if (use_tagstack) | |
966 { | |
967 tagstack[tagstackidx].cur_match = cur_match; | |
968 tagstack[tagstackidx].cur_fnum = cur_fnum; | |
969 ++tagstackidx; | |
970 } | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
971 #if defined(FEAT_QUICKFIX) |
2713 | 972 else if (g_do_tagpreview != 0) |
7 | 973 { |
974 ptag_entry.cur_match = cur_match; | |
975 ptag_entry.cur_fnum = cur_fnum; | |
976 } | |
977 #endif | |
978 | |
979 /* | |
980 * Only when going to try the next match, report that the previous | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
981 * file didn't exist. Otherwise an emsg() is given below. |
7 | 982 */ |
983 if (nofile_fname != NULL && error_cur_match != cur_match) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
984 smsg(_("File \"%s\" does not exist"), nofile_fname); |
7 | 985 |
986 | |
987 ic = (matches[cur_match][0] & MT_IC_OFF); | |
6851 | 988 if (type != DT_TAG && type != DT_SELECT && type != DT_JUMP |
7 | 989 #ifdef FEAT_CSCOPE |
990 && type != DT_CSCOPE | |
991 #endif | |
992 && (num_matches > 1 || ic) | |
993 && !skip_msg) | |
994 { | |
995 /* Give an indication of the number of matching tags */ | |
996 sprintf((char *)IObuff, _("tag %d of %d%s"), | |
997 cur_match + 1, | |
998 num_matches, | |
999 max_num_matches != MAXCOL ? _(" or more") : ""); | |
1000 if (ic) | |
1001 STRCAT(IObuff, _(" Using tag with different case!")); | |
1002 if ((num_matches > prev_num_matches || new_tag) | |
1003 && num_matches > 1) | |
1004 { | |
1005 if (ic) | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1006 msg_attr((char *)IObuff, HL_ATTR(HLF_W)); |
7 | 1007 else |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1008 msg((char *)IObuff); |
7 | 1009 msg_scroll = TRUE; /* don't overwrite this message */ |
1010 } | |
1011 else | |
1012 give_warning(IObuff, ic); | |
1013 if (ic && !msg_scrolled && msg_silent == 0) | |
1014 { | |
1015 out_flush(); | |
1016 ui_delay(1000L, TRUE); | |
1017 } | |
1018 } | |
1019 | |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
1020 #if defined(FEAT_EVAL) |
589 | 1021 /* Let the SwapExists event know what tag we are jumping to. */ |
1022 vim_snprintf((char *)IObuff, IOSIZE, ":ta %s\r", name); | |
1023 set_vim_var_string(VV_SWAPCOMMAND, IObuff, -1); | |
1024 #endif | |
1025 | |
7 | 1026 /* |
1027 * Jump to the desired match. | |
1028 */ | |
589 | 1029 i = jumpto_tag(matches[cur_match], forceit, type != DT_CSCOPE); |
1030 | |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
1031 #if defined(FEAT_EVAL) |
589 | 1032 set_vim_var_string(VV_SWAPCOMMAND, NULL, -1); |
1033 #endif | |
1034 | |
1035 if (i == NOTAGFILE) | |
7 | 1036 { |
1037 /* File not found: try again with another matching tag */ | |
1038 if ((type == DT_PREV && cur_match > 0) | |
1039 || ((type == DT_TAG || type == DT_NEXT | |
1040 || type == DT_FIRST) | |
1041 && (max_num_matches != MAXCOL | |
1042 || cur_match < num_matches - 1))) | |
1043 { | |
1044 error_cur_match = cur_match; | |
1045 if (use_tagstack) | |
1046 --tagstackidx; | |
1047 if (type == DT_PREV) | |
1048 --cur_match; | |
1049 else | |
1050 { | |
1051 type = DT_NEXT; | |
1052 ++cur_match; | |
1053 } | |
1054 continue; | |
1055 } | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
1056 semsg(_("E429: File \"%s\" does not exist"), nofile_fname); |
7 | 1057 } |
1058 else | |
1059 { | |
1060 /* We may have jumped to another window, check that | |
1061 * tagstackidx is still valid. */ | |
1062 if (use_tagstack && tagstackidx > curwin->w_tagstacklen) | |
1063 tagstackidx = curwin->w_tagstackidx; | |
1064 #ifdef FEAT_CSCOPE | |
1065 jumped_to_tag = TRUE; | |
1066 #endif | |
1067 } | |
1068 } | |
1069 break; | |
1070 } | |
1071 | |
1072 end_do_tag: | |
1073 /* Only store the new index when using the tagstack and it's valid. */ | |
1074 if (use_tagstack && tagstackidx <= curwin->w_tagstacklen) | |
1075 curwin->w_tagstackidx = tagstackidx; | |
1076 postponed_split = 0; /* don't split next time */ | |
9949
30be4b26a37e
commit https://github.com/vim/vim/commit/358308dd99abdd56c6540339e505585d8db7bdfe
Christian Brabandt <cb@256bit.org>
parents:
9913
diff
changeset
|
1077 # ifdef FEAT_QUICKFIX |
30be4b26a37e
commit https://github.com/vim/vim/commit/358308dd99abdd56c6540339e505585d8db7bdfe
Christian Brabandt <cb@256bit.org>
parents:
9913
diff
changeset
|
1078 g_do_tagpreview = 0; /* don't do tag preview next time */ |
30be4b26a37e
commit https://github.com/vim/vim/commit/358308dd99abdd56c6540339e505585d8db7bdfe
Christian Brabandt <cb@256bit.org>
parents:
9913
diff
changeset
|
1079 # endif |
7 | 1080 |
1081 #ifdef FEAT_CSCOPE | |
1082 return jumped_to_tag; | |
1083 #else | |
1084 return FALSE; | |
1085 #endif | |
1086 } | |
1087 | |
1088 /* | |
1089 * Free cached tags. | |
1090 */ | |
1091 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1092 tag_freematch(void) |
7 | 1093 { |
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13227
diff
changeset
|
1094 VIM_CLEAR(tagmatchname); |
7 | 1095 } |
1096 | |
1097 static void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1098 taglen_advance(int l) |
7 | 1099 { |
1100 if (l == MAXCOL) | |
1101 { | |
1102 msg_putchar('\n'); | |
1103 msg_advance(24); | |
1104 } | |
1105 else | |
1106 msg_advance(13 + l); | |
1107 } | |
1108 | |
1109 /* | |
1110 * Print the tag stack | |
1111 */ | |
1112 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1113 do_tags(exarg_T *eap UNUSED) |
7 | 1114 { |
1115 int i; | |
1116 char_u *name; | |
1117 taggy_T *tagstack = curwin->w_tagstack; | |
1118 int tagstackidx = curwin->w_tagstackidx; | |
1119 int tagstacklen = curwin->w_tagstacklen; | |
1120 | |
1121 /* Highlight title */ | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1122 msg_puts_title(_("\n # TO tag FROM line in file/text")); |
7 | 1123 for (i = 0; i < tagstacklen; ++i) |
1124 { | |
1125 if (tagstack[i].tagname != NULL) | |
1126 { | |
1127 name = fm_getname(&(tagstack[i].fmark), 30); | |
1128 if (name == NULL) /* file name not available */ | |
1129 continue; | |
1130 | |
1131 msg_putchar('\n'); | |
13068
63fdea6e9c6c
patch 8.0.1409: buffer overflow in :tags command
Christian Brabandt <cb@256bit.org>
parents:
12680
diff
changeset
|
1132 vim_snprintf((char *)IObuff, IOSIZE, "%c%2d %2d %-15s %5ld ", |
7 | 1133 i == tagstackidx ? '>' : ' ', |
1134 i + 1, | |
1135 tagstack[i].cur_match + 1, | |
1136 tagstack[i].tagname, | |
1137 tagstack[i].fmark.mark.lnum); | |
1138 msg_outtrans(IObuff); | |
1139 msg_outtrans_attr(name, tagstack[i].fmark.fnum == curbuf->b_fnum | |
11158
501f46f7644c
patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents:
11129
diff
changeset
|
1140 ? HL_ATTR(HLF_D) : 0); |
7 | 1141 vim_free(name); |
1142 } | |
1143 out_flush(); /* show one line at a time */ | |
1144 } | |
1145 if (tagstackidx == tagstacklen) /* idx at top of stack */ | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1146 msg_puts("\n>"); |
7 | 1147 } |
1148 | |
1149 /* When not using a CR for line separator, use vim_fgets() to read tag lines. | |
1150 * For the Mac use tag_fgets(). It can handle any line separator, but is much | |
1151 * slower than vim_fgets(). | |
1152 */ | |
1153 #ifndef USE_CR | |
1154 # define tag_fgets vim_fgets | |
1155 #endif | |
1156 | |
1157 #ifdef FEAT_TAG_BINS | |
1158 /* | |
1159 * Compare two strings, for length "len", ignoring case the ASCII way. | |
1160 * return 0 for match, < 0 for smaller, > 0 for bigger | |
1161 * Make sure case is folded to uppercase in comparison (like for 'sort -f') | |
1162 */ | |
1163 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1164 tag_strnicmp(char_u *s1, char_u *s2, size_t len) |
7 | 1165 { |
1166 int i; | |
1167 | |
1168 while (len > 0) | |
1169 { | |
1170 i = (int)TOUPPER_ASC(*s1) - (int)TOUPPER_ASC(*s2); | |
1171 if (i != 0) | |
1172 return i; /* this character different */ | |
1173 if (*s1 == NUL) | |
1174 break; /* strings match until NUL */ | |
1175 ++s1; | |
1176 ++s2; | |
1177 --len; | |
1178 } | |
1179 return 0; /* strings match */ | |
1180 } | |
1181 #endif | |
1182 | |
1183 /* | |
1184 * Structure to hold info about the tag pattern being used. | |
1185 */ | |
1186 typedef struct | |
1187 { | |
1188 char_u *pat; /* the pattern */ | |
1189 int len; /* length of pat[] */ | |
1190 char_u *head; /* start of pattern head */ | |
1191 int headlen; /* length of head[] */ | |
1192 regmatch_T regmatch; /* regexp program, may be NULL */ | |
1193 } pat_T; | |
1194 | |
1195 /* | |
1196 * Extract info from the tag search pattern "pats->pat". | |
1197 */ | |
1198 static void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1199 prepare_pats(pat_T *pats, int has_re) |
7 | 1200 { |
1201 pats->head = pats->pat; | |
1202 pats->headlen = pats->len; | |
1203 if (has_re) | |
1204 { | |
1205 /* When the pattern starts with '^' or "\\<", binary searching can be | |
1206 * used (much faster). */ | |
1207 if (pats->pat[0] == '^') | |
1208 pats->head = pats->pat + 1; | |
1209 else if (pats->pat[0] == '\\' && pats->pat[1] == '<') | |
1210 pats->head = pats->pat + 2; | |
1211 if (pats->head == pats->pat) | |
1212 pats->headlen = 0; | |
1213 else | |
1214 for (pats->headlen = 0; pats->head[pats->headlen] != NUL; | |
1215 ++pats->headlen) | |
1216 if (vim_strchr((char_u *)(p_magic ? ".[~*\\$" : "\\$"), | |
1217 pats->head[pats->headlen]) != NULL) | |
1218 break; | |
1219 if (p_tl != 0 && pats->headlen > p_tl) /* adjust for 'taglength' */ | |
1220 pats->headlen = p_tl; | |
1221 } | |
1222 | |
1223 if (has_re) | |
1224 pats->regmatch.regprog = vim_regcomp(pats->pat, p_magic ? RE_MAGIC : 0); | |
1225 else | |
1226 pats->regmatch.regprog = NULL; | |
1227 } | |
1228 | |
1229 /* | |
1230 * find_tags() - search for tags in tags files | |
1231 * | |
1232 * Return FAIL if search completely failed (*num_matches will be 0, *matchesp | |
1233 * will be NULL), OK otherwise. | |
1234 * | |
1235 * There is a priority in which type of tag is recognized. | |
1236 * | |
1237 * 6. A static or global tag with a full matching tag for the current file. | |
1238 * 5. A global tag with a full matching tag for another file. | |
1239 * 4. A static tag with a full matching tag for another file. | |
1240 * 3. A static or global tag with an ignore-case matching tag for the | |
1241 * current file. | |
1242 * 2. A global tag with an ignore-case matching tag for another file. | |
1243 * 1. A static tag with an ignore-case matching tag for another file. | |
1244 * | |
1245 * Tags in an emacs-style tags file are always global. | |
1246 * | |
1247 * flags: | |
1248 * TAG_HELP only search for help tags | |
1249 * TAG_NAMES only return name of tag | |
1250 * TAG_REGEXP use "pat" as a regexp | |
1251 * TAG_NOIC don't always ignore case | |
1252 * TAG_KEEP_LANG keep language | |
10666
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1253 * TAG_CSCOPE use cscope results for tags |
7 | 1254 */ |
1255 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1256 find_tags( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1257 char_u *pat, /* pattern to search for */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1258 int *num_matches, /* return: number of matches found */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1259 char_u ***matchesp, /* return: array of matches found */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1260 int flags, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1261 int mincount, /* MAXCOL: find all matches |
7 | 1262 other: minimal number of matches */ |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1263 char_u *buf_ffname) /* name of buffer for priority */ |
7 | 1264 { |
1265 FILE *fp; | |
1266 char_u *lbuf; /* line buffer */ | |
3131 | 1267 int lbuf_size = LSIZE; /* length of lbuf */ |
7 | 1268 char_u *tag_fname; /* name of tag file */ |
692 | 1269 tagname_T tn; /* info for get_tagfname() */ |
7 | 1270 int first_file; /* trying first tag file */ |
1271 tagptrs_T tagp; | |
1272 int did_open = FALSE; /* did open a tag file */ | |
1273 int stop_searching = FALSE; /* stop when match found or error */ | |
1274 int retval = FAIL; /* return value */ | |
1275 int is_static; /* current tag line is static */ | |
1276 int is_current; /* file name matches */ | |
1277 int eof = FALSE; /* found end-of-file */ | |
1278 char_u *p; | |
1279 char_u *s; | |
1280 int i; | |
1281 #ifdef FEAT_TAG_BINS | |
3131 | 1282 int tag_file_sorted = NUL; /* !_TAG_FILE_SORTED value */ |
7 | 1283 struct tag_search_info /* Binary search file offsets */ |
1284 { | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1285 off_T low_offset; /* offset for first char of first line that |
7 | 1286 could match */ |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1287 off_T high_offset; /* offset of char after last line that could |
7 | 1288 match */ |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1289 off_T curr_offset; /* Current file offset in search range */ |
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1290 off_T curr_offset_used; /* curr_offset used when skipping back */ |
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1291 off_T match_offset; /* Where the binary search found a tag */ |
7 | 1292 int low_char; /* first char at low_offset */ |
1293 int high_char; /* first char at high_offset */ | |
1294 } search_info; | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1295 off_T filesize; |
7 | 1296 int tagcmp; |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1297 off_T offset; |
7 | 1298 int round; |
1299 #endif | |
1300 enum | |
1301 { | |
1302 TS_START, /* at start of file */ | |
1303 TS_LINEAR /* linear searching forward, till EOF */ | |
1304 #ifdef FEAT_TAG_BINS | |
1305 , TS_BINARY, /* binary searching */ | |
1306 TS_SKIP_BACK, /* skipping backwards */ | |
1307 TS_STEP_FORWARD /* stepping forwards */ | |
1308 #endif | |
1309 } state; /* Current search state */ | |
1310 | |
1311 int cmplen; | |
1312 int match; /* matches */ | |
1313 int match_no_ic = 0;/* matches with rm_ic == FALSE */ | |
1314 int match_re; /* match with regexp */ | |
1315 int matchoff = 0; | |
5513 | 1316 int save_emsg_off; |
7 | 1317 |
1318 #ifdef FEAT_EMACS_TAGS | |
1319 /* | |
1320 * Stack for included emacs-tags file. | |
1321 * It has a fixed size, to truncate cyclic includes. jw | |
1322 */ | |
1323 # define INCSTACK_SIZE 42 | |
1324 struct | |
1325 { | |
1326 FILE *fp; | |
1327 char_u *etag_fname; | |
1328 } incstack[INCSTACK_SIZE]; | |
1329 | |
1330 int incstack_idx = 0; /* index in incstack */ | |
1204 | 1331 char_u *ebuf; /* additional buffer for etag fname */ |
7 | 1332 int is_etag; /* current file is emaces style */ |
1333 #endif | |
1334 | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1335 char_u *mfp; |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
1336 garray_T ga_match[MT_COUNT]; /* stores matches in sequence */ |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
1337 hashtab_T ht_match[MT_COUNT]; /* stores matches by key */ |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1338 hash_T hash = 0; |
7 | 1339 int match_count = 0; /* number of matches found */ |
1340 char_u **matches; | |
1341 int mtt; | |
1342 int help_save; | |
1343 #ifdef FEAT_MULTI_LANG | |
1344 int help_pri = 0; | |
1345 char_u *help_lang_find = NULL; /* lang to be found */ | |
1346 char_u help_lang[3]; /* lang of current tags file */ | |
1347 char_u *saved_pat = NULL; /* copy of pat[] */ | |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1348 int is_txt = FALSE; /* flag of file extension */ |
7 | 1349 #endif |
1350 | |
1351 pat_T orgpat; /* holds unconverted pattern info */ | |
1352 vimconv_T vimconv; | |
1353 | |
1354 #ifdef FEAT_TAG_BINS | |
1355 int findall = (mincount == MAXCOL || mincount == TAG_MANY); | |
1356 /* find all matching tags */ | |
1357 int sort_error = FALSE; /* tags file not sorted */ | |
1358 int linear; /* do a linear search */ | |
1359 int sortic = FALSE; /* tag file sorted in nocase */ | |
1360 #endif | |
1361 int line_error = FALSE; /* syntax error */ | |
1362 int has_re = (flags & TAG_REGEXP); /* regexp used */ | |
1363 int help_only = (flags & TAG_HELP); | |
1364 int name_only = (flags & TAG_NAMES); | |
1365 int noic = (flags & TAG_NOIC); | |
1366 int get_it_again = FALSE; | |
1367 #ifdef FEAT_CSCOPE | |
1368 int use_cscope = (flags & TAG_CSCOPE); | |
1369 #endif | |
1370 int verbose = (flags & TAG_VERBOSE); | |
7266
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1371 int save_p_ic = p_ic; |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1372 |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1373 /* |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1374 * Change the value of 'ignorecase' according to 'tagcase' for the |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1375 * duration of this function. |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1376 */ |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1377 switch (curbuf->b_tc_flags ? curbuf->b_tc_flags : tc_flags) |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1378 { |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1379 case TC_FOLLOWIC: break; |
9913
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9850
diff
changeset
|
1380 case TC_IGNORE: p_ic = TRUE; break; |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9850
diff
changeset
|
1381 case TC_MATCH: p_ic = FALSE; break; |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9850
diff
changeset
|
1382 case TC_FOLLOWSCS: p_ic = ignorecase(pat); break; |
bb00c661b3a4
commit https://github.com/vim/vim/commit/66e29d7112e437b2b50efe1f82c7e892736d23e4
Christian Brabandt <cb@256bit.org>
parents:
9850
diff
changeset
|
1383 case TC_SMART: p_ic = ignorecase_opt(pat, TRUE, TRUE); break; |
7266
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
1384 } |
7 | 1385 |
1386 help_save = curbuf->b_help; | |
1387 orgpat.pat = pat; | |
1388 vimconv.vc_type = CONV_NONE; | |
1389 | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1390 /* |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1391 * Allocate memory for the buffers that are used |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1392 */ |
3131 | 1393 lbuf = alloc(lbuf_size); |
7 | 1394 tag_fname = alloc(MAXPATHL + 1); |
1395 #ifdef FEAT_EMACS_TAGS | |
1396 ebuf = alloc(LSIZE); | |
1397 #endif | |
1398 for (mtt = 0; mtt < MT_COUNT; ++mtt) | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
1399 { |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
1400 ga_init2(&ga_match[mtt], (int)sizeof(char_u *), 100); |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
1401 hash_init(&ht_match[mtt]); |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
1402 } |
7 | 1403 |
1404 /* check for out of memory situation */ | |
1405 if (lbuf == NULL || tag_fname == NULL | |
1406 #ifdef FEAT_EMACS_TAGS | |
1407 || ebuf == NULL | |
1408 #endif | |
1409 ) | |
1410 goto findtag_end; | |
1411 | |
1412 #ifdef FEAT_CSCOPE | |
1413 STRCPY(tag_fname, "from cscope"); /* for error messages */ | |
1414 #endif | |
1415 | |
1416 /* | |
1417 * Initialize a few variables | |
1418 */ | |
1419 if (help_only) /* want tags from help file */ | |
1420 curbuf->b_help = TRUE; /* will be restored later */ | |
10666
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1421 #ifdef FEAT_CSCOPE |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1422 else if (use_cscope) |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1423 { |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1424 /* Make sure we don't mix help and cscope, confuses Coverity. */ |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1425 help_only = FALSE; |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1426 curbuf->b_help = FALSE; |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1427 } |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
1428 #endif |
7 | 1429 |
3131 | 1430 orgpat.len = (int)STRLEN(pat); |
7 | 1431 #ifdef FEAT_MULTI_LANG |
1432 if (curbuf->b_help) | |
1433 { | |
1434 /* When "@ab" is specified use only the "ab" language, otherwise | |
1435 * search all languages. */ | |
3131 | 1436 if (orgpat.len > 3 && pat[orgpat.len - 3] == '@' |
1437 && ASCII_ISALPHA(pat[orgpat.len - 2]) | |
1438 && ASCII_ISALPHA(pat[orgpat.len - 1])) | |
7 | 1439 { |
3131 | 1440 saved_pat = vim_strnsave(pat, orgpat.len - 3); |
7 | 1441 if (saved_pat != NULL) |
1442 { | |
3131 | 1443 help_lang_find = &pat[orgpat.len - 2]; |
1444 orgpat.pat = saved_pat; | |
1445 orgpat.len -= 3; | |
7 | 1446 } |
1447 } | |
1448 } | |
1449 #endif | |
3131 | 1450 if (p_tl != 0 && orgpat.len > p_tl) /* adjust for 'taglength' */ |
1451 orgpat.len = p_tl; | |
1452 | |
5513 | 1453 save_emsg_off = emsg_off; |
1454 emsg_off = TRUE; /* don't want error for invalid RE here */ | |
3131 | 1455 prepare_pats(&orgpat, has_re); |
5513 | 1456 emsg_off = save_emsg_off; |
3784 | 1457 if (has_re && orgpat.regmatch.regprog == NULL) |
1458 goto findtag_end; | |
7 | 1459 |
1460 #ifdef FEAT_TAG_BINS | |
1461 /* This is only to avoid a compiler warning for using search_info | |
1462 * uninitialised. */ | |
1463 vim_memset(&search_info, 0, (size_t)1); | |
1464 #endif | |
1465 | |
413 | 1466 /* |
1467 * When finding a specified number of matches, first try with matching | |
1468 * case, so binary search can be used, and try ignore-case matches in a | |
1469 * second loop. | |
1470 * When finding all matches, 'tagbsearch' is off, or there is no fixed | |
1471 * string to look for, ignore case right away to avoid going though the | |
1472 * tags files twice. | |
1473 * When the tag file is case-fold sorted, it is either one or the other. | |
1474 * Only ignore case when TAG_NOIC not used or 'ignorecase' set. | |
1475 */ | |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1476 #ifdef FEAT_MULTI_LANG |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1477 /* Set a flag if the file extension is .txt */ |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1478 if ((flags & TAG_KEEP_LANG) |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1479 && help_lang_find == NULL |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1480 && curbuf->b_fname != NULL |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1481 && (i = (int)STRLEN(curbuf->b_fname)) > 4 |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1482 && STRICMP(curbuf->b_fname + i - 4, ".txt") == 0) |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1483 is_txt = TRUE; |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1484 #endif |
7 | 1485 #ifdef FEAT_TAG_BINS |
3131 | 1486 orgpat.regmatch.rm_ic = ((p_ic || !noic) |
1487 && (findall || orgpat.headlen == 0 || !p_tbs)); | |
7 | 1488 for (round = 1; round <= 2; ++round) |
1489 { | |
3131 | 1490 linear = (orgpat.headlen == 0 || !p_tbs || round == 2); |
7 | 1491 #else |
3131 | 1492 orgpat.regmatch.rm_ic = (p_ic || !noic); |
7 | 1493 #endif |
1494 | |
1495 /* | |
1496 * Try tag file names from tags option one by one. | |
1497 */ | |
1498 for (first_file = TRUE; | |
1499 #ifdef FEAT_CSCOPE | |
1500 use_cscope || | |
1501 #endif | |
692 | 1502 get_tagfname(&tn, first_file, tag_fname) == OK; |
1503 first_file = FALSE) | |
7 | 1504 { |
1505 /* | |
1506 * A file that doesn't exist is silently ignored. Only when not a | |
1507 * single file is found, an error message is given (further on). | |
1508 */ | |
1509 #ifdef FEAT_CSCOPE | |
1510 if (use_cscope) | |
1511 fp = NULL; /* avoid GCC warning */ | |
1512 else | |
1513 #endif | |
1514 { | |
1515 #ifdef FEAT_MULTI_LANG | |
1516 if (curbuf->b_help) | |
1517 { | |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1518 /* Keep en if the file extension is .txt*/ |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1519 if (is_txt) |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1520 STRCPY(help_lang, "en"); |
7 | 1521 else |
10444
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1522 { |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1523 /* Prefer help tags according to 'helplang'. Put the |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1524 * two-letter language name in help_lang[]. */ |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1525 i = (int)STRLEN(tag_fname); |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1526 if (i > 3 && tag_fname[i - 3] == '-') |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1527 STRCPY(help_lang, tag_fname + i - 2); |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1528 else |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1529 STRCPY(help_lang, "en"); |
2edda415c28a
commit https://github.com/vim/vim/commit/6dbf66aa3e2197ce41f2b1cc7602bb9c15840548
Christian Brabandt <cb@256bit.org>
parents:
10430
diff
changeset
|
1530 } |
7 | 1531 /* When searching for a specific language skip tags files |
1532 * for other languages. */ | |
1533 if (help_lang_find != NULL | |
1534 && STRICMP(help_lang, help_lang_find) != 0) | |
1535 continue; | |
1536 | |
1537 /* For CTRL-] in a help file prefer a match with the same | |
1538 * language. */ | |
1539 if ((flags & TAG_KEEP_LANG) | |
1540 && help_lang_find == NULL | |
1541 && curbuf->b_fname != NULL | |
835 | 1542 && (i = (int)STRLEN(curbuf->b_fname)) > 4 |
7 | 1543 && curbuf->b_fname[i - 1] == 'x' |
1544 && curbuf->b_fname[i - 4] == '.' | |
1545 && STRNICMP(curbuf->b_fname + i - 3, help_lang, 2) == 0) | |
1546 help_pri = 0; | |
1547 else | |
1548 { | |
1549 help_pri = 1; | |
1550 for (s = p_hlg; *s != NUL; ++s) | |
1551 { | |
1552 if (STRNICMP(s, help_lang, 2) == 0) | |
1553 break; | |
1554 ++help_pri; | |
1555 if ((s = vim_strchr(s, ',')) == NULL) | |
1556 break; | |
1557 } | |
1558 if (s == NULL || *s == NUL) | |
1559 { | |
1560 /* Language not in 'helplang': use last, prefer English, | |
1561 * unless found already. */ | |
1562 ++help_pri; | |
1563 if (STRICMP(help_lang, "en") != 0) | |
1564 ++help_pri; | |
1565 } | |
1566 } | |
1567 } | |
1568 #endif | |
1569 | |
1570 if ((fp = mch_fopen((char *)tag_fname, "r")) == NULL) | |
1571 continue; | |
1572 | |
1573 if (p_verbose >= 5) | |
292 | 1574 { |
1575 verbose_enter(); | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
1576 smsg(_("Searching tags file %s"), tag_fname); |
292 | 1577 verbose_leave(); |
1578 } | |
7 | 1579 } |
1580 did_open = TRUE; /* remember that we found at least one file */ | |
1581 | |
1582 state = TS_START; /* we're at the start of the file */ | |
1583 #ifdef FEAT_EMACS_TAGS | |
1584 is_etag = 0; /* default is: not emacs style */ | |
1585 #endif | |
1586 | |
1587 /* | |
1588 * Read and parse the lines in the file one by one | |
1589 */ | |
1590 for (;;) | |
1591 { | |
10134
95e9be4bc490
commit https://github.com/vim/vim/commit/7947312871e7d01cdba058199904c212ec32f1c0
Christian Brabandt <cb@256bit.org>
parents:
10132
diff
changeset
|
1592 #ifdef FEAT_TAG_BINS |
10128
98ddc760e8d5
commit https://github.com/vim/vim/commit/72b4b870fcc445c14faf282e0595b5f9406b101d
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1593 /* check for CTRL-C typed, more often when jumping around */ |
98ddc760e8d5
commit https://github.com/vim/vim/commit/72b4b870fcc445c14faf282e0595b5f9406b101d
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1594 if (state == TS_BINARY || state == TS_SKIP_BACK) |
98ddc760e8d5
commit https://github.com/vim/vim/commit/72b4b870fcc445c14faf282e0595b5f9406b101d
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1595 line_breakcheck(); |
98ddc760e8d5
commit https://github.com/vim/vim/commit/72b4b870fcc445c14faf282e0595b5f9406b101d
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1596 else |
10134
95e9be4bc490
commit https://github.com/vim/vim/commit/7947312871e7d01cdba058199904c212ec32f1c0
Christian Brabandt <cb@256bit.org>
parents:
10132
diff
changeset
|
1597 #endif |
10128
98ddc760e8d5
commit https://github.com/vim/vim/commit/72b4b870fcc445c14faf282e0595b5f9406b101d
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1598 fast_breakcheck(); |
7 | 1599 #ifdef FEAT_INS_EXPAND |
1600 if ((flags & TAG_INS_COMP)) /* Double brackets for gcc */ | |
10277
154d5a2e7395
commit https://github.com/vim/vim/commit/472e85970ee3a80abd824bef510df12e9cfe9e96
Christian Brabandt <cb@256bit.org>
parents:
10134
diff
changeset
|
1601 ins_compl_check_keys(30, FALSE); |
449 | 1602 if (got_int || compl_interrupted) |
7 | 1603 #else |
1604 if (got_int) | |
1605 #endif | |
1606 { | |
1607 stop_searching = TRUE; | |
1608 break; | |
1609 } | |
1610 /* When mincount is TAG_MANY, stop when enough matches have been | |
1611 * found (for completion). */ | |
1612 if (mincount == TAG_MANY && match_count >= TAG_MANY) | |
1613 { | |
1614 stop_searching = TRUE; | |
1615 retval = OK; | |
1616 break; | |
1617 } | |
1618 if (get_it_again) | |
1619 goto line_read_in; | |
1620 #ifdef FEAT_TAG_BINS | |
1621 /* | |
1622 * For binary search: compute the next offset to use. | |
1623 */ | |
1624 if (state == TS_BINARY) | |
1625 { | |
1626 offset = search_info.low_offset + ((search_info.high_offset | |
1627 - search_info.low_offset) / 2); | |
1628 if (offset == search_info.curr_offset) | |
1629 break; /* End the binary search without a match. */ | |
1630 else | |
1631 search_info.curr_offset = offset; | |
1632 } | |
1633 | |
1634 /* | |
1635 * Skipping back (after a match during binary search). | |
1636 */ | |
1637 else if (state == TS_SKIP_BACK) | |
1638 { | |
1639 search_info.curr_offset -= LSIZE * 2; | |
1640 if (search_info.curr_offset < 0) | |
1641 { | |
1642 search_info.curr_offset = 0; | |
1643 rewind(fp); | |
1644 state = TS_STEP_FORWARD; | |
1645 } | |
1646 } | |
1647 | |
1648 /* | |
1649 * When jumping around in the file, first read a line to find the | |
1650 * start of the next line. | |
1651 */ | |
1652 if (state == TS_BINARY || state == TS_SKIP_BACK) | |
1653 { | |
1654 /* Adjust the search file offset to the correct position */ | |
1655 search_info.curr_offset_used = search_info.curr_offset; | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1656 vim_fseek(fp, search_info.curr_offset, SEEK_SET); |
7 | 1657 eof = tag_fgets(lbuf, LSIZE, fp); |
1658 if (!eof && search_info.curr_offset != 0) | |
1659 { | |
1146 | 1660 /* The explicit cast is to work around a bug in gcc 3.4.2 |
1661 * (repeated below). */ | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1662 search_info.curr_offset = vim_ftell(fp); |
7 | 1663 if (search_info.curr_offset == search_info.high_offset) |
1664 { | |
1665 /* oops, gone a bit too far; try from low offset */ | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1666 vim_fseek(fp, search_info.low_offset, SEEK_SET); |
7 | 1667 search_info.curr_offset = search_info.low_offset; |
1668 } | |
1669 eof = tag_fgets(lbuf, LSIZE, fp); | |
1670 } | |
1671 /* skip empty and blank lines */ | |
1672 while (!eof && vim_isblankline(lbuf)) | |
1673 { | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1674 search_info.curr_offset = vim_ftell(fp); |
7 | 1675 eof = tag_fgets(lbuf, LSIZE, fp); |
1676 } | |
1677 if (eof) | |
1678 { | |
1679 /* Hit end of file. Skip backwards. */ | |
1680 state = TS_SKIP_BACK; | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1681 search_info.match_offset = vim_ftell(fp); |
7 | 1682 search_info.curr_offset = search_info.curr_offset_used; |
1683 continue; | |
1684 } | |
1685 } | |
1686 | |
1687 /* | |
1688 * Not jumping around in the file: Read the next line. | |
1689 */ | |
1690 else | |
1691 #endif | |
1692 { | |
1693 /* skip empty and blank lines */ | |
1694 do | |
1695 { | |
1696 #ifdef FEAT_CSCOPE | |
1697 if (use_cscope) | |
1698 eof = cs_fgets(lbuf, LSIZE); | |
1699 else | |
1700 #endif | |
1701 eof = tag_fgets(lbuf, LSIZE, fp); | |
1702 } while (!eof && vim_isblankline(lbuf)); | |
1703 | |
1704 if (eof) | |
1705 { | |
1706 #ifdef FEAT_EMACS_TAGS | |
1707 if (incstack_idx) /* this was an included file */ | |
1708 { | |
1709 --incstack_idx; | |
1710 fclose(fp); /* end of this file ... */ | |
1711 fp = incstack[incstack_idx].fp; | |
1712 STRCPY(tag_fname, incstack[incstack_idx].etag_fname); | |
1713 vim_free(incstack[incstack_idx].etag_fname); | |
1714 is_etag = 1; /* (only etags can include) */ | |
1715 continue; /* ... continue with parent file */ | |
1716 } | |
1717 else | |
1718 #endif | |
1719 break; /* end of file */ | |
1720 } | |
1721 } | |
1722 line_read_in: | |
1723 | |
3131 | 1724 if (vimconv.vc_type != CONV_NONE) |
1725 { | |
1726 char_u *conv_line; | |
1727 int len; | |
1728 | |
1729 /* Convert every line. Converting the pattern from 'enc' to | |
1730 * the tags file encoding doesn't work, because characters are | |
1731 * not recognized. */ | |
1732 conv_line = string_convert(&vimconv, lbuf, NULL); | |
1733 if (conv_line != NULL) | |
1734 { | |
1735 /* Copy or swap lbuf and conv_line. */ | |
1736 len = (int)STRLEN(conv_line) + 1; | |
1737 if (len > lbuf_size) | |
1738 { | |
1739 vim_free(lbuf); | |
1740 lbuf = conv_line; | |
1741 lbuf_size = len; | |
1742 } | |
1743 else | |
1744 { | |
1745 STRCPY(lbuf, conv_line); | |
1746 vim_free(conv_line); | |
1747 } | |
1748 } | |
1749 } | |
1750 | |
1751 | |
7 | 1752 #ifdef FEAT_EMACS_TAGS |
1753 /* | |
1754 * Emacs tags line with CTRL-L: New file name on next line. | |
1755 * The file name is followed by a ','. | |
10650
5ca7e3ec1263
patch 8.0.0215: NULL pointer use if cscope line looks like emacs tag
Christian Brabandt <cb@256bit.org>
parents:
10611
diff
changeset
|
1756 * Remember etag file name in ebuf. |
7 | 1757 */ |
10654
f0df81ef971a
patch 8.0.0217: build fails without cscope feature
Christian Brabandt <cb@256bit.org>
parents:
10650
diff
changeset
|
1758 if (*lbuf == Ctrl_L |
f0df81ef971a
patch 8.0.0217: build fails without cscope feature
Christian Brabandt <cb@256bit.org>
parents:
10650
diff
changeset
|
1759 # ifdef FEAT_CSCOPE |
f0df81ef971a
patch 8.0.0217: build fails without cscope feature
Christian Brabandt <cb@256bit.org>
parents:
10650
diff
changeset
|
1760 && !use_cscope |
f0df81ef971a
patch 8.0.0217: build fails without cscope feature
Christian Brabandt <cb@256bit.org>
parents:
10650
diff
changeset
|
1761 # endif |
f0df81ef971a
patch 8.0.0217: build fails without cscope feature
Christian Brabandt <cb@256bit.org>
parents:
10650
diff
changeset
|
1762 ) |
7 | 1763 { |
1764 is_etag = 1; /* in case at the start */ | |
1765 state = TS_LINEAR; | |
1766 if (!tag_fgets(ebuf, LSIZE, fp)) | |
1767 { | |
1768 for (p = ebuf; *p && *p != ','; p++) | |
1769 ; | |
1770 *p = NUL; | |
1771 | |
1772 /* | |
1773 * atoi(p+1) is the number of bytes before the next ^L | |
1774 * unless it is an include statement. | |
1775 */ | |
1776 if (STRNCMP(p + 1, "include", 7) == 0 | |
1777 && incstack_idx < INCSTACK_SIZE) | |
1778 { | |
1779 /* Save current "fp" and "tag_fname" in the stack. */ | |
1780 if ((incstack[incstack_idx].etag_fname = | |
1781 vim_strsave(tag_fname)) != NULL) | |
1782 { | |
1783 char_u *fullpath_ebuf; | |
1784 | |
1785 incstack[incstack_idx].fp = fp; | |
1786 fp = NULL; | |
1787 | |
1788 /* Figure out "tag_fname" and "fp" to use for | |
1789 * included file. */ | |
1790 fullpath_ebuf = expand_tag_fname(ebuf, | |
1791 tag_fname, FALSE); | |
1792 if (fullpath_ebuf != NULL) | |
1793 { | |
1794 fp = mch_fopen((char *)fullpath_ebuf, "r"); | |
1795 if (fp != NULL) | |
1796 { | |
1797 if (STRLEN(fullpath_ebuf) > LSIZE) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
1798 semsg(_("E430: Tag file path truncated for %s\n"), ebuf); |
418 | 1799 vim_strncpy(tag_fname, fullpath_ebuf, |
1800 MAXPATHL); | |
7 | 1801 ++incstack_idx; |
1802 is_etag = 0; /* we can include anything */ | |
1803 } | |
1804 vim_free(fullpath_ebuf); | |
1805 } | |
1806 if (fp == NULL) | |
1807 { | |
1808 /* Can't open the included file, skip it and | |
1809 * restore old value of "fp". */ | |
1810 fp = incstack[incstack_idx].fp; | |
1811 vim_free(incstack[incstack_idx].etag_fname); | |
1812 } | |
1813 } | |
1814 } | |
1815 } | |
1816 continue; | |
1817 } | |
1818 #endif | |
1819 | |
1820 /* | |
1821 * When still at the start of the file, check for Emacs tags file | |
1822 * format, and for "not sorted" flag. | |
1823 */ | |
1824 if (state == TS_START) | |
1825 { | |
5328 | 1826 /* The header ends when the line sorts below "!_TAG_". When |
1827 * case is folded lower case letters sort before "_". */ | |
4914
1707ddb6f5ae
updated for version 7.3.1202
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1828 if (STRNCMP(lbuf, "!_TAG_", 6) <= 0 |
1707ddb6f5ae
updated for version 7.3.1202
Bram Moolenaar <bram@vim.org>
parents:
4805
diff
changeset
|
1829 || (lbuf[0] == '!' && ASCII_ISLOWER(lbuf[1]))) |
3131 | 1830 { |
5328 | 1831 if (STRNCMP(lbuf, "!_TAG_", 6) != 0) |
1832 /* Non-header item before the header, e.g. "!" itself. | |
1833 */ | |
1834 goto parse_line; | |
1835 | |
3131 | 1836 /* |
1837 * Read header line. | |
1838 */ | |
1839 #ifdef FEAT_TAG_BINS | |
1840 if (STRNCMP(lbuf, "!_TAG_FILE_SORTED\t", 18) == 0) | |
1841 tag_file_sorted = lbuf[18]; | |
1842 #endif | |
1843 if (STRNCMP(lbuf, "!_TAG_FILE_ENCODING\t", 20) == 0) | |
1844 { | |
1845 /* Prepare to convert every line from the specified | |
1846 * encoding to 'encoding'. */ | |
1847 for (p = lbuf + 20; *p > ' ' && *p < 127; ++p) | |
1848 ; | |
1849 *p = NUL; | |
1850 convert_setup(&vimconv, lbuf + 20, p_enc); | |
1851 } | |
1852 | |
1853 /* Read the next line. Unrecognized flags are ignored. */ | |
1854 continue; | |
1855 } | |
1856 | |
1857 /* Headers ends. */ | |
1858 | |
7 | 1859 #ifdef FEAT_TAG_BINS |
1860 /* | |
1861 * When there is no tag head, or ignoring case, need to do a | |
1862 * linear search. | |
1863 * When no "!_TAG_" is found, default to binary search. If | |
1864 * the tag file isn't sorted, the second loop will find it. | |
1865 * When "!_TAG_FILE_SORTED" found: start binary search if | |
1866 * flag set. | |
1867 * For cscope, it's always linear. | |
1868 */ | |
1869 # ifdef FEAT_CSCOPE | |
1870 if (linear || use_cscope) | |
1871 # else | |
1872 if (linear) | |
1873 # endif | |
1874 state = TS_LINEAR; | |
3131 | 1875 else if (tag_file_sorted == NUL) |
7 | 1876 state = TS_BINARY; |
3131 | 1877 else if (tag_file_sorted == '1') |
7 | 1878 state = TS_BINARY; |
3131 | 1879 else if (tag_file_sorted == '2') |
1880 { | |
1881 state = TS_BINARY; | |
1882 sortic = TRUE; | |
1883 orgpat.regmatch.rm_ic = (p_ic || !noic); | |
7 | 1884 } |
3131 | 1885 else |
1886 state = TS_LINEAR; | |
1887 | |
1888 if (state == TS_BINARY && orgpat.regmatch.rm_ic && !sortic) | |
7 | 1889 { |
3206 | 1890 /* Binary search won't work for ignoring case, use linear |
7 | 1891 * search. */ |
1892 linear = TRUE; | |
1893 state = TS_LINEAR; | |
1894 } | |
1895 #else | |
1896 state = TS_LINEAR; | |
1897 #endif | |
1898 | |
1899 #ifdef FEAT_TAG_BINS | |
1900 /* | |
1901 * When starting a binary search, get the size of the file and | |
1902 * compute the first offset. | |
1903 */ | |
1904 if (state == TS_BINARY) | |
1905 { | |
1906 /* Get the tag file size (don't use mch_fstat(), it's not | |
1907 * portable). */ | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1908 if ((filesize = vim_lseek(fileno(fp), |
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1909 (off_T)0L, SEEK_END)) <= 0) |
7 | 1910 state = TS_LINEAR; |
1911 else | |
1912 { | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1913 vim_lseek(fileno(fp), (off_T)0L, SEEK_SET); |
7 | 1914 |
1915 /* Calculate the first read offset in the file. Start | |
1916 * the search in the middle of the file. */ | |
1917 search_info.low_offset = 0; | |
1918 search_info.low_char = 0; | |
1919 search_info.high_offset = filesize; | |
1920 search_info.curr_offset = 0; | |
1921 search_info.high_char = 0xff; | |
1922 } | |
1923 continue; | |
1924 } | |
1925 #endif | |
1926 } | |
1927 | |
5328 | 1928 parse_line: |
7 | 1929 /* |
1930 * Figure out where the different strings are in this line. | |
1931 * For "normal" tags: Do a quick check if the tag matches. | |
1932 * This speeds up tag searching a lot! | |
1933 */ | |
3131 | 1934 if (orgpat.headlen |
7 | 1935 #ifdef FEAT_EMACS_TAGS |
1936 && !is_etag | |
1937 #endif | |
1938 ) | |
1939 { | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1940 vim_memset(&tagp, 0, sizeof(tagp)); |
7 | 1941 tagp.tagname = lbuf; |
1942 #ifdef FEAT_TAG_ANYWHITE | |
1943 tagp.tagname_end = skiptowhite(lbuf); | |
3192 | 1944 if (*tagp.tagname_end == NUL) |
7 | 1945 #else |
1946 tagp.tagname_end = vim_strchr(lbuf, TAB); | |
3192 | 1947 if (tagp.tagname_end == NULL) |
7 | 1948 #endif |
1949 { | |
3192 | 1950 if (vim_strchr(lbuf, NL) == NULL) |
1951 { | |
1952 /* Truncated line, ignore it. Has been reported for | |
1953 * Mozilla JS with extremely long names. */ | |
1954 if (p_verbose >= 5) | |
1955 { | |
1956 verbose_enter(); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1957 msg(_("Ignoring long line in tags file")); |
3192 | 1958 verbose_leave(); |
1959 } | |
3206 | 1960 #ifdef FEAT_TAG_BINS |
1961 if (state != TS_LINEAR) | |
1962 { | |
1963 /* Avoid getting stuck. */ | |
1964 linear = TRUE; | |
1965 state = TS_LINEAR; | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
1966 vim_fseek(fp, search_info.low_offset, SEEK_SET); |
3206 | 1967 } |
1968 #endif | |
3192 | 1969 continue; |
1970 } | |
1971 | |
1972 /* Corrupted tag line. */ | |
7 | 1973 line_error = TRUE; |
1974 break; | |
1975 } | |
1976 | |
1977 #ifdef FEAT_TAG_OLDSTATIC | |
1978 /* | |
1979 * Check for old style static tag: "file:tag file .." | |
1980 */ | |
1981 tagp.fname = NULL; | |
1982 for (p = lbuf; p < tagp.tagname_end; ++p) | |
1983 { | |
1984 if (*p == ':') | |
1985 { | |
1986 if (tagp.fname == NULL) | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1987 # ifdef FEAT_TAG_ANYWHITE |
7 | 1988 tagp.fname = skipwhite(tagp.tagname_end); |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1989 # else |
7 | 1990 tagp.fname = tagp.tagname_end + 1; |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1991 # endif |
7 | 1992 if ( fnamencmp(lbuf, tagp.fname, p - lbuf) == 0 |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1993 # ifdef FEAT_TAG_ANYWHITE |
11129
f4ea50924c6d
patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11127
diff
changeset
|
1994 && VIM_ISWHITE(tagp.fname[p - lbuf]) |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1995 # else |
7 | 1996 && tagp.fname[p - lbuf] == TAB |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1997 # endif |
7 | 1998 ) |
1999 { | |
2000 /* found one */ | |
2001 tagp.tagname = p + 1; | |
2002 break; | |
2003 } | |
2004 } | |
2005 } | |
2006 #endif | |
2007 | |
2008 /* | |
2009 * Skip this line if the length of the tag is different and | |
2010 * there is no regexp, or the tag is too short. | |
2011 */ | |
2012 cmplen = (int)(tagp.tagname_end - tagp.tagname); | |
2013 if (p_tl != 0 && cmplen > p_tl) /* adjust for 'taglength' */ | |
2014 cmplen = p_tl; | |
3131 | 2015 if (has_re && orgpat.headlen < cmplen) |
2016 cmplen = orgpat.headlen; | |
2017 else if (state == TS_LINEAR && orgpat.headlen != cmplen) | |
7 | 2018 continue; |
2019 | |
2020 #ifdef FEAT_TAG_BINS | |
2021 if (state == TS_BINARY) | |
2022 { | |
2023 /* | |
2024 * Simplistic check for unsorted tags file. | |
2025 */ | |
2026 i = (int)tagp.tagname[0]; | |
2027 if (sortic) | |
2028 i = (int)TOUPPER_ASC(tagp.tagname[0]); | |
2029 if (i < search_info.low_char || i > search_info.high_char) | |
2030 sort_error = TRUE; | |
2031 | |
2032 /* | |
2033 * Compare the current tag with the searched tag. | |
2034 */ | |
2035 if (sortic) | |
3131 | 2036 tagcmp = tag_strnicmp(tagp.tagname, orgpat.head, |
7 | 2037 (size_t)cmplen); |
2038 else | |
3131 | 2039 tagcmp = STRNCMP(tagp.tagname, orgpat.head, cmplen); |
7 | 2040 |
2041 /* | |
2042 * A match with a shorter tag means to search forward. | |
2043 * A match with a longer tag means to search backward. | |
2044 */ | |
2045 if (tagcmp == 0) | |
2046 { | |
3131 | 2047 if (cmplen < orgpat.headlen) |
7 | 2048 tagcmp = -1; |
3131 | 2049 else if (cmplen > orgpat.headlen) |
7 | 2050 tagcmp = 1; |
2051 } | |
2052 | |
2053 if (tagcmp == 0) | |
2054 { | |
2055 /* We've located the tag, now skip back and search | |
2056 * forward until the first matching tag is found. | |
2057 */ | |
2058 state = TS_SKIP_BACK; | |
2059 search_info.match_offset = search_info.curr_offset; | |
2060 continue; | |
2061 } | |
2062 if (tagcmp < 0) | |
2063 { | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
2064 search_info.curr_offset = vim_ftell(fp); |
7 | 2065 if (search_info.curr_offset < search_info.high_offset) |
2066 { | |
2067 search_info.low_offset = search_info.curr_offset; | |
2068 if (sortic) | |
2069 search_info.low_char = | |
2070 TOUPPER_ASC(tagp.tagname[0]); | |
2071 else | |
2072 search_info.low_char = tagp.tagname[0]; | |
2073 continue; | |
2074 } | |
2075 } | |
2076 if (tagcmp > 0 | |
2077 && search_info.curr_offset != search_info.high_offset) | |
2078 { | |
2079 search_info.high_offset = search_info.curr_offset; | |
2080 if (sortic) | |
2081 search_info.high_char = | |
2082 TOUPPER_ASC(tagp.tagname[0]); | |
2083 else | |
2084 search_info.high_char = tagp.tagname[0]; | |
2085 continue; | |
2086 } | |
2087 | |
2088 /* No match yet and are at the end of the binary search. */ | |
2089 break; | |
2090 } | |
2091 else if (state == TS_SKIP_BACK) | |
2092 { | |
3131 | 2093 if (MB_STRNICMP(tagp.tagname, orgpat.head, cmplen) != 0) |
7 | 2094 state = TS_STEP_FORWARD; |
2095 else | |
2096 /* Have to skip back more. Restore the curr_offset | |
2097 * used, otherwise we get stuck at a long line. */ | |
2098 search_info.curr_offset = search_info.curr_offset_used; | |
2099 continue; | |
2100 } | |
2101 else if (state == TS_STEP_FORWARD) | |
2102 { | |
3131 | 2103 if (MB_STRNICMP(tagp.tagname, orgpat.head, cmplen) != 0) |
7 | 2104 { |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
2105 if ((off_T)vim_ftell(fp) > search_info.match_offset) |
7 | 2106 break; /* past last match */ |
2107 else | |
2108 continue; /* before first match */ | |
2109 } | |
2110 } | |
2111 else | |
2112 #endif | |
2113 /* skip this match if it can't match */ | |
3131 | 2114 if (MB_STRNICMP(tagp.tagname, orgpat.head, cmplen) != 0) |
7 | 2115 continue; |
2116 | |
2117 /* | |
2118 * Can be a matching tag, isolate the file name and command. | |
2119 */ | |
2120 #ifdef FEAT_TAG_OLDSTATIC | |
2121 if (tagp.fname == NULL) | |
2122 #endif | |
2123 #ifdef FEAT_TAG_ANYWHITE | |
2124 tagp.fname = skipwhite(tagp.tagname_end); | |
2125 #else | |
2126 tagp.fname = tagp.tagname_end + 1; | |
2127 #endif | |
2128 #ifdef FEAT_TAG_ANYWHITE | |
2129 tagp.fname_end = skiptowhite(tagp.fname); | |
2130 tagp.command = skipwhite(tagp.fname_end); | |
2131 if (*tagp.command == NUL) | |
2132 #else | |
2133 tagp.fname_end = vim_strchr(tagp.fname, TAB); | |
2134 tagp.command = tagp.fname_end + 1; | |
2135 if (tagp.fname_end == NULL) | |
2136 #endif | |
2137 i = FAIL; | |
2138 else | |
2139 i = OK; | |
2140 } | |
2141 else | |
2142 i = parse_tag_line(lbuf, | |
2143 #ifdef FEAT_EMACS_TAGS | |
2144 is_etag, | |
2145 #endif | |
2146 &tagp); | |
2147 if (i == FAIL) | |
2148 { | |
2149 line_error = TRUE; | |
2150 break; | |
2151 } | |
2152 | |
2153 #ifdef FEAT_EMACS_TAGS | |
2154 if (is_etag) | |
2155 tagp.fname = ebuf; | |
2156 #endif | |
2157 /* | |
2158 * First try matching with the pattern literally (also when it is | |
2159 * a regexp). | |
2160 */ | |
2161 cmplen = (int)(tagp.tagname_end - tagp.tagname); | |
2162 if (p_tl != 0 && cmplen > p_tl) /* adjust for 'taglength' */ | |
2163 cmplen = p_tl; | |
2164 /* if tag length does not match, don't try comparing */ | |
3131 | 2165 if (orgpat.len != cmplen) |
7 | 2166 match = FALSE; |
2167 else | |
2168 { | |
3131 | 2169 if (orgpat.regmatch.rm_ic) |
7 | 2170 { |
3131 | 2171 match = (MB_STRNICMP(tagp.tagname, orgpat.pat, cmplen) == 0); |
7 | 2172 if (match) |
3131 | 2173 match_no_ic = (STRNCMP(tagp.tagname, orgpat.pat, |
7 | 2174 cmplen) == 0); |
2175 } | |
2176 else | |
3131 | 2177 match = (STRNCMP(tagp.tagname, orgpat.pat, cmplen) == 0); |
7 | 2178 } |
2179 | |
2180 /* | |
2181 * Has a regexp: Also find tags matching regexp. | |
2182 */ | |
2183 match_re = FALSE; | |
3131 | 2184 if (!match && orgpat.regmatch.regprog != NULL) |
7 | 2185 { |
2186 int cc; | |
2187 | |
2188 cc = *tagp.tagname_end; | |
2189 *tagp.tagname_end = NUL; | |
3131 | 2190 match = vim_regexec(&orgpat.regmatch, tagp.tagname, (colnr_T)0); |
7 | 2191 if (match) |
2192 { | |
3131 | 2193 matchoff = (int)(orgpat.regmatch.startp[0] - tagp.tagname); |
2194 if (orgpat.regmatch.rm_ic) | |
7 | 2195 { |
3131 | 2196 orgpat.regmatch.rm_ic = FALSE; |
2197 match_no_ic = vim_regexec(&orgpat.regmatch, tagp.tagname, | |
7 | 2198 (colnr_T)0); |
3131 | 2199 orgpat.regmatch.rm_ic = TRUE; |
7 | 2200 } |
2201 } | |
2202 *tagp.tagname_end = cc; | |
2203 match_re = TRUE; | |
2204 } | |
2205 | |
2206 /* | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2207 * If a match is found, add it to ht_match[] and ga_match[]. |
7 | 2208 */ |
2209 if (match) | |
2210 { | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2211 int len = 0; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2212 |
7 | 2213 #ifdef FEAT_CSCOPE |
2214 if (use_cscope) | |
2215 { | |
2216 /* Don't change the ordering, always use the same table. */ | |
2217 mtt = MT_GL_OTH; | |
2218 } | |
2219 else | |
2220 #endif | |
2221 { | |
2222 /* Decide in which array to store this match. */ | |
2223 is_current = test_for_current( | |
2224 #ifdef FEAT_EMACS_TAGS | |
2225 is_etag, | |
2226 #endif | |
2227 tagp.fname, tagp.fname_end, tag_fname, | |
2228 buf_ffname); | |
2229 #ifdef FEAT_EMACS_TAGS | |
2230 is_static = FALSE; | |
2231 if (!is_etag) /* emacs tags are never static */ | |
2232 #endif | |
2233 { | |
2234 #ifdef FEAT_TAG_OLDSTATIC | |
2235 if (tagp.tagname != lbuf) | |
2236 is_static = TRUE; /* detected static tag before */ | |
2237 else | |
2238 #endif | |
2239 is_static = test_for_static(&tagp); | |
2240 } | |
2241 | |
2242 /* decide in which of the sixteen tables to store this | |
2243 * match */ | |
2244 if (is_static) | |
2245 { | |
2246 if (is_current) | |
2247 mtt = MT_ST_CUR; | |
2248 else | |
2249 mtt = MT_ST_OTH; | |
2250 } | |
2251 else | |
2252 { | |
2253 if (is_current) | |
2254 mtt = MT_GL_CUR; | |
2255 else | |
2256 mtt = MT_GL_OTH; | |
2257 } | |
3131 | 2258 if (orgpat.regmatch.rm_ic && !match_no_ic) |
7 | 2259 mtt += MT_IC_OFF; |
2260 if (match_re) | |
2261 mtt += MT_RE_OFF; | |
2262 } | |
2263 | |
2264 /* | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2265 * Add the found match in ht_match[mtt] and ga_match[mtt]. |
7 | 2266 * Store the info we need later, which depends on the kind of |
2267 * tags we are dealing with. | |
2268 */ | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2269 if (help_only) |
7 | 2270 { |
2271 #ifdef FEAT_MULTI_LANG | |
2272 # define ML_EXTRA 3 | |
2273 #else | |
2274 # define ML_EXTRA 0 | |
2275 #endif | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2276 /* |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2277 * Append the help-heuristic number after the tagname, for |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2278 * sorting it later. The heuristic is ignored for |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2279 * detecting duplicates. |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2280 * The format is {tagname}@{lang}NUL{heuristic}NUL |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2281 */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2282 *tagp.tagname_end = NUL; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2283 len = (int)(tagp.tagname_end - tagp.tagname); |
10666
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
2284 mfp = (char_u *)alloc((int)sizeof(char_u) |
ed6f03535745
patch 8.0.0223: Coverity warns for an uninitialized variable
Christian Brabandt <cb@256bit.org>
parents:
10654
diff
changeset
|
2285 + len + 10 + ML_EXTRA + 1); |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2286 if (mfp != NULL) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2287 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2288 int heuristic; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2289 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2290 p = mfp; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2291 STRCPY(p, tagp.tagname); |
7 | 2292 #ifdef FEAT_MULTI_LANG |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2293 p[len] = '@'; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2294 STRCPY(p + len + 1, help_lang); |
7 | 2295 #endif |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2296 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2297 heuristic = help_heuristic(tagp.tagname, |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2298 match_re ? matchoff : 0, !match_no_ic); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2299 #ifdef FEAT_MULTI_LANG |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2300 heuristic += help_pri; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2301 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2302 sprintf((char *)p + len + 1 + ML_EXTRA, "%06d", |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2303 heuristic); |
7 | 2304 } |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2305 *tagp.tagname_end = TAB; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2306 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2307 else if (name_only) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2308 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2309 if (get_it_again) |
7 | 2310 { |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2311 char_u *temp_end = tagp.command; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2312 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2313 if (*temp_end == '/') |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2314 while (*temp_end && *temp_end != '\r' |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2315 && *temp_end != '\n' |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2316 && *temp_end != '$') |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2317 temp_end++; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2318 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2319 if (tagp.command + 2 < temp_end) |
7 | 2320 { |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2321 len = (int)(temp_end - tagp.command - 2); |
10611
6bff81438f27
patch 8.0.0195: fail to jump to static tag in current file
Christian Brabandt <cb@256bit.org>
parents:
10601
diff
changeset
|
2322 mfp = (char_u *)alloc(len + 2); |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2323 if (mfp != NULL) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2324 vim_strncpy(mfp, tagp.command + 2, len); |
7 | 2325 } |
2326 else | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2327 mfp = NULL; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2328 get_it_again = FALSE; |
7 | 2329 } |
2330 else | |
2331 { | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2332 len = (int)(tagp.tagname_end - tagp.tagname); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2333 mfp = (char_u *)alloc((int)sizeof(char_u) + len + 1); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2334 if (mfp != NULL) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2335 vim_strncpy(mfp, tagp.tagname, len); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2336 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2337 /* if wanted, re-read line to get long form too */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2338 if (State & INSERT) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2339 get_it_again = p_sft; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2340 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2341 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2342 else |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2343 { |
11329
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2344 #define TAG_SEP 0x02 |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2345 size_t tag_fname_len = STRLEN(tag_fname); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2346 #ifdef FEAT_EMACS_TAGS |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2347 size_t ebuf_len = 0; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2348 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2349 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2350 /* Save the tag in a buffer. |
11329
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2351 * Use 0x02 to separate fields (Can't use NUL because the |
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2352 * hash key is terminated by NUL, or Ctrl_A because that is |
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2353 * part of some Emacs tag files -- see parse_tag_line). |
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2354 * Emacs tag: <mtt><tag_fname><0x02><ebuf><0x02><lbuf><NUL> |
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2355 * other tag: <mtt><tag_fname><0x02><0x02><lbuf><NUL> |
c7ba89661c39
patch 8.0.0550: cannot parse some etags format tags file
Christian Brabandt <cb@256bit.org>
parents:
11238
diff
changeset
|
2356 * without Emacs tags: <mtt><tag_fname><0x02><lbuf><NUL> |
10611
6bff81438f27
patch 8.0.0195: fail to jump to static tag in current file
Christian Brabandt <cb@256bit.org>
parents:
10601
diff
changeset
|
2357 * Here <mtt> is the "mtt" value plus 1 to avoid NUL. |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2358 */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2359 len = (int)tag_fname_len + (int)STRLEN(lbuf) + 3; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2360 #ifdef FEAT_EMACS_TAGS |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2361 if (is_etag) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2362 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2363 ebuf_len = STRLEN(ebuf); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2364 len += (int)ebuf_len + 1; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2365 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2366 else |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2367 ++len; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2368 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2369 mfp = (char_u *)alloc((int)sizeof(char_u) + len + 1); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2370 if (mfp != NULL) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2371 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2372 p = mfp; |
10611
6bff81438f27
patch 8.0.0195: fail to jump to static tag in current file
Christian Brabandt <cb@256bit.org>
parents:
10601
diff
changeset
|
2373 p[0] = mtt + 1; |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2374 STRCPY(p + 1, tag_fname); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2375 #ifdef BACKSLASH_IN_FILENAME |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2376 /* Ignore differences in slashes, avoid adding |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2377 * both path/file and path\file. */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2378 slash_adjust(p + 1); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2379 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2380 p[tag_fname_len + 1] = TAG_SEP; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2381 s = p + 1 + tag_fname_len + 1; |
7 | 2382 #ifdef FEAT_EMACS_TAGS |
2383 if (is_etag) | |
2384 { | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2385 STRCPY(s, ebuf); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2386 s[ebuf_len] = TAG_SEP; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2387 s += ebuf_len + 1; |
7 | 2388 } |
2389 else | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2390 *s++ = TAG_SEP; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2391 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2392 STRCPY(s, lbuf); |
7 | 2393 } |
2394 } | |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2395 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2396 if (mfp != NULL) |
7 | 2397 { |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2398 hashitem_T *hi; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2399 |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2400 /* |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2401 * Don't add identical matches. |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2402 * Add all cscope tags, because they are all listed. |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2403 * "mfp" is used as a hash key, there is a NUL byte to end |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2404 * the part matters for comparing, more bytes may follow |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2405 * after it. E.g. help tags store the priority after the |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2406 * NUL. |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2407 */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2408 #ifdef FEAT_CSCOPE |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2409 if (use_cscope) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2410 hash++; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2411 else |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2412 #endif |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2413 hash = hash_hash(mfp); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2414 hi = hash_lookup(&ht_match[mtt], mfp, hash); |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2415 if (HASHITEM_EMPTY(hi)) |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2416 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2417 if (hash_add_item(&ht_match[mtt], hi, mfp, hash) |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2418 == FAIL |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2419 || ga_grow(&ga_match[mtt], 1) != OK) |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2420 { |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2421 /* Out of memory! Just forget about the rest. */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2422 retval = OK; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2423 stop_searching = TRUE; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2424 break; |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2425 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2426 else |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2427 { |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2428 ((char_u **)(ga_match[mtt].ga_data)) |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2429 [ga_match[mtt].ga_len++] = mfp; |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2430 ++match_count; |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2431 } |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2432 } |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2433 else |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2434 /* duplicate tag, drop it */ |
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2435 vim_free(mfp); |
7 | 2436 } |
2437 } | |
2438 #ifdef FEAT_CSCOPE | |
2439 if (use_cscope && eof) | |
2440 break; | |
2441 #endif | |
2442 } /* forever */ | |
2443 | |
2444 if (line_error) | |
2445 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2446 semsg(_("E431: Format error in tags file \"%s\""), tag_fname); |
7 | 2447 #ifdef FEAT_CSCOPE |
2448 if (!use_cscope) | |
2449 #endif | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2450 semsg(_("Before byte %ld"), (long)vim_ftell(fp)); |
7 | 2451 stop_searching = TRUE; |
2452 line_error = FALSE; | |
2453 } | |
2454 | |
2455 #ifdef FEAT_CSCOPE | |
2456 if (!use_cscope) | |
2457 #endif | |
2458 fclose(fp); | |
2459 #ifdef FEAT_EMACS_TAGS | |
2460 while (incstack_idx) | |
2461 { | |
2462 --incstack_idx; | |
2463 fclose(incstack[incstack_idx].fp); | |
2464 vim_free(incstack[incstack_idx].etag_fname); | |
2465 } | |
2466 #endif | |
2467 if (vimconv.vc_type != CONV_NONE) | |
2468 convert_setup(&vimconv, NULL, NULL); | |
2469 | |
2470 #ifdef FEAT_TAG_BINS | |
3131 | 2471 tag_file_sorted = NUL; |
7 | 2472 if (sort_error) |
2473 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2474 semsg(_("E432: Tags file not sorted: %s"), tag_fname); |
7 | 2475 sort_error = FALSE; |
2476 } | |
2477 #endif | |
2478 | |
2479 /* | |
2480 * Stop searching if sufficient tags have been found. | |
2481 */ | |
2482 if (match_count >= mincount) | |
2483 { | |
2484 retval = OK; | |
2485 stop_searching = TRUE; | |
2486 } | |
2487 | |
2488 #ifdef FEAT_CSCOPE | |
2489 if (stop_searching || use_cscope) | |
2490 #else | |
2491 if (stop_searching) | |
2492 #endif | |
2493 break; | |
2494 | |
2495 } /* end of for-each-file loop */ | |
2496 | |
692 | 2497 #ifdef FEAT_CSCOPE |
2498 if (!use_cscope) | |
2499 #endif | |
2500 tagname_free(&tn); | |
2501 | |
7 | 2502 #ifdef FEAT_TAG_BINS |
413 | 2503 /* stop searching when already did a linear search, or when TAG_NOIC |
2504 * used, and 'ignorecase' not set or already did case-ignore search */ | |
3131 | 2505 if (stop_searching || linear || (!p_ic && noic) || orgpat.regmatch.rm_ic) |
7 | 2506 break; |
2507 # ifdef FEAT_CSCOPE | |
2508 if (use_cscope) | |
2509 break; | |
2510 # endif | |
3131 | 2511 orgpat.regmatch.rm_ic = TRUE; /* try another time while ignoring case */ |
7 | 2512 } |
2513 #endif | |
2514 | |
2515 if (!stop_searching) | |
2516 { | |
2517 if (!did_open && verbose) /* never opened any tags file */ | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
2518 emsg(_("E433: No tags file")); |
7 | 2519 retval = OK; /* It's OK even when no tag found */ |
2520 } | |
2521 | |
2522 findtag_end: | |
2523 vim_free(lbuf); | |
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
3804
diff
changeset
|
2524 vim_regfree(orgpat.regmatch.regprog); |
7 | 2525 vim_free(tag_fname); |
2526 #ifdef FEAT_EMACS_TAGS | |
2527 vim_free(ebuf); | |
2528 #endif | |
2529 | |
2530 /* | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2531 * Move the matches from the ga_match[] arrays into one list of |
7 | 2532 * matches. When retval == FAIL, free the matches. |
2533 */ | |
2534 if (retval == FAIL) | |
2535 match_count = 0; | |
2536 | |
2537 if (match_count > 0) | |
2538 matches = (char_u **)lalloc((long_u)(match_count * sizeof(char_u *)), | |
2539 TRUE); | |
2540 else | |
2541 matches = NULL; | |
2542 match_count = 0; | |
2543 for (mtt = 0; mtt < MT_COUNT; ++mtt) | |
2544 { | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2545 for (i = 0; i < ga_match[mtt].ga_len; ++i) |
7 | 2546 { |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2547 mfp = ((char_u **)(ga_match[mtt].ga_data))[i]; |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2548 if (matches == NULL) |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2549 vim_free(mfp); |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2550 else |
7 | 2551 { |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2552 if (!name_only) |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2553 { |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2554 /* Change mtt back to zero-based. */ |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2555 *mfp = *mfp - 1; |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2556 |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2557 /* change the TAG_SEP back to NUL */ |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2558 for (p = mfp + 1; *p != NUL; ++p) |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2559 if (*p == TAG_SEP) |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2560 *p = NUL; |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2561 } |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2562 matches[match_count++] = (char_u *)mfp; |
7 | 2563 } |
2564 } | |
11008
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2565 |
0ecd07cd2e43
patch 8.0.0393: order of duplicate tags is not preserved
Christian Brabandt <cb@256bit.org>
parents:
10666
diff
changeset
|
2566 ga_clear(&ga_match[mtt]); |
10601
1b09db809d3f
patch 8.0.0190: finding duplicate tags uses a slow linear search
Christian Brabandt <cb@256bit.org>
parents:
10444
diff
changeset
|
2567 hash_clear(&ht_match[mtt]); |
7 | 2568 } |
2569 | |
2570 *matchesp = matches; | |
2571 *num_matches = match_count; | |
2572 | |
2573 curbuf->b_help = help_save; | |
2574 #ifdef FEAT_MULTI_LANG | |
2575 vim_free(saved_pat); | |
2576 #endif | |
2577 | |
7266
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
2578 p_ic = save_p_ic; |
6ba7182fb7bd
commit https://github.com/vim/vim/commit/0f6562e9036f889185dff49a75c7fc5ffb28b307
Christian Brabandt <cb@256bit.org>
parents:
6851
diff
changeset
|
2579 |
7 | 2580 return retval; |
2581 } | |
2582 | |
2583 static garray_T tag_fnames = GA_EMPTY; | |
2584 | |
2585 /* | |
2586 * Callback function for finding all "tags" and "tags-??" files in | |
2587 * 'runtimepath' doc directories. | |
2588 */ | |
2589 static void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2590 found_tagfile_cb(char_u *fname, void *cookie UNUSED) |
7 | 2591 { |
2592 if (ga_grow(&tag_fnames, 1) == OK) | |
14232
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2593 { |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2594 char_u *tag_fname = vim_strsave(fname); |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2595 |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2596 #ifdef BACKSLASH_IN_FILENAME |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2597 slash_adjust(tag_fname); |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2598 #endif |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2599 simplify_filename(tag_fname); |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2600 ((char_u **)(tag_fnames.ga_data))[tag_fnames.ga_len++] = tag_fname; |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2601 } |
7 | 2602 } |
2603 | |
359 | 2604 #if defined(EXITFREE) || defined(PROTO) |
2605 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2606 free_tag_stuff(void) |
359 | 2607 { |
692 | 2608 ga_clear_strings(&tag_fnames); |
359 | 2609 do_tag(NULL, DT_FREE, 0, 0, 0); |
1818 | 2610 tag_freematch(); |
2611 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
2612 # if defined(FEAT_QUICKFIX) |
1818 | 2613 if (ptag_entry.tagname) |
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13227
diff
changeset
|
2614 VIM_CLEAR(ptag_entry.tagname); |
1818 | 2615 # endif |
359 | 2616 } |
2617 #endif | |
2618 | |
7 | 2619 /* |
2620 * Get the next name of a tag file from the tag file list. | |
2621 * For help files, use "tags" file only. | |
2622 * | |
2623 * Return FAIL if no more tag file names, OK otherwise. | |
2624 */ | |
514 | 2625 int |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2626 get_tagfname( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2627 tagname_T *tnp, /* holds status info */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2628 int first, /* TRUE when first file name is wanted */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2629 char_u *buf) /* pointer to buffer of MAXPATHL chars */ |
7 | 2630 { |
2631 char_u *fname = NULL; | |
2632 char_u *r_ptr; | |
14232
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2633 int i; |
7 | 2634 |
692 | 2635 if (first) |
2636 vim_memset(tnp, 0, sizeof(tagname_T)); | |
2637 | |
514 | 2638 if (curbuf->b_help) |
7 | 2639 { |
514 | 2640 /* |
2641 * For help files it's done in a completely different way: | |
2642 * Find "doc/tags" and "doc/tags-??" in all directories in | |
2643 * 'runtimepath'. | |
2644 */ | |
2645 if (first) | |
7 | 2646 { |
2647 ga_clear_strings(&tag_fnames); | |
2648 ga_init2(&tag_fnames, (int)sizeof(char_u *), 10); | |
2649 do_in_runtimepath((char_u *) | |
2650 #ifdef FEAT_MULTI_LANG | |
36 | 2651 # ifdef VMS |
2652 /* Functions decc$to_vms() and decc$translate_vms() crash | |
2653 * on some VMS systems with wildcards "??". Seems ECO | |
2654 * patches do fix the problem in C RTL, but we can't use | |
2655 * an #ifdef for that. */ | |
2656 "doc/tags doc/tags-*" | |
2657 # else | |
7 | 2658 "doc/tags doc/tags-??" |
36 | 2659 # endif |
7 | 2660 #else |
2661 "doc/tags" | |
2662 #endif | |
8524
2f57bbe870ea
commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f
Christian Brabandt <cb@256bit.org>
parents:
7835
diff
changeset
|
2663 , DIP_ALL, found_tagfile_cb, NULL); |
7 | 2664 } |
602 | 2665 |
692 | 2666 if (tnp->tn_hf_idx >= tag_fnames.ga_len) |
7 | 2667 { |
2668 /* Not found in 'runtimepath', use 'helpfile', if it exists and | |
2669 * wasn't used yet, replacing "help.txt" with "tags". */ | |
692 | 2670 if (tnp->tn_hf_idx > tag_fnames.ga_len || *p_hf == NUL) |
7 | 2671 return FAIL; |
692 | 2672 ++tnp->tn_hf_idx; |
7 | 2673 STRCPY(buf, p_hf); |
2674 STRCPY(gettail(buf), "tags"); | |
14232
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2675 #ifdef BACKSLASH_IN_FILENAME |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2676 slash_adjust(buf); |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2677 #endif |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2678 simplify_filename(buf); |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2679 |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2680 for (i = 0; i < tag_fnames.ga_len; ++i) |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2681 if (STRCMP(buf, ((char_u **)(tag_fnames.ga_data))[i]) == 0) |
4afe2386aae8
patch 8.1.0133: tagfiles() can have duplicate entries
Christian Brabandt <cb@256bit.org>
parents:
13792
diff
changeset
|
2682 return FAIL; // avoid duplicate file names |
7 | 2683 } |
2684 else | |
692 | 2685 vim_strncpy(buf, ((char_u **)(tag_fnames.ga_data))[ |
2686 tnp->tn_hf_idx++], MAXPATHL - 1); | |
514 | 2687 return OK; |
2688 } | |
2689 | |
2690 if (first) | |
2691 { | |
692 | 2692 /* Init. We make a copy of 'tags', because autocommands may change |
2693 * the value without notifying us. */ | |
2694 tnp->tn_tags = vim_strsave((*curbuf->b_p_tags != NUL) | |
2695 ? curbuf->b_p_tags : p_tags); | |
2696 if (tnp->tn_tags == NULL) | |
2697 return FAIL; | |
2698 tnp->tn_np = tnp->tn_tags; | |
7 | 2699 } |
692 | 2700 |
2701 /* | |
2702 * Loop until we have found a file name that can be used. | |
2703 * There are two states: | |
2704 * tnp->tn_did_filefind_init == FALSE: setup for next part in 'tags'. | |
2705 * tnp->tn_did_filefind_init == TRUE: find next file in this part. | |
2706 */ | |
2707 for (;;) | |
7 | 2708 { |
692 | 2709 if (tnp->tn_did_filefind_init) |
7 | 2710 { |
692 | 2711 fname = vim_findfile(tnp->tn_search_ctx); |
2712 if (fname != NULL) | |
2713 break; | |
2714 | |
2715 tnp->tn_did_filefind_init = FALSE; | |
2716 } | |
2717 else | |
2718 { | |
2719 char_u *filename = NULL; | |
2720 | |
2721 /* Stop when used all parts of 'tags'. */ | |
2722 if (*tnp->tn_np == NUL) | |
7 | 2723 { |
692 | 2724 vim_findfile_cleanup(tnp->tn_search_ctx); |
2725 tnp->tn_search_ctx = NULL; | |
2726 return FAIL; | |
7 | 2727 } |
692 | 2728 |
2729 /* | |
2730 * Copy next file name into buf. | |
2731 */ | |
2732 buf[0] = NUL; | |
2733 (void)copy_option_part(&tnp->tn_np, buf, MAXPATHL - 1, " ,"); | |
7 | 2734 |
2735 #ifdef FEAT_PATH_EXTRA | |
692 | 2736 r_ptr = vim_findfile_stopdir(buf); |
7 | 2737 #else |
692 | 2738 r_ptr = NULL; |
7 | 2739 #endif |
692 | 2740 /* move the filename one char forward and truncate the |
2741 * filepath with a NUL */ | |
2742 filename = gettail(buf); | |
1620 | 2743 STRMOVE(filename + 1, filename); |
692 | 2744 *filename++ = NUL; |
2745 | |
2746 tnp->tn_search_ctx = vim_findfile_init(buf, filename, | |
2747 r_ptr, 100, | |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2185
diff
changeset
|
2748 FALSE, /* don't free visited list */ |
1541 | 2749 FINDFILE_FILE, /* we search for a file */ |
692 | 2750 tnp->tn_search_ctx, TRUE, curbuf->b_ffname); |
2751 if (tnp->tn_search_ctx != NULL) | |
2752 tnp->tn_did_filefind_init = TRUE; | |
7 | 2753 } |
2754 } | |
2755 | |
692 | 2756 STRCPY(buf, fname); |
2757 vim_free(fname); | |
7 | 2758 return OK; |
2759 } | |
2760 | |
2761 /* | |
692 | 2762 * Free the contents of a tagname_T that was filled by get_tagfname(). |
2763 */ | |
2764 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2765 tagname_free(tagname_T *tnp) |
692 | 2766 { |
2767 vim_free(tnp->tn_tags); | |
2768 vim_findfile_cleanup(tnp->tn_search_ctx); | |
1541 | 2769 tnp->tn_search_ctx = NULL; |
692 | 2770 ga_clear_strings(&tag_fnames); |
2771 } | |
2772 | |
2773 /* | |
7 | 2774 * Parse one line from the tags file. Find start/end of tag name, start/end of |
2775 * file name and start of search pattern. | |
2776 * | |
2777 * If is_etag is TRUE, tagp->fname and tagp->fname_end are not set. | |
2778 * | |
2779 * Return FAIL if there is a format error in this line, OK otherwise. | |
2780 */ | |
2781 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2782 parse_tag_line( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2783 char_u *lbuf, /* line to be parsed */ |
7 | 2784 #ifdef FEAT_EMACS_TAGS |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2785 int is_etag, |
7 | 2786 #endif |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2787 tagptrs_T *tagp) |
7 | 2788 { |
2789 char_u *p; | |
2790 | |
2791 #ifdef FEAT_EMACS_TAGS | |
2792 char_u *p_7f; | |
2793 | |
2794 if (is_etag) | |
2795 { | |
2796 /* | |
2797 * There are two formats for an emacs tag line: | |
2798 * 1: struct EnvBase ^?EnvBase^A139,4627 | |
2799 * 2: #define ARPB_WILD_WORLD ^?153,5194 | |
2800 */ | |
2801 p_7f = vim_strchr(lbuf, 0x7f); | |
2802 if (p_7f == NULL) | |
1770 | 2803 { |
2804 etag_fail: | |
2805 if (vim_strchr(lbuf, '\n') == NULL) | |
2806 { | |
2807 /* Truncated line. Ignore it. */ | |
2808 if (p_verbose >= 5) | |
2809 { | |
2810 verbose_enter(); | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
2811 msg(_("Ignoring long line in tags file")); |
1770 | 2812 verbose_leave(); |
2813 } | |
2814 tagp->command = lbuf; | |
2815 tagp->tagname = lbuf; | |
2816 tagp->tagname_end = lbuf; | |
2817 return OK; | |
2818 } | |
7 | 2819 return FAIL; |
1770 | 2820 } |
7 | 2821 |
2822 /* Find ^A. If not found the line number is after the 0x7f */ | |
2823 p = vim_strchr(p_7f, Ctrl_A); | |
2824 if (p == NULL) | |
2825 p = p_7f + 1; | |
2826 else | |
2827 ++p; | |
2828 | |
2829 if (!VIM_ISDIGIT(*p)) /* check for start of line number */ | |
1770 | 2830 goto etag_fail; |
7 | 2831 tagp->command = p; |
2832 | |
2833 | |
2834 if (p[-1] == Ctrl_A) /* first format: explicit tagname given */ | |
2835 { | |
2836 tagp->tagname = p_7f + 1; | |
2837 tagp->tagname_end = p - 1; | |
2838 } | |
2839 else /* second format: isolate tagname */ | |
2840 { | |
2841 /* find end of tagname */ | |
2842 for (p = p_7f - 1; !vim_iswordc(*p); --p) | |
2843 if (p == lbuf) | |
1770 | 2844 goto etag_fail; |
7 | 2845 tagp->tagname_end = p + 1; |
2846 while (p >= lbuf && vim_iswordc(*p)) | |
2847 --p; | |
2848 tagp->tagname = p + 1; | |
2849 } | |
2850 } | |
2851 else /* not an Emacs tag */ | |
2852 { | |
2853 #endif | |
2854 /* Isolate the tagname, from lbuf up to the first white */ | |
2855 tagp->tagname = lbuf; | |
2856 #ifdef FEAT_TAG_ANYWHITE | |
2857 p = skiptowhite(lbuf); | |
2858 #else | |
2859 p = vim_strchr(lbuf, TAB); | |
2860 if (p == NULL) | |
2861 return FAIL; | |
2862 #endif | |
2863 tagp->tagname_end = p; | |
2864 | |
2865 /* Isolate file name, from first to second white space */ | |
2866 #ifdef FEAT_TAG_ANYWHITE | |
2867 p = skipwhite(p); | |
2868 #else | |
2869 if (*p != NUL) | |
2870 ++p; | |
2871 #endif | |
2872 tagp->fname = p; | |
2873 #ifdef FEAT_TAG_ANYWHITE | |
2874 p = skiptowhite(p); | |
2875 #else | |
2876 p = vim_strchr(p, TAB); | |
2877 if (p == NULL) | |
2878 return FAIL; | |
2879 #endif | |
2880 tagp->fname_end = p; | |
2881 | |
2882 /* find start of search command, after second white space */ | |
2883 #ifdef FEAT_TAG_ANYWHITE | |
2884 p = skipwhite(p); | |
2885 #else | |
2886 if (*p != NUL) | |
2887 ++p; | |
2888 #endif | |
2889 if (*p == NUL) | |
2890 return FAIL; | |
2891 tagp->command = p; | |
2892 #ifdef FEAT_EMACS_TAGS | |
2893 } | |
2894 #endif | |
2895 | |
2896 return OK; | |
2897 } | |
2898 | |
2899 /* | |
2900 * Check if tagname is a static tag | |
2901 * | |
2902 * Static tags produced by the older ctags program have the format: | |
2903 * 'file:tag file /pattern'. | |
1204 | 2904 * This is only recognized when both occurrence of 'file' are the same, to |
7 | 2905 * avoid recognizing "string::string" or ":exit". |
2906 * | |
2907 * Static tags produced by the new ctags program have the format: | |
2908 * 'tag file /pattern/;"<Tab>file:' " | |
2909 * | |
2910 * Return TRUE if it is a static tag and adjust *tagname to the real tag. | |
2911 * Return FALSE if it is not a static tag. | |
2912 */ | |
2913 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2914 test_for_static(tagptrs_T *tagp) |
7 | 2915 { |
2916 char_u *p; | |
2917 | |
2918 #ifdef FEAT_TAG_OLDSTATIC | |
2919 int len; | |
2920 | |
2921 /* | |
2922 * Check for old style static tag: "file:tag file .." | |
2923 */ | |
2924 len = (int)(tagp->fname_end - tagp->fname); | |
2925 p = tagp->tagname + len; | |
2926 if ( p < tagp->tagname_end | |
2927 && *p == ':' | |
2928 && fnamencmp(tagp->tagname, tagp->fname, len) == 0) | |
2929 { | |
2930 tagp->tagname = p + 1; | |
2931 return TRUE; | |
2932 } | |
2933 #endif | |
2934 | |
2935 /* | |
2936 * Check for new style static tag ":...<Tab>file:[<Tab>...]" | |
2937 */ | |
2938 p = tagp->command; | |
2939 while ((p = vim_strchr(p, '\t')) != NULL) | |
2940 { | |
2941 ++p; | |
2942 if (STRNCMP(p, "file:", 5) == 0) | |
2943 return TRUE; | |
2944 } | |
2945 | |
2946 return FALSE; | |
2947 } | |
2948 | |
2949 /* | |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2950 * Returns the length of a matching tag line. |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2951 */ |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2952 static size_t |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2953 matching_line_len(char_u *lbuf) |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2954 { |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2955 char_u *p = lbuf + 1; |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2956 |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2957 /* does the same thing as parse_match() */ |
13227
b88fa651c824
patch 8.0.1488: emacs tags no longer work
Christian Brabandt <cb@256bit.org>
parents:
13068
diff
changeset
|
2958 p += STRLEN(p) + 1; |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2959 #ifdef FEAT_EMACS_TAGS |
13227
b88fa651c824
patch 8.0.1488: emacs tags no longer work
Christian Brabandt <cb@256bit.org>
parents:
13068
diff
changeset
|
2960 p += STRLEN(p) + 1; |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2961 #endif |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2962 return (p - lbuf) + STRLEN(p); |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2963 } |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2964 |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2965 /* |
7 | 2966 * Parse a line from a matching tag. Does not change the line itself. |
2967 * | |
2968 * The line that we get looks like this: | |
2969 * Emacs tag: <mtt><tag_fname><NUL><ebuf><NUL><lbuf> | |
2970 * other tag: <mtt><tag_fname><NUL><NUL><lbuf> | |
2971 * without Emacs tags: <mtt><tag_fname><NUL><lbuf> | |
2972 * | |
2973 * Return OK or FAIL. | |
2974 */ | |
2975 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2976 parse_match( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2977 char_u *lbuf, /* input: matching line */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2978 tagptrs_T *tagp) /* output: pointers into the line */ |
7 | 2979 { |
2980 int retval; | |
2981 char_u *p; | |
2982 char_u *pc, *pt; | |
2983 | |
2984 tagp->tag_fname = lbuf + 1; | |
2985 lbuf += STRLEN(tagp->tag_fname) + 2; | |
2986 #ifdef FEAT_EMACS_TAGS | |
2987 if (*lbuf) | |
2988 { | |
2989 tagp->is_etag = TRUE; | |
2990 tagp->fname = lbuf; | |
2991 lbuf += STRLEN(lbuf); | |
2992 tagp->fname_end = lbuf++; | |
2993 } | |
2994 else | |
2995 { | |
2996 tagp->is_etag = FALSE; | |
2997 ++lbuf; | |
2998 } | |
2999 #endif | |
3000 | |
3001 /* Find search pattern and the file name for non-etags. */ | |
3002 retval = parse_tag_line(lbuf, | |
3003 #ifdef FEAT_EMACS_TAGS | |
3004 tagp->is_etag, | |
3005 #endif | |
3006 tagp); | |
3007 | |
3008 tagp->tagkind = NULL; | |
3009 tagp->command_end = NULL; | |
3010 | |
3011 if (retval == OK) | |
3012 { | |
3013 /* Try to find a kind field: "kind:<kind>" or just "<kind>"*/ | |
3014 p = tagp->command; | |
3015 if (find_extra(&p) == OK) | |
3016 { | |
15808
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3017 if (p > tagp->command && p[-1] == '|') |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3018 tagp->command_end = p - 1; // drop trailing bar |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3019 else |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3020 tagp->command_end = p; |
7 | 3021 p += 2; /* skip ";\"" */ |
3022 if (*p++ == TAB) | |
3023 while (ASCII_ISALPHA(*p)) | |
3024 { | |
3025 if (STRNCMP(p, "kind:", 5) == 0) | |
3026 { | |
3027 tagp->tagkind = p + 5; | |
3028 break; | |
3029 } | |
3030 pc = vim_strchr(p, ':'); | |
3031 pt = vim_strchr(p, '\t'); | |
3032 if (pc == NULL || (pt != NULL && pc > pt)) | |
3033 { | |
3034 tagp->tagkind = p; | |
3035 break; | |
3036 } | |
3037 if (pt == NULL) | |
3038 break; | |
3039 p = pt + 1; | |
3040 } | |
3041 } | |
3042 if (tagp->tagkind != NULL) | |
3043 { | |
3044 for (p = tagp->tagkind; | |
3045 *p && *p != '\t' && *p != '\r' && *p != '\n'; ++p) | |
3046 ; | |
3047 tagp->tagkind_end = p; | |
3048 } | |
3049 } | |
3050 return retval; | |
3051 } | |
3052 | |
3053 /* | |
3054 * Find out the actual file name of a tag. Concatenate the tags file name | |
3055 * with the matching tag file name. | |
3056 * Returns an allocated string or NULL (out of memory). | |
3057 */ | |
3058 static char_u * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3059 tag_full_fname(tagptrs_T *tagp) |
7 | 3060 { |
3061 char_u *fullname; | |
3062 int c; | |
3063 | |
3064 #ifdef FEAT_EMACS_TAGS | |
3065 if (tagp->is_etag) | |
3066 c = 0; /* to shut up GCC */ | |
3067 else | |
3068 #endif | |
3069 { | |
3070 c = *tagp->fname_end; | |
3071 *tagp->fname_end = NUL; | |
3072 } | |
3073 fullname = expand_tag_fname(tagp->fname, tagp->tag_fname, FALSE); | |
3074 | |
3075 #ifdef FEAT_EMACS_TAGS | |
3076 if (!tagp->is_etag) | |
3077 #endif | |
3078 *tagp->fname_end = c; | |
3079 | |
3080 return fullname; | |
3081 } | |
3082 | |
3083 /* | |
3084 * Jump to a tag that has been found in one of the tag files | |
3085 * | |
3086 * returns OK for success, NOTAGFILE when file not found, FAIL otherwise. | |
3087 */ | |
3088 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3089 jumpto_tag( |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3090 char_u *lbuf_arg, /* line from the tags file for this tag */ |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3091 int forceit, /* :ta with ! */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3092 int keep_help) /* keep help flag (FALSE for cscope) */ |
7 | 3093 { |
3094 int save_secure; | |
3095 int save_magic; | |
3096 int save_p_ws, save_p_scs, save_p_ic; | |
3097 linenr_T save_lnum; | |
3098 char_u *str; | |
3099 char_u *pbuf; /* search pattern buffer */ | |
3100 char_u *pbuf_end; | |
3101 char_u *tofree_fname = NULL; | |
3102 char_u *fname; | |
3103 tagptrs_T tagp; | |
3104 int retval = FAIL; | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3105 int getfile_result = GETFILE_UNUSED; |
7 | 3106 int search_options; |
3107 #ifdef FEAT_SEARCH_EXTRA | |
3108 int save_no_hlsearch; | |
3109 #endif | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3110 #if defined(FEAT_QUICKFIX) |
7 | 3111 win_T *curwin_save = NULL; |
3112 #endif | |
3113 char_u *full_fname = NULL; | |
3114 #ifdef FEAT_FOLDING | |
3115 int old_KeyTyped = KeyTyped; /* getting the file may reset it */ | |
3116 #endif | |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3117 size_t len; |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3118 char_u *lbuf; |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3119 |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3120 /* Make a copy of the line, it can become invalid when an autocommand calls |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3121 * back here recursively. */ |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3122 len = matching_line_len(lbuf_arg) + 1; |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3123 lbuf = alloc((int)len); |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3124 if (lbuf != NULL) |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3125 mch_memmove(lbuf, lbuf_arg, len); |
7 | 3126 |
3127 pbuf = alloc(LSIZE); | |
3128 | |
3129 /* parse the match line into the tagp structure */ | |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3130 if (pbuf == NULL || lbuf == NULL || parse_match(lbuf, &tagp) == FAIL) |
7 | 3131 { |
3132 tagp.fname_end = NULL; | |
3133 goto erret; | |
3134 } | |
3135 | |
3136 /* truncate the file name, so it can be used as a string */ | |
3137 *tagp.fname_end = NUL; | |
3138 fname = tagp.fname; | |
3139 | |
3140 /* copy the command to pbuf[], remove trailing CR/NL */ | |
3141 str = tagp.command; | |
3142 for (pbuf_end = pbuf; *str && *str != '\n' && *str != '\r'; ) | |
3143 { | |
3144 #ifdef FEAT_EMACS_TAGS | |
3145 if (tagp.is_etag && *str == ',')/* stop at ',' after line number */ | |
3146 break; | |
3147 #endif | |
3148 *pbuf_end++ = *str++; | |
3149 } | |
3150 *pbuf_end = NUL; | |
3151 | |
3152 #ifdef FEAT_EMACS_TAGS | |
3153 if (!tagp.is_etag) | |
3154 #endif | |
3155 { | |
3156 /* | |
3157 * Remove the "<Tab>fieldname:value" stuff; we don't need it here. | |
3158 */ | |
3159 str = pbuf; | |
3160 if (find_extra(&str) == OK) | |
3161 { | |
3162 pbuf_end = str; | |
3163 *pbuf_end = NUL; | |
3164 } | |
3165 } | |
3166 | |
3167 /* | |
3168 * Expand file name, when needed (for environment variables). | |
3169 * If 'tagrelative' option set, may change file name. | |
3170 */ | |
3171 fname = expand_tag_fname(fname, tagp.tag_fname, TRUE); | |
3172 if (fname == NULL) | |
3173 goto erret; | |
3174 tofree_fname = fname; /* free() it later */ | |
3175 | |
3176 /* | |
3177 * Check if the file with the tag exists before abandoning the current | |
3178 * file. Also accept a file name for which there is a matching BufReadCmd | |
3179 * autocommand event (e.g., http://sys/file). | |
3180 */ | |
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
3181 if (mch_getperm(fname) < 0 && !has_autocmd(EVENT_BUFREADCMD, fname, NULL)) |
7 | 3182 { |
3183 retval = NOTAGFILE; | |
3184 vim_free(nofile_fname); | |
3185 nofile_fname = vim_strsave(fname); | |
3186 if (nofile_fname == NULL) | |
3187 nofile_fname = empty_option; | |
3188 goto erret; | |
3189 } | |
3190 | |
3191 ++RedrawingDisabled; | |
3192 | |
3193 #ifdef FEAT_GUI | |
3194 need_mouse_correct = TRUE; | |
3195 #endif | |
3196 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3197 #if defined(FEAT_QUICKFIX) |
2713 | 3198 if (g_do_tagpreview != 0) |
7 | 3199 { |
728 | 3200 postponed_split = 0; /* don't split again below */ |
3201 curwin_save = curwin; /* Save current window */ | |
3202 | |
7 | 3203 /* |
3204 * If we are reusing a window, we may change dir when | |
3205 * entering it (autocommands) so turn the tag filename | |
3206 * into a fullpath | |
3207 */ | |
3208 if (!curwin->w_p_pvw) | |
3209 { | |
3210 full_fname = FullName_save(fname, FALSE); | |
3211 fname = full_fname; | |
3212 | |
3213 /* | |
3214 * Make the preview window the current window. | |
3215 * Open a preview window when needed. | |
3216 */ | |
816 | 3217 prepare_tagpreview(TRUE); |
7 | 3218 } |
3219 } | |
3220 | |
682 | 3221 /* If it was a CTRL-W CTRL-] command split window now. For ":tab tag" |
3222 * open a new tab page. */ | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3223 if (postponed_split && (swb_flags & (SWB_USEOPEN | SWB_USETAB))) |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3224 { |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3225 buf_T *existing_buf = buflist_findname_exp(fname); |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3226 |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3227 if (existing_buf != NULL) |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3228 { |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3229 win_T *wp = NULL; |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3230 |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3231 if (swb_flags & SWB_USEOPEN) |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3232 wp = buf_jump_open_win(existing_buf); |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3233 |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3234 /* If 'switchbuf' contains "usetab": jump to first window in any tab |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3235 * page containing "existing_buf" if one exists */ |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3236 if (wp == NULL && (swb_flags & SWB_USETAB)) |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3237 wp = buf_jump_open_tab(existing_buf); |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3238 /* We've switched to the buffer, the usual loading of the file must |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3239 * be skipped. */ |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3240 if (wp != NULL) |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3241 getfile_result = GETFILE_SAME_FILE; |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3242 } |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3243 } |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3244 if (getfile_result == GETFILE_UNUSED |
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3245 && (postponed_split || cmdmod.tab != 0)) |
7 | 3246 { |
11238
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3247 if (win_split(postponed_split > 0 ? postponed_split : 0, |
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3248 postponed_split_flags) == FAIL) |
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3249 { |
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3250 --RedrawingDisabled; |
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3251 goto erret; |
5b524c2286ce
patch 8.0.0505: failed window split for :stag not handled
Christian Brabandt <cb@256bit.org>
parents:
11225
diff
changeset
|
3252 } |
2583 | 3253 RESET_BINDING(curwin); |
7 | 3254 } |
3255 #endif | |
3256 | |
3257 if (keep_help) | |
3258 { | |
3259 /* A :ta from a help file will keep the b_help flag set. For ":ptag" | |
3260 * we need to use the flag from the window where we came from. */ | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3261 #if defined(FEAT_QUICKFIX) |
2713 | 3262 if (g_do_tagpreview != 0) |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3263 keep_help_flag = bt_help(curwin_save->w_buffer); |
7 | 3264 else |
3265 #endif | |
3266 keep_help_flag = curbuf->b_help; | |
3267 } | |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3268 |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3269 if (getfile_result == GETFILE_UNUSED) |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3270 /* Careful: getfile() may trigger autocommands and call jumpto_tag() |
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3271 * recursively. */ |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3272 getfile_result = getfile(0, fname, NULL, TRUE, (linenr_T)0, forceit); |
7 | 3273 keep_help_flag = FALSE; |
3274 | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3275 if (GETFILE_SUCCESS(getfile_result)) /* got to the right file */ |
7 | 3276 { |
3277 curwin->w_set_curswant = TRUE; | |
3278 postponed_split = 0; | |
3279 | |
3280 save_secure = secure; | |
3281 secure = 1; | |
3282 #ifdef HAVE_SANDBOX | |
3283 ++sandbox; | |
3284 #endif | |
3285 save_magic = p_magic; | |
3286 p_magic = FALSE; /* always execute with 'nomagic' */ | |
3287 #ifdef FEAT_SEARCH_EXTRA | |
3288 /* Save value of no_hlsearch, jumping to a tag is not a real search */ | |
3289 save_no_hlsearch = no_hlsearch; | |
3290 #endif | |
3291 | |
3292 /* | |
3293 * If 'cpoptions' contains 't', store the search pattern for the "n" | |
3294 * command. If 'cpoptions' does not contain 't', the search pattern | |
3295 * is not stored. | |
3296 */ | |
3297 if (vim_strchr(p_cpo, CPO_TAGPAT) != NULL) | |
3298 search_options = 0; | |
3299 else | |
3300 search_options = SEARCH_KEEP; | |
3301 | |
3302 /* | |
3303 * If the command is a search, try here. | |
3304 * | |
3305 * Reset 'smartcase' for the search, since the search pattern was not | |
3306 * typed by the user. | |
3307 * Only use do_search() when there is a full search command, without | |
3308 * anything following. | |
3309 */ | |
3310 str = pbuf; | |
3311 if (pbuf[0] == '/' || pbuf[0] == '?') | |
3312 str = skip_regexp(pbuf + 1, pbuf[0], FALSE, NULL) + 1; | |
3313 if (str > pbuf_end - 1) /* search command with nothing following */ | |
3314 { | |
3315 save_p_ws = p_ws; | |
3316 save_p_ic = p_ic; | |
3317 save_p_scs = p_scs; | |
3318 p_ws = TRUE; /* need 'wrapscan' for backward searches */ | |
3319 p_ic = FALSE; /* don't ignore case now */ | |
3320 p_scs = FALSE; | |
3321 #if 0 /* disabled for now */ | |
3322 #ifdef FEAT_CMDHIST | |
3323 /* put pattern in search history */ | |
3324 add_to_history(HIST_SEARCH, pbuf + 1, TRUE, pbuf[0]); | |
3325 #endif | |
3326 #endif | |
3327 save_lnum = curwin->w_cursor.lnum; | |
3328 curwin->w_cursor.lnum = 0; /* start search before first line */ | |
1521 | 3329 if (do_search(NULL, pbuf[0], pbuf + 1, (long)1, |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11476
diff
changeset
|
3330 search_options, NULL, NULL)) |
7 | 3331 retval = OK; |
3332 else | |
3333 { | |
3334 int found = 1; | |
3335 int cc; | |
3336 | |
3337 /* | |
3338 * try again, ignore case now | |
3339 */ | |
3340 p_ic = TRUE; | |
3341 if (!do_search(NULL, pbuf[0], pbuf + 1, (long)1, | |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11476
diff
changeset
|
3342 search_options, NULL, NULL)) |
7 | 3343 { |
3344 /* | |
3345 * Failed to find pattern, take a guess: "^func (" | |
3346 */ | |
3347 found = 2; | |
3348 (void)test_for_static(&tagp); | |
3349 cc = *tagp.tagname_end; | |
3350 *tagp.tagname_end = NUL; | |
3351 sprintf((char *)pbuf, "^%s\\s\\*(", tagp.tagname); | |
1521 | 3352 if (!do_search(NULL, '/', pbuf, (long)1, |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11476
diff
changeset
|
3353 search_options, NULL, NULL)) |
7 | 3354 { |
3355 /* Guess again: "^char * \<func (" */ | |
3356 sprintf((char *)pbuf, "^\\[#a-zA-Z_]\\.\\*\\<%s\\s\\*(", | |
3357 tagp.tagname); | |
3358 if (!do_search(NULL, '/', pbuf, (long)1, | |
11521
578df034735d
patch 8.0.0643: when a pattern search is slow Vim becomes unusable
Christian Brabandt <cb@256bit.org>
parents:
11476
diff
changeset
|
3359 search_options, NULL, NULL)) |
7 | 3360 found = 0; |
3361 } | |
3362 *tagp.tagname_end = cc; | |
3363 } | |
3364 if (found == 0) | |
3365 { | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
3366 emsg(_("E434: Can't find tag pattern")); |
7 | 3367 curwin->w_cursor.lnum = save_lnum; |
3368 } | |
3369 else | |
3370 { | |
3371 /* | |
3372 * Only give a message when really guessed, not when 'ic' | |
3373 * is set and match found while ignoring case. | |
3374 */ | |
3375 if (found == 2 || !save_p_ic) | |
3376 { | |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
3377 msg(_("E435: Couldn't find tag, just guessing!")); |
7 | 3378 if (!msg_scrolled && msg_silent == 0) |
3379 { | |
3380 out_flush(); | |
3381 ui_delay(1000L, TRUE); | |
3382 } | |
3383 } | |
3384 retval = OK; | |
3385 } | |
3386 } | |
3387 p_ws = save_p_ws; | |
3388 p_ic = save_p_ic; | |
3389 p_scs = save_p_scs; | |
3390 | |
3391 /* A search command may have positioned the cursor beyond the end | |
3392 * of the line. May need to correct that here. */ | |
3393 check_cursor(); | |
3394 } | |
3395 else | |
3396 { | |
3397 curwin->w_cursor.lnum = 1; /* start command in line 1 */ | |
3398 do_cmdline_cmd(pbuf); | |
3399 retval = OK; | |
3400 } | |
3401 | |
3402 /* | |
3403 * When the command has done something that is not allowed make sure | |
3404 * the error message can be seen. | |
3405 */ | |
3406 if (secure == 2) | |
3407 wait_return(TRUE); | |
3408 secure = save_secure; | |
3409 p_magic = save_magic; | |
3410 #ifdef HAVE_SANDBOX | |
3411 --sandbox; | |
3412 #endif | |
3413 #ifdef FEAT_SEARCH_EXTRA | |
3414 /* restore no_hlsearch when keeping the old search pattern */ | |
3415 if (search_options) | |
13792
0e9b2971d7c3
patch 8.0.1768: SET_NO_HLSEARCH() used in a wrong way
Christian Brabandt <cb@256bit.org>
parents:
13380
diff
changeset
|
3416 set_no_hlsearch(save_no_hlsearch); |
7 | 3417 #endif |
3418 | |
3419 /* Return OK if jumped to another file (at least we found the file!). */ | |
11476
c45fb081391c
patch 8.0.0621: :stag does not respect 'switchbuf'
Christian Brabandt <cb@256bit.org>
parents:
11329
diff
changeset
|
3420 if (getfile_result == GETFILE_OPEN_OTHER) |
7 | 3421 retval = OK; |
3422 | |
3423 if (retval == OK) | |
3424 { | |
3425 /* | |
3426 * For a help buffer: Put the cursor line at the top of the window, | |
3427 * the help subject will be below it. | |
3428 */ | |
3429 if (curbuf->b_help) | |
3430 set_topline(curwin, curwin->w_cursor.lnum); | |
3431 #ifdef FEAT_FOLDING | |
3432 if ((fdo_flags & FDO_TAG) && old_KeyTyped) | |
3433 foldOpenCursor(); | |
3434 #endif | |
3435 } | |
3436 | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3437 #if defined(FEAT_QUICKFIX) |
2713 | 3438 if (g_do_tagpreview != 0 |
3439 && curwin != curwin_save && win_valid(curwin_save)) | |
7 | 3440 { |
3441 /* Return cursor to where we were */ | |
3442 validate_cursor(); | |
3443 redraw_later(VALID); | |
3444 win_enter(curwin_save, TRUE); | |
3445 } | |
3446 #endif | |
3447 | |
3448 --RedrawingDisabled; | |
3449 } | |
3450 else | |
3451 { | |
3452 --RedrawingDisabled; | |
3453 if (postponed_split) /* close the window */ | |
3454 { | |
3455 win_close(curwin, FALSE); | |
3456 postponed_split = 0; | |
3457 } | |
3458 } | |
3459 | |
3460 erret: | |
12477
68d7bc045dbe
patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3461 #if defined(FEAT_QUICKFIX) |
7 | 3462 g_do_tagpreview = 0; /* For next time */ |
3463 #endif | |
12680
429bf1b9292f
patch 8.0.1218: writing to freed memory in autocmd
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3464 vim_free(lbuf); |
7 | 3465 vim_free(pbuf); |
3466 vim_free(tofree_fname); | |
3467 vim_free(full_fname); | |
3468 | |
3469 return retval; | |
3470 } | |
3471 | |
3472 /* | |
3473 * If "expand" is TRUE, expand wildcards in fname. | |
3474 * If 'tagrelative' option set, change fname (name of file containing tag) | |
3475 * according to tag_fname (name of tag file containing fname). | |
3476 * Returns a pointer to allocated memory (or NULL when out of memory). | |
3477 */ | |
3478 static char_u * | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3479 expand_tag_fname(char_u *fname, char_u *tag_fname, int expand) |
7 | 3480 { |
3481 char_u *p; | |
3482 char_u *retval; | |
3483 char_u *expanded_fname = NULL; | |
3484 expand_T xpc; | |
3485 | |
3486 /* | |
3487 * Expand file name (for environment variables) when needed. | |
3488 */ | |
3489 if (expand && mch_has_wildcard(fname)) | |
3490 { | |
3491 ExpandInit(&xpc); | |
3492 xpc.xp_context = EXPAND_FILES; | |
3493 expanded_fname = ExpandOne(&xpc, (char_u *)fname, NULL, | |
3494 WILD_LIST_NOTFOUND|WILD_SILENT, WILD_EXPAND_FREE); | |
3495 if (expanded_fname != NULL) | |
3496 fname = expanded_fname; | |
3497 } | |
3498 | |
3499 if ((p_tr || curbuf->b_help) | |
3500 && !vim_isAbsName(fname) | |
3501 && (p = gettail(tag_fname)) != tag_fname) | |
3502 { | |
3503 retval = alloc(MAXPATHL); | |
3504 if (retval != NULL) | |
3505 { | |
3506 STRCPY(retval, tag_fname); | |
418 | 3507 vim_strncpy(retval + (p - tag_fname), fname, |
3508 MAXPATHL - (p - tag_fname) - 1); | |
7 | 3509 /* |
3510 * Translate names like "src/a/../b/file.c" into "src/b/file.c". | |
3511 */ | |
3512 simplify_filename(retval); | |
3513 } | |
3514 } | |
3515 else | |
3516 retval = vim_strsave(fname); | |
3517 | |
3518 vim_free(expanded_fname); | |
3519 | |
3520 return retval; | |
3521 } | |
3522 | |
3523 /* | |
3524 * Converts a file name into a canonical form. It simplifies a file name into | |
3525 * its simplest form by stripping out unneeded components, if any. The | |
3526 * resulting file name is simplified in place and will either be the same | |
3527 * length as that supplied, or shorter. | |
3528 */ | |
3529 void | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3530 simplify_filename(char_u *filename) |
7 | 3531 { |
3532 #ifndef AMIGA /* Amiga doesn't have "..", it uses "/" */ | |
3533 int components = 0; | |
3534 char_u *p, *tail, *start; | |
3535 int stripping_disabled = FALSE; | |
3536 int relative = TRUE; | |
3537 | |
3538 p = filename; | |
3539 #ifdef BACKSLASH_IN_FILENAME | |
3540 if (p[1] == ':') /* skip "x:" */ | |
3541 p += 2; | |
3542 #endif | |
3543 | |
3544 if (vim_ispathsep(*p)) | |
3545 { | |
3546 relative = FALSE; | |
3547 do | |
3548 ++p; | |
3549 while (vim_ispathsep(*p)); | |
3550 } | |
3551 start = p; /* remember start after "c:/" or "/" or "///" */ | |
3552 | |
3553 do | |
3554 { | |
3555 /* At this point "p" is pointing to the char following a single "/" | |
3556 * or "p" is at the "start" of the (absolute or relative) path name. */ | |
3557 #ifdef VMS | |
3558 /* VMS allows device:[path] - don't strip the [ in directory */ | |
3559 if ((*p == '[' || *p == '<') && p > filename && p[-1] == ':') | |
3560 { | |
3561 /* :[ or :< composition: vms directory component */ | |
3562 ++components; | |
3563 p = getnextcomp(p + 1); | |
3564 } | |
3565 /* allow remote calls as host"user passwd"::device:[path] */ | |
3566 else if (p[0] == ':' && p[1] == ':' && p > filename && p[-1] == '"' ) | |
3567 { | |
3568 /* ":: composition: vms host/passwd component */ | |
3569 ++components; | |
3570 p = getnextcomp(p + 2); | |
3571 } | |
3572 else | |
3573 #endif | |
3574 if (vim_ispathsep(*p)) | |
1620 | 3575 STRMOVE(p, p + 1); /* remove duplicate "/" */ |
7 | 3576 else if (p[0] == '.' && (vim_ispathsep(p[1]) || p[1] == NUL)) |
3577 { | |
3578 if (p == start && relative) | |
3579 p += 1 + (p[1] != NUL); /* keep single "." or leading "./" */ | |
3580 else | |
3581 { | |
3582 /* Strip "./" or ".///". If we are at the end of the file name | |
3583 * and there is no trailing path separator, either strip "/." if | |
3584 * we are after "start", or strip "." if we are at the beginning | |
3585 * of an absolute path name . */ | |
3586 tail = p + 1; | |
3587 if (p[1] != NUL) | |
3588 while (vim_ispathsep(*tail)) | |
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
3589 MB_PTR_ADV(tail); |
7 | 3590 else if (p > start) |
3591 --p; /* strip preceding path separator */ | |
1620 | 3592 STRMOVE(p, tail); |
7 | 3593 } |
3594 } | |
3595 else if (p[0] == '.' && p[1] == '.' && | |
3596 (vim_ispathsep(p[2]) || p[2] == NUL)) | |
3597 { | |
3598 /* Skip to after ".." or "../" or "..///". */ | |
3599 tail = p + 2; | |
3600 while (vim_ispathsep(*tail)) | |
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
3601 MB_PTR_ADV(tail); |
7 | 3602 |
3603 if (components > 0) /* strip one preceding component */ | |
3604 { | |
3605 int do_strip = FALSE; | |
3606 char_u saved_char; | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
3607 stat_T st; |
7 | 3608 |
3609 /* Don't strip for an erroneous file name. */ | |
3610 if (!stripping_disabled) | |
3611 { | |
3612 /* If the preceding component does not exist in the file | |
3613 * system, we strip it. On Unix, we don't accept a symbolic | |
3614 * link that refers to a non-existent file. */ | |
3615 saved_char = p[-1]; | |
3616 p[-1] = NUL; | |
3617 #ifdef UNIX | |
3618 if (mch_lstat((char *)filename, &st) < 0) | |
3619 #else | |
3620 if (mch_stat((char *)filename, &st) < 0) | |
3621 #endif | |
3622 do_strip = TRUE; | |
3623 p[-1] = saved_char; | |
3624 | |
3625 --p; | |
3626 /* Skip back to after previous '/'. */ | |
39 | 3627 while (p > start && !after_pathsep(start, p)) |
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
3628 MB_PTR_BACK(start, p); |
7 | 3629 |
3630 if (!do_strip) | |
3631 { | |
3632 /* If the component exists in the file system, check | |
3633 * that stripping it won't change the meaning of the | |
3634 * file name. First get information about the | |
3635 * unstripped file name. This may fail if the component | |
3636 * to strip is not a searchable directory (but a regular | |
3637 * file, for instance), since the trailing "/.." cannot | |
3638 * be applied then. We don't strip it then since we | |
3639 * don't want to replace an erroneous file name by | |
3640 * a valid one, and we disable stripping of later | |
3641 * components. */ | |
3642 saved_char = *tail; | |
3643 *tail = NUL; | |
3644 if (mch_stat((char *)filename, &st) >= 0) | |
3645 do_strip = TRUE; | |
3646 else | |
3647 stripping_disabled = TRUE; | |
3648 *tail = saved_char; | |
3649 #ifdef UNIX | |
3650 if (do_strip) | |
3651 { | |
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9068
diff
changeset
|
3652 stat_T new_st; |
7 | 3653 |
3654 /* On Unix, the check for the unstripped file name | |
3655 * above works also for a symbolic link pointing to | |
3656 * a searchable directory. But then the parent of | |
3657 * the directory pointed to by the link must be the | |
3658 * same as the stripped file name. (The latter | |
3659 * exists in the file system since it is the | |
3660 * component's parent directory.) */ | |
3661 if (p == start && relative) | |
3662 (void)mch_stat(".", &new_st); | |
3663 else | |
3664 { | |
3665 saved_char = *p; | |
3666 *p = NUL; | |
3667 (void)mch_stat((char *)filename, &new_st); | |
3668 *p = saved_char; | |
3669 } | |
3670 | |
3671 if (new_st.st_ino != st.st_ino || | |
3672 new_st.st_dev != st.st_dev) | |
3673 { | |
3674 do_strip = FALSE; | |
3675 /* We don't disable stripping of later | |
3676 * components since the unstripped path name is | |
3677 * still valid. */ | |
3678 } | |
3679 } | |
3680 #endif | |
3681 } | |
3682 } | |
3683 | |
3684 if (!do_strip) | |
3685 { | |
3686 /* Skip the ".." or "../" and reset the counter for the | |
3687 * components that might be stripped later on. */ | |
3688 p = tail; | |
3689 components = 0; | |
3690 } | |
3691 else | |
3692 { | |
3693 /* Strip previous component. If the result would get empty | |
3694 * and there is no trailing path separator, leave a single | |
3695 * "." instead. If we are at the end of the file name and | |
3696 * there is no trailing path separator and a preceding | |
3697 * component is left after stripping, strip its trailing | |
3698 * path separator as well. */ | |
3699 if (p == start && relative && tail[-1] == '.') | |
3700 { | |
3701 *p++ = '.'; | |
3702 *p = NUL; | |
3703 } | |
3704 else | |
3705 { | |
3706 if (p > start && tail[-1] == '.') | |
3707 --p; | |
1620 | 3708 STRMOVE(p, tail); /* strip previous component */ |
7 | 3709 } |
3710 | |
3711 --components; | |
3712 } | |
3713 } | |
3714 else if (p == start && !relative) /* leading "/.." or "/../" */ | |
1620 | 3715 STRMOVE(p, tail); /* strip ".." or "../" */ |
7 | 3716 else |
3717 { | |
3718 if (p == start + 2 && p[-2] == '.') /* leading "./../" */ | |
3719 { | |
1620 | 3720 STRMOVE(p - 2, p); /* strip leading "./" */ |
7 | 3721 tail -= 2; |
3722 } | |
3723 p = tail; /* skip to char after ".." or "../" */ | |
3724 } | |
3725 } | |
3726 else | |
3727 { | |
3728 ++components; /* simple path component */ | |
3729 p = getnextcomp(p); | |
3730 } | |
3731 } while (*p != NUL); | |
3732 #endif /* !AMIGA */ | |
3733 } | |
3734 | |
3735 /* | |
3736 * Check if we have a tag for the buffer with name "buf_ffname". | |
3737 * This is a bit slow, because of the full path compare in fullpathcmp(). | |
3738 * Return TRUE if tag for file "fname" if tag file "tag_fname" is for current | |
3739 * file. | |
3740 */ | |
3741 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3742 test_for_current( |
7 | 3743 #ifdef FEAT_EMACS_TAGS |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3744 int is_etag, |
7 | 3745 #endif |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3746 char_u *fname, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3747 char_u *fname_end, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3748 char_u *tag_fname, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3749 char_u *buf_ffname) |
7 | 3750 { |
3751 int c; | |
3752 int retval = FALSE; | |
3753 char_u *fullname; | |
3754 | |
3755 if (buf_ffname != NULL) /* if the buffer has a name */ | |
3756 { | |
3757 #ifdef FEAT_EMACS_TAGS | |
3758 if (is_etag) | |
3759 c = 0; /* to shut up GCC */ | |
3760 else | |
3761 #endif | |
3762 { | |
3763 c = *fname_end; | |
3764 *fname_end = NUL; | |
3765 } | |
3766 fullname = expand_tag_fname(fname, tag_fname, TRUE); | |
3767 if (fullname != NULL) | |
3768 { | |
3769 retval = (fullpathcmp(fullname, buf_ffname, TRUE) & FPC_SAME); | |
3770 vim_free(fullname); | |
3771 } | |
3772 #ifdef FEAT_EMACS_TAGS | |
3773 if (!is_etag) | |
3774 #endif | |
3775 *fname_end = c; | |
3776 } | |
3777 | |
3778 return retval; | |
3779 } | |
3780 | |
3781 /* | |
3782 * Find the end of the tagaddress. | |
3783 * Return OK if ";\"" is following, FAIL otherwise. | |
3784 */ | |
3785 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3786 find_extra(char_u **pp) |
7 | 3787 { |
3788 char_u *str = *pp; | |
3789 | |
15808
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3790 // Repeat for addresses separated with ';' |
7 | 3791 for (;;) |
3792 { | |
3793 if (VIM_ISDIGIT(*str)) | |
3794 str = skipdigits(str); | |
3795 else if (*str == '/' || *str == '?') | |
3796 { | |
3797 str = skip_regexp(str + 1, *str, FALSE, NULL); | |
3798 if (*str != **pp) | |
3799 str = NULL; | |
3800 else | |
3801 ++str; | |
3802 } | |
3803 else | |
15808
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3804 { |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3805 // not a line number or search string, look for terminator. |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3806 str = (char_u *)strstr((char *)str, "|;\""); |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3807 if (str != NULL) |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3808 { |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3809 ++str; |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3810 break; |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3811 } |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3812 |
37d31fc37a5a
patch 8.1.0911: tag line with Ex command cannot have extra fields
Bram Moolenaar <Bram@vim.org>
parents:
15636
diff
changeset
|
3813 } |
7 | 3814 if (str == NULL || *str != ';' |
3815 || !(VIM_ISDIGIT(str[1]) || str[1] == '/' || str[1] == '?')) | |
3816 break; | |
3817 ++str; /* skip ';' */ | |
3818 } | |
3819 | |
3820 if (str != NULL && STRNCMP(str, ";\"", 2) == 0) | |
3821 { | |
3822 *pp = str; | |
3823 return OK; | |
3824 } | |
3825 return FAIL; | |
3826 } | |
3827 | |
3828 #if defined(FEAT_CMDL_COMPL) || defined(PROTO) | |
3829 int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3830 expand_tags( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3831 int tagnames, /* expand tag names */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3832 char_u *pat, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3833 int *num_file, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3834 char_u ***file) |
7 | 3835 { |
3836 int i; | |
3837 int c; | |
3838 int tagnmflag; | |
3839 char_u tagnm[100]; | |
3840 tagptrs_T t_p; | |
3841 int ret; | |
3842 | |
3843 if (tagnames) | |
3844 tagnmflag = TAG_NAMES; | |
3845 else | |
3846 tagnmflag = 0; | |
3847 if (pat[0] == '/') | |
3848 ret = find_tags(pat + 1, num_file, file, | |
3849 TAG_REGEXP | tagnmflag | TAG_VERBOSE, | |
3850 TAG_MANY, curbuf->b_ffname); | |
3851 else | |
3852 ret = find_tags(pat, num_file, file, | |
3853 TAG_REGEXP | tagnmflag | TAG_VERBOSE | TAG_NOIC, | |
3854 TAG_MANY, curbuf->b_ffname); | |
3855 if (ret == OK && !tagnames) | |
3856 { | |
3857 /* Reorganize the tags for display and matching as strings of: | |
3858 * "<tagname>\0<kind>\0<filename>\0" | |
3859 */ | |
3860 for (i = 0; i < *num_file; i++) | |
3861 { | |
3862 parse_match((*file)[i], &t_p); | |
3863 c = (int)(t_p.tagname_end - t_p.tagname); | |
3864 mch_memmove(tagnm, t_p.tagname, (size_t)c); | |
3865 tagnm[c++] = 0; | |
3866 tagnm[c++] = (t_p.tagkind != NULL && *t_p.tagkind) | |
3867 ? *t_p.tagkind : 'f'; | |
3868 tagnm[c++] = 0; | |
3869 mch_memmove((*file)[i] + c, t_p.fname, t_p.fname_end - t_p.fname); | |
3870 (*file)[i][c + (t_p.fname_end - t_p.fname)] = 0; | |
3871 mch_memmove((*file)[i], tagnm, (size_t)c); | |
3872 } | |
3873 } | |
3874 return ret; | |
3875 } | |
3876 #endif | |
179 | 3877 |
3878 #if defined(FEAT_EVAL) || defined(PROTO) | |
3879 /* | |
2185 | 3880 * Add a tag field to the dictionary "dict". |
3881 * Return OK or FAIL. | |
179 | 3882 */ |
3883 static int | |
7835
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3884 add_tag_field( |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3885 dict_T *dict, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3886 char *field_name, |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3887 char_u *start, /* start of the value */ |
4d7ce6c03fda
commit https://github.com/vim/vim/commit/764b23c8fd3369cb05ae9122abf3ca16fec539d7
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3888 char_u *end) /* after the value; can be NULL */ |
179 | 3889 { |
2770 | 3890 char_u *buf; |
188 | 3891 int len = 0; |
2770 | 3892 int retval; |
179 | 3893 |
2185 | 3894 /* check that the field name doesn't exist yet */ |
3895 if (dict_find(dict, (char_u *)field_name, -1) != NULL) | |
3896 { | |
3897 if (p_verbose > 0) | |
3898 { | |
3899 verbose_enter(); | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
3900 smsg(_("Duplicate field name: %s"), field_name); |
2185 | 3901 verbose_leave(); |
3902 } | |
3903 return FAIL; | |
3904 } | |
2770 | 3905 buf = alloc(MAXPATHL); |
3906 if (buf == NULL) | |
3907 return FAIL; | |
188 | 3908 if (start != NULL) |
3909 { | |
211 | 3910 if (end == NULL) |
3911 { | |
3912 end = start + STRLEN(start); | |
3913 while (end > start && (end[-1] == '\r' || end[-1] == '\n')) | |
3914 --end; | |
3915 } | |
835 | 3916 len = (int)(end - start); |
2770 | 3917 if (len > MAXPATHL - 1) |
3918 len = MAXPATHL - 1; | |
418 | 3919 vim_strncpy(buf, start, len); |
188 | 3920 } |
179 | 3921 buf[len] = NUL; |
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
3922 retval = dict_add_string(dict, field_name, buf); |
2770 | 3923 vim_free(buf); |
3924 return retval; | |
179 | 3925 } |
3926 | |
3927 /* | |
11225
d3415ec1cdaf
patch 8.0.0499: taglist() does not prioritize tags for a buffer
Christian Brabandt <cb@256bit.org>
parents:
11158
diff
changeset
|
3928 * Add the tags matching the specified pattern "pat" to the list "list" |
d3415ec1cdaf
patch 8.0.0499: taglist() does not prioritize tags for a buffer
Christian Brabandt <cb@256bit.org>
parents:
11158
diff
changeset
|
3929 * as a dictionary. Use "buf_fname" for priority, unless NULL. |
179 | 3930 */ |
3931 int | |
11225
d3415ec1cdaf
patch 8.0.0499: taglist() does not prioritize tags for a buffer
Christian Brabandt <cb@256bit.org>
parents:
11158
diff
changeset
|
3932 get_tags(list_T *list, char_u *pat, char_u *buf_fname) |
179 | 3933 { |
3934 int num_matches, i, ret; | |
3935 char_u **matches, *p; | |
970 | 3936 char_u *full_fname; |
179 | 3937 dict_T *dict; |
3938 tagptrs_T tp; | |
3939 long is_static; | |
3940 | |
3941 ret = find_tags(pat, &num_matches, &matches, | |
11225
d3415ec1cdaf
patch 8.0.0499: taglist() does not prioritize tags for a buffer
Christian Brabandt <cb@256bit.org>
parents:
11158
diff
changeset
|
3942 TAG_REGEXP | TAG_NOIC, (int)MAXCOL, buf_fname); |
179 | 3943 if (ret == OK && num_matches > 0) |
3944 { | |
3945 for (i = 0; i < num_matches; ++i) | |
3946 { | |
188 | 3947 parse_match(matches[i], &tp); |
3948 is_static = test_for_static(&tp); | |
3949 | |
3950 /* Skip pseudo-tag lines. */ | |
3951 if (STRNCMP(tp.tagname, "!_TAG_", 6) == 0) | |
3952 continue; | |
3953 | |
179 | 3954 if ((dict = dict_alloc()) == NULL) |
3955 ret = FAIL; | |
3956 if (list_append_dict(list, dict) == FAIL) | |
3957 ret = FAIL; | |
3958 | |
970 | 3959 full_fname = tag_full_fname(&tp); |
179 | 3960 if (add_tag_field(dict, "name", tp.tagname, tp.tagname_end) == FAIL |
970 | 3961 || add_tag_field(dict, "filename", full_fname, |
3962 NULL) == FAIL | |
179 | 3963 || add_tag_field(dict, "cmd", tp.command, |
3964 tp.command_end) == FAIL | |
3965 || add_tag_field(dict, "kind", tp.tagkind, | |
3966 tp.tagkind_end) == FAIL | |
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14232
diff
changeset
|
3967 || dict_add_number(dict, "static", is_static) == FAIL) |
179 | 3968 ret = FAIL; |
3969 | |
970 | 3970 vim_free(full_fname); |
3971 | |
179 | 3972 if (tp.command_end != NULL) |
3973 { | |
3974 for (p = tp.command_end + 3; | |
3975 *p != NUL && *p != '\n' && *p != '\r'; ++p) | |
3976 { | |
3977 if (p == tp.tagkind || (p + 5 == tp.tagkind | |
3978 && STRNCMP(p, "kind:", 5) == 0)) | |
3979 /* skip "kind:<kind>" and "<kind>" */ | |
3980 p = tp.tagkind_end - 1; | |
3981 else if (STRNCMP(p, "file:", 5) == 0) | |
3982 /* skip "file:" (static tag) */ | |
3983 p += 4; | |
11129
f4ea50924c6d
patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11127
diff
changeset
|
3984 else if (!VIM_ISWHITE(*p)) |
179 | 3985 { |
3986 char_u *s, *n; | |
188 | 3987 int len; |
179 | 3988 |
799 | 3989 /* Add extra field as a dict entry. Fields are |
3990 * separated by Tabs. */ | |
179 | 3991 n = p; |
799 | 3992 while (*p != NUL && *p >= ' ' && *p < 127 && *p != ':') |
179 | 3993 ++p; |
835 | 3994 len = (int)(p - n); |
188 | 3995 if (*p == ':' && len > 0) |
3996 { | |
3997 s = ++p; | |
836 | 3998 while (*p != NUL && *p >= ' ') |
188 | 3999 ++p; |
4000 n[len] = NUL; | |
4001 if (add_tag_field(dict, (char *)n, s, p) == FAIL) | |
4002 ret = FAIL; | |
4003 n[len] = ':'; | |
4004 } | |
836 | 4005 else |
4006 /* Skip field without colon. */ | |
4007 while (*p != NUL && *p >= ' ') | |
4008 ++p; | |
1674 | 4009 if (*p == NUL) |
4010 break; | |
179 | 4011 } |
4012 } | |
4013 } | |
4014 | |
4015 vim_free(matches[i]); | |
4016 } | |
4017 vim_free(matches); | |
4018 } | |
4019 return ret; | |
4020 } | |
15016
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4021 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4022 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4023 * Return information about 'tag' in dict 'retdict'. |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4024 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4025 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4026 get_tag_details(taggy_T *tag, dict_T *retdict) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4027 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4028 list_T *pos; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4029 fmark_T *fmark; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4030 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4031 dict_add_string(retdict, "tagname", tag->tagname); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4032 dict_add_number(retdict, "matchnr", tag->cur_match + 1); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4033 dict_add_number(retdict, "bufnr", tag->cur_fnum); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4034 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4035 if ((pos = list_alloc_id(aid_tagstack_from)) == NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4036 return; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4037 dict_add_list(retdict, "from", pos); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4038 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4039 fmark = &tag->fmark; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4040 list_append_number(pos, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4041 (varnumber_T)(fmark->fnum != -1 ? fmark->fnum : 0)); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4042 list_append_number(pos, (varnumber_T)fmark->mark.lnum); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4043 list_append_number(pos, (varnumber_T)(fmark->mark.col == MAXCOL ? |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4044 MAXCOL : fmark->mark.col + 1)); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4045 list_append_number(pos, (varnumber_T)fmark->mark.coladd); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4046 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4047 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4048 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4049 * Return the tag stack entries of the specified window 'wp' in dictionary |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4050 * 'retdict'. |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4051 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4052 void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4053 get_tagstack(win_T *wp, dict_T *retdict) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4054 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4055 list_T *l; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4056 int i; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4057 dict_T *d; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4058 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4059 dict_add_number(retdict, "length", wp->w_tagstacklen); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4060 dict_add_number(retdict, "curidx", wp->w_tagstackidx + 1); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4061 l = list_alloc_id(aid_tagstack_items); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4062 if (l == NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4063 return; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4064 dict_add_list(retdict, "items", l); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4065 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4066 for (i = 0; i < wp->w_tagstacklen; i++) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4067 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4068 if ((d = dict_alloc_id(aid_tagstack_details)) == NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4069 return; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4070 list_append_dict(l, d); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4071 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4072 get_tag_details(&wp->w_tagstack[i], d); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4073 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4074 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4075 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4076 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4077 * Free all the entries in the tag stack of the specified window |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4078 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4079 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4080 tagstack_clear(win_T *wp) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4081 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4082 int i; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4083 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4084 // Free the current tag stack |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4085 for (i = 0; i < wp->w_tagstacklen; ++i) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4086 vim_free(wp->w_tagstack[i].tagname); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4087 wp->w_tagstacklen = 0; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4088 wp->w_tagstackidx = 0; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4089 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4090 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4091 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4092 * Remove the oldest entry from the tag stack and shift the rest of |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4093 * the entires to free up the top of the stack. |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4094 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4095 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4096 tagstack_shift(win_T *wp) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4097 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4098 taggy_T *tagstack = wp->w_tagstack; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4099 int i; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4100 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4101 vim_free(tagstack[0].tagname); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4102 for (i = 1; i < wp->w_tagstacklen; ++i) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4103 tagstack[i - 1] = tagstack[i]; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4104 wp->w_tagstacklen--; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4105 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4106 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4107 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4108 * Push a new item to the tag stack |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4109 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4110 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4111 tagstack_push_item( |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4112 win_T *wp, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4113 char_u *tagname, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4114 int cur_fnum, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4115 int cur_match, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4116 pos_T mark, |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4117 int fnum) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4118 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4119 taggy_T *tagstack = wp->w_tagstack; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4120 int idx = wp->w_tagstacklen; // top of the stack |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4121 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4122 // if the tagstack is full: remove the oldest entry |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4123 if (idx >= TAGSTACKSIZE) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4124 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4125 tagstack_shift(wp); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4126 idx = TAGSTACKSIZE - 1; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4127 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4128 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4129 wp->w_tagstacklen++; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4130 tagstack[idx].tagname = tagname; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4131 tagstack[idx].cur_fnum = cur_fnum; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4132 tagstack[idx].cur_match = cur_match; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4133 if (tagstack[idx].cur_match < 0) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4134 tagstack[idx].cur_match = 0; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4135 tagstack[idx].fmark.mark = mark; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4136 tagstack[idx].fmark.fnum = fnum; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4137 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4138 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4139 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4140 * Add a list of items to the tag stack in the specified window |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4141 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4142 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4143 tagstack_push_items(win_T *wp, list_T *l) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4144 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4145 listitem_T *li; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4146 dictitem_T *di; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4147 dict_T *itemdict; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4148 char_u *tagname; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4149 pos_T mark; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4150 int fnum; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4151 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4152 // Add one entry at a time to the tag stack |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4153 for (li = l->lv_first; li != NULL; li = li->li_next) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4154 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4155 if (li->li_tv.v_type != VAR_DICT || li->li_tv.vval.v_dict == NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4156 continue; // Skip non-dict items |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4157 itemdict = li->li_tv.vval.v_dict; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4158 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4159 // parse 'from' for the cursor position before the tag jump |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4160 if ((di = dict_find(itemdict, (char_u *)"from", -1)) == NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4161 continue; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4162 if (list2fpos(&di->di_tv, &mark, &fnum, NULL) != OK) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4163 continue; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4164 if ((tagname = |
15146
7903dce131d4
patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string()
Bram Moolenaar <Bram@vim.org>
parents:
15016
diff
changeset
|
4165 dict_get_string(itemdict, (char_u *)"tagname", TRUE)) == NULL) |
15016
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4166 continue; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4167 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4168 if (mark.col > 0) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4169 mark.col--; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4170 tagstack_push_item(wp, tagname, |
15146
7903dce131d4
patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string()
Bram Moolenaar <Bram@vim.org>
parents:
15016
diff
changeset
|
4171 (int)dict_get_number(itemdict, (char_u *)"bufnr"), |
7903dce131d4
patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string()
Bram Moolenaar <Bram@vim.org>
parents:
15016
diff
changeset
|
4172 (int)dict_get_number(itemdict, (char_u *)"matchnr") - 1, |
15016
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4173 mark, fnum); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4174 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4175 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4176 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4177 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4178 * Set the current index in the tag stack. Valid values are between 0 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4179 * and the stack length (inclusive). |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4180 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4181 static void |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4182 tagstack_set_curidx(win_T *wp, int curidx) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4183 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4184 wp->w_tagstackidx = curidx; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4185 if (wp->w_tagstackidx < 0) // sanity check |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4186 wp->w_tagstackidx = 0; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4187 if (wp->w_tagstackidx > wp->w_tagstacklen) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4188 wp->w_tagstackidx = wp->w_tagstacklen; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4189 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4190 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4191 /* |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4192 * Set the tag stack entries of the specified window. |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4193 * 'action' is set to either 'a' for append or 'r' for replace. |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4194 */ |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4195 int |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4196 set_tagstack(win_T *wp, dict_T *d, int action) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4197 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4198 dictitem_T *di; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4199 list_T *l; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4200 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4201 if ((di = dict_find(d, (char_u *)"items", -1)) != NULL) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4202 { |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4203 if (di->di_tv.v_type != VAR_LIST) |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4204 { |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15211
diff
changeset
|
4205 emsg(_(e_listreq)); |
15016
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4206 return FAIL; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4207 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4208 l = di->di_tv.vval.v_list; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4209 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4210 if (action == 'r') |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4211 tagstack_clear(wp); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4212 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4213 tagstack_push_items(wp, l); |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4214 } |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4215 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4216 if ((di = dict_find(d, (char_u *)"curidx", -1)) != NULL) |
15211
de63593896b3
patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents:
15146
diff
changeset
|
4217 tagstack_set_curidx(wp, (int)tv_get_number(&di->di_tv) - 1); |
15016
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4218 |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4219 return OK; |
c338c91086b9
patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
4220 } |
179 | 4221 #endif |