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