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