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