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